SF Talk wrote:
>
> Date: Mon, 25 Oct 1999 20:03:35 -0500
> From: "Marc Hawley" <Marc_Hawley_at_email.msn.com>
> Subject: file to memory
>
> 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
This must be some sort of encoding:
>
> 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
>
How can I read or use it?
Jerry
-- Engineering is the art of making what you want from things you can get. ----------------------------------------------------------------------- .Received on Tue Oct 26 1999 - 00:08:55 PDT
Subscribe to our e-mail list service. It's free for all SwiftForth and SwiftX users!
This archive was generated 09-Feb-2012. Archive updated nightly.