[comp.lang.pascal] add exit to dos to your turbo prog

Randomizer@cup.portal.com (10/11/87)

THIS ROUTINE WILL ALLOW **YOUR TURBO PROGRAM** TO EXIT TO DOS


--------------------------------CUT HERE-------------------------

begin 644 EXEC.ARC
M&@A%6$5#+E!!4P`C(R,C/PX``.8.>[F_NH`:```,#13L`5$$2Y$A+J`$F0+"
M3ADY<]*\<0,BAHL8`0."`$$%39HY(,RD85,&Q)B)=,*D<0-21L@Z;L;0D<@R
MY!LY'.O($?,&!)0P<\:$80."#IHP=$`,9?/F#H@\;^H4[2D')H@W1A]J!`%'
MSILS<L*T`6G&:QL0=](87:DTY\Z>7;^&;>-B8\>2(B$F-0-3)DT6(*;4$0/%
MZY@R<^:PV!I&9IVE>4PN!5D'3ELR:<R8>5C&3=*X8,6"J!/1S1D03::T(/*$
MH5`V1&D(00*XX,&Z'-&4V3JGS$DW9%[&G#D1\)$R=(:\:3,%CF_`<I#KK)F5
M*U(T(-R(+?G&3%'=)I>W"0-\ZTHZ#[LB?PCXCL<QV#]F]XUX3A@YD>GT)-/S
ML)R4;+WA7%C$L83;7=&!(-]0<_04QE;CL07:7-\AI11L38$$E53Z%8584M7Q
M-1Q-<[B0D0(;6?%01!-5=!%:-ZT!4EI&@<`:0S*X`(-2P(&0HT4IKDB3BSM.
MQ$9D=\181G`T8G?C5C/H"`(9=93481@@S#$8'22!($8=I[%UHX\NX&&B`AI!
M0D`+&PE1!AM8,C'8&BNE>8`0-\'98Q*>/:1=@4-QY!L:;J3Q6F"5P7$3'78J
MUP8<=4SQD$,@W!`###'8P$(,-=PP0T!]G$A%'LYM-04=<MA@0P^GRK'2&5NH
MVL4.IJ(J0PTUL(KJJUO<6L.L)QK15X&($F98?2@X.AYP3*Q4A@Z!V8IK"M#R
MB=X9#]&*(@@#_938=_*)Z%>+6,ZQJVE7>1?B36VD:<`)1.C`A1%5,,$$%PI1
M@0073@311!%</&'$O$DP480+5&0!A75SK2='#`QOAYX<+KD`R0`GG`B"FD;<
M!$(9>(@%!TF+H0C)NT/(.T464U!11!-<#('$$D1,L80+0SS11,8FOQN$O%=,
M@;/.-CXQ1!7_.D'%13QOC+*\-W+!1!).W&P;1T6TO$/3)Y^0<LPZ-Q&$$T0,
MW00(+PP!0LY09`&""BZH`((0\@H1Q!!+5+&P#T84G#7;+B11!!$\ITG`7>#*
M$1S((G<Y!QH99EF&0V$1M99I)=JUGX-N1-;==WB]@6%:I@&VH>%MD);42G:\
ML8:5X)W4QK+!Q7588AZ3%QQ)JR?%'^@PRK$&M-%A%MVX;FB[,0%PI-&\:3M8
M5V-O]\'W:O34RV$]NF9X7!W(Z+$TY.=83B@:"F:7O+P+M@'FL0MV4Y%"]&(@
M!5]((R$6O>X*]BF'=D09D^QHE[G<E$0[;>".NG1CN`'RSW;U\9A(NB0?<]UD
M2?T#WI@Z8X<T>,4-"?3,@<`CK@(9[CC)64YS?)/!M9`E?R"(#AVF`Y+JP.$Z
MV=E.NH#GP!Y!$'=R.-/R@L"&!F4'*["ST(9`D#ISC:8WP$M;Q!(XL:O@)&=-
M$!O9T#(2HK@!*\%;0P-O<CPNY0$W68B*9"C"H/XL96UA&QL1N%BC+T[1807L
MB'S2`IL+,>4.AJL.:1XRE2?"KB1CBLNC0$05JY`G#Y<[#0J``@*FH(N264F0
M?#H3E3.@`75E:,--\I""`_4$6TFIWQC64,@-X<1\;0!,[,A3%%(=,CRSXU]!
MDK`TC:DI"(X)%.,>11(=N"L).F#58`KSAMO-`04H=-0*Q[""$Z!-;6QS&]SD
M1C<NV`UO>@,!W_PV!<`)CG#S\^7AP&.'H50IAM+Y'P;E4YWH:(D-29'A=#`H
MALB,*0QFJ&)U;*.VU[!AA+LQ&0%$Z<0!MJB=;*@22.[S+%\>``;0$LP8G&FG
M&%3+#1!-0W!*."04/"XJ;`B.&R9'R*/`P3D4:1*X0.*5.LQDI2FPDPR@983\
MO>"&=01C]V!"!COA`%I.`",GP82=!(H2/X5D2AAJYY70M*MGEX*6$*;Z,9!Z
M<"(A3`H*P%(&I!#2*+2<@0R6D%.L>A0$28!-&<X0*/89!']=ZIX<QL,H-"DT
M"=Y9(BIYY+E,PO.>=`#,;Q#+(]2H9DQ4&%2A#B6%,FPF.C$IR;(><U!U6J$(
M4G!;$IH`A2=(@0ICHP((G/`$ET%KB4VH0LL,";PGP*%`(`FA5#Y'!9WPQ"=`
M.91^#&?/7<D$>&*)BF=V6)8RE(0,>4"@H9@8RE$:,CC]?$I47EG5N>#F"6XX
M$NA`^=3\'&5U(/EB4@:)7?.61#=AL,R"VCF2,(@AKQX;I)<*JQLY&`Z6F0N5
M7S>B');T=7E3N%@8'/+1:SVD!S!0GIJF`(4I+/A9<.T3MN0`86UMQ0KW,5QE
MSS`':%7V)(I;&U!*8JVY$O()9D@3`]Z*@B!@@05"N/$0;DR$&PL!"BR80A)8
M0(0AUXP%66.!$>!$X@:[6`[I-!D#=@J"&C.!!4&@C1"N/!L6#.'*,B/RE8F`
M!*U"L@Q1WI@"B@`<"1/`"$,00@R4'&<J!T$.88G,%F#@`A?,P`9=``&,YW9F
M-__$*$[83D91I2HW*TMW5%`)&Q9-,5P9^CYMB/1],7SBFQ359!%@LQTD=08G
M;UC"$7!4L]P`+2^T^-1IB@"<Y5R85K\Z6[&>M0QJ#0)7:QC7)GL`F\G@X6VY
MZ0QU^JMWH/"&9UKS!%X6C^Y6C68(&]`-:2K`L9/MM$.C(=$)3.:CF>6L%8P@
MPNX:-QDB/9)D>J$)$B[`L`U7A"(F=&/:GBNW3^9M<#^K!\J!0QZ2)6URKW13
M+&"VLT$`;753.P4MB$$*S(WNGJF;W9,&N(`&[G!G);S9*'AVM'-I<#2SP%<3
M?W>\A^WH@J];TGON0C(+LR2"D_SE(XEYFM5T!;5@9\0@(<(;LKUM;/>LI[`9
MPE'D@()9SWD*:=!#&;K3]#A+G`4PV+D!;)Q,$L@@!YB2L`%JEDQ2VYQV&-]"
M#+J@=2$G$\;/O#C,UZ[UK)5]KE67L]:+_'8S/-/I6F_"'(3^3*#/CUMKBXY9
M03#KBH!`P$Y#.AN4?I^\RR#(49^Z&2R?`JQKG>L]\#K88R!VN[,*[[K>.S)[
M`'?.BUWPA$>!X:,WD"$H'CV,C[./'N\NTP^!U&+/<=E)W8+?SW4%30CE%;9@
M_%(GOPW+;[X.2(`I3'5A!22(00QD`*R>9;GK-`C"ZP</\MDCG@AEQ9!0<`\3
M]E*WO+SO6<]K]).]:KI+0K=3T=.$`%&3.IG/%WW_1WTP(`-#T'T;@P"JMA+)
M%`1D0`9,)W<CL7,(X'2UU@,."(%Y)W$25H%U=H$9R'2I)V$'P'+'Y`;4A@(D
M@`-$\`(DD`,V\`+`A6C;L0(0(X.(QP,]Y@-]]TS]MAUJQW;1`WF0T``KV((O
M6`0R6'^99E]=(H,7,Q`\D&,\R'I^AP),>']H%CT70X1&*`0XX((P``,N*!M0
MN`!2:&-52`*R,89<R`!>F'U*2`*X`H4/,!`61BDZ.`4^`!A3"`4^L#$)$(>9
MXH(Q8`1V*(4U4X5F]X,)%(2'1X@Q2'TWD(@@P`-9PXAXEX5.N(4;,P!Q*`-S
MB`-#8(@Q&!@*1BDXB(<7=HE3P(<9E&`#T(J04`"A.(HYX((R<(H4EH<EL8J!
MT8H\0&&!R!:]2(NVF"9&:`1!`(43,!!$\!&=V#\34Q6W!1(G$X=#@(0R$`.6
M.`1OE!JKT1H;TP!QR(S."(W2N&G4^!#62`?8:`"WZ((X(`2ZR(L5UHK`6%D6
ME"##"(@;`X?*Z'6C.(>%B(JSJ(H;,1#\J!_^^(J!"`D":3++:(\;\XP$H1WL
M>![N6!GPN#$'$(<Y4(HKB(@K>(I`9X,X@#:(MV1AT&0]P`-#``55$!),-@<1
M*8\#B0.Y>)(RF)([`H4&,!"@QP-JR(4/$(<U@(2'>'B0X``,^2$7=(D_UH=[
M&)$AZ2X#@3@)E!BOHA0UU2,R]8H\$AP4IB#I11^)<1^1(0:^$0;Z152$-"8Y
M@@?J`PD(`%!5I$__\Y5EL1R-15"2`1N`$03V`D_(9BXK`I;/]2%>D0<8!#*'
M<5O\]WME"5=0$`(;D01<]#AP=0+!L09?=`<4@5:I9%E3R9G101(K%APN9!VK
M])*'Q']YX40SD4`6,P#QYS2`564N26(@$`0](G$\X`,[<A<4(1C&TDSUT8!8
MT'OV5BS,Y$S)5''X9H+;@IT!(2PCTB+1I$+.,0:4UFA;,2JEHE"BAH%X%@9Z
MQF=^)@,W8`,W$&B#1GERH#P@`&+^A9Y0@"JM)FINEC7^&2V55@-N)G0KI55O
M(#IEE3R&@TP9YF#WJ3%SHV]&MSQ%T)]R,'.H@@(!R'P#.(8&V`6>YV:K9YUJ
M@J#_9@0,4@8!VBK)=`(GX&:5Y1Q(<4S>D:&HX@5;D`1=T`/G=FWZ9Z'\UYLZ
M*@<\F@0V^*-!BIPV,A'_1@55X:)%ZAT!-W`"*@<(AP,IT`->HS,4=A!>*J0F
MDP#[9S(*\)W,$9[BMG$HD*4LD`.;,H8[IP`JFDQ26B42E@#8F8!9&J,S:B?S
MUC/U!D5_V@-9N@)'FJ0(>#*KIZ2D9SA5X!DC\:0KA9_:*1`$$3+$5!*PA!N2
MDDI8T51\D@:I<Q;\TP9!@`>F6@=GT5S/%5UB,5U.95T=<BDPP!@](CO-TR6O
M>24@8#9X50:X@7Z\<TLKA0=)P0;.4DB=T8G0(F`HH`(GHI]KXW*4YBLF:FK`
M%A!GNA%7X"KHP01N$')L5D58(C<=$@=UH!;1`RE)D:Y>@IH)@B4]Y)H]H5]8
MI$5E@T4N<`)I!@(U6E8'QG/B6@8AUP,MX`,`2Z-E10;D>G:ZLW,$T)OJYJ4J
M8$U.B@1#00<F:J4N5YPR2J;X]JV."K(W%X08J[&Z01'JEDQJ.DW5=$T,MP)7
M*K'`<7(G-RUBMWK*.9W(HFY:UYM)4)S'V;(@$*YJ4081>P)%@&<>PR;0E@0[
M)V]MMA63.A-$P:+VIBW#=B8JT%8:$!`'T``'0`8Z"QH`&AH:&AH:&AH:&AH:
6&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
`
end

-----------------------END----------------------------------

RANDOMIZER@CUP.PORTAL.COM>2(B$F-0-3)DT6(*;4$0/%
MZY@R<^:PV!I&9IVE>4PN!5D'3ELR:<R8>5C&3=*X8,6"J!/1S1D03::T(/*$
MH5`V1&D(00*XX,&Z'-&4V3JGS$DW9%[&G#D1\)$R=(:\:3,%CF_`<I#KK)F5
M*U(T(-R(+?G&3%'=)I>W"0-\ZTHZ#[LB?PCXCL<QV#]F]XUX3A@YD>GT)-/S
ML)R4;+WA7%C$L83;7=&!(-]0<_04QE;CL07:7-\AI11L38$$E53Z%8584M7Q
M-1Q-<[B0D0(;6?%01!-5=!%:-ZT!4EI&@<`:0S*X`(-2P(&0HT4IKDB3BSM.
MQ$9D=\181G`T8G?C5C/H"`(9=93481@@S#$8'22!($8=I[%UHX\NX&&B`AI!
M0D`+&PE1!AM8,C'8&BNE>8`0-\'98Q*>/:1=@4-QY!L:;J3Q6F"5P7$3'78J
MUP8<=4SQD$,@W!`###'8P$(,-=PP0T!]G$A%'LYM-04=<MA@0P^GRK'2&5NH
MVL4.IJ(J0PTUL(KJJUO<6L.L)QK15X&($F98?2@X.AYP3*Q4A@Z!V8IK"M#R
MB=X9#]&*(@@#_938=_*)Z%>+6,ZQJVE7>1?B36VD:<`)1.C`