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:

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";
Mg$=�(60)
N$� g$=�(13) � g$=�(32) GO=1:�DSA
O�8,31)"    ";
Pg$=�(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
G/FRUIT.m0
G/FRUIT.m1
G/FRUIT.m2
G/FRUIT.m4
G/FRUIT.m5