Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape06b_c15_acorn_woozbase.wav » Music!1

Music!1

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 » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape06b_c15_acorn_woozbase.wav
Filename: Music!1
Read OK:
File size: 0281 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10 GCOL 0,3
   20 VDU 23,128,85,170,85,170,85,170,85,170
   30 MODE 5
   40 FOR A=1 TO 639
   50 COLOUR RND(4)-1
   60 PRINT CHR$(128);
   70 NEXT
   80 PRINT
   90 VDU 28,1,18,18,10
  100 FOR A=1 TO 20:PRINT:NEXT
  110 free=3000
  120 PROC_memory
  130 PROC_keyboard
  140 IF free=0 THEN PROC_out
  150 GOTO 120
  160 DEFPROC_memory
  170 dr=free/3
  180 FOR times=1 TO 8
  190 MOVE 0,times
  200 DRAW dr,times
  210 DRAW 1000,times
  220 NEXT
  230 ENDPROC
  240 DEFPROC_keyboard
  250 INPUT;command$
  260 fcommand$=MID$(command$,1,1)
  270 IF fcommand$="K"THEN *SAVE MUSIC 200 5000
  280 IF fcommand$="K"THEN PRINTfree:ENDPROC
  290 IF fcommand$="L"THEN *LOAD MUSIC 200 5000
  300 IF fcommand$="L"THEN INPUT;free:ENDPROC
  310 IF fcommand$="S"THEN PROC_note:ENDPROC
  320 IF fcommand$="P"THEN PROC_play:ENDPROC
  330 PRINT"Mistake!!. No such command"
  340 GOTO 250


 � 0,3
) � 23,128,85,170,85,170,85,170,85,170
 � 5
( � A=1 � 639
2
 � �(4)-1
< � �(128);
F �
P �
Z � 28,1,18,18,10
d � A=1 � 20:�:�
n free=3000
x
 �_memory
� �_keyboard
� � free=0 � �_out
� � �Dx@
� ��_memory
� dr=free/3
� � times=1 � 8
� � 0,times
� � dr,times
� � 1000,times
� �
� �
� ��_keyboard
� �;command$
 fcommand$=�command$,1,1)
* � fcommand$="K"� *SAVE MUSIC 200 5000
 � fcommand$="K"� �free:�
"* � fcommand$="L"� *LOAD MUSIC 200 5000
, � fcommand$="L"� �;free:�
6 � fcommand$="S"� �_note:�
@ � fcommand$="P"� �_play:�
J" �"Mistake!!. No such command"
T � �dz@
�
00000000  0d 00 0a 0a 20 e6 20 30  2c 33 0d 00 14 29 20 ef  |.... . 0,3...) .|
00000010  20 32 33 2c 31 32 38 2c  38 35 2c 31 37 30 2c 38  | 23,128,85,170,8|
00000020  35 2c 31 37 30 2c 38 35  2c 31 37 30 2c 38 35 2c  |5,170,85,170,85,|
00000030  31 37 30 0d 00 1e 08 20  eb 20 35 0d 00 28 10 20  |170.... . 5..(. |
00000040  e3 20 41 3d 31 20 b8 20  36 33 39 0d 00 32 0d 20  |. A=1 . 639..2. |
00000050  fb 20 b3 28 34 29 2d 31  0d 00 3c 0e 20 f1 20 bd  |. .(4)-1..<. . .|
00000060  28 31 32 38 29 3b 0d 00  46 06 20 ed 0d 00 50 06  |(128);..F. ...P.|
00000070  20 f1 0d 00 5a 14 20 ef  20 32 38 2c 31 2c 31 38  | ...Z. . 28,1,18|
00000080  2c 31 38 2c 31 30 0d 00  64 13 20 e3 20 41 3d 31  |,18,10..d. . A=1|
00000090  20 b8 20 32 30 3a f1 3a  ed 0d 00 6e 0e 20 66 72  | . 20:.:...n. fr|
000000a0  65 65 3d 33 30 30 30 0d  00 78 0d 20 f2 5f 6d 65  |ee=3000..x. ._me|
000000b0  6d 6f 72 79 0d 00 82 0f  20 f2 5f 6b 65 79 62 6f  |mory.... ._keybo|
000000c0  61 72 64 0d 00 8c 15 20  e7 20 66 72 65 65 3d 30  |ard.... . free=0|
000000d0  20 8c 20 f2 5f 6f 75 74  0d 00 96 0b 20 e5 20 8d  | . ._out.... . .|
000000e0  44 78 40 0d 00 a0 0e 20  dd f2 5f 6d 65 6d 6f 72  |Dx@.... .._memor|
000000f0  79 0d 00 aa 0e 20 64 72  3d 66 72 65 65 2f 33 0d  |y.... dr=free/3.|
00000100  00 b4 12 20 e3 20 74 69  6d 65 73 3d 31 20 b8 20  |... . times=1 . |
00000110  38 0d 00 be 0e 20 ec 20  30 2c 74 69 6d 65 73 0d  |8.... . 0,times.|
00000120  00 c8 0f 20 df 20 64 72  2c 74 69 6d 65 73 0d 00  |... . dr,times..|
00000130  d2 11 20 df 20 31 30 30  30 2c 74 69 6d 65 73 0d  |.. . 1000,times.|
00000140  00 dc 06 20 ed 0d 00 e6  06 20 e1 0d 00 f0 10 20  |... ..... ..... |
00000150  dd f2 5f 6b 65 79 62 6f  61 72 64 0d 00 fa 0f 20  |.._keyboard.... |
00000160  e8 3b 63 6f 6d 6d 61 6e  64 24 0d 01 04 1d 20 66  |.;command$.... f|
00000170  63 6f 6d 6d 61 6e 64 24  3d c1 63 6f 6d 6d 61 6e  |command$=.comman|
00000180  64 24 2c 31 2c 31 29 0d  01 0e 2a 20 e7 20 66 63  |d$,1,1)...* . fc|
00000190  6f 6d 6d 61 6e 64 24 3d  22 4b 22 8c 20 2a 53 41  |ommand$="K". *SA|
000001a0  56 45 20 4d 55 53 49 43  20 32 30 30 20 35 30 30  |VE MUSIC 200 500|
000001b0  30 0d 01 18 1d 20 e7 20  66 63 6f 6d 6d 61 6e 64  |0.... . fcommand|
000001c0  24 3d 22 4b 22 8c 20 f1  66 72 65 65 3a e1 0d 01  |$="K". .free:...|
000001d0  22 2a 20 e7 20 66 63 6f  6d 6d 61 6e 64 24 3d 22  |"* . fcommand$="|
000001e0  4c 22 8c 20 2a 4c 4f 41  44 20 4d 55 53 49 43 20  |L". *LOAD MUSIC |
000001f0  32 30 30 20 35 30 30 30  0d 01 2c 1e 20 e7 20 66  |200 5000..,. . f|
00000200  63 6f 6d 6d 61 6e 64 24  3d 22 4c 22 8c 20 e8 3b  |command$="L". .;|
00000210  66 72 65 65 3a e1 0d 01  36 1e 20 e7 20 66 63 6f  |free:...6. . fco|
00000220  6d 6d 61 6e 64 24 3d 22  53 22 8c 20 f2 5f 6e 6f  |mmand$="S". ._no|
00000230  74 65 3a e1 0d 01 40 1e  20 e7 20 66 63 6f 6d 6d  |te:...@. . fcomm|
00000240  61 6e 64 24 3d 22 50 22  8c 20 f2 5f 70 6c 61 79  |and$="P". ._play|
00000250  3a e1 0d 01 4a 22 20 f1  22 4d 69 73 74 61 6b 65  |:...J" ."Mistake|
00000260  21 21 2e 20 4e 6f 20 73  75 63 68 20 63 6f 6d 6d  |!!. No such comm|
00000270  61 6e 64 22 0d 01 54 0b  20 e5 20 8d 64 7a 40 0d  |and"..T. . .dz@.|
00000280  ff                                                |.|
00000281
Music!1.m0
Music!1.m1
Music!1.m2
Music!1.m4
Music!1.m5