Home » Personal collection » Commodore disks » disk65a_programs_1.d64 » 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 disks » disk65a_programs_1.d64
Filename: bounce
Read OK: ✔
File size: 067F 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),BP(7,1)
    70 FORR=0TO62:READVA:POKER+16320,VA:NEXT
    80 FORR=2040TO2047
    90 POKER,255:NEXT
   100 FORR=1TO8:POKEVC+R+38,R:NEXT:POKEVC+21,255
   110 FL=0:FORR=0TO7
   120 BP(R,0)=INT(RND(1)*170)+50:POKER*2+1+VC,BP(R,0)
   130 BP(R,1)=INT(RND(1)*200)+55:POKER*2+VC,BP(R,1):NEXT:POKEVC+30,0
   140 FORR=0TO7:POKER*2+1+VC,BP(R,0)
   145 POKER*2+VC,BP(R,1):NEXT
   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,0Q	(�VC�23,0:�VC�29,0:�VC�16,0r	2�VC�28,0:�VC�27,0:R��(VC�30)�	<�XS(7),YS(7),BP(7,1)�	F�R�0�62:�VA:�R�16320,VA:��	P�R�2040�2047�	Z�R,255:��	d�R�1�8:�VC�R�38,R:�:�VC�21,255�	nFL�0:�R�0�7'
xBP(R,0)��(�(1)�170)�50:�R�2�1�VC,BP(R,0)]
�BP(R,1)��(�(1)�200)�55:�R�2�VC,BP(R,1):�:�VC�30,0z
��R�0�7:�R�2�1�VC,BP(R,0)�
��R�2�VC,BP(R,1):��
�� �(VC�30)��0 � 110�
��VC�21,0:�R�0�7�
�XS(R)��(�(1)�2) � 1�
�YS(R)��(�(1)�2) � 1�� XS(R)�0 � XS(R)��1�� YS(R)�0 � YS(R)��1/��:�VC�21,255Z��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:� 250k�1000:� CO��0 � XS(SP)��XS(SP):P�1:� 250�"�V�1,�(V�1)�YS(SP):� P�1 � P�0:� 290�,� �(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,224b
^� 15,255,240,31,255,248,63,255,252�
h� 63,255,252,127,255,254,127,255,254�
r� 127,255,254,127,255,254,127,255,254�
|� 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,128F�� SP��1 � CO��(VC�30):�_�CO��(VC�30) � (2�SP)x�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),bp(7,1)@.If@.r.0.62:.va:.r.16320,va:.@.Ip@.r.2040.2047@.Iz@.r,255:.@.ID@.r.1.8:.vc.r.38,r:.:.vc.21,255@.IN@fl.0:.r.0.7@'JX@bp(r,0)..(.(1).170).50:.r.2.1.vc,bp(r,0)@]J.@bp(r,1)..(.(1).200).55:.r.2.vc,bp(r,1):.:.vc.30,0@ZJ.@.r.0.7:.r.2.1.vc,bp(r,0)@.J.@.r.2.vc,bp(r,1):.@.J.@. .(vc.30)..0 . 110@.J.@.vc.21,0:.r.0.7@.J.@xs(r)..(.(1).2) . 1@.J.@ys(r)..(.(1).2) . 1@EK.@. xs(r).0 . xs(r)..1@.K.@. ys(r).0 . ys(r)..1@/K.@.:.vc.21,255@zK.@.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@RLDA. .(v).26 . ex.0 . xs(sp).1:p.1:.250@>LNA. .(v).45 . ex..0 . xs(sp)..1:p.1:. 250@KLXA.1000:. co..0 . xs(sp)..xs(sp):p.1:. 250@.L"A.v.1,.(v.1).ys(sp):. p.1 . p.0:. 290@.L,A. .(v.1).230 . ys(sp)..1:p.1:. 290@.L6A. .(v.1).50 . ys(sp).1:p.1:. 290@MM@A.1000:. co..0 . ys(sp)..ys(sp):p.1:. 290@YMjA.:. 220@;MtA. 0,127,0,1,255,192,7,255,224@BM.A. 15,255,240,31,255,248,63,255,252@.MHA. 63,255,252,127,255,254,127,255,254@.MRA. 127,255,254,127,255,254,127,255,254@.M.A. 127,255,254,127,255,254,63,255,252@EN.A. 63,255,252,31,255,248,31,255,248@*N.A. 15,255,240,7,255,224,1,255,128@fN.C. sp..1 . co..(vc.30):.@.N.Cco..(vc.30) . (2.sp)@XN.Cco..(vc.30) . (2.sp)@.NFD.@@@
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 8b 09 3c 00 86 58 53  28 37 29 2c 59 53 28 37  |...<..XS(7),YS(7|
00000180  29 2c 42 50 28 37 2c 31  29 00 a9 09 46 00 81 52  |),BP(7,1)...F..R|
00000190  b2 30 a4 36 32 3a 87 56  41 3a 97 52 aa 31 36 33  |.0.62:.VA:.R.163|
000001a0  32 30 2c 56 41 3a 82 00  ba 09 50 00 81 52 b2 32  |20,VA:....P..R.2|
000001b0  30 34 30 a4 32 30 34 37  00 c7 09 5a 00 97 52 2c  |040.2047...Z..R,|
000001c0  32 35 35 3a 82 00 ea 09  64 00 81 52 b2 31 a4 38  |255:....d..R.1.8|
000001d0  3a 97 56 43 aa 52 aa 33  38 2c 52 3a 82 3a 97 56  |:.VC.R.38,R:.:.V|
000001e0  43 aa 32 31 2c 32 35 35  00 fa 09 6e 00 46 4c b2  |C.21,255...n.FL.|
000001f0  30 3a 81 52 b2 30 a4 37  00 27 0a 78 00 42 50 28  |0:.R.0.7.'.x.BP(|
00000200  52 2c 30 29 b2 b5 28 bb  28 31 29 ac 31 37 30 29  |R,0)..(.(1).170)|
00000210  aa 35 30 3a 97 52 ac 32  aa 31 aa 56 43 2c 42 50  |.50:.R.2.1.VC,BP|
00000220  28 52 2c 30 29 00 5d 0a  82 00 42 50 28 52 2c 31  |(R,0).]...BP(R,1|
00000230  29 b2 b5 28 bb 28 31 29  ac 32 30 30 29 aa 35 35  |)..(.(1).200).55|
00000240  3a 97 52 ac 32 aa 56 43  2c 42 50 28 52 2c 31 29  |:.R.2.VC,BP(R,1)|
00000250  3a 82 3a 97 56 43 aa 33  30 2c 30 00 7a 0a 8c 00  |:.:.VC.30,0.z...|
00000260  81 52 b2 30 a4 37 3a 97  52 ac 32 aa 31 aa 56 43  |.R.0.7:.R.2.1.VC|
00000270  2c 42 50 28 52 2c 30 29  00 90 0a 91 00 97 52 ac  |,BP(R,0)......R.|
00000280  32 aa 56 43 2c 42 50 28  52 2c 31 29 3a 82 00 a8  |2.VC,BP(R,1):...|
00000290  0a 96 00 8b 20 c2 28 56  43 aa 33 30 29 b3 b1 30  |.... .(VC.30)..0|
000002a0  20 a7 20 31 31 30 00 bc  0a a0 00 97 56 43 aa 32  | . 110......VC.2|
000002b0  31 2c 30 3a 81 52 b2 30  a4 37 00 d4 0a aa 00 58  |1,0:.R.0.7.....X|
000002c0  53 28 52 29 b2 b5 28 bb  28 31 29 ac 32 29 20 af  |S(R)..(.(1).2) .|
000002d0  20 31 00 ec 0a b4 00 59  53 28 52 29 b2 b5 28 bb  | 1.....YS(R)..(.|
000002e0  28 31 29 ac 32 29 20 af  20 31 00 05 0b be 00 8b  |(1).2) . 1......|
000002f0  20 58 53 28 52 29 b2 30  20 a7 20 58 53 28 52 29  | XS(R).0 . XS(R)|
00000300  b2 ab 31 00 1e 0b c8 00  8b 20 59 53 28 52 29 b2  |..1...... YS(R).|
00000310  30 20 a7 20 59 53 28 52  29 b2 ab 31 00 2f 0b d2  |0 . YS(R)..1./..|
00000320  00 82 3a 97 56 43 aa 32  31 2c 32 35 35 00 5a 0b  |..:.VC.21,255.Z.|
00000330  dc 00 81 53 50 b2 30 a4  37 3a 56 b2 56 43 aa 32  |...SP.0.7:V.VC.2|
00000340  ac 53 50 3a 45 58 b2 c2  28 56 43 aa 31 36 29 20  |.SP:EX..(VC.16) |
00000350  af 20 28 32 ae 53 50 29  00 8c 0b e6 00 8b 20 c2  |. (2.SP)...... .|
00000360  28 56 29 b2 32 35 35 20  af 20 45 58 b2 30 20 a7  |(V).255 . EX.0 .|
00000370  20 97 56 2c 30 3a 97 56  43 aa 31 36 2c c2 28 56  | .V,0:.VC.16,.(V|
00000380  43 aa 31 36 29 aa 32 ae  53 50 00 c4 0b f0 00 8b  |C.16).2.SP......|
00000390  20 c2 28 56 29 b2 30 20  af 20 45 58 b3 b1 30 20  | .(V).0 . EX..0 |
000003a0  a7 20 97 20 56 2c 32 35  35 3a 97 56 43 aa 31 36  |. . V,255:.VC.16|
000003b0  2c c2 28 56 43 aa 31 36  29 ab 45 58 3a 89 20 32  |,.(VC.16).EX:. 2|
000003c0  39 30 00 e9 0b fa 00 97  56 2c c2 28 56 29 aa 58  |90......V,.(V).X|
000003d0  53 28 53 50 29 3a 8b 20  50 b2 31 20 a7 20 50 b2  |S(SP):. P.1 . P.|
000003e0  30 3a 89 20 32 35 30 00  12 0c 04 01 8b 20 c2 28  |0:. 250...... .(|
000003f0  56 29 b3 32 36 20 af 20  45 58 b2 30 20 a7 20 58  |V).26 . EX.0 . X|
00000400  53 28 53 50 29 b2 31 3a  50 b2 31 3a 89 32 35 30  |S(SP).1:P.1:.250|
00000410  00 3e 0c 0e 01 8b 20 c2  28 56 29 b1 34 35 20 af  |.>.... .(V).45 .|
00000420  20 45 58 b3 b1 30 20 a7  20 58 53 28 53 50 29 b2  | EX..0 . XS(SP).|
00000430  ab 31 3a 50 b2 31 3a 89  20 32 35 30 00 6b 0c 18  |.1:P.1:. 250.k..|
00000440  01 8d 31 30 30 30 3a 8b  20 43 4f b3 b1 30 20 a7  |..1000:. CO..0 .|
00000450  20 58 53 28 53 50 29 b2  ab 58 53 28 53 50 29 3a  | XS(SP)..XS(SP):|
00000460  50 b2 31 3a 89 20 32 35  30 00 94 0c 22 01 97 56  |P.1:. 250..."..V|
00000470  aa 31 2c c2 28 56 aa 31  29 aa 59 53 28 53 50 29  |.1,.(V.1).YS(SP)|
00000480  3a 8b 20 50 b2 31 20 a7  20 50 b2 30 3a 89 20 32  |:. P.1 . P.0:. 2|
00000490  39 30 00 bb 0c 2c 01 8b  20 c2 28 56 aa 31 29 b1  |90...,.. .(V.1).|
000004a0  32 33 30 20 a7 20 59 53  28 53 50 29 b2 ab 31 3a  |230 . YS(SP)..1:|
000004b0  50 b2 31 3a 89 20 32 39  30 00 e0 0c 36 01 8b 20  |P.1:. 290...6.. |
000004c0  c2 28 56 aa 31 29 b3 35  30 20 a7 20 59 53 28 53  |.(V.1).50 . YS(S|
000004d0  50 29 b2 31 3a 50 b2 31  3a 89 20 32 39 30 00 0d  |P).1:P.1:. 290..|
000004e0  0d 40 01 8d 31 30 30 30  3a 8b 20 43 4f b3 b1 30  |.@..1000:. CO..0|
000004f0  20 a7 20 59 53 28 53 50  29 b2 ab 59 53 28 53 50  | . YS(SP)..YS(SP|
00000500  29 3a 50 b2 31 3a 89 20  32 39 30 00 19 0d 4a 01  |):P.1:. 290...J.|
00000510  82 3a 89 20 32 32 30 00  3b 0d 54 01 83 20 30 2c  |.:. 220.;.T.. 0,|
00000520  31 32 37 2c 30 2c 31 2c  32 35 35 2c 31 39 32 2c  |127,0,1,255,192,|
00000530  37 2c 32 35 35 2c 32 32  34 00 62 0d 5e 01 83 20  |7,255,224.b.^.. |
00000540  31 35 2c 32 35 35 2c 32  34 30 2c 33 31 2c 32 35  |15,255,240,31,25|
00000550  35 2c 32 34 38 2c 36 33  2c 32 35 35 2c 32 35 32  |5,248,63,255,252|
00000560  00 8b 0d 68 01 83 20 36  33 2c 32 35 35 2c 32 35  |...h.. 63,255,25|
00000570  32 2c 31 32 37 2c 32 35  35 2c 32 35 34 2c 31 32  |2,127,255,254,12|
00000580  37 2c 32 35 35 2c 32 35  34 00 b5 0d 72 01 83 20  |7,255,254...r.. |
00000590  31 32 37 2c 32 35 35 2c  32 35 34 2c 31 32 37 2c  |127,255,254,127,|
000005a0  32 35 35 2c 32 35 34 2c  31 32 37 2c 32 35 35 2c  |255,254,127,255,|
000005b0  32 35 34 00 de 0d 7c 01  83 20 31 32 37 2c 32 35  |254...|.. 127,25|
000005c0  35 2c 32 35 34 2c 31 32  37 2c 32 35 35 2c 32 35  |5,254,127,255,25|
000005d0  34 2c 36 33 2c 32 35 35  2c 32 35 32 00 05 0e 86  |4,63,255,252....|
000005e0  01 83 20 36 33 2c 32 35  35 2c 32 35 32 2c 33 31  |.. 63,255,252,31|
000005f0  2c 32 35 35 2c 32 34 38  2c 33 31 2c 32 35 35 2c  |,255,248,31,255,|
00000600  32 34 38 00 2a 0e 90 01  83 20 31 35 2c 32 35 35  |248.*.... 15,255|
00000610  2c 32 34 30 2c 37 2c 32  35 35 2c 32 32 34 2c 31  |,240,7,255,224,1|
00000620  2c 32 35 35 2c 31 32 38  00 46 0e e8 03 8b 20 53  |,255,128.F.... S|
00000630  50 b2 ab 31 20 a7 20 43  4f b2 c2 28 56 43 aa 33  |P..1 . CO..(VC.3|
00000640  30 29 3a 8e 00 5f 0e f2  03 43 4f b2 c2 28 56 43  |0):.._...CO..(VC|
00000650  aa 33 30 29 20 af 20 28  32 ae 53 50 29 00 78 0e  |.30) . (2.SP).x.|
00000660  fc 03 43 4f b2 c2 28 56  43 aa 33 30 29 20 af 20  |..CO..(VC.30) . |
00000670  28 32 ae 53 50 29 00 7e  0e 06 04 8e 00 00 00     |(2.SP).~.......|
0000067f

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .