10 CLS:MEMSET:WIDTH20,16
20 DIMB(13),G(13),F(50)
30 READN:DATA 0
40 E=0
50 FORI=0TO12:B(I)=3:NEXTI
60 B(6)=0:B(13)=0:C=0:F(N)=0
70 GOSUB340
80 LOCATE0,0,0:PRINT"–"+SPACE$(8);:LOCATE1,0,0:GOSUB210
90 IFE=0THEN160
100 IFM=H THENGOSUB200
110 IFE=0THEN160
120 LOCATE0,0,0:PRINT"™!"+SPACE$(8);:LOCATE3,0,0:GOSUB500
130 IFE=0THEN160
140 IFM=H THENPRINT",";:GOSUB500ELSEPRINTSPACE$(8);
150 IFE>0THEN70
160 LOCATES0,0,0:D=B(6)-B(13):IFD<0THENGOSUB710
170 N=N+1:IFD=0THENGOSUB720
180 IFD>0THENGOSUB700
190 GOTO40
200 LOCATE0,0,0:PRINT"–"+SPACE$(8);:LOCATE1,0,0
210 INPUTM:IFM<7THENIFM>0THENM=M-1:GOTO230
220 SOUND20,1:GOTO200
230 IFB(M)=0THEN220
240 H=6:GOSUB260
250 GOTO340
260 K=M:GOSUB440
270 E=0:K=K MOD7
280 C=C+1:IFC<9THENF(N)=F(N)*6+K
290 FORI=0TO5:IFB(I)<>0THEN320
300 NEXTI
310 RETURN
320 FORI=7TO12:IFB(I)<>0THENE=1:RETURN
330 NEXTI:RETURN
340 LOCATE0,1,0
350 FORI=12TO7STEP-1:GOSUB420
360 NEXTI
370 PRINT:I=13:GOSUB420
380 PRINTSTRING$(12,32);:PRINTUSING"###";B(6)
390 FORI=0TO5:GOSUB420
400 NEXTI
410 RETURN
420 PRINTUSING"###";B(I);
430 RETURN
440 P=B(M):B(M)=0
450 FORP=P TO1STEP-1:M=M+1:M=M MOD14
460 B(M)=B(M)+1:NEXTP
470 IFM<>6ANDM<>13THENIFB(M)=1ANDB(12-M)<>0THEN490
480 RETURN
490 B(H)=B(H)+B(12-M)+1:B(M)=0:B(12-M)=0:RETURN
500 D=-99:H=13
510 FORI=0TO13:G(I)=B(I):NEXTI
520 FORJ=7TO12:IFB(J)=0THEN660
530 G=0:M=J:GOSUB440
540 FORI=0TO5:IFB(I)=0THEN590
550 L=B(I)+I:R=0
560 R=L\14:L=L MOD14:R=SGN(R)
570 IFL<>6ANDL<>13THENIFB(L)=0THENR=B(12-L)+R
580 IFR>Q THENQ=R
590 NEXTI
600 Q=B(13)-B(6)-Q:IFC>8THEN640
610 K=J:K=K MOD7
620 FORI=0TON-1:IFF(N)*6+K=INT(F(I)/6^(7-C)+.1)THENQ=Q-2
630 NEXTI
640 FORI=0TO13:B(I)=G(I):NEXTI
650 IFQ>=D THENA=J:D=Q
660 NEXTJ
670 M=A:PRINTCHR$(42+M);:GOTO260
680 FORI=0TON-1:PRINTB(I):NEXTI
690 END
700 FORI=1TO3:FORJ=56TO51STEP-1:SOUNDJ,1:SOUND51,1:SOUND56,1:NEXTJ,I:RETURN
710 FORI=1TO2:FORJ=56TO1STEP-4:SOUNDJ,1:SOUNDJ+1,1:NEXTJ,I:RETURN
720 FORI=1TO3:FORJ=1TO56STEP3:SOUNDJ,1:NEXTJ,I:RETURN

    Source: geocities.com/abcmcfarren/hx20

               ( geocities.com/abcmcfarren)