10 CLS:WIDTH20,8:MEMSET&HBC0:DEFINTA-Z:OPTIONBASE1
20 DIMA(90),B(90),C(90),D(291),A$(90),B$(8),C$(6)
30 CLS:LOCATES0,0:LOCATE7,2:PRINT"Coins";:GOSUB620:GOSUB630
40 A=VAL(RIGHT$(TIME$,2)):RANDOMIZEA:POKE&H11E,&H0A:POKE&H11F,&H40
50 RESTORE790:FORI=&HA40 TO&HAE1:READJ$:J=VAL("&H"+J$):POKEI,J:NEXTI
60 RESTORE870:FORI=&HB00 TO&HBA1:READJ$:J=VAL("&H"+J$):POKEI,J:NEXTI
70 RESTORE640:FORI=1TO90:READA$(I):NEXTI
80 RESTORE700:FORI=1TO90:READA(I):NEXTI
90 K=0:FORI=1TO90:B(I)=A(I)\20:B(I)=LOG(B(I)):FORJ=1TOB(I):K=K+1:D(K)=I:NEXTJ,I
100 FORI=1TO290:J=INT(RND*290)+1:SWAPD(I),D(J):NEXTI
110 RESTORE760:FORI=1TO3:B$="":FORJ=1TO8:READK:B$=B$+CHR$(K):NEXTJ:B$(I)=B$:NEXTI
120 FORI=5TO8:READB$(I):NEXTI
130 FORI=1TO6:C$(I)=STRING$(5,144)+CHR$(32)+STRING$(5,144)+CHR$(32)+STRING$(5,144):NEXTI
140 E=1:F=1:M=1509:N=0:O=1
150 CLS:FORI=1TO6:LOCATE0,I-1:PRINTC$(I);:NEXTI:GOSUB430:LOCATES0,0
160 A$=INPUT$(1):A=ASC(A$):IFA=32THENGOSUB450:GOTO160
170 IFA=13THENONF GOTO220,180,220,180:ELSEGOSUB610:GOTO160
180 GOSUB570:GOSUB590
190 A$=INPUT$(1):A=ASC(A$):IFA=13THENGOTO310ELSEA=A-27
200 IFA<1ORA>5THENGOSUB610:GOTO190
210 GOSUB580:ONA GOSUB530,540,550,560:GOSUB570:GOSUB590:GOTO190
220 CLS:GOSUB480:GOSUB430:LOCATES0,0
230 W=D(O):Z=W\52+1:ONZ GOSUB410,420:GOSUB470
240 W$=CHR$(153):GOSUB510:N=60\(B(W)+C(W)):GOSUB490
250 A$=INPUT$(1):A=ASC(A$):IFA=32THENGOSUB450:GOTO250
260 IFA=13THENONF GOTO 270,310,290,150ELSEGOSUB610:GOTO250
270 IFC(W)=0THENGOSUB600:MID$(C$(L),K)=CHR$(143)
280 B(W)=B(W)-1:C(W)=C(W)+1:M=M-N:O=O+1:IFO=292THENGOTO400ELSEGOSUB520:GOTO230
290 IFB(W)+C(W)=1THENGOSUB610:GOTO230
300 B(W)=B(W)-1:O=O+1:IFO=292THENGOTO400ELSEGOSUB520:GOTO230
310 CLS:GOSUB480:GOSUB430:LOCATES0,0
320 W=E:Z=W\52+1:ONZ GOSUB410,420:GOSUB470
330 W$=CHR$(150):GOSUB510:N=48\(B(W)+C(W)):GOSUB490
340 A$=INPUT$(1):A=ASC(A$):IFA=32THENGOSUB450:GOTO340
350 IFA=13THENONF GOTO 220,360,390,150ELSEGOSUB610:GOTO340
360 IFC(W)=0ORB(W)+C(W)=1THENGOSUB610:GOTO320
370 IFC(W)=1THENGOSUB600:MID$(C$(L),K)=CHR$(144)
380 C(W)=C(W)-1:M=M+N:E=E MOD90+1:GOTO320
390 E=E MOD90+1:GOTO320
400 CLS:PRINTUSING"$$####";M;:GOSUB620:GOSUB630:END
410 POKE&H11E,&HA:POKE&H11F,&H40:RETURN
420 POKE&H11E,&HB:POKE&H11F,&H00:RETURN
430 LOCATE17,0:PRINT"B";:LOCATE17,1:PRINT"S";:LOCATE17,2:PRINT"P";:LOCATE17,3:PRINT"V";
440 LOCATE18,F-1:PRINTCHR$(64);:RETURN
450 LOCATE18,F-1:PRINTCHR$(32);:F=F MOD4+1
460 LOCATE18,F-1:PRINTCHR$(64);:SOUND20,1:RETURN
470 FORK=0TO3:LOCATE0,K:PRINTB$(K+1);:NEXTK:RETURN
480 FORK=0TO3:LOCATE9,K:PRINTB$(K+5);:NEXTK:RETURN
490 LOCATE11,0:PRINTUSING"$$###";M;:LOCATE15,1:PRINTUSING"#";C(W);
500 LOCATE15,2:PRINTUSING"#";B(W);:LOCATE12,3:PRINTUSING"$$##";N;:RETURN
510 LOCATE0,3:PRINTW$+CHR$(32)+A$(W);:RETURN
520 FOR K=115TO119:LINE(K,0)-(K,O\12),PSET:NEXTK:RETURN
530 E=E MOD90+1:RETURN
540 E=(E+88)MOD90+1:RETURN
550 E=(E+84)MOD90+1:RETURN
560 E=(E+4)MOD90+1:RETURN
570 X=((E-1)\30)*6+(E-1)MOD5:Y=((E-1)\5)MOD6:RETURN
580 LOCATEX,Y:PRINTCHR$(144-SGN(C(E)));:RETURN
590 LOCATEX,Y:PRINTCHR$(250-SGN(C(E)));:RETURN
600 K=((W-1)\30)*6+(W-1)MOD5+1:L=((W-1)\5)MOD6+1:RETURN
610 SOUND1,1:SOUND11,1:SOUND21,1:RETURN
620 FORI=1TO3:FORJ=56TO51STEP-1::SOUNDJ,1:SOUND51,1:SOUND56,1:NEXTJ,I:RETURN
630 FORI=1TO2:FORJ=56TO1STEP-4:SOUNDJ,1:SOUNDJ+1,1:NEXTJ,I:RETURN
640 DATA 1941P,1941D,1941S,1942P,1942D,1942S,1943P,1943D,1943S,1944P,1944D,1944S,1945P,1945D,1945S
650 DATA 1946P,1946D,1946S,1947P,1947D,1947S,1948P,1948D,1948S,1949P,1949D,1949S,1950P,1950D,1950S
660 DATA 1951P,1951D,1951S,1952P,1952D,1952S,1953P,1953D,1953S,1954P,1954D,1954S,1955P,1955D,1955S
670 DATA 1956P,1956D,1957P,1957D,1958P,1958D,1959P,1959D,1960P,1960D,1961P,1961D,1962P,1962D,1963P
680 DATA 1963D,1964P,1964D,1965P,1966P,1967P,1968P,1968D,1968S,1969P,1969D,1969S,1970P,1970D,1970S
690 DATA 1971P,1971D,1971S,1972P,1972D,1972S,1973P,1973D,1973S,1974P,1974D,1974S,1975P,1975D,1975S
700 DATA 887,128,92,657,206,85,684,217,191,1435,430,282,1040,226,181
710 DATA 991,315,198,190,194,99,317,172,81,217,154,64,272,335,118
720 DATA 294,625,100,186,746,137,256,700,181,71,251,96,331,563,44
730 DATA 421,1098,283,1051,253,801,610,1279,588,1580,756,1753,609,1793,757
740 DATA 1174,2652,3799,1497,2188,3048,1707,2886,261,1136,4002,547,1898,2891,693
750 DATA 1919,2911,525,2933,2665,380,3728,3549,319,4232,4235,412,5000,5000,40
760 DATA 225,226,227,228,237,238,239,240,229,230,231,232
770 DATA 241,242,243,244,233,234,235,236,245,246,247,248
780 DATA "$:  ","FOLD:","CIRC:","VAL:"
790 DATA 56,25,2F,25,56,00
800 DATA 00,00,C0,20,10,08,04,84,E2,F2,7A,FA,5A,1A,32,E2,C4,04,08,10,20,C0,00,00
810 DATA 00,FF,00,00,00,00,80,C3,E7,BF,BC,20,59,96,F0,39,36,00,00,00,00,00,FF,00
820 DATA 00,00,03,04,08,12,27,2F,4F,5F,5F,5F,5E,58,5F,4F,2E,24,10,08,04,03,00,00
830 DATA 00,00,C0,20,10,C8,E4,64,02,02,02,02,02,02,02,02,64,E4,C8,10,20,C0,00,00
840 DATA 00,FF,00,3C,FF,FF,C3,00,00,00,00,00,00,00,00,00,00,C3,FF,FF,3C,00,FF,00
850 DATA 00,00,03,04,08,13,27,2E,48,50,40,40,40,40,50,48,2E,27,13,08,04,03,00,00
860 DATA 3E,3E,3E,3E,3E,00,3E,22,22,22,3E,00
870 DATA 56,25,2F,25,56,00
880 DATA 00,00,C0,20,10,08,04,84,E2,F2,7A,FA,5A,1A,32,E2,C4,04,08,10,20,C0,00,00
890 DATA 00,FF,00,00,00,00,80,C3,E7,BF,BC,20,59,96,F0,39,36,00,00,00,00,00,FF,00
900 DATA 00,00,03,04,08,12,27,2F,4F,5F,5F,5F,5E,58,5F,4F,2E,24,10,08,04,03,00,00
910 DATA 00,00,C0,20,10,08,04,04,02,02,02,02,02,02,02,02,04,04,08,10,20,C0,00,00
920 DATA 00,FF,00,00,C0,FE,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FE,C0,00,00,FF,00
930 DATA 00,00,03,04,08,10,20,20,40,40,40,40,40,40,40,40,20,20,10,08,04,03,00,00
940 DATA 3E,3E,3E,3E,3E,00,3E,22,22,22,3E,00
