{$M 4096,0,0}
Uses Dos;
var
R: Registers;
CmdLine, Cmd: String;
BEGIN
Cmd := 'LOAD';
Move(Mem[PrefixSeg:$80], CmdLine, Mem[PrefixSeg:$80]+1);
CmdLine := #80 + Cmd + CmdLine + #13;
R.ax := $AE01;
R.cx := Mem[PrefixSeg:$80];
R.dx := $FFFF;
R.ds := Seg(Cmd);
R.bx := Ofs(CmdLine);
R.si := Ofs(Cmd);
Intr($2F, R);
END.
---
Откомпилить в load.exe, положить в %path%, потом запускать startnet.bat. Если нет компилятора, вот .exe (uuencode). О результатах прошу сообщить :-)
begin 644 load.exe
M35J``04`$0`&`$8!1@'8```0```)````'`````P````F````20```%D```!C
M````;0```'<```"%````OP```,D````!`!0`&P$4`+4"%`"*!A0`I084`+L&
M%`#:!A0`!$Q/040!4`$-F@``%`!5B>6![``!OP``#E>_9`$>5[C_`%":6`04
M`*$X`%"_@``'!E>_9``>5Z$X`%"_@``')HH%,.1`4)H\!Q0`C;X`_Q97OP4`
M#E>:/@04`+]D`1Y7FKT$%`"_9``>5YJ]!!0`OP<`#E>:O004`+]D`!Y7N/\`
M4)I8!!0`QP90``&NH3@`4+^```<FB@4PY*-4`,<&5@#__XS8HUX`N&0`HU(`
MN&0!HUH`L"]0OU``'E>:"P`-`(GL73'`FA8!%````````%Y:65NP(5!345)6
M51Z+["[_-CH`BD8,+J([`,5V"/RM4*V+V*V+R*V+T*V+Z*U0K8OXK5"MCL`?
M7EC-`)P&5U6+[,1^$ORKB\.KB\&KB\*K6*N+QJM8JXS8JUBK6*LNCP8Z`!]=
MR@8```````````"ZC0".VHP&.``S[>AF!^B@`(O$!1,`L033Z(S2`\*C"@"C
M#``#!@0`HPX`HQ@`HQP`HR0`C@8X`":A`@"C(`#'!BH`U@",#BP`OV0$OCD"
MN1,`D/PNK+0US2&)'8Q%`H/'!.+O'@X?N@P!N``ES2&Z$P&X(R7-(;K;`+@D
M)<TAN@0!N#\ES2$?N&0"'E`>4+AC`@Y0#NCS`0[H;0*X9`,>4!Y0N&,"#E`.
MZ-\!#NA>`LLSP)Q;@.</4YV<68#E\(#]\'0.0(#/\%.=G%F`Y?!T`4"B3`##
M,\#*`@#[@\0&6(/G'X''E@"`_#ES`[___U>T5,TAB^R`3A8!6%M96EY?71\'
MS[C0`(/$!NL#N,@`65OK![C_`#/),]NZC0".VONC,@"+P0O#=#VA$``+P'0O
MCL`FH1``"\!T&RO#=Q?WV#T`$',0NA``]^(#P7(')CL&"`!R!B:A%`#KT8O(
MC,,K'C@`@^L0B0XT`(D>-@#$'BX`C,`+PW03,\"C+@"C,`"C/`"X;@$.4`93
MR[AD`AY0#NC/`;AD`QY0#NC&`;]D!+XY`KD3`)#\+JRT)1[%%<TA'X/'!.+P
MH30`"P8V`'0INTP"Z"H`H3(`Z#(`NUL"Z!X`H38`Z$``L#KH50"A-`#H-0"[
M8`+H!P"A,@"T3,TA+HH'"L!T!N@X`$/K\\.Q9.@'`+$*Z`(`ZP0RY/;Q!#!0
MZ!X`6(K$PU"*Q.@!`%A0L032Z.@#`%@D#P0P/#IR`@0'BM"T!LTAPP`"&R$C
M)#0U-C<X.3H[/#T^/W52=6YT:6UE(&5R<F]R(``@870@`"X-"@!0;W)T:6]N
M<R!#;W!Y<FEG:'0@*&,I(#$Y.#,L.3(@0F]R;&%N9+HSTHO<'C;$?P@VQ7<$
M_#/`J[BPUZNX@`"K,\"KJZN-172KC,"KN%4&J[@4`*LSP+D.`/.KN4\`"])U
M":PZR'8$BLCC"*P*P'0#JN+X,L"J'\H(`(O<-L1_"C:+1P0FB44$-HM'!B:)
M10PVBT<()HE%#C/`)HE%"":)10K*"@"ZL=?K"+JRU^L#NK/758OLQ'X&)HM%
M`CVQUW02/;+7=`T]L-=T$,<&/`!F`.LD4@97#N@E`%HSP":)50(FB44()HE%
M"KL0`.A,`'0&)L=%`K#77<H$`+``ZP*P`56+[,1^!B:!?0*QUW08)H%]`K+7
M=`C'!CP`9P#K&%"[%`#H%0!8"L!T#+L<`.@*`";'10*PUUW*!``&5P97)O\9
M"\!T`Z,\`%\'PXO<'C;$?P0FQ54,)HM-!":+';0_S2%R$":)10HSP";'10@`
M`!_*!``FQT4*``#K[HO<'C;$?P0FQ54,,\DFATT()HL=M$#-(7('*\%T`[AE
M`*!`"+W!XVQ'\$)L55##/))H=-"":+';1`S2%R`C/`'\H$`(O<-L1":+
M'8/[!'8&M#[-(7(",\#*!`#\B]R,VC;$?P@VQ7<$K*J*R#+M\Z2.VLH$`/R+
MW(S:-L5W"C;$?P8VBT\$K#K!=@**P:J*R#+M\Z2.VLH*`/R+W(S:-L1_##;%
M=PB*!#+D-HM/!@O)?P.Y`0`#\2O!<A-`-HM/!`O)?0(SR3O!=@:+P>L",\"J
MB\CSI([:R@@`_(O<C-HVQ'\(-L5W!":*#3+MK"8`!7,()L8%_XK!]M`#^4>*
MR/.DCMK*!`!5B^P>Q78*_*P*P'0LBM`R]L1^!B:*#3+M*\IR'$%'K/*N=16+
MQXO9B\I)\Z9T#HOXB\N+=@I&Z^8SP.L$2"M&!A]=R@@`_(O<C-HVQ7<(-L1_
M!*PFBB5'BL@ZS'8"BLP*R70&,NWSIG4".L2.VLH(`/R+W#;$?P:P`:HVBD<$
MJLH"`/R+W(S:-L1_"C;%=P8VBT<$JHO(\Z2.VLH&`%6+[('L``*#?@8!?07'
M1@8!`(V^`/\65\1^"@97N`$`4(M&!DA0#NC+_L1^#@97#N@#_XV^`/X65\1^
M"@97_W8&N/\`4`[HK/X.Z.G^Q'X*!E?_=@@.Z'C^B^5=R@P`58OL@>P``H-^
M!@!^7(-^"`!^5H%^"/\`?T^!?@;_`'X%QT8P"-O@#E?$?@H&5[@!`%"+
M1@A(4`[H6/Z-O@#^%E?$?@H&5XM&"`-&!E"X_P!0#N@^_@[H>_[$?@H&5[C_
M`%`.Z`G^B^5=R@@`B]P>-L5_!#/)B0VX`#V!?0*QUW0-L`+_!8%]`K/7=`*T
M/(!],`!T"8U5,,TA<EJ)!;BP`[H4`#/),]N!?0*QUW0OBQVX`$3-(?;"@+@%
M!+H4`(O(B]IU%(%]`K/7=0/H*P"XX`.Z%``SR3/;QT4"LM>)112)51:)31B)
M71K'11PE!,=%'A0`,\`?R@0`,](SR8L=N`)"S2$M@`"#V@!S!#/`,]*+RHO0
MBQVX`$+-(8V5@`"Y@`"+';0_S2%S`C/`,]L[V'0@@+F``!IT`T/K\HO3*]"Y
M__^+';@"0LTA,\F+';1`S2'#B]R,VC;%=PHVQ'\&-HM/!/P[]W,'`_$#^4Y/
M_?.D_([:R@H`B]PVQ'\(-HM/!C:*1P3\\ZK*"`"_4``>![FP!"O/T>DSP/SS
MJ\,```````````````````````````````````````#__P``````````````
M`````````````````````````````````````````````!!```"@`+``N```
"`@``
`
end
|