Home » Archimedes archive » Acorn User » AU 1994-11.adf » !StarInfo_StarInfo » Morris/!Beebmus/Tunes/PugWash

Morris/!Beebmus/Tunes/PugWash

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 » Acorn User » AU 1994-11.adf » !StarInfo_StarInfo
Filename: Morris/!Beebmus/Tunes/PugWash
Read OK:
File size: 0723 bytes
Load address: 0000
Exec address: 0000
File contents
   10MODE7:VDU23;8202;0;0;0;
   20PROCinstall
   30VOICE 3,"NOTEMAN"
   40VOICE 1,"FUNBASS"
   50VOICE 2,"NOTEMAN"
   60
   70PRINT:PRINT:PRINTCHR$(141);"�   ������Captain Pugwash";'CHR$(141);"�   ������Captain Pugwash"
   80
   90PRINT'"           ��From the game"
  100PRINT''CHR$(141);"      ������� 'Frak!'":PRINTCHR$(141);"      ������� 'Frak!'"
  110
  120REPEAT:RESTORE
  130B$="C D EF G A Bc d ef":C$="55551111555511555566661154321155":E$="88887777888877888899997A88357A88":D$="123475.A.86...9":T%=9:B%=6:READA$,N%:NOW=TIME:M%=0:U%=FALSE:R%=B%+4*INSTR(D$,LEFT$(C$,1))
  140REPEATIFM%<=0M%=M%+3:Z%=R%-(S%-R%)*U%:IFLENC$SOUND1,-15,(Z% MOD256)+48,1:SOUND2,-15 ANDU%,S%+12+48,1:U%=NOTU%:R%=B%+4*INSTR(D$,LEFT$(C$,1)):S%=B%+4*INSTR(D$,LEFT$(E$,1)):C$=RIGHT$(C$,LENC$+U%):E$=RIGHT$(E$,LENE$+U%)
  150M%=M%-N%:C%=C%-N%:Z%=B%+4*(INSTR(B$,LEFT$(A$,1))-(INSTR(A$,"#")>0)+12):SOUND3,-15,(Z%MOD256)+48,1:NOW=NOW+N%*T%:REPEATUNTILTIME>NOW:READA$,N%:UNTILA$="dne"
  160UNTIL0
  170DATA F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,2, c,1, A,2, F,1, A,2, c,1, f,2, c,1, A,2, F,1, C,1, C,1, C,1, C,3, C,1, C,1, C,1, C,2, G,1, E,2, C,1, E,2, G,1, A#,2, G,1, E,2, C,1
  180DATA F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,2, c,1, A,2, F,1, A,2, c,1, f,3, F,3, C,2, f,1, e,2, d,1, c,2, A#,1, A,2, G,1, F,3, A,3, F,3, A,2, A#,1
  190DATA c,1, c,1, c,1, c,3, c,1, c,1, c,1, c,3, d,2, e,1, f,2, e,1, d,2, c,1, A#,2, A,1, A#,2, c,1, d,2, c,1, A#,2, A,1, G,2, F,1, E,2, F,1, G,2, F,1, E,2, C,1, D,2, E,1
  200DATA F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, C,2, f,1, e,2, d,1, c,2, A#,1, A,2, G,1, F,3, A,3, F,6, dne,0
  210
  220DEFPROCerror
  230ON ERROR REPORT:PRINT;" at line ";ERL:END
  240FOR I%=1 TO nvoices
  250OSCLI"RMKill "+voice$(I%)
  260NEXT
  270VOICES 1
  280VOICE 1,"WaveSynth-Beep"
  290*TUNING 0
  300IF ERR<>17 THEN
  310CLS
  320REPORT
  330PRINT;" at line ";ERL
  340END
  350ELSE
  360CHAIN"MENU"
  370ENDPROC
  380DEFPROCinstall:nvoices=2
  390ON ERROR REPORT:PRINT;" at line ";ERL:END
  400*TUNING 0
  410DIM voice$(nvoices)
  420RESTORE +8
  430FOR I%=1 TO nvoices
  440READ voice$(I%)
  450OSCLI"RMLoad ModSamps."+voice$(I%)
  460NEXT
  470VOICES 4
  480*TUNING -&3000
  490ON ERROR PROCerror
  500ENDPROC
  510DATA FUNBASS,NOTEMAN

�7:�23;8202;0;0;0;
�install
ȡ 3,"NOTEMAN"
(ȡ 1,"FUNBASS"
2ȡ 2,"NOTEMAN"
<
FO�:�:�(141);"�   ������Captain Pugwash";'�(141);"�   ������Captain Pugwash"
P
Z"�'"           ��From the game"
dE�''�(141);"      ������� 'Frak!'":�(141);"      ������� 'Frak!'"
n
x�:�
��B$="C D EF G A Bc d ef":C$="55551111555511555566661154321155":E$="88887777888877888899997A88357A88":D$="123475.A.86...9":T%=9:B%=6:�A$,N%:NOW=�:M%=0:U%=�:R%=B%+4*�D$,�C$,1))
����M%<=0M%=M%+3:Z%=R%-(S%-R%)*U%:�C$�1,-15,(Z% �256)+48,1:�2,-15 �U%,S%+12+48,1:U%=�U%:R%=B%+4*�D$,�C$,1)):S%=B%+4*�D$,�E$,1)):C$=�C$,�C$+U%):E$=�E$,�E$+U%)
�wM%=M%-N%:C%=C%-N%:Z%=B%+4*(�B$,�A$,1))-(�A$,"#")>0)+12):�3,-15,(Z%�256)+48,1:NOW=NOW+N%*T%:���>NOW:�A$,N%:�A$="dne"
��0
��� F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,2, c,1, A,2, F,1, A,2, c,1, f,2, c,1, A,2, F,1, C,1, C,1, C,1, C,3, C,1, C,1, C,1, C,2, G,1, E,2, C,1, E,2, G,1, A#,2, G,1, E,2, C,1
��� F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,2, c,1, A,2, F,1, A,2, c,1, f,3, F,3, C,2, f,1, e,2, d,1, c,2, A#,1, A,2, G,1, F,3, A,3, F,3, A,2, A#,1
��� c,1, c,1, c,1, c,3, c,1, c,1, c,1, c,3, d,2, e,1, f,2, e,1, d,2, c,1, A#,2, A,1, A#,2, c,1, d,2, c,1, A#,2, A,1, G,2, F,1, E,2, F,1, G,2, F,1, E,2, C,1, D,2, E,1
ȓ� F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, C,2, f,1, e,2, d,1, c,2, A#,1, A,2, G,1, F,3, A,3, F,6, dne,0
�
���error
�� � �:�;" at line ";�:�
�� I%=1 � nvoices
��"RMKill "+voice$(I%)
�
Ƞ 1
ȡ 1,"WaveSynth-Beep"
"
*TUNING 0
,
� �<>17 �
6�
@�
J�;" at line ";�
T�
^�
h�"MENU"
r�
|��install:nvoices=2
�� � �:�;" at line ";�:�
�
*TUNING 0
�� voice$(nvoices)
�� +8
�� I%=1 � nvoices
�� voice$(I%)
�"�"RMLoad ModSamps."+voice$(I%)
��
�Ƞ 4
�*TUNING -&3000
�� � �error
��
�� FUNBASS,NOTEMAN
�
00000000  0d 00 0a 16 eb 37 3a ef  32 33 3b 38 32 30 32 3b  |.....7:.23;8202;|
00000010  30 3b 30 3b 30 3b 0d 00  14 0c f2 69 6e 73 74 61  |0;0;0;.....insta|
00000020  6c 6c 0d 00 1e 12 c8 a1  20 33 2c 22 4e 4f 54 45  |ll...... 3,"NOTE|
00000030  4d 41 4e 22 0d 00 28 12  c8 a1 20 31 2c 22 46 55  |MAN"..(... 1,"FU|
00000040  4e 42 41 53 53 22 0d 00  32 12 c8 a1 20 32 2c 22  |NBASS"..2... 2,"|
00000050  4e 4f 54 45 4d 41 4e 22  0d 00 3c 04 0d 00 46 4f  |NOTEMAN"..<...FO|
00000060  f1 3a f1 3a f1 bd 28 31  34 31 29 3b 22 83 20 20  |.:.:..(141);".  |
00000070  20 83 83 83 83 83 83 43  61 70 74 61 69 6e 20 50  | ......Captain P|
00000080  75 67 77 61 73 68 22 3b  27 bd 28 31 34 31 29 3b  |ugwash";'.(141);|
00000090  22 83 20 20 20 83 83 83  83 83 83 43 61 70 74 61  |".   ......Capta|
000000a0  69 6e 20 50 75 67 77 61  73 68 22 0d 00 50 04 0d  |in Pugwash"..P..|
000000b0  00 5a 22 f1 27 22 20 20  20 20 20 20 20 20 20 20  |.Z".'"          |
000000c0  20 83 83 46 72 6f 6d 20  74 68 65 20 67 61 6d 65  | ..From the game|
000000d0  22 0d 00 64 45 f1 27 27  bd 28 31 34 31 29 3b 22  |"..dE.''.(141);"|
000000e0  20 20 20 20 20 20 81 85  85 85 85 85 85 20 27 46  |      ....... 'F|
000000f0  72 61 6b 21 27 22 3a f1  bd 28 31 34 31 29 3b 22  |rak!'":..(141);"|
00000100  20 20 20 20 20 20 81 85  85 85 85 85 85 20 27 46  |      ....... 'F|
00000110  72 61 6b 21 27 22 0d 00  6e 04 0d 00 78 07 f5 3a  |rak!'"..n...x..:|
00000120  f7 0d 00 82 b1 42 24 3d  22 43 20 44 20 45 46 20  |.....B$="C D EF |
00000130  47 20 41 20 42 63 20 64  20 65 66 22 3a 43 24 3d  |G A Bc d ef":C$=|
00000140  22 35 35 35 35 31 31 31  31 35 35 35 35 31 31 35  |"555511115555115|
00000150  35 35 35 36 36 36 36 31  31 35 34 33 32 31 31 35  |5556666115432115|
00000160  35 22 3a 45 24 3d 22 38  38 38 38 37 37 37 37 38  |5":E$="888877778|
00000170  38 38 38 37 37 38 38 38  38 39 39 39 39 37 41 38  |88877888899997A8|
00000180  38 33 35 37 41 38 38 22  3a 44 24 3d 22 31 32 33  |8357A88":D$="123|
00000190  34 37 35 2e 41 2e 38 36  2e 2e 2e 39 22 3a 54 25  |475.A.86...9":T%|
000001a0  3d 39 3a 42 25 3d 36 3a  f3 41 24 2c 4e 25 3a 4e  |=9:B%=6:.A$,N%:N|
000001b0  4f 57 3d 91 3a 4d 25 3d  30 3a 55 25 3d a3 3a 52  |OW=.:M%=0:U%=.:R|
000001c0  25 3d 42 25 2b 34 2a a7  44 24 2c c0 43 24 2c 31  |%=B%+4*.D$,.C$,1|
000001d0  29 29 0d 00 8c a0 f5 e7  4d 25 3c 3d 30 4d 25 3d  |))......M%<=0M%=|
000001e0  4d 25 2b 33 3a 5a 25 3d  52 25 2d 28 53 25 2d 52  |M%+3:Z%=R%-(S%-R|
000001f0  25 29 2a 55 25 3a e7 a9  43 24 d4 31 2c 2d 31 35  |%)*U%:..C$.1,-15|
00000200  2c 28 5a 25 20 83 32 35  36 29 2b 34 38 2c 31 3a  |,(Z% .256)+48,1:|
00000210  d4 32 2c 2d 31 35 20 80  55 25 2c 53 25 2b 31 32  |.2,-15 .U%,S%+12|
00000220  2b 34 38 2c 31 3a 55 25  3d ac 55 25 3a 52 25 3d  |+48,1:U%=.U%:R%=|
00000230  42 25 2b 34 2a a7 44 24  2c c0 43 24 2c 31 29 29  |B%+4*.D$,.C$,1))|
00000240  3a 53 25 3d 42 25 2b 34  2a a7 44 24 2c c0 45 24  |:S%=B%+4*.D$,.E$|
00000250  2c 31 29 29 3a 43 24 3d  c2 43 24 2c a9 43 24 2b  |,1)):C$=.C$,.C$+|
00000260  55 25 29 3a 45 24 3d c2  45 24 2c a9 45 24 2b 55  |U%):E$=.E$,.E$+U|
00000270  25 29 0d 00 96 77 4d 25  3d 4d 25 2d 4e 25 3a 43  |%)...wM%=M%-N%:C|
00000280  25 3d 43 25 2d 4e 25 3a  5a 25 3d 42 25 2b 34 2a  |%=C%-N%:Z%=B%+4*|
00000290  28 a7 42 24 2c c0 41 24  2c 31 29 29 2d 28 a7 41  |(.B$,.A$,1))-(.A|
000002a0  24 2c 22 23 22 29 3e 30  29 2b 31 32 29 3a d4 33  |$,"#")>0)+12):.3|
000002b0  2c 2d 31 35 2c 28 5a 25  83 32 35 36 29 2b 34 38  |,-15,(Z%.256)+48|
000002c0  2c 31 3a 4e 4f 57 3d 4e  4f 57 2b 4e 25 2a 54 25  |,1:NOW=NOW+N%*T%|
000002d0  3a f5 fd 91 3e 4e 4f 57  3a f3 41 24 2c 4e 25 3a  |:...>NOW:.A$,N%:|
000002e0  fd 41 24 3d 22 64 6e 65  22 0d 00 a0 06 fd 30 0d  |.A$="dne".....0.|
000002f0  00 aa af dc 20 46 2c 31  2c 20 46 2c 31 2c 20 46  |.... F,1, F,1, F|
00000300  2c 31 2c 20 46 2c 33 2c  20 46 2c 31 2c 20 46 2c  |,1, F,3, F,1, F,|
00000310  31 2c 20 46 2c 31 2c 20  46 2c 32 2c 20 63 2c 31  |1, F,1, F,2, c,1|
00000320  2c 20 41 2c 32 2c 20 46  2c 31 2c 20 41 2c 32 2c  |, A,2, F,1, A,2,|
00000330  20 63 2c 31 2c 20 66 2c  32 2c 20 63 2c 31 2c 20  | c,1, f,2, c,1, |
00000340  41 2c 32 2c 20 46 2c 31  2c 20 43 2c 31 2c 20 43  |A,2, F,1, C,1, C|
00000350  2c 31 2c 20 43 2c 31 2c  20 43 2c 33 2c 20 43 2c  |,1, C,1, C,3, C,|
00000360  31 2c 20 43 2c 31 2c 20  43 2c 31 2c 20 43 2c 32  |1, C,1, C,1, C,2|
00000370  2c 20 47 2c 31 2c 20 45  2c 32 2c 20 43 2c 31 2c  |, G,1, E,2, C,1,|
00000380  20 45 2c 32 2c 20 47 2c  31 2c 20 41 23 2c 32 2c  | E,2, G,1, A#,2,|
00000390  20 47 2c 31 2c 20 45 2c  32 2c 20 43 2c 31 0d 00  | G,1, E,2, C,1..|
000003a0  b4 92 dc 20 46 2c 31 2c  20 46 2c 31 2c 20 46 2c  |... F,1, F,1, F,|
000003b0  31 2c 20 46 2c 33 2c 20  46 2c 31 2c 20 46 2c 31  |1, F,3, F,1, F,1|
000003c0  2c 20 46 2c 31 2c 20 46  2c 32 2c 20 63 2c 31 2c  |, F,1, F,2, c,1,|
000003d0  20 41 2c 32 2c 20 46 2c  31 2c 20 41 2c 32 2c 20  | A,2, F,1, A,2, |
000003e0  63 2c 31 2c 20 66 2c 33  2c 20 46 2c 33 2c 20 43  |c,1, f,3, F,3, C|
000003f0  2c 32 2c 20 66 2c 31 2c  20 65 2c 32 2c 20 64 2c  |,2, f,1, e,2, d,|
00000400  31 2c 20 63 2c 32 2c 20  41 23 2c 31 2c 20 41 2c  |1, c,2, A#,1, A,|
00000410  32 2c 20 47 2c 31 2c 20  46 2c 33 2c 20 41 2c 33  |2, G,1, F,3, A,3|
00000420  2c 20 46 2c 33 2c 20 41  2c 32 2c 20 41 23 2c 31  |, F,3, A,2, A#,1|
00000430  0d 00 be a7 dc 20 63 2c  31 2c 20 63 2c 31 2c 20  |..... c,1, c,1, |
00000440  63 2c 31 2c 20 63 2c 33  2c 20 63 2c 31 2c 20 63  |c,1, c,3, c,1, c|
00000450  2c 31 2c 20 63 2c 31 2c  20 63 2c 33 2c 20 64 2c  |,1, c,1, c,3, d,|
00000460  32 2c 20 65 2c 31 2c 20  66 2c 32 2c 20 65 2c 31  |2, e,1, f,2, e,1|
00000470  2c 20 64 2c 32 2c 20 63  2c 31 2c 20 41 23 2c 32  |, d,2, c,1, A#,2|
00000480  2c 20 41 2c 31 2c 20 41  23 2c 32 2c 20 63 2c 31  |, A,1, A#,2, c,1|
00000490  2c 20 64 2c 32 2c 20 63  2c 31 2c 20 41 23 2c 32  |, d,2, c,1, A#,2|
000004a0  2c 20 41 2c 31 2c 20 47  2c 32 2c 20 46 2c 31 2c  |, A,1, G,2, F,1,|
000004b0  20 45 2c 32 2c 20 46 2c  31 2c 20 47 2c 32 2c 20  | E,2, F,1, G,2, |
000004c0  46 2c 31 2c 20 45 2c 32  2c 20 43 2c 31 2c 20 44  |F,1, E,2, C,1, D|
000004d0  2c 32 2c 20 45 2c 31 0d  00 c8 93 dc 20 46 2c 31  |,2, E,1..... F,1|
000004e0  2c 20 46 2c 31 2c 20 46  2c 31 2c 20 46 2c 33 2c  |, F,1, F,1, F,3,|
000004f0  20 46 2c 31 2c 20 46 2c  31 2c 20 46 2c 31 2c 20  | F,1, F,1, F,1, |
00000500  46 2c 33 2c 20 46 2c 31  2c 20 46 2c 31 2c 20 46  |F,3, F,1, F,1, F|
00000510  2c 31 2c 20 46 2c 33 2c  20 46 2c 31 2c 20 46 2c  |,1, F,3, F,1, F,|
00000520  31 2c 20 46 2c 31 2c 20  46 2c 33 2c 20 43 2c 32  |1, F,1, F,3, C,2|
00000530  2c 20 66 2c 31 2c 20 65  2c 32 2c 20 64 2c 31 2c  |, f,1, e,2, d,1,|
00000540  20 63 2c 32 2c 20 41 23  2c 31 2c 20 41 2c 32 2c  | c,2, A#,1, A,2,|
00000550  20 47 2c 31 2c 20 46 2c  33 2c 20 41 2c 33 2c 20  | G,1, F,3, A,3, |
00000560  46 2c 36 2c 20 64 6e 65  2c 30 0d 00 d2 04 0d 00  |F,6, dne,0......|
00000570  dc 0b dd f2 65 72 72 6f  72 0d 00 e6 1b ee 20 85  |....error..... .|
00000580  20 f6 3a f1 3b 22 20 61  74 20 6c 69 6e 65 20 22  | .:.;" at line "|
00000590  3b 9e 3a e0 0d 00 f0 14  e3 20 49 25 3d 31 20 b8  |;.:...... I%=1 .|
000005a0  20 6e 76 6f 69 63 65 73  0d 00 fa 19 ff 22 52 4d  | nvoices....."RM|
000005b0  4b 69 6c 6c 20 22 2b 76  6f 69 63 65 24 28 49 25  |Kill "+voice$(I%|
000005c0  29 0d 01 04 05 ed 0d 01  0e 08 c8 a0 20 31 0d 01  |)........... 1..|
000005d0  18 19 c8 a1 20 31 2c 22  57 61 76 65 53 79 6e 74  |.... 1,"WaveSynt|
000005e0  68 2d 42 65 65 70 22 0d  01 22 0d 2a 54 55 4e 49  |h-Beep"..".*TUNI|
000005f0  4e 47 20 30 0d 01 2c 0d  e7 20 9f 3c 3e 31 37 20  |NG 0..,.. .<>17 |
00000600  8c 0d 01 36 05 db 0d 01  40 05 f6 0d 01 4a 13 f1  |...6....@....J..|
00000610  3b 22 20 61 74 20 6c 69  6e 65 20 22 3b 9e 0d 01  |;" at line ";...|
00000620  54 05 e0 0d 01 5e 05 cc  0d 01 68 0b d7 22 4d 45  |T....^....h.."ME|
00000630  4e 55 22 0d 01 72 05 e1  0d 01 7c 17 dd f2 69 6e  |NU"..r....|...in|
00000640  73 74 61 6c 6c 3a 6e 76  6f 69 63 65 73 3d 32 0d  |stall:nvoices=2.|
00000650  01 86 1b ee 20 85 20 f6  3a f1 3b 22 20 61 74 20  |.... . .:.;" at |
00000660  6c 69 6e 65 20 22 3b 9e  3a e0 0d 01 90 0d 2a 54  |line ";.:.....*T|
00000670  55 4e 49 4e 47 20 30 0d  01 9a 15 de 20 76 6f 69  |UNING 0..... voi|
00000680  63 65 24 28 6e 76 6f 69  63 65 73 29 0d 01 a4 08  |ce$(nvoices)....|
00000690  f7 20 2b 38 0d 01 ae 14  e3 20 49 25 3d 31 20 b8  |. +8..... I%=1 .|
000006a0  20 6e 76 6f 69 63 65 73  0d 01 b8 10 f3 20 76 6f  | nvoices..... vo|
000006b0  69 63 65 24 28 49 25 29  0d 01 c2 22 ff 22 52 4d  |ice$(I%)..."."RM|
000006c0  4c 6f 61 64 20 4d 6f 64  53 61 6d 70 73 2e 22 2b  |Load ModSamps."+|
000006d0  76 6f 69 63 65 24 28 49  25 29 0d 01 cc 05 ed 0d  |voice$(I%)......|
000006e0  01 d6 08 c8 a0 20 34 0d  01 e0 12 2a 54 55 4e 49  |..... 4....*TUNI|
000006f0  4e 47 20 2d 26 33 30 30  30 0d 01 ea 0e ee 20 85  |NG -&3000..... .|
00000700  20 f2 65 72 72 6f 72 0d  01 f4 05 e1 0d 01 fe 15  | .error.........|
00000710  dc 20 46 55 4e 42 41 53  53 2c 4e 4f 54 45 4d 41  |. FUNBASS,NOTEMA|
00000720  4e 0d ff                                          |N..|
00000723