[

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

44