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:
- Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Bounce/Bounce
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Bounce/Bounce
- Personal collection » Acorn hard disk » misc » dcfprogs » Bounce/Bounce
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