ZX81 Listing for smp.p


ZX81 program listing for **S.M.P.******SLR/1984*

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16967
VARS  : 17760
E-LINE: 17761
STKBOT: 17761
STKEND: 17761


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **S.M.P.******SLR/1984*
  20 FAST
  30 PRINT AT 20,5;"SINCLAIR MEM
O PAD"
  40 SCROLL
  50 FOR A=0 TO 31
  60 PRINT AT 20,A;"!"
  70 PAUSE 4E4
  80 LET A$=INKEY$
  90 IF A$=CHR$ 118 THEN GOTO 13
0
 100 IF A$=CHR$ 119 THEN GOTO 17
0
 110 IF A$=CHR$ 115 THEN GOTO 20
0
 120 IF CODE A$<11 OR CODE A$>63
THEN GOTO 70
 130 IF A$=CHR$ 118 THEN LET A$=
" "
 140 PRINT AT 20,A;A$
 150 NEXT A
 160 GOTO 40
 170 LET A=A-(A>0)
 180 PRINT AT 20,A;"! "
 190 GOTO 70
 200 PRINT AT 20,A;" "
 210 GOTO 40
 300 SAVE "SMP"
 310 RUN