Home » Archimedes archive » Micro User » MU 1992-02.adf » PD » !PlayerMod/UserBits/Flasher
!PlayerMod/UserBits/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 1992-02.adf » PD |
| Filename: | !PlayerMod/UserBits/Flasher |
| Read OK: | ✔ |
| File size: | 021C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > UserBits.Flasher 20REM I dare anyone to say that this prog is silly ! Try running it in the dark 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%,wks% 90IF wks%<=0 THEN MODE 0:PRINT "Try running a SoundTracker tune first !":END 100REPEAT 110 FOR l%=0 TO 3 120 z%=!(point%+&A20+(l%*32)) 130 VDU 19,1+l%,16,FNm(z%,0),FNm(z%,8),FNm(z%,16):WAIT 140 NEXT 150UNTIL FALSE 160DEF FNm(val%,shift%):=(val%>>shift%) MOD 256
� > UserBits.Flasher Q� I dare anyone to say that this prog is silly ! Try running it in the dark � 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 P7ș "XOS_Module",18,"TrackerModule" � ,,,point%,wks% ZA� wks%<=0 � � 0:� "Try running a SoundTracker tune first !":� d� n � l%=0 � 3 x z%=!(point%+&A20+(l%*32)) �1 � 19,1+l%,16,�m(z%,0),�m(z%,8),�m(z%,16):Ȗ � � �� � �+� �m(val%,shift%):=(val%>>shift%) � 256 �
00000000 0d 00 0a 18 f4 20 3e 20 55 73 65 72 42 69 74 73 |..... > UserBits| 00000010 2e 46 6c 61 73 68 65 72 0d 00 14 51 f4 20 20 20 |.Flasher...Q. | 00000020 49 20 64 61 72 65 20 61 6e 79 6f 6e 65 20 74 6f |I dare anyone to| 00000030 20 73 61 79 20 74 68 61 74 20 74 68 69 73 20 70 | say that this p| 00000040 72 6f 67 20 69 73 20 73 69 6c 6c 79 20 21 20 54 |rog is silly ! T| 00000050 72 79 20 72 75 6e 6e 69 6e 67 20 69 74 20 69 6e |ry running it in| 00000060 20 74 68 65 20 64 61 72 6b 0d 00 1e 20 f4 20 20 | the dark... . | 00000070 20 42 79 20 4e 69 63 6b 20 53 6d 69 74 68 2c 20 | By Nick Smith, | 00000080 32 32 2d 4f 63 74 2d 39 30 0d 00 28 05 3a 0d 00 |22-Oct-90..(.:..| 00000090 32 0a eb 20 31 32 3a 87 0d 00 3c 35 e6 20 30 2c |2.. 12:...<5. 0,| 000000a0 31 3a c8 93 20 c8 90 20 30 2c 30 2c 36 32 38 2c |1:.. .. 0,0,628,| 000000b0 35 30 30 3a e6 20 30 2c 32 3a c8 93 20 c8 90 20 |500:. 0,2:.. .. | 000000c0 36 34 30 2c 30 2c 36 32 38 2c 35 30 30 0d 00 46 |640,0,628,500..F| 000000d0 39 e6 20 30 2c 33 3a c8 93 20 c8 90 20 30 2c 35 |9. 0,3:.. .. 0,5| 000000e0 31 32 2c 36 32 38 2c 35 30 30 3a e6 20 30 2c 34 |12,628,500:. 0,4| 000000f0 3a c8 93 20 c8 90 20 36 34 30 2c 35 31 32 2c 36 |:.. .. 640,512,6| 00000100 32 38 2c 35 30 30 0d 00 50 37 c8 99 20 22 58 4f |28,500..P7.. "XO| 00000110 53 5f 4d 6f 64 75 6c 65 22 2c 31 38 2c 22 54 72 |S_Module",18,"Tr| 00000120 61 63 6b 65 72 4d 6f 64 75 6c 65 22 20 b8 20 2c |ackerModule" . ,| 00000130 2c 2c 70 6f 69 6e 74 25 2c 77 6b 73 25 0d 00 5a |,,point%,wks%..Z| 00000140 41 e7 20 77 6b 73 25 3c 3d 30 20 8c 20 eb 20 30 |A. wks%<=0 . . 0| 00000150 3a f1 20 22 54 72 79 20 72 75 6e 6e 69 6e 67 20 |:. "Try running | 00000160 61 20 53 6f 75 6e 64 54 72 61 63 6b 65 72 20 74 |a SoundTracker t| 00000170 75 6e 65 20 66 69 72 73 74 20 21 22 3a e0 0d 00 |une first !":...| 00000180 64 05 f5 0d 00 6e 0f 20 e3 20 6c 25 3d 30 20 b8 |d....n. . l%=0 .| 00000190 20 33 0d 00 78 1f 20 20 7a 25 3d 21 28 70 6f 69 | 3..x. z%=!(poi| 000001a0 6e 74 25 2b 26 41 32 30 2b 28 6c 25 2a 33 32 29 |nt%+&A20+(l%*32)| 000001b0 29 0d 00 82 31 20 20 ef 20 31 39 2c 31 2b 6c 25 |)...1 . 19,1+l%| 000001c0 2c 31 36 2c a4 6d 28 7a 25 2c 30 29 2c a4 6d 28 |,16,.m(z%,0),.m(| 000001d0 7a 25 2c 38 29 2c a4 6d 28 7a 25 2c 31 36 29 3a |z%,8),.m(z%,16):| 000001e0 c8 96 0d 00 8c 06 20 ed 0d 00 96 07 fd 20 a3 0d |...... ...... ..| 000001f0 00 a0 2b dd 20 a4 6d 28 76 61 6c 25 2c 73 68 69 |..+. .m(val%,shi| 00000200 66 74 25 29 3a 3d 28 76 61 6c 25 3e 3e 73 68 69 |ft%):=(val%>>shi| 00000210 66 74 25 29 20 83 20 32 35 36 0d ff |ft%) . 256..| 0000021c
.