� > <MAGs$Dir>.BANDIT
� by Mike Goldberg and Cat
� � Acorn Computing
(�13
2�
<O$="OS_SpriteOp"
F� Load in the Spritefile
P$sprites$="<MAGs$Dir>.BANDITfile"
Zfile%=�(sprites$)
dsize%=�#file%+64
n�#file%
x
�@� Dimension an AREA the SIZE of the file to store sprites in
�� area% size%
�area%!0=size%
�
�7� Initialise area to load the sprite definitions to
�ș O$,256+9,area%
�
�2� Now load the sprite definitions to this area
�ș O$,256+10,area%,sprites$
�
�$� _____SET UP ONCE ONLY_________
�	�dims
��sprites

$� ------------------------------

	�init

�screen

"

,� --OUTER LOOP

6�

@
�start

J

T� ---LOOP------

^�

h�S%(1)=1�spin(1)

r�>25�S%(2)=1�spin(2)

|�>50�S%(3)=1�spin(3)

��S%(1)=0�S%(2)=0�S%(3)=0

� �10,23)�4�18,23)�4�26,23)�4

�� -------------

��result

��totalwin%=0

�� ----------------

��

�

�� SORT SPRITES OUT

�
��sprites

��I%=1�8

�)�setsprite("IKON"+�(I%),I%(I%),h%,w%)

��
&�setsprite("BACKGROUND",BG%,h%,w%)
$�setsprite("COIN1",coin1%,h%,w%)
"�setsprite("SLOT",slot%,h%,w%)
&$�setsprite("STACK",stack%,h%,w%)
0
:�
D
N� Init sprites
X4��setsprite(string$,� value%,� width%,� height%)
b(ș O$,256+24,area%,string$ �,,value%
l1ș O$,256+40,area%,string$ �,,,width%,height%
v�
�
�
� INIT
�
��init
�hold%=0
�totalwin%=100
�STX%=64
�
STY%=8
�
X%(1)=320
�X%(2)=X%(1)+224
�X%(3)=X%(2)+224
�Y%()=512
�
N%()=1
�
S%()=1
�J%=1�3
�I%=0�amount%
�R%(J%,I%)
 �
*�
4�
>� REEL DATA
H
 � Reel 1
R,�1,2,4,3,1,2,5,1,6,2,3,7,2,8,2,4,3,2,5,3
\
 � Reel 2
f,�4,6,7,1,3,8,2,1,5,4,2,1,2,4,6,2,1,3,2,1
p
 � Reel 3
z,�1,3,8,2,1,6,2,3,7,2,5,1,6,4,2,1,2,4,5,2
�
�� SCREEN
���screen
�BX%=200
�	BY%=0
�� --- PROCtemplate:END
�$ș O$,512+34,area%,BG%,BX%,BY%,0
��26
��0:Ȝ2,0
�$ȓȐ288+32,288+64,700-64,640-128
��stack(totalwin%)
�,�24,288+32;288+64;288+700-32;288+640-64;
��I%=1�3
7ș O$,512+34,area%,I%(R%(I%,2)),X%(I%),Y%(I%)+192,0
3ș O$,512+34,area%,I%(R%(I%,1)),X%(I%),Y%(I%),0
7ș O$,512+34,area%,I%(R%(I%,0)),X%(I%),Y%(I%)-192,0
$�
.�
8
B� START
L��start
Vhold%=0
`
S%()=1
jloops%(1)=�(10)+6
tloops%(2)=loops%(1)+�(6)
~loops%(3)=loops%(2)+�(6)
�
c%()=1
��(3)=1hold%=1
� �10,23)�4�18,23)�4�26,23)�4
�7�hold%=1�7:�10,23)"HOLD"�18,23)"HOLD"�26,23)"HOLD"
��
�
ș6,15
��hold%=1�hold
�	��=32
�totalwin%-=10
�STY%-=32
��26
��0:Ȝ2,0
ȓȐSTX%,STY%,128,32

,�24,288+32;288+64;288+700-32;288+640-64;
�=0
�S%(1)=0�=26
(�S%(2)=0�=51
2�
<
F
� DIMS
P
��dims
Z�X%(3),Y%(3)
damount%=20
namount%-=1:�R%(3,amount%)
x
�I%(8)
�
�S%(3)
�
�N%(3)
��loops%(3),c%(3)
��
�
�� SPIN REELS
���spin(r%)
�Y%(r%)-=32
�Hș O$,512+34,area%,I%(R%(r%,(N%(r%)+2)�amount%)),X%(r%),Y%(r%)+384,0
�Hș O$,512+34,area%,I%(R%(r%,(N%(r%)+1)�amount%)),X%(r%),Y%(r%)+192,0
�8ș O$,512+34,area%,I%(R%(r%,N%(r%))),X%(r%),Y%(r%),0
�Iș O$,512+34,area%,I%(R%(r%,(N%(r%)+19)�amount%)),X%(r%),Y%(r%)-192,0
�X�Y%(r%)=320Y%(r%)=512:N%(r%)=(N%(r%)+1)�amount%:c%(r%)+=1:�c%(r%)=loops%(r%)S%(r%)=0
�
� RESULT
��result
"
win%=0
,fruit%=R%(1,N%(1))
6C�R%(1,N%(1))=R%(2,N%(2)):�R%(2,N%(2))=R%(3,N%(3))�win(fruit%,3)
@C�R%(1,N%(1))=R%(2,N%(2))�R%(3,N%(3))<>R%(2,N%(2))�win(fruit%,2)
J�
T
^	� WIN
h��win(f%,x%)
r�7
|�x%=2 �
� win%=20
� totalwin%+=win%
��dropcoins(win%)
� �
��
�
�Ȏ f% �
� � 1:win%=30
� � 2:win%=40
� � 3:win%=80
� � 4:win%=100
� � 5:win%=150
� � 6:win%=180
 � 7:win%=200
 � 8:win%=300
�
&�dropcoins(win%)
0totalwin%+=win%
:�
D
� HOLD
N
��hold
X,�-49�S%(1)=0S%(1)=1:�7:�10,23)"HOLD":�
b+�-49�S%(1)=1S%(1)=0:�13:�10,23)"HOLD"
l,�-50�S%(2)=0S%(2)=1:�7:�18,23)"HOLD":�
v+�-50�S%(2)=1S%(2)=0:�13:�18,23)"HOLD"
�,�-18�S%(3)=0S%(3)=1:�7:�26,23)"HOLD":�
�+�-18�S%(3)=1S%(3)=0:�13:�26,23)"HOLD"
��
�
�� DROP COINS
���dropcoins(wow%)
�wow%=wow%/10
��24,548;0;732;160;
�SX%=532
�	SY%=0
�CX%=580
�
��I%=1�wow%
CY%=160
�
&ș O$,512+34,area%,slot%,SX%,SY%,0
 'ș O$,512+34,area%,coin1%,CX%,CY%,8
*Ȗ
4CY%-=12
>
�CY%<-140
H�
R�26
\�stack(win%)
f,�24,288+32;288+64;288+700-32;288+640-64;
p�
z
�� STACK OF COINS
���stack(H%)
�H%=H%/10
��I%=1�H%
�)ș O$,512+34,area%,stack%,STX%,STY%,0
�STY%+=32
��
��
�� TEMPLATE
���template
��12
�ȓȐBX%,BY%,996,1020
��4
	ȓȐBX%,BY%,872,1020
	�7
	ȓȐBX%+120,BY%+352,636,512
	$�21
	.ȓȐBX%+332,BY%+48,212,136
	8�15
	BȓȐBX%+332,BY%,212,48
	L�19
	VȓȐBX%+104,BY%+240,156,64
	`"ȓȐBX%+104+256,BY%+240,156,64
	j"ȓȐBX%+104+512,BY%+240,156,64
	t�24,BX%;BY%;996+BX%;1020;
	~#*SCREENSAVE <MAGs$Dir>.TEMPLATE
	��
�

00000000  0d 00 0a 19 f4 20 3e 20  3c 4d 41 47 73 24 44 69  |..... > <MAGs$Di|
00000010  72 3e 2e 42 41 4e 44 49  54 0d 00 14 1e f4 20 62  |r>.BANDIT..... b|
00000020  79 20 4d 69 6b 65 20 47  6f 6c 64 62 65 72 67 20  |y Mike Goldberg |
00000030  61 6e 64 20 43 61 74 0d  00 1e 17 f4 20 a9 20 41  |and Cat..... . A|
00000040  63 6f 72 6e 20 43 6f 6d  70 75 74 69 6e 67 0d 00  |corn Computing..|
00000050  28 07 eb 31 33 0d 00 32  05 87 0d 00 3c 14 4f 24  |(..13..2....<.O$|
00000060  3d 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 0d 00  |="OS_SpriteOp"..|
00000070  46 1c f4 20 4c 6f 61 64  20 69 6e 20 74 68 65 20  |F.. Load in the |
00000080  53 70 72 69 74 65 66 69  6c 65 0d 00 50 24 73 70  |Spritefile..P$sp|
00000090  72 69 74 65 73 24 3d 22  3c 4d 41 47 73 24 44 69  |rites$="<MAGs$Di|
000000a0  72 3e 2e 42 41 4e 44 49  54 66 69 6c 65 22 0d 00  |r>.BANDITfile"..|
000000b0  5a 15 66 69 6c 65 25 3d  8e 28 73 70 72 69 74 65  |Z.file%=.(sprite|
000000c0  73 24 29 0d 00 64 14 73  69 7a 65 25 3d a2 23 66  |s$)..d.size%=.#f|
000000d0  69 6c 65 25 2b 36 34 0d  00 6e 0b d9 23 66 69 6c  |ile%+64..n..#fil|
000000e0  65 25 0d 00 78 04 0d 00  82 40 f4 20 44 69 6d 65  |e%..x....@. Dime|
000000f0  6e 73 69 6f 6e 20 61 6e  20 41 52 45 41 20 74 68  |nsion an AREA th|
00000100  65 20 53 49 5a 45 20 6f  66 20 74 68 65 20 66 69  |e SIZE of the fi|
00000110  6c 65 20 74 6f 20 73 74  6f 72 65 20 73 70 72 69  |le to store spri|
00000120  74 65 73 20 69 6e 0d 00  8c 11 de 20 61 72 65 61  |tes in..... area|
00000130  25 20 73 69 7a 65 25 0d  00 96 11 61 72 65 61 25  |% size%....area%|
00000140  21 30 3d 73 69 7a 65 25  0d 00 a0 04 0d 00 aa 37  |!0=size%.......7|
00000150  f4 20 49 6e 69 74 69 61  6c 69 73 65 20 61 72 65  |. Initialise are|
00000160  61 20 74 6f 20 6c 6f 61  64 20 74 68 65 20 73 70  |a to load the sp|
00000170  72 69 74 65 20 64 65 66  69 6e 69 74 69 6f 6e 73  |rite definitions|
00000180  20 74 6f 0d 00 b4 15 c8  99 20 4f 24 2c 32 35 36  | to...... O$,256|
00000190  2b 39 2c 61 72 65 61 25  0d 00 be 04 0d 00 c8 32  |+9,area%.......2|
000001a0  f4 20 4e 6f 77 20 6c 6f  61 64 20 74 68 65 20 73  |. Now load the s|
000001b0  70 72 69 74 65 20 64 65  66 69 6e 69 74 69 6f 6e  |prite definition|
000001c0  73 20 74 6f 20 74 68 69  73 20 61 72 65 61 0d 00  |s to this area..|
000001d0  d2 1f c8 99 20 4f 24 2c  32 35 36 2b 31 30 2c 61  |.... O$,256+10,a|
000001e0  72 65 61 25 2c 73 70 72  69 74 65 73 24 0d 00 dc  |rea%,sprites$...|
000001f0  04 0d 00 e6 24 f4 20 5f  5f 5f 5f 5f 53 45 54 20  |....$. _____SET |
00000200  55 50 20 4f 4e 43 45 20  4f 4e 4c 59 5f 5f 5f 5f  |UP ONCE ONLY____|
00000210  5f 5f 5f 5f 5f 0d 00 f0  09 f2 64 69 6d 73 0d 00  |_____.....dims..|
00000220  fa 0c f2 73 70 72 69 74  65 73 0d 01 04 24 f4 20  |...sprites...$. |
00000230  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000240  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 01  |--------------..|
00000250  0e 09 f2 69 6e 69 74 0d  01 18 0b f2 73 63 72 65  |...init.....scre|
00000260  65 6e 0d 01 22 04 0d 01  2c 12 f4 20 2d 2d 4f 55  |en.."...,.. --OU|
00000270  54 45 52 20 4c 4f 4f 50  0d 01 36 05 f5 0d 01 40  |TER LOOP..6....@|
00000280  0a f2 73 74 61 72 74 0d  01 4a 04 0d 01 54 13 f4  |..start..J...T..|
00000290  20 2d 2d 2d 4c 4f 4f 50  2d 2d 2d 2d 2d 2d 0d 01  | ---LOOP------..|
000002a0  5e 05 f5 0d 01 68 14 e7  53 25 28 31 29 3d 31 f2  |^....h..S%(1)=1.|
000002b0  73 70 69 6e 28 31 29 0d  01 72 19 e7 91 3e 32 35  |spin(1)..r...>25|
000002c0  e7 53 25 28 32 29 3d 31  f2 73 70 69 6e 28 32 29  |.S%(2)=1.spin(2)|
000002d0  0d 01 7c 19 e7 91 3e 35  30 e7 53 25 28 33 29 3d  |..|...>50.S%(3)=|
000002e0  31 f2 73 70 69 6e 28 33  29 0d 01 86 1c fd 53 25  |1.spin(3).....S%|
000002f0  28 31 29 3d 30 80 53 25  28 32 29 3d 30 80 53 25  |(1)=0.S%(2)=0.S%|
00000300  28 33 29 3d 30 0d 01 90  20 f1 8a 31 30 2c 32 33  |(3)=0... ..10,23|
00000310  29 89 34 8a 31 38 2c 32  33 29 89 34 8a 32 36 2c  |).4.18,23).4.26,|
00000320  32 33 29 89 34 0d 01 9a  13 f4 20 2d 2d 2d 2d 2d  |23).4..... -----|
00000330  2d 2d 2d 2d 2d 2d 2d 2d  0d 01 a4 0b f2 72 65 73  |--------.....res|
00000340  75 6c 74 0d 01 ae 10 fd  74 6f 74 61 6c 77 69 6e  |ult.....totalwin|
00000350  25 3d 30 0d 01 b8 16 f4  20 2d 2d 2d 2d 2d 2d 2d  |%=0..... -------|
00000360  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 01 c2 05 e0 0d 01  |---------.......|
00000370  cc 04 0d 01 d6 16 f4 20  53 4f 52 54 20 53 50 52  |....... SORT SPR|
00000380  49 54 45 53 20 4f 55 54  0d 01 e0 0d dd f2 73 70  |ITES OUT......sp|
00000390  72 69 74 65 73 0d 01 ea  0b e3 49 25 3d 31 b8 38  |rites.....I%=1.8|
000003a0  0d 01 f4 29 f2 73 65 74  73 70 72 69 74 65 28 22  |...).setsprite("|
000003b0  49 4b 4f 4e 22 2b c3 28  49 25 29 2c 49 25 28 49  |IKON"+.(I%),I%(I|
000003c0  25 29 2c 68 25 2c 77 25  29 0d 01 fe 05 ed 0d 02  |%),h%,w%).......|
000003d0  08 26 f2 73 65 74 73 70  72 69 74 65 28 22 42 41  |.&.setsprite("BA|
000003e0  43 4b 47 52 4f 55 4e 44  22 2c 42 47 25 2c 68 25  |CKGROUND",BG%,h%|
000003f0  2c 77 25 29 0d 02 12 24  f2 73 65 74 73 70 72 69  |,w%)...$.setspri|
00000400  74 65 28 22 43 4f 49 4e  31 22 2c 63 6f 69 6e 31  |te("COIN1",coin1|
00000410  25 2c 68 25 2c 77 25 29  0d 02 1c 22 f2 73 65 74  |%,h%,w%)...".set|
00000420  73 70 72 69 74 65 28 22  53 4c 4f 54 22 2c 73 6c  |sprite("SLOT",sl|
00000430  6f 74 25 2c 68 25 2c 77  25 29 0d 02 26 24 f2 73  |ot%,h%,w%)..&$.s|
00000440  65 74 73 70 72 69 74 65  28 22 53 54 41 43 4b 22  |etsprite("STACK"|
00000450  2c 73 74 61 63 6b 25 2c  68 25 2c 77 25 29 0d 02  |,stack%,h%,w%)..|
00000460  30 04 0d 02 3a 05 e1 0d  02 44 04 0d 02 4e 12 f4  |0...:....D...N..|
00000470  20 49 6e 69 74 20 73 70  72 69 74 65 73 0d 02 58  | Init sprites..X|
00000480  34 dd f2 73 65 74 73 70  72 69 74 65 28 73 74 72  |4..setsprite(str|
00000490  69 6e 67 24 2c f8 20 76  61 6c 75 65 25 2c f8 20  |ing$,. value%,. |
000004a0  77 69 64 74 68 25 2c f8  20 68 65 69 67 68 74 25  |width%,. height%|
000004b0  29 0d 02 62 28 c8 99 20  4f 24 2c 32 35 36 2b 32  |)..b(.. O$,256+2|
000004c0  34 2c 61 72 65 61 25 2c  73 74 72 69 6e 67 24 20  |4,area%,string$ |
000004d0  b8 2c 2c 76 61 6c 75 65  25 0d 02 6c 31 c8 99 20  |.,,value%..l1.. |
000004e0  4f 24 2c 32 35 36 2b 34  30 2c 61 72 65 61 25 2c  |O$,256+40,area%,|
000004f0  73 74 72 69 6e 67 24 20  b8 2c 2c 2c 77 69 64 74  |string$ .,,,widt|
00000500  68 25 2c 68 65 69 67 68  74 25 0d 02 76 05 e1 0d  |h%,height%..v...|
00000510  02 80 04 0d 02 8a 0a f4  20 49 4e 49 54 0d 02 94  |........ INIT...|
00000520  0a dd f2 69 6e 69 74 0d  02 9e 0b 68 6f 6c 64 25  |...init....hold%|
00000530  3d 30 0d 02 a8 11 74 6f  74 61 6c 77 69 6e 25 3d  |=0....totalwin%=|
00000540  31 30 30 0d 02 b2 0b 53  54 58 25 3d 36 34 0d 02  |100....STX%=64..|
00000550  bc 0a 53 54 59 25 3d 38  0d 02 c6 0d 58 25 28 31  |..STY%=8....X%(1|
00000560  29 3d 33 32 30 0d 02 d0  13 58 25 28 32 29 3d 58  |)=320....X%(2)=X|
00000570  25 28 31 29 2b 32 32 34  0d 02 da 13 58 25 28 33  |%(1)+224....X%(3|
00000580  29 3d 58 25 28 32 29 2b  32 32 34 0d 02 e4 0c 59  |)=X%(2)+224....Y|
00000590  25 28 29 3d 35 31 32 0d  02 ee 0a 4e 25 28 29 3d  |%()=512....N%()=|
000005a0  31 0d 02 f8 0a 53 25 28  29 3d 31 0d 03 02 0b e3  |1....S%()=1.....|
000005b0  4a 25 3d 31 b8 33 0d 03  0c 11 e3 49 25 3d 30 b8  |J%=1.3.....I%=0.|
000005c0  61 6d 6f 75 6e 74 25 0d  03 16 0e f3 52 25 28 4a  |amount%.....R%(J|
000005d0  25 2c 49 25 29 0d 03 20  05 ed 0d 03 2a 05 ed 0d  |%,I%).. ....*...|
000005e0  03 34 05 e1 0d 03 3e 0f  f4 20 52 45 45 4c 20 44  |.4....>.. REEL D|
000005f0  41 54 41 0d 03 48 0d 20  f4 20 52 65 65 6c 20 31  |ATA..H. . Reel 1|
00000600  0d 03 52 2c dc 31 2c 32  2c 34 2c 33 2c 31 2c 32  |..R,.1,2,4,3,1,2|
00000610  2c 35 2c 31 2c 36 2c 32  2c 33 2c 37 2c 32 2c 38  |,5,1,6,2,3,7,2,8|
00000620  2c 32 2c 34 2c 33 2c 32  2c 35 2c 33 0d 03 5c 0d  |,2,4,3,2,5,3..\.|
00000630  20 f4 20 52 65 65 6c 20  32 0d 03 66 2c dc 34 2c  | . Reel 2..f,.4,|
00000640  36 2c 37 2c 31 2c 33 2c  38 2c 32 2c 31 2c 35 2c  |6,7,1,3,8,2,1,5,|
00000650  34 2c 32 2c 31 2c 32 2c  34 2c 36 2c 32 2c 31 2c  |4,2,1,2,4,6,2,1,|
00000660  33 2c 32 2c 31 0d 03 70  0d 20 f4 20 52 65 65 6c  |3,2,1..p. . Reel|
00000670  20 33 0d 03 7a 2c dc 31  2c 33 2c 38 2c 32 2c 31  | 3..z,.1,3,8,2,1|
00000680  2c 36 2c 32 2c 33 2c 37  2c 32 2c 35 2c 31 2c 36  |,6,2,3,7,2,5,1,6|
00000690  2c 34 2c 32 2c 31 2c 32  2c 34 2c 35 2c 32 0d 03  |,4,2,1,2,4,5,2..|
000006a0  84 04 0d 03 8e 0c f4 20  53 43 52 45 45 4e 0d 03  |....... SCREEN..|
000006b0  98 0c dd f2 73 63 72 65  65 6e 0d 03 a2 0b 42 58  |....screen....BX|
000006c0  25 3d 32 30 30 0d 03 ac  09 42 59 25 3d 30 0d 03  |%=200....BY%=0..|
000006d0  b6 1a f4 20 2d 2d 2d 20  50 52 4f 43 74 65 6d 70  |... --- PROCtemp|
000006e0  6c 61 74 65 3a 45 4e 44  0d 03 c0 24 c8 99 20 4f  |late:END...$.. O|
000006f0  24 2c 35 31 32 2b 33 34  2c 61 72 65 61 25 2c 42  |$,512+34,area%,B|
00000700  47 25 2c 42 58 25 2c 42  59 25 2c 30 0d 03 ca 07  |G%,BX%,BY%,0....|
00000710  ef 32 36 0d 03 d4 0c e6  30 3a c8 9c 32 2c 30 0d  |.26.....0:..2,0.|
00000720  03 de 24 c8 93 c8 90 32  38 38 2b 33 32 2c 32 38  |..$....288+32,28|
00000730  38 2b 36 34 2c 37 30 30  2d 36 34 2c 36 34 30 2d  |8+64,700-64,640-|
00000740  31 32 38 0d 03 e8 15 f2  73 74 61 63 6b 28 74 6f  |128.....stack(to|
00000750  74 61 6c 77 69 6e 25 29  0d 03 f2 2c ef 32 34 2c  |talwin%)...,.24,|
00000760  32 38 38 2b 33 32 3b 32  38 38 2b 36 34 3b 32 38  |288+32;288+64;28|
00000770  38 2b 37 30 30 2d 33 32  3b 32 38 38 2b 36 34 30  |8+700-32;288+640|
00000780  2d 36 34 3b 0d 03 fc 0b  e3 49 25 3d 31 b8 33 0d  |-64;.....I%=1.3.|
00000790  04 06 37 c8 99 20 4f 24  2c 35 31 32 2b 33 34 2c  |..7.. O$,512+34,|
000007a0  61 72 65 61 25 2c 49 25  28 52 25 28 49 25 2c 32  |area%,I%(R%(I%,2|
000007b0  29 29 2c 58 25 28 49 25  29 2c 59 25 28 49 25 29  |)),X%(I%),Y%(I%)|
000007c0  2b 31 39 32 2c 30 0d 04  10 33 c8 99 20 4f 24 2c  |+192,0...3.. O$,|
000007d0  35 31 32 2b 33 34 2c 61  72 65 61 25 2c 49 25 28  |512+34,area%,I%(|
000007e0  52 25 28 49 25 2c 31 29  29 2c 58 25 28 49 25 29  |R%(I%,1)),X%(I%)|
000007f0  2c 59 25 28 49 25 29 2c  30 0d 04 1a 37 c8 99 20  |,Y%(I%),0...7.. |
00000800  4f 24 2c 35 31 32 2b 33  34 2c 61 72 65 61 25 2c  |O$,512+34,area%,|
00000810  49 25 28 52 25 28 49 25  2c 30 29 29 2c 58 25 28  |I%(R%(I%,0)),X%(|
00000820  49 25 29 2c 59 25 28 49  25 29 2d 31 39 32 2c 30  |I%),Y%(I%)-192,0|
00000830  0d 04 24 05 ed 0d 04 2e  05 e1 0d 04 38 04 0d 04  |..$.........8...|
00000840  42 0b f4 20 53 54 41 52  54 0d 04 4c 0b dd f2 73  |B.. START..L...s|
00000850  74 61 72 74 0d 04 56 0b  68 6f 6c 64 25 3d 30 0d  |tart..V.hold%=0.|
00000860  04 60 0a 53 25 28 29 3d  31 0d 04 6a 15 6c 6f 6f  |.`.S%()=1..j.loo|
00000870  70 73 25 28 31 29 3d b3  28 31 30 29 2b 36 0d 04  |ps%(1)=.(10)+6..|
00000880  74 1c 6c 6f 6f 70 73 25  28 32 29 3d 6c 6f 6f 70  |t.loops%(2)=loop|
00000890  73 25 28 31 29 2b b3 28  36 29 0d 04 7e 1c 6c 6f  |s%(1)+.(6)..~.lo|
000008a0  6f 70 73 25 28 33 29 3d  6c 6f 6f 70 73 25 28 32  |ops%(3)=loops%(2|
000008b0  29 2b b3 28 36 29 0d 04  88 0a 63 25 28 29 3d 31  |)+.(6)....c%()=1|
000008c0  0d 04 92 12 e7 b3 28 33  29 3d 31 68 6f 6c 64 25  |......(3)=1hold%|
000008d0  3d 31 0d 04 9c 20 f1 8a  31 30 2c 32 33 29 89 34  |=1... ..10,23).4|
000008e0  8a 31 38 2c 32 33 29 89  34 8a 32 36 2c 32 33 29  |.18,23).4.26,23)|
000008f0  89 34 0d 04 a6 37 e7 68  6f 6c 64 25 3d 31 fb 37  |.4...7.hold%=1.7|
00000900  3a f1 8a 31 30 2c 32 33  29 22 48 4f 4c 44 22 8a  |:..10,23)"HOLD".|
00000910  31 38 2c 32 33 29 22 48  4f 4c 44 22 8a 32 36 2c  |18,23)"HOLD".26,|
00000920  32 33 29 22 48 4f 4c 44  22 0d 04 b0 05 f5 0d 04  |23)"HOLD".......|
00000930  ba 0a c8 99 36 2c 31 35  0d 04 c4 11 e7 68 6f 6c  |....6,15.....hol|
00000940  64 25 3d 31 f2 68 6f 6c  64 0d 04 ce 09 fd a5 3d  |d%=1.hold......=|
00000950  33 32 0d 04 d8 11 74 6f  74 61 6c 77 69 6e 25 2d  |32....totalwin%-|
00000960  3d 31 30 0d 04 e2 0c 53  54 59 25 2d 3d 33 32 0d  |=10....STY%-=32.|
00000970  04 ec 07 ef 32 36 0d 04  f6 0c e6 30 3a c8 9c 32  |....26.....0:..2|
00000980  2c 30 0d 05 00 18 c8 93  c8 90 53 54 58 25 2c 53  |,0........STX%,S|
00000990  54 59 25 2c 31 32 38 2c  33 32 0d 05 0a 2c ef 32  |TY%,128,32...,.2|
000009a0  34 2c 32 38 38 2b 33 32  3b 32 38 38 2b 36 34 3b  |4,288+32;288+64;|
000009b0  32 38 38 2b 37 30 30 2d  33 32 3b 32 38 38 2b 36  |288+700-32;288+6|
000009c0  34 30 2d 36 34 3b 0d 05  14 07 d1 3d 30 0d 05 1e  |40-64;.....=0...|
000009d0  10 e7 53 25 28 31 29 3d  30 91 3d 32 36 0d 05 28  |..S%(1)=0.=26..(|
000009e0  10 e7 53 25 28 32 29 3d  30 91 3d 35 31 0d 05 32  |..S%(2)=0.=51..2|
000009f0  05 e1 0d 05 3c 04 0d 05  46 0a f4 20 44 49 4d 53  |....<...F.. DIMS|
00000a00  0d 05 50 0a dd f2 64 69  6d 73 0d 05 5a 10 de 58  |..P...dims..Z..X|
00000a10  25 28 33 29 2c 59 25 28  33 29 0d 05 64 0e 61 6d  |%(3),Y%(3)..d.am|
00000a20  6f 75 6e 74 25 3d 32 30  0d 05 6e 1d 61 6d 6f 75  |ount%=20..n.amou|
00000a30  6e 74 25 2d 3d 31 3a de  52 25 28 33 2c 61 6d 6f  |nt%-=1:.R%(3,amo|
00000a40  75 6e 74 25 29 0d 05 78  0a de 49 25 28 38 29 0d  |unt%)..x..I%(8).|
00000a50  05 82 0a de 53 25 28 33  29 0d 05 8c 0a de 4e 25  |....S%(3).....N%|
00000a60  28 33 29 0d 05 96 14 de  6c 6f 6f 70 73 25 28 33  |(3).....loops%(3|
00000a70  29 2c 63 25 28 33 29 0d  05 a0 05 e1 0d 05 aa 04  |),c%(3).........|
00000a80  0d 05 b4 10 f4 20 53 50  49 4e 20 52 45 45 4c 53  |..... SPIN REELS|
00000a90  0d 05 be 0e dd f2 73 70  69 6e 28 72 25 29 0d 05  |......spin(r%)..|
00000aa0  c8 0e 59 25 28 72 25 29  2d 3d 33 32 0d 05 d2 48  |..Y%(r%)-=32...H|
00000ab0  c8 99 20 4f 24 2c 35 31  32 2b 33 34 2c 61 72 65  |.. O$,512+34,are|
00000ac0  61 25 2c 49 25 28 52 25  28 72 25 2c 28 4e 25 28  |a%,I%(R%(r%,(N%(|
00000ad0  72 25 29 2b 32 29 83 61  6d 6f 75 6e 74 25 29 29  |r%)+2).amount%))|
00000ae0  2c 58 25 28 72 25 29 2c  59 25 28 72 25 29 2b 33  |,X%(r%),Y%(r%)+3|
00000af0  38 34 2c 30 0d 05 dc 48  c8 99 20 4f 24 2c 35 31  |84,0...H.. O$,51|
00000b00  32 2b 33 34 2c 61 72 65  61 25 2c 49 25 28 52 25  |2+34,area%,I%(R%|
00000b10  28 72 25 2c 28 4e 25 28  72 25 29 2b 31 29 83 61  |(r%,(N%(r%)+1).a|
00000b20  6d 6f 75 6e 74 25 29 29  2c 58 25 28 72 25 29 2c  |mount%)),X%(r%),|
00000b30  59 25 28 72 25 29 2b 31  39 32 2c 30 0d 05 e6 38  |Y%(r%)+192,0...8|
00000b40  c8 99 20 4f 24 2c 35 31  32 2b 33 34 2c 61 72 65  |.. O$,512+34,are|
00000b50  61 25 2c 49 25 28 52 25  28 72 25 2c 4e 25 28 72  |a%,I%(R%(r%,N%(r|
00000b60  25 29 29 29 2c 58 25 28  72 25 29 2c 59 25 28 72  |%))),X%(r%),Y%(r|
00000b70  25 29 2c 30 0d 05 f0 49  c8 99 20 4f 24 2c 35 31  |%),0...I.. O$,51|
00000b80  32 2b 33 34 2c 61 72 65  61 25 2c 49 25 28 52 25  |2+34,area%,I%(R%|
00000b90  28 72 25 2c 28 4e 25 28  72 25 29 2b 31 39 29 83  |(r%,(N%(r%)+19).|
00000ba0  61 6d 6f 75 6e 74 25 29  29 2c 58 25 28 72 25 29  |amount%)),X%(r%)|
00000bb0  2c 59 25 28 72 25 29 2d  31 39 32 2c 30 0d 05 fa  |,Y%(r%)-192,0...|
00000bc0  58 e7 59 25 28 72 25 29  3d 33 32 30 59 25 28 72  |X.Y%(r%)=320Y%(r|
00000bd0  25 29 3d 35 31 32 3a 4e  25 28 72 25 29 3d 28 4e  |%)=512:N%(r%)=(N|
00000be0  25 28 72 25 29 2b 31 29  83 61 6d 6f 75 6e 74 25  |%(r%)+1).amount%|
00000bf0  3a 63 25 28 72 25 29 2b  3d 31 3a e7 63 25 28 72  |:c%(r%)+=1:.c%(r|
00000c00  25 29 3d 6c 6f 6f 70 73  25 28 72 25 29 53 25 28  |%)=loops%(r%)S%(|
00000c10  72 25 29 3d 30 0d 06 04  05 e1 0d 06 0e 0c f4 20  |r%)=0.......... |
00000c20  52 45 53 55 4c 54 0d 06  18 0c dd f2 72 65 73 75  |RESULT......resu|
00000c30  6c 74 0d 06 22 0a 77 69  6e 25 3d 30 0d 06 2c 16  |lt..".win%=0..,.|
00000c40  66 72 75 69 74 25 3d 52  25 28 31 2c 4e 25 28 31  |fruit%=R%(1,N%(1|
00000c50  29 29 0d 06 36 43 e7 52  25 28 31 2c 4e 25 28 31  |))..6C.R%(1,N%(1|
00000c60  29 29 3d 52 25 28 32 2c  4e 25 28 32 29 29 3a e7  |))=R%(2,N%(2)):.|
00000c70  52 25 28 32 2c 4e 25 28  32 29 29 3d 52 25 28 33  |R%(2,N%(2))=R%(3|
00000c80  2c 4e 25 28 33 29 29 f2  77 69 6e 28 66 72 75 69  |,N%(3)).win(frui|
00000c90  74 25 2c 33 29 0d 06 40  43 e7 52 25 28 31 2c 4e  |t%,3)..@C.R%(1,N|
00000ca0  25 28 31 29 29 3d 52 25  28 32 2c 4e 25 28 32 29  |%(1))=R%(2,N%(2)|
00000cb0  29 80 52 25 28 33 2c 4e  25 28 33 29 29 3c 3e 52  |).R%(3,N%(3))<>R|
00000cc0  25 28 32 2c 4e 25 28 32  29 29 f2 77 69 6e 28 66  |%(2,N%(2)).win(f|
00000cd0  72 75 69 74 25 2c 32 29  0d 06 4a 05 e1 0d 06 54  |ruit%,2)..J....T|
00000ce0  04 0d 06 5e 09 f4 20 57  49 4e 0d 06 68 10 dd f2  |...^.. WIN..h...|
00000cf0  77 69 6e 28 66 25 2c 78  25 29 0d 06 72 06 ef 37  |win(f%,x%)..r..7|
00000d00  0d 06 7c 0b e7 78 25 3d  32 20 8c 0d 06 86 0c 20  |..|..x%=2 ..... |
00000d10  77 69 6e 25 3d 32 30 0d  06 90 14 20 74 6f 74 61  |win%=20.... tota|
00000d20  6c 77 69 6e 25 2b 3d 77  69 6e 25 0d 06 9a 14 f2  |lwin%+=win%.....|
00000d30  64 72 6f 70 63 6f 69 6e  73 28 77 69 6e 25 29 0d  |dropcoins(win%).|
00000d40  06 a4 06 20 e1 0d 06 ae  05 cd 0d 06 b8 04 0d 06  |... ............|
00000d50  c2 0b c8 8e 20 66 25 20  ca 0d 06 cc 10 20 c9 20  |.... f% ..... . |
00000d60  31 3a 77 69 6e 25 3d 33  30 0d 06 d6 10 20 c9 20  |1:win%=30.... . |
00000d70  32 3a 77 69 6e 25 3d 34  30 0d 06 e0 10 20 c9 20  |2:win%=40.... . |
00000d80  33 3a 77 69 6e 25 3d 38  30 0d 06 ea 11 20 c9 20  |3:win%=80.... . |
00000d90  34 3a 77 69 6e 25 3d 31  30 30 0d 06 f4 11 20 c9  |4:win%=100.... .|
00000da0  20 35 3a 77 69 6e 25 3d  31 35 30 0d 06 fe 11 20  | 5:win%=150.... |
00000db0  c9 20 36 3a 77 69 6e 25  3d 31 38 30 0d 07 08 11  |. 6:win%=180....|
00000dc0  20 c9 20 37 3a 77 69 6e  25 3d 32 30 30 0d 07 12  | . 7:win%=200...|
00000dd0  11 20 c9 20 38 3a 77 69  6e 25 3d 33 30 30 0d 07  |. . 8:win%=300..|
00000de0  1c 05 cb 0d 07 26 14 f2  64 72 6f 70 63 6f 69 6e  |.....&..dropcoin|
00000df0  73 28 77 69 6e 25 29 0d  07 30 13 74 6f 74 61 6c  |s(win%)..0.total|
00000e00  77 69 6e 25 2b 3d 77 69  6e 25 0d 07 3a 05 e1 0d  |win%+=win%..:...|
00000e10  07 44 0a f4 20 48 4f 4c  44 0d 07 4e 0a dd f2 68  |.D.. HOLD..N...h|
00000e20  6f 6c 64 0d 07 58 2c e7  a6 2d 34 39 80 53 25 28  |old..X,..-49.S%(|
00000e30  31 29 3d 30 53 25 28 31  29 3d 31 3a fb 37 3a f1  |1)=0S%(1)=1:.7:.|
00000e40  8a 31 30 2c 32 33 29 22  48 4f 4c 44 22 3a e1 0d  |.10,23)"HOLD":..|
00000e50  07 62 2b e7 a6 2d 34 39  80 53 25 28 31 29 3d 31  |.b+..-49.S%(1)=1|
00000e60  53 25 28 31 29 3d 30 3a  fb 31 33 3a f1 8a 31 30  |S%(1)=0:.13:..10|
00000e70  2c 32 33 29 22 48 4f 4c  44 22 0d 07 6c 2c e7 a6  |,23)"HOLD"..l,..|
00000e80  2d 35 30 80 53 25 28 32  29 3d 30 53 25 28 32 29  |-50.S%(2)=0S%(2)|
00000e90  3d 31 3a fb 37 3a f1 8a  31 38 2c 32 33 29 22 48  |=1:.7:..18,23)"H|
00000ea0  4f 4c 44 22 3a e1 0d 07  76 2b e7 a6 2d 35 30 80  |OLD":...v+..-50.|
00000eb0  53 25 28 32 29 3d 31 53  25 28 32 29 3d 30 3a fb  |S%(2)=1S%(2)=0:.|
00000ec0  31 33 3a f1 8a 31 38 2c  32 33 29 22 48 4f 4c 44  |13:..18,23)"HOLD|
00000ed0  22 0d 07 80 2c e7 a6 2d  31 38 80 53 25 28 33 29  |"...,..-18.S%(3)|
00000ee0  3d 30 53 25 28 33 29 3d  31 3a fb 37 3a f1 8a 32  |=0S%(3)=1:.7:..2|
00000ef0  36 2c 32 33 29 22 48 4f  4c 44 22 3a e1 0d 07 8a  |6,23)"HOLD":....|
00000f00  2b e7 a6 2d 31 38 80 53  25 28 33 29 3d 31 53 25  |+..-18.S%(3)=1S%|
00000f10  28 33 29 3d 30 3a fb 31  33 3a f1 8a 32 36 2c 32  |(3)=0:.13:..26,2|
00000f20  33 29 22 48 4f 4c 44 22  0d 07 94 05 e1 0d 07 9e  |3)"HOLD"........|
00000f30  04 0d 07 a8 10 f4 20 44  52 4f 50 20 43 4f 49 4e  |...... DROP COIN|
00000f40  53 0d 07 b2 15 dd f2 64  72 6f 70 63 6f 69 6e 73  |S......dropcoins|
00000f50  28 77 6f 77 25 29 0d 07  bc 10 77 6f 77 25 3d 77  |(wow%)....wow%=w|
00000f60  6f 77 25 2f 31 30 0d 07  c6 16 ef 32 34 2c 35 34  |ow%/10.....24,54|
00000f70  38 3b 30 3b 37 33 32 3b  31 36 30 3b 0d 07 d0 0b  |8;0;732;160;....|
00000f80  53 58 25 3d 35 33 32 0d  07 da 09 53 59 25 3d 30  |SX%=532....SY%=0|
00000f90  0d 07 e4 0b 43 58 25 3d  35 38 30 0d 07 ee 04 0d  |....CX%=580.....|
00000fa0  07 f8 0e e3 49 25 3d 31  b8 77 6f 77 25 0d 08 02  |....I%=1.wow%...|
00000fb0  0b 43 59 25 3d 31 36 30  0d 08 0c 05 f5 0d 08 16  |.CY%=160........|
00000fc0  26 c8 99 20 4f 24 2c 35  31 32 2b 33 34 2c 61 72  |&.. O$,512+34,ar|
00000fd0  65 61 25 2c 73 6c 6f 74  25 2c 53 58 25 2c 53 59  |ea%,slot%,SX%,SY|
00000fe0  25 2c 30 0d 08 20 27 c8  99 20 4f 24 2c 35 31 32  |%,0.. '.. O$,512|
00000ff0  2b 33 34 2c 61 72 65 61  25 2c 63 6f 69 6e 31 25  |+34,area%,coin1%|
00001000  2c 43 58 25 2c 43 59 25  2c 38 0d 08 2a 06 c8 96  |,CX%,CY%,8..*...|
00001010  0d 08 34 0b 43 59 25 2d  3d 31 32 0d 08 3e 0d fd  |..4.CY%-=12..>..|
00001020  43 59 25 3c 2d 31 34 30  0d 08 48 05 ed 0d 08 52  |CY%<-140..H....R|
00001030  07 ef 32 36 0d 08 5c 10  f2 73 74 61 63 6b 28 77  |..26..\..stack(w|
00001040  69 6e 25 29 0d 08 66 2c  ef 32 34 2c 32 38 38 2b  |in%)..f,.24,288+|
00001050  33 32 3b 32 38 38 2b 36  34 3b 32 38 38 2b 37 30  |32;288+64;288+70|
00001060  30 2d 33 32 3b 32 38 38  2b 36 34 30 2d 36 34 3b  |0-32;288+640-64;|
00001070  0d 08 70 05 e1 0d 08 7a  04 0d 08 84 14 f4 20 53  |..p....z...... S|
00001080  54 41 43 4b 20 4f 46 20  43 4f 49 4e 53 0d 08 8e  |TACK OF COINS...|
00001090  0f dd f2 73 74 61 63 6b  28 48 25 29 0d 08 98 0c  |...stack(H%)....|
000010a0  48 25 3d 48 25 2f 31 30  0d 08 a2 0c e3 49 25 3d  |H%=H%/10.....I%=|
000010b0  31 b8 48 25 0d 08 ac 29  c8 99 20 4f 24 2c 35 31  |1.H%...).. O$,51|
000010c0  32 2b 33 34 2c 61 72 65  61 25 2c 73 74 61 63 6b  |2+34,area%,stack|
000010d0  25 2c 53 54 58 25 2c 53  54 59 25 2c 30 0d 08 b6  |%,STX%,STY%,0...|
000010e0  0c 53 54 59 25 2b 3d 33  32 0d 08 c0 05 ed 0d 08  |.STY%+=32.......|
000010f0  ca 05 e1 0d 08 d4 0e f4  20 54 45 4d 50 4c 41 54  |........ TEMPLAT|
00001100  45 0d 08 de 0e dd f2 74  65 6d 70 6c 61 74 65 0d  |E......template.|
00001110  08 e8 07 e6 31 32 0d 08  f2 18 c8 93 c8 90 42 58  |....12........BX|
00001120  25 2c 42 59 25 2c 39 39  36 2c 31 30 32 30 0d 08  |%,BY%,996,1020..|
00001130  fc 06 e6 34 0d 09 06 18  c8 93 c8 90 42 58 25 2c  |...4........BX%,|
00001140  42 59 25 2c 38 37 32 2c  31 30 32 30 0d 09 10 06  |BY%,872,1020....|
00001150  e6 37 0d 09 1a 1f c8 93  c8 90 42 58 25 2b 31 32  |.7........BX%+12|
00001160  30 2c 42 59 25 2b 33 35  32 2c 36 33 36 2c 35 31  |0,BY%+352,636,51|
00001170  32 0d 09 24 07 e6 32 31  0d 09 2e 1e c8 93 c8 90  |2..$..21........|
00001180  42 58 25 2b 33 33 32 2c  42 59 25 2b 34 38 2c 32  |BX%+332,BY%+48,2|
00001190  31 32 2c 31 33 36 0d 09  38 07 e6 31 35 0d 09 42  |12,136..8..15..B|
000011a0  1a c8 93 c8 90 42 58 25  2b 33 33 32 2c 42 59 25  |.....BX%+332,BY%|
000011b0  2c 32 31 32 2c 34 38 0d  09 4c 07 e6 31 39 0d 09  |,212,48..L..19..|
000011c0  56 1e c8 93 c8 90 42 58  25 2b 31 30 34 2c 42 59  |V.....BX%+104,BY|
000011d0  25 2b 32 34 30 2c 31 35  36 2c 36 34 0d 09 60 22  |%+240,156,64..`"|
000011e0  c8 93 c8 90 42 58 25 2b  31 30 34 2b 32 35 36 2c  |....BX%+104+256,|
000011f0  42 59 25 2b 32 34 30 2c  31 35 36 2c 36 34 0d 09  |BY%+240,156,64..|
00001200  6a 22 c8 93 c8 90 42 58  25 2b 31 30 34 2b 35 31  |j"....BX%+104+51|
00001210  32 2c 42 59 25 2b 32 34  30 2c 31 35 36 2c 36 34  |2,BY%+240,156,64|
00001220  0d 09 74 1d ef 32 34 2c  42 58 25 3b 42 59 25 3b  |..t..24,BX%;BY%;|
00001230  39 39 36 2b 42 58 25 3b  31 30 32 30 3b 0d 09 7e  |996+BX%;1020;..~|
00001240  23 2a 53 43 52 45 45 4e  53 41 56 45 20 3c 4d 41  |#*SCREENSAVE <MA|
00001250  47 73 24 44 69 72 3e 2e  54 45 4d 50 4c 41 54 45  |Gs$Dir>.TEMPLATE|
00001260  0d 09 88 05 e1 0d ff                              |.......|
00001267