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