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
SAMPLES/HILLSTR.m0
SAMPLES/HILLSTR.m1
SAMPLES/HILLSTR.m2
SAMPLES/HILLSTR.m4
SAMPLES/HILLSTR.m5