Home » Personal collection » Acorn ADFS disks » Electron » Music_2.ADF » SAMPLES/HILLSTR
SAMPLES/HILLSTR
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 ADFS disks » Electron » Music_2.ADF |
Filename: | SAMPLES/HILLSTR |
Read OK: | ✔ |
File size: | 0E07 bytes |
Load address: | FFFF1D00 |
Exec address: | FFFF8023 |
File contents
10 REM HILL STREET BLUES 20 REM CONVERTED TO THE ELK BY BOB. 30PROCa:MODE4:PROCb:PROCc:END 40DEFPROCa:DIMd%(34,2),P%(4,12):DIMe$(50,3),f%(3),g%(3),h%(3),i%(3),j%(3),k%(3):DIMl$(4):FORm%=0TO2:FORn%=0TO34:READd%(n%,m%):NEXT:NEXT:o%=0:p%=1:q%=2:r$="":FORs%=1TO3:k%(s%)=1:NEXT:ENVELOPE1,140,0,0,0,0,0,0,126,-126,-1,-5,126,110:ENVELOPE2,135,0,0,0,0,0,0,126,-110,0,-5,125,110 50ENVELOPE3,131,0,0,0,0,0,0,126,-126,-1,-5,126,110:ENVELOPE4,130,0,0,0,0,0,0,126,-1,-1,-5,126,10:FORJ%=1TO4:FORI%=0TO12:READP%(J%,I%):NEXT:NEXT:ENDPROC 60DATA-1,0,4,12,20,24,32,40,48,52,60,68,72,80,88,96,100,108,116,120,128,136,144,148,156,164,168,176,184,192,196,204,212,216,224,-1,4,8,16,24,28,36,44,52,56,64,72,76,84,92,100,104,112,120,124,132,140,148,152,160,168,172,180 70DATA188,196,200,208,216,220,228,-1,-1,0,8,16,20,28,36,44,48,56,64,68,76,84,92,96,104,112,116,124,132,140,144,152,160,164,172,180,188,192,200,208,212,220 80DATA140,0,0,0,0,0,0,126,-126,-1,-5,126,110,135,0,0,0,0,0,0,126,-110,0,-5,125,110,131,0,0,0,0,0,0,126,-126,-1,-5,126,110,130,0,0,0,0,0,0,126,-1,-1,-5,126,10,9999 90DEFPROCt(s%):u$="":v$=MID$(e$(w%,s%),f%(s%),1):IFv$=""ENDPROC 100IFv$>="0"ANDv$<="9"x%=TRUE:REPEATu$=u$+v$:f%(s%)=f%(s%)+1:v$=MID$(e$(w%,s%),f%(s%),1):UNTILv$<"0"ORv$>"9"ELSEx%=FALSE:u$=v$:f%(s%)=f%(s%)+1 110ENDPROC 120DEFPROCy(w%,s%):IFg%(s%)>=L%ENDPROC 130z%=0:aa%=k%(s%) 140PROCt(s%):IFu$=""h%(s%)=TRUE:ENDPROC 150IFASCu$>&40IFASCu$<&48THEN220 160IFu$="("PROCt(s%):i%(s%)=VAL(u$):f%(s%)=f%(s%)+1:GOTO140 170IFu$="b"z%=2:GOTO140 180IFu$="#"z%=1:GOTO140 190IFu$=" "aa%=0:ba%=0:GOTO240 200IFu$="<"PROCt(s%):k%(s%)=VAL(u$):aa%=k%(s%):f%(s%)=f%(s%)+1:GOTO140 210IFx%j%(s%)=q%*VAL(u$):GOTO140 220ba%=d%(ASC(u$)-ASC("A")+(i%(s%)-1)*7,z%) 230FORI=1TO20:NEXT 240SOUNDs%,aa%,ba%,j%(s%):z%=0:aa%=k%(s%):g%(s%)=g%(s%)+j%(s%):IFg%(s%)<L%THEN140ELSEENDPROC 250DEFPROCc:CLS:PRINTTAB((34-LEN(ca$))/2,5);:PROCD(ca$,7):PRINTTAB(15,12);:PROCD("by",1):PRINTTAB((34-LEN(da$))/2,18);:PROCD(da$,7):FORI%=1TO4:ENVELOPEI%,P%(I%,0),P%(I%,1),P%(I%,2),P%(I%,3),P%(I%,4),P%(I%,5),P%(I%,6),P%(I%,7),P%(I%,8),P%(I%,9),P%(I%,10),P%(I%,11),P%(I%,12):NEXT 260FOR I=1TO20:NEXT 270SOUND&201,0,0,32:SOUND&202,0,0,32:SOUND&203,0,0,32:FORea%=0TOo%:PROCfa(ea%):NEXT:ENDPROC:PROCga:ENDPROC 280DEFPROCfa(w%):ha$=e$(w%,1):IFLEFT$(ha$,1)="]"PROCfa(VAL(RIGHT$(ha$,LEN(ha$)-1))):ENDPROC 290ia%=4:L%=ia%:FORs%=1TO3:h%(s%)=TRUE:NEXT:FORs%=1TOp%:h%(s%)=FALSE:g%(s%)=0:f%(s%)=1:NEXT:REPEAT:FORs%=1TOp%:PROCy(w%,s%):NEXT:L%=L%+ia%:UNTILh%(1)ANDh%(2)ANDh%(3):ENDPROC 300DEFPROCb:RESTORE330:READca$,da$,o%,p%,q%:FORI%=1TO4:FORJ%=0TO12:READP%(I%,J%):NEXT:NEXT:RESTORE350:FORea%=0TOo%:FORs%=1TOp%:READe$(ea%,s%):NEXT:NEXT:ENDPROC 310DEFPROCga:PRINTTAB(0,24);CHR$(136);CHR$(131);CHR$(157);CHR$(129);"Press <SPACE> to continue";:REPEATUNTILGET$=" ":ENDPROC 320DEFPROCD(W$,C%):P%=POS:PRINTCHR$(128+C%)+CHR$(141)+W$:PRINTTAB(P%);:PRINTCHR$(128+C%)+CHR$(141)+W$:ENDPROC 330DATA"Hill Street Blues","M.Post",4,3,1 340DATA140,0,0,0,0,0,0,126,-126,-1,-5,126,110,135,0,0,0,0,0,0,126,-110,0,-5,125,110,131,0,0,0,0,0,0,126,-126,-1,-5,126,110,130,0,0,0,0,0,0,126,-1,-1,-5,126,10 350DATA"(4)8bE4D20bE8bE4D20bE8bE4D8bE4DCD(3)8G4F8bE4G(4)8bB(3)8G4F8bE(4)4C(3)8bG(4)8C4bB12bA8C" 360DATA"(3)8G4F20G8G4F20G8G4F8G12F8bE4D20C8C4bB20bA8G4F12bE8F" 370DATA"(2)32bE(3)32bAbB8bA(2)4G20F(3)8bA(2)4G20F(3)8bA(2)4G12F(3)8bB" 380DATA"(4)8bE4D20bE8bE4D20bE8bE4D8bE4DCD8bE4D20bE8G4F8bE4DCD8bE4D20bE8C4D8bE4CDbE8G4F8G4FbEF8G(5)4bB8A(4)4#C2#CbE4G8#F4G20#F8D4bE20F8bE4G20F8bE4D20bE8bE4D20bE8bE4D8bE4DCD8bE4D20bE8G4F8bE4DCD8bE4D20bE" 390DATA"(3)8G4F20G8G4F20G8G4F8G12F8G4F20G8bE4 8C4 bA (3)8G4F20G8bE4 8bE12 (4)8bE4 8bE12 8E4 8E12 8A4 20A8bB4C20D8C4bE20D(3)8G4F20G8G4F20G8G4F8G12 8G4F20G(4)8bE4 8C4 bA (3)8G4F20G" 400DATA"(2)12bE4bE8bE8bE(3)12bA4bA16bA12bB(2)4bB16bB28bE4bE(3)24bA8bB(2)16bE(3)8bE(2)8bE(3)12A4A12A4A12bB4B12B4B12C4#C12#C4#C16D8D4AA(2)20G4DbB(1)G(2)16bA8bA4bBbB20bE8bE4bE(3)24bA8bA12bB(2)16bB4bB24bE8bE(3)24bA8bB(2)16bE(3)8bE(2)8bE" 410DATA"(3)8G4F20bE8G4F20bE","(3)8bE4D20C8C4bB20bA","(3)8bA(2)4G16F4F(3)8bA(2)4G20F","(3)8G4F12bE8CbE4D12bE4D14bE12D20bE","(3)8bE4D12C8bA8bB4bB(2)12G(3)4bB(2)14G(3)12bB(2)20G","(3)8bA(2)4G12F8bB28bE(3)14bB12bA(2)20bE","(3)","(2)","(3)"
� HILL STREET BLUES # � CONVERTED TO THE ELK BY BOB. �a:�4:�b:�c:� (���a:�d%(34,2),P%(4,12):�e$(50,3),f%(3),g%(3),h%(3),i%(3),j%(3),k%(3):�l$(4):�m%=0�2:�n%=0�34:�d%(n%,m%):�:�:o%=0:p%=1:q%=2:r$="":�s%=1�3:k%(s%)=1:�:�1,140,0,0,0,0,0,0,126,-126,-1,-5,126,110:�2,135,0,0,0,0,0,0,126,-110,0,-5,125,110 2v�3,131,0,0,0,0,0,0,126,-126,-1,-5,126,110:�4,130,0,0,0,0,0,0,126,-1,-1,-5,126,10:�J%=1�4:�I%=0�12:�P%(J%,I%):�:�:� <��-1,0,4,12,20,24,32,40,48,52,60,68,72,80,88,96,100,108,116,120,128,136,144,148,156,164,168,176,184,192,196,204,212,216,224,-1,4,8,16,24,28,36,44,52,56,64,72,76,84,92,100,104,112,120,124,132,140,148,152,160,168,172,180 F��188,196,200,208,216,220,228,-1,-1,0,8,16,20,28,36,44,48,56,64,68,76,84,92,96,104,112,116,124,132,140,144,152,160,164,172,180,188,192,200,208,212,220 P��140,0,0,0,0,0,0,126,-126,-1,-5,126,110,135,0,0,0,0,0,0,126,-110,0,-5,125,110,131,0,0,0,0,0,0,126,-126,-1,-5,126,110,130,0,0,0,0,0,0,126,-1,-1,-5,126,10,9999 Z1��t(s%):u$="":v$=�e$(w%,s%),f%(s%),1):�v$=""� dt�v$>="0"�v$<="9"x%=�:�u$=u$+v$:f%(s%)=f%(s%)+1:v$=�e$(w%,s%),f%(s%),1):�v$<"0"�v$>"9"�x%=�:u$=v$:f%(s%)=f%(s%)+1 n� x��y(w%,s%):�g%(s%)>=L%� �z%=0:aa%=k%(s%) ��t(s%):�u$=""h%(s%)=�:� ��u$>&40�u$<&48��d\@ �4�u$="("�t(s%):i%(s%)=�(u$):f%(s%)=f%(s%)+1:�tL@ ��u$="b"z%=2:�tL@ ��u$="#"z%=1:�tL@ ��u$=" "aa%=0:ba%=0:�dp@ �?�u$="<"�t(s%):k%(s%)=�(u$):aa%=k%(s%):f%(s%)=f%(s%)+1:�tL@ ��x%j%(s%)=q%*�(u$):�tL@ �(ba%=d%(�(u$)-�("A")+(i%(s%)-1)*7,z%) � �I=1�20:� �M�s%,aa%,ba%,j%(s%):z%=0:aa%=k%(s%):g%(s%)=g%(s%)+j%(s%):�g%(s%)<L%��tL@�� ����c:�:�(34-�(ca$))/2,5);:�D(ca$,7):�15,12);:�D("by",1):�(34-�(da$))/2,18);:�D(da$,7):�I%=1�4:�I%,P%(I%,0),P%(I%,1),P%(I%,2),P%(I%,3),P%(I%,4),P%(I%,5),P%(I%,6),P%(I%,7),P%(I%,8),P%(I%,9),P%(I%,10),P%(I%,11),P%(I%,12):� � I=1�20:� G�&201,0,0,32:�&202,0,0,32:�&203,0,0,32:�ea%=0�o%:�fa(ea%):�:�:�ga:� >��fa(w%):ha$=e$(w%,1):�ha$,1)="]"�fa(�(�ha$,�(ha$)-1))):� "ia%=4:L%=ia%:�s%=1�3:h%(s%)=�:�:�s%=1�p%:h%(s%)=�:g%(s%)=0:f%(s%)=1:�:�:�s%=1�p%:�y(w%,s%):�:L%=L%+ia%:�h%(1)�h%(2)�h%(3):� ,j��b:��DJA:�ca$,da$,o%,p%,q%:�I%=1�4:�J%=0�12:�P%(I%,J%):�:�:��D^A:�ea%=0�o%:�s%=1�p%:�e$(ea%,s%):�:�:� 6S��ga:�0,24);�(136);�(131);�(157);�(129);"Press <SPACE> to continue";:���=" ":� @F��D(W$,C%):P%=�:�(128+C%)+�(141)+W$:�P%);:�(128+C%)+�(141)+W$:� J'�"Hill Street Blues","M.Post",4,3,1 T��140,0,0,0,0,0,0,126,-126,-1,-5,126,110,135,0,0,0,0,0,0,126,-110,0,-5,125,110,131,0,0,0,0,0,0,126,-126,-1,-5,126,110,130,0,0,0,0,0,0,126,-1,-1,-5,126,10 ^]�"(4)8bE4D20bE8bE4D20bE8bE4D8bE4DCD(3)8G4F8bE4G(4)8bB(3)8G4F8bE(4)4C(3)8bG(4)8C4bB12bA8C" h<�"(3)8G4F20G8G4F20G8G4F8G12F8bE4D20C8C4bB20bA8G4F12bE8F" rD�"(2)32bE(3)32bAbB8bA(2)4G20F(3)8bA(2)4G20F(3)8bA(2)4G12F(3)8bB" |��"(4)8bE4D20bE8bE4D20bE8bE4D8bE4DCD8bE4D20bE8G4F8bE4DCD8bE4D20bE8C4D8bE4CDbE8G4F8G4FbEF8G(5)4bB8A(4)4#C2#CbE4G8#F4G20#F8D4bE20F8bE4G20F8bE4D20bE8bE4D20bE8bE4D8bE4DCD8bE4D20bE8G4F8bE4DCD8bE4D20bE" ���"(3)8G4F20G8G4F20G8G4F8G12F8G4F20G8bE4 8C4 bA (3)8G4F20G8bE4 8bE12 (4)8bE4 8bE12 8E4 8E12 8A4 20A8bB4C20D8C4bE20D(3)8G4F20G8G4F20G8G4F8G12 8G4F20G(4)8bE4 8C4 bA (3)8G4F20G" ���"(2)12bE4bE8bE8bE(3)12bA4bA16bA12bB(2)4bB16bB28bE4bE(3)24bA8bB(2)16bE(3)8bE(2)8bE(3)12A4A12A4A12bB4B12B4B12C4#C12#C4#C16D8D4AA(2)20G4DbB(1)G(2)16bA8bA4bBbB20bE8bE4bE(3)24bA8bA12bB(2)16bB4bB24bE8bE(3)24bA8bB(2)16bE(3)8bE(2)8bE" ���"(3)8G4F20bE8G4F20bE","(3)8bE4D20C8C4bB20bA","(3)8bA(2)4G16F4F(3)8bA(2)4G20F","(3)8G4F12bE8CbE4D12bE4D14bE12D20bE","(3)8bE4D12C8bA8bB4bB(2)12G(3)4bB(2)14G(3)12bB(2)20G","(3)8bA(2)4G12F8bB28bE(3)14bB12bA(2)20bE","(3)","(2)","(3)" �
00000000 0d 00 0a 18 20 f4 20 48 49 4c 4c 20 53 54 52 45 |.... . HILL STRE| 00000010 45 54 20 42 4c 55 45 53 0d 00 14 23 20 f4 20 43 |ET BLUES...# . C| 00000020 4f 4e 56 45 52 54 45 44 20 54 4f 20 54 48 45 20 |ONVERTED TO THE | 00000030 45 4c 4b 20 42 59 20 42 4f 42 2e 0d 00 1e 12 f2 |ELK BY BOB......| 00000040 61 3a eb 34 3a f2 62 3a f2 63 3a e0 20 0d 00 28 |a:.4:.b:.c:. ..(| 00000050 ea dd f2 61 3a de 64 25 28 33 34 2c 32 29 2c 50 |...a:.d%(34,2),P| 00000060 25 28 34 2c 31 32 29 3a de 65 24 28 35 30 2c 33 |%(4,12):.e$(50,3| 00000070 29 2c 66 25 28 33 29 2c 67 25 28 33 29 2c 68 25 |),f%(3),g%(3),h%| 00000080 28 33 29 2c 69 25 28 33 29 2c 6a 25 28 33 29 2c |(3),i%(3),j%(3),| 00000090 6b 25 28 33 29 3a de 6c 24 28 34 29 3a e3 6d 25 |k%(3):.l$(4):.m%| 000000a0 3d 30 b8 32 3a e3 6e 25 3d 30 b8 33 34 3a f3 64 |=0.2:.n%=0.34:.d| 000000b0 25 28 6e 25 2c 6d 25 29 3a ed 3a ed 3a 6f 25 3d |%(n%,m%):.:.:o%=| 000000c0 30 3a 70 25 3d 31 3a 71 25 3d 32 3a 72 24 3d 22 |0:p%=1:q%=2:r$="| 000000d0 22 3a e3 73 25 3d 31 b8 33 3a 6b 25 28 73 25 29 |":.s%=1.3:k%(s%)| 000000e0 3d 31 3a ed 3a e2 31 2c 31 34 30 2c 30 2c 30 2c |=1:.:.1,140,0,0,| 000000f0 30 2c 30 2c 30 2c 30 2c 31 32 36 2c 2d 31 32 36 |0,0,0,0,126,-126| 00000100 2c 2d 31 2c 2d 35 2c 31 32 36 2c 31 31 30 3a e2 |,-1,-5,126,110:.| 00000110 32 2c 31 33 35 2c 30 2c 30 2c 30 2c 30 2c 30 2c |2,135,0,0,0,0,0,| 00000120 30 2c 31 32 36 2c 2d 31 31 30 2c 30 2c 2d 35 2c |0,126,-110,0,-5,| 00000130 31 32 35 2c 31 31 30 0d 00 32 76 e2 33 2c 31 33 |125,110..2v.3,13| 00000140 31 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 31 32 |1,0,0,0,0,0,0,12| 00000150 36 2c 2d 31 32 36 2c 2d 31 2c 2d 35 2c 31 32 36 |6,-126,-1,-5,126| 00000160 2c 31 31 30 3a e2 34 2c 31 33 30 2c 30 2c 30 2c |,110:.4,130,0,0,| 00000170 30 2c 30 2c 30 2c 30 2c 31 32 36 2c 2d 31 2c 2d |0,0,0,0,126,-1,-| 00000180 31 2c 2d 35 2c 31 32 36 2c 31 30 3a e3 4a 25 3d |1,-5,126,10:.J%=| 00000190 31 b8 34 3a e3 49 25 3d 30 b8 31 32 3a f3 50 25 |1.4:.I%=0.12:.P%| 000001a0 28 4a 25 2c 49 25 29 3a ed 3a ed 3a e1 0d 00 3c |(J%,I%):.:.:...<| 000001b0 dd dc 2d 31 2c 30 2c 34 2c 31 32 2c 32 30 2c 32 |..-1,0,4,12,20,2| 000001c0 34 2c 33 32 2c 34 30 2c 34 38 2c 35 32 2c 36 30 |4,32,40,48,52,60| 000001d0 2c 36 38 2c 37 32 2c 38 30 2c 38 38 2c 39 36 2c |,68,72,80,88,96,| 000001e0 31 30 30 2c 31 30 38 2c 31 31 36 2c 31 32 30 2c |100,108,116,120,| 000001f0 31 32 38 2c 31 33 36 2c 31 34 34 2c 31 34 38 2c |128,136,144,148,| 00000200 31 35 36 2c 31 36 34 2c 31 36 38 2c 31 37 36 2c |156,164,168,176,| 00000210 31 38 34 2c 31 39 32 2c 31 39 36 2c 32 30 34 2c |184,192,196,204,| 00000220 32 31 32 2c 32 31 36 2c 32 32 34 2c 2d 31 2c 34 |212,216,224,-1,4| 00000230 2c 38 2c 31 36 2c 32 34 2c 32 38 2c 33 36 2c 34 |,8,16,24,28,36,4| 00000240 34 2c 35 32 2c 35 36 2c 36 34 2c 37 32 2c 37 36 |4,52,56,64,72,76| 00000250 2c 38 34 2c 39 32 2c 31 30 30 2c 31 30 34 2c 31 |,84,92,100,104,1| 00000260 31 32 2c 31 32 30 2c 31 32 34 2c 31 33 32 2c 31 |12,120,124,132,1| 00000270 34 30 2c 31 34 38 2c 31 35 32 2c 31 36 30 2c 31 |40,148,152,160,1| 00000280 36 38 2c 31 37 32 2c 31 38 30 0d 00 46 99 dc 31 |68,172,180..F..1| 00000290 38 38 2c 31 39 36 2c 32 30 30 2c 32 30 38 2c 32 |88,196,200,208,2| 000002a0 31 36 2c 32 32 30 2c 32 32 38 2c 2d 31 2c 2d 31 |16,220,228,-1,-1| 000002b0 2c 30 2c 38 2c 31 36 2c 32 30 2c 32 38 2c 33 36 |,0,8,16,20,28,36| 000002c0 2c 34 34 2c 34 38 2c 35 36 2c 36 34 2c 36 38 2c |,44,48,56,64,68,| 000002d0 37 36 2c 38 34 2c 39 32 2c 39 36 2c 31 30 34 2c |76,84,92,96,104,| 000002e0 31 31 32 2c 31 31 36 2c 31 32 34 2c 31 33 32 2c |112,116,124,132,| 000002f0 31 34 30 2c 31 34 34 2c 31 35 32 2c 31 36 30 2c |140,144,152,160,| 00000300 31 36 34 2c 31 37 32 2c 31 38 30 2c 31 38 38 2c |164,172,180,188,| 00000310 31 39 32 2c 32 30 30 2c 32 30 38 2c 32 31 32 2c |192,200,208,212,| 00000320 32 32 30 0d 00 50 a1 dc 31 34 30 2c 30 2c 30 2c |220..P..140,0,0,| 00000330 30 2c 30 2c 30 2c 30 2c 31 32 36 2c 2d 31 32 36 |0,0,0,0,126,-126| 00000340 2c 2d 31 2c 2d 35 2c 31 32 36 2c 31 31 30 2c 31 |,-1,-5,126,110,1| 00000350 33 35 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 31 |35,0,0,0,0,0,0,1| 00000360 32 36 2c 2d 31 31 30 2c 30 2c 2d 35 2c 31 32 35 |26,-110,0,-5,125| 00000370 2c 31 31 30 2c 31 33 31 2c 30 2c 30 2c 30 2c 30 |,110,131,0,0,0,0| 00000380 2c 30 2c 30 2c 31 32 36 2c 2d 31 32 36 2c 2d 31 |,0,0,126,-126,-1| 00000390 2c 2d 35 2c 31 32 36 2c 31 31 30 2c 31 33 30 2c |,-5,126,110,130,| 000003a0 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 31 32 36 2c |0,0,0,0,0,0,126,| 000003b0 2d 31 2c 2d 31 2c 2d 35 2c 31 32 36 2c 31 30 2c |-1,-1,-5,126,10,| 000003c0 39 39 39 39 0d 00 5a 31 dd f2 74 28 73 25 29 3a |9999..Z1..t(s%):| 000003d0 75 24 3d 22 22 3a 76 24 3d c1 65 24 28 77 25 2c |u$="":v$=.e$(w%,| 000003e0 73 25 29 2c 66 25 28 73 25 29 2c 31 29 3a e7 76 |s%),f%(s%),1):.v| 000003f0 24 3d 22 22 e1 0d 00 64 74 e7 76 24 3e 3d 22 30 |$=""...dt.v$>="0| 00000400 22 80 76 24 3c 3d 22 39 22 78 25 3d b9 3a f5 75 |".v$<="9"x%=.:.u| 00000410 24 3d 75 24 2b 76 24 3a 66 25 28 73 25 29 3d 66 |$=u$+v$:f%(s%)=f| 00000420 25 28 73 25 29 2b 31 3a 76 24 3d c1 65 24 28 77 |%(s%)+1:v$=.e$(w| 00000430 25 2c 73 25 29 2c 66 25 28 73 25 29 2c 31 29 3a |%,s%),f%(s%),1):| 00000440 fd 76 24 3c 22 30 22 84 76 24 3e 22 39 22 8b 78 |.v$<"0".v$>"9".x| 00000450 25 3d a3 3a 75 24 3d 76 24 3a 66 25 28 73 25 29 |%=.:u$=v$:f%(s%)| 00000460 3d 66 25 28 73 25 29 2b 31 0d 00 6e 05 e1 0d 00 |=f%(s%)+1..n....| 00000470 78 1b dd f2 79 28 77 25 2c 73 25 29 3a e7 67 25 |x...y(w%,s%):.g%| 00000480 28 73 25 29 3e 3d 4c 25 e1 0d 00 82 13 7a 25 3d |(s%)>=L%.....z%=| 00000490 30 3a 61 61 25 3d 6b 25 28 73 25 29 0d 00 8c 1b |0:aa%=k%(s%)....| 000004a0 f2 74 28 73 25 29 3a e7 75 24 3d 22 22 68 25 28 |.t(s%):.u$=""h%(| 000004b0 73 25 29 3d b9 3a e1 0d 00 96 19 e7 97 75 24 3e |s%)=.:.......u$>| 000004c0 26 34 30 e7 97 75 24 3c 26 34 38 8c 8d 64 5c 40 |&40..u$<&48..d\@| 000004d0 0d 00 a0 34 e7 75 24 3d 22 28 22 f2 74 28 73 25 |...4.u$="(".t(s%| 000004e0 29 3a 69 25 28 73 25 29 3d bb 28 75 24 29 3a 66 |):i%(s%)=.(u$):f| 000004f0 25 28 73 25 29 3d 66 25 28 73 25 29 2b 31 3a e5 |%(s%)=f%(s%)+1:.| 00000500 8d 74 4c 40 0d 00 aa 15 e7 75 24 3d 22 62 22 7a |.tL@.....u$="b"z| 00000510 25 3d 32 3a e5 8d 74 4c 40 0d 00 b4 15 e7 75 24 |%=2:..tL@.....u$| 00000520 3d 22 23 22 7a 25 3d 31 3a e5 8d 74 4c 40 0d 00 |="#"z%=1:..tL@..| 00000530 be 1c e7 75 24 3d 22 20 22 61 61 25 3d 30 3a 62 |...u$=" "aa%=0:b| 00000540 61 25 3d 30 3a e5 8d 64 70 40 0d 00 c8 3f e7 75 |a%=0:..dp@...?.u| 00000550 24 3d 22 3c 22 f2 74 28 73 25 29 3a 6b 25 28 73 |$="<".t(s%):k%(s| 00000560 25 29 3d bb 28 75 24 29 3a 61 61 25 3d 6b 25 28 |%)=.(u$):aa%=k%(| 00000570 73 25 29 3a 66 25 28 73 25 29 3d 66 25 28 73 25 |s%):f%(s%)=f%(s%| 00000580 29 2b 31 3a e5 8d 74 4c 40 0d 00 d2 1c e7 78 25 |)+1:..tL@.....x%| 00000590 6a 25 28 73 25 29 3d 71 25 2a bb 28 75 24 29 3a |j%(s%)=q%*.(u$):| 000005a0 e5 8d 74 4c 40 0d 00 dc 28 62 61 25 3d 64 25 28 |..tL@...(ba%=d%(| 000005b0 97 28 75 24 29 2d 97 28 22 41 22 29 2b 28 69 25 |.(u$)-.("A")+(i%| 000005c0 28 73 25 29 2d 31 29 2a 37 2c 7a 25 29 0d 00 e6 |(s%)-1)*7,z%)...| 000005d0 0d e3 49 3d 31 b8 32 30 3a ed 0d 00 f0 4d d4 73 |..I=1.20:....M.s| 000005e0 25 2c 61 61 25 2c 62 61 25 2c 6a 25 28 73 25 29 |%,aa%,ba%,j%(s%)| 000005f0 3a 7a 25 3d 30 3a 61 61 25 3d 6b 25 28 73 25 29 |:z%=0:aa%=k%(s%)| 00000600 3a 67 25 28 73 25 29 3d 67 25 28 73 25 29 2b 6a |:g%(s%)=g%(s%)+j| 00000610 25 28 73 25 29 3a e7 67 25 28 73 25 29 3c 4c 25 |%(s%):.g%(s%)<L%| 00000620 8c 8d 74 4c 40 8b e1 0d 00 fa e1 dd f2 63 3a db |..tL@........c:.| 00000630 3a f1 8a 28 33 34 2d a9 28 63 61 24 29 29 2f 32 |:..(34-.(ca$))/2| 00000640 2c 35 29 3b 3a f2 44 28 63 61 24 2c 37 29 3a f1 |,5);:.D(ca$,7):.| 00000650 8a 31 35 2c 31 32 29 3b 3a f2 44 28 22 62 79 22 |.15,12);:.D("by"| 00000660 2c 31 29 3a f1 8a 28 33 34 2d a9 28 64 61 24 29 |,1):..(34-.(da$)| 00000670 29 2f 32 2c 31 38 29 3b 3a f2 44 28 64 61 24 2c |)/2,18);:.D(da$,| 00000680 37 29 3a e3 49 25 3d 31 b8 34 3a e2 49 25 2c 50 |7):.I%=1.4:.I%,P| 00000690 25 28 49 25 2c 30 29 2c 50 25 28 49 25 2c 31 29 |%(I%,0),P%(I%,1)| 000006a0 2c 50 25 28 49 25 2c 32 29 2c 50 25 28 49 25 2c |,P%(I%,2),P%(I%,| 000006b0 33 29 2c 50 25 28 49 25 2c 34 29 2c 50 25 28 49 |3),P%(I%,4),P%(I| 000006c0 25 2c 35 29 2c 50 25 28 49 25 2c 36 29 2c 50 25 |%,5),P%(I%,6),P%| 000006d0 28 49 25 2c 37 29 2c 50 25 28 49 25 2c 38 29 2c |(I%,7),P%(I%,8),| 000006e0 50 25 28 49 25 2c 39 29 2c 50 25 28 49 25 2c 31 |P%(I%,9),P%(I%,1| 000006f0 30 29 2c 50 25 28 49 25 2c 31 31 29 2c 50 25 28 |0),P%(I%,11),P%(| 00000700 49 25 2c 31 32 29 3a ed 0d 01 04 0e e3 20 49 3d |I%,12):...... I=| 00000710 31 b8 32 30 3a ed 0d 01 0e 47 d4 26 32 30 31 2c |1.20:....G.&201,| 00000720 30 2c 30 2c 33 32 3a d4 26 32 30 32 2c 30 2c 30 |0,0,32:.&202,0,0| 00000730 2c 33 32 3a d4 26 32 30 33 2c 30 2c 30 2c 33 32 |,32:.&203,0,0,32| 00000740 3a e3 65 61 25 3d 30 b8 6f 25 3a f2 66 61 28 65 |:.ea%=0.o%:.fa(e| 00000750 61 25 29 3a ed 3a e1 3a f2 67 61 3a e1 0d 01 18 |a%):.:.:.ga:....| 00000760 3e dd f2 66 61 28 77 25 29 3a 68 61 24 3d 65 24 |>..fa(w%):ha$=e$| 00000770 28 77 25 2c 31 29 3a e7 c0 68 61 24 2c 31 29 3d |(w%,1):..ha$,1)=| 00000780 22 5d 22 f2 66 61 28 bb 28 c2 68 61 24 2c a9 28 |"]".fa(.(.ha$,.(| 00000790 68 61 24 29 2d 31 29 29 29 3a e1 0d 01 22 7f 69 |ha$)-1))):...".i| 000007a0 61 25 3d 34 3a 4c 25 3d 69 61 25 3a e3 73 25 3d |a%=4:L%=ia%:.s%=| 000007b0 31 b8 33 3a 68 25 28 73 25 29 3d b9 3a ed 3a e3 |1.3:h%(s%)=.:.:.| 000007c0 73 25 3d 31 b8 70 25 3a 68 25 28 73 25 29 3d a3 |s%=1.p%:h%(s%)=.| 000007d0 3a 67 25 28 73 25 29 3d 30 3a 66 25 28 73 25 29 |:g%(s%)=0:f%(s%)| 000007e0 3d 31 3a ed 3a f5 3a e3 73 25 3d 31 b8 70 25 3a |=1:.:.:.s%=1.p%:| 000007f0 f2 79 28 77 25 2c 73 25 29 3a ed 3a 4c 25 3d 4c |.y(w%,s%):.:L%=L| 00000800 25 2b 69 61 25 3a fd 68 25 28 31 29 80 68 25 28 |%+ia%:.h%(1).h%(| 00000810 32 29 80 68 25 28 33 29 3a e1 0d 01 2c 6a dd f2 |2).h%(3):...,j..| 00000820 62 3a f7 8d 44 4a 41 3a f3 63 61 24 2c 64 61 24 |b:..DJA:.ca$,da$| 00000830 2c 6f 25 2c 70 25 2c 71 25 3a e3 49 25 3d 31 b8 |,o%,p%,q%:.I%=1.| 00000840 34 3a e3 4a 25 3d 30 b8 31 32 3a f3 50 25 28 49 |4:.J%=0.12:.P%(I| 00000850 25 2c 4a 25 29 3a ed 3a ed 3a f7 8d 44 5e 41 3a |%,J%):.:.:..D^A:| 00000860 e3 65 61 25 3d 30 b8 6f 25 3a e3 73 25 3d 31 b8 |.ea%=0.o%:.s%=1.| 00000870 70 25 3a f3 65 24 28 65 61 25 2c 73 25 29 3a ed |p%:.e$(ea%,s%):.| 00000880 3a ed 3a e1 0d 01 36 53 dd f2 67 61 3a f1 8a 30 |:.:...6S..ga:..0| 00000890 2c 32 34 29 3b bd 28 31 33 36 29 3b bd 28 31 33 |,24);.(136);.(13| 000008a0 31 29 3b bd 28 31 35 37 29 3b bd 28 31 32 39 29 |1);.(157);.(129)| 000008b0 3b 22 50 72 65 73 73 20 3c 53 50 41 43 45 3e 20 |;"Press <SPACE> | 000008c0 74 6f 20 63 6f 6e 74 69 6e 75 65 22 3b 3a f5 fd |to continue";:..| 000008d0 be 3d 22 20 22 3a e1 0d 01 40 46 dd f2 44 28 57 |.=" ":...@F..D(W| 000008e0 24 2c 43 25 29 3a 50 25 3d b1 3a f1 bd 28 31 32 |$,C%):P%=.:..(12| 000008f0 38 2b 43 25 29 2b bd 28 31 34 31 29 2b 57 24 3a |8+C%)+.(141)+W$:| 00000900 f1 8a 50 25 29 3b 3a f1 bd 28 31 32 38 2b 43 25 |..P%);:..(128+C%| 00000910 29 2b bd 28 31 34 31 29 2b 57 24 3a e1 0d 01 4a |)+.(141)+W$:...J| 00000920 27 dc 22 48 69 6c 6c 20 53 74 72 65 65 74 20 42 |'."Hill Street B| 00000930 6c 75 65 73 22 2c 22 4d 2e 50 6f 73 74 22 2c 34 |lues","M.Post",4| 00000940 2c 33 2c 31 0d 01 54 9c dc 31 34 30 2c 30 2c 30 |,3,1..T..140,0,0| 00000950 2c 30 2c 30 2c 30 2c 30 2c 31 32 36 2c 2d 31 32 |,0,0,0,0,126,-12| 00000960 36 2c 2d 31 2c 2d 35 2c 31 32 36 2c 31 31 30 2c |6,-1,-5,126,110,| 00000970 31 33 35 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c |135,0,0,0,0,0,0,| 00000980 31 32 36 2c 2d 31 31 30 2c 30 2c 2d 35 2c 31 32 |126,-110,0,-5,12| 00000990 35 2c 31 31 30 2c 31 33 31 2c 30 2c 30 2c 30 2c |5,110,131,0,0,0,| 000009a0 30 2c 30 2c 30 2c 31 32 36 2c 2d 31 32 36 2c 2d |0,0,0,126,-126,-| 000009b0 31 2c 2d 35 2c 31 32 36 2c 31 31 30 2c 31 33 30 |1,-5,126,110,130| 000009c0 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 31 32 36 |,0,0,0,0,0,0,126| 000009d0 2c 2d 31 2c 2d 31 2c 2d 35 2c 31 32 36 2c 31 30 |,-1,-1,-5,126,10| 000009e0 0d 01 5e 5d dc 22 28 34 29 38 62 45 34 44 32 30 |..^]."(4)8bE4D20| 000009f0 62 45 38 62 45 34 44 32 30 62 45 38 62 45 34 44 |bE8bE4D20bE8bE4D| 00000a00 38 62 45 34 44 43 44 28 33 29 38 47 34 46 38 62 |8bE4DCD(3)8G4F8b| 00000a10 45 34 47 28 34 29 38 62 42 28 33 29 38 47 34 46 |E4G(4)8bB(3)8G4F| 00000a20 38 62 45 28 34 29 34 43 28 33 29 38 62 47 28 34 |8bE(4)4C(3)8bG(4| 00000a30 29 38 43 34 62 42 31 32 62 41 38 43 22 0d 01 68 |)8C4bB12bA8C"..h| 00000a40 3c dc 22 28 33 29 38 47 34 46 32 30 47 38 47 34 |<."(3)8G4F20G8G4| 00000a50 46 32 30 47 38 47 34 46 38 47 31 32 46 38 62 45 |F20G8G4F8G12F8bE| 00000a60 34 44 32 30 43 38 43 34 62 42 32 30 62 41 38 47 |4D20C8C4bB20bA8G| 00000a70 34 46 31 32 62 45 38 46 22 0d 01 72 44 dc 22 28 |4F12bE8F"..rD."(| 00000a80 32 29 33 32 62 45 28 33 29 33 32 62 41 62 42 38 |2)32bE(3)32bAbB8| 00000a90 62 41 28 32 29 34 47 32 30 46 28 33 29 38 62 41 |bA(2)4G20F(3)8bA| 00000aa0 28 32 29 34 47 32 30 46 28 33 29 38 62 41 28 32 |(2)4G20F(3)8bA(2| 00000ab0 29 34 47 31 32 46 28 33 29 38 62 42 22 0d 01 7c |)4G12F(3)8bB"..|| 00000ac0 c7 dc 22 28 34 29 38 62 45 34 44 32 30 62 45 38 |.."(4)8bE4D20bE8| 00000ad0 62 45 34 44 32 30 62 45 38 62 45 34 44 38 62 45 |bE4D20bE8bE4D8bE| 00000ae0 34 44 43 44 38 62 45 34 44 32 30 62 45 38 47 34 |4DCD8bE4D20bE8G4| 00000af0 46 38 62 45 34 44 43 44 38 62 45 34 44 32 30 62 |F8bE4DCD8bE4D20b| 00000b00 45 38 43 34 44 38 62 45 34 43 44 62 45 38 47 34 |E8C4D8bE4CDbE8G4| 00000b10 46 38 47 34 46 62 45 46 38 47 28 35 29 34 62 42 |F8G4FbEF8G(5)4bB| 00000b20 38 41 28 34 29 34 23 43 32 23 43 62 45 34 47 38 |8A(4)4#C2#CbE4G8| 00000b30 23 46 34 47 32 30 23 46 38 44 34 62 45 32 30 46 |#F4G20#F8D4bE20F| 00000b40 38 62 45 34 47 32 30 46 38 62 45 34 44 32 30 62 |8bE4G20F8bE4D20b| 00000b50 45 38 62 45 34 44 32 30 62 45 38 62 45 34 44 38 |E8bE4D20bE8bE4D8| 00000b60 62 45 34 44 43 44 38 62 45 34 44 32 30 62 45 38 |bE4DCD8bE4D20bE8| 00000b70 47 34 46 38 62 45 34 44 43 44 38 62 45 34 44 32 |G4F8bE4DCD8bE4D2| 00000b80 30 62 45 22 0d 01 86 b1 dc 22 28 33 29 38 47 34 |0bE"....."(3)8G4| 00000b90 46 32 30 47 38 47 34 46 32 30 47 38 47 34 46 38 |F20G8G4F20G8G4F8| 00000ba0 47 31 32 46 38 47 34 46 32 30 47 38 62 45 34 20 |G12F8G4F20G8bE4 | 00000bb0 38 43 34 20 62 41 20 28 33 29 38 47 34 46 32 30 |8C4 bA (3)8G4F20| 00000bc0 47 38 62 45 34 20 38 62 45 31 32 20 28 34 29 38 |G8bE4 8bE12 (4)8| 00000bd0 62 45 34 20 38 62 45 31 32 20 38 45 34 20 38 45 |bE4 8bE12 8E4 8E| 00000be0 31 32 20 38 41 34 20 32 30 41 38 62 42 34 43 32 |12 8A4 20A8bB4C2| 00000bf0 30 44 38 43 34 62 45 32 30 44 28 33 29 38 47 34 |0D8C4bE20D(3)8G4| 00000c00 46 32 30 47 38 47 34 46 32 30 47 38 47 34 46 38 |F20G8G4F20G8G4F8| 00000c10 47 31 32 20 38 47 34 46 32 30 47 28 34 29 38 62 |G12 8G4F20G(4)8b| 00000c20 45 34 20 38 43 34 20 62 41 20 28 33 29 38 47 34 |E4 8C4 bA (3)8G4| 00000c30 46 32 30 47 22 0d 01 90 e7 dc 22 28 32 29 31 32 |F20G"....."(2)12| 00000c40 62 45 34 62 45 38 62 45 38 62 45 28 33 29 31 32 |bE4bE8bE8bE(3)12| 00000c50 62 41 34 62 41 31 36 62 41 31 32 62 42 28 32 29 |bA4bA16bA12bB(2)| 00000c60 34 62 42 31 36 62 42 32 38 62 45 34 62 45 28 33 |4bB16bB28bE4bE(3| 00000c70 29 32 34 62 41 38 62 42 28 32 29 31 36 62 45 28 |)24bA8bB(2)16bE(| 00000c80 33 29 38 62 45 28 32 29 38 62 45 28 33 29 31 32 |3)8bE(2)8bE(3)12| 00000c90 41 34 41 31 32 41 34 41 31 32 62 42 34 42 31 32 |A4A12A4A12bB4B12| 00000ca0 42 34 42 31 32 43 34 23 43 31 32 23 43 34 23 43 |B4B12C4#C12#C4#C| 00000cb0 31 36 44 38 44 34 41 41 28 32 29 32 30 47 34 44 |16D8D4AA(2)20G4D| 00000cc0 62 42 28 31 29 47 28 32 29 31 36 62 41 38 62 41 |bB(1)G(2)16bA8bA| 00000cd0 34 62 42 62 42 32 30 62 45 38 62 45 34 62 45 28 |4bBbB20bE8bE4bE(| 00000ce0 33 29 32 34 62 41 38 62 41 31 32 62 42 28 32 29 |3)24bA8bA12bB(2)| 00000cf0 31 36 62 42 34 62 42 32 34 62 45 38 62 45 28 33 |16bB4bB24bE8bE(3| 00000d00 29 32 34 62 41 38 62 42 28 32 29 31 36 62 45 28 |)24bA8bB(2)16bE(| 00000d10 33 29 38 62 45 28 32 29 38 62 45 22 0d 01 9a e9 |3)8bE(2)8bE"....| 00000d20 dc 22 28 33 29 38 47 34 46 32 30 62 45 38 47 34 |."(3)8G4F20bE8G4| 00000d30 46 32 30 62 45 22 2c 22 28 33 29 38 62 45 34 44 |F20bE","(3)8bE4D| 00000d40 32 30 43 38 43 34 62 42 32 30 62 41 22 2c 22 28 |20C8C4bB20bA","(| 00000d50 33 29 38 62 41 28 32 29 34 47 31 36 46 34 46 28 |3)8bA(2)4G16F4F(| 00000d60 33 29 38 62 41 28 32 29 34 47 32 30 46 22 2c 22 |3)8bA(2)4G20F","| 00000d70 28 33 29 38 47 34 46 31 32 62 45 38 43 62 45 34 |(3)8G4F12bE8CbE4| 00000d80 44 31 32 62 45 34 44 31 34 62 45 31 32 44 32 30 |D12bE4D14bE12D20| 00000d90 62 45 22 2c 22 28 33 29 38 62 45 34 44 31 32 43 |bE","(3)8bE4D12C| 00000da0 38 62 41 38 62 42 34 62 42 28 32 29 31 32 47 28 |8bA8bB4bB(2)12G(| 00000db0 33 29 34 62 42 28 32 29 31 34 47 28 33 29 31 32 |3)4bB(2)14G(3)12| 00000dc0 62 42 28 32 29 32 30 47 22 2c 22 28 33 29 38 62 |bB(2)20G","(3)8b| 00000dd0 41 28 32 29 34 47 31 32 46 38 62 42 32 38 62 45 |A(2)4G12F8bB28bE| 00000de0 28 33 29 31 34 62 42 31 32 62 41 28 32 29 32 30 |(3)14bB12bA(2)20| 00000df0 62 45 22 2c 22 28 33 29 22 2c 22 28 32 29 22 2c |bE","(3)","(2)",| 00000e00 22 28 33 29 22 0d ff |"(3)"..| 00000e07