Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape09a_d60_c16_zagging.wav » prog6
prog6
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_16 » drawer_br_tape09a_d60_c16_zagging.wav |
| Filename: | prog6 |
| Read OK: | ✔ |
| File size: | 0505 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 SCNCLR
20 PRINT:PRINT:PRINT:PRINT:PRINT"WHICH VOICE DO YOU WANT (1 OR 2)";
30 INPUT VC
40 IF VC=1 THEN 70
50 IF VC=2 THEN 70
60 RUN
70 SCNCLR
80 PRINT:PRINT:PRINT:PRINT:PRINT"WHICH VOLUME DO YOU WANT (1 TO 8)";
90 INPUT VL
100 IF VL=1 THEN 190
110 IF VL=2 THEN 190
120 IF VL=3 THEN 190
130 IF VL=4 THEN 190
140 IF VL=5 THEN 190
150 IF VL=6 THEN 190
160 IF VL=7 THEN 190
170 IF VL=8 THEN 190
180 GOTO 70
190 SCNCLR
200 COLOR 4,1
210 COLOR 0,1
220 COLOR 1,6
230 PRINT"<orange> FROD'S AMAZING MUSIC PROGRAM"
240 PRINT"<light blue>🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸"
250 COLOR 1,6
260 PRINT" 1=C"
270 PRINT:PRINT" 2=D"
280 PRINT:PRINT" 3=E"
290 PRINT:PRINT" 4=F"
300 PRINT:PRINT" 5=G"
310 PRINT:PRINT" 6=A"
320 PRINT:PRINT" 7=B"
330 PRINT:PRINT" 8=C"
340 PRINT:PRINT" 9=MACHINE GUN NOISE"
350 PRINT:PRINT:PRINT" TO RESTART PROGRAM PRESS 'R'"
360 PRINT:PRINT" TO STOP PROGRAM PRESS 'S'"
365 PRINT"L=LOAD"
370 VOL VL
380 GET A$
390 IF A$="1" THEN 510
395 IF A$="L"GOTO 710
400 IF A$="2" THEN 530
410 IF A$="3" THEN 550
420 IF A$="4" THEN 570
430 IF A$="5" THEN 590
440 IF A$="6" THEN 610
450 IF A$="7" THEN 630
460 IF A$="8" THEN 650
470 IF A$="9" THEN 670
480 IF A$="R" THEN RUN
490 IF A$="S" THEN 690
500 GOTO 380
510 SOUND VC,596,10
520 GOTO 380
530 SOUND VC,643,10
540 GOTO 380
550 SOUND VC,685,10
560 GOTO 380
570 SOUND VC,704,10
580 GOTO 380
590 SOUND VC,739,10
600 GOTO 380
610 SOUND VC,770,10
620 GOTO 380
630 SOUND VC,798,10
640 GOTO 380
650 SOUND VC,810,10
660 GOTO 380
670 SOUND 3,800,20
680 GOTO 380
690 SCNCLR
700 END
710 LOAD
� 8 �:�:�:�:�"WHICH VOICE DO YOU WANT (1 OR 2)"; A � VC Q( � VC�1 � 70 a2 � VC�2 � 70 g< � mF � �P �:�:�:�:�"WHICH VOLUME DO YOU WANT (1 TO 8)"; �Z � VL �d � VL�1 � 190 �n � VL�2 � 190 �x � VL�3 � 190 �� � VL�4 � 190 �� � VL�5 � 190 � � VL�6 � 190 � � VL�7 � 190 0� � VL�8 � 190 9� � 70 ?� � I� � 4,1 S� � 0,1 ]� � 1,6 �� �"� FROD'S AMAZING MUSIC PROGRAM" �� �"�����������������������������������������" �� � 1,6 ��" 1=C" ��:�" 2=D" �:�" 3=E" "�:�" 4=F" 3,�:�" 5=G" J6�:�" 6=A" a@�:�" 7=B" xJ�:�" 8=C" �T�:�" 9=MACHINE GUN NOISE" �^�:�:�" TO RESTART PROGRAM PRESS 'R'" �h�:�" TO STOP PROGRAM PRESS 'S'" m�"L=LOAD" r� VL |� A$ 1�� A$�"1" � 510 C�� A$�"L"� 710 V�� A$�"2" � 530 i�� A$�"3" � 550 |�� A$�"4" � 570 ��� A$�"5" � 590 ��� A$�"6" � 610 ��� A$�"7" � 630 ��� A$�"8" � 650 ��� A$�"9" � 670 ��� A$�"R" � � ��� A$�"S" � 690 �� 380 �� VC,596,10 #� 380 3� VC,643,10 = � 380 M&� VC,685,10 W0� 380 g:� VC,704,10 qD� 380 �N� VC,739,10 �X� 380 �b� VC,770,10 �l� 380 �v� VC,798,10 ��� 380 ��� VC,810,10 ��� 380 ��� 3,800,20 ��� 380 ��� ��� ��
GPJ@.@8PT@.:.:.:.:."which voice do you want (1 or 2)";@aP.@. vc@qP(@. vc.1 . 70@AP2@. vc.2 . 70@GP<@.@MPf@.@.Pp@.:.:.:.:."which volume do you want (1 to 8)";@.Pz@. vl@.PD@. vl.1 . 190@.PN@. vl.2 . 190@.PX@. vl.3 . 190@.P.@. vl.4 . 190@.P.@. vl.5 . 190@NQ.@. vl.6 . 190@.Q.@. vl.7 . 190@0Q.@. vl.8 . 190@9Q.@. 70@?Q.@.@iQ.@. 4,1@sQ.@. 0,1@]Q.@. 1,6@.Q.@.". frod's amazing music program"@.Q.@."........................................."@.Q.@. 1,6@.QDA." 1=c"@.QNA.:." 2=d"@ERXA.:." 3=e"@£R"A.:." 4=f"@3R,A.:." 5=g"@jR6A.:." 6=a"@AR@A.:." 7=b"@XRjA.:." 8=c"@.RtA.:." 9=machine gun noise"@.R.A.:.:." to restart program press 'r'"@.RHA.:." to stop program press 's'"@LSMA."l=load"@USRA. vl@.S.A. a$@1S.A. a$."1" . 510@cS.A. a$."l". 710@vS.A. a$."2" . 530@IS.A. a$."3" . 550@.S.A. a$."4" . 570@.S.A. a$."5" . 590@.S.A. a$."6" . 610@.S.A. a$."7" . 630@.S.A. a$."8" . 650@.S.A. a$."9" . 670@.S.A. a$."r" . .@.S.A. a$."s" . 690@IT.A. 380@YT.A. vc,596,10@#THB. 380@3TRB. vc,643,10@=T£B. 380@mT&B. vc,685,10@wT0B. 380@GT:B. vc,704,10@QTdB. 380@.TnB. vc,739,10@.TxB. 380@.TBB. vc,770,10@.TLB. 380@.TVB. vc,798,10@.T.B. 380@.T.B. vc,810,10@.T.B. 380@.T.B. 3,800,20@.T.B. 380@.T.B.@.T.B.@DU.B.@@@
00000000 07 10 0a 00 e8 00 38 10 14 00 99 3a 99 3a 99 3a |......8....:.:.:| 00000010 99 3a 99 22 57 48 49 43 48 20 56 4f 49 43 45 20 |.:."WHICH VOICE | 00000020 44 4f 20 59 4f 55 20 57 41 4e 54 20 28 31 20 4f |DO YOU WANT (1 O| 00000030 52 20 32 29 22 3b 00 41 10 1e 00 85 20 56 43 00 |R 2)";.A.... VC.| 00000040 51 10 28 00 8b 20 56 43 b2 31 20 a7 20 37 30 00 |Q.(.. VC.1 . 70.| 00000050 61 10 32 00 8b 20 56 43 b2 32 20 a7 20 37 30 00 |a.2.. VC.2 . 70.| 00000060 67 10 3c 00 8a 00 6d 10 46 00 e8 00 9f 10 50 00 |g.<...m.F.....P.| 00000070 99 3a 99 3a 99 3a 99 3a 99 22 57 48 49 43 48 20 |.:.:.:.:."WHICH | 00000080 56 4f 4c 55 4d 45 20 44 4f 20 59 4f 55 20 57 41 |VOLUME DO YOU WA| 00000090 4e 54 20 28 31 20 54 4f 20 38 29 22 3b 00 a8 10 |NT (1 TO 8)";...| 000000a0 5a 00 85 20 56 4c 00 b9 10 64 00 8b 20 56 4c b2 |Z.. VL...d.. VL.| 000000b0 31 20 a7 20 31 39 30 00 ca 10 6e 00 8b 20 56 4c |1 . 190...n.. VL| 000000c0 b2 32 20 a7 20 31 39 30 00 db 10 78 00 8b 20 56 |.2 . 190...x.. V| 000000d0 4c b2 33 20 a7 20 31 39 30 00 ec 10 82 00 8b 20 |L.3 . 190...... | 000000e0 56 4c b2 34 20 a7 20 31 39 30 00 fd 10 8c 00 8b |VL.4 . 190......| 000000f0 20 56 4c b2 35 20 a7 20 31 39 30 00 0e 11 96 00 | VL.5 . 190.....| 00000100 8b 20 56 4c b2 36 20 a7 20 31 39 30 00 1f 11 a0 |. VL.6 . 190....| 00000110 00 8b 20 56 4c b2 37 20 a7 20 31 39 30 00 30 11 |.. VL.7 . 190.0.| 00000120 aa 00 8b 20 56 4c b2 38 20 a7 20 31 39 30 00 39 |... VL.8 . 190.9| 00000130 11 b4 00 89 20 37 30 00 3f 11 be 00 e8 00 49 11 |.... 70.?.....I.| 00000140 c8 00 e7 20 34 2c 31 00 53 11 d2 00 e7 20 30 2c |... 4,1.S.... 0,| 00000150 31 00 5d 11 dc 00 e7 20 31 2c 36 00 87 11 e6 00 |1.].... 1,6.....| 00000160 99 22 81 20 20 20 20 20 46 52 4f 44 27 53 20 41 |.". FROD'S A| 00000170 4d 41 5a 49 4e 47 20 4d 55 53 49 43 20 50 52 4f |MAZING MUSIC PRO| 00000180 47 52 41 4d 22 00 b8 11 f0 00 99 22 9a c3 c3 c3 |GRAM"......"....| 00000190 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 |................| * 000001b0 c3 c3 c3 c3 c3 22 00 c2 11 fa 00 e7 20 31 2c 36 |....."...... 1,6| 000001c0 00 d7 11 04 01 99 22 20 20 20 20 20 20 20 20 20 |......" | 000001d0 20 31 3d 43 22 00 ee 11 0e 01 99 3a 99 22 20 20 | 1=C"......:." | 000001e0 20 20 20 20 20 20 20 20 32 3d 44 22 00 05 12 18 | 2=D"....| 000001f0 01 99 3a 99 22 20 20 20 20 20 20 20 20 20 20 33 |..:." 3| 00000200 3d 45 22 00 1c 12 22 01 99 3a 99 22 20 20 20 20 |=E"..."..:." | 00000210 20 20 20 20 20 20 34 3d 46 22 00 33 12 2c 01 99 | 4=F".3.,..| 00000220 3a 99 22 20 20 20 20 20 20 20 20 20 20 35 3d 47 |:." 5=G| 00000230 22 00 4a 12 36 01 99 3a 99 22 20 20 20 20 20 20 |".J.6..:." | 00000240 20 20 20 20 36 3d 41 22 00 61 12 40 01 99 3a 99 | 6=A".a.@..:.| 00000250 22 20 20 20 20 20 20 20 20 20 20 37 3d 42 22 00 |" 7=B".| 00000260 78 12 4a 01 99 3a 99 22 20 20 20 20 20 20 20 20 |x.J..:." | 00000270 20 20 38 3d 43 22 00 9f 12 54 01 99 3a 99 22 20 | 8=C"...T..:." | 00000280 20 20 20 20 20 20 20 20 20 39 3d 4d 41 43 48 49 | 9=MACHI| 00000290 4e 45 20 47 55 4e 20 4e 4f 49 53 45 22 00 d1 12 |NE GUN NOISE"...| 000002a0 5e 01 99 3a 99 3a 99 22 20 20 20 20 20 20 20 20 |^..:.:." | 000002b0 20 20 54 4f 20 52 45 53 54 41 52 54 20 50 52 4f | TO RESTART PRO| 000002c0 47 52 41 4d 20 50 52 45 53 53 20 27 52 27 22 00 |GRAM PRESS 'R'".| 000002d0 fe 12 68 01 99 3a 99 22 20 20 20 20 20 20 20 20 |..h..:." | 000002e0 20 20 54 4f 20 53 54 4f 50 20 50 52 4f 47 52 41 | TO STOP PROGRA| 000002f0 4d 20 50 52 45 53 53 20 27 53 27 22 00 0c 13 6d |M PRESS 'S'"...m| 00000300 01 99 22 4c 3d 4c 4f 41 44 22 00 15 13 72 01 db |.."L=LOAD"...r..| 00000310 20 56 4c 00 1e 13 7c 01 a1 20 41 24 00 31 13 86 | VL...|.. A$.1..| 00000320 01 8b 20 41 24 b2 22 31 22 20 a7 20 35 31 30 00 |.. A$."1" . 510.| 00000330 43 13 8b 01 8b 20 41 24 b2 22 4c 22 89 20 37 31 |C.... A$."L". 71| 00000340 30 00 56 13 90 01 8b 20 41 24 b2 22 32 22 20 a7 |0.V.... A$."2" .| 00000350 20 35 33 30 00 69 13 9a 01 8b 20 41 24 b2 22 33 | 530.i.... A$."3| 00000360 22 20 a7 20 35 35 30 00 7c 13 a4 01 8b 20 41 24 |" . 550.|.... A$| 00000370 b2 22 34 22 20 a7 20 35 37 30 00 8f 13 ae 01 8b |."4" . 570......| 00000380 20 41 24 b2 22 35 22 20 a7 20 35 39 30 00 a2 13 | A$."5" . 590...| 00000390 b8 01 8b 20 41 24 b2 22 36 22 20 a7 20 36 31 30 |... A$."6" . 610| 000003a0 00 b5 13 c2 01 8b 20 41 24 b2 22 37 22 20 a7 20 |...... A$."7" . | 000003b0 36 33 30 00 c8 13 cc 01 8b 20 41 24 b2 22 38 22 |630...... A$."8"| 000003c0 20 a7 20 36 35 30 00 db 13 d6 01 8b 20 41 24 b2 | . 650...... A$.| 000003d0 22 39 22 20 a7 20 36 37 30 00 ec 13 e0 01 8b 20 |"9" . 670...... | 000003e0 41 24 b2 22 52 22 20 a7 20 8a 00 ff 13 ea 01 8b |A$."R" . .......| 000003f0 20 41 24 b2 22 53 22 20 a7 20 36 39 30 00 09 14 | A$."S" . 690...| 00000400 f4 01 89 20 33 38 30 00 19 14 fe 01 da 20 56 43 |... 380...... VC| 00000410 2c 35 39 36 2c 31 30 00 23 14 08 02 89 20 33 38 |,596,10.#.... 38| 00000420 30 00 33 14 12 02 da 20 56 43 2c 36 34 33 2c 31 |0.3.... VC,643,1| 00000430 30 00 3d 14 1c 02 89 20 33 38 30 00 4d 14 26 02 |0.=.... 380.M.&.| 00000440 da 20 56 43 2c 36 38 35 2c 31 30 00 57 14 30 02 |. VC,685,10.W.0.| 00000450 89 20 33 38 30 00 67 14 3a 02 da 20 56 43 2c 37 |. 380.g.:.. VC,7| 00000460 30 34 2c 31 30 00 71 14 44 02 89 20 33 38 30 00 |04,10.q.D.. 380.| 00000470 81 14 4e 02 da 20 56 43 2c 37 33 39 2c 31 30 00 |..N.. VC,739,10.| 00000480 8b 14 58 02 89 20 33 38 30 00 9b 14 62 02 da 20 |..X.. 380...b.. | 00000490 56 43 2c 37 37 30 2c 31 30 00 a5 14 6c 02 89 20 |VC,770,10...l.. | 000004a0 33 38 30 00 b5 14 76 02 da 20 56 43 2c 37 39 38 |380...v.. VC,798| 000004b0 2c 31 30 00 bf 14 80 02 89 20 33 38 30 00 cf 14 |,10...... 380...| 000004c0 8a 02 da 20 56 43 2c 38 31 30 2c 31 30 00 d9 14 |... VC,810,10...| 000004d0 94 02 89 20 33 38 30 00 e8 14 9e 02 da 20 33 2c |... 380...... 3,| 000004e0 38 30 30 2c 32 30 00 f2 14 a8 02 89 20 33 38 30 |800,20...... 380| 000004f0 00 f8 14 b2 02 e8 00 fe 14 bc 02 80 00 04 15 c6 |................| 00000500 02 93 00 00 00 |.....| 00000505
.