Number Master

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"
4000 PAUSE 40000
4010 CLS 
4020 RUN 
5000 PRINT AT 2,0;"NICE TRY" AND A=1;TAB 8;" ";A$,
5010 STOP 
9998 SAVE "NUMBER MASTE%R"
9999 RUN