[comp.sources.atari.st] v03i026: mx2net20 -- Share disk drives across MIDI/RS232

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

Submitted-by: root@sma2.cts.com (Fred Brooks)
Posting-number: Volume 3, Issue 26
Archive-name: mx2net20

This program allows two ST's to share disks drives useing the
MIDI port. A RS-232 version is included for remote access.
Fred Brooks

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 mx2net20.arc
M&@)-6#).150N24Y& "@ #0   )$31;$4V0T   !A;'(L8VUR+&1N<@T*&@)-z
M6#).150N3U!4 "@ !0   )03O$A</ 4   !O;34-"AH(35@R3D54+E185  Hy
M .L'   B%%6L\Z'7$0  # I 0$) !4T9$&[*T+GS1LX:$'7FE)D#@HY!$$V2x
M$$D" DY#.A7?@ C#ALV;.R#(I)GS< Z:,'+2N#D#0HS".V7*N DX<*'(*51.w
M4+08!B3,@V+>6 0AIXX;-S)I-L$BPTD1*BY %#PHITP;I65X(B 3T\Y$$&/"v
MN*EY,&(9,B#41 3))LV:@WG>U)$#PF1:-BG+GA53!Z3%,GE W$E3$L0;,V+'u
MZ)4CD2V(.29Q\K69UJUC,Q4OTI&C=HZ9,GP?ASY(IFB8T'+TGD&S6FS&C1T_t
MSG&A0.Q6IE[!!DYCEN+1E&7,R'P+0N9JC%2M8DWBQ @(Y6S*9"VXLKEQL6'Fs
MC$F3YCKC@XN7'AYNMB/,,&T4HC;>^,U:^P?K)LQJI"&(,GC !T=V8J4!6EYUr
M@/!2>Y 0,(89<K! QAD1EG&20 4XAR!?V&G'TP5\0#* 0 ?PP9,%+X# !PA<q
MD,@%3Q6DJ"((++K(TP-=?45'?F_\!5P8<#5X1TP[WD@6<0>Q=U 88XPQ$44Cp
M-?ED;P(AD(5>BC$&F$TCB9%=2%$Z.0=%.0IW9'M#C$31AGWU2)*2(!@A5E= o
MMF ?&WED)45P.\))1):-<7G$2&[ 56:?9QY4!*!;'O2$6.G1-F0:?3(IYFX@n
M)'$@EHNY!.88+\UTT'J)4C1'&FT,F-A;E(JUWE157>4"==9UR )P22D% IM m
M$6HH:DX]!ZMT+D AQ1&\51D$"&V$@<=G(,1 @Y(4I;46EV0DMQQ<D8( !5M1l
M/8=&&K--1$=6FKIJ4%?>(232L++2:MZ7;HA4*J.69:M<0G#Y11*>-14&'G Zk
M'M0LJ,M=1H>6:*D5YI.[3D8M;[Y=!"]63T!!Q;RL:9L017#$1B%\CL&QL'V8j
M)@%2=PZ'-UYY'4)**6W_EGSR6J"^-\:.E#6W5F:H-2Q15D/LU94;(+UA<AHHi
MC]25#E3V1*(.)!ZA$ A'%-$$$4],D5)12Q9:$:H'0?A&&P0+!U2RD&#@1$/-h
MEI08FR(@T345(H#0*T-UL %7O2 M..JX%"E],T\82'1NU B(!,D!5#_>1'@/g
MO6$67P"NM/!,$V<*FD7=&<[T6MTICCBE[7HT9AI>CBJ2Y:BQ$49BKR7DDT/,f
M)9HI$8C#SM=K= *FNWW/^0M8KV+0OOH94,UT.AU"[>ZSL-'%6QW'Z'Y.N,VCe
MGTX1X)==_9ID?K>0Z\K?YY0M7#:9T1!7YL*T^1F(7TQQE6@_'OD!091T87Q?d
MD4-B1E.:T_2,#B)1"US,AK9#'61MB"N"&\+0.E.]I"MP 6!#:"<V!Y8,-449c
MW?T&4H.ID6A/!=/;QKI3 QG 8&UZ&T-7=-(1-.3A5#[2H "]@SCW.04N10'!b
M#7   Q&!  E%P )OC#@0(1QD#GMQ'5IB,R:TV"<A.WM.&]*@DH95L#G:,>*Ka
M-,(1O1CF#>HZR&TXXASBK4<IZU*AKT!@AS0XB8[S\1!/.+#%+CKG"T8$ 2!'z
MU,?RR(0G$NA5# 02 2ZD"!(1Z)4,$&FW7D&B (5T3&$$*:(7<&&0S.)B><PHy
M$ )(06M/H$(1%,!$@EBL>E@QUJ!8IC %D@0_"+E)0QZ2*+X0!21-<0-%&)A&x
M$!"A"%-8 A4RYIC? 2Z.66M"1T1&FC:@"R0NT8O?0."$5%I&)G.@P[_>4J"Uw
M."P(55CF==[@-]1D3XZ+[,YZ*KE";*)!F^Q[HCCEL",RB$4YE#&,0=823OD]v
M)V1O&!G:B"?))8YH($00# AF$$_C7 8.91C/FS02FB!>#"(2&:9_;,<0AUS'u
M*3OK7I7^P@9,5:$RZY'#'2A($3$PK5HU0^##JGB8RI@!I3?;#>.6Q5(P@8XBt
M'-4IG> BD9WY!P;XZ@H=]K*6]1@OE[=;@U@*.E6*R$2GZR&,&0S(-@1,(:,(s
MY,LB%],8J5+U.1XDZ2YKV=41(F!9D^J33IN:5A#( %\2$5M8ZS#6H'U5).NYr
M2QZ2 A/V$=: Y80KGQZ(%1 PP4TW P%4G3/8PO)%,D@+ SB?(QFGT %2X_J2q
MOS);T><4E)_06D\X8S*3[5Q$K 9L5\OD0)H\B 4&+G"!#68 +9/,1*AB6=92p
MP<17_Q"7K8!QJQQ(5]7;/C9HN^TMM$"5T35 L0US$(MJ8CK9&M[0CF\2SPS7o
MHL,\)=<-B5FN?_)Z$-6\IKE\">#@@OA<ABWWER"H00S^FKPB58FOHT/!'%( n
MK?:"R3\,A.M,Q5#3Z\K!H57JIBJA)I8VX$$&M@N#"T)&$TA48']2F$(+9#"#m
MOWH$MI<[E7W*:CNNCE@.)3XQB99[5;F:E*M"H;%"N'IA$@N$ OM;;EQU^6-Ql
M0D^H5;)='<MPAQOG>']62 .5T]8GH$1/O3G9B4!@T-ZLO'1P!ZE"H42B6)[ k
M0*>96QR-N!H1X$A&#DP=31UV%D4JT;5*/0#!*8?P!"GPCI$R@0.3[D('BD#"j
M /MCPA.<<(0A!,'0.^!)!,RHZ#$PVM$%B/2D*WUI(F2:D5(5H*,3(&I*6QK3i
MFN:NI[^+FMCTK-6DAC4C%Q8?,SH:<B22M*M+?6I(RI2F78F#HR$=[%&_VM2:h
M[HKB5HWK9Q<; D5P K0#XBVO-4AE[>J*9-H0GT(Q!\!'G69"JVD9MRS0/TNUg
MDQL 9JDI54FG;/)@J:Z9NC>LKG7,E2%\ +X>(P1AA9"I4E*6<K!Q?:PB.]0If
M?8UZ$96P9"0"?2)\1D4VW@ :"$Y%5%-4050N34]$   6 @  DQ,4NYEJJ 0 e
M  Q-GA"IPJ0("!!NRM"90R<,G1T*C$AYT@0$) ).BE"Y\D3*$HL)DC2!TI'*d
M088.(4JD:)& D"1/IEAD()*D%),@I%QAH3.(F#DJ)U:\."7+%"I%ABJH6?)@c
M$")26#R%6F3*E* L+QY)2B2FQ:4CFX)XPH8,E3)RVF =2B")FR=UZ%A<P/3Fb
MP2MRTM IP\0-"[QZRTRAD]?-F;4MF;PQ[!:N7$@'ZN($O%>QX2%AY)"!:"6(a
M%(L%9$*ZH,/B 90/%5A$(*?,G#IL'DLH#9G)$R='DCBA E%(D=Q.5$-B[1HVz
M'1T]>OY$(:5,&#)2H:*8DH)%#!8P6,R(D0+B:LI\W7@?#GYPX3,H1$ ),V:-y
MPCD@TK@!65I$=^$(P%L^@UGS=!?RP<&>>PM9)\-]W^55F7CXE4>8?.BI-^![x
M(+P1UVKU(4B>@GPMQE]F9/QG(1T"MO>>@1KFQV%?XZD8F'D0IJ=3&#^!T%H<w
M=;BV$&@9MJB?A_V%.(4+<MQ!XQPWSH&BCRLRF."+#QHFHT)RY $?) WTV."*v
M0(+X7VN$6;GDEH&Q2.9>,$HI@A#/@5 B@5<BH.63E77IWY!CH%%&>Z^U@98<u
M;\BA9 P',EFFDQM">5YZ5*3AYXA7+C!GHG5>YN60=#A:!J1CTAF>H6A&&6%St
M<U"(Y:0N5OKAG42Z=B*A*>J'* )DF8666@H4X001H"6T4$-TN*"  AH(3D54s
M4U1!5%(N34]$ ! "  "3$]>ZIWBJ!   #$V>$*G"I @($&[*T)E#)PP=.3L4r
M&)'RI D(2 2<%*%RY8F4)1<3)&D"Q2.5@PP=1IQ8\2(!(4F>3+G(8&1)*2=!q
M2+G"8F<0,7-64K2(\4B1)D1D7E1@T^3!)VS(4"DCIXW0EABG9)E"Y>C2IC@/p
M!B$BA<58LD6F3+E*E$ 2-T_JT+FX &S.*W+2T"G#Q T+O'K+3'F8QLT9MBZ9o
MO#'\-NY<2 ?L'@2\5['A(6'DD(EH)8B4BP5F0KJ@X^*!E'0B7D0@I\R<.FP>n
M2R@-F<D3)T>2.*$244B1W$X4K&[].K:.'CZ!HI!2)@P9LV113$G!(D9U%C-Bm
MI% -"0%EOFZX>\^[=W!>PRA$0 DS9HW".2 *ARPM8KOP[M\MG\&L6;J+PG"Pl
MY]Y"U<E@WVKYA7??>(&95]@9Z:W7WGL@O"'7:O0=B!]Y?"VV7V9D^&<A'0%.k
M2& ,!HJ7H(H<.HB>"#N% 10(K<51AVL+@98ABX'IQU^(4[@@QQTRSE'C' 5Jj
MR&!E"B+8(F$O,O=0'O!!TL"."^;GX8_^M38EDB@JN6*63YX'H0A". ="B0-6i
MB0"63O:X)8C^C8%&&>V]U@95<KPA!Y@IDMECDQLV".695*2QYXA5+@!GH97-h
MV5^0="A:!J-)\LBDIH(=FAYS<U!HY:-+=G@9G4$2]UZF@FZZ(%124665 D4Xg
M001H"2W4T$,N**  &@A.15162457+DU/1   /00  )\3EG2U]>$(   ,39X0f
MJ<*D" @0;LK0L9.FS)T="HQ(>=($!"0"0I(\F6*109(F4)Y(H7)0RA46)H.(e
MF<."2!F&8\JP$#+DC9LG=>C,K.DFB9N=-J?0"4,'HD2*%@E@R;C1XH*/(4<>d
MG#)&3IDR;J"@R3,GS9@P;(2$F2-3HY0B0UB810N%BA06"BR"F%)&3AJP+F&6c
M%5EFC-&)%2].R3*%2I' "J"*) DB")&WCA\7F3)E9A;#?Y%>/'*82%-(B4$Nb
M/DBE;IO,@0D$F3(D21*GBJ6"F#P$=5(G1:A<$;G$8H+8C(\H? )')Q0DA)D\a
MN0)1P9 G3@I;'$"DB) J1Z;WL'C 2! F4XHTIY(%BL&+;<K,F1/F3!D0VR$=z
M"")%2I L(+; <.%"1HT:78#PA!$@#$$?$4DX\1U$5M#GVQAHA"&'11CHP-T0y
M2- '44=6S5$'&W189(&%\BGGQ!$)4K$A) RDP<*$D&1 X@$&2H&@@DRLR, ;x
M:["0AAMIA A)!3,*\<03!07AA(YCM$&&13)R1Y]]^.G'7PPRW!#@@""8>$2-w
M1#")AD4:S.@EF#K.4=55;L3 @II6806#10W,F-YZ[96A8WIM_&C&&Q81R5U(v
M*18A!0A4/-%8???EMY\+-<000Q=Q00(#ET)<)IX""D QT1!%#'06=W!L)<98u
M9:"0@H5@)KB@ D(4@:(3<8&0!('');<<HD@40:M%")Q%1152.%'@@:XR@<*9t
M!Z( PPTXP #) $BD  *"5G0)W9?-1BI#"BEL.!MX150:;&[$&MLJCLMN"Z:Ss
M1D0[;;77)I$MLS:BX"VXXOH:I@+^6E1 J7F<2E9SGCX!JJCG'3#&&VW (:&>r
ML,J:8*42\.GG&SKT0%6<66W5U5=AH:KJBA(8(1((:70\9Z(@V###M4]42@&<q
M;,*P11I=N+PB!2H?*H?+B"H::0PT5XK!K2 X\01)/P;)JZ\@X"SGSCWW@+2_p
M*V)@M1LZ\]SQUV%WL<*ZWZ&@L1M_>J%?%^$JO?:?'4=V%F7MGOCNW&^DL *^o
M1* 0 [\V<XVQX19)$#4=';M5Q:8!0U+ PQ%/W%RLLU8Z@'!T$%<4""BH4/55n
M+)L! AUHO&=5&V_0\5X:<X 0!@@UR#"G"BEPJNT34%1J0(<?,MY#2BNA($49m
M89#!@F-2H/#UX"RX.0,+,PR^H@&42VS5]4&S3#3,,B<-+--D8SW"\UA/_2LDl
M"P /8L?$SV$\\LI_S*967'D%EEADJ;J"W9.9 @K2H()]10\N4"*8P5+E-Q=5k
M+V[ 0APD#"!! UP!"4DH" AH$I2AT $%SW&"M3QC+@AUC(,]<0,(H0-!2"" j
M:2B 4+VR98/_S, &UMJ.#6* !/7-!@M)((D$$= D,KRM8S%8$1&=M(5)=0Q"i
M2G2?\.*'@BO8Q77+>TP,G92" \J >M;S'>(0QZ/&F<99<8M< 1*RD(;<P06<h
# AH g
 f
end