$20
[ TEST FOR THE BECKLINC
#STR    SETi2
LST-1
LDAi
6000
OPR 13 [ ENABLE BECKMAN
[ GET SET
#SRC    SNSi0 [CHANCE TO HOLD IT UP
JMP SRC
RSW
COM
ADD 6
AZEi
JMP p+5 [ SAME RSW AS LAST
[ NEW COUNT
SETi5
1777 [ FORCE PRINT
RSW
STC 6
LDAi
6004
OPR 13 [ READ BECKMAN
AZEi
JMP SRC [ WAIT UNTILL READY
XSK 6
JMP SRG
[ VAL WAS 1777
ADAi
-1
AZE
JMP SRC [ COUNT UNCHANGED
JMP PRT [ PRINT NEW COUNT
[ VAL WAS NOT 1777
#SRG XSKi5
JMP SRC
[ FIX UP LOOP COUNT
ADD 6
COM
STC 5
[ PRINT RESULT
#PRT SET 4
2
LDAi4
TYP
AZE [ TEST FOR END
JMP p-3
JMP SRC
[ CONSTANTS
#LST    253
261
262
263
264
265
266
270
215
212
0
0