[comp.binaries.atari.st] v13i042: prolog68.07 -- Prolog interpreter, v 0.7 part05/05

koreth@panarthea.ebay.sun.com (Steven Grimm) (01/08/91)

Submitted-by: kilian@seas.gwu.edu (Jens Kilian)
Posting-number: Volume 13, Issue 42
Archive-name: prolog68.07/part05

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin part e prolog68.uae
M3P;LYUF4S02I(%G[R0JR]<*;[+H4_HC%Q2M$N[T7$BDH)H;6A&0%2%I[_0Y0b
MA%"&J'!-#90@M#>\6N5T&M2W&Q\J;/VHF<T)*9=:$%\0)A/_<<O#9>>C"I/3a
MCE$-+]H-B]&-=9#-SS!-&N]:#/Y @F@P]H,?-O] GZG]XDGG7AJT#_S_=L8Oz
M?_ZA^]!ZH=EUIL8A1OF96J-C?0L^MIW]XJ3NY]Y%%T^4;0PY9\W8ZRQUPIK^y
M_G/S_D_BVO<6T9OY0_"DF^49)]_LH^/^OM!'A[H(W_)P$O=*7^PW OE=>HX;x
MRN>>5T;H9P?*Y<W6_*Y1DFZV^V"H[5VLL!4@W]5,:J(W5YO++/CXO%>UWX1Yw
M9Z_&+V^1GE)?K2\@-O2A=IMK(_XMG)!SZ_?'%6DVXV^AML!6YR^M6?)6U>^Gv
MZZ8<^3Z)1:E,^3]58!U!D$\X5J5NC],/A36]\N1%^G/KO<%:8-O?H7()OS:=u
MNRZ/-IJXMB;S:"^J^ON(/R\D'S:;W.]9>$6MU7.,/SJ?$]"?.PE5X:O@TZ_Et
M@.'GGN1L5^'OGO&O%QWGN:41;61%3!]Z#ZFUV^@ZUC7O,I6Q?H/]IYRQ^K4.s
M*VZI#LWT>$1ZJC7A@O"FSJ.JVQ5Z';:E8/M?]>/6XR*VNVD<-:ZRM=M (_:Zr
MW9HO=!OGI>84<]%^%=N;50ET<6G@O:;JY.[Q;5<&.>>R?![9K6S9I5#?HS;,q
MK,?[M[6>QU-BS/_$=69UX_@E<1[WJ.KBUOH$N+5N&124]4H*I[RY>/81< =Up
MQ,7:Z-*GM^DUKUV[C,T6\R$@'.W "#5RVJ] /OBV/2VK=1TTNB6SS[HE-,\No
MBTJGJKD!O%Z<W #5(S=OQ5J]5;G9>XFK/'FJMSA7H/6Y^*)+;8QC90+.6$&4n
M ZYE,]<N9_9V]JPS8S4NLO;ES5N'7-D96$2GW":1OK!O["55+NM>[]=WGV@Sm
M$&MZ],[=[C7[,8OI>[]2+[L_\W6D6U?:^5+2(??2181^PJW2 L)U*DOY['7%l
M7[&UV 9VVK&,:,=OEM5),[(!_Y;7!9G&?;Y;V4MI5B_^6UXI;V;V[A;P!TE3k
M1VYA+>2./I>-\2%.,?A?$K\>5F<%\3N/N_*.%\T@([]M.:='97Y2NBO/=V.Wj
MF)_W8[X#.<#-+_*Y-@ZPTOYO,)C\G)IINXF'_C\?,4 V?NQN;***-^2?_,J5i
M /K?:W>Z2,P']C=!1N-FDIJA#>&A^K:V9;9!/$VEQ3ES 1D-[^/HRN!U(F/,h
MP+HU.J^]N2EC(II"72UZMK,UI$RU]:?_(KQX+==I05=/'3WF:*HS<?HNGH//g
M_D4HR"]>/[3G*8@D--9/K-/9G__KZ"UF_*TW?QJ/S\Z&BL=I$='& =F^='EZf
MS[(G-/4A2+IV[TSLSW=4J?/7RF0OKQ4*>.-*B]M%H-2QEI/-[P<G^>])$3&0e
M36F,O4'II8)N:AB;3-M0-<N!WI8GEW-I64W(#:?Y]):F@7MHLL"8EOTK2EU3d
MY-*RE IRZXFM@V!L7KQN6(+V?FCPI?%R:>V'\BH[0_WH??AU-UO[90JEETD/c
MC-&/[,G]A>]!&\; 4.0@U#ER=VU'*-\^O,HV.2;T$<GHW'U2^@JO5T^T?PPYb
M^M4K@ ':SPOX/1$%)>_7AU2WYIR/I(IG+1=_=6'JGO'G<%I&H<(0&O":/3ZZa
MH[S_-U=R7ZJ%M4N,KI<UE?D\\YJT ]ZE-9*:>B-S@GK;EWU?9/OM R?-9/_[z
MTSFT3\^EZ4COS:XQB#393+VTI*?>'?2/#4VE#JLV;-5Q%XQZ?K>-,FB_BDE6y
MG[ZX'I:P[W1/:Y+:7O]4)S0_I]4W^6D\U?K,#&A,%L"GK8$P<,'22,>7S2H"x
MWXQ\?_!D!G^W;J*F_HT<9IGNDNV<'0CCP U&S^^IUTF[;8UM4W-ECTG>HYM]w
M#!2+V1_QIYI,-V,<&C_);&N':ZXU)V=Q3]:!>@&M!T1XVA\?!KE5V-=AVFP:v
MZ6_AKBQN:W&RC?<4WN\A3]O(.KBEX4^$FO7">%)89)B@4W& M$"[?M?4J-E_u
M/VYR\0@EH2&93[0B//"H[ZZ"OYG205!$JM 9.A&)SN>$RI!-Y_XBTE=<A8CMt
M-JPIW9HX4U%1XM$ ) $$5:B,6!U#N7+C5@8OZ*T1R8-P:T>L#*/@TY F#>#7s
MY"E'2'V_F/R,^HDGK6NY?HZ*S*R^=6"!D]RLB2%&8E'-K!L&(STZ2 G;HYVCr
M-/1/6%;6-$IS+L -[8E_^M@^4X+$UL+'W-K?#M1WDJ40P;(X,!Q;6/+*M(C4q
M.AS;YB\E:WLP$^0SCG< ;HYIV7OGZ:9KU!RM2-T<G0D^=%7E0@%17_F>562Ep
MIG%NQGX7[JF5K]5C0%B5CO=3.IV$S!#=ET'X"]PJKU_\V?)EH?TCB]BAT27Oo
MAE[F4R"]8Q]3M?/9G\O8NB\E.ZZJ\7J.^N?4[%EZ"2]^G=TO=]]XO8MAD;\/n
M#LWJA#5ND^7'#N+<SW"SW<A&^H4\1I72/B;N(R;4%J7&VH=0R^VH6&NV:T5Cm
M6?R46".&R.=;/K;> UAKW6X2FG/=;--W.&;@-R &UT46.VM*"B]?K?7C26[Gl
M;39U5MU+IW0\S:)[HDKF3:0Z0,,ARGJF3-@D%Z_!N DK5.Q&_/5U;'64 "( k
M! XNL*U^Z.]J-' #  U^9$C,&/@6YF<=*"Q>/%K":$7@Q")1X%/ROBYFA, Pj
MY=0(N%:$FW+M\(R&0;,.O(# ^P*AKIWP;B,"]M'/H&=K.23 G9?PE#^6$@%4i
MO6&=>:D7JSG:=N3H&,[(V_4O_.WMY/GILWSY7\,O3;O/ZWOW7Q=1D>R>O\1_h
M^&%% _VOQY17/<![+W9#? ._WZEUN?.7Y66E$HY6:+QPO*Z>>]&]&:5#-R(Wg
MS]["E>"IV3)?+?55\#U^BV=:_8VQO;7*'CJ/6$N2IB-'3<+NI'Q/]1 ;?!]]f
M4N6D:R!D&S1<^*'3#22QEXE(%F*K#6:*JLU&!7ZW@?Q5Z<#ZO&./*QG?J_H6e
MCPM81(@??=\VM<U+7<OQ/T5Z9^CD$9F ]W%%E[90#&4^[:\D'?9YPTC%1\XBd
M^\_%]<'[+\NJNVA7'Y<U;GC4Y$%]:=^V=FE6^8RKGE/?4,[E3W;U:4X]KL7Xc
MUU9&[BH$)PNJ+S5^V?R*KJ6GO&?@GZIN3O-.L]/E?G7!#P"6GF^H=1M^Y8;\b
MU.3R)J3]FLI-3O.E34[S#,PS4,<\B9 @!4CL@K"=#<1FR4*RE!2*#F+KAOJLa
MRR1T01E;!L)QTL+% D..0/-(V8+Z4?]MK?Q7K%&)^=]/M8[LA)RE-/!E?ADRz
MUM^Y5='\E%,V);@M3(W+99:=A'FX)J@A3 3S1\=.A)USW7.JZ#]SG8_5R*J,y
M[)?^WO:(I\;Z75-;_6CO<RS.;^/=TC@@I3;A*DOU/U^3[;\AL/L002Z\XE^Gx
M11)KJA^K6W/UKVMMV:Z5H$+C1O=:E&_QO=OM14'6S)CUR<GJ$--SO ?8=8]9w
M[']E\CT8*WC@5(WK![^R'BYQ QH'?NFTX.=D5X:#K0*1BI[TU[ST0,D:E@*Rv
MJ0Y.[+^1R)CX?D:>D&=\'<".$(G\(9(V"JEDBTL-[#(3:!'@1O=[>[^*TMQ0u
M3TWND@;@W.EAOG/-WO#-*T,'<WQL:L:_?^:CU9^D ZUMLYQE<56M]?LLOMJ)t
M' V.!C?#_@]XY?O8./%^/4F ]L5K?6G_8-OEUP?\_4NS$5R?</@_KE//6^/$s
M%WIKP?O9R-_=7O1O']?]/<\6_X"^(AQV;PGY[MXA6/^F5W_OK?W+PA(0>[9%r
M+^F=4(=A[PA(0J4C1/<W!TKRV]PA4ZG"'F3/$+?9#9G/_B9*%Y0-[[)[2]X(q
M23IK<^W*$+AN:R<^7H\'>E"(0[W<"NPXTNK[N S;PW,9=M[N%W:#NW;Z[=RMp
M;V4,L8[MI=LCN[A=]R[MW9N[Q_+/RAS+KK>2PR[N\MEW)]VQE\VV7O!C(1C$o
M.M,.IWL\[US'^S&]I.<$_=ZEEM'G:YJ#<!QO<$'[J_*R?Z5J?6R $ 0P$YZKn
MZA#\%W6D/EE8,L?_'U?]S3NS)QEX'E IQJ1PO_VQ4;N7EG/^CCW8TIUR:G;^m
M"-/WE72/Z[PSL8VZ,C^[:-9]-O[K,W;.^S?K-QVKSU@2T(4OGZP^.'%,#ZWNl
MT'_%1$BC*S\>NVB[&\V:6_: ZO,^XV=HSVV6@RW-Q72NNQU]._/%=![0AW%Ck
M[VEC9L4+@U-78FQ#>/-ZU]+LS5C$Y>7Q.#7D3YAZ]K^>F\]&M7_Y[:O\YCX>j
M?[;& H4^X?81A]]PKT=][/5VGKY *]CO_>[;'MY=-7[[>-SU/G.UI?Z? Q^9i
MB6C)84>KU_>, SC -XP ;C +/[23U9<E.A2Q84E"I D\7)M_@CE:@QDT9"@Sh
M(5?A"HP8(5*7T*<X:.HR?PL*T\^\?.U&Z:4!8Y+MU%3O)=[<#[D9W(9/:7(1g
M?0$<H,^^4+6.WY(7S-T8'E9#L<154='T-?D/JA^U)??..SJLL?,T$G]:NK:$f
M0KBM'?MBNYQC=,9WYDNP4I6U++UP3:^RK78L4\<B)*\B< H9#O"'#:R"K]@6e
MX])N^,JOGJ/#K(PD17[WU%E?E\P?,^YD^825= W1+VB)<;MR[=ZRO[MVEZ;5d
M_F&#0O==]H6\5[MHIV$";'S:*$<4OPLZJ]V[Q44RVQ>+ZK7#.H-_:6W6<P0_c
M+,7]4N[2X47:YQK4Z+K?EHC>,W!VXAK)I+EXBKNSDI0^"5.Z<KD>6H:2%>_!b
M3K?\]7[7?D[<]OM]SSS_##.SJK[=QI69;7AGO2;$F;R(.O3VZIMPR&>NK+'Ja
M9F*.:%^*%5S.-TAZ5S&9Z(%\LG^3W0T'9 \H_YG?Y1J@Y6+1^^L<=#]LPUEFz
M_QO8/,+)H"7C<4BM<GD2%=:'XA\V?7&R5H@)&>NR):^^ C=C!>B3_J#UXWV?y
M?X/23LEY:2.8@\6';#8?&K.DH;KRRM(!Z?9P.C^:&.H:# _F4N&F/,MV&:OGx
M_(7Z7;A>4URPV-HB=,+L78GVWS!BM*Q=))7^;1AIO]&_YK>Y5@Z\Q^G5Y?@Kw
M^R(+;(8=44;<IL*JVNS-7S3]ST9_Y*K>Y7XR;VVCCG'\3@_,[>IK)B]0VB^2v
MX;>7K9Q6_LE3;W*>;O6^VCE!TD7(6E/H=KB[= KR[E6^6D=4:OQ?5:5H++.5u
M97(Y'9<TH;)5ZN>EVDT*;7BY=K6_3FT@)OE\I=.IZ<2_=NL-N_1U_3I/+IV!t
MX(?WA7@@QV7NXV;C;LNR7+>7!WFGOPM&C',U#GYQ2,OC':R()#T7KJ<G<2^=s
M*?R\8U7$VV13W&-B0S:V*\NZ'N0QO:Q>9:+<4IQIN_5&^;Z#UZA>E=T_BS!Cr
M,?(?,!!K=2$]Q[S2S?Q1_\Y]A7;58_/WG'OG=7<8VER"6/E;C%C7^V,O)4ZEq
M?D;G=2GY[J^N5J:N</O[Y[LXTDX?!C(Y<N (JTN&=9RUBX#:TA$91:SQ$7!!p
M_JXZ(@>QNPKK(D8D;ER*!L(:M'3'S+033(M/">9_&<([G)!3EP7T;A_)"-C1o
MP\N"0,_.O"N%6%L?UC[*(@%HF;BX3?S<+5+0GEYZD!/&2:OQFV9M>Y+5D[P&n
M\9.N@X,_@B;U?F_<;1V=O=_0DI-(\1;.<)QMGU),F*V;3^$0,5 ,;GPG53L>m
MAGT6QMH,]K2W#^7Z;\""34Z2T>>PU+/G1ULC'2U^MM!52=7S#0?W;?&]K?RFl
MWB'&8"=^9YJY_3L6P]!,&HR=GT=H_)6M7]]\6#6/^\_^]G:+E[,@6G\\\CY5k
M':-& 179ZRWIGGEF WT(JQ^;M9M=>G]IA[26,-)+YS&&&R6K]G<.7\&_7W\[j
MSLL\?&?7077OGF7'%LXLN(;:+RGL5JY!58O,\7>4W4ECRKE+E3R/F=E6K&LOi
M61[LG#M6EQO;L&/X*KA/N#57EA^.A<\.#S_>& <;T<.NR,Q?=5"30=\043"=h
MJ5$7.]<^3B_=V/V2",CWS _"WS/.'E52FZ/I@7EU,!P<F_UGX=W?21NO5(XUg
M-6W)DGRA7*_:(6>28?1,HBRC<A?>MPUS,T+PRO]+]QW<'5!4?BGD/L]GS\@9f
MLT\8F;ZL$B/2T26_] D$>D8W"C?UU.TOQ3O6C?;N+I7;?!BK\M!>5H,RQLR*e
M8A[;S"U*5WU.R_20JT<M];KLZ+*@,3]HL5/_I6^K5258XLEK4QDO; /HAH[&d
M8$F'65=QD(J*^V5F[=H!WVIP6^N2M"N0&7^5E*.NFG]C3R:M0@*( = =4;H2c
MR*O2M$F,!>S%)S%[?9:07O=?PR2C @<M>K#H7J8.2NT2R"MVECOH02O"0X(0b
M@2K)"3V6#OU5-U87JQ$RL+1^:&_9'43M$MR RU@/0==RYH-$C>RJ7::#ORQ4a
M/G:,'PP6@G2N&NS2YF3N-O.R/SNE_A.J"\A0.Y/*=HH67&\,OU:I\R/][%0^z
M^U'F6MRF'FR- FG03_Q9@14\$L.Q^_?(G 0A%]*-_4/Y;X7(N;"ZT.D'EQ(Sy
MW]^SE7T5#KZT%=DD.)VV(^1?]@UBL,^^E7)N]![MU[XP1L-O$.]N^S0+C=1)x
M?!/H.LT'_(-?7%!2^L<8![O#[PEFC[$[@)P&0[C%YMC[V\.';K *J&X54P)@w
M".9;EKGW4Z.L=*UD4R]6G7=*+<1JL(\J8!$N%8+A=UCY1?VNZNGA(UY,]]ATv
MIG%$3V':R:'7W78.O+5HY#@\3!#-OB;OB4_20W?0LYR+V^/'(L&$^Y/M&O@Pu
ML:H*IT>:^*9LN*I9EA+8+^P8JZG%U)'T<T9M71JP5JR=EK\C Q*Q S7K+5[6t
M-]\I\CJM!>FG*-E\O6JUY4<[!>QS[C#?$P/#B8[GC$HQ?]J(OE&1;,0=QCQ@s
M4729A,O3",V0W!S:]1Y-?Z-\7B'NA#WP571']#+RW_[HW-' E\**T/S?CM<(r
M/%@$3Q$G<B,_Y>,%R7M@_0R94)X\#'FBF"_AJ*-_$G]NA;,WTK/?Y2;FR'J-q
M!VS!RB\N./O) M_@R'K&L*3NC_]H6=*[]$AWO1,L7HZ5$=LSM[$L[V[1O@?[p
M6=7_K! [_5+IOT%QW_CH.UW^CX1WJXWWP(>!&@2RO.^C:_S)9M'8LY=[^/R$o
M#)_\='=]%SOD^+#N;H<;G<8_055Z=]^MW^IW[WT]LE*U-&_AG"/??8^/6Q=In
M&P^O"C>*0"V![LYJ]MH0G_?#V,]?9E5UF]MJ8=88C^ DN83YD'502LNG;%\'m
M7AW8JW4#N"5:8/^NT_'*]S !0$QIW)H[7+W'S0^#8MBC==LU&HE^'@).YJ>^l
MI09\ANKWZ]MA?B?Z'Z:RX=)L[(>>_XK%/9"W5?91;N,?$LEH1B8^SR;C?1VKk
E7F4NH[R.A0+.*/2>V#@O$ET@-\ =-?7[3HFB_^VI]2?79EQ@ "8^j
 i
end