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:

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