CAT #3
1 REM CAT#3 Degtyar Oleg Nowowolynsk tel.(03344) 3-49-94
5 LPRINT : LPRINT CHR$ 3;
7 LPRINT "Z"
10 CLEAR 31999: RANDOMIZE USR 15619: REM: LOAD "cat #3" CODE
20 CLS: INPUT "N=";A
25 POKE 32034, A: POKE 32113, A
30 INPUT "Printer ? y/n ";B$
40 IF B$="n" THEN GO SUB 100: GO TO 200
50 IF B$="y" THEN GO SUB 100: POKE 32017,3: GO SUB
100: POKE 32017,2: GO TO 200
60 GO TO 30
100 RANDOMIZE USR 32000: RETURN
200 PAUSE 0: GO TO 20
9000 RANDOMIZE USR 15619: REM: SAVE "CAT#3"
9999 RANDOMIZE USR 15619: REM: SAVE "cat#3" CODE 32000, 149