Home » Personal collection » Commodore tapes » Commodore_64 » drawer_tr_tape01a_d60_c64_tape.wav » music-start
music-start
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 » Commodore tapes » Commodore_64 » drawer_tr_tape01a_d60_c64_tape.wav |
| Filename: | music-start |
| Read OK: | ✔ |
| File size: | 04F4 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
10 DIMLO(3):DIMHI(3)
20 PRINTCHR$(147);CHR$(5);:DIMX(4,8):GOTO210
30 POKE 53280,0:POKE 53281,0:VL=3
40 POKE 214,12:A$="TITLE OF MUSIC"
50 POKE 211,20-(LEN(A$)/2)
60 SYS58732:PRINT;A$:FORL=54272TO54296:POKEL,0:NEXT:POKE54296,3
70 READ VO
80 IF INT(VO)<>VO THEN 160
90 IF VO=0 THEN READVL:POKE54296,VL:GOTO 70
95 IF VO<1 OR VO>3 THEN PRINT"TOO MANY NOTES!":END
100 FOR X=1 TO VO
110 READ HI(X),LO(X)
120 IF LO(X)=0 AND HI(X)=0 THEN NEXT:T=TIME:GOTO 145
130 S=(X-1)*7+54272
140 POKES,LO(X):POKES+1,HI(X):POKES+4,WAVE(X):NEXT:T=TIME
145 READ DU
150 IF TIME<T+DU*2 THEN 150
152 FORX=1TO3:S=(X-1)*7+54276
153 IF LO(X)=0 AND HI(X)=0 THEN NEXT:GOTO 70
154 IF WAVE(X)=0 THEN PRINT"NO INSTRUMENT SET ON VOICE ";X;"ERROR!":END
155 POKES,WAVE(X)-1:NEXT
157 GOTO 70
160 IF VO=100.5 THEN END
165 IF VO=101.5 THEN 260
170 IN=VO*10-(INT(VO)*10):POKE54296,0
180 S=(VO-IN/10-1)*7+54272
190 WAVE(INT(VO))=X(0,IN):POKES+6,X(2,IN)
195 POKES+5,X(1,IN)
200 POKES+3,X(3,IN):POKES+2,X(4,IN):POKE 54296,VL:GOTO70
210 FORLO=1TO8:FORL=0TO4
220 READX(L,LO):NEXT:NEXT:GOTO30
230 DATA 65,9,255,0,255,17,96,255,0,0,33,9,255,0,0
240 DATA 17,9,255,0,0,17,0,255,0,0,17,0,255,0,0
250 DATA 17,102,255,0,0,33,96,255,0,0
260 READD:T=TIME
270 IF TIME<T+D*2 THEN 270
280 GOTO 70
1000 DATA 1.1,0,15,2.5,3.6
1010 DATA 3,33,135,21,31,56,99,50
1020 DATA 1,33,135,50
1030 DATA 1,33,135,50
1040 DATA 1,33,135,50
1050 DATA 1,33,135,50
1060 DATA 1,33,135,50
1070 DATA 1,33,135,50
1080 DATA 1,33,135,50
1090 DATA 1,33,135,50
1100 DATA 1,33,135,50
1110 DATA 1,33,135,50
1120 DATA 100.5
�LO(3):�HI(3) 2 ��(147);�(5);:�X(4,8):�210 O � 53280,0:� 53281,0:VL�3 p( � 214,12:A$�"TITLE OF MUSIC" �2 � 211,20�(�(A$)�2) �< �58732:�;A$:�L�54272�54296:�L,0:�:�54296,3 �F � VO �P � �(VO)��VO � 160 �Z � VO�0 � �VL:�54296,VL:� 70 _ � VO�1 � VO�3 � �"TOO MANY NOTES!":� - d � X�1 � VO ? n � HI(X),LO(X) h x � LO(X)�0 � HI(X)�0 � �:T�TIME:� 145 | � S�(X�1)�7�54272 � � �S,LO(X):�S�1,HI(X):�S�4,WAVE(X):�:T�TIME � � � DU � � � TIME�T�DU�2 � 150 � � �X�1�3:S�(X�1)�7�54276
� � LO(X)�0 � HI(X)�0 � �:� 70 E
� � WAVE(X)�0 � �"NO INSTRUMENT SET ON VOICE ";X;"ERROR!":� X
� �S,WAVE(X)�1:� a
� � 70 t
� � VO�100.5 � � �
� � VO�101.5 � 260 �
� IN�VO�10�(�(VO)�10):�54296,0 �
� S�(VO�IN�10�1)�7�54272 �
� WAVE(�(VO))�X(0,IN):�S�6,X(2,IN) �
� �S�5,X(1,IN) ( � �S�3,X(3,IN):�S�2,X(4,IN):� 54296,VL:�70 ; � �LO�1�8:�L�0�4 P � �X(L,LO):�:�:�30 � � � 65,9,255,0,255,17,96,255,0,0,33,9,255,0,0 � � � 17,9,255,0,0,17,0,255,0,0,17,0,255,0,0 � � � 17,102,255,0,0,33,96,255,0,0 � �D:T�TIME � � TIME�T�D�2 � 270 � � 70 �� 1.1,0,15,2.5,3.6 3 �� 3,33,135,21,31,56,99,50 E �� 1,33,135,50 W � 1,33,135,50 i � 1,33,135,50 { � 1,33,135,50 � $� 1,33,135,50 � .� 1,33,135,50 � 8� 1,33,135,50 � B� 1,33,135,50 � L� 1,33,135,50 � V� 1,33,135,50 � `� 100.5 SHJ@.lo(3):.hi(3)@2HT@..(147);.(5);:.x(4,8):.210@oH.@. 53280,0:. 53281,0:vl.3@PH(@. 214,12:a$."title of music"@.H2@. 211,20.(.(a$).2)@.H<@.58732:.;a$:.l.54272.54296:.l,0:.:.54296,3@.Hf@. vo@.Hp@. .(vo)..vo . 160@.Hz@. vo.0 . .vl:.54296,vl:. 70@.I.@. vo.1 . vo.3 . ."too many notes!":.@-ID@. x.1 . vo@?IN@. hi(x),lo(x)@HIX@. lo(x).0 . hi(x).0 . .:t.time:. 145@.I.@s.(x.1).7.54272@.I.@.s,lo(x):.s.1,hi(x):.s.4,wave(x):.:t.time@.I.@. du@.I.@. time.t.du.2 . 150@.I.@.x.1.3:s.(x.1).7.54276@GJ.@. lo(x).0 . hi(x).0 . .:. 70@eJ.@. wave(x).0 . ."no instrument set on voice ";x;"error!":.@xJ.@.s,wave(x).1:.@AJ.@. 70@TJ.@. vo.100.5 . .@.J.@. vo.101.5 . 260@.J.@in.vo.10.(.(vo).10):.54296,0@.J.@s.(vo.in.10.1).7.54272@.J.@wave(.(vo)).x(0,in):.s.6,x(2,in)@.J.@.s.5,x(1,in)@(K.@.s.3,x(3,in):.s.2,x(4,in):. 54296,vl:.70@;K.@.lo.1.8:.l.0.4@pK.@.x(l,lo):.:.:.30@.K.@. 65,9,255,0,255,17,96,255,0,0,33,9,255,0,0@.K.@. 17,9,255,0,0,17,0,255,0,0,17,0,255,0,0@.K.@. 17,102,255,0,0,33,96,255,0,0@.KDA.d:t.time@.KNA. time.t.d.2 . 270@.KXA. 70@UL.C. 1.1,0,15,2.5,3.6@3L.C. 3,33,135,21,31,56,99,50@eL.C. 1,33,135,50@wLFD. 1,33,135,50@ILPD. 1,33,135,50@.LZD. 1,33,135,50@.L$D. 1,33,135,50@.L.D. 1,33,135,50@.L8D. 1,33,135,50@.LbD. 1,33,135,50@.LlD. 1,33,135,50@.LvD. 1,33,135,50@.L.D. 100.5@@@
00000000 13 08 0a 00 86 4c 4f 28 33 29 3a 86 48 49 28 33 |.....LO(3):.HI(3|
00000010 29 00 32 08 14 00 99 c7 28 31 34 37 29 3b c7 28 |).2.....(147);.(|
00000020 35 29 3b 3a 86 58 28 34 2c 38 29 3a 89 32 31 30 |5);:.X(4,8):.210|
00000030 00 4f 08 1e 00 97 20 35 33 32 38 30 2c 30 3a 97 |.O.... 53280,0:.|
00000040 20 35 33 32 38 31 2c 30 3a 56 4c b2 33 00 70 08 | 53281,0:VL.3.p.|
00000050 28 00 97 20 32 31 34 2c 31 32 3a 41 24 b2 22 54 |(.. 214,12:A$."T|
00000060 49 54 4c 45 20 4f 46 20 4d 55 53 49 43 22 00 87 |ITLE OF MUSIC"..|
00000070 08 32 00 97 20 32 31 31 2c 32 30 ab 28 c3 28 41 |.2.. 211,20.(.(A|
00000080 24 29 ad 32 29 00 b6 08 3c 00 9e 35 38 37 33 32 |$).2)...<..58732|
00000090 3a 99 3b 41 24 3a 81 4c b2 35 34 32 37 32 a4 35 |:.;A$:.L.54272.5|
000000a0 34 32 39 36 3a 97 4c 2c 30 3a 82 3a 97 35 34 32 |4296:.L,0:.:.542|
000000b0 39 36 2c 33 00 bf 08 46 00 87 20 56 4f 00 d5 08 |96,3...F.. VO...|
000000c0 50 00 8b 20 b5 28 56 4f 29 b3 b1 56 4f 20 a7 20 |P.. .(VO)..VO . |
000000d0 31 36 30 00 f5 08 5a 00 8b 20 56 4f b2 30 20 a7 |160...Z.. VO.0 .|
000000e0 20 87 56 4c 3a 97 35 34 32 39 36 2c 56 4c 3a 89 | .VL:.54296,VL:.|
000000f0 20 37 30 00 1e 09 5f 00 8b 20 56 4f b3 31 20 b0 | 70..._.. VO.1 .|
00000100 20 56 4f b1 33 20 a7 20 99 22 54 4f 4f 20 4d 41 | VO.3 . ."TOO MA|
00000110 4e 59 20 4e 4f 54 45 53 21 22 3a 80 00 2d 09 64 |NY NOTES!":..-.d|
00000120 00 81 20 58 b2 31 20 a4 20 56 4f 00 3f 09 6e 00 |.. X.1 . VO.?.n.|
00000130 87 20 48 49 28 58 29 2c 4c 4f 28 58 29 00 68 09 |. HI(X),LO(X).h.|
00000140 78 00 8b 20 4c 4f 28 58 29 b2 30 20 af 20 48 49 |x.. LO(X).0 . HI|
00000150 28 58 29 b2 30 20 a7 20 82 3a 54 b2 54 49 4d 45 |(X).0 . .:T.TIME|
00000160 3a 89 20 31 34 35 00 7c 09 82 00 53 b2 28 58 ab |:. 145.|...S.(X.|
00000170 31 29 ac 37 aa 35 34 32 37 32 00 aa 09 8c 00 97 |1).7.54272......|
00000180 53 2c 4c 4f 28 58 29 3a 97 53 aa 31 2c 48 49 28 |S,LO(X):.S.1,HI(|
00000190 58 29 3a 97 53 aa 34 2c 57 41 56 45 28 58 29 3a |X):.S.4,WAVE(X):|
000001a0 82 3a 54 b2 54 49 4d 45 00 b3 09 91 00 87 20 44 |.:T.TIME...... D|
000001b0 55 00 cb 09 96 00 8b 20 54 49 4d 45 b3 54 aa 44 |U...... TIME.T.D|
000001c0 55 ac 32 20 a7 20 31 35 30 00 e6 09 98 00 81 58 |U.2 . 150......X|
000001d0 b2 31 a4 33 3a 53 b2 28 58 ab 31 29 ac 37 aa 35 |.1.3:S.(X.1).7.5|
000001e0 34 32 37 36 00 07 0a 99 00 8b 20 4c 4f 28 58 29 |4276...... LO(X)|
000001f0 b2 30 20 af 20 48 49 28 58 29 b2 30 20 a7 20 82 |.0 . HI(X).0 . .|
00000200 3a 89 20 37 30 00 45 0a 9a 00 8b 20 57 41 56 45 |:. 70.E.... WAVE|
00000210 28 58 29 b2 30 20 a7 20 99 22 4e 4f 20 49 4e 53 |(X).0 . ."NO INS|
00000220 54 52 55 4d 45 4e 54 20 53 45 54 20 4f 4e 20 56 |TRUMENT SET ON V|
00000230 4f 49 43 45 20 22 3b 58 3b 22 45 52 52 4f 52 21 |OICE ";X;"ERROR!|
00000240 22 3a 80 00 58 0a 9b 00 97 53 2c 57 41 56 45 28 |":..X....S,WAVE(|
00000250 58 29 ab 31 3a 82 00 61 0a 9d 00 89 20 37 30 00 |X).1:..a.... 70.|
00000260 74 0a a0 00 8b 20 56 4f b2 31 30 30 2e 35 20 a7 |t.... VO.100.5 .|
00000270 20 80 00 89 0a a5 00 8b 20 56 4f b2 31 30 31 2e | ....... VO.101.|
00000280 35 20 a7 20 32 36 30 00 aa 0a aa 00 49 4e b2 56 |5 . 260.....IN.V|
00000290 4f ac 31 30 ab 28 b5 28 56 4f 29 ac 31 30 29 3a |O.10.(.(VO).10):|
000002a0 97 35 34 32 39 36 2c 30 00 c5 0a b4 00 53 b2 28 |.54296,0.....S.(|
000002b0 56 4f ab 49 4e ad 31 30 ab 31 29 ac 37 aa 35 34 |VO.IN.10.1).7.54|
000002c0 32 37 32 00 ea 0a be 00 57 41 56 45 28 b5 28 56 |272.....WAVE(.(V|
000002d0 4f 29 29 b2 58 28 30 2c 49 4e 29 3a 97 53 aa 36 |O)).X(0,IN):.S.6|
000002e0 2c 58 28 32 2c 49 4e 29 00 fb 0a c3 00 97 53 aa |,X(2,IN)......S.|
000002f0 35 2c 58 28 31 2c 49 4e 29 00 28 0b c8 00 97 53 |5,X(1,IN).(....S|
00000300 aa 33 2c 58 28 33 2c 49 4e 29 3a 97 53 aa 32 2c |.3,X(3,IN):.S.2,|
00000310 58 28 34 2c 49 4e 29 3a 97 20 35 34 32 39 36 2c |X(4,IN):. 54296,|
00000320 56 4c 3a 89 37 30 00 3b 0b d2 00 81 4c 4f b2 31 |VL:.70.;....LO.1|
00000330 a4 38 3a 81 4c b2 30 a4 34 00 50 0b dc 00 87 58 |.8:.L.0.4.P....X|
00000340 28 4c 2c 4c 4f 29 3a 82 3a 82 3a 89 33 30 00 80 |(L,LO):.:.:.30..|
00000350 0b e6 00 83 20 36 35 2c 39 2c 32 35 35 2c 30 2c |.... 65,9,255,0,|
00000360 32 35 35 2c 31 37 2c 39 36 2c 32 35 35 2c 30 2c |255,17,96,255,0,|
00000370 30 2c 33 33 2c 39 2c 32 35 35 2c 30 2c 30 00 ad |0,33,9,255,0,0..|
00000380 0b f0 00 83 20 31 37 2c 39 2c 32 35 35 2c 30 2c |.... 17,9,255,0,|
00000390 30 2c 31 37 2c 30 2c 32 35 35 2c 30 2c 30 2c 31 |0,17,0,255,0,0,1|
000003a0 37 2c 30 2c 32 35 35 2c 30 2c 30 00 d0 0b fa 00 |7,0,255,0,0.....|
000003b0 83 20 31 37 2c 31 30 32 2c 32 35 35 2c 30 2c 30 |. 17,102,255,0,0|
000003c0 2c 33 33 2c 39 36 2c 32 35 35 2c 30 2c 30 00 de |,33,96,255,0,0..|
000003d0 0b 04 01 87 44 3a 54 b2 54 49 4d 45 00 f5 0b 0e |....D:T.TIME....|
000003e0 01 8b 20 54 49 4d 45 b3 54 aa 44 ac 32 20 a7 20 |.. TIME.T.D.2 . |
000003f0 32 37 30 00 fe 0b 18 01 89 20 37 30 00 15 0c e8 |270...... 70....|
00000400 03 83 20 31 2e 31 2c 30 2c 31 35 2c 32 2e 35 2c |.. 1.1,0,15,2.5,|
00000410 33 2e 36 00 33 0c f2 03 83 20 33 2c 33 33 2c 31 |3.6.3.... 3,33,1|
00000420 33 35 2c 32 31 2c 33 31 2c 35 36 2c 39 39 2c 35 |35,21,31,56,99,5|
00000430 30 00 45 0c fc 03 83 20 31 2c 33 33 2c 31 33 35 |0.E.... 1,33,135|
00000440 2c 35 30 00 57 0c 06 04 83 20 31 2c 33 33 2c 31 |,50.W.... 1,33,1|
00000450 33 35 2c 35 30 00 69 0c 10 04 83 20 31 2c 33 33 |35,50.i.... 1,33|
00000460 2c 31 33 35 2c 35 30 00 7b 0c 1a 04 83 20 31 2c |,135,50.{.... 1,|
00000470 33 33 2c 31 33 35 2c 35 30 00 8d 0c 24 04 83 20 |33,135,50...$.. |
00000480 31 2c 33 33 2c 31 33 35 2c 35 30 00 9f 0c 2e 04 |1,33,135,50.....|
00000490 83 20 31 2c 33 33 2c 31 33 35 2c 35 30 00 b1 0c |. 1,33,135,50...|
000004a0 38 04 83 20 31 2c 33 33 2c 31 33 35 2c 35 30 00 |8.. 1,33,135,50.|
000004b0 c3 0c 42 04 83 20 31 2c 33 33 2c 31 33 35 2c 35 |..B.. 1,33,135,5|
000004c0 30 00 d5 0c 4c 04 83 20 31 2c 33 33 2c 31 33 35 |0...L.. 1,33,135|
000004d0 2c 35 30 00 e7 0c 56 04 83 20 31 2c 33 33 2c 31 |,50...V.. 1,33,1|
000004e0 33 35 2c 35 30 00 f3 0c 60 04 83 20 31 30 30 2e |35,50...`.. 100.|
000004f0 35 00 00 00 |5...|
000004f4 
.