Home » Personal collection » Commodore disks » disk65a_programs_1.d64 » bouncing around
bouncing around
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: | bouncing around |
| Read OK: | ✔ |
| File size: | 0219 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Personal collection » Commodore disks » disk50a2_progs1.d64 » bouncing around
- Personal collection » Commodore disks » disk65a_programs_1.d64 » bouncing around
- Personal collection » Commodore tapes » Commodore_64 » drawer_tr_tape01a_d60_c64_tape.wav » bouncing around
File contents
10 PRINT"<white>";CHR$(147);
20 POKE 53280,7:POKE 53281,6
22 FOR E=1TO100
23 X=INT(RND(1)*40):Y=INT(RND(1)*25)
24 IF X=1 AND Y=1 THEN 23
25 IF X=40 AND Y=25 THEN 23
28 IF PEEK(1024+X+Y*40)<>32 THEN 23
29 POKE 211,X:POKE214,Y:SYS58732:PRINT"<yellow><reverse on> <rev off>";:NEXT:PRINT"<white>";
30 X=1:Y=1
40 DX=1:DY=1
50 POKE 1024+X+40*Y,81
60 FOR T=1TO10:NEXT:YD=0
70 POKE 1024+X+40*Y,32
80 X=X+DX
90 IF X<=0 OR X>=39 OR PEEK(1024+X+Y*40)<>32 THEN DX=-DX:GOTO130
100 Y=Y+DY:DO=1
110 IF Y<=0 OR Y>=24 OR PEEK(1024+X+Y*40)<>32 THEN DY=-DY:GOTO130
120 GOTO 50
130 IF YD=0 THEN X=X+DX:GOTO100
140 IF YD=1 THEN Y=Y+DY:GOTO50
�"";�(147); * � 53280,7:� 53281,6 8 � E�1�100 V X��(�(1)�40):Y��(�(1)�25) k � X�1 � Y�1 � 23 � � X�40 � Y�25 � 23 � � �(1024�X�Y�40)��32 � 23 � � 211,X:�214,Y:�58732:�"� �";:�:�""; � X�1:Y�1 �( DX�1:DY�1 �2 � 1024�X�40�Y,81 < � T�1�10:�:YD�0 # F � 1024�X�40�Y,32 . P X�X�DX t Z � X��0 � X��39 � �(1024�X�Y�40)��32 � DX��DX:�130 � d Y�Y�DY:DO�1 � n � Y��0 � Y��24 � �(1024�X�Y�40)��32 � DY��DY:�130 � x � 50 � � YD�0 � X�X�DX:�100 � � YD�1 � Y�Y�DY:�50
RHJ@."E";.(147);@*HT@. 53280,7:. 53281,6@8HV@. e.1.100@vHW@x..(.(1).40):y..(.(1).25)@KHX@. x.1 . y.1 . 23@.HY@. x.40 . y.25 . 23@.H£@. .(1024.x.y.40)..32 . 23@.H]@. 211,x:.214,y:.58732:.".R .";:.:."E";@.H.@x.1:y.1@.H(@dx.1:dy.1@.H2@. 1024.x.40.y,81@NI<@. t.1.10:.:yd.0@#If@. 1024.x.40.y,32@.Ip@x.x.dx@TIz@. x..0 . x..39 . .(1024.x.y.40)..32 . dx..dx:.130 @.ID@y.y.dy:do.1 @.IN@. y..0 . y..24 . .(1024.x.y.40)..32 . dy..dy:.130 @.IX@. 50@@J.@. yd.0 . x.x.dx:.100@XJ.@. yd.1 . y.y.dy:.50@@@
00000000 12 08 0a 00 99 22 05 22 3b c7 28 31 34 37 29 3b |.....".";.(147);| 00000010 00 2a 08 14 00 97 20 35 33 32 38 30 2c 37 3a 97 |.*.... 53280,7:.| 00000020 20 35 33 32 38 31 2c 36 00 38 08 16 00 81 20 45 | 53281,6.8.... E| 00000030 b2 31 a4 31 30 30 00 56 08 17 00 58 b2 b5 28 bb |.1.100.V...X..(.| 00000040 28 31 29 ac 34 30 29 3a 59 b2 b5 28 bb 28 31 29 |(1).40):Y..(.(1)| 00000050 ac 32 35 29 00 6b 08 18 00 8b 20 58 b2 31 20 af |.25).k.... X.1 .| 00000060 20 59 b2 31 20 a7 20 32 33 00 82 08 19 00 8b 20 | Y.1 . 23...... | 00000070 58 b2 34 30 20 af 20 59 b2 32 35 20 a7 20 32 33 |X.40 . Y.25 . 23| 00000080 00 a0 08 1c 00 8b 20 c2 28 31 30 32 34 aa 58 aa |...... .(1024.X.| 00000090 59 ac 34 30 29 b3 b1 33 32 20 a7 20 32 33 00 cb |Y.40)..32 . 23..| 000000a0 08 1d 00 97 20 32 31 31 2c 58 3a 97 32 31 34 2c |.... 211,X:.214,| 000000b0 59 3a 9e 35 38 37 33 32 3a 99 22 9e 12 20 92 22 |Y:.58732:.".. ."| 000000c0 3b 3a 82 3a 99 22 05 22 3b 00 d7 08 1e 00 58 b2 |;:.:.".";.....X.| 000000d0 31 3a 59 b2 31 00 e5 08 28 00 44 58 b2 31 3a 44 |1:Y.1...(.DX.1:D| 000000e0 59 b2 31 00 fa 08 32 00 97 20 31 30 32 34 aa 58 |Y.1...2.. 1024.X| 000000f0 aa 34 30 ac 59 2c 38 31 00 0e 09 3c 00 81 20 54 |.40.Y,81...<.. T| 00000100 b2 31 a4 31 30 3a 82 3a 59 44 b2 30 00 23 09 46 |.1.10:.:YD.0.#.F| 00000110 00 97 20 31 30 32 34 aa 58 aa 34 30 ac 59 2c 33 |.. 1024.X.40.Y,3| 00000120 32 00 2e 09 50 00 58 b2 58 aa 44 58 00 74 09 5a |2...P.X.X.DX.t.Z| 00000130 00 8b 20 58 b3 b2 30 20 b0 20 58 b1 b2 33 39 20 |.. X..0 . X..39 | 00000140 b0 20 c2 28 31 30 32 34 aa 58 aa 59 ac 34 30 29 |. .(1024.X.Y.40)| 00000150 b3 b1 33 32 20 a7 20 44 58 b2 ab 44 58 3a 89 31 |..32 . DX..DX:.1| 00000160 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |30 | 00000170 20 20 00 9d 09 64 00 59 b2 59 aa 44 59 3a 44 4f | ...d.Y.Y.DY:DO| 00000180 b2 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.1 | 00000190 20 20 20 20 20 20 20 20 20 20 20 00 de 09 6e 00 | ...n.| 000001a0 8b 20 59 b3 b2 30 20 b0 20 59 b1 b2 32 34 20 b0 |. Y..0 . Y..24 .| 000001b0 20 c2 28 31 30 32 34 aa 58 aa 59 ac 34 30 29 b3 | .(1024.X.Y.40).| 000001c0 b1 33 32 20 a7 20 44 59 b2 ab 44 59 3a 89 31 33 |.32 . DY..DY:.13| 000001d0 30 20 20 20 20 20 20 20 20 20 20 20 00 e7 09 78 |0 ...x| 000001e0 00 89 20 35 30 00 00 0a 82 00 8b 20 59 44 b2 30 |.. 50...... YD.0| 000001f0 20 a7 20 58 b2 58 aa 44 58 3a 89 31 30 30 00 18 | . X.X.DX:.100..| 00000200 0a 8c 00 8b 20 59 44 b2 31 20 a7 20 59 b2 59 aa |.... YD.1 . Y.Y.| 00000210 44 59 3a 89 35 30 00 00 00 |DY:.50...| 00000219
.