Home » Personal collection » Acorn hard disk » misc » dcfprogs » Bounce/Bounce

Bounce/Bounce

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 hard disk » misc » dcfprogs
Filename: Bounce/Bounce
Read OK:
File size: 0DB7 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM Bounce
   20REM by Dominic Ford 1996
   30:
   40DIM x(4),y(4),dir(4)
   50VDU 23,128,0,189,219,231,231,219,189,0
   60VDU 23,129,255,255,255,255,255,255,255,255
   70VDU 23,130,195,129,0,0,0,0,129,195
   80VDU 23,131,0,126,126,126,126,126,126,0
   90sound=TRUE
  100:
  110MODE 1
  120REPEAT
  130PROCtitle
  140VDU 19,1,1,0,0,0,0
  150VDU 19,2,2,0,0,0,0
  160IF o$=" " THEN PROCgame
  170UNTIL o$="Q" OR o$="q"
  180END
  190:
  200DEFPROCgame
  210lev%=0:scr%=0:live%=3:mon%=150
  220RESTORE
  230REPEAT
  240MODE 1:HIMEM=HIMEM-&400
  250PROClevel
  260IF live%=-1 THEN lev%=21
  270UNTIL lev%=21
  280IF live%=-1 THEN PROC gameover:ENDPROC
  290PROCcongrat
  300ENDPROC
  310:
  320DEFPROClevel
  330VDU 23,1,0;0;0;0;
  340CLS
  350COLOUR 3:PRINTTAB(9,16)"Get Ready for Level ";lev%+1;"!"
  360FORc=0 TO 5
  370FORcol=0 TO 7:IF sound=TRUE THEN SOUND 1,-15,c*4+col*8+100,1
  380VDU 19,3,col,0,0,0
  390nt=TIME+4
  400REPEAT UNTIL TIME>nt
  410NEXT,:CLS
  420REPEAT
  430VDU 19,3,2,0,0,0
  440GCOL 0,1:MOVE 0,128:MOVE 1280,128
  450PLOT 85,0,1024:PLOT 85,1280,1024
  460tim%=200:lev%=lev%+1:mon%=mon%+50:cx%=0:cy%=0
  470PRINTTAB(0,0)CHR$131
  480FORx=0TO39:FORy=0TO28
  490?(&2C00+x+y*40)=0
  500NEXT
  510RESTORE
  520REPEAT
  530READ x,y
  540UNTIL x=-2 AND y=lev%
  550READ l:COLOUR 1
  560FOR point=0 TO l
  570READ x,y:PRINTTAB(x,y)CHR$128
  580?(&2C00+x+y*40)=1
  590NEXT
  600FORbn=0TO1
  610READ x(bn),y(bn)
  620dir(bn)=0
  630NEXT
  640COLOUR 3
  650PRINTTAB(0,29)" Score   Lives   Screen   Time   Money"
  660REPEAT
  670nt%=TIME+25
  680COLOUR 3
  690PRINTTAB(2,30);scr%;TAB(11,30)live%;TAB(19,30)lev%;
  700PRINTTAB(27,30);tim%;" ";TAB(34,30);mon%;
  710COLOUR 1
  720PROCballs
  730PROCcursor
  740tim%=tim%-1
  750REPEAT UNTIL TIME>nt%
  760UNTIL tim%=-1 OR (x(0)=x(1) AND y(0)=y(1))
  770IF tim%<>-1 THEN UNTIL TRUE:PROClevelfin:ENDPROC
  780live%=live%-1
  790IF live%=-1 THEN UNTIL TRUE:ENDPROC
  800CLS:COLOUR 3:PRINTTAB(15,16);"Time Out!"
  810FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,-15,0,7
  820FORcol=0 TO 7
  830VDU 19,3,col,0,0,0
  840nt=TIME+4
  850REPEAT UNTIL TIME>nt
  860NEXT,:CLS:lev%=lev%-1
  870UNTIL FALSE
  880ENDPROC
  890:
  900DEFPROClevelfin
  910CLS:COLOUR 3
  920PRINTTAB(4,16);"Congratulations: Level Complete"
  930FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,-15,4+c*48,10
  940FORcol=0 TO 7
  950VDU 19,3,col,0,0,0
  960nt=TIME+4
  970REPEAT UNTIL TIME>nt
  980NEXT,:CLS
  990ENDPROC
 1000:
 1010DEFPROCgameover
 1020CLS:COLOUR 3
 1030PRINTTAB(9,16)"That's it: Game Over!"
 1040FORc=0 TO 5
 1050FORcol=0 TO 7:IF sound=TRUE THEN SOUND 1,-15,150-(c*4+col*8),1
 1060VDU 19,3,col,0,0,0
 1070nt=TIME+4
 1080REPEAT UNTIL TIME>nt
 1090NEXT,:CLS
 1100ENDPROC
 1110:
 1120DEFPROCcongrat
 1130CLS:COLOUR 3
 1140FORx=0 TO 5
 1150PRINTTAB(4,16);"Congratulations: Game Complete!"
 1160FORc=0 TO 5:IF sound=TRUE THEN SOUND 1,-15,4+c*48,10
 1170FORcol=0 TO 7
 1180VDU 19,3,col,0,0,0
 1190nt=TIME+4
 1200REPEAT UNTIL TIME>nt
 1210NEXT,,:CLS
 1220ENDPROC
 1230:
 1240DEFPROCballs
 1250FORbn=0TO1:s=TRUE
 1260IF x(bn)<>cx% OR y(bn)<>cy% THEN PRINTTAB(x(bn),y(bn))CHR$129
 1270IFy(bn)<>28AND?(&2C28+x(bn)+y(bn)*40)=0ANDs=TRUE THENy(bn)=y(bn)+1:s=FALSE
 1280IFdir(bn)=0AND?(&2BFF+x(bn)+y(bn)*40)=0ANDs=TRUE THENx(bn)=x(bn)-1:s=FALSE
 1290IFdir(bn)=1AND?(&2C01+x(bn)+y(bn)*40)=0ANDs=TRUE THENx(bn)=x(bn)+1:s=FALSE
 1300IFs=TRUE THEN dir(bn)=dir(bn) EOR 1
 1310IF x(bn)<>cx% OR y(bn)<>cy% THEN PRINTTAB(x(bn),y(bn))CHR$130
 1320NEXT
 1330ENDPROC
 1340:
 1350DEFPROCcursor
 1360COLOUR 1
 1370IF ?(&2C00+cx%+cy%*40)=0 THEN PRINTTAB(cx%,cy%)CHR$129 ELSE PRINTTAB(cx%,cy%)CHR$128
 1380IF INKEY(-98) AND cx%>0 THEN cx%=cx%-1
 1390IF INKEY(-67) AND cx%<39 THEN cx%=cx%+1
 1400IF INKEY(-71) AND cy%>0 THEN cy%=cy%-1
 1410IF INKEY(-102) AND cy%<19 THEN cy%=cy%+1
 1420IF INKEY(-87) AND mon%>50 THEN ?(&2C00+cx%+cy%*40)=1:mon%=mon%-50
 1430IF INKEY(-99) AND mon%>25 THEN ?(&2C00+cx%+cy%*40)=0:mon%=mon%-25
 1440PRINTTAB(cx%,cy%)CHR$131
 1450ENDPROC
 1460:
 1470DEFPROCtitle
 1480col=0
 1490FORx=-350 TO 400 STEP 50
 1500FORy=18 TO 180 STEP 18
 1510col=(col MOD 3)+1:GCOL 0,col
 1520MOVE 480*SIN(PI*(x-50)*.225/180)*SIN(PI*y/180)+640,60+y*5
 1530MOVE 480*SIN(PI*x*.225/180)*SIN(PI*y/180)+640,60+y*5
 1540PLOT 85,480*SIN(PI*(x-50)*.225/180)*SIN(PI*(y-18)/180)+640,60+(y-18)*5
 1550PLOT 85,480*SIN(PI*x*.225/180)*SIN(PI*(y-18)/180)+640,60+(y-18)*5
 1560NEXT,
 1570GCOL 0,0:VDU 5
 1580MOVE544,896:PRINT"BOUNCE":MOVE400,768:PRINT"by Dominic Ford"
 1590VDU 4
 1600REPEAT
 1610nt=TIME+10:col=((col+1) MOD 3)
 1620VDU 19,1,col+4,0,0,0,0
 1630VDU 19,2,((col+1) MOD 3)+4,0,0,0,0
 1640VDU 19,3,((col+2) MOD 3)+4,0,0,0,0
 1650REPEAT UNTIL TIME>nt
 1660UNTIL FALSE
 1670ENDPROC
 1680:
 1690REM Level Data
 1700DATA -2,1,18,2,2,3,3,4,3,5,3,6,3,7,3,8,3,8,8,9,9,10,9,11,9,12,9,13,9
 1710DATA 14,9,15,9,16,9,17,8,18,9,19,8,8,0,19,0
 1720DATA -2,2

� Bounce
� by Dominic Ford 1996
:
(� x(4),y(4),dir(4)
2(� 23,128,0,189,219,231,231,219,189,0
<,� 23,129,255,255,255,255,255,255,255,255
F$� 23,130,195,129,0,0,0,0,129,195
P(� 23,131,0,126,126,126,126,126,126,0
Zsound=�
d:
n� 1
x�
�
�title
�� 19,1,1,0,0,0,0
�� 19,2,2,0,0,0,0
�� o$=" " � �game
�� o$="Q" � o$="q"
��
�:
�
��game
�"lev%=0:scr%=0:live%=3:mon%=150
��
��
�� 1:�=�-&400
�
�level
� live%=-1 � lev%=21

� lev%=21
� live%=-1 � � gameover:�
"�congrat
,�
6:
@��level
J� 23,1,0;0;0;0;
T�
^0� 3:�9,16)"Get Ready for Level ";lev%+1;"!"
h�c=0 � 5
r2�col=0 � 7:� sound=� � � 1,-15,c*4+col*8+100,1
|� 19,3,col,0,0,0
�
nt=�+4
�� � �>nt
��,:�
��
�� 19,3,2,0,0,0
�� 0,1:� 0,128:� 1280,128
�� 85,0,1024:� 85,1280,1024
�1tim%=200:lev%=lev%+1:mon%=mon%+50:cx%=0:cy%=0
��0,0)�131
��x=0�39:�y=0�28
�?(&2C00+x+y*40)=0
��
��
�
	� x,y
� x=-2 � y=lev%
&� l:� 1
0� point=0 � l
:� x,y:�x,y)�128
D?(&2C00+x+y*40)=1
N�
X�bn=0�1
b� x(bn),y(bn)
l
dir(bn)=0
v�
�� 3
�3�0,29)" Score   Lives   Screen   Time   Money"
��
�nt%=�+25
�� 3
�*�2,30);scr%;�11,30)live%;�19,30)lev%;
�#�27,30);tim%;" ";�34,30);mon%;
�� 1
�
�balls
��cursor
�tim%=tim%-1
�
� � �>nt%
�'� tim%=-1 � (x(0)=x(1) � y(0)=y(1))
 � tim%<>-1 � � �:�levelfin:�
live%=live%-1
� live%=-1 � � �:�
 �:� 3:�15,16);"Time Out!"
*$�c=0 � 5:� sound=� � � 1,-15,0,7
4�col=0 � 7
>� 19,3,col,0,0,0
H
nt=�+4
R� � �>nt
\�,:�:lev%=lev%-1
f� �
p�
z:
���levelfin
�	�:� 3
�-�4,16);"Congratulations: Level Complete"
�*�c=0 � 5:� sound=� � � 1,-15,4+c*48,10
��col=0 � 7
�� 19,3,col,0,0,0
�
nt=�+4
�� � �>nt
��,:�
��
�:
���gameover
�	�:� 3
"�9,16)"That's it: Game Over!"
�c=0 � 5
4�col=0 � 7:� sound=� � � 1,-15,150-(c*4+col*8),1
$� 19,3,col,0,0,0
.
nt=�+4
8� � �>nt
B�,:�
L�
V:
`
��congrat
j	�:� 3
t�x=0 � 5
~-�4,16);"Congratulations: Game Complete!"
�*�c=0 � 5:� sound=� � � 1,-15,4+c*48,10
��col=0 � 7
�� 19,3,col,0,0,0
�
nt=�+4
�� � �>nt
�	�,,:�
��
�:
���balls
��bn=0�1:s=�
�2� x(bn)<>cx% � y(bn)<>cy% � �x(bn),y(bn))�129
�?�y(bn)<>28�?(&2C28+x(bn)+y(bn)*40)=0�s=� �y(bn)=y(bn)+1:s=�
?�dir(bn)=0�?(&2BFF+x(bn)+y(bn)*40)=0�s=� �x(bn)=x(bn)-1:s=�

?�dir(bn)=1�?(&2C01+x(bn)+y(bn)*40)=0�s=� �x(bn)=x(bn)+1:s=�
�s=� � dir(bn)=dir(bn) � 1
2� x(bn)<>cx% � y(bn)<>cy% � �x(bn),y(bn))�130
(�
2�
<:
F��cursor
P� 1
Z=� ?(&2C00+cx%+cy%*40)=0 � �cx%,cy%)�129 � �cx%,cy%)�128
d � �(-98) � cx%>0 � cx%=cx%-1
n!� �(-67) � cx%<39 � cx%=cx%+1
x � �(-71) � cy%>0 � cy%=cy%-1
�"� �(-102) � cy%<19 � cy%=cy%+1
�;� �(-87) � mon%>50 � ?(&2C00+cx%+cy%*40)=1:mon%=mon%-50
�;� �(-99) � mon%>25 � ?(&2C00+cx%+cy%*40)=0:mon%=mon%-25
��cx%,cy%)�131
��
�:
���title
�	col=0
��x=-350 � 400 � 50
��y=18 � 180 � 18
�col=(col � 3)+1:� 0,col
�4� 480*�(�*(x-50)*.225/180)*�(�*y/180)+640,60+y*5
�/� 480*�(�*x*.225/180)*�(�*y/180)+640,60+y*5
A� 85,480*�(�*(x-50)*.225/180)*�(�*(y-18)/180)+640,60+(y-18)*5
<� 85,480*�(�*x*.225/180)*�(�*(y-18)/180)+640,60+(y-18)*5
�,
"
� 0,0:� 5
,2�544,896:�"BOUNCE":�400,768:�"by Dominic Ford"
6� 4
@�
Jnt=�+10:col=((col+1) � 3)
T� 19,1,col+4,0,0,0,0
^"� 19,2,((col+1) � 3)+4,0,0,0,0
h"� 19,3,((col+2) � 3)+4,0,0,0,0
r� � �>nt
|� �
��
�:
�� Level Data
�E� -2,1,18,2,2,3,3,4,3,5,3,6,3,7,3,8,3,8,8,9,9,10,9,11,9,12,9,13,9
�,� 14,9,15,9,16,9,17,8,18,9,19,8,8,0,19,0
�
� -2,2
�
00000000  0d 00 0a 0c f4 20 42 6f  75 6e 63 65 0d 00 14 1a  |..... Bounce....|
00000010  f4 20 62 79 20 44 6f 6d  69 6e 69 63 20 46 6f 72  |. by Dominic For|
00000020  64 20 31 39 39 36 0d 00  1e 05 3a 0d 00 28 16 de  |d 1996....:..(..|
00000030  20 78 28 34 29 2c 79 28  34 29 2c 64 69 72 28 34  | x(4),y(4),dir(4|
00000040  29 0d 00 32 28 ef 20 32  33 2c 31 32 38 2c 30 2c  |)..2(. 23,128,0,|
00000050  31 38 39 2c 32 31 39 2c  32 33 31 2c 32 33 31 2c  |189,219,231,231,|
00000060  32 31 39 2c 31 38 39 2c  30 0d 00 3c 2c ef 20 32  |219,189,0..<,. 2|
00000070  33 2c 31 32 39 2c 32 35  35 2c 32 35 35 2c 32 35  |3,129,255,255,25|
00000080  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00000090  35 2c 32 35 35 0d 00 46  24 ef 20 32 33 2c 31 33  |5,255..F$. 23,13|
000000a0  30 2c 31 39 35 2c 31 32  39 2c 30 2c 30 2c 30 2c  |0,195,129,0,0,0,|
000000b0  30 2c 31 32 39 2c 31 39  35 0d 00 50 28 ef 20 32  |0,129,195..P(. 2|
000000c0  33 2c 31 33 31 2c 30 2c  31 32 36 2c 31 32 36 2c  |3,131,0,126,126,|
000000d0  31 32 36 2c 31 32 36 2c  31 32 36 2c 31 32 36 2c  |126,126,126,126,|
000000e0  30 0d 00 5a 0b 73 6f 75  6e 64 3d b9 0d 00 64 05  |0..Z.sound=...d.|
000000f0  3a 0d 00 6e 07 eb 20 31  0d 00 78 05 f5 0d 00 82  |:..n.. 1..x.....|
00000100  0a f2 74 69 74 6c 65 0d  00 8c 14 ef 20 31 39 2c  |..title..... 19,|
00000110  31 2c 31 2c 30 2c 30 2c  30 2c 30 0d 00 96 14 ef  |1,1,0,0,0,0.....|
00000120  20 31 39 2c 32 2c 32 2c  30 2c 30 2c 30 2c 30 0d  | 19,2,2,0,0,0,0.|
00000130  00 a0 14 e7 20 6f 24 3d  22 20 22 20 8c 20 f2 67  |.... o$=" " . .g|
00000140  61 6d 65 0d 00 aa 15 fd  20 6f 24 3d 22 51 22 20  |ame..... o$="Q" |
00000150  84 20 6f 24 3d 22 71 22  0d 00 b4 05 e0 0d 00 be  |. o$="q"........|
00000160  05 3a 0d 00 c8 0a dd f2  67 61 6d 65 0d 00 d2 22  |.:......game..."|
00000170  6c 65 76 25 3d 30 3a 73  63 72 25 3d 30 3a 6c 69  |lev%=0:scr%=0:li|
00000180  76 65 25 3d 33 3a 6d 6f  6e 25 3d 31 35 30 0d 00  |ve%=3:mon%=150..|
00000190  dc 05 f7 0d 00 e6 05 f5  0d 00 f0 10 eb 20 31 3a  |............. 1:|
000001a0  d3 3d 93 2d 26 34 30 30  0d 00 fa 0a f2 6c 65 76  |.=.-&400.....lev|
000001b0  65 6c 0d 01 04 18 e7 20  6c 69 76 65 25 3d 2d 31  |el..... live%=-1|
000001c0  20 8c 20 6c 65 76 25 3d  32 31 0d 01 0e 0d fd 20  | . lev%=21..... |
000001d0  6c 65 76 25 3d 32 31 0d  01 18 1d e7 20 6c 69 76  |lev%=21..... liv|
000001e0  65 25 3d 2d 31 20 8c 20  f2 20 67 61 6d 65 6f 76  |e%=-1 . . gameov|
000001f0  65 72 3a e1 0d 01 22 0c  f2 63 6f 6e 67 72 61 74  |er:..."..congrat|
00000200  0d 01 2c 05 e1 0d 01 36  05 3a 0d 01 40 0b dd f2  |..,....6.:..@...|
00000210  6c 65 76 65 6c 0d 01 4a  13 ef 20 32 33 2c 31 2c  |level..J.. 23,1,|
00000220  30 3b 30 3b 30 3b 30 3b  0d 01 54 05 db 0d 01 5e  |0;0;0;0;..T....^|
00000230  30 fb 20 33 3a f1 8a 39  2c 31 36 29 22 47 65 74  |0. 3:..9,16)"Get|
00000240  20 52 65 61 64 79 20 66  6f 72 20 4c 65 76 65 6c  | Ready for Level|
00000250  20 22 3b 6c 65 76 25 2b  31 3b 22 21 22 0d 01 68  | ";lev%+1;"!"..h|
00000260  0c e3 63 3d 30 20 b8 20  35 0d 01 72 32 e3 63 6f  |..c=0 . 5..r2.co|
00000270  6c 3d 30 20 b8 20 37 3a  e7 20 73 6f 75 6e 64 3d  |l=0 . 7:. sound=|
00000280  b9 20 8c 20 d4 20 31 2c  2d 31 35 2c 63 2a 34 2b  |. . . 1,-15,c*4+|
00000290  63 6f 6c 2a 38 2b 31 30  30 2c 31 0d 01 7c 14 ef  |col*8+100,1..|..|
000002a0  20 31 39 2c 33 2c 63 6f  6c 2c 30 2c 30 2c 30 0d  | 19,3,col,0,0,0.|
000002b0  01 86 0a 6e 74 3d 91 2b  34 0d 01 90 0c f5 20 fd  |...nt=.+4..... .|
000002c0  20 91 3e 6e 74 0d 01 9a  08 ed 2c 3a db 0d 01 a4  | .>nt.....,:....|
000002d0  05 f5 0d 01 ae 12 ef 20  31 39 2c 33 2c 32 2c 30  |....... 19,3,2,0|
000002e0  2c 30 2c 30 0d 01 b8 1c  e6 20 30 2c 31 3a ec 20  |,0,0..... 0,1:. |
000002f0  30 2c 31 32 38 3a ec 20  31 32 38 30 2c 31 32 38  |0,128:. 1280,128|
00000300  0d 01 c2 1e f0 20 38 35  2c 30 2c 31 30 32 34 3a  |..... 85,0,1024:|
00000310  f0 20 38 35 2c 31 32 38  30 2c 31 30 32 34 0d 01  |. 85,1280,1024..|
00000320  cc 31 74 69 6d 25 3d 32  30 30 3a 6c 65 76 25 3d  |.1tim%=200:lev%=|
00000330  6c 65 76 25 2b 31 3a 6d  6f 6e 25 3d 6d 6f 6e 25  |lev%+1:mon%=mon%|
00000340  2b 35 30 3a 63 78 25 3d  30 3a 63 79 25 3d 30 0d  |+50:cx%=0:cy%=0.|
00000350  01 d6 0e f1 8a 30 2c 30  29 bd 31 33 31 0d 01 e0  |.....0,0).131...|
00000360  13 e3 78 3d 30 b8 33 39  3a e3 79 3d 30 b8 32 38  |..x=0.39:.y=0.28|
00000370  0d 01 ea 15 3f 28 26 32  43 30 30 2b 78 2b 79 2a  |....?(&2C00+x+y*|
00000380  34 30 29 3d 30 0d 01 f4  05 ed 0d 01 fe 05 f7 0d  |40)=0...........|
00000390  02 08 05 f5 0d 02 12 09  f3 20 78 2c 79 0d 02 1c  |......... x,y...|
000003a0  13 fd 20 78 3d 2d 32 20  80 20 79 3d 6c 65 76 25  |.. x=-2 . y=lev%|
000003b0  0d 02 26 0b f3 20 6c 3a  fb 20 31 0d 02 30 11 e3  |..&.. l:. 1..0..|
000003c0  20 70 6f 69 6e 74 3d 30  20 b8 20 6c 0d 02 3a 14  | point=0 . l..:.|
000003d0  f3 20 78 2c 79 3a f1 8a  78 2c 79 29 bd 31 32 38  |. x,y:..x,y).128|
000003e0  0d 02 44 15 3f 28 26 32  43 30 30 2b 78 2b 79 2a  |..D.?(&2C00+x+y*|
000003f0  34 30 29 3d 31 0d 02 4e  05 ed 0d 02 58 0b e3 62  |40)=1..N....X..b|
00000400  6e 3d 30 b8 31 0d 02 62  11 f3 20 78 28 62 6e 29  |n=0.1..b.. x(bn)|
00000410  2c 79 28 62 6e 29 0d 02  6c 0d 64 69 72 28 62 6e  |,y(bn)..l.dir(bn|
00000420  29 3d 30 0d 02 76 05 ed  0d 02 80 07 fb 20 33 0d  |)=0..v....... 3.|
00000430  02 8a 33 f1 8a 30 2c 32  39 29 22 20 53 63 6f 72  |..3..0,29)" Scor|
00000440  65 20 20 20 4c 69 76 65  73 20 20 20 53 63 72 65  |e   Lives   Scre|
00000450  65 6e 20 20 20 54 69 6d  65 20 20 20 4d 6f 6e 65  |en   Time   Mone|
00000460  79 22 0d 02 94 05 f5 0d  02 9e 0c 6e 74 25 3d 91  |y".........nt%=.|
00000470  2b 32 35 0d 02 a8 07 fb  20 33 0d 02 b2 2a f1 8a  |+25..... 3...*..|
00000480  32 2c 33 30 29 3b 73 63  72 25 3b 8a 31 31 2c 33  |2,30);scr%;.11,3|
00000490  30 29 6c 69 76 65 25 3b  8a 31 39 2c 33 30 29 6c  |0)live%;.19,30)l|
000004a0  65 76 25 3b 0d 02 bc 23  f1 8a 32 37 2c 33 30 29  |ev%;...#..27,30)|
000004b0  3b 74 69 6d 25 3b 22 20  22 3b 8a 33 34 2c 33 30  |;tim%;" ";.34,30|
000004c0  29 3b 6d 6f 6e 25 3b 0d  02 c6 07 fb 20 31 0d 02  |);mon%;..... 1..|
000004d0  d0 0a f2 62 61 6c 6c 73  0d 02 da 0b f2 63 75 72  |...balls.....cur|
000004e0  73 6f 72 0d 02 e4 0f 74  69 6d 25 3d 74 69 6d 25  |sor....tim%=tim%|
000004f0  2d 31 0d 02 ee 0d f5 20  fd 20 91 3e 6e 74 25 0d  |-1..... . .>nt%.|
00000500  02 f8 27 fd 20 74 69 6d  25 3d 2d 31 20 84 20 28  |..'. tim%=-1 . (|
00000510  78 28 30 29 3d 78 28 31  29 20 80 20 79 28 30 29  |x(0)=x(1) . y(0)|
00000520  3d 79 28 31 29 29 0d 03  02 20 e7 20 74 69 6d 25  |=y(1))... . tim%|
00000530  3c 3e 2d 31 20 8c 20 fd  20 b9 3a f2 6c 65 76 65  |<>-1 . . .:.leve|
00000540  6c 66 69 6e 3a e1 0d 03  0c 11 6c 69 76 65 25 3d  |lfin:.....live%=|
00000550  6c 69 76 65 25 2d 31 0d  03 16 16 e7 20 6c 69 76  |live%-1..... liv|
00000560  65 25 3d 2d 31 20 8c 20  fd 20 b9 3a e1 0d 03 20  |e%=-1 . . .:... |
00000570  1e db 3a fb 20 33 3a f1  8a 31 35 2c 31 36 29 3b  |..:. 3:..15,16);|
00000580  22 54 69 6d 65 20 4f 75  74 21 22 0d 03 2a 24 e3  |"Time Out!"..*$.|
00000590  63 3d 30 20 b8 20 35 3a  e7 20 73 6f 75 6e 64 3d  |c=0 . 5:. sound=|
000005a0  b9 20 8c 20 d4 20 31 2c  2d 31 35 2c 30 2c 37 0d  |. . . 1,-15,0,7.|
000005b0  03 34 0e e3 63 6f 6c 3d  30 20 b8 20 37 0d 03 3e  |.4..col=0 . 7..>|
000005c0  14 ef 20 31 39 2c 33 2c  63 6f 6c 2c 30 2c 30 2c  |.. 19,3,col,0,0,|
000005d0  30 0d 03 48 0a 6e 74 3d  91 2b 34 0d 03 52 0c f5  |0..H.nt=.+4..R..|
000005e0  20 fd 20 91 3e 6e 74 0d  03 5c 14 ed 2c 3a db 3a  | . .>nt..\..,:.:|
000005f0  6c 65 76 25 3d 6c 65 76  25 2d 31 0d 03 66 07 fd  |lev%=lev%-1..f..|
00000600  20 a3 0d 03 70 05 e1 0d  03 7a 05 3a 0d 03 84 0e  | ...p....z.:....|
00000610  dd f2 6c 65 76 65 6c 66  69 6e 0d 03 8e 09 db 3a  |..levelfin.....:|
00000620  fb 20 33 0d 03 98 2d f1  8a 34 2c 31 36 29 3b 22  |. 3...-..4,16);"|
00000630  43 6f 6e 67 72 61 74 75  6c 61 74 69 6f 6e 73 3a  |Congratulations:|
00000640  20 4c 65 76 65 6c 20 43  6f 6d 70 6c 65 74 65 22  | Level Complete"|
00000650  0d 03 a2 2a e3 63 3d 30  20 b8 20 35 3a e7 20 73  |...*.c=0 . 5:. s|
00000660  6f 75 6e 64 3d b9 20 8c  20 d4 20 31 2c 2d 31 35  |ound=. . . 1,-15|
00000670  2c 34 2b 63 2a 34 38 2c  31 30 0d 03 ac 0e e3 63  |,4+c*48,10.....c|
00000680  6f 6c 3d 30 20 b8 20 37  0d 03 b6 14 ef 20 31 39  |ol=0 . 7..... 19|
00000690  2c 33 2c 63 6f 6c 2c 30  2c 30 2c 30 0d 03 c0 0a  |,3,col,0,0,0....|
000006a0  6e 74 3d 91 2b 34 0d 03  ca 0c f5 20 fd 20 91 3e  |nt=.+4..... . .>|
000006b0  6e 74 0d 03 d4 08 ed 2c  3a db 0d 03 de 05 e1 0d  |nt.....,:.......|
000006c0  03 e8 05 3a 0d 03 f2 0e  dd f2 67 61 6d 65 6f 76  |...:......gameov|
000006d0  65 72 0d 03 fc 09 db 3a  fb 20 33 0d 04 06 22 f1  |er.....:. 3...".|
000006e0  8a 39 2c 31 36 29 22 54  68 61 74 27 73 20 69 74  |.9,16)"That's it|
000006f0  3a 20 47 61 6d 65 20 4f  76 65 72 21 22 0d 04 10  |: Game Over!"...|
00000700  0c e3 63 3d 30 20 b8 20  35 0d 04 1a 34 e3 63 6f  |..c=0 . 5...4.co|
00000710  6c 3d 30 20 b8 20 37 3a  e7 20 73 6f 75 6e 64 3d  |l=0 . 7:. sound=|
00000720  b9 20 8c 20 d4 20 31 2c  2d 31 35 2c 31 35 30 2d  |. . . 1,-15,150-|
00000730  28 63 2a 34 2b 63 6f 6c  2a 38 29 2c 31 0d 04 24  |(c*4+col*8),1..$|
00000740  14 ef 20 31 39 2c 33 2c  63 6f 6c 2c 30 2c 30 2c  |.. 19,3,col,0,0,|
00000750  30 0d 04 2e 0a 6e 74 3d  91 2b 34 0d 04 38 0c f5  |0....nt=.+4..8..|
00000760  20 fd 20 91 3e 6e 74 0d  04 42 08 ed 2c 3a db 0d  | . .>nt..B..,:..|
00000770  04 4c 05 e1 0d 04 56 05  3a 0d 04 60 0d dd f2 63  |.L....V.:..`...c|
00000780  6f 6e 67 72 61 74 0d 04  6a 09 db 3a fb 20 33 0d  |ongrat..j..:. 3.|
00000790  04 74 0c e3 78 3d 30 20  b8 20 35 0d 04 7e 2d f1  |.t..x=0 . 5..~-.|
000007a0  8a 34 2c 31 36 29 3b 22  43 6f 6e 67 72 61 74 75  |.4,16);"Congratu|
000007b0  6c 61 74 69 6f 6e 73 3a  20 47 61 6d 65 20 43 6f  |lations: Game Co|
000007c0  6d 70 6c 65 74 65 21 22  0d 04 88 2a e3 63 3d 30  |mplete!"...*.c=0|
000007d0  20 b8 20 35 3a e7 20 73  6f 75 6e 64 3d b9 20 8c  | . 5:. sound=. .|
000007e0  20 d4 20 31 2c 2d 31 35  2c 34 2b 63 2a 34 38 2c  | . 1,-15,4+c*48,|
000007f0  31 30 0d 04 92 0e e3 63  6f 6c 3d 30 20 b8 20 37  |10.....col=0 . 7|
00000800  0d 04 9c 14 ef 20 31 39  2c 33 2c 63 6f 6c 2c 30  |..... 19,3,col,0|
00000810  2c 30 2c 30 0d 04 a6 0a  6e 74 3d 91 2b 34 0d 04  |,0,0....nt=.+4..|
00000820  b0 0c f5 20 fd 20 91 3e  6e 74 0d 04 ba 09 ed 2c  |... . .>nt.....,|
00000830  2c 3a db 0d 04 c4 05 e1  0d 04 ce 05 3a 0d 04 d8  |,:..........:...|
00000840  0b dd f2 62 61 6c 6c 73  0d 04 e2 0f e3 62 6e 3d  |...balls.....bn=|
00000850  30 b8 31 3a 73 3d b9 0d  04 ec 32 e7 20 78 28 62  |0.1:s=....2. x(b|
00000860  6e 29 3c 3e 63 78 25 20  84 20 79 28 62 6e 29 3c  |n)<>cx% . y(bn)<|
00000870  3e 63 79 25 20 8c 20 f1  8a 78 28 62 6e 29 2c 79  |>cy% . ..x(bn),y|
00000880  28 62 6e 29 29 bd 31 32  39 0d 04 f6 3f e7 79 28  |(bn)).129...?.y(|
00000890  62 6e 29 3c 3e 32 38 80  3f 28 26 32 43 32 38 2b  |bn)<>28.?(&2C28+|
000008a0  78 28 62 6e 29 2b 79 28  62 6e 29 2a 34 30 29 3d  |x(bn)+y(bn)*40)=|
000008b0  30 80 73 3d b9 20 8c 79  28 62 6e 29 3d 79 28 62  |0.s=. .y(bn)=y(b|
000008c0  6e 29 2b 31 3a 73 3d a3  0d 05 00 3f e7 64 69 72  |n)+1:s=....?.dir|
000008d0  28 62 6e 29 3d 30 80 3f  28 26 32 42 46 46 2b 78  |(bn)=0.?(&2BFF+x|
000008e0  28 62 6e 29 2b 79 28 62  6e 29 2a 34 30 29 3d 30  |(bn)+y(bn)*40)=0|
000008f0  80 73 3d b9 20 8c 78 28  62 6e 29 3d 78 28 62 6e  |.s=. .x(bn)=x(bn|
00000900  29 2d 31 3a 73 3d a3 0d  05 0a 3f e7 64 69 72 28  |)-1:s=....?.dir(|
00000910  62 6e 29 3d 31 80 3f 28  26 32 43 30 31 2b 78 28  |bn)=1.?(&2C01+x(|
00000920  62 6e 29 2b 79 28 62 6e  29 2a 34 30 29 3d 30 80  |bn)+y(bn)*40)=0.|
00000930  73 3d b9 20 8c 78 28 62  6e 29 3d 78 28 62 6e 29  |s=. .x(bn)=x(bn)|
00000940  2b 31 3a 73 3d a3 0d 05  14 1e e7 73 3d b9 20 8c  |+1:s=......s=. .|
00000950  20 64 69 72 28 62 6e 29  3d 64 69 72 28 62 6e 29  | dir(bn)=dir(bn)|
00000960  20 82 20 31 0d 05 1e 32  e7 20 78 28 62 6e 29 3c  | . 1...2. x(bn)<|
00000970  3e 63 78 25 20 84 20 79  28 62 6e 29 3c 3e 63 79  |>cx% . y(bn)<>cy|
00000980  25 20 8c 20 f1 8a 78 28  62 6e 29 2c 79 28 62 6e  |% . ..x(bn),y(bn|
00000990  29 29 bd 31 33 30 0d 05  28 05 ed 0d 05 32 05 e1  |)).130..(....2..|
000009a0  0d 05 3c 05 3a 0d 05 46  0c dd f2 63 75 72 73 6f  |..<.:..F...curso|
000009b0  72 0d 05 50 07 fb 20 31  0d 05 5a 3d e7 20 3f 28  |r..P.. 1..Z=. ?(|
000009c0  26 32 43 30 30 2b 63 78  25 2b 63 79 25 2a 34 30  |&2C00+cx%+cy%*40|
000009d0  29 3d 30 20 8c 20 f1 8a  63 78 25 2c 63 79 25 29  |)=0 . ..cx%,cy%)|
000009e0  bd 31 32 39 20 8b 20 f1  8a 63 78 25 2c 63 79 25  |.129 . ..cx%,cy%|
000009f0  29 bd 31 32 38 0d 05 64  20 e7 20 a6 28 2d 39 38  |).128..d . .(-98|
00000a00  29 20 80 20 63 78 25 3e  30 20 8c 20 63 78 25 3d  |) . cx%>0 . cx%=|
00000a10  63 78 25 2d 31 0d 05 6e  21 e7 20 a6 28 2d 36 37  |cx%-1..n!. .(-67|
00000a20  29 20 80 20 63 78 25 3c  33 39 20 8c 20 63 78 25  |) . cx%<39 . cx%|
00000a30  3d 63 78 25 2b 31 0d 05  78 20 e7 20 a6 28 2d 37  |=cx%+1..x . .(-7|
00000a40  31 29 20 80 20 63 79 25  3e 30 20 8c 20 63 79 25  |1) . cy%>0 . cy%|
00000a50  3d 63 79 25 2d 31 0d 05  82 22 e7 20 a6 28 2d 31  |=cy%-1...". .(-1|
00000a60  30 32 29 20 80 20 63 79  25 3c 31 39 20 8c 20 63  |02) . cy%<19 . c|
00000a70  79 25 3d 63 79 25 2b 31  0d 05 8c 3b e7 20 a6 28  |y%=cy%+1...;. .(|
00000a80  2d 38 37 29 20 80 20 6d  6f 6e 25 3e 35 30 20 8c  |-87) . mon%>50 .|
00000a90  20 3f 28 26 32 43 30 30  2b 63 78 25 2b 63 79 25  | ?(&2C00+cx%+cy%|
00000aa0  2a 34 30 29 3d 31 3a 6d  6f 6e 25 3d 6d 6f 6e 25  |*40)=1:mon%=mon%|
00000ab0  2d 35 30 0d 05 96 3b e7  20 a6 28 2d 39 39 29 20  |-50...;. .(-99) |
00000ac0  80 20 6d 6f 6e 25 3e 32  35 20 8c 20 3f 28 26 32  |. mon%>25 . ?(&2|
00000ad0  43 30 30 2b 63 78 25 2b  63 79 25 2a 34 30 29 3d  |C00+cx%+cy%*40)=|
00000ae0  30 3a 6d 6f 6e 25 3d 6d  6f 6e 25 2d 32 35 0d 05  |0:mon%=mon%-25..|
00000af0  a0 12 f1 8a 63 78 25 2c  63 79 25 29 bd 31 33 31  |....cx%,cy%).131|
00000b00  0d 05 aa 05 e1 0d 05 b4  05 3a 0d 05 be 0b dd f2  |.........:......|
00000b10  74 69 74 6c 65 0d 05 c8  09 63 6f 6c 3d 30 0d 05  |title....col=0..|
00000b20  d2 16 e3 78 3d 2d 33 35  30 20 b8 20 34 30 30 20  |...x=-350 . 400 |
00000b30  88 20 35 30 0d 05 dc 14  e3 79 3d 31 38 20 b8 20  |. 50.....y=18 . |
00000b40  31 38 30 20 88 20 31 38  0d 05 e6 1b 63 6f 6c 3d  |180 . 18....col=|
00000b50  28 63 6f 6c 20 83 20 33  29 2b 31 3a e6 20 30 2c  |(col . 3)+1:. 0,|
00000b60  63 6f 6c 0d 05 f0 34 ec  20 34 38 30 2a b5 28 af  |col...4. 480*.(.|
00000b70  2a 28 78 2d 35 30 29 2a  2e 32 32 35 2f 31 38 30  |*(x-50)*.225/180|
00000b80  29 2a b5 28 af 2a 79 2f  31 38 30 29 2b 36 34 30  |)*.(.*y/180)+640|
00000b90  2c 36 30 2b 79 2a 35 0d  05 fa 2f ec 20 34 38 30  |,60+y*5.../. 480|
00000ba0  2a b5 28 af 2a 78 2a 2e  32 32 35 2f 31 38 30 29  |*.(.*x*.225/180)|
00000bb0  2a b5 28 af 2a 79 2f 31  38 30 29 2b 36 34 30 2c  |*.(.*y/180)+640,|
00000bc0  36 30 2b 79 2a 35 0d 06  04 41 f0 20 38 35 2c 34  |60+y*5...A. 85,4|
00000bd0  38 30 2a b5 28 af 2a 28  78 2d 35 30 29 2a 2e 32  |80*.(.*(x-50)*.2|
00000be0  32 35 2f 31 38 30 29 2a  b5 28 af 2a 28 79 2d 31  |25/180)*.(.*(y-1|
00000bf0  38 29 2f 31 38 30 29 2b  36 34 30 2c 36 30 2b 28  |8)/180)+640,60+(|
00000c00  79 2d 31 38 29 2a 35 0d  06 0e 3c f0 20 38 35 2c  |y-18)*5...<. 85,|
00000c10  34 38 30 2a b5 28 af 2a  78 2a 2e 32 32 35 2f 31  |480*.(.*x*.225/1|
00000c20  38 30 29 2a b5 28 af 2a  28 79 2d 31 38 29 2f 31  |80)*.(.*(y-18)/1|
00000c30  38 30 29 2b 36 34 30 2c  36 30 2b 28 79 2d 31 38  |80)+640,60+(y-18|
00000c40  29 2a 35 0d 06 18 06 ed  2c 0d 06 22 0d e6 20 30  |)*5.....,..".. 0|
00000c50  2c 30 3a ef 20 35 0d 06  2c 32 ec 35 34 34 2c 38  |,0:. 5..,2.544,8|
00000c60  39 36 3a f1 22 42 4f 55  4e 43 45 22 3a ec 34 30  |96:."BOUNCE":.40|
00000c70  30 2c 37 36 38 3a f1 22  62 79 20 44 6f 6d 69 6e  |0,768:."by Domin|
00000c80  69 63 20 46 6f 72 64 22  0d 06 36 07 ef 20 34 0d  |ic Ford"..6.. 4.|
00000c90  06 40 05 f5 0d 06 4a 1d  6e 74 3d 91 2b 31 30 3a  |.@....J.nt=.+10:|
00000ca0  63 6f 6c 3d 28 28 63 6f  6c 2b 31 29 20 83 20 33  |col=((col+1) . 3|
00000cb0  29 0d 06 54 18 ef 20 31  39 2c 31 2c 63 6f 6c 2b  |)..T.. 19,1,col+|
00000cc0  34 2c 30 2c 30 2c 30 2c  30 0d 06 5e 22 ef 20 31  |4,0,0,0,0..^". 1|
00000cd0  39 2c 32 2c 28 28 63 6f  6c 2b 31 29 20 83 20 33  |9,2,((col+1) . 3|
00000ce0  29 2b 34 2c 30 2c 30 2c  30 2c 30 0d 06 68 22 ef  |)+4,0,0,0,0..h".|
00000cf0  20 31 39 2c 33 2c 28 28  63 6f 6c 2b 32 29 20 83  | 19,3,((col+2) .|
00000d00  20 33 29 2b 34 2c 30 2c  30 2c 30 2c 30 0d 06 72  | 3)+4,0,0,0,0..r|
00000d10  0c f5 20 fd 20 91 3e 6e  74 0d 06 7c 07 fd 20 a3  |.. . .>nt..|.. .|
00000d20  0d 06 86 05 e1 0d 06 90  05 3a 0d 06 9a 10 f4 20  |.........:..... |
00000d30  4c 65 76 65 6c 20 44 61  74 61 0d 06 a4 45 dc 20  |Level Data...E. |
00000d40  2d 32 2c 31 2c 31 38 2c  32 2c 32 2c 33 2c 33 2c  |-2,1,18,2,2,3,3,|
00000d50  34 2c 33 2c 35 2c 33 2c  36 2c 33 2c 37 2c 33 2c  |4,3,5,3,6,3,7,3,|
00000d60  38 2c 33 2c 38 2c 38 2c  39 2c 39 2c 31 30 2c 39  |8,3,8,8,9,9,10,9|
00000d70  2c 31 31 2c 39 2c 31 32  2c 39 2c 31 33 2c 39 0d  |,11,9,12,9,13,9.|
00000d80  06 ae 2c dc 20 31 34 2c  39 2c 31 35 2c 39 2c 31  |..,. 14,9,15,9,1|
00000d90  36 2c 39 2c 31 37 2c 38  2c 31 38 2c 39 2c 31 39  |6,9,17,8,18,9,19|
00000da0  2c 38 2c 38 2c 30 2c 31  39 2c 30 0d 06 b8 0a dc  |,8,8,0,19,0.....|
00000db0  20 2d 32 2c 32 0d ff                              | -2,2..|
00000db7