44
[
print results to screen
write(*,2000) v1
2000
format(
′
Output
1
=
′
,G
1
0.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
