From: ylee@norton.uwaterloo.ca (Yuri Lee)
Subject: GUSMOD.ZIP - beta version of native GUS mod player
Organization: University of Waterloo
Date: Wed, 6 Jan 1993 02:53:11 GMT

Here's native GUS mod player v0.1

This is slight rework of Joshua's original code. It will play
mod files in stereo nicely but still existing bug is sometimes
quite annoying. Try it out and send us some comments.
----------------------------
begin 644 gusmod.zip
M4$L#! H  ( & -V5(1K%>FML0 4   8)   *    4D5!1$U%+E185 T" 1(C
M%!4V-VB)FML\!082$T3%]I;W&RH\6G5JTZ=$05J%Z3(F2*%EZ8:)WCU[!$>(
M7N7IM'-!A@79]BU9D"A!!FV;]LSRUYV;=DSTK,NV+,B4(.&R#9NWK%R09M\,
M[Z-RP]IQ_ZILZ2#ON6_KNB7K$B15--!+65&_FOI-!]G%UCVCOM/B!2FW#/\:
M7__[K5F02M_.15LG>P]AWTK+NI'>;D^P+WV[5M":CO< MJ';K=DP\+I.LD^%
M"@7I3ZT+1]ZARGTSO/J-Z'T=2&L7>F?2DW:T-=FR8],,K^M-]TT[F@ZST-YR
M@.JW;KY_+MRT=*C'\/+68^D@?QCBX;V>U]J=EBT;MRMY+:NLF^T;I$WOSV&6
M:[2G&&X=MDXT<Q_5JN[JZF[S6*O]+UNVS?D0WR#O#%7MVTU<U>YTD&QG$U-]
M+-NZ9+H'T(&^M%3+.\R\UW%>2EK[;G.LV9J9-OB=Y-B^A==5U;Y<1^ZS:.;7
M]]IZY28NOF6:L1>MR[#?WATFS]/'H&Z\=+P\8T6OM.Q0DJS.=#)P)\BQ;]LD
M:[=TYP0]ZI6MSY;1:^T++3^9MT[5[>)]EP6R5KLIJ]NZ6/\3P[+JW+!GR]!>
M/$\E6TBZ>:98\ON,\AHKQ%#VJZG"UBZ8_T3AH\R[PO:N-*WLJM=VW^Q5W4O,
ME7;=BZ/S39)"69]] [_3#%WR>PI8#>=SYW4,.=FFR=+* #\T+-RP8M!57@5_
M@HW0/3"[_$HQ;)W,EZ-TU= +W(23^QE1@*O#-PO,*SY&O:U^4=9ASK"JIZQN
M6]'?97_L&OI6M9E])YN?F@<_TQ11B[GG88RXN9:]F\R-2"5PD-^6F7+,[S'E
MZEH)IIEVNG%=DU;*6VX>T^\)0[J(NAOOO[.[0>YW\-QNF)7K=AWZ)BPXOWOA
M><%?<(_)5^,[C/;BLU%&B2^ZGZ1;Z8_']9A-RWQ.,&NQ;Z8U61;8+<U%O-F2
MD5W*BP%-#/EBO+QA%W(ZY6Q#V)O[#1KSSOQJKV76M+FD674U:!:W:MYL\SQ6
MAN$_-P>4 VIB_,Q4RCNM'D>S_T'Y2-]SS+TJW#-S:K)EUK+I+35H$_]1*T7W
MC-JE3\O/T\=TNZ97&=_*^-/"213<.,46 IR4UUL?<C Q^A(A]5TWK:Y-P$6)
M$A34I9/2D76?\VO*5D+6+:G*S4X[9[G5.FY7N@T3-_=ZJ=N*(=YAQW#'!>L4
MDFZ]'$W74J6OW50=G<JT6E-+G$9+!^^\ U1,?Q)[DT/2=:'<D!S1RC'V=_#*
MY8@*^T6K%<;U8MO^O"">1:F*4C\(-0_ITX$>4>@\FY#I2L1ZTV'*B+><R$PS
MBH!-G[X.(OJ"NO,@JU,7F#>T6LV7=B1'8:9-+W/34N<9%F<%F^,4NIDOFO=I
M6HV6CO$(VLJGJ<U6A?8ZDI5FFLC(YQ5U[>;.]BP,UUF8>NQE7IGY8FP%.-:\
M4G5'MJPBRBIH2SN8%;DHN\+Z''6498IP3/U2;^ZGBT&8>>)YK**!;SNV%*/6
M=,N< H&VZ$5]I_.]QA4SK1DR;;1,6*CE,M3J(\%*_<F@NLNM P?SQ-KEG/-J
ME,#TN'58;LJ)0G3C8M9^FL\'=U&]:%\E>V/9J#X/G(C9SI-A\6AR04(ZS9N?
MQN)FF4L_B]IBB:KAPMG2XA+CA*K$7$()(3$V%UPOV>CDFR+N<BPM2[R;F;OF
MPB>1M<N)XW3#>F&OJ?G[Y8IH)?'Z#=>V=)\PG4)8)].<04Z7&04OXYR':5;L
MU]R\G&4<.]WT<9/J3UTN=:'J:FJ#^? M06:). ?)M(S%.%!+ P0*      #]
ME"$:%2H>.<P6  #,%@  "@   $=54TU/1"Y%6$5-6LP #     D $P+__VT!
M  0    !\/]0     P%02TQ)5$4@0V]P<BX@,3DY,"!02U=!4D4@26YC+B!!
M;&P@4FEG:'1S(%)E<V5R=F5D $T!%0 , "   @#__P    0     0  ^    
M 0#[4&IR                                          "X=P.Z9 &,
MVP/8.QX" ',=@^L@^H[3O  "^X/K&8[#4[G# #/_5[Y( ?SSI<NT";HV <TA
MS2!.;W0@96YO=6=H(&UE;6]R>23]C-M3@\,M ]J^_O^+_HS-B\4KZHO*T>'1
MX='A@.P0@.\0CL".V_.E_([=!P:_  $S]JV5NA  ZRR0K96R$.LUK96R$.LV
MK96R$.L[K96R$.M=K96R$.M>K96R$.M?K96R$'((I-'M2G3T<_@SR3/;T>U*
M=,71T]'M2G3$T=.%VW07T>U*=+_1TX#[!G(+T>U*=02ME;(0T=,NBH]> 8#Y
M"G1T,]N#^0)T*M'M2G2=<B/1[4ITG-'3T>U*=)O1T]'M2G4$K96R$-'3@/L"
M<Q4NBK]N :R*V%:+]ROS^O,FI/M>ZX'1[4IU!*V5LA#1TX#["'+;T>U*=02M
ME;(0T=. ^Q=RR]'M2G4$K96R$-'3@>/? (;?Z[VL LB U0 \_W6"6XOK@\,0
M,\"LD>,.K0/#CL"MER8!'>+YZ^RM \/ZCM"MB^#[K0/84ZU0CL6.W3/ B]B+
MR(O0B^B+\(OXRP,  @H$!0        8'" D! @   P0%!@          !P@)
M"@L,#0   'I# /P!_ =C!_P-XP&,P+MU   "*]B#PP*T2LTA'KA- ([8!::Z
M%P[HAP ?#<"2I0J")15R0$$/ #VZ8  E<AZ+V"D2##X)NKXH7P!*2NL7#DP.
MH0Z%5%$.\KKD"4@ D GIFKX&70!S";0)NCB@(#?K,9KX!1"P )IH$T472IK3
M!PB:_)(*#9H1"K0D%IJ3G&43_0@%NPHL6#\$R[X4 (  OS+\K K =!6L/ W 
M5'00/"!T]ZH*!, )"G7V^,OYR]!'55,  $U/1"!6,"XQ($)E=&$@+2  0$$@
M;6]D('!L87EE<B!F;P%0!$=R879I<R!5;'0 E0ES;W5N9 T*)"449#H@=Q @
M;F]T)J(D%B!O;F5H*7.@LGES=&5M+@$H 0 V<"15<V%G93H@9W430'.69FEL
M96YA;64NIH0-7E"E:6YG+A,* 7!R97-^86XH57EK97F*;XBF[ 1PA$8U +UY
MISJ6_ 8++?P,_+;4$OP8 4[J 2 "4E"Z  /L 0  6%K+4BZ+%D(%@<(# ;!#
M[@ P0HO![TJP1.Z#P@**PZ5.!NPA4!,B6.YU$R, (4P3L !0X.X.Z)?_!)/_
M@^H"!LH4 >ZXJ@"[@;D(4'^J_[A5DBP- 0J@_Q0'F'IX_U"X")$!,H'A1E@\
MJG4"O4K^!F%-*S9GV@$K!^X,#F1"#-_N8S&V!HK!Y;2O1A4#W8 A#0Q!@_D@
M==S+!D "&(O9P>@'P>G!B0/C"0O#<.[+4;Y1 'CR4(O&,U"420@ ] S'[UA*
M@\<!<P]&!!X"J@L$)HH',L0EX$<-!.+366@NQP91P$X0 KO._G,0+H-$@0TN
M@3X&< )RZ_D;4FL" 2Z)NT+:-@:X!KH&O "@!LL>C,B.V+#(HI<)HL84D /U
M R0*'\M@'IB853 )!EPQ"0%L60<T"6HR!P2*:LG_5S>[( (HX0<NHSX%BT<"
M!P V0 7ZQP<A"8Q/ E,V (7F0[@X7>9 BL0$^Q]A]%)4^C4NH4JI,XDYH3*)
M.4F=*3+ ) 4!)B)14[1(-U %ZP1#S2%58%L>M)%0/UTNCAY%J0P2'UD)!@F 
M!-ZTB+3^B\<4A23P!5*#UHKXM$D=L1SZ2J0>;@9[R1Q"T0>/2224$!RHLCXN
MBQX2& >5G6P>$3\1J%)AN3P$%R6I$  )'P"[*NL'AN#1LIS@+JC>!)5N"P@,
M!@S@A@:#PQ[BV2W'!O<'4C)#O@._P0%9.PO ="2+R%-<1:$8++^\.8FWOJ1=
M!8,G!''@IFD6_UOK&R+'AP84(E^') "G!/ F6U]9XK,?  #+OK@#N8  ,\"*
MX.L%K#K$ %!_]^+YBL3^P#+DR[E 511OM1KSJT[811;_ZCP%#W:[*$@! ;1(
MRZOB]KX>P$G2,\E1'KD =JV.9 .%/U X1D$N.PXP=>3XF"D!*DZM40JW#([ 
M(TDC<P-%(?E\XNT$Z$H- ""\!NA##?NP(.8@P$<YSP;@ (#_  4&!P@*"PT0
M$Q8:("M  J"I&#%*87B-H;3%U   L/3Z_?_]^O3KX-3%M*&-T%1X84HQ& Y!
M 5-=)' ")"\$UQ$D+P@7(J  J 4 E;@ P #$ ,@ S    -  T@#4 -8 V #:
M -P W@   .  X0#B ., Y #E .8 YP   .@ Z0#J .L [ #M .X [X   /  
M\8#Q /* \@#S@/, ](   /0 ]8#U /: ]@#W@/< ^(   /@ ^8#Y /J ^@#[
M@/L _(  4/P _8#] /Z _@#_@/\   %8 R@#^@+0 J8"@ )< CH   (: OP!
MX '% :P!E %] 6@ 5 %3 4 !+@$= 0T!,4E!:^*9RITD +0 JKF7 (\ AP!_
M '@2  !QR5(#(@/U LL"H@(  'T"60(W A<"^0'= <(!J0$ @)$!>P%E 5$!
M/@$L 1P!# &2 '_OU=4 R0"] +, 8 "I )\ E@". (8 ?@!W P!*3 ,< _ "
MQ0*> G@"50   C,"% +V =H!OP&F 8X!>  @ 6,!3P$\ 2H!&@$* ?L   7@
M -, QP"\ +$ IP @ )X E0"- (4 ?0!V ' ! $I& Q<#Z@+  ID"= )0 @  
M+P(0 O(!U@&\ :,!BP%U 0 08 %, 3H!* $8 0@!^0#A4]X T0#& -@#L "F
M )T E ", (02 $IO2D #$0/E KL"E (  &\"3 (K @P"[P'3 ;D!H $  (@!
M<@%> 4H!. $F 18!!@$! ?>AW,?A ,1*KP"E )P DP 2 (L @P!\ '4 ;DHZ
M P  "P/@ K8"CP)K D@")P(( @  ZP'/ ;4!G0&& 7 !6P%( 0 !-0$D 10!
M! 'U[1 $VP#. ,,?K@"D  "0FP"2 (H @@![ '0 ;0  2C0#!@/: K$"BP)F
M D0"(P   @0"YP', ;(!F@&# 6T!60 ( 44!,P$B 1(! @'T @ [V0#- ,$ 
MMP"L *, F@ V )$ B0"! 'H <THN * #  /5 JP"A@)B C\"'P  ,0+D <D!
MKP&7 8 !:P%6  @!0P$Q 2 !$ $  ?(* HG8I\  M0"K (  H0"8 )  B " 
M 'D <@!LX1JG SR+AU(!A -H%%*C GP74NX4TE+405@T"%(!?@,D:BQ2WPU2
M 1J+=P,\4@%Q T:-"%+N)8)%4GM2 6L#8]$\4@%D U@T/%(!7@,F:BQ2RPM2
M 0  :0=6!T0',0<@!PX'_0;M!@  W ;,!KP&K0:=!HX&@ 9Q!@"@8P95!D<&
M.@8M!A\&$P8   'Z!>T%X075!<H%O@6S!0  J 6=!9(%AP5]!7,%: 5>!0  
M5 5+!4$%. 4N!24%' 43!0  "@4!!?D$\ 3H!. $V 3/!   R 3 !+@$L 2I
M!*$$F@23!   BP2$!'T$=@1P!&D$8@1<!   501/!$@$0@0\!#4$+P0I!   
M(P0>!!@$$@0,! <$ 03\ P  ]@/Q ^L#Y@/A ]P#UP/1 P  S /' \,#O@.Y
M [0#KP.K P  I@.B YT#F .4 Y #BP.' P  @P-^ WH#=@-R VX#:@-F T 0
M8@-> UH#5OI. Q $2P-' T,F/ ,X P0 -0,Q4BH#)P,C P! ( ,= QD#%@,3
M P\## ,)H "R 0 #_0+Y @  ]@+S O "[0+J N@"Y0+B @ 0WP+< MD"U@+4
M M$"S@( 2,D"Q@+# L$"O@*\@@("N3"T B#JKZ2J J@"I42(9J @G"" VI<"
ME0*2 I "CB @"(D"AP*% H-$B,Q^AGH004!V^@! <@)P FX"; )I F<"90)D
M "'D8 )> $+N6@)8 E8"5 )2 ! <3P)- DL"20)' D4$ $Q" D "/@(] CL"
M.0( (3@"-@(T C(",8 @0"X"+ (J BFV)2"( B0"(@(A+!X"'% A-AE"$/ 6
MJA,"$8(09@\"#2) D H""0(' @:8 P("  $  O\!_@'\ ?L!^0$  /@!]P'U
M ?0!\P'Q ? ![P$  .X![ 'K >H!Z 'G >8!Y0$0*N,!X@'AB-\4(4+< =L(
M0?[9 =>ZU0'4"$)VT@'1$$0RS@'-[LL!RA"AJL@!Q@A%M,0!PW#! < H0BR^
M ;T0 NB[ ;JDN &W0A !MF*T ;."(!ZQ ;#:KD(1 :WDJP&JBE"@J &G7(0B
MI0&D&*(!H:00U *? 9Z"$)*< 9M.) B9 9@"EP&6 95#:!:3 9+2(10"D &/
MD(T!"4*, HL!B@&))0@*AP*& 84!A"F$@@*" 8$4PD "?P%^)$A,? )[ 7H!
M>0*02'@!=P%V G4!= *A$G-"<0)P 202;P%N FT!; )K 2FL:@)IA!!6 F<!
M9D)""P)D_@)B 8F480)@ 5\"7D@D ET!7 ); 5H"65(B 5@"5P)6 54E$@)4
M E,!4@)1 2FE4 )/ DX"3="2_ )+2"D"2@%) D@"1X66 D8V D244@)# D("
M02*E D !/P(^ CV44@(\ CL".DHI CD". (W)5("-@(U 30",]I2 C(",0(P
M2BD"+P(N BVEE (L BL"*E+: BD"* (G4DH")@(E B0":4LC B("(0)I2R "
M'P(> FE+'0(< AL":4L: AD"& );2A<"%@(5 EO:% (3 A+2M@(1 A "#Z4M
M @X"#0(,;5L""P(* @G:M@(( @<"!AT: H,V;9H" P+[M (" 0"9T@+_  +^
M OVV;0+\ OL"VW;Z OD"^-NV O<"]@+U;=L"] +SMML"\@+Q O"VW0+O NZV
M[0+M NP"Z[;= NH"Z;;; N@"YP+F=KL"Y0+D;;<"XP+B N';=@+@ M^[W0+>
M MUNMP+< ML"VMOM MD"V':[ M<"UMUN M4"U *_V],"T@+1[7<"T +/N_T"
MS@+-?K<"S ++ LK?[0+) LCW^P+' L;];@+% L0"OU_# L("P??[ 0+  K_]
M  *^ KT  # Q,C, .#0U-C<X.4%"0T1%1CJBBR[^)T56+J $.@\)9G(4+L80
M "Z "@4^-09T7.@%Z2(#BL3H P;# QI9%@$:8G< IYZ^:PGHN!0"4RD4 A2:
M%*=3I!0#% ,IIQ3)%) 4!%,!% 04^ GI? ,%4#-\H#0)B_@NBH5$ITG0X# #
M*'0,C@4E/C()"&PZG3\ "&PK  AL%P ^50=LOUTY4: 7+0H=@SP =0JH@@9\
M @?870,FBZ(4<8D$!D4@B2@%1 *#QSB*!R3PP D4Z DD@.3P"L0GZ2 PQP#^
MR(K8% &<E(A$+K<>]N>+T "($'4"B](R_\'C H'#/H9:@QK]1YH$2D\&B]J#
MPQ8#%"$G$ ^#Z;H:5""5!@/!@]( 'P@$5,(-BHE,*B\6BL0*(.A;^HM/!H/Y
M G8PB]()+X .M BEE 8Y##D.""9.] @H<Q#K)!HFB@$'/B7_24H/U((&,0(.
M ";P#SU0#G01@/P#!04 @'0,ZQ#H90;K"^A<!^L&Z#3B!2I8!C>[L0JY!7$D
M7#L'<P41 '#B]BP6L4KVG#KA ]A@% !3T*D*#F0>.B(@)(!M!'0%+L9$'0 -
M0"N0#1\-@7P& / &026[;2X* 70C #BSN :P"NY"@9C+3 8.Z$KMG1"+"Q+!
MX GO**?%*P I BV5%PPI#BDAZ=PI Q+;#BDC!!%0I$%,"B/^[",%<TH2(TH7
M.!T4Z%H!*PSS 9'5V*AT%K /"@)T#!K-,PH#=*\98V\NH"4(+:GK;$0M <2(
MZ38%*#()$"(N%38)X1CT"BZB-<(V"91(#2[^#@AT8I:\@RXG%3>4.148(PA$
M40<X+X@F58(%EO>C0N#]@0( !')1?*L;%BX&I0S=.0;^F$L$1R89$@5_1 )I
MN[8#=2(<-(-3<R<* 74'#L.JMP<H#PT2'!P^=:?#Z,X0 /_$UG17+HH0/5P"
M@.,/WG154'4%/ /IR0!25@@""/H(6E%2") !" 0(%Y%2*/L%"*$(!LH!")\(
MZD@I6@3H$2L'"Y(E51,*"(0#;S)&8Q1AR@!0$5-7B]B#ZV31X[]1#W  %P%?
M6U!W >Z80$)8[\/I,0FS _;S 362/ %T"CP",D BGNL^&HI$ X03C^L("R0/
MZF'1X$MZ$##Q%%>_L0H#^%@ F5@N.Q5S!X/' #@"XO-?PU^+R.A\_\-AH#<N
M(@8Z0S!8!?\N*:D4@%V!X9N#^7%S"RZ!9!0QE>L3<9>N&.A#"CD! [< .8'Y
M6 -R##J!JE\4#CL(*5 [5PT4AO*!XGOO#D6KIEA*+*,1A0!S/X/[2G+S0@"[
M1A94%H#B"'1 * <+VW0#@^LG$2$&7[,:@@ ]7Q@ .]!T"W*80 /IL/X. <,N
MQT0:F<%&PYQL("DY1!D9 U0%VGP8V$5XB/YT%8!\<58\=1JU,Q5+=PA_)#8'
MI4'K&$[Z"!I\"@ :3##)02$D#W0E%5V]L[WC5P"^"0=>!+Z+"5_H%OZ/10(>
M"$P<.06 X? *"Z;(L/ -#U0)#8@:$1V[2P"I"<'H B4? #/)+2   !P#=!W 
MX . ^0%T!+'_ZPD%%K@= ',&"RK(ZXJ "8H$!0+N#TQB.ECVX6-APXO(&P($
M)W($ \'K BO!F%/JDOTC6CPI )4 9\/H[?[I  'H@EV+_\4!GAY/= ^>'D0?
MP &;=%W Z00&GAH"G@TBG)X),]L:BH_*K-4^7*)BJ(S!Z?@7K)(K2J(" ("B
M*L%S C/ /$!R K! Z'<#F20K:20\J1]C/L/$F )LHP02=M B#"+!X CI,\0!
MU*/T'4XS*/(= "A)A:$2BPX2N2P Z"D_PQ,I </#)2D^6ABG&FV4%X96$X('
MI.CJNR@"([DN* [;=G,9 !G1*IH9_H2B- +:9WP!%\N6DZPIJ"F*R(1 9[,*
M]N-/0='S/#]_RSDX"1-< 3.##CP@<PH1\&&B, G#Z$@"*0I["W20!0UTH12T
M4'0-!0\*2'3+!0QTD^FZ^R,%0P,C\,#K!(5RH7:A='JH2YZ&.92>D@">F@!#
M.9ZB -2EGJ52<I/D" @([P"H4*Z(SLFA"0CG %)*JQ80"P@B""FE# @N" T(
M0QS!""Q["</") '0X%*Q0[]T%2#[%'X6#^F=^Q0O%PP4POL _%: 9"'P+@A$
M(<.F%Q @$" 0B$2=,Q8 4\WZ%@3#>(!\))&F(OY,)("U&",+!E W"@A0-R3K
MZRZA,B%22P0E&[F%$"-2P*<-+F4/98O8 PP=P"T"+2B'0U@MH45I"L!U  MG
M&!D4>^"EH L8"P[1X /!T-T"+0,  )DT:'B9Z;K]  "Y!13$_<PZDD;9&0?Z
M $9T<8L PP0=ZCDB!@2"W_P\^>N23M+Y6*$A,5#H$<'Y_IBB-@D =%.%K_D"
MXB'B(99"RAF620 SVPI"Y"$D"MMT%B$X"X<[">\4*[\E)( J '(EBE,N]F0L
MBMPR'&+_T>-#"40@#8<O"N];PZYL#P;_#$   P 0 !T 7P!O '8 ?@"# (@ 
MD0"6 )L       1     4$L! @L "@    8 W94A&L5Z:VQ !0  !@D   H 
M         0 @         %)%041-12Y46%102P$""P *      #]E"$:%2H>
M.<P6  #,%@  "@           "    !H!0  1U5334]$+D5815!+!08     
. @ " '    !<'       
 
end
Newsgroups: comp.sys.ibm.pc.soundcard