Listing of file='MASTER' on disk='vmedia/best_of_BD_fules.wvd.zip'
# Sector 497, program filename = 'MASTER'
0010 PRINT HEX(03);"INPUT --- # -RIGHT AND/OR RIGHT PLACE, @ -JUST RIGHT COLOR
S, ^ -RIGHT PLACED COLORS";
: INPUT D4$
0020 DIM A(5),B(5)
0030 FOR I=1TO 3
: PRINT HEX(03060A0A0A0A0A0A0A);TAB(25);"MASTERMIND!!"
: FOR L0=1TO 50
: NEXT L0
: PRINT HEX(03)
: FOR L0=1TO 50
: NEXT L0
: NEXT I
0040 PRINT HEX(03)
: FOR I=1TO 5
: A(I)=0
: NEXT I
: G=6
0050 FOR I=1TO 4
: A=INT(RND(1)*5)+1
: IF A(A)=1THEN 60
: RESTORE A
: READ A$
: STR(J8$,I*4-3,1)=A$
: A(A)=1
: NEXT I
: GOTO 80
0060 I=I-1
: NEXT I
0070 DATA "R","G","B","Y","W"
0080 I=0
: KEYIN A$,90,80
: GOTO 80
0090 RESTORE
0100 I=I+1
: IF I>5THEN 80
: READ B$
: IF A$<>B$THEN 100
0110 IF B(I)=1THEN 80
: B(I)=1
: B=B+1
: STR(J9$,B*4-3,1)=A$
: PRINT HEX(01);
0120 IF A(I)=1THEN 130
: FOR T=1TO G
: PRINT
: NEXT T
: PRINT TAB(20);J9$
: IF B>3THEN 180
: GOTO 80
0130 IF D4$<>"#"THEN 140
: J0=J0+1
0140 K=K+1
: IF K>4THEN 150
: IF STR(J8$,K*4-3,1)=A$THEN 160
: GOTO 140
0150 I,K=0
: FOR T=1TO G
: PRINT
: NEXT T
: PRINT TAB(20);J9$
: IF B>3THEN 180
: GOTO 80
0160 IF D4$="@"THEN 170
: IF B=KTHEN 170
: GOTO 150
0170 J1=J1+1
: IF D4$="#"THEN 150
: J7=J7+1
: STR(J7$,J7*4-3,1)=A$
: GOTO 150
0180 IF J9$=J8$THEN 210
: PRINT HEX(01);
: FOR T=1TO G
: PRINT
: NEXT T
: IF D4$="#"THEN 190
: PRINT TAB(20);J9$;" ";J7$
: GOTO 200
0190 PRINT TAB(20);J9$,J0;J1
0200 G=G+1
: B,J7,J0,J1=0
: J9$=" "
: FOR I=1TO 5
: B(I)=0
: NEXT I
: GOTO 80
0210 FOR I=1TO 100
: NEXT I
: PRINT HEX(030A0A0A0A0A0A);TAB(25);"RIGHT"
: PRINT
: PRINT
: INPUT "PLAY AGAIN",C$
: FOR I=1TO 5
: A(I),B(I)=0
: NEXT I
: J7$,J8$,J9$=" "
: I,K,J7,B=0
: IF STR(C$,1,1)="Y"THEN 40
: END