ZX81 Listing for in2.p

Input Two*SLR/1984 (in2.p)

Enter ten words and be amazed.

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16992
VARS  : 17785
E-LINE: 17786
STKBOT: 17786
STKEND: 17786

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

  10 REM ***INPUT TWO***
  20 REM 1984/SLR
  30 DIM A$(10,2,10)
  40 PRINT "INPUT 10 WORDS"
  50 FOR A=1 TO 10
  60 PRINT "WORD:";A
  70 INPUT A$(A,1)
  80 NEXT A
  90 CLS
 100 PRINT "PLEASE WAIT..."
 105 FOR A=1 TO 10
 110 FOR D=1 TO 10
 120 LET A$(A,2,D)=A$(A,1,10-D+1
)
 130 NEXT D
 140 NEXT A
 150 CLS
 160 PRINT "YOUR 10 WORDS FORWAR
D AND BACK- WARDS ARE:"
 170 FOR A=1 TO 10
 190 PRINT A$(A,1);A$(A,2)
 200 NEXT A
 210 PRINT "THATS ALL..."
 220 PAUSE 4E4
 230 CLS
 240 RUN
 300 SAVE "IN2"
 310 RUN