1 '*Punch Card Jam(1)
10 @LED
11 ?"LED ";O:IFR=1LRUN0,15
12 IFR=2LRUN0,37
13 LEDO:LRUN0,37
20 @WAIT
21 ?"WAIT ";O*60:IFR=1LRUN0,15
22 IFR=2LRUN0,37
23 WAITO*60:LRUN0,37
30 @BEEP
31 ?"BEEP":IFR=1LRUN0,15
32 IFR=2LRUN0,37
33 BEEP:LRUN0,37
80 @LABEL
81 ?"@";O:IFR=1LRUN0,15
82 LRUN0,37
90 @GOTOL
91 ?"GOTO @";O:IFR=1LRUN0,15
92 IFR=2LRUN0,37
93 A=[80+O]-1:LRUN0,37
100 @IFBTN
101 ?"IF BTN()=";O;" THEN ";:T=1:IFR=1LRUN0,15
102 IFR=2LRUN0,37
103 T=(BTN()=O):IF!T?
104 LRUN0,37
120 @FOR
121 ?"FOR I=1 TO ";O:IFR=1LRUN0,15
122 IFR=2LRUN0,37
123 I=1:J=O:S=A:LRUN0,37
130 @NEXT
131 ?"NEXT":IFR=1LRUN0,15
132 IFR=2LRUN0,37
133 I=I+1:IFI<=JA=S
134 LRUN0,37
150 @END
151 ?"END":IFR=1LRUN0,15
152 IFR=2LRUN0,37
153 A=Z:LRUN0,37