Source Code
10 PRINT AT 1,6;"% %N%U%M%B%E%R% %M%A%S%T%E%R% "
20 DIM A$(4)
30 DIM B$(4)
40 FOR N=1 TO 4
50 LET A$(N)="123456"(VAL "RND*5+1")
60 NEXT N
80 FOR A=21 TO 5 STEP -2
90 LET B=0
100 INPUT B$
105 IF B$(1)=" " OR B$(2)=" " OR B$(3)=" " OR B$(4)=" " THEN GOTO 100
110 PRINT AT A,9;B$
120 LET C$=A$
130 FOR E=1 TO 4
140 IF B$(E)<>C$(E) THEN GOTO 190
150 PRINT AT A,B;"\;;"
160 LET B=B+2
170 LET B$(E)="\.."
175 IF B>=8 THEN GOTO 310
180 LET C$(E)="\;;"
190 NEXT E
200 IF B>=8 THEN GOTO 310
210 FOR E=1 TO 4
220 FOR F=1 TO 4
230 IF C$(E)<>B$(F) THEN GOTO 280
240 PRINT AT A,B;"\.."
250 LET B=B+2
260 LET B$(F)="\.."
270 GOTO 290
280 NEXT F
290 NEXT E
300 NEXT A
310 PRINT AT 3,0;"GAME OVER" AND A=1;TAB 8;" ";A$,
320 IF A<>1 THEN PRINT INT VAL "11-A/2";" TRIES"
\n4000 PAUSE 40000
\n4010 CLS
\n4020 RUN
\n5000 PRINT AT 2,0;"NICE TRY" AND A=1;TAB 8;" ";A$,
\n5010 STOP
\n9998 SAVE "NUMBER MASTE%R"
\n9999 RUN
