HP 8153A - Page 199

Example 5
330 GOTO 690
335
j
340 Pmm_8rqj Value=SPQLL(®Pinm)
346
[
360 Ypos=3
366
i
360
FOR Z«0 TO 1
370
B=128
380 Xpos*7
385
1
390 REPEAT
400
Quot«Value DIV B
410
IF Quot>0 THEM
420
PRINT TABXY(Xpos,Yp
430
Value=Value-B
435
1
440 IF Z=0 THEN
450 IF B=16 THEN
460
ENTER ®Pmin;A$
470 PRINT TABXY(21,
480 PRINT TABXY(21,
490 END IF
500
END IF
505
1
510 ELSE
520 PRINT TABXY(Xpos,Yp
530
END IF
540 B=B DIV 2
550 Xpos=Xpos-t-4
560 UNTIL B=0
565
1
570
OUTPUT @Piam; "*esr?'’
580 ENTER ®Ptnm;Value
590 Ypos=i2
595
1
600 NEXT Z
605
1
610
REPEAT
620 OUTPUT QPmra;"syst:err?"
630 ENTER QPmmjValue
640 IF VALUEOO THEN PRINT '
650 UNTIL Value=0
655
!
660
OUTPUT aPramj"*cls"
670 ENABLE INTR 7
680 RETURN
686
!
690
END
Remote Operation • Programming Examples 10-11