Sinclair ZX80 / ZX81 / Z88 Forums

Code: Select all

1 REM YY@D3@DFYY@D3@0F@C9
2 GOTO 7 
3 POKE A,D 
4 POKE B,C
5 LET X=USR E 
6 RETURN 
7 LET A=16515 
8 LET B=16519 
9 LET E=16514 
10 IF INKEY$="" THEN GOTO 10 
20 LET K$=INKEY$ 
25 IF K$="0" THEN LET K$="10" 
30 GOTO VAL K$*100 
40 LET Y=LEN A$ 
50 FOR N=1 TO Y-4 STEP 5 
60 LET D=VAL A$(N TO N+1) 
70 LET C=VAL A$(N+2 TO N+4)
80 GOSUB 3 
90 NEXT N 
95 RETURN 
100 LET A$="0603107007060160901610016"
110 GOSUB 40 
120 GOTO 10 
200 LET A$="0600507007080160901610016" 
210 GOSUB 40
220 GOTO 10 
300 LET A$="001320100107056080160900010000" 
310 GOSUB 40 
320 GOTO 10
400 LET A$="0013201001020520300107056080160901610000"
410 GOSUB 40 
420 GOTO 10 
500 LET A$="00132010010205203001040030500107056080160901610016" 
510 GOSUB 40 
520 GOTO 10
600 LET A$="1201013000" 
610 GOSUB 40 
620 GOTO 10 
700 LET A$="1205613000"
710 GOSUB 40 
720 GOTO 10
800 LET A$="1205613014" 
810 GOSUB 40 
820 GOTO 10 
900 LET A$="1200113008" 
910 GOSUB 40 
920 GOTO 10 
1000 LET A$="08000090001000013000"
1010 GOSUB 40
1020 GOTO 10 
9997 SAVE"ZONX"
9998 PRINT"KEY 0-9:"
9999 RUN