Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403_2.adf » Disk2Mar94 » !AWMar94/Goodies/yass/!Yass2/Savers/Blip
!AWMar94/Goodies/yass/!Yass2/Savers/Blip
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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403_2.adf » Disk2Mar94 |
| Filename: | !AWMar94/Goodies/yass/!Yass2/Savers/Blip |
| Read OK: | ✔ |
| File size: | 018F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM 20 30DEFFNblip_start 40PROCclearscreen(-1) 50bl_p%=0 60=0 70 80DEFFNblip_poll 90CASE bl_p% OF 100 WHEN 0 : bl_x%=RND(max_x%):bl_y%=RND(max_y%):bl_r%=8:bl_s%=4+RND(8):bl_p%=1:bl_c%=RND(8)+7 110 WHEN 1 : GCOL0,bl_c%:CIRCLE FILL bl_x%,bl_y%,bl_r% 120 bl_r%+=bl_s%:IF bl_r%>256 THEN bl_p%=2 130 WHEN 2 : IF bl_c%>7 THEN bl_c%=7:bl_r%=8:bl_p%=1:ELSE bl_p%=0 150ENDCASE 151IF now_going%>12000 THEN =TRUE 160=0 170 180DEFFNblip_stop 190=0 200
� ݤblip_start (�clearscreen(-1) 2 bl_p%=0 <=0 F Pݤblip_poll ZȎ bl_p% � dU � 0 : bl_x%=�(max_x%):bl_y%=�(max_y%):bl_r%=8:bl_s%=4+�(8):bl_p%=1:bl_c%=�(8)+7 n, � 1 : �0,bl_c%:ȏ Ȑ bl_x%,bl_y%,bl_r% x1 bl_r%+=bl_s%:� bl_r%>256 � bl_p%=2 �9 � 2 : � bl_c%>7 � bl_c%=7:bl_r%=8:bl_p%=1:� bl_p%=0 �� �� now_going%>12000 � =� �=0 � �ݤblip_stop �=0 � �
00000000 0d 00 0a 05 f4 0d 00 14 04 0d 00 1e 10 dd a4 62 |...............b| 00000010 6c 69 70 5f 73 74 61 72 74 0d 00 28 14 f2 63 6c |lip_start..(..cl| 00000020 65 61 72 73 63 72 65 65 6e 28 2d 31 29 0d 00 32 |earscreen(-1)..2| 00000030 0b 62 6c 5f 70 25 3d 30 0d 00 3c 06 3d 30 0d 00 |.bl_p%=0..<.=0..| 00000040 46 04 0d 00 50 0f dd a4 62 6c 69 70 5f 70 6f 6c |F...P...blip_pol| 00000050 6c 0d 00 5a 0e c8 8e 20 62 6c 5f 70 25 20 ca 0d |l..Z... bl_p% ..| 00000060 00 64 55 20 20 c9 20 30 20 3a 20 62 6c 5f 78 25 |.dU . 0 : bl_x%| 00000070 3d b3 28 6d 61 78 5f 78 25 29 3a 62 6c 5f 79 25 |=.(max_x%):bl_y%| 00000080 3d b3 28 6d 61 78 5f 79 25 29 3a 62 6c 5f 72 25 |=.(max_y%):bl_r%| 00000090 3d 38 3a 62 6c 5f 73 25 3d 34 2b b3 28 38 29 3a |=8:bl_s%=4+.(8):| 000000a0 62 6c 5f 70 25 3d 31 3a 62 6c 5f 63 25 3d b3 28 |bl_p%=1:bl_c%=.(| 000000b0 38 29 2b 37 0d 00 6e 2c 20 20 c9 20 31 20 3a 20 |8)+7..n, . 1 : | 000000c0 e6 30 2c 62 6c 5f 63 25 3a c8 8f 20 c8 90 20 62 |.0,bl_c%:.. .. b| 000000d0 6c 5f 78 25 2c 62 6c 5f 79 25 2c 62 6c 5f 72 25 |l_x%,bl_y%,bl_r%| 000000e0 0d 00 78 31 20 20 20 20 20 20 20 20 20 20 20 62 |..x1 b| 000000f0 6c 5f 72 25 2b 3d 62 6c 5f 73 25 3a e7 20 62 6c |l_r%+=bl_s%:. bl| 00000100 5f 72 25 3e 32 35 36 20 8c 20 62 6c 5f 70 25 3d |_r%>256 . bl_p%=| 00000110 32 0d 00 82 39 20 20 c9 20 32 20 3a 20 e7 20 62 |2...9 . 2 : . b| 00000120 6c 5f 63 25 3e 37 20 8c 20 62 6c 5f 63 25 3d 37 |l_c%>7 . bl_c%=7| 00000130 3a 62 6c 5f 72 25 3d 38 3a 62 6c 5f 70 25 3d 31 |:bl_r%=8:bl_p%=1| 00000140 3a 8b 20 62 6c 5f 70 25 3d 30 0d 00 96 05 cb 0d |:. bl_p%=0......| 00000150 00 97 1b e7 20 6e 6f 77 5f 67 6f 69 6e 67 25 3e |.... now_going%>| 00000160 31 32 30 30 30 20 8c 20 3d b9 0d 00 a0 06 3d 30 |12000 . =.....=0| 00000170 0d 00 aa 04 0d 00 b4 0f dd a4 62 6c 69 70 5f 73 |..........blip_s| 00000180 74 6f 70 0d 00 be 06 3d 30 0d 00 c8 04 0d ff |top....=0......| 0000018f
.