ZX81 Listing for codes.p


ZX81 program listing for *CODE SEARCHER*SLR/1984

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16926
VARS  : 17719
E-LINE: 17720
STKBOT: 17720
STKEND: 17720

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

  10 REM *CODE SEARCHER*SLR/1984
  20 DIM A$(4)
  30 LET B$="...."
  40 PRINT "ENTER A NUMBER WORD"
  50 INPUT A$
  60 LET K$="0123456789"
  70 FOR A=1 TO 10
  80 SCROLL
  90 PRINT B$
 100 FOR B=1 TO 4
 110 IF K$(A)=A$(B) THEN LET B$(
B)=K$(A)
 120 NEXT B
 130 NEXT A
 140 SCROLL
 144 PRINT B$
 148 SCROLL
 150 IF A$=B$ THEN PRINT "I GOT 
IT***"
 160 IF NOT A$=B$ THEN PRINT "YO
U CHEATED..."
 170 FOR A=1 TO 10
 180 SCROLL
 190 NEXT A
 200 PRINT "PRESS A KEY TO START
 AGAIN..."
 210 PAUSE 4E4
 220 CLS
 230 RUN
 300 SAVE "CODES"
 310 RUN