Home » Archimedes archive » Micro User » MU 1991-05.adf » PDStuff » Music/!PlayerMod/Bits/Flasher
Music/!PlayerMod/Bits/Flasher
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 » Archimedes archive » Micro User » MU 1991-05.adf » PDStuff |
Filename: | Music/!PlayerMod/Bits/Flasher |
Read OK: | ✔ |
File size: | 02AD bytes |
Load address: | 0000 |
Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Micro User » MU 1991-05.adf » PDStuff » Music/!PlayerMod/Bits/Flasher
- Archimedes archive » Micro User » MU 1991-07.adf » PD-Stuff » Music/!PlayerMod/Bits/Flasher
File contents
10REM > Flasher 20REM I dare anyone to say that this prog is silly ! 30REM By Nick Smith, 22-Oct-90 40: 50MODE 12:OFF 60GCOL 0,1:RECTANGLE FILL 0,0,628,500 70GCOL 0,2:RECTANGLE FILL 640,0,628,500 80GCOL 0,3:RECTANGLE FILL 0,512,628,500 90GCOL 0,4:RECTANGLE FILL 640,512,628,500 100SYS "XOS_Module",18,"TrackerModule" TO ,,,point% 110: 120REPEAT 130 z1%=!(point%+&A1C+4):z2%=!(point%+&A1C+36) 140 z3%=!(point%+&A1C+68):z4%=!(point%+&A1C+100) 150 VDU 19,1,16,(z1%>>0) MOD 256,(z1%>>8) MOD 256,(z1%>>16) MOD 256 160 WAIT 170 VDU 19,2,16,(z2%>>0) MOD 256,(z2%>>8) MOD 256,(z2%>>16) MOD 256 180 WAIT 190 VDU 19,3,16,(z3%>>0) MOD 256,(z3%>>8) MOD 256,(z3%>>16) MOD 256 200 WAIT 210 VDU 19,4,16,(z4%>>0) MOD 256,(z4%>>8) MOD 256,(z4%>>16) MOD 256 220 WAIT 230UNTIL FALSE 240: 250END
� > Flasher 6� I dare anyone to say that this prog is silly ! � By Nick Smith, 22-Oct-90 (: 2 � 12:� <� 0,1:ȓ Ȑ 0,0,628,500 F� 0,2:ȓ Ȑ 640,0,628,500 P� 0,3:ȓ Ȑ 0,512,628,500 Z� 0,4:ȓ Ȑ 640,512,628,500 d2ș "XOS_Module",18,"TrackerModule" � ,,,point% n: x� �0 z1%=!(point%+&A1C+4):z2%=!(point%+&A1C+36) �2 z3%=!(point%+&A1C+68):z4%=!(point%+&A1C+100) �= � 19,1,16,(z1%>>0) � 256,(z1%>>8) � 256,(z1%>>16) � 256 � Ȗ �= � 19,2,16,(z2%>>0) � 256,(z2%>>8) � 256,(z2%>>16) � 256 � Ȗ �= � 19,3,16,(z3%>>0) � 256,(z3%>>8) � 256,(z3%>>16) � 256 � Ȗ �= � 19,4,16,(z4%>>0) � 256,(z4%>>8) � 256,(z4%>>16) � 256 � Ȗ �� � �: �� �
00000000 0d 00 0a 0f f4 20 3e 20 46 6c 61 73 68 65 72 0d |..... > Flasher.| 00000010 00 14 36 f4 20 20 20 49 20 64 61 72 65 20 61 6e |..6. I dare an| 00000020 79 6f 6e 65 20 74 6f 20 73 61 79 20 74 68 61 74 |yone to say that| 00000030 20 74 68 69 73 20 70 72 6f 67 20 69 73 20 73 69 | this prog is si| 00000040 6c 6c 79 20 21 0d 00 1e 20 f4 20 20 20 42 79 20 |lly !... . By | 00000050 4e 69 63 6b 20 53 6d 69 74 68 2c 20 32 32 2d 4f |Nick Smith, 22-O| 00000060 63 74 2d 39 30 0d 00 28 05 3a 0d 00 32 0a eb 20 |ct-90..(.:..2.. | 00000070 31 32 3a 87 0d 00 3c 1b e6 20 30 2c 31 3a c8 93 |12:...<.. 0,1:..| 00000080 20 c8 90 20 30 2c 30 2c 36 32 38 2c 35 30 30 0d | .. 0,0,628,500.| 00000090 00 46 1d e6 20 30 2c 32 3a c8 93 20 c8 90 20 36 |.F.. 0,2:.. .. 6| 000000a0 34 30 2c 30 2c 36 32 38 2c 35 30 30 0d 00 50 1d |40,0,628,500..P.| 000000b0 e6 20 30 2c 33 3a c8 93 20 c8 90 20 30 2c 35 31 |. 0,3:.. .. 0,51| 000000c0 32 2c 36 32 38 2c 35 30 30 0d 00 5a 1f e6 20 30 |2,628,500..Z.. 0| 000000d0 2c 34 3a c8 93 20 c8 90 20 36 34 30 2c 35 31 32 |,4:.. .. 640,512| 000000e0 2c 36 32 38 2c 35 30 30 0d 00 64 32 c8 99 20 22 |,628,500..d2.. "| 000000f0 58 4f 53 5f 4d 6f 64 75 6c 65 22 2c 31 38 2c 22 |XOS_Module",18,"| 00000100 54 72 61 63 6b 65 72 4d 6f 64 75 6c 65 22 20 b8 |TrackerModule" .| 00000110 20 2c 2c 2c 70 6f 69 6e 74 25 0d 00 6e 05 3a 0d | ,,,point%..n.:.| 00000120 00 78 05 f5 0d 00 82 30 20 20 7a 31 25 3d 21 28 |.x.....0 z1%=!(| 00000130 70 6f 69 6e 74 25 2b 26 41 31 43 2b 34 29 3a 7a |point%+&A1C+4):z| 00000140 32 25 3d 21 28 70 6f 69 6e 74 25 2b 26 41 31 43 |2%=!(point%+&A1C| 00000150 2b 33 36 29 0d 00 8c 32 20 20 7a 33 25 3d 21 28 |+36)...2 z3%=!(| 00000160 70 6f 69 6e 74 25 2b 26 41 31 43 2b 36 38 29 3a |point%+&A1C+68):| 00000170 7a 34 25 3d 21 28 70 6f 69 6e 74 25 2b 26 41 31 |z4%=!(point%+&A1| 00000180 43 2b 31 30 30 29 0d 00 96 3d 20 20 ef 20 31 39 |C+100)...= . 19| 00000190 2c 31 2c 31 36 2c 28 7a 31 25 3e 3e 30 29 20 83 |,1,16,(z1%>>0) .| 000001a0 20 32 35 36 2c 28 7a 31 25 3e 3e 38 29 20 83 20 | 256,(z1%>>8) . | 000001b0 32 35 36 2c 28 7a 31 25 3e 3e 31 36 29 20 83 20 |256,(z1%>>16) . | 000001c0 32 35 36 0d 00 a0 08 20 20 c8 96 0d 00 aa 3d 20 |256.... .....= | 000001d0 20 ef 20 31 39 2c 32 2c 31 36 2c 28 7a 32 25 3e | . 19,2,16,(z2%>| 000001e0 3e 30 29 20 83 20 32 35 36 2c 28 7a 32 25 3e 3e |>0) . 256,(z2%>>| 000001f0 38 29 20 83 20 32 35 36 2c 28 7a 32 25 3e 3e 31 |8) . 256,(z2%>>1| 00000200 36 29 20 83 20 32 35 36 0d 00 b4 08 20 20 c8 96 |6) . 256.... ..| 00000210 0d 00 be 3d 20 20 ef 20 31 39 2c 33 2c 31 36 2c |...= . 19,3,16,| 00000220 28 7a 33 25 3e 3e 30 29 20 83 20 32 35 36 2c 28 |(z3%>>0) . 256,(| 00000230 7a 33 25 3e 3e 38 29 20 83 20 32 35 36 2c 28 7a |z3%>>8) . 256,(z| 00000240 33 25 3e 3e 31 36 29 20 83 20 32 35 36 0d 00 c8 |3%>>16) . 256...| 00000250 08 20 20 c8 96 0d 00 d2 3d 20 20 ef 20 31 39 2c |. .....= . 19,| 00000260 34 2c 31 36 2c 28 7a 34 25 3e 3e 30 29 20 83 20 |4,16,(z4%>>0) . | 00000270 32 35 36 2c 28 7a 34 25 3e 3e 38 29 20 83 20 32 |256,(z4%>>8) . 2| 00000280 35 36 2c 28 7a 34 25 3e 3e 31 36 29 20 83 20 32 |56,(z4%>>16) . 2| 00000290 35 36 0d 00 dc 08 20 20 c8 96 0d 00 e6 07 fd 20 |56.... ....... | 000002a0 a3 0d 00 f0 05 3a 0d 00 fa 05 e0 0d ff |.....:.......| 000002ad