Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_52.ADF » G/FRUIT
G/FRUIT
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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_52.ADF |
Filename: | G/FRUIT |
Read OK: | ✔ |
File size: | 1664 bytes |
Load address: | FFFF0E00 |
Exec address: | FFFF802B |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » eug » eug_3_5_discs_Eug-52_A-EUG52.adf » G/FRUIT
- AEW website » eug » eug_5_25_discs_Eug-52_D-EUG52.dsd » G.FRUIT
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_52.ADF » G/FRUIT
File contents
1start=1 2*FX9,5 3*FX10,5 4tru=0 5GO=0 6reel1=1:reel2=1:reel3=1 7ho1=0:ho2=0:ho3=0 8hold=0 10MODE5:VDU23;8202;0;0;0; 20VDU19,1,1;0;19,2,7;0;19,3,2;0; 30GCOL0,1 40FORN=580TO540STEP-3:MOVE0,N:DRAW30,N:MOVE410,N:DRAW450,N:MOVE830,N:DRAW870,N:MOVE1250,N:DRAW1290,N:NEXT 50GCOL0,3:FORN=30TO1000STEP420:MOVEN,800:DRAWN+380,800:DRAWN+380,300:DRAWN,300:DRAWN,800 60NEXT 70MOVE480,950:VDU5:GCOL0,1:PRINT"F";:GCOL0,3:PRINT"R";:GCOL0,1:PRINT"U";:GCOL0,3:PRINT"I";:GCOL0,1:PRINT"T" 80MOVE420,900:GCOL0,1:PRINT"M";:GCOL0,3:PRINT"A";:GCOL0,1:PRINT"C";:GCOL0,3:PRINT"H";:GCOL0,1:PRINT"I";:GCOL0,3:PRINT"N";:GCOL0,1:PRINT"E" 90VDU4 100GCOL0,1:VDU5:MOVE450,170:PRINT"CREDIT":VDU4:COLOUR3:PRINTTAB(7,28)"`00.00" 110GCOL0,3:MOVE430,190:DRAW850,190:DRAW850,80:DRAW430,80:DRAW430,190 120PROCGAME 125PROCNEW 130PROCSETUP 140PROCREALGAME 150END 160DEFPROCSETUP 170@%=&2020A 190FORN=0TO1.01STEP.01 200PRINTTAB(9,28);N 210NEXT 220tot=1 230ENDPROC 240DEFPROCGAME 250GCOL0,2 260FORN=50TO1010STEP420:MOVEN,780:MOVEN+40,780:PLOT85,N,740:PLOT85,N+340,360:PLOT85,N+300,320:PLOT85,N+340,320 270MOVEN+340,780:MOVEN+300,780:PLOT85,N+340,740:PLOT85,N,360:PLOT85,N+40,320:PLOT85,N,320 280NEXT 290ENDPROC 300DEFPROCREALGAME 310PROCSPIN 315IF tot<0.04 PROCNEW:GOTO130 320GOTO310 330DEFPROCSPIN:COLOUR2:SOUND1,-15,200,1:IF hold=1 GOTO341 331REPEAT 332PRINTTAB(8,31)"SPIN"; 333g$=INKEY$(60) 334IF g$=CHR$(13) OR g$=CHR$(32) GO=1:GOTO339 335PRINTTAB(8,31)" "; 336g$=INKEY$(45) 337IF g$=CHR$(13) OR g$=CHR$(32) GO=1:GOTO339 339UNTIL GO=1:GO=0 340PRINTTAB(8,31)" "; 341tot=tot-.05 343COLOUR3 350IF tot<0.04 PRINTTAB(9,28);"0.00":tot=0:GOTO370 360IF tot>9.99 PRINTTAB(8,28);tot ELSE IF tot<10 AND tot>0.99 PRINTTAB(8,28);"0";tot ELSE IF tot<1 PRINTTAB(9,28);tot 370FORN=255TO5STEP-5:SOUND1,-15,N,0.1:NEXT 375PROCclear 380IF ho1=0 PROCREEL1 390IF ho2=0 PROCREEL2 400IF ho3=0 PROCREEL3 401hold=0:ho1=0:ho2=0:ho3=0:VDU5:GCOL0,0:MOVE 95,270:PRINT"HELD":MOVE 515,270:PRINT"HELD":MOVE 935,270:PRINT"HELD":VDU4 410PROCSEE 415IF RND(3)=1 AND tot>0.04 PROCHOLD 420ENDPROC 500DEFPROCREEL1 505N=50 506GCOL0,2 520ON RND(5) GOSUB 600,600,650,650,700 530ENDPROC 600GCOL0,2 601MOVEN+40,780:MOVEN+300,780:PLOT85,N,740:PLOT85,N+340,740:MOVEN+280,740:MOVEN+340,740:PLOT85,N+300,720:PLOT85,N+340,720:PLOT85,N+300,380:PLOT85,N+340,380 610PLOT85,N+280,360:PLOT85,N+340,360:MOVEN+300,320:MOVEN+40,320:PLOT85,N+340,360:PLOT85,N,360:MOVEN,360:MOVEN+60,360:PLOT85,N,380:PLOT85,N+40,380:PLOT85,N,720:PLOT85,N+40,720 615MOVEN,720:MOVEN+40,720:PLOT85,N,740:PLOT85,N+60,740 620reel1=3:RETURN 650MOVEN,580:MOVEN+340,580:PLOT85,N,540:PLOT85,N+340,540:reel1=2:RETURN 700MOVEN,780:MOVEN+40,780:PLOT85,N,740:PLOT85,N+340,360:PLOT85,N+300,320:PLOT85,N+340,320:MOVEN+340,780:MOVEN+300,780:PLOT85,N+340,740:PLOT85,N,360:PLOT85,N+40,320:PLOT85,N,320:reel1=1:RETURN 800DEFPROCREEL2 810N=470 820GCOL0,2 830ON RND(5) GOSUB 900,900,950,950,1000 840ENDPROC 900GCOL0,2 901MOVEN+40,780:MOVEN+300,780:PLOT85,N,740:PLOT85,N+340,740:MOVEN+280,740:MOVEN+340,740:PLOT85,N+300,720:PLOT85,N+340,720:PLOT85,N+300,380:PLOT85,N+340,380 910PLOT85,N+280,360:PLOT85,N+340,360:MOVEN+300,320:MOVEN+40,320:PLOT85,N+340,360:PLOT85,N,360:MOVEN,360:MOVEN+60,360:PLOT85,N,380:PLOT85,N+40,380:PLOT85,N,720:PLOT85,N+40,720 915MOVEN,720:MOVEN+40,720:PLOT85,N,740:PLOT85,N+60,740 920reel2=3:RETURN 950MOVEN,580:MOVEN+340,580:PLOT85,N,540:PLOT85,N+340,540:reel2=2:RETURN 1000MOVEN,780:MOVEN+40,780:PLOT85,N,740:PLOT85,N+340,360:PLOT85,N+300,320:PLOT85,N+340,320:MOVEN+340,780:MOVEN+300,780:PLOT85,N+340,740:PLOT85,N,360:PLOT85,N+40,320:PLOT85,N,320:reel2=1:RETURN 1100DEFPROCREEL3 1110N=890 1120GCOL0,2 1130ON RND(5) GOSUB 1200,1200,1250,1250,1300 1140ENDPROC 1200GCOL0,2 1201MOVEN+40,780:MOVEN+300,780:PLOT85,N,740:PLOT85,N+340,740:MOVEN+280,740:MOVEN+340,740:PLOT85,N+300,720:PLOT85,N+340,720:PLOT85,N+300,380:PLOT85,N+340,380 1210PLOT85,N+280,360:PLOT85,N+340,360:MOVEN+300,320:MOVEN+40,320:PLOT85,N+340,360:PLOT85,N,360:MOVEN,360:MOVEN+60,360:PLOT85,N,380:PLOT85,N+40,380:PLOT85,N,720:PLOT85,N+40,720 1215MOVEN,720:MOVEN+40,720:PLOT85,N,740:PLOT85,N+60,740 1220reel3=3:RETURN 1250MOVEN,580:MOVEN+340,580:PLOT85,N,540:PLOT85,N+340,540:reel3=2:RETURN 1300MOVEN,780:MOVEN+40,780:PLOT85,N,740:PLOT85,N+340,360:PLOT85,N+300,320:PLOT85,N+340,320:MOVEN+340,780:MOVEN+300,780:PLOT85,N+340,740:PLOT85,N,360:PLOT85,N+40,320:PLOT85,N,320:reel3=1:RETURN 1310DEFPROCSEE 1320IF reel1=1 AND reel2=1 AND reel3=1 VDU19,2,8;0;:H=120:I=120:FORI=1TO30:SOUND1,-15,100+I,1:SOUND1,-15,I+2,1:NEXT:VDU19,2,7;0;:FORJ=1TO200:NEXT:PROCtotal(1) 1330IF reel1=3 AND reel2=3 AND reel3=3 VDU19,2,8;0;:H=120:I=120:FORI=1TO30:SOUND1,-15,100+I,1:SOUND1,-15,I+2,1:NEXT:VDU19,2,7;0;:FORJ=1TO200:NEXT:PROCtotal(.5) 1340ENDPROC 2000DEFPROCclear 2001GCOL0,0 2002IF ho1=1 GOTO 2035 2010IF reel1=1 N=50:GOSUB3020 2020IF reel1=2 N=50:GOSUB3010 2030IF reel1=3 N=50:GOSUB3000 2035IF ho2=1 GOTO 2065 2040IF reel2=1 N=470:GOSUB3020 2050IF reel2=2 N=470:GOSUB3010 2060IF reel2=3 N=470:GOSUB3000 2065IF ho3=1 GOTO 2091 2070IF reel3=1 N=890:GOSUB3020 2080IF reel3=2 N=890:GOSUB3010 2090IF reel3=3 N=890:GOSUB3000 2091GCOL0,2 2100ENDPROC 3000MOVEN+40,780:MOVEN+300,780:PLOT85,N,740:PLOT85,N+340,740:MOVEN+280,740:MOVEN+340,740:PLOT85,N+300,720:PLOT85,N+340,720:PLOT85,N+300,380:PLOT85,N+340,380 3001PLOT85,N+280,360:PLOT85,N+340,360:MOVEN+300,320:MOVEN+40,320:PLOT85,N+340,360:PLOT85,N,360:MOVEN,360:MOVEN+60,360:PLOT85,N,380:PLOT85,N+40,380:PLOT85,N,720:PLOT85,N+40,720 3002MOVEN,720:MOVEN+40,720:PLOT85,N,740:PLOT85,N+60,740:RETURN 3010MOVEN,580:MOVEN+340,580:PLOT85,N,540:PLOT85,N+340,540:RETURN 3020MOVEN,780:MOVEN+40,780:PLOT85,N,740:PLOT85,N+340,360:PLOT85,N+300,320:PLOT85,N+340,320:MOVEN+340,780:MOVEN+300,780:PLOT85,N+340,740:PLOT85,N,360:PLOT85,N+40,320:PLOT85,N,320:RETURN 3030DEFPROCtotal(a) 3035S=0 3040FORN=tot TO tot+a STEP0.01 3045S=S+2 3050IF N>9.99 PRINTTAB(8,28);N ELSE IF N<10 AND N>0.99 PRINTTAB(8,28);"0";N ELSE IF N<1 PRINTTAB(9,28);N 3055SOUND1,-15,S,1:SOUND1,0,0,0 3060NEXTN 3065tot=tot+a 3066IF N<10 PRINTTAB(9,28);tot ELSE PRINTTAB(8,28);tot 3070ENDPROC 3999DEFPROCNEW 4000REPEAT 4001ho1=0:ho2=0:ho3=0 4010VDU5:GCOL0,2:MOVE290,30:PRINT"INSERT COIN";:VDU4 4020g$=INKEY$(60) 4030IF g$=CHR$(13) OR g$=CHR$(32) GO=1:GOTO4080 4040PRINTTAB(3,31)" "; 4050g$=INKEY$(45) 4060IF g$=CHR$(13) OR g$=CHR$(32) GO=1:GOTO4080 4080UNTIL GO=1:GO=0 4090PRINTTAB(3,31)" "; 4095COLOUR3 4100ENDPROC 4999DEFPROCHOLD 5000SOUND1,-15,50,4:SOUND1,-15,100,4:SOUND1,-15,150,4 5020VDU5 5030REPEAT 5060GCOL0,3:IF ho1=0 MOVE 95,270:PRINT"HOLD" 5061IF ho2=0 MOVE515,270:PRINT"HOLD" 5062IF ho3=0 MOVE935,270:PRINT"HOLD" 5070g$=INKEY$(30) 5080IF g$="1" OR g$="2" OR g$="3" OR g$=CHR$13 OR g$=CHR$32 OR g$=CHR$67:tru=1:GOTO5550 5090GCOL0,0:IF ho1=0 MOVE 95,270:PRINT"HOLD" 5091IF ho2=0 MOVE515,270:PRINT"HOLD" 5092IF ho3=0 MOVE935,270:PRINT"HOLD" 5100g$=INKEY$(20) 5110IF g$="1" OR g$="2" OR g$="3" OR g$=CHR$13 OR g$=CHR$32 OR g$=CHR$67:tru=1:GOTO5550 5550UNTIL tru=1:tru=0 5551IF ho1=0 GCOL0,0:MOVE 95,270:PRINT"HOLD" 5552IF ho2=0 GCOL0,0:MOVE 515,270:PRINT"HOLD" 5553IF ho3=0 GCOL0,0:MOVE 935,270:PRINT"HOLD" 5560IF g$="1" GCOL0,2:MOVE95,270:PRINT"HELD":ho1=1:VDU7:GOTO5030 5570IF g$="2" GCOL0,2:MOVE515,270:PRINT"HELD":ho2=1:VDU7:GOTO5030 5580IF g$="3" GCOL0,2:MOVE935,270:PRINT"HELD":ho3=1:VDU7:GOTO5030 5585IF g$=CHR$67 THEN ho1=0:ho2=0:ho3=0:GCOL0,0:MOVE 95,270:PRINT"HO":MOVE95,270:PRINT"HE":MOVE515,270:PRINT"HO":MOVE515,270:PRINT"HE":MOVE935,270:PRINT"HO":MOVE935,270:PRINT"HE":VDU4:GOTO5020 5590IF g$=CHR$13 OR g$=CHR$32 hold=1:VDU4:PROCSPIN 5600ENDPROC
start=1 *FX9,5 *FX10,5 tru=0 GO=0 reel1=1:reel2=1:reel3=1 ho1=0:ho2=0:ho3=0 hold=0 �5:�23;8202;0;0;0; !�19,1,1;0;19,2,7;0;19,3,2;0; �0,1 (J�N=580�540�-3:�0,N:�30,N:�410,N:�450,N:�830,N:�870,N:�1250,N:�1290,N:� 2B�0,3:�N=30�1000�420:�N,800:�N+380,800:�N+380,300:�N,300:�N,800 <� FF�480,950:�5:�0,1:�"F";:�0,3:�"R";:�0,1:�"U";:�0,3:�"I";:�0,1:�"T" PX�420,900:�0,1:�"M";:�0,3:�"A";:�0,1:�"C";:�0,3:�"H";:�0,1:�"I";:�0,3:�"N";:�0,1:�"E" Z�4 d4�0,1:�5:�450,170:�"CREDIT":�4:�3:�7,28)"`00.00" n3�0,3:�430,190:�850,190:�850,80:�430,80:�430,190 x �GAME }�NEW � �SETUP � �REALGAME �� ���SETUP � @%=&2020A ��N=0�1.01�.01 � �9,28);N �� � tot=1 �� � ��GAME ��0,2 W�N=50�1010�420:�N,780:�N+40,780:�85,N,740:�85,N+340,360:�85,N+300,320:�85,N+340,320 H�N+340,780:�N+300,780:�85,N+340,740:�85,N,360:�85,N+40,320:�85,N,320 � "� ,��REALGAME 6 �SPIN ;� tot<0.04 �NEW:�tB@ @ �TvA J)��SPIN:�2:�1,-15,200,1:� hold=1 �DUA K� L�8,31)"SPIN"; Mg$=�(60) N$� g$=�(13) � g$=�(32) GO=1:�DSA O�8,31)" "; Pg$=�(45) Q%� g$=�(13) � g$=�(32) GO=1:�DSA S� GO=1:GO=0 T�8,31)" "; Utot=tot-.05 W�3 ^)� tot<0.04 �9,28);"0.00":tot=0:�DrA hV� tot>9.99 �8,28);tot � � tot<10 � tot>0.99 �8,28);"0";tot � � tot<1 �9,28);tot r�N=255�5�-5:�1,-15,N,0.1:� w �clear |� ho1=0 �REEL1 �� ho2=0 �REEL2 �� ho3=0 �REEL3 �\hold=0:ho1=0:ho2=0:ho3=0:�5:�0,0:� 95,270:�"HELD":� 515,270:�"HELD":� 935,270:�"HELD":�4 ��SEE �� �(3)=1 � tot>0.04 �HOLD �� ���REEL1 �N=50 ��0,2 %� �(5) � �DXB,�DXB,�tJB,�tJB,�t|B � X�0,2 Y~�N+40,780:�N+300,780:�85,N,740:�85,N+340,740:�N+280,740:�N+340,740:�85,N+300,720:�85,N+340,720:�85,N+300,380:�85,N+340,380 b��85,N+280,360:�85,N+340,360:�N+300,320:�N+40,320:�85,N+340,360:�85,N,360:�N,360:�N+60,360:�85,N,380:�85,N+40,380:�85,N,720:�85,N+40,720 g+�N,720:�N+40,720:�85,N,740:�85,N+60,740 l reel1=3:� �7�N,580:�N+340,580:�85,N,540:�85,N+340,540:reel1=2:� ���N,780:�N+40,780:�85,N,740:�85,N+340,360:�85,N+300,320:�85,N+340,320:�N+340,780:�N+300,780:�85,N+340,740:�85,N,360:�85,N+40,320:�85,N,320:reel1=1:� ��REEL2 * N=470 4�0,2 >%� �(5) � �tDC,�tDC,�tvC,�tvC,�dhC H� ��0,2 �~�N+40,780:�N+300,780:�85,N,740:�85,N+340,740:�N+280,740:�N+340,740:�85,N+300,720:�85,N+340,720:�85,N+300,380:�85,N+340,380 ���85,N+280,360:�85,N+340,360:�N+300,320:�N+40,320:�85,N+340,360:�85,N,360:�N,360:�N+60,360:�85,N,380:�85,N+40,380:�85,N,720:�85,N+40,720 �+�N,720:�N+40,720:�85,N,740:�85,N+60,740 � reel2=3:� �7�N,580:�N+340,580:�85,N,540:�85,N+340,540:reel2=2:� ��N,780:�N+40,780:�85,N,740:�85,N+340,360:�85,N+300,320:�85,N+340,320:�N+340,780:�N+300,780:�85,N+340,740:�85,N,360:�85,N+40,320:�85,N,320:reel2=1:� L��REEL3 V N=890 `�0,2 j%� �(5) � �tpD,�tpD,�dbD,�dbD,�TTE t� ��0,2 �~�N+40,780:�N+300,780:�85,N,740:�85,N+340,740:�N+280,740:�N+340,740:�85,N+300,720:�85,N+340,720:�85,N+300,380:�85,N+340,380 ���85,N+280,360:�85,N+340,360:�N+300,320:�N+40,320:�85,N+340,360:�85,N,360:�N,360:�N+60,360:�85,N,380:�85,N+40,380:�85,N,720:�85,N+40,720 �+�N,720:�N+40,720:�85,N,740:�85,N+60,740 � reel3=3:� �7�N,580:�N+340,580:�85,N,540:�85,N+340,540:reel3=2:� ��N,780:�N+40,780:�85,N,740:�85,N+340,360:�85,N+300,320:�85,N+340,320:�N+340,780:�N+300,780:�85,N+340,740:�85,N,360:�85,N+40,320:�85,N,320:reel3=1:� ��SEE (~� reel1=1 � reel2=1 � reel3=1 �19,2,8;0;:H=120:I=120:�I=1�30:�1,-15,100+I,1:�1,-15,I+2,1:�:�19,2,7;0;:�J=1�200:�:�total(1) 2� reel1=3 � reel2=3 � reel3=3 �19,2,8;0;:H=120:I=120:�I=1�30:�1,-15,100+I,1:�1,-15,I+2,1:�:�19,2,7;0;:�J=1�200:�:�total(.5) <� ���clear ��0,0 �� ho1=1 � �dsG �� reel1=1 N=50:�dLK �� reel1=2 N=50:�dBK �� reel1=3 N=50:�txK �� ho2=1 � �TQH �� reel2=1 N=470:�dLK � reel2=2 N=470:�dBK � reel2=3 N=470:�txK � ho3=1 � �TkH � reel3=1 N=890:�dLK � reel3=2 N=890:�dBK *� reel3=3 N=890:�txK +�0,2 4� �~�N+40,780:�N+300,780:�85,N,740:�85,N+340,740:�N+280,740:�N+340,740:�85,N+300,720:�85,N+340,720:�85,N+300,380:�85,N+340,380 ���85,N+280,360:�85,N+340,360:�N+300,320:�N+40,320:�85,N+340,360:�85,N,360:�N,360:�N+60,360:�85,N,380:�85,N+40,380:�85,N,720:�85,N+40,720 �-�N,720:�N+40,720:�85,N,740:�85,N+60,740:� �/�N,580:�N+340,580:�85,N,540:�85,N+340,540:� ̏�N,780:�N+40,780:�85,N,740:�85,N+340,360:�85,N+300,320:�85,N+340,320:�N+340,780:�N+300,780:�85,N+340,740:�85,N,360:�85,N+40,320:�85,N,320:� ���total(a) �S=0 ��N=tot � tot+a �0.01 � S=S+2 �H� N>9.99 �8,28);N � � N<10 � N>0.99 �8,28);"0";N � � N<1 �9,28);N ��1,-15,S,1:�1,0,0,0 ��N � tot=tot+a �$� N<10 �9,28);tot � �8,28);tot �� � ��NEW �� �ho1=0:ho2=0:ho3=0 �&�5:�0,2:�290,30:�"INSERT COIN";:�4 �g$=�(60) �$� g$=�(13) � g$=�(32) GO=1:�dpO ��3,31)" "; �g$=�(45) �$� g$=�(13) � g$=�(32) GO=1:�dpO �� GO=1:GO=0 ��3,31)" "; ��3 � � ��HOLD �)�1,-15,50,4:�1,-15,100,4:�1,-15,150,4 ��5 �� �!�0,3:� ho1=0 � 95,270:�"HOLD" �� ho2=0 �515,270:�"HOLD" �� ho3=0 �935,270:�"HOLD" �g$=�(30) �E� g$="1" � g$="2" � g$="3" � g$=�13 � g$=�32 � g$=�67:tru=1:�tnU �!�0,0:� ho1=0 � 95,270:�"HOLD" �� ho2=0 �515,270:�"HOLD" �� ho3=0 �935,270:�"HOLD" �g$=�(20) �F� g$="1" � g$="2" � g$="3" � g$=�13 � g$=�32 � g$=�67:tru=1:�tnU �� tru=1:tru=0 �!� ho1=0 �0,0:� 95,270:�"HOLD" �"� ho2=0 �0,0:� 515,270:�"HOLD" �"� ho3=0 �0,0:� 935,270:�"HOLD" �0� g$="1" �0,2:�95,270:�"HELD":ho1=1:�7:�tfS �1� g$="2" �0,2:�515,270:�"HELD":ho2=1:�7:�tfS �1� g$="3" �0,2:�935,270:�"HELD":ho3=1:�7:�tfS ч� g$=�67 � ho1=0:ho2=0:ho3=0:�0,0:� 95,270:�"HO":�95,270:�"HE":�515,270:�"HO":�515,270:�"HE":�935,270:�"HO":�935,270:�"HE":�4:�t\S �%� g$=�13 � g$=�32 hold=1:�4:�SPIN �� �
00000000 0d 00 01 0b 73 74 61 72 74 3d 31 0d 00 02 0a 2a |....start=1....*| 00000010 46 58 39 2c 35 0d 00 03 0b 2a 46 58 31 30 2c 35 |FX9,5....*FX10,5| 00000020 0d 00 04 09 74 72 75 3d 30 0d 00 05 08 47 4f 3d |....tru=0....GO=| 00000030 30 0d 00 06 1b 72 65 65 6c 31 3d 31 3a 72 65 65 |0....reel1=1:ree| 00000040 6c 32 3d 31 3a 72 65 65 6c 33 3d 31 0d 00 07 15 |l2=1:reel3=1....| 00000050 68 6f 31 3d 30 3a 68 6f 32 3d 30 3a 68 6f 33 3d |ho1=0:ho2=0:ho3=| 00000060 30 0d 00 08 0a 68 6f 6c 64 3d 30 0d 00 0a 19 eb |0....hold=0.....| 00000070 35 3a ef 32 33 3b 38 32 30 32 3b 30 3b 30 3b 30 |5:.23;8202;0;0;0| 00000080 3b 20 20 20 0d 00 14 21 ef 31 39 2c 31 2c 31 3b |; ...!.19,1,1;| 00000090 30 3b 31 39 2c 32 2c 37 3b 30 3b 31 39 2c 33 2c |0;19,2,7;0;19,3,| 000000a0 32 3b 30 3b 20 0d 00 1e 08 e6 30 2c 31 0d 00 28 |2;0; .....0,1..(| 000000b0 4a e3 4e 3d 35 38 30 b8 35 34 30 88 2d 33 3a ec |J.N=580.540.-3:.| 000000c0 30 2c 4e 3a df 33 30 2c 4e 3a ec 34 31 30 2c 4e |0,N:.30,N:.410,N| 000000d0 3a df 34 35 30 2c 4e 3a ec 38 33 30 2c 4e 3a df |:.450,N:.830,N:.| 000000e0 38 37 30 2c 4e 3a ec 31 32 35 30 2c 4e 3a df 31 |870,N:.1250,N:.1| 000000f0 32 39 30 2c 4e 3a ed 0d 00 32 42 e6 30 2c 33 3a |290,N:...2B.0,3:| 00000100 e3 4e 3d 33 30 b8 31 30 30 30 88 34 32 30 3a ec |.N=30.1000.420:.| 00000110 4e 2c 38 30 30 3a df 4e 2b 33 38 30 2c 38 30 30 |N,800:.N+380,800| 00000120 3a df 4e 2b 33 38 30 2c 33 30 30 3a df 4e 2c 33 |:.N+380,300:.N,3| 00000130 30 30 3a df 4e 2c 38 30 30 0d 00 3c 05 ed 0d 00 |00:.N,800..<....| 00000140 46 46 ec 34 38 30 2c 39 35 30 3a ef 35 3a e6 30 |FF.480,950:.5:.0| 00000150 2c 31 3a f1 22 46 22 3b 3a e6 30 2c 33 3a f1 22 |,1:."F";:.0,3:."| 00000160 52 22 3b 3a e6 30 2c 31 3a f1 22 55 22 3b 3a e6 |R";:.0,1:."U";:.| 00000170 30 2c 33 3a f1 22 49 22 3b 3a e6 30 2c 31 3a f1 |0,3:."I";:.0,1:.| 00000180 22 54 22 20 0d 00 50 58 ec 34 32 30 2c 39 30 30 |"T" ..PX.420,900| 00000190 3a e6 30 2c 31 3a f1 22 4d 22 3b 3a e6 30 2c 33 |:.0,1:."M";:.0,3| 000001a0 3a f1 22 41 22 3b 3a e6 30 2c 31 3a f1 22 43 22 |:."A";:.0,1:."C"| 000001b0 3b 3a e6 30 2c 33 3a f1 22 48 22 3b 3a e6 30 2c |;:.0,3:."H";:.0,| 000001c0 31 3a f1 22 49 22 3b 3a e6 30 2c 33 3a f1 22 4e |1:."I";:.0,3:."N| 000001d0 22 3b 3a e6 30 2c 31 3a f1 22 45 22 0d 00 5a 06 |";:.0,1:."E"..Z.| 000001e0 ef 34 0d 00 64 34 e6 30 2c 31 3a ef 35 3a ec 34 |.4..d4.0,1:.5:.4| 000001f0 35 30 2c 31 37 30 3a f1 22 43 52 45 44 49 54 22 |50,170:."CREDIT"| 00000200 3a ef 34 3a fb 33 3a f1 8a 37 2c 32 38 29 22 60 |:.4:.3:..7,28)"`| 00000210 30 30 2e 30 30 22 0d 00 6e 33 e6 30 2c 33 3a ec |00.00"..n3.0,3:.| 00000220 34 33 30 2c 31 39 30 3a df 38 35 30 2c 31 39 30 |430,190:.850,190| 00000230 3a df 38 35 30 2c 38 30 3a df 34 33 30 2c 38 30 |:.850,80:.430,80| 00000240 3a df 34 33 30 2c 31 39 30 0d 00 78 09 f2 47 41 |:.430,190..x..GA| 00000250 4d 45 0d 00 7d 08 f2 4e 45 57 0d 00 82 0a f2 53 |ME..}..NEW.....S| 00000260 45 54 55 50 0d 00 8c 0d f2 52 45 41 4c 47 41 4d |ETUP.....REALGAM| 00000270 45 0d 00 96 05 e0 0d 00 a0 0b dd f2 53 45 54 55 |E...........SETU| 00000280 50 0d 00 aa 0d 40 25 3d 26 32 30 32 30 41 0d 00 |P....@%=&2020A..| 00000290 be 11 e3 4e 3d 30 b8 31 2e 30 31 88 2e 30 31 0d |...N=0.1.01..01.| 000002a0 00 c8 0d f1 8a 39 2c 32 38 29 3b 4e 0d 00 d2 05 |.....9,28);N....| 000002b0 ed 0d 00 dc 09 74 6f 74 3d 31 0d 00 e6 05 e1 0d |.....tot=1......| 000002c0 00 f0 0a dd f2 47 41 4d 45 0d 00 fa 08 e6 30 2c |.....GAME.....0,| 000002d0 32 0d 01 04 57 e3 4e 3d 35 30 b8 31 30 31 30 88 |2...W.N=50.1010.| 000002e0 34 32 30 3a ec 4e 2c 37 38 30 3a ec 4e 2b 34 30 |420:.N,780:.N+40| 000002f0 2c 37 38 30 3a f0 38 35 2c 4e 2c 37 34 30 3a f0 |,780:.85,N,740:.| 00000300 38 35 2c 4e 2b 33 34 30 2c 33 36 30 3a f0 38 35 |85,N+340,360:.85| 00000310 2c 4e 2b 33 30 30 2c 33 32 30 3a f0 38 35 2c 4e |,N+300,320:.85,N| 00000320 2b 33 34 30 2c 33 32 30 0d 01 0e 48 ec 4e 2b 33 |+340,320...H.N+3| 00000330 34 30 2c 37 38 30 3a ec 4e 2b 33 30 30 2c 37 38 |40,780:.N+300,78| 00000340 30 3a f0 38 35 2c 4e 2b 33 34 30 2c 37 34 30 3a |0:.85,N+340,740:| 00000350 f0 38 35 2c 4e 2c 33 36 30 3a f0 38 35 2c 4e 2b |.85,N,360:.85,N+| 00000360 34 30 2c 33 32 30 3a f0 38 35 2c 4e 2c 33 32 30 |40,320:.85,N,320| 00000370 0d 01 18 05 ed 0d 01 22 05 e1 0d 01 2c 0e dd f2 |......."....,...| 00000380 52 45 41 4c 47 41 4d 45 0d 01 36 09 f2 53 50 49 |REALGAME..6..SPI| 00000390 4e 0d 01 3b 19 e7 20 74 6f 74 3c 30 2e 30 34 20 |N..;.. tot<0.04 | 000003a0 f2 4e 45 57 3a e5 8d 74 42 40 0d 01 40 09 e5 8d |.NEW:..tB@..@...| 000003b0 54 76 41 0d 01 4a 29 dd f2 53 50 49 4e 3a fb 32 |TvA..J)..SPIN:.2| 000003c0 3a d4 31 2c 2d 31 35 2c 32 30 30 2c 31 3a e7 20 |:.1,-15,200,1:. | 000003d0 68 6f 6c 64 3d 31 20 e5 8d 44 55 41 0d 01 4b 05 |hold=1 ..DUA..K.| 000003e0 f5 0d 01 4c 12 f1 8a 38 2c 33 31 29 22 53 50 49 |...L...8,31)"SPI| 000003f0 4e 22 3b 0d 01 4d 0c 67 24 3d bf 28 36 30 29 0d |N";..M.g$=.(60).| 00000400 01 4e 24 e7 20 67 24 3d bd 28 31 33 29 20 84 20 |.N$. g$=.(13) . | 00000410 67 24 3d bd 28 33 32 29 20 47 4f 3d 31 3a e5 8d |g$=.(32) GO=1:..| 00000420 44 53 41 0d 01 4f 12 f1 8a 38 2c 33 31 29 22 20 |DSA..O...8,31)" | 00000430 20 20 20 22 3b 0d 01 50 0c 67 24 3d bf 28 34 35 | ";..P.g$=.(45| 00000440 29 0d 01 51 25 e7 20 67 24 3d bd 28 31 33 29 20 |)..Q%. g$=.(13) | 00000450 84 20 67 24 3d bd 28 33 32 29 20 47 4f 3d 31 3a |. g$=.(32) GO=1:| 00000460 e5 8d 44 53 41 20 0d 01 53 0f fd 20 47 4f 3d 31 |..DSA ..S.. GO=1| 00000470 3a 47 4f 3d 30 0d 01 54 12 f1 8a 38 2c 33 31 29 |:GO=0..T...8,31)| 00000480 22 20 20 20 20 22 3b 0d 01 55 0f 74 6f 74 3d 74 |" ";..U.tot=t| 00000490 6f 74 2d 2e 30 35 0d 01 57 06 fb 33 0d 01 5e 29 |ot-.05..W..3..^)| 000004a0 e7 20 74 6f 74 3c 30 2e 30 34 20 f1 8a 39 2c 32 |. tot<0.04 ..9,2| 000004b0 38 29 3b 22 30 2e 30 30 22 3a 74 6f 74 3d 30 3a |8);"0.00":tot=0:| 000004c0 e5 8d 44 72 41 0d 01 68 56 e7 20 74 6f 74 3e 39 |..DrA..hV. tot>9| 000004d0 2e 39 39 20 f1 8a 38 2c 32 38 29 3b 74 6f 74 20 |.99 ..8,28);tot | 000004e0 8b 20 e7 20 74 6f 74 3c 31 30 20 80 20 74 6f 74 |. . tot<10 . tot| 000004f0 3e 30 2e 39 39 20 f1 8a 38 2c 32 38 29 3b 22 30 |>0.99 ..8,28);"0| 00000500 22 3b 74 6f 74 20 8b 20 e7 20 74 6f 74 3c 31 20 |";tot . . tot<1 | 00000510 f1 8a 39 2c 32 38 29 3b 74 6f 74 0d 01 72 1e e3 |..9,28);tot..r..| 00000520 4e 3d 32 35 35 b8 35 88 2d 35 3a d4 31 2c 2d 31 |N=255.5.-5:.1,-1| 00000530 35 2c 4e 2c 30 2e 31 3a ed 0d 01 77 0a f2 63 6c |5,N,0.1:...w..cl| 00000540 65 61 72 0d 01 7c 12 e7 20 68 6f 31 3d 30 20 f2 |ear..|.. ho1=0 .| 00000550 52 45 45 4c 31 0d 01 86 12 e7 20 68 6f 32 3d 30 |REEL1..... ho2=0| 00000560 20 f2 52 45 45 4c 32 0d 01 90 12 e7 20 68 6f 33 | .REEL2..... ho3| 00000570 3d 30 20 f2 52 45 45 4c 33 0d 01 91 5c 68 6f 6c |=0 .REEL3...\hol| 00000580 64 3d 30 3a 68 6f 31 3d 30 3a 68 6f 32 3d 30 3a |d=0:ho1=0:ho2=0:| 00000590 68 6f 33 3d 30 3a ef 35 3a e6 30 2c 30 3a ec 20 |ho3=0:.5:.0,0:. | 000005a0 39 35 2c 32 37 30 3a f1 22 48 45 4c 44 22 3a ec |95,270:."HELD":.| 000005b0 20 35 31 35 2c 32 37 30 3a f1 22 48 45 4c 44 22 | 515,270:."HELD"| 000005c0 3a ec 20 39 33 35 2c 32 37 30 3a f1 22 48 45 4c |:. 935,270:."HEL| 000005d0 44 22 3a ef 34 0d 01 9a 08 f2 53 45 45 0d 01 9f |D":.4.....SEE...| 000005e0 1d e7 20 b3 28 33 29 3d 31 20 80 20 74 6f 74 3e |.. .(3)=1 . tot>| 000005f0 30 2e 30 34 20 f2 48 4f 4c 44 0d 01 a4 05 e1 0d |0.04 .HOLD......| 00000600 01 f4 0b dd f2 52 45 45 4c 31 0d 01 f9 08 4e 3d |.....REEL1....N=| 00000610 35 30 0d 01 fa 08 e6 30 2c 32 0d 02 08 25 ee 20 |50.....0,2...%. | 00000620 b3 28 35 29 20 e4 20 8d 44 58 42 2c 8d 44 58 42 |.(5) . .DXB,.DXB| 00000630 2c 8d 74 4a 42 2c 8d 74 4a 42 2c 8d 74 7c 42 0d |,.tJB,.tJB,.t|B.| 00000640 02 12 05 e1 0d 02 58 08 e6 30 2c 32 0d 02 59 7e |......X..0,2..Y~| 00000650 ec 4e 2b 34 30 2c 37 38 30 3a ec 4e 2b 33 30 30 |.N+40,780:.N+300| 00000660 2c 37 38 30 3a f0 38 35 2c 4e 2c 37 34 30 3a f0 |,780:.85,N,740:.| 00000670 38 35 2c 4e 2b 33 34 30 2c 37 34 30 3a ec 4e 2b |85,N+340,740:.N+| 00000680 32 38 30 2c 37 34 30 3a ec 4e 2b 33 34 30 2c 37 |280,740:.N+340,7| 00000690 34 30 3a f0 38 35 2c 4e 2b 33 30 30 2c 37 32 30 |40:.85,N+300,720| 000006a0 3a f0 38 35 2c 4e 2b 33 34 30 2c 37 32 30 3a f0 |:.85,N+340,720:.| 000006b0 38 35 2c 4e 2b 33 30 30 2c 33 38 30 3a f0 38 35 |85,N+300,380:.85| 000006c0 2c 4e 2b 33 34 30 2c 33 38 30 0d 02 62 8b f0 38 |,N+340,380..b..8| 000006d0 35 2c 4e 2b 32 38 30 2c 33 36 30 3a f0 38 35 2c |5,N+280,360:.85,| 000006e0 4e 2b 33 34 30 2c 33 36 30 3a ec 4e 2b 33 30 30 |N+340,360:.N+300| 000006f0 2c 33 32 30 3a ec 4e 2b 34 30 2c 33 32 30 3a f0 |,320:.N+40,320:.| 00000700 38 35 2c 4e 2b 33 34 30 2c 33 36 30 3a f0 38 35 |85,N+340,360:.85| 00000710 2c 4e 2c 33 36 30 3a ec 4e 2c 33 36 30 3a ec 4e |,N,360:.N,360:.N| 00000720 2b 36 30 2c 33 36 30 3a f0 38 35 2c 4e 2c 33 38 |+60,360:.85,N,38| 00000730 30 3a f0 38 35 2c 4e 2b 34 30 2c 33 38 30 3a f0 |0:.85,N+40,380:.| 00000740 38 35 2c 4e 2c 37 32 30 3a f0 38 35 2c 4e 2b 34 |85,N,720:.85,N+4| 00000750 30 2c 37 32 30 0d 02 67 2b ec 4e 2c 37 32 30 3a |0,720..g+.N,720:| 00000760 ec 4e 2b 34 30 2c 37 32 30 3a f0 38 35 2c 4e 2c |.N+40,720:.85,N,| 00000770 37 34 30 3a f0 38 35 2c 4e 2b 36 30 2c 37 34 30 |740:.85,N+60,740| 00000780 0d 02 6c 0d 72 65 65 6c 31 3d 33 3a f8 0d 02 8a |..l.reel1=3:....| 00000790 37 ec 4e 2c 35 38 30 3a ec 4e 2b 33 34 30 2c 35 |7.N,580:.N+340,5| 000007a0 38 30 3a f0 38 35 2c 4e 2c 35 34 30 3a f0 38 35 |80:.85,N,540:.85| 000007b0 2c 4e 2b 33 34 30 2c 35 34 30 3a 72 65 65 6c 31 |,N+340,540:reel1| 000007c0 3d 32 3a f8 0d 02 bc 97 ec 4e 2c 37 38 30 3a ec |=2:......N,780:.| 000007d0 4e 2b 34 30 2c 37 38 30 3a f0 38 35 2c 4e 2c 37 |N+40,780:.85,N,7| 000007e0 34 30 3a f0 38 35 2c 4e 2b 33 34 30 2c 33 36 30 |40:.85,N+340,360| 000007f0 3a f0 38 35 2c 4e 2b 33 30 30 2c 33 32 30 3a f0 |:.85,N+300,320:.| 00000800 38 35 2c 4e 2b 33 34 30 2c 33 32 30 3a ec 4e 2b |85,N+340,320:.N+| 00000810 33 34 30 2c 37 38 30 3a ec 4e 2b 33 30 30 2c 37 |340,780:.N+300,7| 00000820 38 30 3a f0 38 35 2c 4e 2b 33 34 30 2c 37 34 30 |80:.85,N+340,740| 00000830 3a f0 38 35 2c 4e 2c 33 36 30 3a f0 38 35 2c 4e |:.85,N,360:.85,N| 00000840 2b 34 30 2c 33 32 30 3a f0 38 35 2c 4e 2c 33 32 |+40,320:.85,N,32| 00000850 30 3a 72 65 65 6c 31 3d 31 3a f8 0d 03 20 0b dd |0:reel1=1:... ..| 00000860 f2 52 45 45 4c 32 0d 03 2a 09 4e 3d 34 37 30 0d |.REEL2..*.N=470.| 00000870 03 34 08 e6 30 2c 32 0d 03 3e 25 ee 20 b3 28 35 |.4..0,2..>%. .(5| 00000880 29 20 e4 20 8d 74 44 43 2c 8d 74 44 43 2c 8d 74 |) . .tDC,.tDC,.t| 00000890 76 43 2c 8d 74 76 43 2c 8d 64 68 43 0d 03 48 05 |vC,.tvC,.dhC..H.| 000008a0 e1 0d 03 84 08 e6 30 2c 32 0d 03 85 7e ec 4e 2b |......0,2...~.N+| 000008b0 34 30 2c 37 38 30 3a ec 4e 2b 33 30 30 2c 37 38 |40,780:.N+300,78| 000008c0 30 3a f0 38 35 2c 4e 2c 37 34 30 3a f0 38 35 2c |0:.85,N,740:.85,| 000008d0 4e 2b 33 34 30 2c 37 34 30 3a ec 4e 2b 32 38 30 |N+340,740:.N+280| 000008e0 2c 37 34 30 3a ec 4e 2b 33 34 30 2c 37 34 30 3a |,740:.N+340,740:| 000008f0 f0 38 35 2c 4e 2b 33 30 30 2c 37 32 30 3a f0 38 |.85,N+300,720:.8| 00000900 35 2c 4e 2b 33 34 30 2c 37 32 30 3a f0 38 35 2c |5,N+340,720:.85,| 00000910 4e 2b 33 30 30 2c 33 38 30 3a f0 38 35 2c 4e 2b |N+300,380:.85,N+| 00000920 33 34 30 2c 33 38 30 0d 03 8e 8b f0 38 35 2c 4e |340,380.....85,N| 00000930 2b 32 38 30 2c 33 36 30 3a f0 38 35 2c 4e 2b 33 |+280,360:.85,N+3| 00000940 34 30 2c 33 36 30 3a ec 4e 2b 33 30 30 2c 33 32 |40,360:.N+300,32| 00000950 30 3a ec 4e 2b 34 30 2c 33 32 30 3a f0 38 35 2c |0:.N+40,320:.85,| 00000960 4e 2b 33 34 30 2c 33 36 30 3a f0 38 35 2c 4e 2c |N+340,360:.85,N,| 00000970 33 36 30 3a ec 4e 2c 33 36 30 3a ec 4e 2b 36 30 |360:.N,360:.N+60| 00000980 2c 33 36 30 3a f0 38 35 2c 4e 2c 33 38 30 3a f0 |,360:.85,N,380:.| 00000990 38 35 2c 4e 2b 34 30 2c 33 38 30 3a f0 38 35 2c |85,N+40,380:.85,| 000009a0 4e 2c 37 32 30 3a f0 38 35 2c 4e 2b 34 30 2c 37 |N,720:.85,N+40,7| 000009b0 32 30 0d 03 93 2b ec 4e 2c 37 32 30 3a ec 4e 2b |20...+.N,720:.N+| 000009c0 34 30 2c 37 32 30 3a f0 38 35 2c 4e 2c 37 34 30 |40,720:.85,N,740| 000009d0 3a f0 38 35 2c 4e 2b 36 30 2c 37 34 30 0d 03 98 |:.85,N+60,740...| 000009e0 0d 72 65 65 6c 32 3d 33 3a f8 0d 03 b6 37 ec 4e |.reel2=3:....7.N| 000009f0 2c 35 38 30 3a ec 4e 2b 33 34 30 2c 35 38 30 3a |,580:.N+340,580:| 00000a00 f0 38 35 2c 4e 2c 35 34 30 3a f0 38 35 2c 4e 2b |.85,N,540:.85,N+| 00000a10 33 34 30 2c 35 34 30 3a 72 65 65 6c 32 3d 32 3a |340,540:reel2=2:| 00000a20 f8 0d 03 e8 97 ec 4e 2c 37 38 30 3a ec 4e 2b 34 |......N,780:.N+4| 00000a30 30 2c 37 38 30 3a f0 38 35 2c 4e 2c 37 34 30 3a |0,780:.85,N,740:| 00000a40 f0 38 35 2c 4e 2b 33 34 30 2c 33 36 30 3a f0 38 |.85,N+340,360:.8| 00000a50 35 2c 4e 2b 33 30 30 2c 33 32 30 3a f0 38 35 2c |5,N+300,320:.85,| 00000a60 4e 2b 33 34 30 2c 33 32 30 3a ec 4e 2b 33 34 30 |N+340,320:.N+340| 00000a70 2c 37 38 30 3a ec 4e 2b 33 30 30 2c 37 38 30 3a |,780:.N+300,780:| 00000a80 f0 38 35 2c 4e 2b 33 34 30 2c 37 34 30 3a f0 38 |.85,N+340,740:.8| 00000a90 35 2c 4e 2c 33 36 30 3a f0 38 35 2c 4e 2b 34 30 |5,N,360:.85,N+40| 00000aa0 2c 33 32 30 3a f0 38 35 2c 4e 2c 33 32 30 3a 72 |,320:.85,N,320:r| 00000ab0 65 65 6c 32 3d 31 3a f8 0d 04 4c 0b dd f2 52 45 |eel2=1:...L...RE| 00000ac0 45 4c 33 0d 04 56 09 4e 3d 38 39 30 0d 04 60 08 |EL3..V.N=890..`.| 00000ad0 e6 30 2c 32 0d 04 6a 25 ee 20 b3 28 35 29 20 e4 |.0,2..j%. .(5) .| 00000ae0 20 8d 74 70 44 2c 8d 74 70 44 2c 8d 64 62 44 2c | .tpD,.tpD,.dbD,| 00000af0 8d 64 62 44 2c 8d 54 54 45 0d 04 74 05 e1 0d 04 |.dbD,.TTE..t....| 00000b00 b0 08 e6 30 2c 32 0d 04 b1 7e ec 4e 2b 34 30 2c |...0,2...~.N+40,| 00000b10 37 38 30 3a ec 4e 2b 33 30 30 2c 37 38 30 3a f0 |780:.N+300,780:.| 00000b20 38 35 2c 4e 2c 37 34 30 3a f0 38 35 2c 4e 2b 33 |85,N,740:.85,N+3| 00000b30 34 30 2c 37 34 30 3a ec 4e 2b 32 38 30 2c 37 34 |40,740:.N+280,74| 00000b40 30 3a ec 4e 2b 33 34 30 2c 37 34 30 3a f0 38 35 |0:.N+340,740:.85| 00000b50 2c 4e 2b 33 30 30 2c 37 32 30 3a f0 38 35 2c 4e |,N+300,720:.85,N| 00000b60 2b 33 34 30 2c 37 32 30 3a f0 38 35 2c 4e 2b 33 |+340,720:.85,N+3| 00000b70 30 30 2c 33 38 30 3a f0 38 35 2c 4e 2b 33 34 30 |00,380:.85,N+340| 00000b80 2c 33 38 30 0d 04 ba 8b f0 38 35 2c 4e 2b 32 38 |,380.....85,N+28| 00000b90 30 2c 33 36 30 3a f0 38 35 2c 4e 2b 33 34 30 2c |0,360:.85,N+340,| 00000ba0 33 36 30 3a ec 4e 2b 33 30 30 2c 33 32 30 3a ec |360:.N+300,320:.| 00000bb0 4e 2b 34 30 2c 33 32 30 3a f0 38 35 2c 4e 2b 33 |N+40,320:.85,N+3| 00000bc0 34 30 2c 33 36 30 3a f0 38 35 2c 4e 2c 33 36 30 |40,360:.85,N,360| 00000bd0 3a ec 4e 2c 33 36 30 3a ec 4e 2b 36 30 2c 33 36 |:.N,360:.N+60,36| 00000be0 30 3a f0 38 35 2c 4e 2c 33 38 30 3a f0 38 35 2c |0:.85,N,380:.85,| 00000bf0 4e 2b 34 30 2c 33 38 30 3a f0 38 35 2c 4e 2c 37 |N+40,380:.85,N,7| 00000c00 32 30 3a f0 38 35 2c 4e 2b 34 30 2c 37 32 30 0d |20:.85,N+40,720.| 00000c10 04 bf 2b ec 4e 2c 37 32 30 3a ec 4e 2b 34 30 2c |..+.N,720:.N+40,| 00000c20 37 32 30 3a f0 38 35 2c 4e 2c 37 34 30 3a f0 38 |720:.85,N,740:.8| 00000c30 35 2c 4e 2b 36 30 2c 37 34 30 0d 04 c4 0d 72 65 |5,N+60,740....re| 00000c40 65 6c 33 3d 33 3a f8 0d 04 e2 37 ec 4e 2c 35 38 |el3=3:....7.N,58| 00000c50 30 3a ec 4e 2b 33 34 30 2c 35 38 30 3a f0 38 35 |0:.N+340,580:.85| 00000c60 2c 4e 2c 35 34 30 3a f0 38 35 2c 4e 2b 33 34 30 |,N,540:.85,N+340| 00000c70 2c 35 34 30 3a 72 65 65 6c 33 3d 32 3a f8 0d 05 |,540:reel3=2:...| 00000c80 14 97 ec 4e 2c 37 38 30 3a ec 4e 2b 34 30 2c 37 |...N,780:.N+40,7| 00000c90 38 30 3a f0 38 35 2c 4e 2c 37 34 30 3a f0 38 35 |80:.85,N,740:.85| 00000ca0 2c 4e 2b 33 34 30 2c 33 36 30 3a f0 38 35 2c 4e |,N+340,360:.85,N| 00000cb0 2b 33 30 30 2c 33 32 30 3a f0 38 35 2c 4e 2b 33 |+300,320:.85,N+3| 00000cc0 34 30 2c 33 32 30 3a ec 4e 2b 33 34 30 2c 37 38 |40,320:.N+340,78| 00000cd0 30 3a ec 4e 2b 33 30 30 2c 37 38 30 3a f0 38 35 |0:.N+300,780:.85| 00000ce0 2c 4e 2b 33 34 30 2c 37 34 30 3a f0 38 35 2c 4e |,N+340,740:.85,N| 00000cf0 2c 33 36 30 3a f0 38 35 2c 4e 2b 34 30 2c 33 32 |,360:.85,N+40,32| 00000d00 30 3a f0 38 35 2c 4e 2c 33 32 30 3a 72 65 65 6c |0:.85,N,320:reel| 00000d10 33 3d 31 3a f8 0d 05 1e 09 dd f2 53 45 45 0d 05 |3=1:.......SEE..| 00000d20 28 7e e7 20 72 65 65 6c 31 3d 31 20 80 20 72 65 |(~. reel1=1 . re| 00000d30 65 6c 32 3d 31 20 80 20 72 65 65 6c 33 3d 31 20 |el2=1 . reel3=1 | 00000d40 ef 31 39 2c 32 2c 38 3b 30 3b 3a 48 3d 31 32 30 |.19,2,8;0;:H=120| 00000d50 3a 49 3d 31 32 30 3a e3 49 3d 31 b8 33 30 3a d4 |:I=120:.I=1.30:.| 00000d60 31 2c 2d 31 35 2c 31 30 30 2b 49 2c 31 3a d4 31 |1,-15,100+I,1:.1| 00000d70 2c 2d 31 35 2c 49 2b 32 2c 31 3a ed 3a ef 31 39 |,-15,I+2,1:.:.19| 00000d80 2c 32 2c 37 3b 30 3b 3a e3 4a 3d 31 b8 32 30 30 |,2,7;0;:.J=1.200| 00000d90 3a ed 3a f2 74 6f 74 61 6c 28 31 29 0d 05 32 7f |:.:.total(1)..2.| 00000da0 e7 20 72 65 65 6c 31 3d 33 20 80 20 72 65 65 6c |. reel1=3 . reel| 00000db0 32 3d 33 20 80 20 72 65 65 6c 33 3d 33 20 ef 31 |2=3 . reel3=3 .1| 00000dc0 39 2c 32 2c 38 3b 30 3b 3a 48 3d 31 32 30 3a 49 |9,2,8;0;:H=120:I| 00000dd0 3d 31 32 30 3a e3 49 3d 31 b8 33 30 3a d4 31 2c |=120:.I=1.30:.1,| 00000de0 2d 31 35 2c 31 30 30 2b 49 2c 31 3a d4 31 2c 2d |-15,100+I,1:.1,-| 00000df0 31 35 2c 49 2b 32 2c 31 3a ed 3a ef 31 39 2c 32 |15,I+2,1:.:.19,2| 00000e00 2c 37 3b 30 3b 3a e3 4a 3d 31 b8 32 30 30 3a ed |,7;0;:.J=1.200:.| 00000e10 3a f2 74 6f 74 61 6c 28 2e 35 29 0d 05 3c 05 e1 |:.total(.5)..<..| 00000e20 0d 07 d0 0b dd f2 63 6c 65 61 72 0d 07 d1 08 e6 |......clear.....| 00000e30 30 2c 30 0d 07 d2 12 e7 20 68 6f 31 3d 31 20 e5 |0,0..... ho1=1 .| 00000e40 20 8d 64 73 47 0d 07 da 18 e7 20 72 65 65 6c 31 | .dsG..... reel1| 00000e50 3d 31 20 4e 3d 35 30 3a e4 8d 64 4c 4b 0d 07 e4 |=1 N=50:..dLK...| 00000e60 18 e7 20 72 65 65 6c 31 3d 32 20 4e 3d 35 30 3a |.. reel1=2 N=50:| 00000e70 e4 8d 64 42 4b 0d 07 ee 18 e7 20 72 65 65 6c 31 |..dBK..... reel1| 00000e80 3d 33 20 4e 3d 35 30 3a e4 8d 74 78 4b 0d 07 f3 |=3 N=50:..txK...| 00000e90 12 e7 20 68 6f 32 3d 31 20 e5 20 8d 54 51 48 0d |.. ho2=1 . .TQH.| 00000ea0 07 f8 19 e7 20 72 65 65 6c 32 3d 31 20 4e 3d 34 |.... reel2=1 N=4| 00000eb0 37 30 3a e4 8d 64 4c 4b 0d 08 02 19 e7 20 72 65 |70:..dLK..... re| 00000ec0 65 6c 32 3d 32 20 4e 3d 34 37 30 3a e4 8d 64 42 |el2=2 N=470:..dB| 00000ed0 4b 0d 08 0c 19 e7 20 72 65 65 6c 32 3d 33 20 4e |K..... reel2=3 N| 00000ee0 3d 34 37 30 3a e4 8d 74 78 4b 0d 08 11 12 e7 20 |=470:..txK..... | 00000ef0 68 6f 33 3d 31 20 e5 20 8d 54 6b 48 0d 08 16 19 |ho3=1 . .TkH....| 00000f00 e7 20 72 65 65 6c 33 3d 31 20 4e 3d 38 39 30 3a |. reel3=1 N=890:| 00000f10 e4 8d 64 4c 4b 0d 08 20 19 e7 20 72 65 65 6c 33 |..dLK.. .. reel3| 00000f20 3d 32 20 4e 3d 38 39 30 3a e4 8d 64 42 4b 0d 08 |=2 N=890:..dBK..| 00000f30 2a 19 e7 20 72 65 65 6c 33 3d 33 20 4e 3d 38 39 |*.. reel3=3 N=89| 00000f40 30 3a e4 8d 74 78 4b 0d 08 2b 08 e6 30 2c 32 0d |0:..txK..+..0,2.| 00000f50 08 34 05 e1 0d 0b b8 7e ec 4e 2b 34 30 2c 37 38 |.4.....~.N+40,78| 00000f60 30 3a ec 4e 2b 33 30 30 2c 37 38 30 3a f0 38 35 |0:.N+300,780:.85| 00000f70 2c 4e 2c 37 34 30 3a f0 38 35 2c 4e 2b 33 34 30 |,N,740:.85,N+340| 00000f80 2c 37 34 30 3a ec 4e 2b 32 38 30 2c 37 34 30 3a |,740:.N+280,740:| 00000f90 ec 4e 2b 33 34 30 2c 37 34 30 3a f0 38 35 2c 4e |.N+340,740:.85,N| 00000fa0 2b 33 30 30 2c 37 32 30 3a f0 38 35 2c 4e 2b 33 |+300,720:.85,N+3| 00000fb0 34 30 2c 37 32 30 3a f0 38 35 2c 4e 2b 33 30 30 |40,720:.85,N+300| 00000fc0 2c 33 38 30 3a f0 38 35 2c 4e 2b 33 34 30 2c 33 |,380:.85,N+340,3| 00000fd0 38 30 0d 0b b9 8b f0 38 35 2c 4e 2b 32 38 30 2c |80.....85,N+280,| 00000fe0 33 36 30 3a f0 38 35 2c 4e 2b 33 34 30 2c 33 36 |360:.85,N+340,36| 00000ff0 30 3a ec 4e 2b 33 30 30 2c 33 32 30 3a ec 4e 2b |0:.N+300,320:.N+| 00001000 34 30 2c 33 32 30 3a f0 38 35 2c 4e 2b 33 34 30 |40,320:.85,N+340| 00001010 2c 33 36 30 3a f0 38 35 2c 4e 2c 33 36 30 3a ec |,360:.85,N,360:.| 00001020 4e 2c 33 36 30 3a ec 4e 2b 36 30 2c 33 36 30 3a |N,360:.N+60,360:| 00001030 f0 38 35 2c 4e 2c 33 38 30 3a f0 38 35 2c 4e 2b |.85,N,380:.85,N+| 00001040 34 30 2c 33 38 30 3a f0 38 35 2c 4e 2c 37 32 30 |40,380:.85,N,720| 00001050 3a f0 38 35 2c 4e 2b 34 30 2c 37 32 30 0d 0b ba |:.85,N+40,720...| 00001060 2d ec 4e 2c 37 32 30 3a ec 4e 2b 34 30 2c 37 32 |-.N,720:.N+40,72| 00001070 30 3a f0 38 35 2c 4e 2c 37 34 30 3a f0 38 35 2c |0:.85,N,740:.85,| 00001080 4e 2b 36 30 2c 37 34 30 3a f8 0d 0b c2 2f ec 4e |N+60,740:..../.N| 00001090 2c 35 38 30 3a ec 4e 2b 33 34 30 2c 35 38 30 3a |,580:.N+340,580:| 000010a0 f0 38 35 2c 4e 2c 35 34 30 3a f0 38 35 2c 4e 2b |.85,N,540:.85,N+| 000010b0 33 34 30 2c 35 34 30 3a f8 0d 0b cc 8f ec 4e 2c |340,540:......N,| 000010c0 37 38 30 3a ec 4e 2b 34 30 2c 37 38 30 3a f0 38 |780:.N+40,780:.8| 000010d0 35 2c 4e 2c 37 34 30 3a f0 38 35 2c 4e 2b 33 34 |5,N,740:.85,N+34| 000010e0 30 2c 33 36 30 3a f0 38 35 2c 4e 2b 33 30 30 2c |0,360:.85,N+300,| 000010f0 33 32 30 3a f0 38 35 2c 4e 2b 33 34 30 2c 33 32 |320:.85,N+340,32| 00001100 30 3a ec 4e 2b 33 34 30 2c 37 38 30 3a ec 4e 2b |0:.N+340,780:.N+| 00001110 33 30 30 2c 37 38 30 3a f0 38 35 2c 4e 2b 33 34 |300,780:.85,N+34| 00001120 30 2c 37 34 30 3a f0 38 35 2c 4e 2c 33 36 30 3a |0,740:.85,N,360:| 00001130 f0 38 35 2c 4e 2b 34 30 2c 33 32 30 3a f0 38 35 |.85,N+40,320:.85| 00001140 2c 4e 2c 33 32 30 3a f8 0d 0b d6 0e dd f2 74 6f |,N,320:.......to| 00001150 74 61 6c 28 61 29 0d 0b db 07 53 3d 30 0d 0b e0 |tal(a)....S=0...| 00001160 18 e3 4e 3d 74 6f 74 20 b8 20 74 6f 74 2b 61 20 |..N=tot . tot+a | 00001170 88 30 2e 30 31 0d 0b e5 09 53 3d 53 2b 32 0d 0b |.0.01....S=S+2..| 00001180 ea 48 e7 20 4e 3e 39 2e 39 39 20 f1 8a 38 2c 32 |.H. N>9.99 ..8,2| 00001190 38 29 3b 4e 20 8b 20 e7 20 4e 3c 31 30 20 80 20 |8);N . . N<10 . | 000011a0 4e 3e 30 2e 39 39 20 f1 8a 38 2c 32 38 29 3b 22 |N>0.99 ..8,28);"| 000011b0 30 22 3b 4e 20 8b 20 e7 20 4e 3c 31 20 f1 8a 39 |0";N . . N<1 ..9| 000011c0 2c 32 38 29 3b 4e 0d 0b ef 17 d4 31 2c 2d 31 35 |,28);N.....1,-15| 000011d0 2c 53 2c 31 3a d4 31 2c 30 2c 30 2c 30 0d 0b f4 |,S,1:.1,0,0,0...| 000011e0 06 ed 4e 0d 0b f9 0d 74 6f 74 3d 74 6f 74 2b 61 |..N....tot=tot+a| 000011f0 0d 0b fa 24 e7 20 4e 3c 31 30 20 f1 8a 39 2c 32 |...$. N<10 ..9,2| 00001200 38 29 3b 74 6f 74 20 8b 20 f1 8a 38 2c 32 38 29 |8);tot . ..8,28)| 00001210 3b 74 6f 74 0d 0b fe 05 e1 0d 0f 9f 09 dd f2 4e |;tot...........N| 00001220 45 57 0d 0f a0 05 f5 0d 0f a1 15 68 6f 31 3d 30 |EW.........ho1=0| 00001230 3a 68 6f 32 3d 30 3a 68 6f 33 3d 30 0d 0f aa 26 |:ho2=0:ho3=0...&| 00001240 ef 35 3a e6 30 2c 32 3a ec 32 39 30 2c 33 30 3a |.5:.0,2:.290,30:| 00001250 f1 22 49 4e 53 45 52 54 20 43 4f 49 4e 22 3b 3a |."INSERT COIN";:| 00001260 ef 34 0d 0f b4 0c 67 24 3d bf 28 36 30 29 0d 0f |.4....g$=.(60)..| 00001270 be 24 e7 20 67 24 3d bd 28 31 33 29 20 84 20 67 |.$. g$=.(13) . g| 00001280 24 3d bd 28 33 32 29 20 47 4f 3d 31 3a e5 8d 64 |$=.(32) GO=1:..d| 00001290 70 4f 0d 0f c8 1d f1 8a 33 2c 33 31 29 22 20 20 |pO......3,31)" | 000012a0 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 0d | ";.| 000012b0 0f d2 0c 67 24 3d bf 28 34 35 29 0d 0f dc 24 e7 |...g$=.(45)...$.| 000012c0 20 67 24 3d bd 28 31 33 29 20 84 20 67 24 3d bd | g$=.(13) . g$=.| 000012d0 28 33 32 29 20 47 4f 3d 31 3a e5 8d 64 70 4f 0d |(32) GO=1:..dpO.| 000012e0 0f f0 0f fd 20 47 4f 3d 31 3a 47 4f 3d 30 0d 0f |.... GO=1:GO=0..| 000012f0 fa 1d f1 8a 33 2c 33 31 29 22 20 20 20 20 20 20 |....3,31)" | 00001300 20 20 20 20 20 20 20 20 20 22 3b 0d 0f ff 06 fb | ";.....| 00001310 33 0d 10 04 05 e1 0d 13 87 0a dd f2 48 4f 4c 44 |3...........HOLD| 00001320 0d 13 88 29 d4 31 2c 2d 31 35 2c 35 30 2c 34 3a |...).1,-15,50,4:| 00001330 d4 31 2c 2d 31 35 2c 31 30 30 2c 34 3a d4 31 2c |.1,-15,100,4:.1,| 00001340 2d 31 35 2c 31 35 30 2c 34 0d 13 9c 06 ef 35 0d |-15,150,4.....5.| 00001350 13 a6 05 f5 0d 13 c4 21 e6 30 2c 33 3a e7 20 68 |.......!.0,3:. h| 00001360 6f 31 3d 30 20 ec 20 39 35 2c 32 37 30 3a f1 22 |o1=0 . 95,270:."| 00001370 48 4f 4c 44 22 0d 13 c5 1c e7 20 68 6f 32 3d 30 |HOLD"..... ho2=0| 00001380 20 ec 35 31 35 2c 32 37 30 3a f1 22 48 4f 4c 44 | .515,270:."HOLD| 00001390 22 0d 13 c6 1c e7 20 68 6f 33 3d 30 20 ec 39 33 |"..... ho3=0 .93| 000013a0 35 2c 32 37 30 3a f1 22 48 4f 4c 44 22 0d 13 ce |5,270:."HOLD"...| 000013b0 0c 67 24 3d bf 28 33 30 29 0d 13 d8 45 e7 20 67 |.g$=.(30)...E. g| 000013c0 24 3d 22 31 22 20 84 20 67 24 3d 22 32 22 20 84 |$="1" . g$="2" .| 000013d0 20 67 24 3d 22 33 22 20 84 20 67 24 3d bd 31 33 | g$="3" . g$=.13| 000013e0 20 84 20 67 24 3d bd 33 32 20 84 20 67 24 3d bd | . g$=.32 . g$=.| 000013f0 36 37 3a 74 72 75 3d 31 3a e5 8d 74 6e 55 0d 13 |67:tru=1:..tnU..| 00001400 e2 21 e6 30 2c 30 3a e7 20 68 6f 31 3d 30 20 ec |.!.0,0:. ho1=0 .| 00001410 20 39 35 2c 32 37 30 3a f1 22 48 4f 4c 44 22 0d | 95,270:."HOLD".| 00001420 13 e3 1c e7 20 68 6f 32 3d 30 20 ec 35 31 35 2c |.... ho2=0 .515,| 00001430 32 37 30 3a f1 22 48 4f 4c 44 22 0d 13 e4 1c e7 |270:."HOLD".....| 00001440 20 68 6f 33 3d 30 20 ec 39 33 35 2c 32 37 30 3a | ho3=0 .935,270:| 00001450 f1 22 48 4f 4c 44 22 0d 13 ec 0c 67 24 3d bf 28 |."HOLD"....g$=.(| 00001460 32 30 29 0d 13 f6 46 e7 20 67 24 3d 22 31 22 20 |20)...F. g$="1" | 00001470 84 20 67 24 3d 22 32 22 20 84 20 67 24 3d 22 33 |. g$="2" . g$="3| 00001480 22 20 84 20 67 24 3d bd 31 33 20 84 20 67 24 3d |" . g$=.13 . g$=| 00001490 bd 33 32 20 84 20 67 24 3d bd 36 37 3a 74 72 75 |.32 . g$=.67:tru| 000014a0 3d 31 3a e5 8d 74 6e 55 20 0d 15 ae 11 fd 20 74 |=1:..tnU ..... t| 000014b0 72 75 3d 31 3a 74 72 75 3d 30 0d 15 af 21 e7 20 |ru=1:tru=0...!. | 000014c0 68 6f 31 3d 30 20 e6 30 2c 30 3a ec 20 39 35 2c |ho1=0 .0,0:. 95,| 000014d0 32 37 30 3a f1 22 48 4f 4c 44 22 0d 15 b0 22 e7 |270:."HOLD"...".| 000014e0 20 68 6f 32 3d 30 20 e6 30 2c 30 3a ec 20 35 31 | ho2=0 .0,0:. 51| 000014f0 35 2c 32 37 30 3a f1 22 48 4f 4c 44 22 0d 15 b1 |5,270:."HOLD"...| 00001500 22 e7 20 68 6f 33 3d 30 20 e6 30 2c 30 3a ec 20 |". ho3=0 .0,0:. | 00001510 39 33 35 2c 32 37 30 3a f1 22 48 4f 4c 44 22 0d |935,270:."HOLD".| 00001520 15 b8 30 e7 20 67 24 3d 22 31 22 20 e6 30 2c 32 |..0. g$="1" .0,2| 00001530 3a ec 39 35 2c 32 37 30 3a f1 22 48 45 4c 44 22 |:.95,270:."HELD"| 00001540 3a 68 6f 31 3d 31 3a ef 37 3a e5 8d 74 66 53 0d |:ho1=1:.7:..tfS.| 00001550 15 c2 31 e7 20 67 24 3d 22 32 22 20 e6 30 2c 32 |..1. g$="2" .0,2| 00001560 3a ec 35 31 35 2c 32 37 30 3a f1 22 48 45 4c 44 |:.515,270:."HELD| 00001570 22 3a 68 6f 32 3d 31 3a ef 37 3a e5 8d 74 66 53 |":ho2=1:.7:..tfS| 00001580 0d 15 cc 31 e7 20 67 24 3d 22 33 22 20 e6 30 2c |...1. g$="3" .0,| 00001590 32 3a ec 39 33 35 2c 32 37 30 3a f1 22 48 45 4c |2:.935,270:."HEL| 000015a0 44 22 3a 68 6f 33 3d 31 3a ef 37 3a e5 8d 74 66 |D":ho3=1:.7:..tf| 000015b0 53 0d 15 d1 87 e7 20 67 24 3d bd 36 37 20 8c 20 |S..... g$=.67 . | 000015c0 68 6f 31 3d 30 3a 68 6f 32 3d 30 3a 68 6f 33 3d |ho1=0:ho2=0:ho3=| 000015d0 30 3a e6 30 2c 30 3a ec 20 39 35 2c 32 37 30 3a |0:.0,0:. 95,270:| 000015e0 f1 22 48 4f 22 3a ec 39 35 2c 32 37 30 3a f1 22 |."HO":.95,270:."| 000015f0 48 45 22 3a ec 35 31 35 2c 32 37 30 3a f1 22 48 |HE":.515,270:."H| 00001600 4f 22 3a ec 35 31 35 2c 32 37 30 3a f1 22 48 45 |O":.515,270:."HE| 00001610 22 3a ec 39 33 35 2c 32 37 30 3a f1 22 48 4f 22 |":.935,270:."HO"| 00001620 3a ec 39 33 35 2c 32 37 30 3a f1 22 48 45 22 3a |:.935,270:."HE":| 00001630 ef 34 3a e5 8d 74 5c 53 0d 15 d6 25 e7 20 67 24 |.4:..t\S...%. g$| 00001640 3d bd 31 33 20 84 20 67 24 3d bd 33 32 20 68 6f |=.13 . g$=.32 ho| 00001650 6c 64 3d 31 3a ef 34 3a f2 53 50 49 4e 0d 15 e0 |ld=1:.4:.SPIN...| 00001660 05 e1 0d ff |....| 00001664