Home » CEEFAX disks » telesoftware12.adl » 20-01-89/Fruits!
20-01-89/Fruits!
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » CEEFAX disks » telesoftware12.adl |
| Filename: | 20-01-89/Fruits! |
| Read OK: | ✔ |
| File size: | 2E8E bytes |
| Load address: | FFFF1900 |
| Exec address: | FFFF8023 |
File contents
10 REM FRUITS!
20 REM by Jason Price
30 REM (c) The Micro User
40 MODE4
50 VDU 23;8202;0;0;0;
60 PROCindata
70 PROCudgs
80 PROCreels
90 PROCINTRO
100 PROCscreen
110 REPEAT
120 PROCstart
130 UNTIL FALSE
140 END
150 DEFPROCudgs
160 VDU 23,236,255,128,255,0,225,146,146,227
170 VDU 23,237,255,1,255,0,206,41,41,238
180 VDU 23,238,146,138,242,0,255,128,255,0
190 VDU 23,239,42,41,41,0,255,1,255,0
200 VDU 23,240,0,14,27,61,62,63,31,14
210 VDU 23,241,32,32,16,144,144,160,32,64
220 VDU 23,242,0,57,108,246,250,254,124,56
230 VDU 23,243,128,56,108,246,250,254,124,56
240 VDU 23,244,1,7,31,63,127,127,254,254
250 VDU 23,245,240,200,132,4,2,50,73,73
260 VDU 23,246,254,254,127,127,63,31,7,1
270 VDU 23,247,73,73,50,2,132,132,200,240
280 VDU 23,248,127,67,73,92,75,97,112,127
290 VDU 23,249,252,132,36,116,164,12,20,228
300 VDU 23,250,124,126,63,31,15,2,6,170
310 VDU 23,251,4,4,4,132,196,36,116,172
320 ENDPROC
330 DEFPROCreels
340 MM=0
350 SPNS=0
360 CA=250
370 DIM F$(12),R$(4),P$(4),V(4),R1(4)
380 DIM R2(4),R3(4),R4(4),H(4)
390 FOR L=1 TO 4:READ R1(L):NEXT L
400 FOR L=1 TO 4:READ R2(L):NEXT L
410 FOR L=1 TO 4:READ R3(L):NEXT L
420 FOR L=1 TO 4:READ R4(L):NEXT L
430 FOR C=236 TO 248 STEP 4
440 P$((C-232)/4)=CHR$(C)+CHR$(C+1)+CHR$(10)+CHR$(8)+CHR$(8)+CHR$(C+2)+CHR$(C+3)+CHR$(10)+CHR$(8)+CHR$(8)+" "+CHR$(10)+CHR$(8)+CHR$(8)
450 NEXT C
460 R$(1)=P$(1)+P$(2)+P$(3)+P$(4)
470 R$(1)=R$(1)+R$(1)+R$(1)
480 R$(2)=P$(2)+P$(4)+P$(1)+P$(3)
490 R$(2)=R$(2)+R$(2)+R$(2)
500 R$(3)=P$(3)+P$(1)+P$(4)+P$(2)
510 R$(3)=R$(3)+R$(3)+R$(3)
520 R$(4)=P$(1)+P$(4)+P$(3)+P$(2)
530 R$(4)=R$(4)+R$(4)+R$(4)
540 ENDPROC
550 DEFPROCspin
560 ST=0:BA=0:PROCBAST
570 SPNS=SPNS+1
580 PRINTTAB(16-LEN(STR$(SPNS)),6);SPNS
590 FOR L=1 TO 4
600 IF H(L)=1 GOTO760
610 FOR P=0 TO 12
620 F$(P)=MID$(R$(L),P*5+5,58)
630 NEXT P
640 FOR H=1 TO 2
650 FOR G=12 TO 1 STEP -1
660 PRINTTAB(4*L-1,14)F$(G)
670 NEXT G
680 NEXT H
690 V(L)=RND(4)
700 FOR G=12 TO 3*V(L)-3 STEP -1
710 PRINTTAB(4*L-1,14)F$(G)
720 NEXT G
730 FOR D=L*20 TO L*20+100 STEP 10
740 SOUND 1,-15,D,.5
750 NEXT D
760 NEXT L
770 FOR L=1 TO 4
780 IF H(L)=0 V(L)=V(L)-2
790 IF V(L)<1 V(L)=V(L)+4
800 NEXT L
810 IF R1(V(1))=R2(V(2)) PROCWIN:PROCGAMBLE ELSE PROCMEL
820 FORL=1 TO 4:H(L)=0:NEXT L
830 ENDPROC
840 DEFPROCBOX(X,Y,L,H)
850 MOVE X,Y:DRAW X+L,Y:DRAW X+L,Y+H
860 DRAW X,Y+H:DRAW X,Y:DRAW X-4,Y
870 DRAW X-4,Y+H:DRAW X+L+4,Y+H
880 DRAW X+L+4,Y
890 ENDPROC
900 DEFPROCscreen
910 CLS
920 VDU 19,7,0;0;0;0;
930 PRINTTAB(2,27)"HN HN HN HN"
940 FOR X=56 TO 450 STEP 128
950 PROCBOX(X,182,78,404)
960 PROCBOX(X,122,78,48)
970 PROCBOX(X-12,110,102,488)
980 NEXT X
990 PROCBOX(32,98,508,508)
1000 PROCBOX(50,24,186,48)
1010 PRINTTAB(2,30)"START"
1020 PROCBOX(300,24,970,48)
1030 PRINTTAB(2,2)"CASH ` 000.00"
1040 PRINTTAB(2,4)"NUDGES 000000"
1050 PRINTTAB(2,6)"SPINS 000000"
1060 PRINTTAB(2,8)"STAKE ` 000.00"
1070 PRINTTAB(2,10)"BANK ` 000.00"
1080 FOR Y=668 TO 950 STEP 64
1090 PROCBOX(50,Y,480,40)
1100 PROCBOX(38,Y-8,504,56)
1110 NEXT Y
1120 PROCBOX(26,652,528,328)
1130 PROCBOX(14,644,552,344)
1140 PRINTTAB(19,20)"COLLECT"
1150 VDU5:MOVE 626,330:PRINT"GAMBLE"
1160 MOVE 660,276:PRINT"BANK":VDU 4
1170 PROCBOX(618,296,204,40)
1180 PROCBOX(652,244,140,40)
1190 PROCBOX(600,348,236,40)
1200 VDU 5:MOVE 626,210:PRINT"DOUBLE"
1210 MOVE 646,158:PRINT"QUITS":VDU 4
1220 PROCBOX(618,176,204,40)
1230 PROCBOX(638,124,170,40)
1240 VDU 5:MOVE 1100,170:PRINT"MELON"
1250 MOVE 1100,130:PRINT"METER":VDU 4
1260 PROCBOX(1092,92,174,88)
1270 FOR L=2 TO 23 STEP 3
1280 PRINTTAB(36,L)P$(3)
1290 PROCBOX(1140,(26-L)*32+116,85,85)
1300 NEXT L
1310 FOR L=1 TO 3
1320 MOVE 128*L+30,386
1330 DRAW 128*L+34,386
1340 MOVE 128*L+30,376
1350 DRAW 128*L+34,376
1360 NEXT L
1370 PROCMON
1380 PRINTTAB(23,2)"FEATURE"
1390 PROCBOX(732,925,228,40)
1400 PROCBOX(720,917,252,56)
1410 PRINTTAB(24,15)"NUDGE"
1420 PRINTTAB(23,7)"RE-SPIN"
1430 PRINTTAB(23,9)"NOTHING"
1440 PRINTTAB(25,11)"` 1"
1450 PRINTTAB(25,13)"50P"
1460 FOR Y=506 TO 800 STEP 64
1470 PROCBOX(710,Y,270,48)
1480 NEXT Y
1490 PROCBOX(690,490,310,334)
1500 PROCBOX(678,482,334,350)
1510 PROCBOX(666,474,358,366)
1520 FOR L=1 TO 4
1530 F$(1)=MID$(R$(L),20,58)
1540 PRINTTAB(4*L-1,14)F$(1)
1550 NEXT L
1560 VDU 19,7,7;0;0;0;
1570 ENDPROC
1580 DEFPROCMESSAGE(U$)
1590 COLOUR1
1600 LU=LEN(U$)
1610 U$=U$+" "
1620 FOR L=38 TO (28-LU)/2+11 STEP -1
1630 PRINTTAB(L,30)LEFT$(U$,39-L)
1640 IF L MOD3=0 SOUND 1,-15,L*5,1
1650 FOR PL=1 TO 10:NEXT PL
1660 NEXT L
1670 ENDPROC
1680 DEFPROCDEL(U$)
1690 COLOUR1
1700 LU=LEN(U$)
1710 U$=U$+" "
1720 U$=U$+" "
1730 FOR L=(28-LU)/2+11 TO 11 STEP -1
1740 PRINTTAB(L,30)LEFT$(U$,39-L)
1750 FOR PL=1 TO 10:NEXT PL
1760 NEXT L
1770 FOR L=1 TO LU+1
1780 PRINTTAB(10,30)MID$(U$,L,LU+1)
1790 FOR PL=1 TO 10:NEXT PL
1800 NEXT L
1810 ENDPROC
1820 DEFPROCstart
1830 IF RND(100)<30 AND SPNS<>0 PROCHOLD:GOTO2010
1840 FIN=FALSE
1850 PROCMESSAGE("PRESS 'S' TO START")
1860 CL=2
1870 REPEAT
1880 CL=3-CL
1890 COLOUR CL
1900 PRINTTAB(2,30);"START";
1910 *FX15,1
1920 FOR L=1 TO 100
1930 K$=INKEY$(0)
1940 IF K$="S" FIN=TRUE
1950 NEXT L
1960 UNTIL FIN
1970 FOR L=250 TO 0 STEP -6
1980 SOUND 1,-15,L,.3
1990 NEXT L
2000 PROCDEL("PRESS 'S' TO START")
2010 COLOUR 1:PRINTTAB(2,30)"START"
2020 CA=CA-10:PROCMON
2030 PROCspin
2040 ENDPROC
2050 DEFPROCMON
2060 PRINTTAB(9,2)" ";
2070 W$=STR$(CA DIV 100)
2080 IF LEN(W$)=0 PRINT"000"
2090 IF LEN(W$)=1 PRINT"00"
2100 IF LEN(W$)=2 PRINT"0"
2110 PRINTTAB(13-LEN(W$),2)W$
2120 W$=STR$(CA MOD 100)
2130 PRINTTAB(16-LEN(W$),2)W$
2140 IF VAL(W$)=0 PRINTTAB(14,2)"0"
2150 IF CA<0 PROCEND
2160 ENDPROC
2170 DEFPROCWIN
2180 PROCMESSAGE("WIN ! WIN ! WIN ! WIN !")
2190 FOR L=1 TO 3
2200 FOR P=1 TO 250 STEP 4
2210 SOUND 1,-15,P,.3
2220 NEXT P
2230 FOR P=247 TO 4 STEP -4
2240 SOUND 1,-15,P,.3
2250 NEXT P
2260 NEXT L
2270 PROCDEL("WIN ! WIN ! WIN ! WIN !")
2280 BA=0
2290 IF R1(V(1))<>R3(V(3)) ST=20:ENDPROC
2300 IF R1(V(1))<>R4(V(4)) ST=R1(V(1))*100:ENDPROC
2310 ST=R1(V(1))*100+500
2320 ENDPROC
2330 DEFPROCBAST
2340 PRINTTAB(9,8)" 000.00"
2350 IF BA=0 PRINTTAB(9,10)" 000.00"
2360 W$=STR$(ST DIV 100)
2370 PRINTTAB(13-LEN(W$),8)W$
2380 W$=STR$(ST MOD 100)
2390 PRINTTAB(16-LEN(W$),8)W$
2400 W$=STR$(BA DIV 100)
2410 PRINTTAB(9,10)" ";
2420 IF LEN(W$)=0 PRINT"000"
2430 IF LEN(W$)=1 PRINT"00"
2440 IF LEN(W$)=2 PRINT"0"
2450 PRINTTAB(13-LEN(W$),10)W$
2460 W$=STR$(BA MOD 100)
2470 PRINTTAB(16-LEN(W$),10)W$
2480 IF VAL(W$)=0 PRINTTAB(14,10)"0"
2490 ENDPROC
2500 DEFPROCGAMBLE
2510 PROCBAST
2520 IF ST=0 ENDPROC
2530 PROCMESSAGE("PRESS 'G' , 'B' OR 'C'")
2540 CL=7:CO=1
2550 FIN=FALSE
2560 REPEAT
2570 CL=7-CL:CO=3-CO
2580 COLOUR CO:GCOL 0,CL
2590 PRINTTAB(19,20)"COLLECT"
2600 VDU5:MOVE 626,330:PRINT"GAMBLE"
2610 MOVE 660,276:PRINT"BANK":VDU 4
2620 SOUND 1,-15,30*CL,1
2630 FOR LOOP=1 TO 70
2640 K$=INKEY$(0)
2650 IF K$="C" OR K$="G" OR K$="B" FIN=TRUE:Z$=K$
2660 NEXT LOOP
2670 UNTIL FIN
2680 IF Z$<>"B" PROCDEL("PRESS 'G' , 'B' OR 'C'")
2690 GCOL 0,7:COLOUR1
2700 PRINTTAB(19,20)"COLLECT"
2710 VDU5:MOVE 626,330:PRINT"GAMBLE"
2720 MOVE 660,276:PRINT"BANK":VDU 4
2730 IF Z$="C" PROCCOLLECT:ENDPROC
2740 IF Z$="B" PROCBANK:IF FB=-1 PROCCOLLECT:ENDPROC ELSE IF Z$="B" GOTO2540
2750 IF Z$="G" PROCRISK:IF ST<>0 GOTO2520 ELSE IF Z$="G" AND BA=0 ENDPROC ELSE IF Z$="G" PROCCOLLECT:ENDPROC
2760 ENDPROC
2770 DEFPROCCOLLECT
2780 FOR D=20 TO 120 STEP 10
2790 SOUND 1,-15,D,.5
2800 NEXT D
2810 BA=BA+ST:ST=0:PROCBAST
2820 ML$=STR$(BA)+" P BANKED"
2830 PROCMESSAGE(ML$)
2840 FOR P=1 TO 1000:NEXT P
2850
2860 PROCDEL(ML$)
2870 CL=1
2880 PROCMESSAGE("PRESS A KEY TO COLLECT BANK ")
2890 FIN=FALSE
2900 REPEAT
2910 COLOURCL:CL=3-CL
2920 PRINTTAB(2,10)"BANK"
2930 FOR LP=1 TO 100
2940 IF INKEY$(0)<>"" FIN=TRUE
2950 NEXT LP
2960 UNTIL FIN
2970 COLOUR1:PRINTTAB(2,10)"BANK"
2980 FOR D=80 TO 180 STEP 10
2990 SOUND 1,-15,D,.5
3000 NEXT D
3010 PROCDEL("PRESS A KEY TO COLLECT BANK")
3020 E$=STR$(BA)+" P COLLECTED"
3030 REPEAT:CA=CA+10:PROCMON:BA=BA-10
3040 PROCBAST:SOUND1,-15,100,.2
3050 FOR LP=1 TO 5:NEXT:UNTIL BA=0
3060 BA=0:PROCBAST:PROCMESSAGE(E$)
3070 FOR LP=1 TO 1000:NEXT LP
3080 PROCDEL(E$)
3090 ENDPROC
3100 DEFPROCBANK
3110 BA=BA+10:ST=ST-10:PROCBAST
3120 IF ST=0 Z$="C":PROCDEL("PRESS 'G' , 'B' OR 'C'"):FB=-1 ELSE FB=0
3130 ENDPROC
3140 DEFPROCRISK
3150 PROCMESSAGE("PRESS ANY KEY")
3160 CL=0
3170 FIN=0
3180 REPEAT
3190 GCOL 0,CL:CL=7-CL
3200 VDU 5:MOVE 626,210:PRINT"DOUBLE"
3210 GCOL 0,CL:MOVE 646,158
3220 PRINT"QUITS":VDU 4
3230 UNTIL INKEY$(0)<>""
3240 FOR LP=1 TO 400:NEXT LP:GCOL 0,7
3250 VDU 5:MOVE 626,210:PRINT"DOUBLE"
3260 MOVE 646,158:PRINT"QUITS":VDU 4
3270 IF CL=7 PROCL:ENDPROC
3280 PROCDEL("PRESS ANY KEY")
3290 PROCMESSAGE("WIN ! WIN ! WIN ! WIN !")
3300 FOR L=1 TO 3
3310 FOR P=1 TO 250 STEP 4
3320 SOUND 1,-15,P,.3:NEXT P
3330 FOR P=247 TO 4 STEP -4
3340 SOUND 1,-15,P,.3:NEXT P:NEXT L
3350 ST=ST*2:PROCBAST
3360 FOR LP=1 TO 1000:NEXT LP:PROCDEL("WIN ! WIN ! WIN ! WIN !")
3370 ENDPROC
3380 DEFPROCL
3390 PROCDEL("PRESS ANY KEY")
3400 PROCMESSAGE("LOSE ! LOSE ! LOSE !")
3410 ST=0:PROCBAST
3420 FOR LP=1 TO 1000:NEXT LP
3430 PROCDEL("LOSE ! LOSE ! LOSE !")
3440 ENDPROC
3450 DEFPROCHOLD
3460 PROCMESSAGE("HOLD - PRESS 1,2,3,4,C OR S ")
3470 CL=1
3480 FORL=1 TO 4:H(L)=0:NEXT L
3490 REPEAT
3500 FIN=FALSE
3510 REPEAT
3520 COLOUR CL:CL=3-CL
3530 FOR LK=1 TO 4
3540 IF H(LK)=0 PRINTTAB(2+(LK-1)*4,27)"H":NEXT LK ELSE NEXT
3550 PRINTTAB(2,30)"START"
3560 FOR LP=1 TO 50
3570 K$=INKEY$(0)
3580 IF K$="1" OR K$="2" OR K$="3" OR K$="4" OR K$="C" OR K$="S" Z$=K$:FIN=TRUE
3590 NEXT LP
3600 UNTIL FIN
3610 FOR L=0 TO 200 STEP 40
3620 SOUND 1,-15,L,.5:NEXT L
3630 IF Z$="C" FORL=1 TO 4:H(L)=0:NEXT L
3640 IF Z$="1" H(1)=1:COLOUR1:PRINTTAB(2,27)"HN"
3650 IF Z$="2" H(2)=1:COLOUR1:PRINTTAB(6,27)"HN"
3660 IF Z$="3" H(3)=1:COLOUR1:PRINTTAB(10,27)"HN"
3670 IF Z$="4" H(4)=1:COLOUR1:PRINTTAB(14,27)"HN"
3680 UNTIL Z$="S"
3690 COLOUR1:PRINTTAB(2,27)"HN"CHR$(9)CHR$(9)"HN"CHR$(9)CHR$(9)"HN"CHR$(9)CHR$(9)"HN"
3700 PRINTTAB(2,30)"START"
3710 PROCDEL("HOLD - PRESS 1,2,3,4,C OR S ")
3720 ENDPROC
3730 DEFPROCMEL
3740 OM=MM
3750 IF R1(V(1))=2 MM=MM+1
3760 IF R2(V(2))=2 MM=MM+1
3770 IF R3(V(3))=2 MM=MM+1
3780 IF R4(V(4))=2 MM=MM+1
3790 IF MM>8 MM=8
3800 IF OM=MM ENDPROC
3810 FOR L=OM+1 TO MM
3820 PRINTTAB(36,26-(L*3-1));"^^"
3830 PRINTTAB(36,26-(L*3))"^^"
3840 SOUND 1,-15,L*4,6
3850 FOR LP=1 TO 600:NEXT LP
3860 NEXT L
3870 IF MM=8 PROCNUD
3880 ENDPROC
3890 DEFPROCNUD
3900 FOR L=1 TO 8
3910 PRINTTAB(36,26-(L*3-1));" "
3920 PRINTTAB(36,26-(L*3))" "
3930 NEXT L
3940 FOR LK=1 TO 4
3950 FOR L=1 TO 8
3960 PRINTTAB(36,26-(L*3-1));"^^"
3970 PRINTTAB(36,26-(L*3))"^^"
3980 SOUND 1,-15,L*30,2
3990 FOR PL=1 TO 100:NEXT PL
4000 PRINTTAB(36,26-(L*3-1));" "
4010 PRINTTAB(36,26-(L*3))" "
4020 NEXT L
4030 NEXT LK
4040 MM=0
4050 FOR L=2 TO 23 STEP 3
4060 PRINTTAB(36,L)P$(3)
4070 PROCBOX(1140,(26-L)*32+116,85,85)
4080 NEXT L
4090 PROCFEAT
4100 ENDPROC
4110 DEFPROCFEAT
4120 PROCMESSAGE("MELON-METER FEATURE")
4130 FOR LP=1 TO 1000:NEXT
4140 PROCDEL("MELON-METER FEATURE")
4150 PROCMESSAGE("CHOOSE -- PRESS ANY KEY")
4160 CL=1
4170 GL=0
4180 FIN=0
4190 REPEAT
4200 COLOURCL:CL=3-CL
4210 PRINTTAB(23,2)"FEATURE"
4220 GL=GL+1:IF GL=6 GL=1
4230 COLOUR1
4240 PRINTTAB(19,5+GL*2)">"
4250 PRINTTAB(33,5+GL*2)"<"
4260 *FX15,1
4270 FOR LK=1 TO 60
4280 IF INKEY$(0)<>"" FIN=TRUE
4290 NEXT LK
4300 PRINTTAB(19,5+GL*2)" "
4310 PRINTTAB(33,5+GL*2)" "
4320 UNTIL FIN
4330 PROCDEL("CHOOSE -- PRESS ANY KEY")
4340 COLOUR1:PRINTTAB(23,2)"FEATURE"
4350 IF GL=1 FOR L=1 TO 4:H(L)=0:NEXT L:PROCRES:ENDPROC
4360 IF GL=2 PROCNN:ENDPROC
4370 IF GL=3 PROC100:ENDPROC
4380 IF GL=4 PROC50:ENDPROC
4390 IF GL=5 PROCNUDGE:ENDPROC
4400 ENDPROC
4410 DEFPROCNN
4420 PROCMESSAGE("NOTHING")
4430 FOR PL=1 TO 1000:NEXT PL
4440 PROCDEL("NOTHING")
4450 ENDPROC
4460 DEFPROCRES
4470 PROCMESSAGE("RE-SPIN")
4480 FOR PL=1 TO 1000:NEXT PL
4490 PROCDEL("RE-SPIN")
4500 PROCspin
4510 ENDPROC
4520 DEFPROC50
4530 PROCMESSAGE("50 P WIN")
4540 FOR PL=1 TO 1000:NEXT PL
4550 PROCDEL("50 P WIN")
4560 ST=50
4570 PROCGAMBLE
4580 ENDPROC
4590 DEFPROC100
4600 PROCMESSAGE("` 1 WIN")
4610 FOR PL=1 TO 1000:NEXT PL
4620 PROCDEL("` 1 WIN")
4630 ST=100
4640 PROCGAMBLE
4650 ENDPROC
4660 DEFPROCNUDGE
4670 FORL=1 TO 4
4680 V(L)=V(L)+2
4690 IF V(L)>4 V(L)=V(L)-4
4700 NEXT L
4710 NON=RND(8)+1
4720 PG$="NUDGE -- "+STR$(NON)+" NUDGES"
4730 PROCMESSAGE(PG$)
4740 FOR LP=1 TO 1000:NEXT LP
4750 PROCDEL(PG$)
4760 PRINTTAB(15,4);NON
4770 PROCMESSAGE("PRESS 1,2,3 OR 4")
4780 CL=1
4790 DS$="N"+CHR$(9)+CHR$(9)+CHR$(9)+"N"+CHR$(9)+CHR$(9)+CHR$(9)+"N"+CHR$(9)+CHR$(9)+CHR$(9)+"N"
4800 FIN=FALSE
4810 REPEAT
4820 COLOURCL:CL=3-CL
4830 PRINTTAB(3,27)DS$
4840 *FX15,1
4850 FOR L=1 TO 40
4860 K$=INKEY$(0):IF K$="1" OR K$="2" OR K$="3" OR K$="4" Z$=K$:FIN=TRUE
4870 NEXT L
4880 UNTIL FIN
4890 COLOUR1
4900 L=VAL(Z$)
4910 FOR P=0 TO 12
4920 F$(P)=MID$(R$(L),P*5+5,58)
4930 NEXT P
4940 G=V(L)*3-3
4950 PRINTTAB(4*L-1,14)F$(G)
4960 G=V(L)*3-4:IF G<1 G=G+12
4970 FOR P=1 TO 50:NEXT P
4980 PRINTTAB(4*L-1,14)F$(G)
4990 G=V(L)*3-6:IF G<1 G=G+12
5000 FOR P=1 TO 50:NEXT P
5010 PRINTTAB(4*L-1,14)F$(G)
5020 V(L)=V(L)-1:IF V(L)=0 V(L)=4
5030 NON=NON-1
5040 PRINTTAB(15,4);NON
5050 FOR L=1 TO 200 STEP 5
5060 SOUND 1,-15,L,.3:NEXT L
5070 FOR L=1 TO 4:V(L)=V(L)-2
5080 IF V(L)<1 V(L)=V(L)+4
5090 NEXT L
5100 IF R1(V(1))=R2(V(2)) NON=0:COLOUR1:PRINTTAB(3,27)DS$TAB(15,4)"0":PROCDEL("PRESS 1,2,3 OR 4"):PROCWIN:PROCGAMBLE:ENDPROC
5110 FOR L=1 TO 4:V(L)=V(L)+2
5120 IF V(L)>4 V(L)=V(L)-4
5130 NEXT L
5140 IF NON<>0 GOTO4800
5150 COLOUR1:PRINTTAB(3,27)DS$
5160 PROCDEL("PRESS 1,2,3 OR 4")
5170 PROCMESSAGE("OUT OF NUDGES")
5180 FOR LP=1 TO 1000:NEXT LP
5190 PROCDEL("OUT OF NUDGES")
5200 ENDPROC
5210 DEFPROCEND
5220 PROCMESSAGE("YOU'RE OUT OF MONEY")
5230 FOR LP=1 TO 1000:NEXT LP
5240 PROCDEL("YOU'RE OUT OF MONEY")
5250 END
5260 ENDPROC
5270 END
5280 DEFPROCINTRO
5290 CLS
5300 VDU 19,7,0;0;0;0;
5310 PRINTTAB(12,0)"FRUITS! - WINS"
5320 FOR L=1 TO 4
5330 PRINTTAB(1,3*L)P$(L)TAB(4,3*L)P$(L)
5340 PRINTTAB(7,3*L)"20 P"
5350 NEXT L
5360 FOR L=1 TO 4
5370 PRINTTAB(20,3*L)P$(L)TAB(23,3*L)P$(L)TAB(26,3*L)P$(L)
5380 NEXT L
5390 FOR L=1 TO 4
5400 PRINTTAB(1,3*L+14)P$(L)TAB(4,3*L+14)P$(L)TAB(7,3*L+14)P$(L)TAB(10,3*L+14)P$(L)
5410 NEXT L
5420 PRINTTAB(29,3)"300 P"
5430 PRINTTAB(29,6)"100 P"
5440 PRINTTAB(29,9)"200 P"
5450 PRINTTAB(29,12)"400 P"
5460 PRINTTAB(13,17)"800 P"
5470 PRINTTAB(13,20)"600 P"
5480 PRINTTAB(13,23)"700 P"
5490 PRINTTAB(13,26)"900 P"
5500 VDU 19,7,7;0;0;0;
5510 PROCjingle1
5520 PRINTTAB(13,30)"PRESS ANY KEY"
5530 REPEAT
5540 V=RND(1000)
5550 UNTIL INKEY$(0)<>""
5560 ENDPROC
5570 DEFPROCindata
5580 DIM n1(16),n2(99)
5590 FOR loop=1 TO 16
5600 READ n1(loop)
5610 NEXT loop
5620 FOR loop=36 TO 99
5630 READ n2(loop)
5640 NEXT loop
5650 ENDPROC
5660 DEFPROCjingle1
5670 c=0
5680 FOR c1=1 TO 99
5690 c=c+1
5700 IF c=17 c=1
5710 IF c1<94 SOUND 1,-10,4*n1(c)-18,2
5720 IF n2(c1)<>0 SOUND 2,-11,4*n2(c1)+30,2
5730 IF n2(c1)<>0 SOUND 3,-10,4*n2(c1)-18,2
5740 NEXT c1
5750 ENDPROC
5760 DATA 12,12,12,19,18,19,18,19,7,7
5770 DATA 7,19,18,19,18,19,28,26,24,24
5780 DATA 24,26,24,19,16,17,19,21,19
5790 DATA 16,19,19,24,26,28,28,28,28
5800 DATA 28,26,24,26,28,28,26,26,26
5810 DATA 26,28,26,24,24,24,26,24,19
5820 DATA 16,17,19,21,19,16,19,19,24
5830 DATA 26,28,28,28,28,28,26,24,26
5840 DATA 28,28,26,26,24,24,3,1
5850 DATA 2,4,1,4,3,2,2,3,4,1,3,4,2,1
� FRUITS!
� by Jason Price
� (c) The Micro User
( �4
2 � 23;8202;0;0;0;
< �indata
F
�udgs
P �reels
Z �INTRO
d �screen
n �
x �start
� � �
� �
� ��udgs
�+ � 23,236,255,128,255,0,225,146,146,227
�' � 23,237,255,1,255,0,206,41,41,238
�) � 23,238,146,138,242,0,255,128,255,0
�$ � 23,239,42,41,41,0,255,1,255,0
�$ � 23,240,0,14,27,61,62,63,31,14
�( � 23,241,32,32,16,144,144,160,32,64
�) � 23,242,0,57,108,246,250,254,124,56
�+ � 23,243,128,56,108,246,250,254,124,56
�' � 23,244,1,7,31,63,127,127,254,254
�& � 23,245,240,200,132,4,2,50,73,73
' � 23,246,254,254,127,127,63,31,7,1
( � 23,247,73,73,50,2,132,132,200,240
( � 23,248,127,67,73,92,75,97,112,127
"* � 23,249,252,132,36,116,164,12,20,228
,& � 23,250,124,126,63,31,15,2,6,170
6( � 23,251,4,4,4,132,196,36,116,172
@ �
J ��reels
T MM=0
^ SPNS=0
h CA=250
r$ � F$(12),R$(4),P$(4),V(4),R1(4)
| � R2(4),R3(4),R4(4),H(4)
� � L=1 � 4:� R1(L):� L
� � L=1 � 4:� R2(L):� L
� � L=1 � 4:� R3(L):� L
� � L=1 � 4:� R4(L):� L
� � C=236 � 248 � 4
�a P$((C-232)/4)=�(C)+�(C+1)+�(10)+�(8)+�(8)+�(C+2)+�(C+3)+�(10)+�(8)+�(8)+" "+�(10)+�(8)+�(8)
� � C
�" R$(1)=P$(1)+P$(2)+P$(3)+P$(4)
� R$(1)=R$(1)+R$(1)+R$(1)
�" R$(2)=P$(2)+P$(4)+P$(1)+P$(3)
� R$(2)=R$(2)+R$(2)+R$(2)
�" R$(3)=P$(3)+P$(1)+P$(4)+P$(2)
� R$(3)=R$(3)+R$(3)+R$(3)
" R$(4)=P$(1)+P$(4)+P$(3)+P$(2)
R$(4)=R$(4)+R$(4)+R$(4)
�
& ��spin
0 ST=0:BA=0:�BAST
: SPNS=SPNS+1
D �16-�(�(SPNS)),6);SPNS
N � L=1 � 4
X � H(L)=1 �dxB
b � P=0 � 12
l F$(P)=�R$(L),P*5+5,58)
v � P
� � H=1 � 2
� � G=12 � 1 � -1
� �4*L-1,14)F$(G)
� � G
� � H
� V(L)=�(4)
� � G=12 � 3*V(L)-3 � -1
� �4*L-1,14)F$(G)
� � G
� � D=L*20 � L*20+100 � 10
� � 1,-15,D,.5
� � D
� � L
� L=1 � 4
� H(L)=0 V(L)=V(L)-2
� V(L)<1 V(L)=V(L)+4
� L
*, � R1(V(1))=R2(V(2)) �WIN:�GAMBLE � �MEL
4 �L=1 � 4:H(L)=0:� L
> �
H ��BOX(X,Y,L,H)
R � X,Y:� X+L,Y:� X+L,Y+H
\ � X,Y+H:� X,Y:� X-4,Y
f � X-4,Y+H:� X+L+4,Y+H
p � X+L+4,Y
z �
�
��screen
� �
� � 19,7,0;0;0;0;
� �2,27)"HN HN HN HN"
� � X=56 � 450 � 128
� �BOX(X,182,78,404)
� �BOX(X,122,78,48)
� �BOX(X-12,110,102,488)
� � X
� �BOX(32,98,508,508)
� �BOX(50,24,186,48)
� �2,30)"START"
� �BOX(300,24,970,48)
�2,2)"CASH ` 000.00"
�2,4)"NUDGES 000000"
�2,6)"SPINS 000000"
$ �2,8)"STAKE ` 000.00"
. �2,10)"BANK ` 000.00"
8 � Y=668 � 950 � 64
B �BOX(50,Y,480,40)
L �BOX(38,Y-8,504,56)
V � Y
` �BOX(26,652,528,328)
j �BOX(14,644,552,344)
t �19,20)"COLLECT"
~ �5:� 626,330:�"GAMBLE"
� � 660,276:�"BANK":� 4
� �BOX(618,296,204,40)
� �BOX(652,244,140,40)
� �BOX(600,348,236,40)
� � 5:� 626,210:�"DOUBLE"
� � 646,158:�"QUITS":� 4
� �BOX(618,176,204,40)
� �BOX(638,124,170,40)
� � 5:� 1100,170:�"MELON"
� � 1100,130:�"METER":� 4
� �BOX(1092,92,174,88)
� � L=2 � 23 � 3
�36,L)P$(3)
# �BOX(1140,(26-L)*32+116,85,85)
� L
� L=1 � 3
( � 128*L+30,386
2 � 128*L+34,386
< � 128*L+30,376
F � 128*L+34,376
P � L
Z �MON
d �23,2)"FEATURE"
n �BOX(732,925,228,40)
x �BOX(720,917,252,56)
� �24,15)"NUDGE"
� �23,7)"RE-SPIN"
� �23,9)"NOTHING"
� �25,11)"` 1"
� �25,13)"50P"
� � Y=506 � 800 � 64
� �BOX(710,Y,270,48)
� � Y
� �BOX(690,490,310,334)
� �BOX(678,482,334,350)
� �BOX(666,474,358,366)
� � L=1 � 4
� F$(1)=�R$(L),20,58)
�4*L-1,14)F$(1)
� L
� 19,7,7;0;0;0;
" �
, ��MESSAGE(U$)
6 �1
@
LU=�(U$)
J$ U$=U$+" "
T � L=38 � (28-LU)/2+11 � -1
^ �L,30)�U$,39-L)
h � L �3=0 � 1,-15,L*5,1
r � PL=1 � 10:� PL
| � L
� �
� ��DEL(U$)
� �1
�
LU=�(U$)
�$ U$=U$+" "
�$ U$=U$+" "
� � L=(28-LU)/2+11 � 11 � -1
� �L,30)�U$,39-L)
� � PL=1 � 10:� PL
� � L
� � L=1 � LU+1
� �10,30)�U$,L,LU+1)
� � PL=1 � 10:� PL
� L
�
��start
&& � �(100)<30 � SPNS<>0 �HOLD:�dZG
0
FIN=�
:# �MESSAGE("PRESS 'S' TO START")
D CL=2
N �
X CL=3-CL
b � CL
l �2,30);"START";
v *FX15,1
� � L=1 � 100
� K$=�(0)
� � K$="S" FIN=�
� � L
�
� FIN
� � L=250 � 0 � -6
� � 1,-15,L,.3
� � L
� �DEL("PRESS 'S' TO START")
� � 1:�2,30)"START"
� CA=CA-10:�MON
�
�spin
� �
��MON
�9,2)" ";
W$=�(CA � 100)
� �(W$)=0 �"000"
* � �(W$)=1 �"00"
4 � �(W$)=2 �"0"
> �13-�(W$),2)W$
H W$=�(CA � 100)
R �16-�(W$),2)W$
\ � �(W$)=0 �14,2)"0"
f � CA<0 �END
p �
z
��WIN
�( �MESSAGE("WIN ! WIN ! WIN ! WIN !")
� � L=1 � 3
� � P=1 � 250 � 4
� � 1,-15,P,.3
� � P
� � P=247 � 4 � -4
� � 1,-15,P,.3
� � P
� � L
�$ �DEL("WIN ! WIN ! WIN ! WIN !")
� BA=0
�! � R1(V(1))<>R3(V(3)) ST=20:�
�+ � R1(V(1))<>R4(V(4)) ST=R1(V(1))*100:�
ST=R1(V(1))*100+500
�
��BAST
$ �9,8)" 000.00"
. � BA=0 �9,10)" 000.00"
8 W$=�(ST � 100)
B �13-�(W$),8)W$
L W$=�(ST � 100)
V �16-�(W$),8)W$
` W$=�(BA � 100)
j �9,10)" ";
t � �(W$)=0 �"000"
~ � �(W$)=1 �"00"
� � �(W$)=2 �"0"
� �13-�(W$),10)W$
� W$=�(BA � 100)
� �16-�(W$),10)W$
� � �(W$)=0 �14,10)"0"
� �
�
��GAMBLE
�
�BAST
�
� ST=0 �
�' �MESSAGE("PRESS 'G' , 'B' OR 'C'")
� CL=7:CO=1
�
FIN=�
�
CL=7-CL:CO=3-CO
� CO:� 0,CL
�19,20)"COLLECT"
( �5:� 626,330:�"GAMBLE"
2 � 660,276:�"BANK":� 4
< � 1,-15,30*CL,1
F � LOOP=1 � 70
P K$=�(0)
Z+ � K$="C" � K$="G" � K$="B" FIN=�:Z$=K$
d � LOOP
n
� FIN
x- � Z$<>"B" �DEL("PRESS 'G' , 'B' OR 'C'")
�
� 0,7:�1
� �19,20)"COLLECT"
� �5:� 626,330:�"GAMBLE"
� � 660,276:�"BANK":� 4
� � Z$="C" �COLLECT:�
�7 � Z$="B" �BANK:� FB=-1 �COLLECT:� � � Z$="B" �dlI
�K � Z$="G" �RISK:� ST<>0 �dXI � � Z$="G" � BA=0 � � � Z$="G" �COLLECT:�
� �
� ��COLLECT
� � D=20 � 120 � 10
� � 1,-15,D,.5
� � D
� BA=BA+ST:ST=0:�BAST
ML$=�(BA)+" P BANKED"
�MESSAGE(ML$)
� P=1 � 1000:� P
"
, �DEL(ML$)
6 CL=1
@- �MESSAGE("PRESS A KEY TO COLLECT BANK ")
J
FIN=�
T �
^ �CL:CL=3-CL
h �2,10)"BANK"
r � LP=1 � 100
| � �(0)<>"" FIN=�
� � LP
�
� FIN
� �1:�2,10)"BANK"
� � D=80 � 180 � 10
� � 1,-15,D,.5
� � D
�( �DEL("PRESS A KEY TO COLLECT BANK")
� E$=�(BA)+" P COLLECTED"
� �:CA=CA+10:�MON:BA=BA-10
� �BAST:�1,-15,100,.2
� � LP=1 � 5:�:� BA=0
� BA=0:�BAST:�MESSAGE(E$)
� � LP=1 � 1000:� LP
�DEL(E$)
�
��BANK
& BA=BA+10:ST=ST-10:�BAST
0> � ST=0 Z$="C":�DEL("PRESS 'G' , 'B' OR 'C'"):FB=-1 � FB=0
: �
D ��RISK
N �MESSAGE("PRESS ANY KEY")
X CL=0
b
FIN=0
l �
v � 0,CL:CL=7-CL
� � 5:� 626,210:�"DOUBLE"
� � 0,CL:� 646,158
� �"QUITS":� 4
� � �(0)<>""
� � LP=1 � 400:� LP:� 0,7
� � 5:� 626,210:�"DOUBLE"
� � 646,158:�"QUITS":� 4
� � CL=7 �L:�
� �DEL("PRESS ANY KEY")
�( �MESSAGE("WIN ! WIN ! WIN ! WIN !")
� � L=1 � 3
� � P=1 � 250 � 4
� � 1,-15,P,.3:� P
� P=247 � 4 � -4
� 1,-15,P,.3:� P:� L
ST=ST*2:�BAST
7 � LP=1 � 1000:� LP:�DEL("WIN ! WIN ! WIN ! WIN !")
* �
4 ��L
> �DEL("PRESS ANY KEY")
H% �MESSAGE("LOSE ! LOSE ! LOSE !")
R ST=0:�BAST
\ � LP=1 � 1000:� LP
f! �DEL("LOSE ! LOSE ! LOSE !")
p �
z ��HOLD
�- �MESSAGE("HOLD - PRESS 1,2,3,4,C OR S ")
� CL=1
� �L=1 � 4:H(L)=0:� L
� �
�
FIN=�
� �
� � CL:CL=3-CL
� � LK=1 � 4
�+ � H(LK)=0 �2+(LK-1)*4,27)"H":� LK � �
� �2,30)"START"
� � LP=1 � 50
� K$=�(0)
�F � K$="1" � K$="2" � K$="3" � K$="4" � K$="C" � K$="S" Z$=K$:FIN=�
� LP
� FIN
� L=0 � 200 � 40
$ � 1,-15,L,.5:� L
.! � Z$="C" �L=1 � 4:H(L)=0:� L
8# � Z$="1" H(1)=1:�1:�2,27)"HN"
B# � Z$="2" H(2)=1:�1:�6,27)"HN"
L$ � Z$="3" H(3)=1:�1:�10,27)"HN"
V$ � Z$="4" H(4)=1:�1:�14,27)"HN"
`
� Z$="S"
j7 �1:�2,27)"HN"�(9)�(9)"HN"�(9)�(9)"HN"�(9)�(9)"HN"
t �2,30)"START"
~) �DEL("HOLD - PRESS 1,2,3,4,C OR S ")
� �
�
��MEL
�
OM=MM
� � R1(V(1))=2 MM=MM+1
� � R2(V(2))=2 MM=MM+1
� � R3(V(3))=2 MM=MM+1
� � R4(V(4))=2 MM=MM+1
� � MM>8 MM=8
� � OM=MM �
� � L=OM+1 � MM
� �36,26-(L*3-1));"^^"
� �36,26-(L*3))"^^"
� 1,-15,L*4,6
� LP=1 � 600:� LP
� L
� MM=8 �NUD
( �
2
��NUD
< � L=1 � 8
F �36,26-(L*3-1));" "
P �36,26-(L*3))" "
Z � L
d � LK=1 � 4
n � L=1 � 8
x �36,26-(L*3-1));"^^"
� �36,26-(L*3))"^^"
� � 1,-15,L*30,2
� � PL=1 � 100:� PL
� �36,26-(L*3-1));" "
� �36,26-(L*3))" "
� � L
� � LK
� MM=0
� � L=2 � 23 � 3
� �36,L)P$(3)
�# �BOX(1140,(26-L)*32+116,85,85)
� � L
�
�FEAT
�
��FEAT
$ �MESSAGE("MELON-METER FEATURE")
" � LP=1 � 1000:�
, �DEL("MELON-METER FEATURE")
6( �MESSAGE("CHOOSE -- PRESS ANY KEY")
@ CL=1
J GL=0
T
FIN=0
^ �
h �CL:CL=3-CL
r �23,2)"FEATURE"
| GL=GL+1:� GL=6 GL=1
� �1
� �19,5+GL*2)">"
� �33,5+GL*2)"<"
� *FX15,1
� � LK=1 � 60
� � �(0)<>"" FIN=�
� � LK
� �19,5+GL*2)" "
� �33,5+GL*2)" "
�
� FIN
�$ �DEL("CHOOSE -- PRESS ANY KEY")
� �1:�23,2)"FEATURE"
�' � GL=1 � L=1 � 4:H(L)=0:� L:�RES:�
� GL=2 �NN:�
� GL=3 �100:�
� GL=4 �50:�
& � GL=5 �NUDGE:�
0 �
: ��NN
D �MESSAGE("NOTHING")
N � PL=1 � 1000:� PL
X �DEL("NOTHING")
b �
l
��RES
v �MESSAGE("RE-SPIN")
� � PL=1 � 1000:� PL
� �DEL("RE-SPIN")
�
�spin
� �
� ��50
� �MESSAGE("50 P WIN")
� � PL=1 � 1000:� PL
� �DEL("50 P WIN")
�
ST=50
� �GAMBLE
� �
�
��100
� �MESSAGE("` 1 WIN")
� PL=1 � 1000:� PL
�DEL("` 1 WIN")
ST=100
�GAMBLE
* �
4 ��NUDGE
>
�L=1 � 4
H V(L)=V(L)+2
R � V(L)>4 V(L)=V(L)-4
\ � L
f NON=�(8)+1
p% PG$="NUDGE -- "+�(NON)+" NUDGES"
z �MESSAGE(PG$)
� � LP=1 � 1000:� LP
� �DEL(PG$)
� �15,4);NON
�! �MESSAGE("PRESS 1,2,3 OR 4")
� CL=1
�E DS$="N"+�(9)+�(9)+�(9)+"N"+�(9)+�(9)+�(9)+"N"+�(9)+�(9)+�(9)+"N"
�
FIN=�
� �
� �CL:CL=3-CL
� �3,27)DS$
� *FX15,1
� � L=1 � 40
�< K$=�(0):� K$="1" � K$="2" � K$="3" � K$="4" Z$=K$:FIN=�
� L
� FIN
�1
$ L=�(Z$)
. � P=0 � 12
8 F$(P)=�R$(L),P*5+5,58)
B � P
L G=V(L)*3-3
V �4*L-1,14)F$(G)
` G=V(L)*3-4:� G<1 G=G+12
j � P=1 � 50:� P
t �4*L-1,14)F$(G)
~ G=V(L)*3-6:� G<1 G=G+12
� � P=1 � 50:� P
� �4*L-1,14)F$(G)
� V(L)=V(L)-1:� V(L)=0 V(L)=4
� NON=NON-1
� �15,4);NON
� � L=1 � 200 � 5
� � 1,-15,L,.3:� L
� � L=1 � 4:V(L)=V(L)-2
� � V(L)<1 V(L)=V(L)+4
� � L
�] � R1(V(1))=R2(V(2)) NON=0:�1:�3,27)DS$�15,4)"0":�DEL("PRESS 1,2,3 OR 4"):�WIN:�GAMBLE:�
� � L=1 � 4:V(L)=V(L)+2
� V(L)>4 V(L)=V(L)-4
� L
� NON<>0 �d@R
�1:�3,27)DS$
( �DEL("PRESS 1,2,3 OR 4")
2 �MESSAGE("OUT OF NUDGES")
< � LP=1 � 1000:� LP
F �DEL("OUT OF NUDGES")
P �
Z
��END
d$ �MESSAGE("YOU'RE OUT OF MONEY")
n � LP=1 � 1000:� LP
x �DEL("YOU'RE OUT OF MONEY")
� �
� �
� �
� ��INTRO
� �
� � 19,7,0;0;0;0;
� �12,0)"FRUITS! - WINS"
� � L=1 � 4
� �1,3*L)P$(L)�4,3*L)P$(L)
� �7,3*L)"20 P"
� � L
� � L=1 � 4
�- �20,3*L)P$(L)�23,3*L)P$(L)�26,3*L)P$(L)
� L
� L=1 � 4
C �1,3*L+14)P$(L)�4,3*L+14)P$(L)�7,3*L+14)P$(L)�10,3*L+14)P$(L)
" � L
, �29,3)"300 P"
6 �29,6)"100 P"
@ �29,9)"200 P"
J �29,12)"400 P"
T �13,17)"800 P"
^ �13,20)"600 P"
h �13,23)"700 P"
r �13,26)"900 P"
| � 19,7,7;0;0;0;
�
�jingle1
� �13,30)"PRESS ANY KEY"
� �
� V=�(1000)
� � �(0)<>""
� �
�
��indata
� � n1(16),n2(99)
� � loop=1 � 16
� � n1(loop)
� � loop
� � loop=36 � 99
� � n2(loop)
� loop
�
��jingle1
& c=0
0 � c1=1 � 99
:
c=c+1
D � c=17 c=1
N! � c1<94 � 1,-10,4*n1(c)-18,2
X& � n2(c1)<>0 � 2,-11,4*n2(c1)+30,2
b& � n2(c1)<>0 � 3,-10,4*n2(c1)-18,2
l � c1
v �
�" � 12,12,12,19,18,19,18,19,7,7
�# � 7,19,18,19,18,19,28,26,24,24
�! � 24,26,24,19,16,17,19,21,19
�! � 16,19,19,24,26,28,28,28,28
�! � 28,26,24,26,28,28,26,26,26
�! � 26,28,26,24,24,24,26,24,19
�! � 16,17,19,21,19,16,19,19,24
�! � 26,28,28,28,28,28,26,24,26
� � 28,28,26,26,24,24,3,1
�" � 2,4,1,4,3,2,2,3,4,1,3,4,2,1
� 00000000 0d 00 0a 0e 20 f4 20 46 52 55 49 54 53 21 0d 00 |.... . FRUITS!..|
00000010 14 15 20 f4 20 62 79 20 4a 61 73 6f 6e 20 50 72 |.. . by Jason Pr|
00000020 69 63 65 0d 00 1e 19 20 f4 20 28 63 29 20 54 68 |ice.... . (c) Th|
00000030 65 20 4d 69 63 72 6f 20 55 73 65 72 0d 00 28 07 |e Micro User..(.|
00000040 20 eb 34 0d 00 32 15 20 ef 20 32 33 3b 38 32 30 | .4..2. . 23;820|
00000050 32 3b 30 3b 30 3b 30 3b 0d 00 3c 0c 20 f2 69 6e |2;0;0;0;..<. .in|
00000060 64 61 74 61 0d 00 46 0a 20 f2 75 64 67 73 0d 00 |data..F. .udgs..|
00000070 50 0b 20 f2 72 65 65 6c 73 0d 00 5a 0b 20 f2 49 |P. .reels..Z. .I|
00000080 4e 54 52 4f 0d 00 64 0c 20 f2 73 63 72 65 65 6e |NTRO..d. .screen|
00000090 0d 00 6e 06 20 f5 0d 00 78 0b 20 f2 73 74 61 72 |..n. ...x. .star|
000000a0 74 0d 00 82 08 20 fd 20 a3 0d 00 8c 06 20 e0 0d |t.... . ..... ..|
000000b0 00 96 0b 20 dd f2 75 64 67 73 0d 00 a0 2b 20 ef |... ..udgs...+ .|
000000c0 20 32 33 2c 32 33 36 2c 32 35 35 2c 31 32 38 2c | 23,236,255,128,|
000000d0 32 35 35 2c 30 2c 32 32 35 2c 31 34 36 2c 31 34 |255,0,225,146,14|
000000e0 36 2c 32 32 37 0d 00 aa 27 20 ef 20 32 33 2c 32 |6,227...' . 23,2|
000000f0 33 37 2c 32 35 35 2c 31 2c 32 35 35 2c 30 2c 32 |37,255,1,255,0,2|
00000100 30 36 2c 34 31 2c 34 31 2c 32 33 38 0d 00 b4 29 |06,41,41,238...)|
00000110 20 ef 20 32 33 2c 32 33 38 2c 31 34 36 2c 31 33 | . 23,238,146,13|
00000120 38 2c 32 34 32 2c 30 2c 32 35 35 2c 31 32 38 2c |8,242,0,255,128,|
00000130 32 35 35 2c 30 0d 00 be 24 20 ef 20 32 33 2c 32 |255,0...$ . 23,2|
00000140 33 39 2c 34 32 2c 34 31 2c 34 31 2c 30 2c 32 35 |39,42,41,41,0,25|
00000150 35 2c 31 2c 32 35 35 2c 30 0d 00 c8 24 20 ef 20 |5,1,255,0...$ . |
00000160 32 33 2c 32 34 30 2c 30 2c 31 34 2c 32 37 2c 36 |23,240,0,14,27,6|
00000170 31 2c 36 32 2c 36 33 2c 33 31 2c 31 34 0d 00 d2 |1,62,63,31,14...|
00000180 28 20 ef 20 32 33 2c 32 34 31 2c 33 32 2c 33 32 |( . 23,241,32,32|
00000190 2c 31 36 2c 31 34 34 2c 31 34 34 2c 31 36 30 2c |,16,144,144,160,|
000001a0 33 32 2c 36 34 0d 00 dc 29 20 ef 20 32 33 2c 32 |32,64...) . 23,2|
000001b0 34 32 2c 30 2c 35 37 2c 31 30 38 2c 32 34 36 2c |42,0,57,108,246,|
000001c0 32 35 30 2c 32 35 34 2c 31 32 34 2c 35 36 0d 00 |250,254,124,56..|
000001d0 e6 2b 20 ef 20 32 33 2c 32 34 33 2c 31 32 38 2c |.+ . 23,243,128,|
000001e0 35 36 2c 31 30 38 2c 32 34 36 2c 32 35 30 2c 32 |56,108,246,250,2|
000001f0 35 34 2c 31 32 34 2c 35 36 0d 00 f0 27 20 ef 20 |54,124,56...' . |
00000200 32 33 2c 32 34 34 2c 31 2c 37 2c 33 31 2c 36 33 |23,244,1,7,31,63|
00000210 2c 31 32 37 2c 31 32 37 2c 32 35 34 2c 32 35 34 |,127,127,254,254|
00000220 0d 00 fa 26 20 ef 20 32 33 2c 32 34 35 2c 32 34 |...& . 23,245,24|
00000230 30 2c 32 30 30 2c 31 33 32 2c 34 2c 32 2c 35 30 |0,200,132,4,2,50|
00000240 2c 37 33 2c 37 33 0d 01 04 27 20 ef 20 32 33 2c |,73,73...' . 23,|
00000250 32 34 36 2c 32 35 34 2c 32 35 34 2c 31 32 37 2c |246,254,254,127,|
00000260 31 32 37 2c 36 33 2c 33 31 2c 37 2c 31 0d 01 0e |127,63,31,7,1...|
00000270 28 20 ef 20 32 33 2c 32 34 37 2c 37 33 2c 37 33 |( . 23,247,73,73|
00000280 2c 35 30 2c 32 2c 31 33 32 2c 31 33 32 2c 32 30 |,50,2,132,132,20|
00000290 30 2c 32 34 30 0d 01 18 28 20 ef 20 32 33 2c 32 |0,240...( . 23,2|
000002a0 34 38 2c 31 32 37 2c 36 37 2c 37 33 2c 39 32 2c |48,127,67,73,92,|
000002b0 37 35 2c 39 37 2c 31 31 32 2c 31 32 37 0d 01 22 |75,97,112,127.."|
000002c0 2a 20 ef 20 32 33 2c 32 34 39 2c 32 35 32 2c 31 |* . 23,249,252,1|
000002d0 33 32 2c 33 36 2c 31 31 36 2c 31 36 34 2c 31 32 |32,36,116,164,12|
000002e0 2c 32 30 2c 32 32 38 0d 01 2c 26 20 ef 20 32 33 |,20,228..,& . 23|
000002f0 2c 32 35 30 2c 31 32 34 2c 31 32 36 2c 36 33 2c |,250,124,126,63,|
00000300 33 31 2c 31 35 2c 32 2c 36 2c 31 37 30 0d 01 36 |31,15,2,6,170..6|
00000310 28 20 ef 20 32 33 2c 32 35 31 2c 34 2c 34 2c 34 |( . 23,251,4,4,4|
00000320 2c 31 33 32 2c 31 39 36 2c 33 36 2c 31 31 36 2c |,132,196,36,116,|
00000330 31 37 32 20 20 0d 01 40 06 20 e1 0d 01 4a 0c 20 |172 ..@. ...J. |
00000340 dd f2 72 65 65 6c 73 0d 01 54 09 20 4d 4d 3d 30 |..reels..T. MM=0|
00000350 0d 01 5e 0b 20 53 50 4e 53 3d 30 0d 01 68 0b 20 |..^. SPNS=0..h. |
00000360 43 41 3d 32 35 30 0d 01 72 24 20 de 20 46 24 28 |CA=250..r$ . F$(|
00000370 31 32 29 2c 52 24 28 34 29 2c 50 24 28 34 29 2c |12),R$(4),P$(4),|
00000380 56 28 34 29 2c 52 31 28 34 29 0d 01 7c 1d 20 de |V(4),R1(4)..|. .|
00000390 20 52 32 28 34 29 2c 52 33 28 34 29 2c 52 34 28 | R2(4),R3(4),R4(|
000003a0 34 29 2c 48 28 34 29 0d 01 86 1a 20 e3 20 4c 3d |4),H(4).... . L=|
000003b0 31 20 b8 20 34 3a f3 20 52 31 28 4c 29 3a ed 20 |1 . 4:. R1(L):. |
000003c0 4c 0d 01 90 1a 20 e3 20 4c 3d 31 20 b8 20 34 3a |L.... . L=1 . 4:|
000003d0 f3 20 52 32 28 4c 29 3a ed 20 4c 0d 01 9a 1a 20 |. R2(L):. L.... |
000003e0 e3 20 4c 3d 31 20 b8 20 34 3a f3 20 52 33 28 4c |. L=1 . 4:. R3(L|
000003f0 29 3a ed 20 4c 0d 01 a4 1a 20 e3 20 4c 3d 31 20 |):. L.... . L=1 |
00000400 b8 20 34 3a f3 20 52 34 28 4c 29 3a ed 20 4c 0d |. 4:. R4(L):. L.|
00000410 01 ae 16 20 e3 20 43 3d 32 33 36 20 b8 20 32 34 |... . C=236 . 24|
00000420 38 20 88 20 34 0d 01 b8 61 20 50 24 28 28 43 2d |8 . 4...a P$((C-|
00000430 32 33 32 29 2f 34 29 3d bd 28 43 29 2b bd 28 43 |232)/4)=.(C)+.(C|
00000440 2b 31 29 2b bd 28 31 30 29 2b bd 28 38 29 2b bd |+1)+.(10)+.(8)+.|
00000450 28 38 29 2b bd 28 43 2b 32 29 2b bd 28 43 2b 33 |(8)+.(C+2)+.(C+3|
00000460 29 2b bd 28 31 30 29 2b bd 28 38 29 2b bd 28 38 |)+.(10)+.(8)+.(8|
00000470 29 2b 22 20 20 22 2b bd 28 31 30 29 2b bd 28 38 |)+" "+.(10)+.(8|
00000480 29 2b bd 28 38 29 0d 01 c2 09 20 ed 20 43 20 0d |)+.(8).... . C .|
00000490 01 cc 22 20 52 24 28 31 29 3d 50 24 28 31 29 2b |.." R$(1)=P$(1)+|
000004a0 50 24 28 32 29 2b 50 24 28 33 29 2b 50 24 28 34 |P$(2)+P$(3)+P$(4|
000004b0 29 0d 01 d6 1c 20 52 24 28 31 29 3d 52 24 28 31 |).... R$(1)=R$(1|
000004c0 29 2b 52 24 28 31 29 2b 52 24 28 31 29 0d 01 e0 |)+R$(1)+R$(1)...|
000004d0 22 20 52 24 28 32 29 3d 50 24 28 32 29 2b 50 24 |" R$(2)=P$(2)+P$|
000004e0 28 34 29 2b 50 24 28 31 29 2b 50 24 28 33 29 0d |(4)+P$(1)+P$(3).|
000004f0 01 ea 1c 20 52 24 28 32 29 3d 52 24 28 32 29 2b |... R$(2)=R$(2)+|
00000500 52 24 28 32 29 2b 52 24 28 32 29 0d 01 f4 22 20 |R$(2)+R$(2)..." |
00000510 52 24 28 33 29 3d 50 24 28 33 29 2b 50 24 28 31 |R$(3)=P$(3)+P$(1|
00000520 29 2b 50 24 28 34 29 2b 50 24 28 32 29 0d 01 fe |)+P$(4)+P$(2)...|
00000530 1c 20 52 24 28 33 29 3d 52 24 28 33 29 2b 52 24 |. R$(3)=R$(3)+R$|
00000540 28 33 29 2b 52 24 28 33 29 0d 02 08 22 20 52 24 |(3)+R$(3)..." R$|
00000550 28 34 29 3d 50 24 28 31 29 2b 50 24 28 34 29 2b |(4)=P$(1)+P$(4)+|
00000560 50 24 28 33 29 2b 50 24 28 32 29 0d 02 12 1c 20 |P$(3)+P$(2).... |
00000570 52 24 28 34 29 3d 52 24 28 34 29 2b 52 24 28 34 |R$(4)=R$(4)+R$(4|
00000580 29 2b 52 24 28 34 29 0d 02 1c 06 20 e1 0d 02 26 |)+R$(4).... ...&|
00000590 0b 20 dd f2 73 70 69 6e 0d 02 30 14 20 53 54 3d |. ..spin..0. ST=|
000005a0 30 3a 42 41 3d 30 3a f2 42 41 53 54 0d 02 3a 10 |0:BA=0:.BAST..:.|
000005b0 20 53 50 4e 53 3d 53 50 4e 53 2b 31 0d 02 44 1c | SPNS=SPNS+1..D.|
000005c0 20 f1 8a 31 36 2d a9 28 c3 28 53 50 4e 53 29 29 | ..16-.(.(SPNS))|
000005d0 2c 36 29 3b 53 50 4e 53 0d 02 4e 0e 20 e3 20 4c |,6);SPNS..N. . L|
000005e0 3d 31 20 b8 20 34 0d 02 58 13 20 e7 20 48 28 4c |=1 . 4..X. . H(L|
000005f0 29 3d 31 20 e5 8d 64 78 42 0d 02 62 0f 20 e3 20 |)=1 ..dxB..b. . |
00000600 50 3d 30 20 b8 20 31 32 0d 02 6c 1b 20 46 24 28 |P=0 . 12..l. F$(|
00000610 50 29 3d c1 52 24 28 4c 29 2c 50 2a 35 2b 35 2c |P)=.R$(L),P*5+5,|
00000620 35 38 29 0d 02 76 08 20 ed 20 50 0d 02 80 0e 20 |58)..v. . P.... |
00000630 e3 20 48 3d 31 20 b8 20 32 0d 02 8a 14 20 e3 20 |. H=1 . 2.... . |
00000640 47 3d 31 32 20 b8 20 31 20 88 20 2d 31 0d 02 94 |G=12 . 1 . -1...|
00000650 15 20 f1 8a 34 2a 4c 2d 31 2c 31 34 29 46 24 28 |. ..4*L-1,14)F$(|
00000660 47 29 0d 02 9e 08 20 ed 20 47 0d 02 a8 08 20 ed |G).... . G.... .|
00000670 20 48 0d 02 b2 0e 20 56 28 4c 29 3d b3 28 34 29 | H.... V(L)=.(4)|
00000680 0d 02 bc 1b 20 e3 20 47 3d 31 32 20 b8 20 33 2a |.... . G=12 . 3*|
00000690 56 28 4c 29 2d 33 20 88 20 2d 31 0d 02 c6 15 20 |V(L)-3 . -1.... |
000006a0 f1 8a 34 2a 4c 2d 31 2c 31 34 29 46 24 28 47 29 |..4*L-1,14)F$(G)|
000006b0 0d 02 d0 08 20 ed 20 47 0d 02 da 1d 20 e3 20 44 |.... . G.... . D|
000006c0 3d 4c 2a 32 30 20 b8 20 4c 2a 32 30 2b 31 30 30 |=L*20 . L*20+100|
000006d0 20 88 20 31 30 0d 02 e4 11 20 d4 20 31 2c 2d 31 | . 10.... . 1,-1|
000006e0 35 2c 44 2c 2e 35 0d 02 ee 08 20 ed 20 44 0d 02 |5,D,.5.... . D..|
000006f0 f8 08 20 ed 20 4c 0d 03 02 0e 20 e3 20 4c 3d 31 |.. . L.... . L=1|
00000700 20 b8 20 34 0d 03 0c 19 20 e7 20 48 28 4c 29 3d | . 4.... . H(L)=|
00000710 30 20 56 28 4c 29 3d 56 28 4c 29 2d 32 0d 03 16 |0 V(L)=V(L)-2...|
00000720 19 20 e7 20 56 28 4c 29 3c 31 20 56 28 4c 29 3d |. . V(L)<1 V(L)=|
00000730 56 28 4c 29 2b 34 0d 03 20 08 20 ed 20 4c 0d 03 |V(L)+4.. . . L..|
00000740 2a 2c 20 e7 20 52 31 28 56 28 31 29 29 3d 52 32 |*, . R1(V(1))=R2|
00000750 28 56 28 32 29 29 20 f2 57 49 4e 3a f2 47 41 4d |(V(2)) .WIN:.GAM|
00000760 42 4c 45 20 8b 20 f2 4d 45 4c 0d 03 34 18 20 e3 |BLE . .MEL..4. .|
00000770 4c 3d 31 20 b8 20 34 3a 48 28 4c 29 3d 30 3a ed |L=1 . 4:H(L)=0:.|
00000780 20 4c 0d 03 3e 06 20 e1 0d 03 48 13 20 dd f2 42 | L..>. ...H. ..B|
00000790 4f 58 28 58 2c 59 2c 4c 2c 48 29 0d 03 52 1c 20 |OX(X,Y,L,H)..R. |
000007a0 ec 20 58 2c 59 3a df 20 58 2b 4c 2c 59 3a df 20 |. X,Y:. X+L,Y:. |
000007b0 58 2b 4c 2c 59 2b 48 0d 03 5c 1a 20 df 20 58 2c |X+L,Y+H..\. . X,|
000007c0 59 2b 48 3a df 20 58 2c 59 3a df 20 58 2d 34 2c |Y+H:. X,Y:. X-4,|
000007d0 59 0d 03 66 1a 20 df 20 58 2d 34 2c 59 2b 48 3a |Y..f. . X-4,Y+H:|
000007e0 df 20 58 2b 4c 2b 34 2c 59 2b 48 0d 03 70 0e 20 |. X+L+4,Y+H..p. |
000007f0 df 20 58 2b 4c 2b 34 2c 59 0d 03 7a 06 20 e1 0d |. X+L+4,Y..z. ..|
00000800 03 84 0d 20 dd f2 73 63 72 65 65 6e 0d 03 8e 06 |... ..screen....|
00000810 20 db 0d 03 98 14 20 ef 20 31 39 2c 37 2c 30 3b | ..... . 19,7,0;|
00000820 30 3b 30 3b 30 3b 0d 03 a2 1c 20 f1 8a 32 2c 32 |0;0;0;.... ..2,2|
00000830 37 29 22 48 4e 20 20 48 4e 20 20 48 4e 20 20 48 |7)"HN HN HN H|
00000840 4e 22 0d 03 ac 17 20 e3 20 58 3d 35 36 20 b8 20 |N".... . X=56 . |
00000850 34 35 30 20 88 20 31 32 38 0d 03 b6 17 20 f2 42 |450 . 128.... .B|
00000860 4f 58 28 58 2c 31 38 32 2c 37 38 2c 34 30 34 29 |OX(X,182,78,404)|
00000870 0d 03 c0 16 20 f2 42 4f 58 28 58 2c 31 32 32 2c |.... .BOX(X,122,|
00000880 37 38 2c 34 38 29 0d 03 ca 1b 20 f2 42 4f 58 28 |78,48).... .BOX(|
00000890 58 2d 31 32 2c 31 31 30 2c 31 30 32 2c 34 38 38 |X-12,110,102,488|
000008a0 29 0d 03 d4 08 20 ed 20 58 0d 03 de 18 20 f2 42 |).... . X.... .B|
000008b0 4f 58 28 33 32 2c 39 38 2c 35 30 38 2c 35 30 38 |OX(32,98,508,508|
000008c0 29 0d 03 e8 17 20 f2 42 4f 58 28 35 30 2c 32 34 |).... .BOX(50,24|
000008d0 2c 31 38 36 2c 34 38 29 0d 03 f2 13 20 f1 8a 32 |,186,48).... ..2|
000008e0 2c 33 30 29 22 53 54 41 52 54 22 0d 03 fc 18 20 |,30)"START".... |
000008f0 f2 42 4f 58 28 33 30 30 2c 32 34 2c 39 37 30 2c |.BOX(300,24,970,|
00000900 34 38 29 0d 04 06 1b 20 f1 8a 32 2c 32 29 22 43 |48).... ..2,2)"C|
00000910 41 53 48 20 20 60 20 30 30 30 2e 30 30 22 0d 04 |ASH ` 000.00"..|
00000920 10 1b 20 f1 8a 32 2c 34 29 22 4e 55 44 47 45 53 |.. ..2,4)"NUDGES|
00000930 20 20 30 30 30 30 30 30 22 0d 04 1a 1b 20 f1 8a | 000000".... ..|
00000940 32 2c 36 29 22 53 50 49 4e 53 20 20 20 30 30 30 |2,6)"SPINS 000|
00000950 30 30 30 22 0d 04 24 1b 20 f1 8a 32 2c 38 29 22 |000"..$. ..2,8)"|
00000960 53 54 41 4b 45 20 60 20 30 30 30 2e 30 30 22 0d |STAKE ` 000.00".|
00000970 04 2e 1c 20 f1 8a 32 2c 31 30 29 22 42 41 4e 4b |... ..2,10)"BANK|
00000980 20 20 60 20 30 30 30 2e 30 30 22 0d 04 38 17 20 | ` 000.00"..8. |
00000990 e3 20 59 3d 36 36 38 20 b8 20 39 35 30 20 88 20 |. Y=668 . 950 . |
000009a0 36 34 0d 04 42 16 20 f2 42 4f 58 28 35 30 2c 59 |64..B. .BOX(50,Y|
000009b0 2c 34 38 30 2c 34 30 29 0d 04 4c 18 20 f2 42 4f |,480,40)..L. .BO|
000009c0 58 28 33 38 2c 59 2d 38 2c 35 30 34 2c 35 36 29 |X(38,Y-8,504,56)|
000009d0 0d 04 56 08 20 ed 20 59 0d 04 60 19 20 f2 42 4f |..V. . Y..`. .BO|
000009e0 58 28 32 36 2c 36 35 32 2c 35 32 38 2c 33 32 38 |X(26,652,528,328|
000009f0 29 0d 04 6a 19 20 f2 42 4f 58 28 31 34 2c 36 34 |)..j. .BOX(14,64|
00000a00 34 2c 35 35 32 2c 33 34 34 29 0d 04 74 16 20 f1 |4,552,344)..t. .|
00000a10 8a 31 39 2c 32 30 29 22 43 4f 4c 4c 45 43 54 22 |.19,20)"COLLECT"|
00000a20 0d 04 7e 1b 20 ef 35 3a ec 20 36 32 36 2c 33 33 |..~. .5:. 626,33|
00000a30 30 3a f1 22 47 41 4d 42 4c 45 22 0d 04 88 1a 20 |0:."GAMBLE".... |
00000a40 ec 20 36 36 30 2c 32 37 36 3a f1 22 42 41 4e 4b |. 660,276:."BANK|
00000a50 22 3a ef 20 34 0d 04 92 19 20 f2 42 4f 58 28 36 |":. 4.... .BOX(6|
00000a60 31 38 2c 32 39 36 2c 32 30 34 2c 34 30 29 0d 04 |18,296,204,40)..|
00000a70 9c 19 20 f2 42 4f 58 28 36 35 32 2c 32 34 34 2c |.. .BOX(652,244,|
00000a80 31 34 30 2c 34 30 29 0d 04 a6 19 20 f2 42 4f 58 |140,40).... .BOX|
00000a90 28 36 30 30 2c 33 34 38 2c 32 33 36 2c 34 30 29 |(600,348,236,40)|
00000aa0 0d 04 b0 1c 20 ef 20 35 3a ec 20 36 32 36 2c 32 |.... . 5:. 626,2|
00000ab0 31 30 3a f1 22 44 4f 55 42 4c 45 22 0d 04 ba 1b |10:."DOUBLE"....|
00000ac0 20 ec 20 36 34 36 2c 31 35 38 3a f1 22 51 55 49 | . 646,158:."QUI|
00000ad0 54 53 22 3a ef 20 34 0d 04 c4 19 20 f2 42 4f 58 |TS":. 4.... .BOX|
00000ae0 28 36 31 38 2c 31 37 36 2c 32 30 34 2c 34 30 29 |(618,176,204,40)|
00000af0 0d 04 ce 19 20 f2 42 4f 58 28 36 33 38 2c 31 32 |.... .BOX(638,12|
00000b00 34 2c 31 37 30 2c 34 30 29 0d 04 d8 1c 20 ef 20 |4,170,40).... . |
00000b10 35 3a ec 20 31 31 30 30 2c 31 37 30 3a f1 22 4d |5:. 1100,170:."M|
00000b20 45 4c 4f 4e 22 0d 04 e2 1c 20 ec 20 31 31 30 30 |ELON".... . 1100|
00000b30 2c 31 33 30 3a f1 22 4d 45 54 45 52 22 3a ef 20 |,130:."METER":. |
00000b40 34 0d 04 ec 19 20 f2 42 4f 58 28 31 30 39 32 2c |4.... .BOX(1092,|
00000b50 39 32 2c 31 37 34 2c 38 38 29 0d 04 f6 13 20 e3 |92,174,88).... .|
00000b60 20 4c 3d 32 20 b8 20 32 33 20 88 20 33 0d 05 00 | L=2 . 23 . 3...|
00000b70 11 20 f1 8a 33 36 2c 4c 29 50 24 28 33 29 0d 05 |. ..36,L)P$(3)..|
00000b80 0a 23 20 f2 42 4f 58 28 31 31 34 30 2c 28 32 36 |.# .BOX(1140,(26|
00000b90 2d 4c 29 2a 33 32 2b 31 31 36 2c 38 35 2c 38 35 |-L)*32+116,85,85|
00000ba0 29 0d 05 14 08 20 ed 20 4c 0d 05 1e 0e 20 e3 20 |).... . L.... . |
00000bb0 4c 3d 31 20 b8 20 33 0d 05 28 13 20 ec 20 31 32 |L=1 . 3..(. . 12|
00000bc0 38 2a 4c 2b 33 30 2c 33 38 36 0d 05 32 13 20 df |8*L+30,386..2. .|
00000bd0 20 31 32 38 2a 4c 2b 33 34 2c 33 38 36 0d 05 3c | 128*L+34,386..<|
00000be0 13 20 ec 20 31 32 38 2a 4c 2b 33 30 2c 33 37 36 |. . 128*L+30,376|
00000bf0 0d 05 46 13 20 df 20 31 32 38 2a 4c 2b 33 34 2c |..F. . 128*L+34,|
00000c00 33 37 36 0d 05 50 08 20 ed 20 4c 0d 05 5a 09 20 |376..P. . L..Z. |
00000c10 f2 4d 4f 4e 0d 05 64 15 20 f1 8a 32 33 2c 32 29 |.MON..d. ..23,2)|
00000c20 22 46 45 41 54 55 52 45 22 0d 05 6e 19 20 f2 42 |"FEATURE"..n. .B|
00000c30 4f 58 28 37 33 32 2c 39 32 35 2c 32 32 38 2c 34 |OX(732,925,228,4|
00000c40 30 29 0d 05 78 19 20 f2 42 4f 58 28 37 32 30 2c |0)..x. .BOX(720,|
00000c50 39 31 37 2c 32 35 32 2c 35 36 29 0d 05 82 14 20 |917,252,56).... |
00000c60 f1 8a 32 34 2c 31 35 29 22 4e 55 44 47 45 22 0d |..24,15)"NUDGE".|
00000c70 05 8c 15 20 f1 8a 32 33 2c 37 29 22 52 45 2d 53 |... ..23,7)"RE-S|
00000c80 50 49 4e 22 0d 05 96 15 20 f1 8a 32 33 2c 39 29 |PIN".... ..23,9)|
00000c90 22 4e 4f 54 48 49 4e 47 22 0d 05 a0 12 20 f1 8a |"NOTHING".... ..|
00000ca0 32 35 2c 31 31 29 22 60 20 31 22 0d 05 aa 12 20 |25,11)"` 1".... |
00000cb0 f1 8a 32 35 2c 31 33 29 22 35 30 50 22 0d 05 b4 |..25,13)"50P"...|
00000cc0 17 20 e3 20 59 3d 35 30 36 20 b8 20 38 30 30 20 |. . Y=506 . 800 |
00000cd0 88 20 36 34 0d 05 be 17 20 f2 42 4f 58 28 37 31 |. 64.... .BOX(71|
00000ce0 30 2c 59 2c 32 37 30 2c 34 38 29 0d 05 c8 08 20 |0,Y,270,48).... |
00000cf0 ed 20 59 0d 05 d2 1a 20 f2 42 4f 58 28 36 39 30 |. Y.... .BOX(690|
00000d00 2c 34 39 30 2c 33 31 30 2c 33 33 34 29 0d 05 dc |,490,310,334)...|
00000d10 1a 20 f2 42 4f 58 28 36 37 38 2c 34 38 32 2c 33 |. .BOX(678,482,3|
00000d20 33 34 2c 33 35 30 29 0d 05 e6 1a 20 f2 42 4f 58 |34,350).... .BOX|
00000d30 28 36 36 36 2c 34 37 34 2c 33 35 38 2c 33 36 36 |(666,474,358,366|
00000d40 29 0d 05 f0 0e 20 e3 20 4c 3d 31 20 b8 20 34 0d |).... . L=1 . 4.|
00000d50 05 fa 18 20 46 24 28 31 29 3d c1 52 24 28 4c 29 |... F$(1)=.R$(L)|
00000d60 2c 32 30 2c 35 38 29 0d 06 04 15 20 f1 8a 34 2a |,20,58).... ..4*|
00000d70 4c 2d 31 2c 31 34 29 46 24 28 31 29 0d 06 0e 08 |L-1,14)F$(1)....|
00000d80 20 ed 20 4c 0d 06 18 14 20 ef 20 31 39 2c 37 2c | . L.... . 19,7,|
00000d90 37 3b 30 3b 30 3b 30 3b 0d 06 22 06 20 e1 0d 06 |7;0;0;0;..". ...|
00000da0 2c 12 20 dd f2 4d 45 53 53 41 47 45 28 55 24 29 |,. ..MESSAGE(U$)|
00000db0 0d 06 36 07 20 fb 31 0d 06 40 0d 20 4c 55 3d a9 |..6. .1..@. LU=.|
00000dc0 28 55 24 29 0d 06 4a 24 20 55 24 3d 55 24 2b 22 |(U$)..J$ U$=U$+"|
00000dd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000de0 20 20 20 20 20 20 20 22 0d 06 54 1f 20 e3 20 4c | "..T. . L|
00000df0 3d 33 38 20 b8 20 28 32 38 2d 4c 55 29 2f 32 2b |=38 . (28-LU)/2+|
00000e00 31 31 20 88 20 2d 31 0d 06 5e 15 20 f1 8a 4c 2c |11 . -1..^. ..L,|
00000e10 33 30 29 c0 55 24 2c 33 39 2d 4c 29 0d 06 68 1b |30).U$,39-L)..h.|
00000e20 20 e7 20 4c 20 83 33 3d 30 20 d4 20 31 2c 2d 31 | . L .3=0 . 1,-1|
00000e30 35 2c 4c 2a 35 2c 31 0d 06 72 15 20 e3 20 50 4c |5,L*5,1..r. . PL|
00000e40 3d 31 20 b8 20 31 30 3a ed 20 50 4c 0d 06 7c 08 |=1 . 10:. PL..|.|
00000e50 20 ed 20 4c 0d 06 86 06 20 e1 0d 06 90 0e 20 dd | . L.... ..... .|
00000e60 f2 44 45 4c 28 55 24 29 0d 06 9a 07 20 fb 31 0d |.DEL(U$).... .1.|
00000e70 06 a4 0d 20 4c 55 3d a9 28 55 24 29 0d 06 ae 24 |... LU=.(U$)...$|
00000e80 20 55 24 3d 55 24 2b 22 20 20 20 20 20 20 20 20 | U$=U$+" |
00000e90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000ea0 0d 06 b8 24 20 55 24 3d 55 24 2b 22 20 20 20 20 |...$ U$=U$+" |
00000eb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000ec0 20 20 20 22 0d 06 c2 1f 20 e3 20 4c 3d 28 32 38 | ".... . L=(28|
00000ed0 2d 4c 55 29 2f 32 2b 31 31 20 b8 20 31 31 20 88 |-LU)/2+11 . 11 .|
00000ee0 20 2d 31 0d 06 cc 15 20 f1 8a 4c 2c 33 30 29 c0 | -1.... ..L,30).|
00000ef0 55 24 2c 33 39 2d 4c 29 0d 06 d6 15 20 e3 20 50 |U$,39-L).... . P|
00000f00 4c 3d 31 20 b8 20 31 30 3a ed 20 50 4c 0d 06 e0 |L=1 . 10:. PL...|
00000f10 08 20 ed 20 4c 0d 06 ea 11 20 e3 20 4c 3d 31 20 |. . L.... . L=1 |
00000f20 b8 20 4c 55 2b 31 0d 06 f4 18 20 f1 8a 31 30 2c |. LU+1.... ..10,|
00000f30 33 30 29 c1 55 24 2c 4c 2c 4c 55 2b 31 29 0d 06 |30).U$,L,LU+1)..|
00000f40 fe 15 20 e3 20 50 4c 3d 31 20 b8 20 31 30 3a ed |.. . PL=1 . 10:.|
00000f50 20 50 4c 0d 07 08 08 20 ed 20 4c 0d 07 12 06 20 | PL.... . L.... |
00000f60 e1 0d 07 1c 0c 20 dd f2 73 74 61 72 74 0d 07 26 |..... ..start..&|
00000f70 26 20 e7 20 b3 28 31 30 30 29 3c 33 30 20 80 20 |& . .(100)<30 . |
00000f80 53 50 4e 53 3c 3e 30 20 f2 48 4f 4c 44 3a e5 8d |SPNS<>0 .HOLD:..|
00000f90 64 5a 47 0d 07 30 0a 20 46 49 4e 3d a3 0d 07 3a |dZG..0. FIN=...:|
00000fa0 23 20 f2 4d 45 53 53 41 47 45 28 22 50 52 45 53 |# .MESSAGE("PRES|
00000fb0 53 20 27 53 27 20 54 4f 20 53 54 41 52 54 22 29 |S 'S' TO START")|
00000fc0 0d 07 44 09 20 43 4c 3d 32 0d 07 4e 06 20 f5 0d |..D. CL=2..N. ..|
00000fd0 07 58 0c 20 43 4c 3d 33 2d 43 4c 0d 07 62 09 20 |.X. CL=3-CL..b. |
00000fe0 fb 20 43 4c 0d 07 6c 15 20 f1 8a 32 2c 33 30 29 |. CL..l. ..2,30)|
00000ff0 3b 22 53 54 41 52 54 22 3b 0d 07 76 0c 20 2a 46 |;"START";..v. *F|
00001000 58 31 35 2c 31 0d 07 80 10 20 e3 20 4c 3d 31 20 |X15,1.... . L=1 |
00001010 b8 20 31 30 30 0d 07 8a 0c 20 4b 24 3d bf 28 30 |. 100.... K$=.(0|
00001020 29 0d 07 94 13 20 e7 20 4b 24 3d 22 53 22 20 46 |).... . K$="S" F|
00001030 49 4e 3d b9 0d 07 9e 08 20 ed 20 4c 0d 07 a8 0a |IN=..... . L....|
00001040 20 fd 20 46 49 4e 0d 07 b2 15 20 e3 20 4c 3d 32 | . FIN.... . L=2|
00001050 35 30 20 b8 20 30 20 88 20 2d 36 0d 07 bc 11 20 |50 . 0 . -6.... |
00001060 d4 20 31 2c 2d 31 35 2c 4c 2c 2e 33 0d 07 c6 08 |. 1,-15,L,.3....|
00001070 20 ed 20 4c 0d 07 d0 1f 20 f2 44 45 4c 28 22 50 | . L.... .DEL("P|
00001080 52 45 53 53 20 27 53 27 20 54 4f 20 53 54 41 52 |RESS 'S' TO STAR|
00001090 54 22 29 0d 07 da 17 20 fb 20 31 3a f1 8a 32 2c |T").... . 1:..2,|
000010a0 33 30 29 22 53 54 41 52 54 22 0d 07 e4 12 20 43 |30)"START".... C|
000010b0 41 3d 43 41 2d 31 30 3a f2 4d 4f 4e 0d 07 ee 0a |A=CA-10:.MON....|
000010c0 20 f2 73 70 69 6e 0d 07 f8 06 20 e1 0d 08 02 0a | .spin.... .....|
000010d0 20 dd f2 4d 4f 4e 0d 08 0c 0f 20 f1 8a 39 2c 32 | ..MON.... ..9,2|
000010e0 29 22 20 22 3b 0d 08 16 13 20 57 24 3d c3 28 43 |)" ";.... W$=.(C|
000010f0 41 20 81 20 31 30 30 29 0d 08 20 15 20 e7 20 a9 |A . 100).. . . .|
00001100 28 57 24 29 3d 30 20 f1 22 30 30 30 22 0d 08 2a |(W$)=0 ."000"..*|
00001110 14 20 e7 20 a9 28 57 24 29 3d 31 20 f1 22 30 30 |. . .(W$)=1 ."00|
00001120 22 0d 08 34 13 20 e7 20 a9 28 57 24 29 3d 32 20 |"..4. . .(W$)=2 |
00001130 f1 22 30 22 0d 08 3e 14 20 f1 8a 31 33 2d a9 28 |."0"..>. ..13-.(|
00001140 57 24 29 2c 32 29 57 24 0d 08 48 13 20 57 24 3d |W$),2)W$..H. W$=|
00001150 c3 28 43 41 20 83 20 31 30 30 29 0d 08 52 14 20 |.(CA . 100)..R. |
00001160 f1 8a 31 36 2d a9 28 57 24 29 2c 32 29 57 24 0d |..16-.(W$),2)W$.|
00001170 08 5c 19 20 e7 20 bb 28 57 24 29 3d 30 20 f1 8a |.\. . .(W$)=0 ..|
00001180 31 34 2c 32 29 22 30 22 0d 08 66 10 20 e7 20 43 |14,2)"0"..f. . C|
00001190 41 3c 30 20 f2 45 4e 44 0d 08 70 06 20 e1 0d 08 |A<0 .END..p. ...|
000011a0 7a 0a 20 dd f2 57 49 4e 0d 08 84 28 20 f2 4d 45 |z. ..WIN...( .ME|
000011b0 53 53 41 47 45 28 22 57 49 4e 20 21 20 57 49 4e |SSAGE("WIN ! WIN|
000011c0 20 21 20 57 49 4e 20 21 20 57 49 4e 20 21 22 29 | ! WIN ! WIN !")|
000011d0 0d 08 8e 0e 20 e3 20 4c 3d 31 20 b8 20 33 0d 08 |.... . L=1 . 3..|
000011e0 98 14 20 e3 20 50 3d 31 20 b8 20 32 35 30 20 88 |.. . P=1 . 250 .|
000011f0 20 34 0d 08 a2 11 20 d4 20 31 2c 2d 31 35 2c 50 | 4.... . 1,-15,P|
00001200 2c 2e 33 0d 08 ac 08 20 ed 20 50 0d 08 b6 15 20 |,.3.... . P.... |
00001210 e3 20 50 3d 32 34 37 20 b8 20 34 20 88 20 2d 34 |. P=247 . 4 . -4|
00001220 0d 08 c0 11 20 d4 20 31 2c 2d 31 35 2c 50 2c 2e |.... . 1,-15,P,.|
00001230 33 0d 08 ca 08 20 ed 20 50 0d 08 d4 08 20 ed 20 |3.... . P.... . |
00001240 4c 0d 08 de 24 20 f2 44 45 4c 28 22 57 49 4e 20 |L...$ .DEL("WIN |
00001250 21 20 57 49 4e 20 21 20 57 49 4e 20 21 20 57 49 |! WIN ! WIN ! WI|
00001260 4e 20 21 22 29 0d 08 e8 09 20 42 41 3d 30 0d 08 |N !").... BA=0..|
00001270 f2 21 20 e7 20 52 31 28 56 28 31 29 29 3c 3e 52 |.! . R1(V(1))<>R|
00001280 33 28 56 28 33 29 29 20 53 54 3d 32 30 3a e1 0d |3(V(3)) ST=20:..|
00001290 08 fc 2b 20 e7 20 52 31 28 56 28 31 29 29 3c 3e |..+ . R1(V(1))<>|
000012a0 52 34 28 56 28 34 29 29 20 53 54 3d 52 31 28 56 |R4(V(4)) ST=R1(V|
000012b0 28 31 29 29 2a 31 30 30 3a e1 0d 09 06 18 20 53 |(1))*100:..... S|
000012c0 54 3d 52 31 28 56 28 31 29 29 2a 31 30 30 2b 35 |T=R1(V(1))*100+5|
000012d0 30 30 0d 09 10 06 20 e1 0d 09 1a 0b 20 dd f2 42 |00.... ..... ..B|
000012e0 41 53 54 0d 09 24 14 20 f1 8a 39 2c 38 29 22 20 |AST..$. ..9,8)" |
000012f0 30 30 30 2e 30 30 22 0d 09 2e 1c 20 e7 20 42 41 |000.00".... . BA|
00001300 3d 30 20 f1 8a 39 2c 31 30 29 22 20 30 30 30 2e |=0 ..9,10)" 000.|
00001310 30 30 22 0d 09 38 13 20 57 24 3d c3 28 53 54 20 |00"..8. W$=.(ST |
00001320 81 20 31 30 30 29 0d 09 42 14 20 f1 8a 31 33 2d |. 100)..B. ..13-|
00001330 a9 28 57 24 29 2c 38 29 57 24 0d 09 4c 13 20 57 |.(W$),8)W$..L. W|
00001340 24 3d c3 28 53 54 20 83 20 31 30 30 29 0d 09 56 |$=.(ST . 100)..V|
00001350 14 20 f1 8a 31 36 2d a9 28 57 24 29 2c 38 29 57 |. ..16-.(W$),8)W|
00001360 24 0d 09 60 13 20 57 24 3d c3 28 42 41 20 81 20 |$..`. W$=.(BA . |
00001370 31 30 30 29 0d 09 6a 10 20 f1 8a 39 2c 31 30 29 |100)..j. ..9,10)|
00001380 22 20 22 3b 0d 09 74 15 20 e7 20 a9 28 57 24 29 |" ";..t. . .(W$)|
00001390 3d 30 20 f1 22 30 30 30 22 0d 09 7e 14 20 e7 20 |=0 ."000"..~. . |
000013a0 a9 28 57 24 29 3d 31 20 f1 22 30 30 22 0d 09 88 |.(W$)=1 ."00"...|
000013b0 13 20 e7 20 a9 28 57 24 29 3d 32 20 f1 22 30 22 |. . .(W$)=2 ."0"|
000013c0 0d 09 92 15 20 f1 8a 31 33 2d a9 28 57 24 29 2c |.... ..13-.(W$),|
000013d0 31 30 29 57 24 0d 09 9c 13 20 57 24 3d c3 28 42 |10)W$.... W$=.(B|
000013e0 41 20 83 20 31 30 30 29 0d 09 a6 15 20 f1 8a 31 |A . 100).... ..1|
000013f0 36 2d a9 28 57 24 29 2c 31 30 29 57 24 0d 09 b0 |6-.(W$),10)W$...|
00001400 1a 20 e7 20 bb 28 57 24 29 3d 30 20 f1 8a 31 34 |. . .(W$)=0 ..14|
00001410 2c 31 30 29 22 30 22 0d 09 ba 06 20 e1 0d 09 c4 |,10)"0".... ....|
00001420 0d 20 dd f2 47 41 4d 42 4c 45 0d 09 ce 0a 20 f2 |. ..GAMBLE.... .|
00001430 42 41 53 54 0d 09 d8 0d 20 e7 20 53 54 3d 30 20 |BAST.... . ST=0 |
00001440 e1 0d 09 e2 27 20 f2 4d 45 53 53 41 47 45 28 22 |....' .MESSAGE("|
00001450 50 52 45 53 53 20 27 47 27 20 2c 20 27 42 27 20 |PRESS 'G' , 'B' |
00001460 4f 52 20 27 43 27 22 29 0d 09 ec 0e 20 43 4c 3d |OR 'C'").... CL=|
00001470 37 3a 43 4f 3d 31 0d 09 f6 0a 20 46 49 4e 3d a3 |7:CO=1.... FIN=.|
00001480 0d 0a 00 06 20 f5 0d 0a 0a 14 20 43 4c 3d 37 2d |.... ..... CL=7-|
00001490 43 4c 3a 43 4f 3d 33 2d 43 4f 0d 0a 14 10 20 fb |CL:CO=3-CO.... .|
000014a0 20 43 4f 3a e6 20 30 2c 43 4c 0d 0a 1e 16 20 f1 | CO:. 0,CL.... .|
000014b0 8a 31 39 2c 32 30 29 22 43 4f 4c 4c 45 43 54 22 |.19,20)"COLLECT"|
000014c0 0d 0a 28 1b 20 ef 35 3a ec 20 36 32 36 2c 33 33 |..(. .5:. 626,33|
000014d0 30 3a f1 22 47 41 4d 42 4c 45 22 0d 0a 32 1a 20 |0:."GAMBLE"..2. |
000014e0 ec 20 36 36 30 2c 32 37 36 3a f1 22 42 41 4e 4b |. 660,276:."BANK|
000014f0 22 3a ef 20 34 0d 0a 3c 14 20 d4 20 31 2c 2d 31 |":. 4..<. . 1,-1|
00001500 35 2c 33 30 2a 43 4c 2c 31 0d 0a 46 12 20 e3 20 |5,30*CL,1..F. . |
00001510 4c 4f 4f 50 3d 31 20 b8 20 37 30 0d 0a 50 0c 20 |LOOP=1 . 70..P. |
00001520 4b 24 3d bf 28 30 29 0d 0a 5a 2b 20 e7 20 4b 24 |K$=.(0)..Z+ . K$|
00001530 3d 22 43 22 20 84 20 4b 24 3d 22 47 22 20 84 20 |="C" . K$="G" . |
00001540 4b 24 3d 22 42 22 20 46 49 4e 3d b9 3a 5a 24 3d |K$="B" FIN=.:Z$=|
00001550 4b 24 0d 0a 64 0b 20 ed 20 4c 4f 4f 50 0d 0a 6e |K$..d. . LOOP..n|
00001560 0a 20 fd 20 46 49 4e 0d 0a 78 2d 20 e7 20 5a 24 |. . FIN..x- . Z$|
00001570 3c 3e 22 42 22 20 f2 44 45 4c 28 22 50 52 45 53 |<>"B" .DEL("PRES|
00001580 53 20 27 47 27 20 2c 20 27 42 27 20 4f 52 20 27 |S 'G' , 'B' OR '|
00001590 43 27 22 29 0d 0a 82 0d 20 e6 20 30 2c 37 3a fb |C'").... . 0,7:.|
000015a0 31 0d 0a 8c 16 20 f1 8a 31 39 2c 32 30 29 22 43 |1.... ..19,20)"C|
000015b0 4f 4c 4c 45 43 54 22 0d 0a 96 1b 20 ef 35 3a ec |OLLECT".... .5:.|
000015c0 20 36 32 36 2c 33 33 30 3a f1 22 47 41 4d 42 4c | 626,330:."GAMBL|
000015d0 45 22 0d 0a a0 1a 20 ec 20 36 36 30 2c 32 37 36 |E".... . 660,276|
000015e0 3a f1 22 42 41 4e 4b 22 3a ef 20 34 0d 0a aa 18 |:."BANK":. 4....|
000015f0 20 e7 20 5a 24 3d 22 43 22 20 f2 43 4f 4c 4c 45 | . Z$="C" .COLLE|
00001600 43 54 3a e1 0d 0a b4 37 20 e7 20 5a 24 3d 22 42 |CT:....7 . Z$="B|
00001610 22 20 f2 42 41 4e 4b 3a e7 20 46 42 3d 2d 31 20 |" .BANK:. FB=-1 |
00001620 f2 43 4f 4c 4c 45 43 54 3a e1 20 8b 20 e7 20 5a |.COLLECT:. . . Z|
00001630 24 3d 22 42 22 20 e5 8d 64 6c 49 0d 0a be 4b 20 |$="B" ..dlI...K |
00001640 e7 20 5a 24 3d 22 47 22 20 f2 52 49 53 4b 3a e7 |. Z$="G" .RISK:.|
00001650 20 53 54 3c 3e 30 20 e5 8d 64 58 49 20 8b 20 e7 | ST<>0 ..dXI . .|
00001660 20 5a 24 3d 22 47 22 20 80 20 42 41 3d 30 20 e1 | Z$="G" . BA=0 .|
00001670 20 8b 20 e7 20 5a 24 3d 22 47 22 20 f2 43 4f 4c | . . Z$="G" .COL|
00001680 4c 45 43 54 3a e1 0d 0a c8 06 20 e1 0d 0a d2 0e |LECT:..... .....|
00001690 20 dd f2 43 4f 4c 4c 45 43 54 0d 0a dc 16 20 e3 | ..COLLECT.... .|
000016a0 20 44 3d 32 30 20 b8 20 31 32 30 20 88 20 31 30 | D=20 . 120 . 10|
000016b0 0d 0a e6 11 20 d4 20 31 2c 2d 31 35 2c 44 2c 2e |.... . 1,-15,D,.|
000016c0 35 0d 0a f0 08 20 ed 20 44 0d 0a fa 18 20 42 41 |5.... . D.... BA|
000016d0 3d 42 41 2b 53 54 3a 53 54 3d 30 3a f2 42 41 53 |=BA+ST:ST=0:.BAS|
000016e0 54 0d 0b 04 1a 20 4d 4c 24 3d c3 28 42 41 29 2b |T.... ML$=.(BA)+|
000016f0 22 20 50 20 42 41 4e 4b 45 44 22 0d 0b 0e 12 20 |" P BANKED".... |
00001700 f2 4d 45 53 53 41 47 45 28 4d 4c 24 29 0d 0b 18 |.MESSAGE(ML$)...|
00001710 15 20 e3 20 50 3d 31 20 b8 20 31 30 30 30 3a ed |. . P=1 . 1000:.|
00001720 20 50 0d 0b 22 05 20 0d 0b 2c 0e 20 f2 44 45 4c | P..". ..,. .DEL|
00001730 28 4d 4c 24 29 0d 0b 36 09 20 43 4c 3d 31 0d 0b |(ML$)..6. CL=1..|
00001740 40 2d 20 f2 4d 45 53 53 41 47 45 28 22 50 52 45 |@- .MESSAGE("PRE|
00001750 53 53 20 41 20 4b 45 59 20 54 4f 20 43 4f 4c 4c |SS A KEY TO COLL|
00001760 45 43 54 20 42 41 4e 4b 20 22 29 0d 0b 4a 0a 20 |ECT BANK ")..J. |
00001770 46 49 4e 3d a3 0d 0b 54 06 20 f5 0d 0b 5e 10 20 |FIN=...T. ...^. |
00001780 fb 43 4c 3a 43 4c 3d 33 2d 43 4c 0d 0b 68 12 20 |.CL:CL=3-CL..h. |
00001790 f1 8a 32 2c 31 30 29 22 42 41 4e 4b 22 0d 0b 72 |..2,10)"BANK"..r|
000017a0 11 20 e3 20 4c 50 3d 31 20 b8 20 31 30 30 0d 0b |. . LP=1 . 100..|
000017b0 7c 15 20 e7 20 bf 28 30 29 3c 3e 22 22 20 46 49 ||. . .(0)<>"" FI|
000017c0 4e 3d b9 0d 0b 86 09 20 ed 20 4c 50 0d 0b 90 0a |N=..... . LP....|
000017d0 20 fd 20 46 49 4e 0d 0b 9a 15 20 fb 31 3a f1 8a | . FIN.... .1:..|
000017e0 32 2c 31 30 29 22 42 41 4e 4b 22 0d 0b a4 16 20 |2,10)"BANK".... |
000017f0 e3 20 44 3d 38 30 20 b8 20 31 38 30 20 88 20 31 |. D=80 . 180 . 1|
00001800 30 0d 0b ae 11 20 d4 20 31 2c 2d 31 35 2c 44 2c |0.... . 1,-15,D,|
00001810 2e 35 0d 0b b8 08 20 ed 20 44 0d 0b c2 28 20 f2 |.5.... . D...( .|
00001820 44 45 4c 28 22 50 52 45 53 53 20 41 20 4b 45 59 |DEL("PRESS A KEY|
00001830 20 54 4f 20 43 4f 4c 4c 45 43 54 20 42 41 4e 4b | TO COLLECT BANK|
00001840 22 29 0d 0b cc 1c 20 45 24 3d c3 28 42 41 29 2b |").... E$=.(BA)+|
00001850 22 20 50 20 43 4f 4c 4c 45 43 54 45 44 22 0d 0b |" P COLLECTED"..|
00001860 d6 1d 20 f5 3a 43 41 3d 43 41 2b 31 30 3a f2 4d |.. .:CA=CA+10:.M|
00001870 4f 4e 3a 42 41 3d 42 41 2d 31 30 0d 0b e0 18 20 |ON:BA=BA-10.... |
00001880 f2 42 41 53 54 3a d4 31 2c 2d 31 35 2c 31 30 30 |.BAST:.1,-15,100|
00001890 2c 2e 32 0d 0b ea 18 20 e3 20 4c 50 3d 31 20 b8 |,.2.... . LP=1 .|
000018a0 20 35 3a ed 3a fd 20 42 41 3d 30 0d 0b f4 1c 20 | 5:.:. BA=0.... |
000018b0 42 41 3d 30 3a f2 42 41 53 54 3a f2 4d 45 53 53 |BA=0:.BAST:.MESS|
000018c0 41 47 45 28 45 24 29 0d 0b fe 17 20 e3 20 4c 50 |AGE(E$).... . LP|
000018d0 3d 31 20 b8 20 31 30 30 30 3a ed 20 4c 50 0d 0c |=1 . 1000:. LP..|
000018e0 08 0d 20 f2 44 45 4c 28 45 24 29 0d 0c 12 06 20 |.. .DEL(E$).... |
000018f0 e1 0d 0c 1c 0b 20 dd f2 42 41 4e 4b 0d 0c 26 1c |..... ..BANK..&.|
00001900 20 42 41 3d 42 41 2b 31 30 3a 53 54 3d 53 54 2d | BA=BA+10:ST=ST-|
00001910 31 30 3a f2 42 41 53 54 0d 0c 30 3e 20 e7 20 53 |10:.BAST..0> . S|
00001920 54 3d 30 20 5a 24 3d 22 43 22 3a f2 44 45 4c 28 |T=0 Z$="C":.DEL(|
00001930 22 50 52 45 53 53 20 27 47 27 20 2c 20 27 42 27 |"PRESS 'G' , 'B'|
00001940 20 4f 52 20 27 43 27 22 29 3a 46 42 3d 2d 31 20 | OR 'C'"):FB=-1 |
00001950 8b 20 46 42 3d 30 0d 0c 3a 06 20 e1 0d 0c 44 0b |. FB=0..:. ...D.|
00001960 20 dd f2 52 49 53 4b 0d 0c 4e 1e 20 f2 4d 45 53 | ..RISK..N. .MES|
00001970 53 41 47 45 28 22 50 52 45 53 53 20 41 4e 59 20 |SAGE("PRESS ANY |
00001980 4b 45 59 22 29 0d 0c 58 09 20 43 4c 3d 30 0d 0c |KEY")..X. CL=0..|
00001990 62 0a 20 46 49 4e 3d 30 0d 0c 6c 06 20 f5 0d 0c |b. FIN=0..l. ...|
000019a0 76 13 20 e6 20 30 2c 43 4c 3a 43 4c 3d 37 2d 43 |v. . 0,CL:CL=7-C|
000019b0 4c 0d 0c 80 1c 20 ef 20 35 3a ec 20 36 32 36 2c |L.... . 5:. 626,|
000019c0 32 31 30 3a f1 22 44 4f 55 42 4c 45 22 0d 0c 8a |210:."DOUBLE"...|
000019d0 15 20 e6 20 30 2c 43 4c 3a ec 20 36 34 36 2c 31 |. . 0,CL:. 646,1|
000019e0 35 38 0d 0c 94 11 20 f1 22 51 55 49 54 53 22 3a |58.... ."QUITS":|
000019f0 ef 20 34 0d 0c 9e 0f 20 fd 20 bf 28 30 29 3c 3e |. 4.... . .(0)<>|
00001a00 22 22 0d 0c a8 1c 20 e3 20 4c 50 3d 31 20 b8 20 |"".... . LP=1 . |
00001a10 34 30 30 3a ed 20 4c 50 3a e6 20 30 2c 37 0d 0c |400:. LP:. 0,7..|
00001a20 b2 1c 20 ef 20 35 3a ec 20 36 32 36 2c 32 31 30 |.. . 5:. 626,210|
00001a30 3a f1 22 44 4f 55 42 4c 45 22 0d 0c bc 1b 20 ec |:."DOUBLE".... .|
00001a40 20 36 34 36 2c 31 35 38 3a f1 22 51 55 49 54 53 | 646,158:."QUITS|
00001a50 22 3a ef 20 34 0d 0c c6 10 20 e7 20 43 4c 3d 37 |":. 4.... . CL=7|
00001a60 20 f2 4c 3a e1 0d 0c d0 1a 20 f2 44 45 4c 28 22 | .L:..... .DEL("|
00001a70 50 52 45 53 53 20 41 4e 59 20 4b 45 59 22 29 0d |PRESS ANY KEY").|
00001a80 0c da 28 20 f2 4d 45 53 53 41 47 45 28 22 57 49 |..( .MESSAGE("WI|
00001a90 4e 20 21 20 57 49 4e 20 21 20 57 49 4e 20 21 20 |N ! WIN ! WIN ! |
00001aa0 57 49 4e 20 21 22 29 0d 0c e4 0e 20 e3 20 4c 3d |WIN !").... . L=|
00001ab0 31 20 b8 20 33 0d 0c ee 14 20 e3 20 50 3d 31 20 |1 . 3.... . P=1 |
00001ac0 b8 20 32 35 30 20 88 20 34 0d 0c f8 15 20 d4 20 |. 250 . 4.... . |
00001ad0 31 2c 2d 31 35 2c 50 2c 2e 33 3a ed 20 50 0d 0d |1,-15,P,.3:. P..|
00001ae0 02 15 20 e3 20 50 3d 32 34 37 20 b8 20 34 20 88 |.. . P=247 . 4 .|
00001af0 20 2d 34 0d 0d 0c 19 20 d4 20 31 2c 2d 31 35 2c | -4.... . 1,-15,|
00001b00 50 2c 2e 33 3a ed 20 50 3a ed 20 4c 0d 0d 16 12 |P,.3:. P:. L....|
00001b10 20 53 54 3d 53 54 2a 32 3a f2 42 41 53 54 0d 0d | ST=ST*2:.BAST..|
00001b20 20 37 20 e3 20 4c 50 3d 31 20 b8 20 31 30 30 30 | 7 . LP=1 . 1000|
00001b30 3a ed 20 4c 50 3a f2 44 45 4c 28 22 57 49 4e 20 |:. LP:.DEL("WIN |
00001b40 21 20 57 49 4e 20 21 20 57 49 4e 20 21 20 57 49 |! WIN ! WIN ! WI|
00001b50 4e 20 21 22 29 0d 0d 2a 06 20 e1 0d 0d 34 08 20 |N !")..*. ...4. |
00001b60 dd f2 4c 0d 0d 3e 1a 20 f2 44 45 4c 28 22 50 52 |..L..>. .DEL("PR|
00001b70 45 53 53 20 41 4e 59 20 4b 45 59 22 29 0d 0d 48 |ESS ANY KEY")..H|
00001b80 25 20 f2 4d 45 53 53 41 47 45 28 22 4c 4f 53 45 |% .MESSAGE("LOSE|
00001b90 20 21 20 4c 4f 53 45 20 21 20 4c 4f 53 45 20 21 | ! LOSE ! LOSE !|
00001ba0 22 29 0d 0d 52 0f 20 53 54 3d 30 3a f2 42 41 53 |")..R. ST=0:.BAS|
00001bb0 54 0d 0d 5c 17 20 e3 20 4c 50 3d 31 20 b8 20 31 |T..\. . LP=1 . 1|
00001bc0 30 30 30 3a ed 20 4c 50 0d 0d 66 21 20 f2 44 45 |000:. LP..f! .DE|
00001bd0 4c 28 22 4c 4f 53 45 20 21 20 4c 4f 53 45 20 21 |L("LOSE ! LOSE !|
00001be0 20 4c 4f 53 45 20 21 22 29 0d 0d 70 06 20 e1 0d | LOSE !")..p. ..|
00001bf0 0d 7a 0b 20 dd f2 48 4f 4c 44 0d 0d 84 2d 20 f2 |.z. ..HOLD...- .|
00001c00 4d 45 53 53 41 47 45 28 22 48 4f 4c 44 20 2d 20 |MESSAGE("HOLD - |
00001c10 50 52 45 53 53 20 31 2c 32 2c 33 2c 34 2c 43 20 |PRESS 1,2,3,4,C |
00001c20 4f 52 20 53 20 22 29 0d 0d 8e 09 20 43 4c 3d 31 |OR S ").... CL=1|
00001c30 0d 0d 98 18 20 e3 4c 3d 31 20 b8 20 34 3a 48 28 |.... .L=1 . 4:H(|
00001c40 4c 29 3d 30 3a ed 20 4c 0d 0d a2 06 20 f5 0d 0d |L)=0:. L.... ...|
00001c50 ac 0a 20 46 49 4e 3d a3 0d 0d b6 06 20 f5 0d 0d |.. FIN=..... ...|
00001c60 c0 11 20 fb 20 43 4c 3a 43 4c 3d 33 2d 43 4c 0d |.. . CL:CL=3-CL.|
00001c70 0d ca 0f 20 e3 20 4c 4b 3d 31 20 b8 20 34 0d 0d |... . LK=1 . 4..|
00001c80 d4 2b 20 e7 20 48 28 4c 4b 29 3d 30 20 f1 8a 32 |.+ . H(LK)=0 ..2|
00001c90 2b 28 4c 4b 2d 31 29 2a 34 2c 32 37 29 22 48 22 |+(LK-1)*4,27)"H"|
00001ca0 3a ed 20 4c 4b 20 8b 20 ed 0d 0d de 13 20 f1 8a |:. LK . ..... ..|
00001cb0 32 2c 33 30 29 22 53 54 41 52 54 22 0d 0d e8 10 |2,30)"START"....|
00001cc0 20 e3 20 4c 50 3d 31 20 b8 20 35 30 0d 0d f2 0c | . LP=1 . 50....|
00001cd0 20 4b 24 3d bf 28 30 29 0d 0d fc 46 20 e7 20 4b | K$=.(0)...F . K|
00001ce0 24 3d 22 31 22 20 84 20 4b 24 3d 22 32 22 20 84 |$="1" . K$="2" .|
00001cf0 20 4b 24 3d 22 33 22 20 84 20 4b 24 3d 22 34 22 | K$="3" . K$="4"|
00001d00 20 84 20 4b 24 3d 22 43 22 20 84 20 4b 24 3d 22 | . K$="C" . K$="|
00001d10 53 22 20 5a 24 3d 4b 24 3a 46 49 4e 3d b9 0d 0e |S" Z$=K$:FIN=...|
00001d20 06 09 20 ed 20 4c 50 0d 0e 10 0a 20 fd 20 46 49 |.. . LP.... . FI|
00001d30 4e 0d 0e 1a 15 20 e3 20 4c 3d 30 20 b8 20 32 30 |N.... . L=0 . 20|
00001d40 30 20 88 20 34 30 0d 0e 24 15 20 d4 20 31 2c 2d |0 . 40..$. . 1,-|
00001d50 31 35 2c 4c 2c 2e 35 3a ed 20 4c 0d 0e 2e 21 20 |15,L,.5:. L...! |
00001d60 e7 20 5a 24 3d 22 43 22 20 e3 4c 3d 31 20 b8 20 |. Z$="C" .L=1 . |
00001d70 34 3a 48 28 4c 29 3d 30 3a ed 20 4c 0d 0e 38 23 |4:H(L)=0:. L..8#|
00001d80 20 e7 20 5a 24 3d 22 31 22 20 48 28 31 29 3d 31 | . Z$="1" H(1)=1|
00001d90 3a fb 31 3a f1 8a 32 2c 32 37 29 22 48 4e 22 0d |:.1:..2,27)"HN".|
00001da0 0e 42 23 20 e7 20 5a 24 3d 22 32 22 20 48 28 32 |.B# . Z$="2" H(2|
00001db0 29 3d 31 3a fb 31 3a f1 8a 36 2c 32 37 29 22 48 |)=1:.1:..6,27)"H|
00001dc0 4e 22 0d 0e 4c 24 20 e7 20 5a 24 3d 22 33 22 20 |N"..L$ . Z$="3" |
00001dd0 48 28 33 29 3d 31 3a fb 31 3a f1 8a 31 30 2c 32 |H(3)=1:.1:..10,2|
00001de0 37 29 22 48 4e 22 0d 0e 56 24 20 e7 20 5a 24 3d |7)"HN"..V$ . Z$=|
00001df0 22 34 22 20 48 28 34 29 3d 31 3a fb 31 3a f1 8a |"4" H(4)=1:.1:..|
00001e00 31 34 2c 32 37 29 22 48 4e 22 0d 0e 60 0d 20 fd |14,27)"HN"..`. .|
00001e10 20 5a 24 3d 22 53 22 0d 0e 6a 37 20 fb 31 3a f1 | Z$="S"..j7 .1:.|
00001e20 8a 32 2c 32 37 29 22 48 4e 22 bd 28 39 29 bd 28 |.2,27)"HN".(9).(|
00001e30 39 29 22 48 4e 22 bd 28 39 29 bd 28 39 29 22 48 |9)"HN".(9).(9)"H|
00001e40 4e 22 bd 28 39 29 bd 28 39 29 22 48 4e 22 0d 0e |N".(9).(9)"HN"..|
00001e50 74 13 20 f1 8a 32 2c 33 30 29 22 53 54 41 52 54 |t. ..2,30)"START|
00001e60 22 0d 0e 7e 29 20 f2 44 45 4c 28 22 48 4f 4c 44 |"..~) .DEL("HOLD|
00001e70 20 2d 20 50 52 45 53 53 20 31 2c 32 2c 33 2c 34 | - PRESS 1,2,3,4|
00001e80 2c 43 20 4f 52 20 53 20 22 29 0d 0e 88 06 20 e1 |,C OR S ").... .|
00001e90 0d 0e 92 0a 20 dd f2 4d 45 4c 0d 0e 9c 0a 20 4f |.... ..MEL.... O|
00001ea0 4d 3d 4d 4d 0d 0e a6 19 20 e7 20 52 31 28 56 28 |M=MM.... . R1(V(|
00001eb0 31 29 29 3d 32 20 4d 4d 3d 4d 4d 2b 31 0d 0e b0 |1))=2 MM=MM+1...|
00001ec0 19 20 e7 20 52 32 28 56 28 32 29 29 3d 32 20 4d |. . R2(V(2))=2 M|
00001ed0 4d 3d 4d 4d 2b 31 0d 0e ba 19 20 e7 20 52 33 28 |M=MM+1.... . R3(|
00001ee0 56 28 33 29 29 3d 32 20 4d 4d 3d 4d 4d 2b 31 0d |V(3))=2 MM=MM+1.|
00001ef0 0e c4 19 20 e7 20 52 34 28 56 28 34 29 29 3d 32 |... . R4(V(4))=2|
00001f00 20 4d 4d 3d 4d 4d 2b 31 0d 0e ce 10 20 e7 20 4d | MM=MM+1.... . M|
00001f10 4d 3e 38 20 4d 4d 3d 38 0d 0e d8 0e 20 e7 20 4f |M>8 MM=8.... . O|
00001f20 4d 3d 4d 4d 20 e1 0d 0e e2 12 20 e3 20 4c 3d 4f |M=MM ..... . L=O|
00001f30 4d 2b 31 20 b8 20 4d 4d 0d 0e ec 1a 20 f1 8a 33 |M+1 . MM.... ..3|
00001f40 36 2c 32 36 2d 28 4c 2a 33 2d 31 29 29 3b 22 5e |6,26-(L*3-1));"^|
00001f50 5e 22 0d 0e f6 17 20 f1 8a 33 36 2c 32 36 2d 28 |^".... ..36,26-(|
00001f60 4c 2a 33 29 29 22 5e 5e 22 0d 0f 00 12 20 d4 20 |L*3))"^^".... . |
00001f70 31 2c 2d 31 35 2c 4c 2a 34 2c 36 0d 0f 0a 16 20 |1,-15,L*4,6.... |
00001f80 e3 20 4c 50 3d 31 20 b8 20 36 30 30 3a ed 20 4c |. LP=1 . 600:. L|
00001f90 50 0d 0f 14 08 20 ed 20 4c 0d 0f 1e 10 20 e7 20 |P.... . L.... . |
00001fa0 4d 4d 3d 38 20 f2 4e 55 44 0d 0f 28 06 20 e1 0d |MM=8 .NUD..(. ..|
00001fb0 0f 32 0a 20 dd f2 4e 55 44 0d 0f 3c 0e 20 e3 20 |.2. ..NUD..<. . |
00001fc0 4c 3d 31 20 b8 20 38 0d 0f 46 1a 20 f1 8a 33 36 |L=1 . 8..F. ..36|
00001fd0 2c 32 36 2d 28 4c 2a 33 2d 31 29 29 3b 22 20 20 |,26-(L*3-1));" |
00001fe0 22 0d 0f 50 17 20 f1 8a 33 36 2c 32 36 2d 28 4c |"..P. ..36,26-(L|
00001ff0 2a 33 29 29 22 20 20 22 0d 0f 5a 08 20 ed 20 4c |*3))" "..Z. . L|
00002000 0d 0f 64 0f 20 e3 20 4c 4b 3d 31 20 b8 20 34 0d |..d. . LK=1 . 4.|
00002010 0f 6e 0e 20 e3 20 4c 3d 31 20 b8 20 38 0d 0f 78 |.n. . L=1 . 8..x|
00002020 1a 20 f1 8a 33 36 2c 32 36 2d 28 4c 2a 33 2d 31 |. ..36,26-(L*3-1|
00002030 29 29 3b 22 5e 5e 22 0d 0f 82 17 20 f1 8a 33 36 |));"^^".... ..36|
00002040 2c 32 36 2d 28 4c 2a 33 29 29 22 5e 5e 22 0d 0f |,26-(L*3))"^^"..|
00002050 8c 13 20 d4 20 31 2c 2d 31 35 2c 4c 2a 33 30 2c |.. . 1,-15,L*30,|
00002060 32 0d 0f 96 16 20 e3 20 50 4c 3d 31 20 b8 20 31 |2.... . PL=1 . 1|
00002070 30 30 3a ed 20 50 4c 0d 0f a0 1a 20 f1 8a 33 36 |00:. PL.... ..36|
00002080 2c 32 36 2d 28 4c 2a 33 2d 31 29 29 3b 22 20 20 |,26-(L*3-1));" |
00002090 22 0d 0f aa 17 20 f1 8a 33 36 2c 32 36 2d 28 4c |".... ..36,26-(L|
000020a0 2a 33 29 29 22 20 20 22 0d 0f b4 08 20 ed 20 4c |*3))" ".... . L|
000020b0 0d 0f be 09 20 ed 20 4c 4b 0d 0f c8 09 20 4d 4d |.... . LK.... MM|
000020c0 3d 30 0d 0f d2 13 20 e3 20 4c 3d 32 20 b8 20 32 |=0.... . L=2 . 2|
000020d0 33 20 88 20 33 0d 0f dc 11 20 f1 8a 33 36 2c 4c |3 . 3.... ..36,L|
000020e0 29 50 24 28 33 29 0d 0f e6 23 20 f2 42 4f 58 28 |)P$(3)...# .BOX(|
000020f0 31 31 34 30 2c 28 32 36 2d 4c 29 2a 33 32 2b 31 |1140,(26-L)*32+1|
00002100 31 36 2c 38 35 2c 38 35 29 0d 0f f0 08 20 ed 20 |16,85,85).... . |
00002110 4c 0d 0f fa 0a 20 f2 46 45 41 54 0d 10 04 06 20 |L.... .FEAT.... |
00002120 e1 0d 10 0e 0b 20 dd f2 46 45 41 54 0d 10 18 24 |..... ..FEAT...$|
00002130 20 f2 4d 45 53 53 41 47 45 28 22 4d 45 4c 4f 4e | .MESSAGE("MELON|
00002140 2d 4d 45 54 45 52 20 46 45 41 54 55 52 45 22 29 |-METER FEATURE")|
00002150 0d 10 22 14 20 e3 20 4c 50 3d 31 20 b8 20 31 30 |..". . LP=1 . 10|
00002160 30 30 3a ed 0d 10 2c 20 20 f2 44 45 4c 28 22 4d |00:..., .DEL("M|
00002170 45 4c 4f 4e 2d 4d 45 54 45 52 20 46 45 41 54 55 |ELON-METER FEATU|
00002180 52 45 22 29 0d 10 36 28 20 f2 4d 45 53 53 41 47 |RE")..6( .MESSAG|
00002190 45 28 22 43 48 4f 4f 53 45 20 2d 2d 20 50 52 45 |E("CHOOSE -- PRE|
000021a0 53 53 20 41 4e 59 20 4b 45 59 22 29 0d 10 40 09 |SS ANY KEY")..@.|
000021b0 20 43 4c 3d 31 0d 10 4a 09 20 47 4c 3d 30 0d 10 | CL=1..J. GL=0..|
000021c0 54 0a 20 46 49 4e 3d 30 0d 10 5e 06 20 f5 0d 10 |T. FIN=0..^. ...|
000021d0 68 10 20 fb 43 4c 3a 43 4c 3d 33 2d 43 4c 0d 10 |h. .CL:CL=3-CL..|
000021e0 72 15 20 f1 8a 32 33 2c 32 29 22 46 45 41 54 55 |r. ..23,2)"FEATU|
000021f0 52 45 22 0d 10 7c 18 20 47 4c 3d 47 4c 2b 31 3a |RE"..|. GL=GL+1:|
00002200 e7 20 47 4c 3d 36 20 47 4c 3d 31 0d 10 86 07 20 |. GL=6 GL=1.... |
00002210 fb 31 0d 10 90 14 20 f1 8a 31 39 2c 35 2b 47 4c |.1.... ..19,5+GL|
00002220 2a 32 29 22 3e 22 0d 10 9a 15 20 f1 8a 33 33 2c |*2)">".... ..33,|
00002230 35 2b 47 4c 2a 32 29 22 3c 22 20 0d 10 a4 0c 20 |5+GL*2)"<" .... |
00002240 2a 46 58 31 35 2c 31 0d 10 ae 10 20 e3 20 4c 4b |*FX15,1.... . LK|
00002250 3d 31 20 b8 20 36 30 0d 10 b8 15 20 e7 20 bf 28 |=1 . 60.... . .(|
00002260 30 29 3c 3e 22 22 20 46 49 4e 3d b9 0d 10 c2 09 |0)<>"" FIN=.....|
00002270 20 ed 20 4c 4b 0d 10 cc 14 20 f1 8a 31 39 2c 35 | . LK.... ..19,5|
00002280 2b 47 4c 2a 32 29 22 20 22 0d 10 d6 14 20 f1 8a |+GL*2)" ".... ..|
00002290 33 33 2c 35 2b 47 4c 2a 32 29 22 20 22 0d 10 e0 |33,5+GL*2)" "...|
000022a0 0a 20 fd 20 46 49 4e 0d 10 ea 24 20 f2 44 45 4c |. . FIN...$ .DEL|
000022b0 28 22 43 48 4f 4f 53 45 20 2d 2d 20 50 52 45 53 |("CHOOSE -- PRES|
000022c0 53 20 41 4e 59 20 4b 45 59 22 29 0d 10 f4 18 20 |S ANY KEY").... |
000022d0 fb 31 3a f1 8a 32 33 2c 32 29 22 46 45 41 54 55 |.1:..23,2)"FEATU|
000022e0 52 45 22 0d 10 fe 27 20 e7 20 47 4c 3d 31 20 e3 |RE"...' . GL=1 .|
000022f0 20 4c 3d 31 20 b8 20 34 3a 48 28 4c 29 3d 30 3a | L=1 . 4:H(L)=0:|
00002300 ed 20 4c 3a f2 52 45 53 3a e1 0d 11 08 11 20 e7 |. L:.RES:..... .|
00002310 20 47 4c 3d 32 20 f2 4e 4e 3a e1 0d 11 12 12 20 | GL=2 .NN:..... |
00002320 e7 20 47 4c 3d 33 20 f2 31 30 30 3a e1 0d 11 1c |. GL=3 .100:....|
00002330 11 20 e7 20 47 4c 3d 34 20 f2 35 30 3a e1 0d 11 |. . GL=4 .50:...|
00002340 26 14 20 e7 20 47 4c 3d 35 20 f2 4e 55 44 47 45 |&. . GL=5 .NUDGE|
00002350 3a e1 0d 11 30 06 20 e1 0d 11 3a 09 20 dd f2 4e |:...0. ...:. ..N|
00002360 4e 0d 11 44 18 20 f2 4d 45 53 53 41 47 45 28 22 |N..D. .MESSAGE("|
00002370 4e 4f 54 48 49 4e 47 22 29 0d 11 4e 17 20 e3 20 |NOTHING")..N. . |
00002380 50 4c 3d 31 20 b8 20 31 30 30 30 3a ed 20 50 4c |PL=1 . 1000:. PL|
00002390 0d 11 58 14 20 f2 44 45 4c 28 22 4e 4f 54 48 49 |..X. .DEL("NOTHI|
000023a0 4e 47 22 29 0d 11 62 06 20 e1 0d 11 6c 0a 20 dd |NG")..b. ...l. .|
000023b0 f2 52 45 53 0d 11 76 18 20 f2 4d 45 53 53 41 47 |.RES..v. .MESSAG|
000023c0 45 28 22 52 45 2d 53 50 49 4e 22 29 0d 11 80 17 |E("RE-SPIN")....|
000023d0 20 e3 20 50 4c 3d 31 20 b8 20 31 30 30 30 3a ed | . PL=1 . 1000:.|
000023e0 20 50 4c 0d 11 8a 14 20 f2 44 45 4c 28 22 52 45 | PL.... .DEL("RE|
000023f0 2d 53 50 49 4e 22 29 0d 11 94 0a 20 f2 73 70 69 |-SPIN").... .spi|
00002400 6e 0d 11 9e 06 20 e1 0d 11 a8 09 20 dd f2 35 30 |n.... ..... ..50|
00002410 0d 11 b2 19 20 f2 4d 45 53 53 41 47 45 28 22 35 |.... .MESSAGE("5|
00002420 30 20 50 20 57 49 4e 22 29 0d 11 bc 17 20 e3 20 |0 P WIN").... . |
00002430 50 4c 3d 31 20 b8 20 31 30 30 30 3a ed 20 50 4c |PL=1 . 1000:. PL|
00002440 0d 11 c6 15 20 f2 44 45 4c 28 22 35 30 20 50 20 |.... .DEL("50 P |
00002450 57 49 4e 22 29 0d 11 d0 0a 20 53 54 3d 35 30 0d |WIN").... ST=50.|
00002460 11 da 0c 20 f2 47 41 4d 42 4c 45 0d 11 e4 06 20 |... .GAMBLE.... |
00002470 e1 0d 11 ee 0a 20 dd f2 31 30 30 0d 11 f8 18 20 |..... ..100.... |
00002480 f2 4d 45 53 53 41 47 45 28 22 60 20 31 20 57 49 |.MESSAGE("` 1 WI|
00002490 4e 22 29 0d 12 02 17 20 e3 20 50 4c 3d 31 20 b8 |N").... . PL=1 .|
000024a0 20 31 30 30 30 3a ed 20 50 4c 0d 12 0c 14 20 f2 | 1000:. PL.... .|
000024b0 44 45 4c 28 22 60 20 31 20 57 49 4e 22 29 0d 12 |DEL("` 1 WIN")..|
000024c0 16 0b 20 53 54 3d 31 30 30 0d 12 20 0c 20 f2 47 |.. ST=100.. . .G|
000024d0 41 4d 42 4c 45 0d 12 2a 06 20 e1 0d 12 34 0c 20 |AMBLE..*. ...4. |
000024e0 dd f2 4e 55 44 47 45 0d 12 3e 0d 20 e3 4c 3d 31 |..NUDGE..>. .L=1|
000024f0 20 b8 20 34 0d 12 48 10 20 56 28 4c 29 3d 56 28 | . 4..H. V(L)=V(|
00002500 4c 29 2b 32 0d 12 52 19 20 e7 20 56 28 4c 29 3e |L)+2..R. . V(L)>|
00002510 34 20 56 28 4c 29 3d 56 28 4c 29 2d 34 0d 12 5c |4 V(L)=V(L)-4..\|
00002520 08 20 ed 20 4c 0d 12 66 0f 20 4e 4f 4e 3d b3 28 |. . L..f. NON=.(|
00002530 38 29 2b 31 0d 12 70 25 20 50 47 24 3d 22 4e 55 |8)+1..p% PG$="NU|
00002540 44 47 45 20 2d 2d 20 22 2b c3 28 4e 4f 4e 29 2b |DGE -- "+.(NON)+|
00002550 22 20 4e 55 44 47 45 53 22 0d 12 7a 12 20 f2 4d |" NUDGES"..z. .M|
00002560 45 53 53 41 47 45 28 50 47 24 29 0d 12 84 17 20 |ESSAGE(PG$).... |
00002570 e3 20 4c 50 3d 31 20 b8 20 31 30 30 30 3a ed 20 |. LP=1 . 1000:. |
00002580 4c 50 0d 12 8e 0e 20 f2 44 45 4c 28 50 47 24 29 |LP.... .DEL(PG$)|
00002590 0d 12 98 10 20 f1 8a 31 35 2c 34 29 3b 4e 4f 4e |.... ..15,4);NON|
000025a0 0d 12 a2 21 20 f2 4d 45 53 53 41 47 45 28 22 50 |...! .MESSAGE("P|
000025b0 52 45 53 53 20 31 2c 32 2c 33 20 4f 52 20 34 22 |RESS 1,2,3 OR 4"|
000025c0 29 0d 12 ac 09 20 43 4c 3d 31 0d 12 b6 45 20 44 |).... CL=1...E D|
000025d0 53 24 3d 22 4e 22 2b bd 28 39 29 2b bd 28 39 29 |S$="N"+.(9)+.(9)|
000025e0 2b bd 28 39 29 2b 22 4e 22 2b bd 28 39 29 2b bd |+.(9)+"N"+.(9)+.|
000025f0 28 39 29 2b bd 28 39 29 2b 22 4e 22 2b bd 28 39 |(9)+.(9)+"N"+.(9|
00002600 29 2b bd 28 39 29 2b bd 28 39 29 2b 22 4e 22 0d |)+.(9)+.(9)+"N".|
00002610 12 c0 0a 20 46 49 4e 3d a3 0d 12 ca 06 20 f5 0d |... FIN=..... ..|
00002620 12 d4 10 20 fb 43 4c 3a 43 4c 3d 33 2d 43 4c 0d |... .CL:CL=3-CL.|
00002630 12 de 0f 20 f1 8a 33 2c 32 37 29 44 53 24 0d 12 |... ..3,27)DS$..|
00002640 e8 0c 20 2a 46 58 31 35 2c 31 0d 12 f2 0f 20 e3 |.. *FX15,1.... .|
00002650 20 4c 3d 31 20 b8 20 34 30 0d 12 fc 3c 20 4b 24 | L=1 . 40...< K$|
00002660 3d bf 28 30 29 3a e7 20 4b 24 3d 22 31 22 20 84 |=.(0):. K$="1" .|
00002670 20 4b 24 3d 22 32 22 20 84 20 4b 24 3d 22 33 22 | K$="2" . K$="3"|
00002680 20 84 20 4b 24 3d 22 34 22 20 5a 24 3d 4b 24 3a | . K$="4" Z$=K$:|
00002690 46 49 4e 3d b9 0d 13 06 08 20 ed 20 4c 0d 13 10 |FIN=..... . L...|
000026a0 0a 20 fd 20 46 49 4e 0d 13 1a 07 20 fb 31 0d 13 |. . FIN.... .1..|
000026b0 24 0c 20 4c 3d bb 28 5a 24 29 0d 13 2e 0f 20 e3 |$. L=.(Z$).... .|
000026c0 20 50 3d 30 20 b8 20 31 32 0d 13 38 1b 20 46 24 | P=0 . 12..8. F$|
000026d0 28 50 29 3d c1 52 24 28 4c 29 2c 50 2a 35 2b 35 |(P)=.R$(L),P*5+5|
000026e0 2c 35 38 29 0d 13 42 08 20 ed 20 50 0d 13 4c 0f |,58)..B. . P..L.|
000026f0 20 47 3d 56 28 4c 29 2a 33 2d 33 0d 13 56 15 20 | G=V(L)*3-3..V. |
00002700 f1 8a 34 2a 4c 2d 31 2c 31 34 29 46 24 28 47 29 |..4*L-1,14)F$(G)|
00002710 0d 13 60 1c 20 47 3d 56 28 4c 29 2a 33 2d 34 3a |..`. G=V(L)*3-4:|
00002720 e7 20 47 3c 31 20 47 3d 47 2b 31 32 0d 13 6a 13 |. G<1 G=G+12..j.|
00002730 20 e3 20 50 3d 31 20 b8 20 35 30 3a ed 20 50 0d | . P=1 . 50:. P.|
00002740 13 74 15 20 f1 8a 34 2a 4c 2d 31 2c 31 34 29 46 |.t. ..4*L-1,14)F|
00002750 24 28 47 29 0d 13 7e 1c 20 47 3d 56 28 4c 29 2a |$(G)..~. G=V(L)*|
00002760 33 2d 36 3a e7 20 47 3c 31 20 47 3d 47 2b 31 32 |3-6:. G<1 G=G+12|
00002770 0d 13 88 13 20 e3 20 50 3d 31 20 b8 20 35 30 3a |.... . P=1 . 50:|
00002780 ed 20 50 0d 13 92 15 20 f1 8a 34 2a 4c 2d 31 2c |. P.... ..4*L-1,|
00002790 31 34 29 46 24 28 47 29 0d 13 9c 20 20 56 28 4c |14)F$(G)... V(L|
000027a0 29 3d 56 28 4c 29 2d 31 3a e7 20 56 28 4c 29 3d |)=V(L)-1:. V(L)=|
000027b0 30 20 56 28 4c 29 3d 34 0d 13 a6 0e 20 4e 4f 4e |0 V(L)=4.... NON|
000027c0 3d 4e 4f 4e 2d 31 0d 13 b0 10 20 f1 8a 31 35 2c |=NON-1.... ..15,|
000027d0 34 29 3b 4e 4f 4e 0d 13 ba 14 20 e3 20 4c 3d 31 |4);NON.... . L=1|
000027e0 20 b8 20 32 30 30 20 88 20 35 0d 13 c4 15 20 d4 | . 200 . 5.... .|
000027f0 20 31 2c 2d 31 35 2c 4c 2c 2e 33 3a ed 20 4c 0d | 1,-15,L,.3:. L.|
00002800 13 ce 1a 20 e3 20 4c 3d 31 20 b8 20 34 3a 56 28 |... . L=1 . 4:V(|
00002810 4c 29 3d 56 28 4c 29 2d 32 0d 13 d8 19 20 e7 20 |L)=V(L)-2.... . |
00002820 56 28 4c 29 3c 31 20 56 28 4c 29 3d 56 28 4c 29 |V(L)<1 V(L)=V(L)|
00002830 2b 34 0d 13 e2 08 20 ed 20 4c 0d 13 ec 5d 20 e7 |+4.... . L...] .|
00002840 20 52 31 28 56 28 31 29 29 3d 52 32 28 56 28 32 | R1(V(1))=R2(V(2|
00002850 29 29 20 4e 4f 4e 3d 30 3a fb 31 3a f1 8a 33 2c |)) NON=0:.1:..3,|
00002860 32 37 29 44 53 24 8a 31 35 2c 34 29 22 30 22 3a |27)DS$.15,4)"0":|
00002870 f2 44 45 4c 28 22 50 52 45 53 53 20 31 2c 32 2c |.DEL("PRESS 1,2,|
00002880 33 20 4f 52 20 34 22 29 3a f2 57 49 4e 3a f2 47 |3 OR 4"):.WIN:.G|
00002890 41 4d 42 4c 45 3a e1 0d 13 f6 1a 20 e3 20 4c 3d |AMBLE:..... . L=|
000028a0 31 20 b8 20 34 3a 56 28 4c 29 3d 56 28 4c 29 2b |1 . 4:V(L)=V(L)+|
000028b0 32 0d 14 00 19 20 e7 20 56 28 4c 29 3e 34 20 56 |2.... . V(L)>4 V|
000028c0 28 4c 29 3d 56 28 4c 29 2d 34 0d 14 0a 08 20 ed |(L)=V(L)-4.... .|
000028d0 20 4c 0d 14 14 13 20 e7 20 4e 4f 4e 3c 3e 30 20 | L.... . NON<>0 |
000028e0 e5 8d 64 40 52 0d 14 1e 12 20 fb 31 3a f1 8a 33 |..d@R.... .1:..3|
000028f0 2c 32 37 29 44 53 24 0d 14 28 1d 20 f2 44 45 4c |,27)DS$..(. .DEL|
00002900 28 22 50 52 45 53 53 20 31 2c 32 2c 33 20 4f 52 |("PRESS 1,2,3 OR|
00002910 20 34 22 29 0d 14 32 1e 20 f2 4d 45 53 53 41 47 | 4")..2. .MESSAG|
00002920 45 28 22 4f 55 54 20 4f 46 20 4e 55 44 47 45 53 |E("OUT OF NUDGES|
00002930 22 29 0d 14 3c 17 20 e3 20 4c 50 3d 31 20 b8 20 |")..<. . LP=1 . |
00002940 31 30 30 30 3a ed 20 4c 50 0d 14 46 1a 20 f2 44 |1000:. LP..F. .D|
00002950 45 4c 28 22 4f 55 54 20 4f 46 20 4e 55 44 47 45 |EL("OUT OF NUDGE|
00002960 53 22 29 0d 14 50 06 20 e1 0d 14 5a 0a 20 dd f2 |S")..P. ...Z. ..|
00002970 45 4e 44 0d 14 64 24 20 f2 4d 45 53 53 41 47 45 |END..d$ .MESSAGE|
00002980 28 22 59 4f 55 27 52 45 20 4f 55 54 20 4f 46 20 |("YOU'RE OUT OF |
00002990 4d 4f 4e 45 59 22 29 0d 14 6e 17 20 e3 20 4c 50 |MONEY")..n. . LP|
000029a0 3d 31 20 b8 20 31 30 30 30 3a ed 20 4c 50 0d 14 |=1 . 1000:. LP..|
000029b0 78 20 20 f2 44 45 4c 28 22 59 4f 55 27 52 45 20 |x .DEL("YOU'RE |
000029c0 4f 55 54 20 4f 46 20 4d 4f 4e 45 59 22 29 0d 14 |OUT OF MONEY")..|
000029d0 82 06 20 e0 0d 14 8c 06 20 e1 0d 14 96 06 20 e0 |.. ..... ..... .|
000029e0 0d 14 a0 0c 20 dd f2 49 4e 54 52 4f 0d 14 aa 06 |.... ..INTRO....|
000029f0 20 db 0d 14 b4 14 20 ef 20 31 39 2c 37 2c 30 3b | ..... . 19,7,0;|
00002a00 30 3b 30 3b 30 3b 0d 14 be 1c 20 f1 8a 31 32 2c |0;0;0;.... ..12,|
00002a10 30 29 22 46 52 55 49 54 53 21 20 2d 20 57 49 4e |0)"FRUITS! - WIN|
00002a20 53 22 0d 14 c8 0e 20 e3 20 4c 3d 31 20 b8 20 34 |S".... . L=1 . 4|
00002a30 0d 14 d2 1e 20 f1 8a 31 2c 33 2a 4c 29 50 24 28 |.... ..1,3*L)P$(|
00002a40 4c 29 8a 34 2c 33 2a 4c 29 50 24 28 4c 29 0d 14 |L).4,3*L)P$(L)..|
00002a50 dc 13 20 f1 8a 37 2c 33 2a 4c 29 22 32 30 20 50 |.. ..7,3*L)"20 P|
00002a60 22 0d 14 e6 08 20 ed 20 4c 0d 14 f0 0e 20 e3 20 |".... . L.... . |
00002a70 4c 3d 31 20 b8 20 34 0d 14 fa 2d 20 f1 8a 32 30 |L=1 . 4...- ..20|
00002a80 2c 33 2a 4c 29 50 24 28 4c 29 8a 32 33 2c 33 2a |,3*L)P$(L).23,3*|
00002a90 4c 29 50 24 28 4c 29 8a 32 36 2c 33 2a 4c 29 50 |L)P$(L).26,3*L)P|
00002aa0 24 28 4c 29 0d 15 04 08 20 ed 20 4c 0d 15 0e 0e |$(L).... . L....|
00002ab0 20 e3 20 4c 3d 31 20 b8 20 34 0d 15 18 43 20 f1 | . L=1 . 4...C .|
00002ac0 8a 31 2c 33 2a 4c 2b 31 34 29 50 24 28 4c 29 8a |.1,3*L+14)P$(L).|
00002ad0 34 2c 33 2a 4c 2b 31 34 29 50 24 28 4c 29 8a 37 |4,3*L+14)P$(L).7|
00002ae0 2c 33 2a 4c 2b 31 34 29 50 24 28 4c 29 8a 31 30 |,3*L+14)P$(L).10|
00002af0 2c 33 2a 4c 2b 31 34 29 50 24 28 4c 29 0d 15 22 |,3*L+14)P$(L).."|
00002b00 08 20 ed 20 4c 0d 15 2c 13 20 f1 8a 32 39 2c 33 |. . L..,. ..29,3|
00002b10 29 22 33 30 30 20 50 22 0d 15 36 13 20 f1 8a 32 |)"300 P"..6. ..2|
00002b20 39 2c 36 29 22 31 30 30 20 50 22 0d 15 40 13 20 |9,6)"100 P"..@. |
00002b30 f1 8a 32 39 2c 39 29 22 32 30 30 20 50 22 0d 15 |..29,9)"200 P"..|
00002b40 4a 14 20 f1 8a 32 39 2c 31 32 29 22 34 30 30 20 |J. ..29,12)"400 |
00002b50 50 22 0d 15 54 14 20 f1 8a 31 33 2c 31 37 29 22 |P"..T. ..13,17)"|
00002b60 38 30 30 20 50 22 0d 15 5e 14 20 f1 8a 31 33 2c |800 P"..^. ..13,|
00002b70 32 30 29 22 36 30 30 20 50 22 0d 15 68 14 20 f1 |20)"600 P"..h. .|
00002b80 8a 31 33 2c 32 33 29 22 37 30 30 20 50 22 0d 15 |.13,23)"700 P"..|
00002b90 72 14 20 f1 8a 31 33 2c 32 36 29 22 39 30 30 20 |r. ..13,26)"900 |
00002ba0 50 22 0d 15 7c 14 20 ef 20 31 39 2c 37 2c 37 3b |P"..|. . 19,7,7;|
00002bb0 30 3b 30 3b 30 3b 0d 15 86 0d 20 f2 6a 69 6e 67 |0;0;0;.... .jing|
00002bc0 6c 65 31 0d 15 90 1c 20 f1 8a 31 33 2c 33 30 29 |le1.... ..13,30)|
00002bd0 22 50 52 45 53 53 20 41 4e 59 20 4b 45 59 22 0d |"PRESS ANY KEY".|
00002be0 15 9a 06 20 f5 0d 15 a4 0e 20 56 3d b3 28 31 30 |... ..... V=.(10|
00002bf0 30 30 29 0d 15 ae 0f 20 fd 20 bf 28 30 29 3c 3e |00).... . .(0)<>|
00002c00 22 22 0d 15 b8 06 20 e1 0d 15 c2 0d 20 dd f2 69 |"".... ..... ..i|
00002c10 6e 64 61 74 61 0d 15 cc 14 20 de 20 6e 31 28 31 |ndata.... . n1(1|
00002c20 36 29 2c 6e 32 28 39 39 29 0d 15 d6 12 20 e3 20 |6),n2(99).... . |
00002c30 6c 6f 6f 70 3d 31 20 b8 20 31 36 0d 15 e0 0f 20 |loop=1 . 16.... |
00002c40 f3 20 6e 31 28 6c 6f 6f 70 29 0d 15 ea 0b 20 ed |. n1(loop).... .|
00002c50 20 6c 6f 6f 70 0d 15 f4 13 20 e3 20 6c 6f 6f 70 | loop.... . loop|
00002c60 3d 33 36 20 b8 20 39 39 0d 15 fe 0f 20 f3 20 6e |=36 . 99.... . n|
00002c70 32 28 6c 6f 6f 70 29 0d 16 08 0b 20 ed 20 6c 6f |2(loop).... . lo|
00002c80 6f 70 0d 16 12 06 20 e1 0d 16 1c 0e 20 dd f2 6a |op.... ..... ..j|
00002c90 69 6e 67 6c 65 31 0d 16 26 08 20 63 3d 30 0d 16 |ingle1..&. c=0..|
00002ca0 30 10 20 e3 20 63 31 3d 31 20 b8 20 39 39 0d 16 |0. . c1=1 . 99..|
00002cb0 3a 0a 20 63 3d 63 2b 31 0d 16 44 0f 20 e7 20 63 |:. c=c+1..D. . c|
00002cc0 3d 31 37 20 63 3d 31 0d 16 4e 21 20 e7 20 63 31 |=17 c=1..N! . c1|
00002cd0 3c 39 34 20 d4 20 31 2c 2d 31 30 2c 34 2a 6e 31 |<94 . 1,-10,4*n1|
00002ce0 28 63 29 2d 31 38 2c 32 0d 16 58 26 20 e7 20 6e |(c)-18,2..X& . n|
00002cf0 32 28 63 31 29 3c 3e 30 20 d4 20 32 2c 2d 31 31 |2(c1)<>0 . 2,-11|
00002d00 2c 34 2a 6e 32 28 63 31 29 2b 33 30 2c 32 0d 16 |,4*n2(c1)+30,2..|
00002d10 62 26 20 e7 20 6e 32 28 63 31 29 3c 3e 30 20 d4 |b& . n2(c1)<>0 .|
00002d20 20 33 2c 2d 31 30 2c 34 2a 6e 32 28 63 31 29 2d | 3,-10,4*n2(c1)-|
00002d30 31 38 2c 32 0d 16 6c 09 20 ed 20 63 31 0d 16 76 |18,2..l. . c1..v|
00002d40 06 20 e1 0d 16 80 22 20 dc 20 31 32 2c 31 32 2c |. ...." . 12,12,|
00002d50 31 32 2c 31 39 2c 31 38 2c 31 39 2c 31 38 2c 31 |12,19,18,19,18,1|
00002d60 39 2c 37 2c 37 0d 16 8a 23 20 dc 20 37 2c 31 39 |9,7,7...# . 7,19|
00002d70 2c 31 38 2c 31 39 2c 31 38 2c 31 39 2c 32 38 2c |,18,19,18,19,28,|
00002d80 32 36 2c 32 34 2c 32 34 0d 16 94 21 20 dc 20 32 |26,24,24...! . 2|
00002d90 34 2c 32 36 2c 32 34 2c 31 39 2c 31 36 2c 31 37 |4,26,24,19,16,17|
00002da0 2c 31 39 2c 32 31 2c 31 39 0d 16 9e 21 20 dc 20 |,19,21,19...! . |
00002db0 31 36 2c 31 39 2c 31 39 2c 32 34 2c 32 36 2c 32 |16,19,19,24,26,2|
00002dc0 38 2c 32 38 2c 32 38 2c 32 38 0d 16 a8 21 20 dc |8,28,28,28...! .|
00002dd0 20 32 38 2c 32 36 2c 32 34 2c 32 36 2c 32 38 2c | 28,26,24,26,28,|
00002de0 32 38 2c 32 36 2c 32 36 2c 32 36 0d 16 b2 21 20 |28,26,26,26...! |
00002df0 dc 20 32 36 2c 32 38 2c 32 36 2c 32 34 2c 32 34 |. 26,28,26,24,24|
00002e00 2c 32 34 2c 32 36 2c 32 34 2c 31 39 0d 16 bc 21 |,24,26,24,19...!|
00002e10 20 dc 20 31 36 2c 31 37 2c 31 39 2c 32 31 2c 31 | . 16,17,19,21,1|
00002e20 39 2c 31 36 2c 31 39 2c 31 39 2c 32 34 0d 16 c6 |9,16,19,19,24...|
00002e30 21 20 dc 20 32 36 2c 32 38 2c 32 38 2c 32 38 2c |! . 26,28,28,28,|
00002e40 32 38 2c 32 38 2c 32 36 2c 32 34 2c 32 36 0d 16 |28,28,26,24,26..|
00002e50 d0 1c 20 dc 20 32 38 2c 32 38 2c 32 36 2c 32 36 |.. . 28,28,26,26|
00002e60 2c 32 34 2c 32 34 2c 33 2c 31 0d 16 da 22 20 dc |,24,24,3,1..." .|
00002e70 20 32 2c 34 2c 31 2c 34 2c 33 2c 32 2c 32 2c 33 | 2,4,1,4,3,2,2,3|
00002e80 2c 34 2c 31 2c 33 2c 34 2c 32 2c 31 0d ff |,4,1,3,4,2,1..|
00002e8e 
20-01-89/Fruits!.m0
20-01-89/Fruits!.m1
20-01-89/Fruits!.m2
20-01-89/Fruits!.m4
20-01-89/Fruits!.m5
.