10 (null)SQR0:(null) $A000,$B000
15 'WRITE"@0:RAM272,P,W"
20 (null)RND 272
30 (null)USR 1,1
40 DEFFNA(Q)=PEEK(252)*256+PEEK(251)
50 (null)1
100 (null)FRAMLO
110 (null)*
120 (null)CLR $0319
130 (null)STOP #1
140 (null)INPUT# (null)EXIT1
150 (null)/ (null)EXIT2 +2
160 (null)CLR $0318
170 (null)/ (null)EXIT2 +1
180 (null)CLR #$2E
190 (null)/ $0318
200 (null)CLR #1
210 (null)/ $0319
220 (null)EXIT1
230 (null)RETURN
240 (null)NOT
282 (null)HOLD
284 (null)ABS 0
320 (null)NMI
330 (null)GET
340 (null)<:(null)GET
350 (null)INT:(null)GET
360 (null)CLR (null)HOLD
370 (null)READ (null)EXITWAY
380 (null)CLR #1
430 (null)/ (null)HOLD
600 (null)CLR #$90
620 (null)CMD #$E0
640 (null)LIST (null)REU
650 (null)CLR #$91
670 (null)CMD #$F0
690 (null)LIST (null)REU
740 (null)LIST $8000
750 (null)CLR #$91
770 (null)CMD #$E0
790 (null)LIST (null)REU
795 (null)CLR #0
800 (null)/ (null)HOLD
825 (null)EXITWAY
830 (null)TAB(:(null)>
840 (null)TAB(:(null)OR
850 (null)TAB(
1000 (null)EXIT2
1010 (null)CONT $FE47
1100 (null)REU
1102 (null)/ (null)DUMP1 +1
1104 (null)^ (null)DUMP1 +5
1110 (null)SYS #10
1120 (null)LP3
1130 (null)CLR (null)DUMP1 ,Y
1140 (null)/ $DF00,Y
1150 (null)VERIFY
1160 (null)READ (null)LP3
2000 (null)DUMP1 (null)NOT
2010 (null)ABS $90,0,$80,0,$E0,3,0,16,0,0
2020 (null)REAR
55555 (null)2