Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!gem.mps.ohio-state.edu!usc!cs.utexas.edu!uunet!ncrlnk!ncrcce!anderson From: anderson@ncrcce.StPaul.NCR.COM (Joel Peter Anderson) Newsgroups: comp.sys.cbm Subject: Forth In Geos - here it is! part 1 of 3 Keywords: Geos, Forth, Fun! Message-ID: <1650@ncrcce.StPaul.NCR.COM> Date: 25 Oct 89 14:34:44 GMT Organization: NCR Comten, Inc. Lines: 232 This is the uuencoded version of geosforth by Nicholas Vrtis. Accompanying this file are two text documents that make up the user documentation. I have chosen to 'un-geosize' the text to make it readable/usable/printable on any system. (I thought that if you are [probably] acquiring this binary where you cannot use it [work/school] that you might as well be able to study the documentation.) A couple of notes: 1)I find that I have disk problems IF AND ONLY IF I enter Forth from a 'mini' desktop. If I enter from the 'real' desktop program it works fine. (this may be my fault; I use a bootable copy of Geos that bypasses the normal boot process) 2)This file must a) be uudecoded b)transferred as a binary image to your Commodore. c) converted from 'normal' CBM format to Geos using the utility I uploaded recently to the Net. ----------------------Cut HERE------------------------ begin 644 geoforth.prg M@PH&1T5/4T9/4E1(H*"@H*"@H H3 99!QT/*2 4T51(&9O-UH?(F!AE H4"D +F V!#H*"@H*"@H P 0=9!QT) M$ 4P"#%Q%024Q& M34%.+D53H*"@H*"@%PD!"%D)% 4=*@!"3$%35$52)U,@0T].5D525$52(%8R M+C4&60,1!@$4 M #%;____^ .[NX.JJ@.[ MJX.**(.[NX. .##@.!"@.!"@.#K@.X 2.@ Z.SN3NBL2NBH2NCH2N /_ M______^#!@ !$ B @1G96]S1D]25$@@5C$N, $YI8VAO;&%S($HN M(%9R=&ES M &9I9T9/4E1((&9O2!K97D@=&\@ES M!J,)A61I9VGTDP:C!CB]9%_I,# :R0HP!SCI!\D*, _=8E\0"IUD7ZD!2)A, M8 682.CH3& %ABAF:6YDJ9D&UP8@D@6.)@6@ +%S474I/] QR+%S474*T">0 M]JXF!=8U],9P6$96UI]#0' MI@>@#+']A1C(L?V%&: .L?V%!;UB7XXF!2!%P: ,I1B1_.)@4@I\*J\/JN)@5,)0F"8_+1!^\'CB8%(/@'3,$@H RE-9'] MR*4VD?V@#ABQ_64IQ32P Y']8$S>((5C;6]VY>@''@BI R"4!<1ST ?&=! # M3&<%L7>1==9U^8G69?/F1?/F5?QG/0V4R.!H-A;N2#"-P(O6)? M/61?2+UC7SUE7TS'!H)O\M0(\PB]8E\=9%](O6-?'65?3,<&@WAO\NP(2 P) MO6)?761?2+UC7UUE7TS'!H-S<, #"20)BDBI $Q>!8-S<*$<"3,)KNP+3&<% M@W)PH2L)00F*HO^:JDQG!8([\SD)4 EHA?MHA?Q,9P6%;&5A=N5)"6,)BDBZ MO0(!G00!O0,!G04!:*I,9P6"/O)9"7X)O6-?2+UB7TA,C@:"0J6"B"/!;%S2,BQ M!8)CP) *J0H@CP6Q!81U M;-"RL+ 2#=&_SV LK"YT ARMO[D"^\*2P4 !-P)3@F#=&GB[@M@ M"P( A7=I9'3H @Q@"P0 A69E;F/E# Q@"P8 @F3P& Q@"P@ B'9O8RUL:6[K M) Q@"PH @V]U]"T,8 L, (-R;_<\#& +#@"":>Y&#& +$ "$<')E]E ,8 L2 M (=C;VYT97CT60Q@"Q0 AV-U\*7PW/"4X)@;QS#88-()(%.*5UY7.E=N5T4 ))@! !R)A,)0F! MOH -[PHS"H0-3@F#\*E ND!TX) MA"UD=?"[#>\*4@KK!00 4@I."8AT.(#N\*B R4 M"H<%$G8.3@F&/W!A:7+SGP[O"E\-AP43=@Y."80_8W/PM [O"B()L0R4"E\- MAP44=@Y."8@_;&]A9&ENY\@.[PJ^#)0*N0F'!19V#DX)AV-O;7!I;.7@#N\* MD Z."5(*!@U\"90*/@U."<';^@[O"G,+B RU"DX)@=T6#^\*AP7 B RU"DX) MAG-M=61GY20/[PH-#H<%(((*3@F#:&7X,P_O"H<%$),,M0I."8=D96-I;6'L M1P_O"H<%"I,,M0I."8L%(@ 7"MP),PIZ!I<&IPI2"KD)ZP4$ &$)I <.!N[_S 4$ "H*3@F$*"XB MJ=T/[PJA"=$/4@KY#(X)W E\">0/3@G"+J(0$.\*AP4BB R4"NL%% $#Q<0 M$A$B#:<*^0PR#\*^0Q2"GP)IPJ3#)0*H0;K!20 ,PJ3#)0* M00@J"MP)G0R4"OD,ZP4( 'L+G0QC"HX)S 7._XX)3@F&;G5M8F7R5Q'O"G,+ M,PI2"OD,IPJ'!2UK#5(*? G<"4L%__^=#+4*8A%2"J<*E M?#>L%%0!2"J<* MAP4N7PUS"W8.L%! #\"4X)A2UF:6[DG!'O"I0+$A$B#6X, ME J4"M4&4@JY">L%"@ J"B(-#0[5!DX)A65RH+H0U["W8.3@F%9&5P=.@:$^\*(@GJ M"S,*7PV#"U(53@F):6YT97)P (@,E J$#>L%"@ L#CX- MS 4& "P.L@4C$\P%"@ B#:41"!,C$\P%U/^):6UM961I873E21/O"@T.AP5 M@@I."8IV;V-A8G5L87+YA1/O"H\/2P6!H#X-? R4"BP./@TB#3@,E H^#3@, MM0J?#P8-;@RU"DX)Q69OT' M81!5$X@,E JY">L%!P 7$ )/2\P%Y_]."85A8F]R] H4[PHQ"6(/L% M! #\"4X)@V%B\\@4[PI2"LT43@F#;6GNV13O"A<*%PJA#>L%! S"BH*3@F# M;6'XYQ3O"A<*%PJ$#>L%! S"BH*3@F!JO\4[PI!""H*3@F$+VUOY!<5[PH7 M"GP)? G?%',+H0G?%(@(C@FA"0H)S10S"HX)S10S"DX)@:\C%>\**A4S"BH* M3@F#;6_D3A7O"BH5*@I."8=M97-S86?E7!7O"A<0"DUE&$X) MA&QO8>1J%>\*50R4"GP)4@K<#+4*.ADJ"GL+O@RU"G,+50RU"E43\*P!4Z#E(* M( R4"G@-AP45=@Y\"3@,E JA"1<*> WK!1( V1/Q$Y0*4@HX#+4*S 7H_U(* MAP4$7PU/#AT.E I2"J$)> WK!?+_%PJ#"U\-M0J4"M(-N0GK!=G_C@DI#+4* M3@F$8F%CZ] 5[PHB#5\-/@U."<5B96=I[CT6[PJ0#B(->PM."<5E;F1IYDX6 M[PJ0#H,+O0XB#1<*7PTS"K4*3@G$=&AE[F 6[PIH%DX)PF3O?!;O"@0/>@8B M#8L+3@G$;&]O\(D6[PJ+"[T.! \.!D063@G%*VQO;_":%N\*BPN]#@0/0 9$ M%DX)Q75N=&GLKQ;O"GL+O0X$#^L%1!9."<-E;N3%%N\*S19."<5A9V%I[ML6 M[PI["[T.! _,!4063@G&L%# !S M"WH&PPT.!OS_3@F"/*-@%^\* !'(#+4*3@F"([Z!%^\**@K(#)0* !$7"E\- M3@F$@03@F!HZ47[PIS"Y,,E J("#,*AP4) M%PJ$#>L%!P"'!0?<"8<%,-P)Z!!."8(C\[T7[PK!%U(*N0GK!?C_3@F"+O+F M%^\*? E2"M\4AA?K%ZP7E1>."1<*7PUI%^0/3@F!KOD7[PIS"_X7PPU."8&_ M&ACO"I0*'AA."85V;&ES]"@8[PKM!VX,E J4"D(,E K4"X<%0%\-H0WK!00 M[0=2"CX2PPW##4\.'0Z4"E(*N0EE'?$(ZP75_RH*3@F$*V)UYC08[PI+!0($ MW E2"JD+:PWK!08 *@JU"U(*8 R4"E\-3@F-96UP='DM8G5F9F5R\W<8[PJU M"ZD+%PI?#<@03@F&=7!D873EGACO"F ,E J4"DL% (#Q"& ,E JU"DX)AF)U M9F9E\KP8[PKF#)0*4@I@#)0*:PWK!08 ?A@J"E(*? E^&"H*Y@RU"J$)E K/ M">L%% "A"6 ,M0JA"90*2P7_?]H('R"A";4*H0E@#+4*C@DX)A6)L;V/K MVQCO"NX:4@I\">,?N0GK!0X H0G@"Z$)Y!B<&0X;C@DJ"F ,E HX)@W9F M[C(91PM&;W)T:%-O=7)C90 (MB;&]C:RUW1[&9X9J0"%>:D#()0%CB8%QG1 GR0C0(R")PDRV&:5UA0:E=H4'I7.%$*5TA1$D>1 &((_"3.D9((S"BO " M"4"N)@5,)0F%=F]P9>Z/&?X9((\%CB8%I7.% J5TA0,@=,+@!? #3.D9I7.- M-AJE=(TW&JDVA12I&H45J0"%%B#MP> \-%,Z1D ,5O____X 8 ;__ M^:;:C:32S;___: #:X'C:@"C:W>[:E2K:G2K: #: #;@ #:@ #:0 #9__ M_8 ?___X,' 0 __\ $9OL% M" !H&?P9#AM."8<_9&5R2"L&R#X!TS!((->9>1.&W4;()(%CB8%H "Q=? % MR,1SD/>(, :Q=+%UB)%UR,1Y\ /(T//&>,9Y(/TH3*H9XL74@R<$891BF&9 ! MZ.0XT +%-Y 4\!(8I7=E>X5W($\=(/TJ MI'G$.9YA'JQ=?!'(,G!&&48IAF0 >CD M.- "Q3>P%Z1ZL74@ L+F>J1ZQ'C0 R N':1Z3*H+ 7($\=(/T<.*5Z MY7=*A7L897>%=ZA,JAP@(QU,U1L@+AVE&(4(I1F%":4WA0JE.(4+.*4%Y2EI M H4&&*4%:0*%!R DP:V^A(48K;^$A1E@I1B-OH2E&8V_A$R;PHBQ=2#)P84" M.*48Y0*%&+ "QAE@H RQ_848R+']A1E@AS]B=71T;^YM&V<=I3 P%XXF!0F M>(4P((;^I3 I?X4P6*XF!: K06%*8!)@$PE"88_;6]U<^5;'9<=RLJE.YUC M7Z4ZG6)?I3Q,)0F';6]U((\%O6)?A76]8U^%=J1SB# (L77P^ MI2E,)0F#7F/L21[O"H<%0/ ,E J'!0]K#>L%! 3#4X)@UYLX58>[PKP#)0* MAP5 &Q5@#)0*W DX)@UYV\W(>[PHZ&2H*@:7!AX8EP;P M#+4*>!Y<'B@>Y _M!PX&ZO]."8->9>R-'N\*!Y<'AP(3@F#7FGSOA[O"N08X O($',+Z!V'!1!S"WH& MEP;$'@X&^O_%&$X)@UYE\^P>[PJ3'F4=*@J5';(=91WK!?S_E1TS"BH*3QY2 M%5(*UQV'!1"$#>L%& !2"OD,3QX;%8,+7PU,#+4*Q![,!@:7!A,-\ RU"G@>EP;P#+4* M>!Y<'AP(2P7__T &Y/_P#+4*>!Y<'MD0Q1A."81>L%$@!^&+D)ZP7H_RH*ACP 3BE>2#'((9WA'B%>0AHA7J@ [EW )%UB!#XKB8%3&<% M;', AG-CJZ+WC(84)2?^%"#BE-^4UA02E..4V2F8$2F8$2F8$I3.%$H4*IBFE+BD$ M\ +HZ(H890J%"Z4$A06F"R \P1BE#&4"A1"E#64VA1&F"B \P1BE#&4"A0RE M#64VA0T8I0YE H4.I0]E-H4/H "Q$"4&A12Q#"4'!121#)$.&*4,:0B%#) " MY@T8I0YI"(4.D +F#QBE$&D(A1"0 N81Q@7P";$0D0R1#DQR(;$0)0B%%+$, M)0D%%)$,D0ZE"^8*Y@O%-+ #3"LAIC2&!Z4N*03P LK*Z(HXY2F%!J4UA0BE M-H4)I3>%"J4XA0M,),'_?S\?#P<# 0"%9FQU<^C*(.\*J0NU"WH&EP:4"L\) MZP4. )<&E I+!?]_V@@?(. +!@U !N3_3@F'9&5S:W1O\.PA[PKT(