Part 1 of 1 UUENCODED FILE - MIN4V00.COM
dufrp@oricom.ca
dufrp@oricom.ca
Fri, 25 Apr 1997 12:23:50 -0400
There is a file that come with the mini4th25.zip archive,
mini.min, that you can type to extend MINIFORTH to be able
to make IF , LOOPs, . , etc...
I did type it in the NASM version of MINIFORTH and I am
posting the resulting DOS FORTH interpreter here so that
you can torture it a bit and give me feedback.
By the way if someone could try at www.whowhere.com to see
if you can find the e-mail address of the author :
Ted Beach
5112 Williamsburg Blvd.
Arlington VA, 22207
703-237-0295 (This address come from a 1988 file)
so that we could ask him the permission to use an 32 bits
extended version of his FORTH system in TUNES that would be
nice. I can't do it because there is .rdct (redirected??) in
this www page and my browsers don't like them.
That's the first time I am sending a binary file on the net,
I hope it'll work.
---Paul Dufresne
CUT HERE ------------------------------------------- CUT HERE
begin 644 min4v00.com
MZ1(-QQ($````"@````,```"Q$@#_`````````/]0`T)910T@1%50(%)/5"!3
M5T%0($1!0E,@(R,@5%E012!34$%#12`[#4X@05-#24D@,"`K($A/3$0@.PUR
M#3Y2(#L-````````````````````A^Q6A^Q>K?_@4P4#`(G#BQ^+#AD!XQX)
MR<<&&0$``'D'6`$'6ZW_X%B)!UNM_^!3!0,`B<.+'ZW_X%,%`P")PZW_X`4#
M`*.V!JW_X(G86__@A^Q>A^RM_^"'[%.'[%NM_^!3A^Q;A^RM_^!8A^Q34(?L
M6ZW_X%.'[%A;A^Q0K?_@_P89`:W_X/\.&0&M_^!3K?_@"=MU^*W_X%NM_^!8
M4XG#K?_@6%!3B<.M_^!96E%3B=.M_^"*'[<`K?_@6(@'6ZW_X%.)Y_]U`JW_
MX%M;K?_@6%E:4%-2B<NM_^!8`<.M_^!8]]L!PZW_X#'`"=MU`4B3K?_@,<`)
MVWGV>/,QP`G;=.YX[.GH_[C__PG;=`*)PZW_X(?L6%E`07`645"'[(LTK?_@
M7X?L6%D!V`'9B?MQZH?L@<8"`*W_X`G;6W3@=?)3A^Q;4X?LK?_@6#G8=`6)
MP^G*_UN!Q@(`K?_@6%E:4E%04U*)RZW_X$.M_^"!PP(`K?_@@<,#`*W_X$NM
M_^"!ZP(`K?_@@>L#`*W_X-'[K?_@T>.M_^!8]^-0B=.M_^!:,<`YVG,$6/?S
M4HG#K?_@6%E:`<)2$<NM_^!8]]A0D[L``!G#K?_@]]NM_^!8(<.M_^!8"<.M
M_^!8,<.M_^!3K8G#K?_@6"G8N___<@%#K?_@6"G8N___?`%#K?_@_W<"BQ^M
M_^"/!X]'`ENM_^#1XP'CBQ^M_^!8.<.[__]T`4.M_^"R#;0"S2&R"LTAK?_@
M4[0+S2&8B<.M_^!3M`?-(3#DB<.M_^"(VK0"S2%;K?_@6HG9XP>T0+L!`,TA
M6ZW_X```Y$U)3DGIU/VO$M0#X`.$15A)5.G4_>(#@2'II/WL`X(K(>F5_?,#
M@4#IHOW[`X(^4NF^_0($@E(^Z;_]"@2#,CY2Z;_]$@2#,E(^Z<']&P2"=&_I
MQ/TD!(,K=&_IPOTL!(-$55#IP/TU!(0_1%50Z;K]/@2$1%)/4.FW_4@$A%-7
M05#IL?U2!(1/5D52Z:[]7`2#4D]4Z:W]9@2"0T#IKOUO!()#(>FM_7<$A#)$
M55#IJOU_!(4R1%)/4.FH_8D$A3)35T%0Z:+]E`2%,D]615+I)/Z?!($KZ9O]
MJ@2!+>F:_;$$@C`]Z9K]N`2",#SIG?W`!((P/NF=_<@$@S`\/NF?_=`$@3WI
MJO[9!(,P8G+IPOW@!()B<NF?_>D$@FQPZ8O]\02#*VQPZ9/]^02!2>FI_0(%
M@E)`Z:']"06";V;IH_T1!8(Q*^FZ_1D%@C(KZ;;](06",ROIM?TI!8(Q+>FT
M_3$%@C(MZ;#].06",RWIK_U!!8(R+^FN_4D%@C(JZ:O]406#54TJZ:?]606&
M54TO34]$Z:3]8@6"1"OIK/UN!8=$3D5'051%Z:K]=@6&3D5'051%Z:O]@P6#
M04Y$Z:?]CP6"3U+II?V8!8-83U+IHOV@!8-,253IG_VI!8)5/.F>_;(%@3SI
MH_VZ!8(R0.FG_<$%@C(AZ:?]R06$4$E#2^FF_=$%@D-2Z;/]VP6$/TM%6>FV
M_>,%@TM%6>FX_>T%A$5-253INOWV!81465!%Z;K]``:"/#[H7?O=!+T$Z0,*
M!H5#34]61>D"`!``7UA6B<:)V>,"\Z1>6ZW_X!@&@3#I8OL``#4&@3'I6?L!
M`#X&@3+I4/L"`$<&@BTQZ4;[__]0!H,D-##I._M``%H&@R0X,.DP^X``90:"
M,4;I)OL?`'`&@C=&Z1S[?P!Z!H)"3.D2^R``A`:$4D]/5.D&^]X#C@:'0U52
M4D5.5.D"^]X#F@:'0T].5$585.GS^MX#J0:&3$%415-4Z*OZI`;_`_\#Z0.X
M!H=#3$%415-4Z);ZLP;_`_\#Z0/,!H50051#2.B#^AX%.P0'!"8%M00/!/`#
MZ0/A!H,^24[I<_H%`?P&A$A%4D7I9_H#`0<'A%-004[I6_H-`1,'@T),2^E0
M^@L!'P>%0DQ/0TOI0_H'`2H'A$)!4T7I-_H)`3<'B4-/35!)3$E.1^DF^@\!
M0P>#5$10Z1OZ$0%4!X)2,.D1^A4!7P>"4S#I!_H3`6D'@T1"3.G\^1<!<P?!
M6^CJ^3D&*01/!^D#?@>!7>C;^54&*01/!^D#C0>%4U!!0T7HR/F)!OT%Z0.<
M!X5#3U5.5.D"``L`B=A`4(H?MP"M_^"M!X(N5^BB^0X'M0=U!I4%!P:D!^D#
MQ0>"3$SHC/E:!SX%Z0/;!X,_15CH??G@!_\#W03I`^D'@TE,5.AL^0\$M0>&
M!*X$!P0'!ND#^@>%04Q,3U3H4_DR!`X'Z0,1"($LZ$;Y#@?P`TL&&0CI`R((
M@D,LZ#3Y#@=\!$(&&0CI`S,(A"%#4U#I`@`(`(G@HQL!K?_@10B$0U-0/^D"
M``\`B>!3,=L[!AL!=`%+K?_@60B$/T-34.CQ^&`(P0T+(%5N8F%L86YC963I
M`W0(@CHLZ-?XKP7H`#@(KP5O`0X')@6U!"8(Z0.0"((_0^B[^$\'O03F!,P(
M0@8F"`X'*01:!Y4(3`B1!^D#K`B'0T]-4$E,1>B4^+$(#P0[!/\#)@@F!0<$
MZ0/."(-#6%+I`@`'`%\P'5NM_^#K"(-34"'I`@`(`%B)W(G#K?_@_0B#4E`A
MZ0(`!@")W5NM_^`0"8-#3%+H1?AN!P,)Z0,A"8=%6$5#551%Z7[X,`F%15)2
M3U+IW_\]"8-(15CH'OBO!1``*00^!^D#2`F'1$5#24U!3.@'^*\%"@`I!#X'
MZ0-;"<=,251%4D%,Z/#W3P?F!(L)V`BO!28(Z0-R"81,24Y+Z-CWX`>D!O\#
M\`/I`XT)@U))1.C%]^`'*00.!^D#H0F#,%1/Z0(`"0#'!AD!``"M_^"R"81F
M:6YDZ0(`-P!:5HL?"=MT*HG7B=Z!Q@(`B@R!X1\`.@UUZ$9'\Z9UXEE6B<[V
M1P)`N___=`+WVZW_X%Y2K?_@Q@F"+DBY!`#H%`!;K?_@"0J#+DA#N0(`Z`0`
M6ZW_X(G/B=B[$``QTO?SD@20)Q1`)U"2XO&)^;0"6LTAXONR(,TAPQ@*A41%
M4%1(Z0(`#0!3BQX3`2GCT?M+K?_@3`J$0D1/4^D"`!0`B=A;65K-(5)14U"[
M``!S`4NM_^!F"H)$5>D"`%T`B=\QP(G"HQ<!BPX)`8H=MP"!ZS``<BZ!^PH`
M<@J!ZP<`@?L*`'(>.<MS&E-2]^&)PUA2]^%:`<*)V%L!V('2``!'Z<C_4%*[
M__^`/2YU!8D>%P%'@#T@=`%#K?_@A@J"1%/H>O:U!Z\%+0#=!#L$!P2]!*X$
MBPKF!!D+#P3F!!,+@`55!NX$'PL/!$\$.0;I`^T*@R1$4^A%]CX'!P2U!Z\%
M)`#=!#L$Y@0^"TX)O02N!/(*#P0I!#X'Z0,A"X).5>G3_TP+@C\_Z!/VO03F
M!&L+R@=5!L$-`B`_Z0-4"X,_3E7H^?51"UD+Z0-M"X-+0D3I`@`1`+H=`;0*
MS2&@'@&8HPT!K?_@?`N"4D;HS_65!LT)Z0.8"X1&24Y$Z>W_I@N$5T]21.D"
M`&(`M`FZ"@V(V+L?`8L."P'C!HL>!P$QR0,>!0'I`@!!0S@'=/HX)W3V.!=T
M\C@W=.Y6B=[I`@!!0S@G=`PX%W0(.#=T!#@'=>Y!`0X%`2GSB=F+/@,!B?N(
MR*KSI+`@JEZM_^"P"X)7+.A)];<+=`0>!1D(Z0,>#(1(14%$Z#7UP08F"`X'
M*01:!XD&(PQ:!VL&\0CI`S`,AD-214%41>@3]3<,KP7I`#@(KP6I`0X')@6U
M!"8(Z0-0#($ZZ/;T-PR5"$P(D0?I`W(,P3OHY?1["-@(Z0-"!N\'Y@2B#$L&
MX`?P`^X$I`R4"8('Z0.##(9,3T-!5$7HN_2)!K<+K0OI`Z@,ADY534)%4NBG
M]!X%<PM/!^8$Z@QY!^8$X@Q9!'P)?`GN!/0,3P1\">X$]`QY![T$Y@3T#$\$
MZ0.\#(-"647H</0Y!CH)Z0/V#(E)3E1%4E!2153H6_1/!^8$+`T>!>8$)@TZ
M">X$*`TF".X$,`U/!#H)Z0,%#8-254[H-/3@!0('&@>^!>8$<PVX";$,103F
M!%<-$0WN!%D-Q0Q4"L4$:P94"KX%G07!#0<@4W1A8VL_[@0]#4L&[P?F!(,-
M6@<Z":<)@@?I`S(-A%%5253HX/-D!Q8)@@?@!3D&*00E!X(+.08I!`('.`U/
M![T$Y@2U#0`(`R!O:^X$E0WI`X4-@S]%4NBK\[@)Y@3@#4\'Y@32#:<)#P2U
M!P<&10F,#>X$Z`T/!+4'K@0'!.D#NPV%04)/4E3H>O."!U4&P0T734E.249/
M4E1((%8Q+C`@+2`X+S@O.#CI`_PQP(G#HQ4!B<4M``&C$P&)Q+@*`*,)`8D>
M#P&^]0VM_^#J#8$GZ#'SL0Q9"^D#-P[)24U-141)051%Z!SS6@=@!O$(Z0-$
M#L-;)UWH"_,[#M@(KP4F".D#6P[)6T-/35!)3$5=Z/+RL0@[#B8(Z0-N#L5!
M4T-)2>C?\HD&MPL>!70$?`GI`X4.@CT_Z,ORW019"^D#G`["24;HO?+8".8$
M#@=+!AD(0@;I`ZH.Q$5,4T7HI?)"!J$.V`CN!`X')@59!/`##@=+!AD(0@;I
M`\`.Q%1(14[H@?)"!J$.#@=9!/`#Z0/D#L)43^AM\D\'Y@00#]@(*03N!!@/
M.PXN!?\#\`/I`_H.PRM43^A,\D\'Y@0Q#]@(,@3N!#D/.PXN!?\#^`/I`QH/
MA%=)4$7H*O([!/\#I`;_`_`#*00.!^D#.P_%0D5'24[H#_*Q"`X'2P;I`U4/
MQ55.5$E,Z/SQ2P:A#M@(Y@0F".D#:`_%5TA)3$7HY?%+!J$.V`CF!`X'2P89
M"#D&Z0-_#\9215!%053HQ_$Y!J$.V`CN!`X')@59!/`#)@CI`YP/@F1OZ*OQ
M601C!+4$C`6O!0"`K@3I`[P/PD1/Z)/QV`C!#]@(&`0A!`\$.088!!@$#@?I
M`]0/@E),Z'7Q3P=9"P\$#P1%!.8$$A`.!UD$\`/N!``0!P3I`_(/Q$Q/3U#H
M3_'8"/8$)@@A!`\$]P\'!!@$Z0,6$,4K3$]/4.@R\=@(_P0F""$$#P3W#P<$
M&`3I`S(0Q4Q%059%Z!7Q0@:A#M@((038")$$V`CN!"$$#P0.!Q@$&`1+!AD(
M0@;I`T\0@TX^0^CJ\+4'=0:5!:X$Z0-\$(-#/D[HU_`V!3L$=`1K!KX%Y@2L
M$#8%[@2:$.D#CQ"#0SY,Z+CPE1`^!>D#KA""347HJO!:!X(0Z0.]$(5#3$%3
M4^B9\,(0Z0:4">D#RQ"(5D%224%"3$7H@_!9#$L&&0B4">D#WA"(0T].4U1!
M3E3H:_!9#"8(KP4Y!M,0Z0/V$(543U9!4NA4\%D,#@<F!28(.08F"*\%/@?3
M$.D#$!&%1D5.0T7I!/8\$701+Q&&5D5#5$]2Z"7P60R4">D#/A&&1D]21T54
MZ04`4!&"1D?H"_`[#K00-Q%C!+<%60M"#^D#7!)3Z/+O.P3%!.8$AQ&,
M!>D#=!&$1$%"4^C<[SL$Q03F!)T1@`7I`XD1ADU5+TU/1.C$[P<$.08.!6L%
M#P19!`<$:P4/!.D#GQ$Q$Z7;URA$``+\1@U!!1.B:[PX'KP5D`*X$Z0/,
M$8(\(^B([](1*03%$>D#WQ&"(S[H>.^1!,41TA%C!+4$Z0/O$81(3TQ$Z&+O
M508R!,41Q1%\!.D#`Q*!(^A/[SX'J!%L!*\%"0!C!+X%Y@0X$J\%!P"N!*\%
M,`"N!`H2Z0,9$H(C4^@E[QT2A@2=!;T$Y@1*$ND#0A*$4TE'3N@-[\4$Y@1N
M$J\%+0`*$ND#6!*"(R/H]^[D$4<2;`1?$O01Z0-P$H$NZ.3N.P1Z$3D&=1('
M!J0'Z0.$$H(N5>C.[CD&Y!%'$O01!P:D!^D#F1*"+D3HN.X[!&P$6020$742
M!P:D!^D#`T)912`@=`N*1`7H90#_-A",0?9$!R!U!O9$!Q!T"XI$!.A.`/\V
M%(Q!BD0#Z$,`_S84C$&*1`+V1`<!=!.`/AB,`'4,/`U\`BP,/`!U`K`,Z(;[
M5<.T.+``C18'C,TA<Q#'!AB,`0#&!A2,.L8&$(PNPX\&!XR(#OV+Z%S[23H.
M_8MU!;@P`%!!0?\V!XS#'@?H>@!6Z!0`7G(.Z(@`Z-8`<@;HN0#IMM#I!]&^
M@0#'!JR/``"_T(HSR>@RR3W__W0//0``=0F+VN@@`'(#ZP'YP[@`6,TAB]B!
ERX``N`%8S2'#N`-8NP$`S2'#'E97Q7<$O[V.K#PJ=`X\/W0*J@``
`
end
CUT HERE ------------------------------------------- CUT HERE
UUEncoded And Sent By Net-Tamer.