10 CLS:WIDTH20,8:MEMSET&HB00:DEFINTA-Z
20 OPTIONBASE1:DIMA(3,6,6),B(2,36),C(64),D(16)
30 LOCATES0,0,0:LOCATE6,2,0:PRINT"Triplets";:GOSUB700
40 A=((VAL(LEFT$(TIME$,2))MOD6)*3600)+VAL(MID$(TIME$,4,2))*60+VAL(RIGHT$(TIME$,2))
50 RANDOMIZEA:POKE&H11E,&HA:POKE&H11F,&H40
60 FORI=&HA40 TO&HA51:READJ$:J=VAL("&H"+J$):POKEI,J:NEXTI
70 FORI=1TO64:READJ$:J=VAL("&H"+J$):C(I)=J:NEXTI:FORI=1TO16:READD(I):NEXTI
80 GOSUB300:GOSUB310:GOSUB360:M=1:N=1:E=1
90 GOSUB680:IFF=1THEN100ELSEGOSUB370:GOSUB380:GOTO130
100 A$=INPUT$(1):A=ASC(A$):IFA=13THEN120ELSEA=A-27
110 IFA<1ORA>4THEN100ELSESOUND20,1:K=M:L=N:ONA GOSUB440,450,460,470
120 IFA<>13THENGOSUB480:GOSUB500:GOTO100ELSEGOSUB520:IFE=2THENGOSUB700:GOTO100
130 GOSUB510:PRINTCHR$(143);:ONF GOSUB710,720:Z=0:E1=0:E2=0:F0=0
140 IFA(1,M,N)=2THENGOSUB540
150 IFA(2,M,N)=2THENGOSUB540
160 A(1,M,N)=3:A(2,M,N)=3:FORI=1TO6:E1=E1*2+A(1,I,N)\3
170 E2=E2*2+A(2,M,I)\3:NEXTI:E1=C(E1+1):E2=C(E2+1)
180 IFE1=4095THENGOSUB540
190 IFE2=4095THENGOSUB540
200 FORI=1TO6:A(1,7-I,N)=E1 MOD4:A(2,M,7-I)=E2 MOD4:E1=E1\4:E2=E2\4:NEXTI
210 FORI=1TO6:E0=A(1,I,N)*4+A(2,I,N)+1:A(3,I,N)=D(E0)
220 E0=A(1,M,I)*4+A(2,M,I)+1:A(3,M,I)=D(E0):NEXTI:F1=0:F2=0:F3=0
230 FORJ=1TO6:FORI=1TO6:ONA(1,I,J)+1GOSUB590,580,600,690
240 ONA(2,I,J)+1GOSUB590,580,600,690:NEXTI,J
250 ON(F1+F2+F3+1)GOSUB640,630,620,620,610,610,610,610
260 GOSUB530:GOSUB670:GOSUB550:IFE2$=CHR$(64)THEN280
270 IFF0=0THENGOSUB430:GOTO90ELSE90
280 CLS:PRINTCHR$(150)+STR$(W(1)):PRINTCHR$(153)+STR$(W(2)):GOSUB700
290 END
300 CLS:INPUT"–/™ (1/2)";F:IFF=1ORF=2THENRETURNELSE300
310 CLS:E$=CHR$(134)+STRING$(6,144)+CHR$(134)
320 LOCATE0,0,0:PRINTCHR$(135)+STRING$(6,133)+CHR$(136);
330 FORI=1TO3:LOCATE0,I,0:PRINTE$;:NEXTI:FORI=0TO2:LOCATE8,I,0:PRINTE$;:NEXTI
340 LOCATE8,3,0:PRINTCHR$(137)+STRING$(6,133)+CHR$(138);
350 LOCATE19,0,0:PRINTCHR$(150);:LOCATE19,1,0:PRINTCHR$(153);:RETURN
360 FORJ=1TO6:FORI=1TO6:A(1,I,J)=0:A(2,I,J)=0:A(3,I,J)=4:NEXTI,J:RETURN
370 FORJ=0TO5:FORI=0TO5:W=J*6+I+1:B(1,W)=W:B(2,W)=A(3,I+1,J+1):NEXTI,J:RETURN
380 FORI=35TO1STEP-1
390 ONSGN(B(2,I)-B(2,I+1))+2GOTO410,400,420
400 ONCINT(2*RND+1)GOTO420,410
410 SWAPB(1,I),B(1,I+1):SWAPB(2,I),B(2,I+1)
420 NEXTI:M=(B(1,1)-1)MOD6+1:N=(B(1,1)-1)\6+1:RETURN
430 F=F MOD2+1:IFF=1THENGOSUB700:RETURNELSERETURN
440 M=M MOD6+1:RETURN
450 M=(M+4)MOD6+1:RETURN
460 N=(N+4)MOD6+1:RETURN
470 N=N MOD6+1:RETURN
480 SWAPK,M:SWAPL,N:GOSUB510:GOSUB520
490 GOSUB650:SWAPK,M:SWAPL,N:RETURN
500 GOSUB510:GOSUB520:GOSUB660:RETURN
510 X=M+(N\4)*8:Y=N-(N\4)*4:LOCATEX,Y,0:RETURN
520 IFA(3,M,N)=1THENE=2ELSEE=1:RETURNELSERETURN
530 W(F)=W(F)+Z:Z=0:RETURN
540 Z=Z+3:F0=1:RETURN
550 E3$=STR$(W(F)):E0=LEN(E3$):E3$=RIGHT$(E3$,E0-1)
560 E3$=STRING$(3,32)+E3$:E3$=RIGHT$(E3$,3)
570 LOCATE16,F-1,0:PRINTE3$:RETURN
580 F1=1:RETURN
590 IFA(3,I,J)>3THENF2=2:RETURNELSERETURN
600 F3=4:RETURN
610 E2$=CHR$(143):RETURN
620 E2$=CHR$(144):RETURN
630 E2$=CHR$(224):RETURN
640 E2$=CHR$(64):RETURN
650 E1$=CHR$(145-E):PRINTE1$;:RETURN
660 E1$=CHR$(224+E):PRINTE1$;:RETURN
670 LOCATE17,3,0:PRINTE2$;:RETURN
680 LOCATE18,3,0:PRINTCHR$(147+F*3);:RETURN
690 RETURN
700 FORI=1TO21STEP10:SOUNDI,1:NEXTI:RETURN
710 FORI=1TO112STEP7:SOUNDI,1:NEXTI:RETURN
720 FORI=1TO112STEP8:SOUNDI,1:NEXTI:RETURN
730 DATA 56,25,2F,25,56,00,3E,22,22,22,3E,00,3E,3E,3E,3E,3E,00
740 DATA000,017,05D,02F,175,17B,0BE,03F,5D4,5D3,5EC,5CF,2F8,2F3,0FC,5FF
750 DATA750,757,75D,76F,3B5,3BB,33E,77F,BE0,BE3,BCC,BDF,3F0,7F7,7FD,BFF
760 DATAD40,D57,D5D,D6F,C75,C3B,CBE,D7F,ED4,EC3,EEC,EDF,CF8,DF7,DFD,EFF
770 DATAF80,F97,F9D,FAF,F35,F7B,F7E,FBF,FC0,FD7,FDD,FEF,FF5,FFB,FFE,FFF
780 DATA4,3,5,1,3,2,7,1,5,7,6,1,1,1,1,1