10 CLS
20 WIDTH20,8
30 DEFINTA-Z
40 OPTIONBASE0
50 A$=TIME$
60 A1$=LEFT$(A$,2):A2$=MID$(A$,4,2):A3$=RIGHT$(A$,2)
70 A=(VAL(A1$)MOD6)*3600+VAL(A2$)*60+VAL(A3$)
80 RANDOMIZEA
90 FORI=0TO18STEP9:FORJ=0TO3
100 LOCATEI,J:PRINT"";
110 NEXTJ,I
120 FORI=1TO4
130 K(I)=INT(RND*6)+1
140 N$(I)=RIGHT$(STR$(K(I)),1)
150 NEXTI
160 FORZ=1TO8
170 FORI=1TO4
180 M$(I)=INPUT$(1)
190 L(I)=VAL(M$(I))
200 IFL(I)<1ORL(I)>6THEN210ELSE220
210 SOUND1,1:GOTO180
220 LOCATE((Z-1)\4)*9+I,(Z-1)MOD4
230 SOUND20,1:PRINTM$(I);
240 NEXTI
250 FORI=1TO4
260 M(I)=L(I)
270 N(I)=K(I)
280 NEXTI
290 BLK=0
300 FORI=1TO4
310 IFM(I)=N(I)THEN320ELSE330
320 BLK=BLK+1
330 NEXTI
340 WHT=0
350 FORI=1TO4:FORJ=1TO4
360 IFM(J)=N(I)THEN370ELSE390
370 WHT=WHT+1
380 M(J)=0:N(I)=7
390 NEXTJ,I
400 LOCATE((Z-1)\4)*9+5,(Z-1)MOD4:PRINT"";
410 FORI=1TOWHT
420 LOCATE((Z-1)\4)*9+I+4,(Z-1)MOD4
430 PRINT"";
440 NEXTI
450 FORI=1TOBLK
460 LOCATE((Z-1)\4)*9+I+4,(Z-1)MOD4
470 PRINT"";
480 NEXTI
490 SOUND1,1:SOUND11,1:SOUND21,1
500 IFBLK=4THEN530
510 NEXTZ
520 GOTO580
530 LOCATE19,0,0:PRINT"";
540 FORI=1TO3:FORJ=56TO51STEP-1
550 SOUNDJ,1:SOUND51,1:SOUND56,1
560 NEXTJ,I
570 GOTO630
580 LOCATE19,0,0:PRINT"";
590 FORI=1TO2:FORJ=56TO1STEP-4
600 SOUNDJ,1:SOUNDJ+1,1
610 NEXTJ,I
620 GOTO630
630 FORI=1TO4
640 LOCATE9+I,3
650 PRINTN$(I);
660 NEXTI
670 A$=INPUT$(1)
680 LOCATES0,0,0
690 CLS
700 GOTO 90
