[comp.binaries.atari.st] v12i052: player -- Play SoundTracker modules on a regular ST

koreth@panarthea.ebay.sun.com (Steven Grimm) (10/09/90)

Submitted-by: larserio@ifi.uio.no (LarsErikOsterud)
Posting-number: Volume 12, Issue 52
Archive-name: player

Play SoundTracker modules on your ST (or through ST-replay) at 26 kHz
Throw away the old version of this program - This is MUCH better !!

 Lars-Erik  /  ABK-BBS +47 2132659  /   ____ ______ ________________________
  Osterud  /  larserio@ifi.uio.no  /   /___    /            The norwegian ST
__________/ ______________________/   ____/   /   Klubben,  user association

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 PLAYER.LZH
M(+HM;&@Q+2L9  #*&0  6Y8K%2$ "E!,05E%4BY45% 0U?9IL9AZ4VP38 QLz
M7>8N4[GM]_WW/5N/C:PUF Z[ SQ$8*S7LO&.<-UR,$VQ?+F><PV7:KZBS1K+y
M>%.NN\,E5@/-<V>1-1-6S[MBK'R?6'/GB4.B?Z$R/Y[21^<S%[!9\I=:%\4[x
M=QU%@7#IUA["Z&=AZ=M'6W/WFM:\,@:JZ+S ':$/3!)U/C]I_,M*QSGV+XI'w
M>^[/"5ZJW@EQ%&G.Q-XH:J)12FRDE:%#ZA!E+_S.PO@?$Z[<'J$]/K70FL:9v
M"9[XC@A>P%L$3<>.H0NGVW\/PG!DH<QF]< (WEU)'6BY J??)&^B9=A>!8?Du
M;+%5N@'F?[C7LU5(>A$V#6'G+>>9<@6]')R 6^'8'NZR]]#SG;YJ4,)Q^^"Xt
MW%ZC$540ZXI6Y*?P"48QF.+O=9#A[B7SHK@2^_38X$)_0MM&<DX=/1I,5.2Fs
MKO@1%C=<DMOSW$?S1HC@MG4NT;A\>M_T?A\7M(AF=ZK$WET0\\'XE+)[2]]Gr
M/(SYM#0@,S^I5I9D$"#LXTO%X.$A%\>H]]@J/PSB8&VG7=G0F$EYA,L3^T@'q
M$O<N$) -<0)<V'!O >!VK&SK;>+15C(]]C34@I()7]^ ?*YO@Y)'JO!"X> >p
M'7Z9HL)"&3_W^:>4+YW__;0K\O_3$GS:F3'G6-W-=^[V;C/S-C-2P<N_9O&:o
MKWXM75KQ];N-B4Z\!N]:Z8MT]VEY6%S#$+%/2JET_I[1?]M>(OFXDSMNXXS3n
MI043L0^EU-$L+#FXRCZWN-2HE\!S6@<QCXO**TV*ZP7X Q]%=>$)!()6%C);m
M.C+7U!DT]NX[J%L(S5<+M'E[>^=W9>R[O;38S/?AN\66>AXAW:L+PB_24.W6l
M25_L^H2%CF3X:@Q2WW2WE>T:3";N4(7?\#P;>*VRC#EB#7R!^)-K8 @O"4^Hk
MOS\>,\MP O%5?KA,#$5DY_H?)Y*?X1N9D O+]%NCKWJ9TKARH,+<<IPJ40V-j
M?4]^*R=JS"9/B@Q9+Z5%-"ORR#;U\+6/>XS&)U$Q4/8/B:ZQ3(^*]BU"?Z)Si
MJE'_N[?.M5HU_1[$DH^<5 ,>1;\C?KM&9TQP\+*".^\@WN4)SAZ/ZKSG).=]h
M7L)R:VVHIT_0.)PM[WX\0ZH?0U;RP!%:7!>89Q8KX>D1EYO@K/&/Y)5%&,3%g
M+)"AY+G,DO]N.CDN>Q12S)\2E5\05(VS%>NWWPY;Q'UN+^\B!<),='H395W+f
MMIIFE$0FH;=DD2A:I#DY&46SWH;@WA?B\FEI2/@^])@4DF&4/1^NSVTO@0P3e
MM87+XM^I@?,+OLBB=9?YI3RA,XB3GBCF63)%N*JE/Q1(68M<UPOJ@@\%L65#d
MF;<@50L/YM]))OT&R7W^< %4<46ES#5U!.$7A#HO,:9)I% D!:NN+AZH\L7Xc
M=R+P6+RRL=ZLA(,-OE3O4S'ZR6#[J']LTFH8W#?&X9CY&::N<ODIQ^1,'<U^b
M<<*?[[+LR>#8);;&D_ L)\=N?#Q6E$BTF/ D6:3J3\;3&O?2/*/MF^:P8%?*a
M@F^!9.M=K3;3<^YN16"3WG@CU* U=YJR8=#\18Q9^?:C/7*&-)!A14YGL9=)z
M_JPG\I7*]9:\(!!KQA]H#7D08[^PZ+[T34!UE<%1&C+@DH,R&3+[Z#.<L&;%y
MD'W0U*3^GX3QHA6!N7,JK;2?6;.LNQ3\H5H$AFLQYL8C[VLZMW;9VY&*&AS>x
M&1&LBKO[D_CT^H51G6DDK'<VFT:-+L!&[G"+VM$@>6-/]NB,^SCI=E0%#A;,w
M4_ #P ^&: BLT/#:4]+P\C(9"Z=:B(<'X]Z\+FTN7E?F>0;=U##S)O1?\<&:v
M7KI;LS.<JOFO\'-S_=O0E*C2H?T*"_SQZ<!(YR)Q2%"6]924R3'BV6$G-ISIu
M]41^L;MVJ7=2)HY/%;YG+FUP]Z5[\*\=);J?R0G8&OZ]V_Q6YZLLI]4E_#Q_t
MSF2&"KN7Z0(R.D=D6']KY#9!V+'N7ZB5R.K'S^GH^-R#V7S=/MZ;-J&R)ER>s
MB&6;?E+P[Q*RI_\CDSTR9!:%PC5U1036P@' \O%UVBQG^O'3Q$= ?8\M0BO0r
M:@:A/:=$),30/=<)GVU'2EO"NA)GA;F:?MO<BUA7ZZO,%#B+#=BD2/W=>6"%q
MCZ'*;ZLV(N5RDM+GZ:./R>>BLUQ9'OLQNHY=0C_/>[6A/LU20_0":O^Y:-37p
MGCGFBVX0*8=1K,H%\<<SD2,*<H6Z@'CJ[ 14XF;ZC3 J=*+<?$..'EVHT_'Co
M<)__^M6)N_V^$(T/Z!%$/ME6JL@JJ*)2817G?B6+][0QT,3)ZNRB9Z/? Y3\n
M_ 89]]2RN[\?=Y,0,:=:E'7#_4$27)^=8OP$3"U3 E?G3+U&$6+(,1+94K%+m
M\X.?V>]X<E)B$KBY:ZR%L[X37N6^\]AF5R>Y&E+#F+Y1B!$VO\.X.WO1"PT#l
M[\EB=8VC%J7"=<7V;#7@ 7XT0/%?O^KQW:Z)::7QFV_"^D IJN*\'0'4M1C7k
M7 ]\!PZRS2ZX0)GB+?#>&OAW0HZ-P^-O]57T24(<IPAP8/3PF0V:2P"UV>.+j
M\<[V:M_=;.:3_8A[_JX"5ZERF-=8AA3L['E/N9<PF[/&G]P/$[\5'17=QHJ&i
M1DC7N=Z^G&;8PF5(QW>@W_C78,K?=A\-]O<BYE&QX&\3ZGPP2QS:!G@VA V=h
M0-%=)Z9H^@I#E3ZX56?\'Z$R737^.43E"N>$Q!?8OS]"GED@R42+N_VHQ>0Wg
MEH]@<[C#FV+7ZNJ.3-/["VVT@[O/[/-0%*(N%V[SP?OT+)#[;&NYI,K.HIV8f
M?)-*QF=.V^HZE#1L%[7?4SPHZKG[KY2^<UB_#'_9-?/W/0C>+X,%+1XLQ""6e
MA_>Y"NENJQ,QG9H3PPM'=>3R_& ZF:&FC]PXL*DY>+_/*O/PDCP%;Q_M2QV/d
MMY4OZNX\^,A.J):=8JWY7A76[Z>31:4G)(YF]<Z$@Y!.O/K47+TAN F;YL)Rc
MD'SM4D8'V 6[U_1Y&'75!G1Q"@BNN8;LY/,6?WI8Z6 J.?B[.O#KENYNE.4(b
MJI^VMC8K58S\ MHI<'V0<I$ITF!*[ZQZO_/2(GDYD8+R:EIIAQ&S#+0S<[?Aa
M1[1YYEI[$$TSY$ZD7NL]W !;K73<"WC,-9E)7$[<]SKS"D6L#L"6?-TY$2W9z
M@/+6ZTZ6K5[:YG3WMMEAMU]]#%256"K-).]<^#H;]W"?)3XD:>=ZQ/R-@OR=y
MXFU:1*'N,[_^9U#&@#$@3\1W7-]"HO#3'-O9(UO,1.'=>S/"%>0E4?F'Q@89x
M/ FMX:W1D%T3+.TVF<SJKV^N*Z#F<UN9-_NCMA;"$6>&IH_T/,]8L^)?TKX-w
M3F'%2*F<%\1U8']W039WT?;760%:?1EY)#SN(6/[JO>TW/M=M=]5MA\A8TD"v
MDO)./=U!"X#W:/^5,21675!!XGS-:*),<B-39J[5C??P-W*,'1G?V=RZ9H?Cu
M 5-437=+J_%(5?E<5^)%>X@]S,AQK@>_+R3U"GK'62TGCLH^WRF!SR83._\[t
M(N)MFQ\KG-VKW\I3=$NQ82+D!3]#BZV9Z)JY!A#Q\/S_QY'-BDY;SDUGH&?Js
MSNL(,/%S#!0556@]7T\Q?8[%/]#T1\P(G;>VO4]L5OG3&AS,HWYKOA-F@7_Jr
MH1K"2#VJG-1\1Q[WFZ'D,[K>A-SLIN,"W^*09^DKFGPD(03SEW_RUFYXR +1q
M ;Q4(V<.L$IV$1OWHZ,"'B5B 94Z.=W#:USRJ(*G7#NW"6WS#V3J3[R4&?_+p
M4W5="?V)9L13U4HT=!*?Z_J<'XVY[PD5-+A"I+V ]M:<WHJ]E*V#\8A-:U^Ko
M\QP=W^L@&UFEM^')(VFTUL TF"]T'%W"0IN_:$^<77\XB-L_L^-$'RV>CQL0n
MP7WPW=68-^FQ7>Y5=/Z3F;H3#ZB<W:N6N=3P6QO0X?4RW([?XB0^6^OS2]NOm
MH@[U"HH@C>^!IHL[>WM!)=?AGI)WH>/Q2F<O7Y_N.Q=Q%"7!<:BG,O_V@TS>l
MO#YH7_"0J^WC[PKR?UT3>1R\H>ETO>KVJA-^VCF<R"'-'8^L;\ONB<!8.MV?k
MLPQ&'+3KQ6S2M/S!'TX5ACA&V8")N[:YRPC@,S:5\20Q\8.Y77UE?D$JHT.3j
M5P5IZ/ 7I>(O%]5LWK'*]@' 8^"[[?PH%0V:CS+K'K,H_<ZR[D A^G=/]6WNi
M!_N/ZN<>*KR(JA5[YN_S2(331MU!$)]P3I6M>BKD%,KRZ% DB85L^O&:6TU!h
M_V"U"O*B&3;P93DEEDV\0M+'6L%9]AKLZ_/^ES/#RR37) U!X#ZK;X=QGMREg
MQ,?<D)V;%#?_:_GZ?#RJSF$)5Z;,=7Y%72J3V^51LWP[[@M!':%IDFPRCK_*f
MKV"D4:OW]"2@E4BGK=S/R?+K^:.7ITWR8-.%B3S$X!'O>&%8# =NI&\FV!G_e
M"6^1O,0'8[4$%&&5[_7=NRLD*WO# X/6Y'5%<K>"1)'0UK09V#]5 ]!&^AC6d
M,*0Y2+:MV^. Q_IWN^E*=]? G3I]\!(2?OZ9@[GZ[#"X,_4?M T0!DPY.?ZNc
M=P;?N@80M#'IG:.L6[#!%/LE;"7VVFP]C[HM;4F # I]]D\]23]D<Z!;M]RKb
MM_PEP6[#000C7[_?!"&J[FUXR)EEO@OU.,#>7$NWT&0ZI5Z^#V+F&>/U;Q!-a
MEU)F[3L80'9^QWI&> JUI)?<Z.?QT_4;";4G2T3%UW;!*PE]1RU>CV(Q:$YGz
MIS+R:4G7UFGR_FT"^MMK)FY*M0\V?JX0;MIL)W;P0L:<?92/7;(61.#[.ODRy
MJ8])&RG.^]LW+57/;%%$',#HX]G9"NII&#NKM"GJW=6J@Z#R2Q(Q3603J>OMx
MPE6]7?N'AD48BHS@O&N] ]YFD6+14/H8PBHP-X:Z#JF2!5?PM_W>ASX\,)#7w
MNA5N-"[3PNX-O),>);=I%TG=M%(1?3&SVG9Q^.?2D?_^<6*^Q$J3Y?L.\VU[v
MM1>!X-7L1HN>C\WW5-]Q_4R?.BFUK:)!)Y+B!QK*\49=]#Y0LWR^RX/F;5KEu
M@]_U6-]97V :Z#20G2]M7DO4Z1.9H5^%ZQ,ZA[\H*Z1&IS_'*V6M<Q_;$K8Mt
MSK%?CUX7S6F*]33N^>(LIKM]2@A$^<8YH![^VN^]_<>L.UK45N!7M/E'+2N5s
MAG6*Y0_[V[[&[Z3SBJQ4]E8RU?<!: P3G=;YH8BWUM!G=(UH]:0_^(NW/^C+r
MT&L9+6GAVM+KHC3D=N _L\X^8?E1S'VN2QK6 6E7T.QRA7+^.G*0#V<I+<%^q
M".+Z,E4^/<X?>\M,-0?CZM.;^9CG+M^J2X-GQ5N(NKM [TTW'#1E79(?_18Wp
M94O*34_9WP? 9=B12195)CSZ/3P%E'C*!18 7RFUX1#SX,E3)3!AQ  X.;P(o
M  4/V=87+A-"J1]XC4SAIO)1;;0]GK*ZSEIJ?T2+$'-I6R?O+W3/DT2T5_R=n
M@>Y'U=O5/?M5*F,5PUH@:;Z>J:Z@9Q2@">/,)OB8_1A@:VOD.XF];"#Q68:Cm
M3H@YWHPGN_1>9]HA&C%ES(ZG>7%7[3B&+O7)2V\V_>UGR,O30;+ZLR&G]&5_l
M2I!9:_BDNE2A;3TS1S$Q3= R'LRX*,^B)T]349M;.X<S%NTG:_Q*EYME:"V[k
MQ![0>O(K;,L3Y%0H" +B/?L[,C",E+=;>UF.MGM1#?DY15WT-_=1X"(*#)$$j
M%73%X5"EP\T1:)J@Y'5N&,VZN_/YU%O<[U>+QPT-/[DOECMV\;\S^$<^'"JRi
M6W_ ;U855*51=^QP4@H/G/%T]I'MQ-+:4E?Y*Z.</"C/T-@@BLU^A5E=P\? h
M&<IN39NZ* E!VWFAB:V8P;?U]MWPZ&+E<P+T<BFF 4/7:^AND0C9!KR.)L]Hg
MDES]>(WNYTOX:[9_V_@6/!XMC<!Z*]U6)QG-G7I^LKRAN@U:/D.%I;8+*RA"f
M_K^^7WTC8WPJ3R9>F:[]-B"*>2,N9G^=JTU3%OIWKT[<_8GCPE=L>+#1VT?.e
MSLR:]RYF4TWRO_ILD"BK(NIPE=M#?8\5!^!JV#Q#X(71!F)OY<]-PWC*A%FZd
M*ZW9_]<B\WF7[7YMNMU.7YK$+W^4;K\\L,*\XO&?M,8<Z7(H39M0PV5[T"5Nc
M#4[_N"_XIGVUBJK6_/TR[?!>S2"=HV'3)YE;ETGN1I.8I-)Q;[%6:QI):B-Zb
M&'UPV/\ VC8UP!B[VP^,]BXUAQXA)I;%: .:3$2?GNV<-DKDY-I#O?7T*<^6a
MD:A6^+G\5AELEJJXWR >_;T?:,E=SU^%E$8H[9WN*GOK_M[:X#!]'^7GL>MCz
MP:D$41WWR>E@PR(D]I9/.&,WJ/(@/2;& 4E;&B7$K$4-89)'-3%>+5$0]74Oy
M/T:16[U3&T'[_E]*GJ1_B\S$T&X$RDP7@GHN)T@[N>';)[A +.KX:=J2-5Z>x
M5N,/;QBY[Q?*FL)#:")MT]-2BJ6O&C.15OK;#IL0.'A7*)JE"["/FYI(F#EOw
M\H8R_I@;]'A#C!?B&5E)NF8KU$F9NE4?R.G.#MH28(H? *B5W*X5"K5Q#G4Lv
M,C1-KX**QI:>VE8&BCAFU_WY$FWN+^D4=;A;X!&2E:P[E([,[]QY?R6FKN1%u
MLC\CI\^H%X\8!A$ *7#CKCAJ[BVO*<@!]<^R6&75[=?F\$6N2D3^^G3Q_Y8/t
M)2?BT?*>0?;6[M4R5?*%KIL3$<[%E-C\.[2].UCSE9L[/E23GYB']GJ5=+WGs
MGN]]:#(<78]7=/X/JP_1RG MAZKKCQQZOVKO!3&H[EV7YWM\M9J*,FJ0#Z9Rr
M9W=B!5RV^V!2_O6(VC#MGU :SF6F_YL/]C5U0_7&=)#5]N(:1A&K[?"L)*]%q
M?YM-)8Y%YJ5[BYN2A2YUOR7*;TL>UT8J\B'V:,9X/)4\W)-1Q(Q ;R6YN4_1p
MYR/#\]+2%(S)*("EPBO+(Z\77JK8@N%Q6^R0B7/_R3HOU+OH\;(_G5,-Z?SXo
M\YH=I6]'IFWNWN/MGROY_B^'"[1FE#9FUK63PK7? U>YB>#.OR%\,?N0-++Nn
M.PB"7EP9MSVZ\YWU-4M!WEX'V#5WWERRW^:^!B%$O.W[!\W8F7^LETRFC:>7m
M*[WK ,]?=YZ/ZU4[N]MSWL--]@J"L!BD!@F^$_'CR?$K!%?G5V[P7 :L[EOZl
M?U&=ONMXJ%[_6:D&.K .(NNWH\5M!>*"Q>?[)(7'B):KVLXM#,TX":-T=MS5k
M$.78&C@',_:V7^(X6<Z%F*#.=D&?KU0;%MGC]V0>&&UH:_FL^6EP]?KGJ\OSj
M^[C7K58C/U@$<<Q2?F6FLXUIRK"RE/_>!0DZS9I2=JROB.^7.;? ?%#:KU4.i
M-3._SDO6Y RJN&S3[8/+OYSU8'J;F%\%_7-X1TBF;CVKQ,4ZB(4B$YSM'CC9h
M!C+*/E+Y#;Q<QAJ;;&J._T%]*F+PZ^VZ/C=9CQF#*":"C1+W>?V]/?[=V"?Ig
M+OG'2^<O9F?VO;#II/307OPJ!CVG(;T(21P+,]18YN6@EL!O_B(PXN#J?,_Gf
M)Y /(M,V+&07AH5L1&$IA=D*RTZ51RQQ9T;QX9F1$=M_8B2DBMD]6I:27"X1e
M&4F?-XZK-G>QIP<6#)D27,0F+ZKN]@_^Y7?<\3Y3<1[*P^%U%H:8MBAF7<>,d
M]5?KZZ=9V%Y247-I-M]H\G<68X1P]V7HIFN72.@?=P RG ,'=P0M.C0Q\PJ6c
MX*.F<C_?G(1.?]8EQ>6S<QVTNLSJR_'_/K9M(.Q^O3Q0;#&EF"@%F(0X'K!,b
MB<TJ^I.$-X^OS,H5B 1!Q]D.WI+#OF&\EP9"M>:5\4O-Z_#O^3[R'1ZJ<&I6a
M_03[-J9>1JX86II9X/JBVQ)JBIS;(*]M3W!F/:6!_[J$^H*D.7+;M^4%'<O^z
M][[A?;_7EZ1SBOX?4=<JL4_5X;>D*L]/>4%HO+\7PV'R]ZH9[WHL.447U+&,y
MTH.14?+1DC8933"[O%-@G]?2N3A2L)D*G<#;FD<!HO+F/ 59:%OYIT)8!:GQx
M!?R>[$YO\-^:S])3TSC^?H6K^<.:D*5/J[K(,+_LE@?I;JE&,\A*5]BV>_ Gw
M6]A$-_0O22_BW>]XEV!UE<<BF5 ]VO-9)VB>!?>9D941GJ#@9TI.<E[I"G9Jv
MQ)Z<RYSP.:UO%S>H>?-2N:8Z,PHRL3^<@]<T<.LX3D,JTJ>*M59 (2YO$C)6u
MU=5,/^U< ?7<O:*?2CK?*X!EVMK?S[.EX6^)9#@\KZ"Q#(JQIY.1,<)XNV-Et
MK*M>H*_8WZ%R?KD;V?J;[9S^&$-@\C+VD%QI3MI6\>CN&P!]$.0/,>)S6M0Js
M;Z?HC+9 5+S#<"U*!=FH%4G%8D/T+ED'20_0S4Z^A40LO>I)'\ Y9*''<%T(r
MB-[+R;A>A$=S"/8W0(C4QWF+".7F86UL\K0P85!=$95B#$S$%]+<EM3!Y"7Rq
MXI/8'[O_&-K/+-AEDY??=GOO/>*]];?BOUT;/C[ Z$/*B&Y2<+W,RN,BD)B!p
M5(G2)QRJ-XEQ$MR?ET.BG]50E3:OA[?_M!+5%:0W63:(H5,&853M]]_!,X_Ho
M[OCZ'=XQ'73X'$.(\Z[1Q>H,MIUQXLL@N'+$2^^0%<RT/.#E=&OE"DT2\Z*#n
KD=AG%KHCEEEN6D@0G-\_=<;@9R@@EV^%TQ#3C0*3V]KY$GW=I8]D\ 4( **#m
 l
end