Home » Archimedes archive » Micro User » MU 1991-10.adf » PD-Stuff » 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-10.adf » PD-Stuff |
| Filename: | Music/!PlayerMod/Bits/Flasher |
| Read OK: | ✔ |
| File size: | 01B2 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
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:GCOL 0,2:RECTANGLE FILL 640,0,628,500 70GCOL 0,3:RECTANGLE FILL 0,512,628,500:GCOL 0,4:RECTANGLE FILL 640,512,628,500 80SYS "XOS_Module",18,"TrackerModule" TO ,,,point% 90REPEAT 100 FOR l%=0 TO 3 110 z%=!(point%+&A20+(l%*32)) 120 VDU 19,1+l%,16,FNm(z%,0),FNm(z%,8),FNm(z%,16):WAIT 130 NEXT 140UNTIL FALSE 150DEF FNm(val%,shift%):=(val%>>shift%) MOD 256
� > Flasher 6� I dare anyone to say that this prog is silly ! � By Nick Smith, 22-Oct-90 (: 2 � 12:� <5� 0,1:ȓ Ȑ 0,0,628,500:� 0,2:ȓ Ȑ 640,0,628,500 F9� 0,3:ȓ Ȑ 0,512,628,500:� 0,4:ȓ Ȑ 640,512,628,500 P2ș "XOS_Module",18,"TrackerModule" � ,,,point% Z� d � l%=0 � 3 n z%=!(point%+&A20+(l%*32)) x1 � 19,1+l%,16,�m(z%,0),�m(z%,8),�m(z%,16):Ȗ � � �� � �+� �m(val%,shift%):=(val%>>shift%) � 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 35 e6 20 30 2c 31 3a c8 93 |12:...<5. 0,1:..| 00000080 20 c8 90 20 30 2c 30 2c 36 32 38 2c 35 30 30 3a | .. 0,0,628,500:| 00000090 e6 20 30 2c 32 3a c8 93 20 c8 90 20 36 34 30 2c |. 0,2:.. .. 640,| 000000a0 30 2c 36 32 38 2c 35 30 30 0d 00 46 39 e6 20 30 |0,628,500..F9. 0| 000000b0 2c 33 3a c8 93 20 c8 90 20 30 2c 35 31 32 2c 36 |,3:.. .. 0,512,6| 000000c0 32 38 2c 35 30 30 3a e6 20 30 2c 34 3a c8 93 20 |28,500:. 0,4:.. | 000000d0 c8 90 20 36 34 30 2c 35 31 32 2c 36 32 38 2c 35 |.. 640,512,628,5| 000000e0 30 30 0d 00 50 32 c8 99 20 22 58 4f 53 5f 4d 6f |00..P2.. "XOS_Mo| 000000f0 64 75 6c 65 22 2c 31 38 2c 22 54 72 61 63 6b 65 |dule",18,"Tracke| 00000100 72 4d 6f 64 75 6c 65 22 20 b8 20 2c 2c 2c 70 6f |rModule" . ,,,po| 00000110 69 6e 74 25 0d 00 5a 05 f5 0d 00 64 0f 20 e3 20 |int%..Z....d. . | 00000120 6c 25 3d 30 20 b8 20 33 0d 00 6e 1f 20 20 7a 25 |l%=0 . 3..n. z%| 00000130 3d 21 28 70 6f 69 6e 74 25 2b 26 41 32 30 2b 28 |=!(point%+&A20+(| 00000140 6c 25 2a 33 32 29 29 0d 00 78 31 20 20 ef 20 31 |l%*32))..x1 . 1| 00000150 39 2c 31 2b 6c 25 2c 31 36 2c a4 6d 28 7a 25 2c |9,1+l%,16,.m(z%,| 00000160 30 29 2c a4 6d 28 7a 25 2c 38 29 2c a4 6d 28 7a |0),.m(z%,8),.m(z| 00000170 25 2c 31 36 29 3a c8 96 0d 00 82 06 20 ed 0d 00 |%,16):...... ...| 00000180 8c 07 fd 20 a3 0d 00 96 2b dd 20 a4 6d 28 76 61 |... ....+. .m(va| 00000190 6c 25 2c 73 68 69 66 74 25 29 3a 3d 28 76 61 6c |l%,shift%):=(val| 000001a0 25 3e 3e 73 68 69 66 74 25 29 20 83 20 32 35 36 |%>>shift%) . 256| 000001b0 0d ff |..| 000001b2
.