Carl:

Here is where SwiftForth really gets fun!

The attached snippet lets you choose and open a file
using the standard Windows open-file dialog.

It is then read into the buffer in this example.
Type z-get to run.

....Marc Hawley

begin 666 open.txt
M7"!O<&5N(&9I;&4_at_9&EA;&]G(&)A<V5D(&]N(&QI9F4N9_at_T*#0IC<F5A=&4@
M9&)U9F9E<B Q,# P("]A;&QO= T*#0IC<F5A=&4@>F9I;'1E<G,-"@DL>B(@
M5V]R:W-H965T<R H*BYW:W,I(@D)+'HB("HN=VMS(@T*"2QZ(B!497AT(&9I
M;&5S("@J+G1X="DB"0DL>B(@*BYT>'0B#0H)+'HB($%L;"!F:6QE<R @*"HN
M*BDB"0DL>B(@*BXJ(@T*"3 @+ T*#0IC<F5A=&4@>F5X=" @+'HB(&5X="(@
M," L#0H-"F-R96%T92!Z9&ER(" L>B(@0SI<4W=I9G1&;W)T:"(@," L#0H-
M"C @3T9.7T]615)74DE415!23TU05" @3U(@0T].4U1!3E0@>F9L86=S#0H-
M"B!C<F5A=&4@>FYA;64@,C4V("]A;&QO= E<(&9O<B!P871H(&%N9"!F:6QE
M;F%M90T*"0D)"5P@;F5E9',@>F5R;W,-"@T*.B O>BUO9FX)*"!A("TM("D-
M"@DQ.2!C96QL<PDA*PT*"4A73D0)"2$K"0T*"4A)3E-4"0DA*PT*"7IF:6QT
M97)S"2$K#0H)3E5,3 D)(2L-"@E.54Q,"0DA*PT*"3$)"2$K"5P@:6YD97_at_-
M"@EZ;F%M90D)(2L-"@DR-38)"2$K"5P@;6%X(&9I;&4@;F%M90T*"4Y53$P)
M"2$K"5P_at_9FEL92P@;F\@<&%T: T*"4Y53$P)"2$K"5P@;6%X#0H)>F1I<@D)
M(2L)7"!I;FET(&1I<B!S=')I;F<-"@E.54Q,"0DA*PE<('1I=&QE(&]F(&1I
M86QO9PT*"7IF;&%G<PD)(2L)7"!F;&%G<PD-"@E.54Q,"0DA*PE<(&]F9G-E
M=" K(&5X=&5N=&EO;@T*"7IE>'0)"2$K#0H)3E5,3 D)(2L-"@E.54Q,"0DA
M*PT*"4Y53$P)"2$K#0H)9')O<" [#0H-"CH@>BUO<&5N#0H),3D_at_0T5,3%,@
M4BU!3$Q/0PT*"61U<" O>BUO9FX-"@E'971/<&5N1FEL94YA;64_at_9')O< T*
M"3L-"@T*.B!Z+7-A=F4-"@DQ.2!#14Q,4R!2+4%,3$]##0H)9'5P("]Z+6]F
M;@T*"4=E=%-A=F5&:6QE3F%M92!D<F]P#0H).PT*#0HZ('HM9V5T"0T*"7HM
M;W!E;@T*"7IN86UE('IC;W5N= D)7"!A9&1R(&QE;@T*"5(O5PD)"5P@<F5A
M9"!W<FET92!A8V-E<W,@;65T:&]D#0H)3U!%3BU&24Q%"0E<($E$(# @+2T-
M"@DP/2!I9B )"0E<($E$#0H)/G()"0E<("TM"0E)1" M+0T*"61B=69F97(@
M,3 P,"!R/@D)7"!A9&1R(&QE;B!I9" M+0T*"7)E860M9FEL92 R9')O< D)
H7" M+0T*"65L<V4_at_9')O< T*"71H96X-"@D[#0H)"0T*+R @(&5O9@``
`
end

.
Received on Mon Oct 25 1999 - 20:03:35 PDT