HP 8112A, Operating, Programming And Servicing Manual

Page: 101 / 406

190 PRINT "Every two s econds delay is incremented by 1 ms and width is decremented"
200 PRINT "by 2 ms . . . "
210 PRINT
220
230
! Delay and Width loop
240
250
FOR I=O TO 10
260 New_del=9+I * 1
270 New_wid=22- I*2
280
290
300
GOSUB Display ! Print the values for the Setup and Hold t ime
3 10 OUTPUT Addr ; "DEL " ; New_del ; "MS"
320 OUTPUT Addr ; "WID " ; New_wid ; "MS"
330
340
WAIT 2
350
NEXT I
360
370
LOCAL Addr
380
PRINT
Turn HP8 1 12A back to Local mode
390 PRINT "End of the program DEL_WID . 11
400 STOP
410
420
! - - - - - - - - - - - - - - -- - - - - - - -------------- - - - - - - - - - - - - - - - - - - - - - - - -
430
440 D isplay : ! Display the current values of Delay and Width
450
PRINT "Delay = 11 ;
460 PRINT USING "ZZ . DD , #" ; New_del
470 PRINT " ms Width = " ;
480 PRINT USING " ZZ . DD , 11 11 ms '""' ; New_wid
490 RETURN
500
END
Programming Examples 7 -9