HP 8153A - Page 201

10
Example 6
Example 6
Function
This program runs the stability application, and at the end outputs the results to
the screen of the controller.
Listing
10 ON KBD GOTO Exit
20 ON INTR 7 GOSUB Pram_srq
30 !
40 INTEGER Appl_ready.Asamples
50 INTEGER T_total
60 REAL F(499)
70 !
80 T_total=30
90 Pmm=722
100 !
no OUTPUT Pmffi;’'*rst;^cls;*sre 128”
120 OUTPUT Pmin; "stat rpres”
130 OUTPUT Pmffi;''stat:oper:enab #H4000"
140 OUTPUT Pmm;"sensl:poH:atime ls;unit dbm”
150 OUTPUT Pmm;"prog1:name stability"
160 OUTPUT Pmm;''progl:niimb t.total, ” ; T_total
170 !
180 Appl_ready=0
190 OUTPUT P!nra;"progl:exec"
200 ENABLE INTR 7;2
210 !
220 REPEAT
230 UNTIL Appl_ready=l
240 !
250 BEEP
270 !
280 OUTPUT Pffiin: "progl rnurab? asamples"
290 ENTER PmmjAsaraples
300 REDIM F(Asamples-l)
310 !
320 OUTPUT Pmm;"proglinumb? result"
330 ENTER Pmm;F(*)
340 !
350 FOR I“0 TO Asamples-1
360 PRINT F(I)
370 NEXT I
380 !
390 WAIT 5.0
Remote Operation - Programming Examples 10-13