SRS Labs SR510 User Manual
Page 48

44
[
print results to screen
write(*,2000) v1
2000
format(
′ Output 1=′,G10.3)
[
ramp x6 by 2.5 mV
x6 = x6 + .0025
if (x6.gt.10) x6 = 0.0
[
make x6 command string
write (str2,3000) x6
3000
format (
′x6,′,f7.3,′$′)
call txstr(str2)
[
and loop forever
goto 20
stop
end
[
***********************************
subroutine nocom
[
in case of a timeout error, this routine runs
[
put your error handler here.
[
write(*,*) char (7)
write(*,*)
′RS232
Tiemout Error!
′
stop
end