Home » Personal collection » Commodore tapes » Commodore_64 » drawer_tr_tape01a_d60_c64_tape.wav » 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 » Commodore tapes » Commodore_64 » drawer_tr_tape01a_d60_c64_tape.wav |
| Filename: | bounce |
| Read OK: | ✔ |
| File size: | 061B bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
1 REM *******************
2 REM * BOUNCE *
3 REM *******************
4 REM * BY DOMINIC FORD *
5 REM *******************
6 REM * 1ST JUNE 1993 *
7 REM *******************
8 REM
10 PRINTCHR$(147);CHR$(30);:POKE53280,9:POKE53281,0:POKE56295,5:SP=-1
20 FORR=1TO199:PRINT"WOOZY";:NEXT:PRINT"WOOZ";
30 POKE2023,25:VC=53248:POKEVC+21,0
40 POKEVC+23,0:POKEVC+29,0:POKEVC+16,0
50 POKEVC+28,0:POKEVC+27,0:R=PEEK(VC+30)
60 DIMXS(7),YS(7)
70 FORR=0TO62:READVA:POKER+16320,VA:NEXT
80 FORR=2040TO2047
90 POKER,255:NEXT
100 FORR=1TO8:POKEVC+R+38,R:NEXT
110 FORR=0TO7
120 POKER*2+1+VC,INT(RND(1)*170)+50
130 POKER*2+VC,INT(RND(1)*200)+55:NEXT
140 POKE VC+21,255
150 IF PEEK(VC+30)<>0 THEN 110
160 POKEVC+21,0:FORR=0TO7
170 XS(R)=INT(RND(1)*2) AND 1
180 YS(R)=INT(RND(1)*2) AND 1
190 IF XS(R)=0 THEN XS(R)=-1
200 IF YS(R)=0 THEN YS(R)=-1
210 NEXT:POKEVC+21,255
220 FORSP=0TO7:V=VC+2*SP:EX=PEEK(VC+16) AND (2^SP)
230 IF PEEK(V)=255 AND EX=0 THEN POKEV,0:POKEVC+16,PEEK(VC+16)+2^SP
240 IF PEEK(V)=0 AND EX<>0 THEN POKE V,255:POKEVC+16,PEEK(VC+16)-EX:GOTO 290
250 POKEV,PEEK(V)+XS(SP):IF P=1 THEN P=0:GOTO 250
260 IF PEEK(V)<26 AND EX=0 THEN XS(SP)=1:P=1:GOTO250
270 IF PEEK(V)>45 AND EX<>0 THEN XS(SP)=-1:P=1:GOTO 250
280 GOSUB1000:IF CO<>0 THEN XS(SP)=-XS(SP):P=1:GOTO 250
290 POKEV+1,PEEK(V+1)+YS(SP):IF P=1 THEN P=0:GOTO 290
300 IF PEEK(V+1)>230 THEN YS(SP)=-1:P=1:GOTO 290
310 IF PEEK(V+1)<50 THEN YS(SP)=1:P=1:GOTO 290
320 GOSUB1000:IF CO<>0 THEN YS(SP)=-YS(SP):P=1:GOTO 290
330 NEXT:GOTO 220
340 DATA 0,127,0,1,255,192,7,255,224
350 DATA 15,255,240,31,255,248,63,255,252
360 DATA 63,255,252,127,255,254,127,255,254
370 DATA 127,255,254,127,255,254,127,255,254
380 DATA 127,255,254,127,255,254,63,255,252
390 DATA 63,255,252,31,255,248,31,255,248
400 DATA 15,255,240,7,255,224,1,255,128
1000 IF SP=-1 THEN CO=PEEK(VC+30):RETURN
1010 CO=PEEK(VC+30) AND (2^SP)
1020 CO=PEEK(VC+30) AND (2^SP)
1030 RETURN
� ******************* 5 � * BOUNCE * O � ******************* i � * BY DOMINIC FORD * � � ******************* � � * 1ST JUNE 1993 * � � ******************* � � � ��(147);�(30);:�53280,9:�53281,0:�56295,5:SP��1 �R�1�199:�"WOOZY";:�:�"WOOZ"; 2 �2023,25:VC�53248:�VC�21,0 Q ( �VC�23,0:�VC�29,0:�VC�16,0 r 2 �VC�28,0:�VC�27,0:R��(VC�30) � < �XS(7),YS(7) � F �R�0�62:�VA:�R�16320,VA:� � P �R�2040�2047 � Z �R,255:� � d �R�1�8:�VC�R�38,R:� � n �R�0�7 � x �R�2�1�VC,�(�(1)�170)�50 � �R�2�VC,�(�(1)�200)�55:� , � � VC�21,255 D � � �(VC�30)��0 � 110 X � �VC�21,0:�R�0�7 p � XS(R)��(�(1)�2) � 1 � � YS(R)��(�(1)�2) � 1 � � � XS(R)�0 � XS(R)��1 � � � YS(R)�0 � YS(R)��1 � � �:�VC�21,255 � � �SP�0�7:V�VC�2�SP:EX��(VC�16) � (2�SP) ( � � �(V)�255 � EX�0 � �V,0:�VC�16,�(VC�16)�2�SP ` � � �(V)�0 � EX��0 � � V,255:�VC�16,�(VC�16)�EX:� 290 � � �V,�(V)�XS(SP):� P�1 � P�0:� 250 � � �(V)�26 � EX�0 � XS(SP)�1:P�1:�250 � � �(V)�45 � EX��0 � XS(SP)��1:P�1:� 250 �1000:� CO��0 � XS(SP)��XS(SP):P�1:� 250 0 "�V�1,�(V�1)�YS(SP):� P�1 � P�0:� 290 W ,� �(V�1)�230 � YS(SP)��1:P�1:� 290 | 6� �(V�1)�50 � YS(SP)�1:P�1:� 290 � @�1000:� CO��0 � YS(SP)��YS(SP):P�1:� 290 � J�:� 220 � T� 0,127,0,1,255,192,7,255,224 � ^� 15,255,240,31,255,248,63,255,252 ' h� 63,255,252,127,255,254,127,255,254 Q r� 127,255,254,127,255,254,127,255,254 z |� 127,255,254,127,255,254,63,255,252 � �� 63,255,252,31,255,248,31,255,248 � �� 15,255,240,7,255,224,1,255,128 � �� SP��1 � CO��(VC�30):� � �CO��(VC�30) � (2�SP) �CO��(VC�30) � (2�SP) �
[HA@. *******************@5HB@. * bounce *@oHC@. *******************@IHD@. * by dominic ford *@.HE@. *******************@.HF@. * 1st june 1993 *@.HG@. *******************@.HH@.@.HJ@..(147);.(30);:.53280,9:.53281,0:.56295,5:sp..1@SIT@.r.1.199:."woozy";:.:."wooz";@2I.@.2023,25:vc.53248:.vc.21,0@qI(@.vc.23,0:.vc.29,0:.vc.16,0@RI2@.vc.28,0:.vc.27,0:r..(vc.30)@.I<@.xs(7),ys(7)@.If@.r.0.62:.va:.r.16320,va:.@.Ip@.r.2040.2047@.Iz@.r,255:.@.ID@.r.1.8:.vc.r.38,r:.@.IN@.r.0.7@.IX@.r.2.1.vc,.(.(1).170).50@£J.@.r.2.vc,.(.(1).200).55:.@,J.@. vc.21,255@dJ.@. .(vc.30)..0 . 110@xJ.@.vc.21,0:.r.0.7@PJ.@xs(r)..(.(1).2) . 1@.J.@ys(r)..(.(1).2) . 1@.J.@. xs(r).0 . xs(r)..1@.J.@. ys(r).0 . ys(r)..1@.J.@.:.vc.21,255@.J.@.sp.0.7:v.vc.2.sp:ex..(vc.16) . (2.sp)@(K.@. .(v).255 . ex.0 . .v,0:.vc.16,.(vc.16).2.sp@.K.@. .(v).0 . ex..0 . . v,255:.vc.16,.(vc.16).ex:. 290@.K.@.v,.(v).xs(sp):. p.1 . p.0:. 250@.KDA. .(v).26 . ex.0 . xs(sp).1:p.1:.250@.KNA. .(v).45 . ex..0 . xs(sp)..1:p.1:. 250@GLXA.1000:. co..0 . xs(sp)..xs(sp):p.1:. 250@0L"A.v.1,.(v.1).ys(sp):. p.1 . p.0:. 290@wL,A. .(v.1).230 . ys(sp)..1:p.1:. 290@.L6A. .(v.1).50 . ys(sp).1:p.1:. 290@.L@A.1000:. co..0 . ys(sp)..ys(sp):p.1:. 290@.LjA.:. 220@.LtA. 0,127,0,1,255,192,7,255,224@.L.A. 15,255,240,31,255,248,63,255,252@'MHA. 63,255,252,127,255,254,127,255,254@qMRA. 127,255,254,127,255,254,127,255,254@ZM.A. 127,255,254,127,255,254,63,255,252@.M.A. 63,255,252,31,255,248,31,255,248@.M.A. 15,255,240,7,255,224,1,255,128@.M.C. sp..1 . co..(vc.30):.@.M.Cco..(vc.30) . (2.sp)@TN.Cco..(vc.30) . (2.sp)@ZNFD.@@@
00000000 1b 08 01 00 8f 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |..... **********| 00000010 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 35 08 02 00 8f 20 |*********.5.... | 00000020 2a 20 20 20 20 20 42 4f 55 4e 43 45 20 20 20 20 |* BOUNCE | 00000030 20 20 2a 00 4f 08 03 00 8f 20 2a 2a 2a 2a 2a 2a | *.O.... ******| 00000040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 69 08 |*************.i.| 00000050 04 00 8f 20 2a 20 42 59 20 44 4f 4d 49 4e 49 43 |... * BY DOMINIC| 00000060 20 46 4f 52 44 20 2a 00 83 08 05 00 8f 20 2a 2a | FORD *...... **| 00000070 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| 00000080 2a 00 9d 08 06 00 8f 20 2a 20 20 31 53 54 20 4a |*...... * 1ST J| 00000090 55 4e 45 20 31 39 39 33 20 20 2a 00 b7 08 07 00 |UNE 1993 *.....| 000000a0 8f 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |. **************| 000000b0 2a 2a 2a 2a 2a 00 bd 08 08 00 8f 00 f1 08 0a 00 |*****...........| 000000c0 99 c7 28 31 34 37 29 3b c7 28 33 30 29 3b 3a 97 |..(147);.(30);:.| 000000d0 35 33 32 38 30 2c 39 3a 97 35 33 32 38 31 2c 30 |53280,9:.53281,0| 000000e0 3a 97 35 36 32 39 35 2c 35 3a 53 50 b2 ab 31 00 |:.56295,5:SP..1.| 000000f0 13 09 14 00 81 52 b2 31 a4 31 39 39 3a 99 22 57 |.....R.1.199:."W| 00000100 4f 4f 5a 59 22 3b 3a 82 3a 99 22 57 4f 4f 5a 22 |OOZY";:.:."WOOZ"| 00000110 3b 00 32 09 1e 00 97 32 30 32 33 2c 32 35 3a 56 |;.2....2023,25:V| 00000120 43 b2 35 33 32 34 38 3a 97 56 43 aa 32 31 2c 30 |C.53248:.VC.21,0| 00000130 00 51 09 28 00 97 56 43 aa 32 33 2c 30 3a 97 56 |.Q.(..VC.23,0:.V| 00000140 43 aa 32 39 2c 30 3a 97 56 43 aa 31 36 2c 30 00 |C.29,0:.VC.16,0.| 00000150 72 09 32 00 97 56 43 aa 32 38 2c 30 3a 97 56 43 |r.2..VC.28,0:.VC| 00000160 aa 32 37 2c 30 3a 52 b2 c2 28 56 43 aa 33 30 29 |.27,0:R..(VC.30)| 00000170 00 83 09 3c 00 86 58 53 28 37 29 2c 59 53 28 37 |...<..XS(7),YS(7| 00000180 29 00 a1 09 46 00 81 52 b2 30 a4 36 32 3a 87 56 |)...F..R.0.62:.V| 00000190 41 3a 97 52 aa 31 36 33 32 30 2c 56 41 3a 82 00 |A:.R.16320,VA:..| 000001a0 b2 09 50 00 81 52 b2 32 30 34 30 a4 32 30 34 37 |..P..R.2040.2047| 000001b0 00 bf 09 5a 00 97 52 2c 32 35 35 3a 82 00 d7 09 |...Z..R,255:....| 000001c0 64 00 81 52 b2 31 a4 38 3a 97 56 43 aa 52 aa 33 |d..R.1.8:.VC.R.3| 000001d0 38 2c 52 3a 82 00 e2 09 6e 00 81 52 b2 30 a4 37 |8,R:....n..R.0.7| 000001e0 00 ff 09 78 00 97 52 ac 32 aa 31 aa 56 43 2c b5 |...x..R.2.1.VC,.| 000001f0 28 bb 28 31 29 ac 31 37 30 29 aa 35 30 00 1c 0a |(.(1).170).50...| 00000200 82 00 97 52 ac 32 aa 56 43 2c b5 28 bb 28 31 29 |...R.2.VC,.(.(1)| 00000210 ac 32 30 30 29 aa 35 35 3a 82 00 2c 0a 8c 00 97 |.200).55:..,....| 00000220 20 56 43 aa 32 31 2c 32 35 35 00 44 0a 96 00 8b | VC.21,255.D....| 00000230 20 c2 28 56 43 aa 33 30 29 b3 b1 30 20 a7 20 31 | .(VC.30)..0 . 1| 00000240 31 30 00 58 0a a0 00 97 56 43 aa 32 31 2c 30 3a |10.X....VC.21,0:| 00000250 81 52 b2 30 a4 37 00 70 0a aa 00 58 53 28 52 29 |.R.0.7.p...XS(R)| 00000260 b2 b5 28 bb 28 31 29 ac 32 29 20 af 20 31 00 88 |..(.(1).2) . 1..| 00000270 0a b4 00 59 53 28 52 29 b2 b5 28 bb 28 31 29 ac |...YS(R)..(.(1).| 00000280 32 29 20 af 20 31 00 a1 0a be 00 8b 20 58 53 28 |2) . 1...... XS(| 00000290 52 29 b2 30 20 a7 20 58 53 28 52 29 b2 ab 31 00 |R).0 . XS(R)..1.| 000002a0 ba 0a c8 00 8b 20 59 53 28 52 29 b2 30 20 a7 20 |..... YS(R).0 . | 000002b0 59 53 28 52 29 b2 ab 31 00 cb 0a d2 00 82 3a 97 |YS(R)..1......:.| 000002c0 56 43 aa 32 31 2c 32 35 35 00 f6 0a dc 00 81 53 |VC.21,255......S| 000002d0 50 b2 30 a4 37 3a 56 b2 56 43 aa 32 ac 53 50 3a |P.0.7:V.VC.2.SP:| 000002e0 45 58 b2 c2 28 56 43 aa 31 36 29 20 af 20 28 32 |EX..(VC.16) . (2| 000002f0 ae 53 50 29 00 28 0b e6 00 8b 20 c2 28 56 29 b2 |.SP).(.... .(V).| 00000300 32 35 35 20 af 20 45 58 b2 30 20 a7 20 97 56 2c |255 . EX.0 . .V,| 00000310 30 3a 97 56 43 aa 31 36 2c c2 28 56 43 aa 31 36 |0:.VC.16,.(VC.16| 00000320 29 aa 32 ae 53 50 00 60 0b f0 00 8b 20 c2 28 56 |).2.SP.`.... .(V| 00000330 29 b2 30 20 af 20 45 58 b3 b1 30 20 a7 20 97 20 |).0 . EX..0 . . | 00000340 56 2c 32 35 35 3a 97 56 43 aa 31 36 2c c2 28 56 |V,255:.VC.16,.(V| 00000350 43 aa 31 36 29 ab 45 58 3a 89 20 32 39 30 00 85 |C.16).EX:. 290..| 00000360 0b fa 00 97 56 2c c2 28 56 29 aa 58 53 28 53 50 |....V,.(V).XS(SP| 00000370 29 3a 8b 20 50 b2 31 20 a7 20 50 b2 30 3a 89 20 |):. P.1 . P.0:. | 00000380 32 35 30 00 ae 0b 04 01 8b 20 c2 28 56 29 b3 32 |250...... .(V).2| 00000390 36 20 af 20 45 58 b2 30 20 a7 20 58 53 28 53 50 |6 . EX.0 . XS(SP| 000003a0 29 b2 31 3a 50 b2 31 3a 89 32 35 30 00 da 0b 0e |).1:P.1:.250....| 000003b0 01 8b 20 c2 28 56 29 b1 34 35 20 af 20 45 58 b3 |.. .(V).45 . EX.| 000003c0 b1 30 20 a7 20 58 53 28 53 50 29 b2 ab 31 3a 50 |.0 . XS(SP)..1:P| 000003d0 b2 31 3a 89 20 32 35 30 00 07 0c 18 01 8d 31 30 |.1:. 250......10| 000003e0 30 30 3a 8b 20 43 4f b3 b1 30 20 a7 20 58 53 28 |00:. CO..0 . XS(| 000003f0 53 50 29 b2 ab 58 53 28 53 50 29 3a 50 b2 31 3a |SP)..XS(SP):P.1:| 00000400 89 20 32 35 30 00 30 0c 22 01 97 56 aa 31 2c c2 |. 250.0."..V.1,.| 00000410 28 56 aa 31 29 aa 59 53 28 53 50 29 3a 8b 20 50 |(V.1).YS(SP):. P| 00000420 b2 31 20 a7 20 50 b2 30 3a 89 20 32 39 30 00 57 |.1 . P.0:. 290.W| 00000430 0c 2c 01 8b 20 c2 28 56 aa 31 29 b1 32 33 30 20 |.,.. .(V.1).230 | 00000440 a7 20 59 53 28 53 50 29 b2 ab 31 3a 50 b2 31 3a |. YS(SP)..1:P.1:| 00000450 89 20 32 39 30 00 7c 0c 36 01 8b 20 c2 28 56 aa |. 290.|.6.. .(V.| 00000460 31 29 b3 35 30 20 a7 20 59 53 28 53 50 29 b2 31 |1).50 . YS(SP).1| 00000470 3a 50 b2 31 3a 89 20 32 39 30 00 a9 0c 40 01 8d |:P.1:. 290...@..| 00000480 31 30 30 30 3a 8b 20 43 4f b3 b1 30 20 a7 20 59 |1000:. CO..0 . Y| 00000490 53 28 53 50 29 b2 ab 59 53 28 53 50 29 3a 50 b2 |S(SP)..YS(SP):P.| 000004a0 31 3a 89 20 32 39 30 00 b5 0c 4a 01 82 3a 89 20 |1:. 290...J..:. | 000004b0 32 32 30 00 d7 0c 54 01 83 20 30 2c 31 32 37 2c |220...T.. 0,127,| 000004c0 30 2c 31 2c 32 35 35 2c 31 39 32 2c 37 2c 32 35 |0,1,255,192,7,25| 000004d0 35 2c 32 32 34 00 fe 0c 5e 01 83 20 31 35 2c 32 |5,224...^.. 15,2| 000004e0 35 35 2c 32 34 30 2c 33 31 2c 32 35 35 2c 32 34 |55,240,31,255,24| 000004f0 38 2c 36 33 2c 32 35 35 2c 32 35 32 00 27 0d 68 |8,63,255,252.'.h| 00000500 01 83 20 36 33 2c 32 35 35 2c 32 35 32 2c 31 32 |.. 63,255,252,12| 00000510 37 2c 32 35 35 2c 32 35 34 2c 31 32 37 2c 32 35 |7,255,254,127,25| 00000520 35 2c 32 35 34 00 51 0d 72 01 83 20 31 32 37 2c |5,254.Q.r.. 127,| 00000530 32 35 35 2c 32 35 34 2c 31 32 37 2c 32 35 35 2c |255,254,127,255,| 00000540 32 35 34 2c 31 32 37 2c 32 35 35 2c 32 35 34 00 |254,127,255,254.| 00000550 7a 0d 7c 01 83 20 31 32 37 2c 32 35 35 2c 32 35 |z.|.. 127,255,25| 00000560 34 2c 31 32 37 2c 32 35 35 2c 32 35 34 2c 36 33 |4,127,255,254,63| 00000570 2c 32 35 35 2c 32 35 32 00 a1 0d 86 01 83 20 36 |,255,252...... 6| 00000580 33 2c 32 35 35 2c 32 35 32 2c 33 31 2c 32 35 35 |3,255,252,31,255| 00000590 2c 32 34 38 2c 33 31 2c 32 35 35 2c 32 34 38 00 |,248,31,255,248.| 000005a0 c6 0d 90 01 83 20 31 35 2c 32 35 35 2c 32 34 30 |..... 15,255,240| 000005b0 2c 37 2c 32 35 35 2c 32 32 34 2c 31 2c 32 35 35 |,7,255,224,1,255| 000005c0 2c 31 32 38 00 e2 0d e8 03 8b 20 53 50 b2 ab 31 |,128...... SP..1| 000005d0 20 a7 20 43 4f b2 c2 28 56 43 aa 33 30 29 3a 8e | . CO..(VC.30):.| 000005e0 00 fb 0d f2 03 43 4f b2 c2 28 56 43 aa 33 30 29 |.....CO..(VC.30)| 000005f0 20 af 20 28 32 ae 53 50 29 00 14 0e fc 03 43 4f | . (2.SP).....CO| 00000600 b2 c2 28 56 43 aa 33 30 29 20 af 20 28 32 ae 53 |..(VC.30) . (2.S| 00000610 50 29 00 1a 0e 06 04 8e 00 00 00 |P).........| 0000061b
.