PROG : 16509
D-FILE: 16926
VARS : 17719
E-LINE: 17720
STKBOT: 17720
STKEND: 17720
9999 means line number
PRINT means treat as KEYWORD P
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