SRS Labs SR510 - 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