Article View: comp.sys.atari.st
Article #28172pascalii.prg version 2.01
From: buchanan
Date: Wed, 09 Sep 1987 18:22
Date: Wed, 09 Sep 1987 18:22
162 lines
10311 bytes
10311 bytes
M$I`!89`0!A`%RU#2*?8%-/`!=@``8&``J$,#'V`#'T`72B`$:D``OI0!2C`$
M:X`!9V`!M#`$94``-#``8.``EB`$4S`$6A(&%P$-4;`,CS0%0K`&"B`!&1`&
M%R$,4:`,)9UB7V`'```&!(`Z-O`!6T@&"C`$#H<)IT`'!``&"#`$#H<)HD`'
M!:`$0W`&&+`&%D`+0U`&!$`#`P`&#F`)0C`%0Z`E87#34;`,CS0%0B`!&1`&
M=A`%RB#[T/!`3-!>A%0%1<`^7V`#'[`&`F`&`F`'!"`#7T`>##`$G3L&(D`#
M`Y`%0F`'!``&&H`Z-O`!:R``9B``=M#H7T`>##`$*34&!D`#`Q`%0F`'"#`%
M0K`&V!X&*!`%RJ!+4S`$Y<#8"6`.J2``00``#^!!,,``"I$#8R``7A``8:``
M2C``9T``63`$8"`.K8,$^8#7%Y$)-"`"'4(`$Q`$`#!7HIH:F4`(3)`/>'T1
MF4`#LU."4"`$:V,*2H`"H?P"##`$Z```KB`!*)`0#*`0`G`&!L``"I$`9D`#
MY$$#*+`02'`.(``,>/$"K8("*:470'!%WF`1#,`$WS``!,#2:^`&#``()4@`
M9V`&TP`,E-#2U#`[-(`""S$%0G`A&1`&!A`%RE#2=0`!*)`0(23=G6L&%(`$
MYP`"2L,6!WA%^\($WS``/%4'T@T`!6`&#(`$YP`"2L,6MN)QY"#=`'``9L``
M2'`.(*`T;&$K!``&TB#=*64&-5L'1:,)=P`&"E`TFK`HMC(`(,`$3N!PB"`-
M3G8%K%=4("`'91`'=9`&<E`&9(!]<I`&;Z`E=/`&('`%K%=4(/`&6@(%54`%
M`$`$:3`':P`";Z`E9)`&<E`&8T`';R`'>0`"9E`';-".0K`VIJ`$J!-L(G`%
MGL0`X9<09H`!X`<`KH`$YP`(X/#[G$`/3/`-!Q``-("?(GD.```.O\\)],`$
MWW``0A&$K@`&Y"`$:V,*2H`Z(G`%2K`VG``+9H`#2@!*!6`&",``X9<09L`!
MX&<R2'`.@``,O\\)],`$WS``?AI^"7$&!`!^)J,$H%0`9D``2@``9V`-0K`V
MG``+#!!^"7$&"J`$H%0`9D``CUY/>A``8"``S"<$:V,*2H`ZP28"5^!)Y&$'
M$'D.M``.5;4VN@`Q*0$#,G!U`*`+S_((3/`-!]`"#*`0+6`&"*`$`V`&7K#A
M8$`##*`0(&`&!J`$`W`&*@`&3G""&T,T#*`0"2`&0D`-@I`&7(`"`H`-A)`&
M5H`-A(`WU$`(:>`$`I!-N_,`U!`(4C`$2@!*`V`&(,``"@$"9V`)#!!^"6$&
MCB`!H.0*#*`0,%`&",``"I$#8Y`2?J`$`W`&)J`$`'`&`D`$@J`$!6`&#&`#
M`H`$PV`+@F`&"$`#@M`Z)"`(K5,TG%`-,%!^8*``1<,)M0`#MM*'#H<(TB`$
M:V,*2H`ZP=8:(G`%Y,$`H#0`"7$&2F`"2B`%BZ`$H#0`9D`#2'`.H#"R"5`T
MN@`Q`.`/@'9U`*`+S_((3/`-#U``#!!^"7$&!J`$H#0`9J``4B`$L"`$9:`,
M%A`,8&`,L"`$94``%"`(8"``%("?T&`""`$`NK"AYQ`7+[``%J`TME*S0:"?
M1<,)LJ`7HAH$^LD$WU``];$!%``,G[8&!D`!VX!8,S`F%\$)L("'`-``"I!G
M84`&($`&:7`&:4`'()`&;@`";E`';2`&9:`E9>`&8_`&=>`&=%`&<E`&3/$$
M=E`&9,L&;W`'($`&=2`':>`&9P`"3A8$1``";V`&(.`&==`&8E`&*R$$:V,*
M2H`"H?P"##`$Z```KL``*.!!`7`&",``*%`E"6$&>*`$*```!1`;U4T>-(`"
M"T$"28`$YP`"X(`7+]`J*)!2>O$#5^0-%L$`3/`-!T``++T&+'`&*C`-P$`)
M+:T-2@`!9^`!#"`!YF0&GJL$8$`,#"`!9GL&$,``$@``#7`%Z&`R9D``%(`2
M(#`[2@`!9P`!2H`")F,&"@`%Z&`R%(`2(#`[(8`0!5$03%,'-(`""S$%0A`&
M0*`$*```!6`&.*`$$'`&+B#=YF0&"*`$*```!8"R9V`.*R'=`-``5Q`,,1`$
M`"``9R``-"'=9FL&"G`%P1`#00```A`#0="Y$@`,4:`,_R`,LP,!*)`09V`%
M2H`"`%``9D`$TFTR9F`"2'!II&\K1!0[CR#=`-``9G"QMG).`,`T0;`O<-``
M3/`-!_"H=2#="V$&O'III&\K)Q,[C\`$WW``CUH'1>,)46,K`0`&"E`TGB`$
M,'"`(,`$3N!PB"`-4E`&<U`&=``"<E`&<5`':2`'94`&V"<':?`&6D(';P`"
M4E`&84`&(/`&6G($99!H=$`'9=`&<$`'($`';P`"<E`&84`&V!<&<T`'(%`&
M;D`&+?`&9M`"9I`&;!`A[/,`VX$2'K0=J6$*3"`.^%D'(P`,56$%J-,^9X`!
ML)`:I@`%98`!L)`:IL`$9``!('!U<6$%K5,TH.`&8&``10,*>N`$#H<(Z$`'
M`0`&`D`>J$,7K8$`=WT&`M`8L(`0"E`&+G`$#@<*4D`"4R`""G`&:``+E$4`
M92`&8M#<T60`9F``)B`)(J`(8&`')A`$)3`%;+X(8,`&)J`$8(`-L(`0!G`&
M&B`&*@`+"$$`9H`#(G!U<6$$9P`#)!`$(R`-56$$PB\"5Q<72G`&'D`"03`"
MTE`52@`&J@T003`".0```.7D#`,2049($TA0A"(P(HKD$VB*B0DI(A99`T9"
M([\``'XM$\,`21Z&6IQ,!(`(G1(!9RC(`2`B"CDD9`3("#8%R!H#(H)%0?:/
MGQ-H(+Z(^`+C@X@$9P#\PS!KI2DH9:1:J$J1"1FI#!``@#3@C``I0!@``4"@
MC1ZU`!24`2*1(48)9AP(B31C+0$AJ0`8()$(#!<3062L8"L+2!D-9A2(6"7X
M1!+!8(QD[,L6L&#"8'"06`+&&"P^`!#D%9&+H9,1R5R#`7%:\.K6`Y7`9J@$
M#`/6#(WL'FCDZ%@*2,J$@0/BC9TR<N34<3,'Q!PZ8<:L`0#E31HW=*"#<)*$
M"7?OX,6[>4,'Q'<0:)3#`8`DWP"0`'812MIT*:P(93#P`@),V(>??D[489)`
MHOBBDD`MO7"!$`'EQ\H+J%G(5H+U'7"`0/KQ]X%:__ACA@3]9;B+(!,``Z(@
M<`0`AF1?*`&$&@3,!T$&=5DXDP0:T!``-6D)(948H%0@Q#__4,.33P90D,U0
M10U8H(<@$L)A/A]\D&52-'PPA1#;_4,'#A_(\`$)7_RH`2U!?/4/&4V1:"**
M3JG(HHOYP2@CC3;BJ&,&-@!@31"V$"&&5#94,`231\@#0P!)R`-!`#VMX0`U
MPEQ`0BW,E*&/E%3R8R677N:GI8+Y'/#`EU^$N9T__*@Y11"STM/?%X/:$(`U
M0M@"Q*+^B%-$/#``4$D*3$H3#"0`#)&I`1)H4^JIKF:YY0>OJIJ4FFRZ62<0
M)9Z8XHLMOACCC$L%FB,`.TKBDP>9:F`'`"8H04(24@Q!`P`H+)&+`E8H4]09
M"DBQ2!3)_,..$&>`(<`/`YS*K;:L9NMMK!_,:H2MN`+@CP_CEHNG"'JFV^>Z
M@-[X[HZ^`BLLL1#TN`LK%`CC[)@_D6JPJ02VVBV"=4Q!AQS?G='<<W*8P<8;
M=P"0%`-H.&'%/_:8`0(,*/R#SQD:S"3"$T0`<5-..V4JF5!$\2-Q4B*<!$!%
MTGP$P"S/!+@@`*-`\2!+Z!PUPC<"\4++",@4#@L#+DA55&0M9#C*6@Z`@4#D
M`DV>&@AN%'54+ROQ`HL9V(`@M^%'&9W=&DM#)QUU\,E'7SX!_%`X+DGI(?4'
M9PB!(Q&`2%&$"!><@</O@0A/`@"^&B,,$D(H`;$'.`2`1!!*!&$&"\00`[WT
M9I!@C2!I@&!L3D0,XL(@,Y)@O1`X``"&.$)<<FKMMR<(`R].V$$$/P`0P%'J
M$X`_W(X/?R*@`0'`"UR@)G>[,X,!]@<(8!SE=\$;7O'`@#SAR0(09$"`$@QP
M!BF@0$9$,`,"\!"`$9Z!!V`@`AX`,`4BP((08H"`+'#(`$$`PX4"N%[U($('
M`'QP#`:0@@"@`0@PV&.&'RP#`20!B`(00QR(N(+!Z`'$$XJC">@CA`L((;'Z
MW6^!#=1?A4RAA`0E90:$FQL2CB($N;$Q05N801>V,!8:[!$$01##&^30GBY$
MZPUPR`/2SH"&]O0"!#'(`0YLP`(0#&$(1`!!&-Q`!A`\80I3J&02W#"&QI$%
M)`((0`!2"1)5IA(2!1B+`O`#D@'$L@"Q!(`K00*!`ZP2))"8)5E82<P`0((`
MKQS`6!CPR@(80)4$,.8`[L-*9`8``:H<RS/)D@!C?@@`!0!F"PB@3`0H\YFI
M`0DVV:+*^X`DEM($IT"RF4U(9$```AC+!L()SE;Z,X"Q1&<J=0D2`\02EO0,
M("J->=!+"8":QC0`074I`":-I0`.,(`!7*!1'5#``!HP@@I(0`$'0,(`$)"`
M1B6@TBAI]*,NC:D$4OI2C4*``U1```-@J0`'E%0"%.BI!IA@``<PH*@&8(`"
M#&"#CYJ``DHUP%)[JM./3M4!596J5+'*`*MN-:M4[:H%M(H!"&``J`Y@*2:F
M*E4%8$"J&%``!7A`"0C8%`%RU:@#'+!4'F``!2)P0%GW*H4H*0`"%B#!2Q&[
M5:F"8*M8G>E4IRH"#5B``D!`*0U4@%(%($"E/54!!2"0T9Y*E0$:*&UI$>`!
MFIK6LS,%[6ICVUC8NG:VMY7J9^U*5=E^5JN>=0$KHF0!"TA@K%/]K$^M@%()
MJ!8!Q>5M9*6[VZ_.U+K4O2Y5]6!8Q"HV2A#P0&T1D%K=2L"M%&!N4&F*4L;V
M-JD.*&Y8J)I7!2R5`?&U`%^5BE4%,$"\9Z6`&`QKT[D2&*4&#FJ!>6```BC`
MP1!^L(0)P.`(6WC"#`ZO!.*J80Y[8,.'_;"'0=SA$&^8!VS5`!(X8%\LX!4"
M(`"2!UX<8PW,^+`UOC&,94QC'N/8QSO6@!,4P`,;:R"OI:4`(QI<X0R+&,5:
M?2H'R"+7*0^@RE2F@)6Q?&4%Y/3'J54`#8YLU3)+U<PF**]<G4SB)S?XP16&
M\U)!J^4L6_F\3NBQC?7L`@6(]LQ2U4":D\P#$&04I39--*(7;=?.,GJI$("T
MI!W=Z$I/.M(E)<*!$6M6H*Z9P`JP@%PU7=)#4T"_!H9!29.JU:"BU:<,WJMD
M,3!?^IJ!Q?AE'".LX%^CND`%M>ZJ!'@`!WY@,P`H`"\%5.""\^)`I<<4@P(,
MG58+*`$4X0T`#2I)`2]PEJA$R&BNX6L`.5@`KS(``1%(L%<S8,`,1/"`N/D*
M7W8;0&L8,.D`$"`#J;(;`6^EJG[-"X-\DX6\LRVX79-]7R"`5JLB"+5648O9
MN!IUVGN-DC?0X(`/HV"P:76?OD!@`1\\U@`H\"E+%?!A$TA6O%.5``.@0(7+
M(H`")&"`)=S!"2W@0QN>R#=I'>`&#\C`"QJ@)!NT2@48X(#%%A`!')2@!C)<
ML^,!,`$)/,!L&I!%!!;0`09H@`$98(`%&H"!!SQ@`@R0``,J.+L&.``#"#1[
M[![@`B`XX`)5J)T(6-``#T1``A^P@`0X^#@;5,"&`%#"W&C@@@8"0``-,(,%
M&&@[$=).!1N3C`4X2#.T3,`"(VC`!3HPPC&/&W<@T,`-&OBX#V0``]J[@0@?
M=X$(C#!X%U""[VX'@MM)8'82J(`/9">!"=I.@JU[H*D@H`#).7`02A`UHQPX
MKU0Y@(";XU7>$O!`6'``!",@X.0.(``LK:$!(C@BL#)00&IKSH#,4\`#*%#`
M,3V@:NZ;X*7==U\^P`$&<$P$\&9V95G44H#[1FOGY0`0@`"1%H&>M52EA52>
MY0'2A`<8H`''Y`0V(`<L-H+R5X(:P%H&(%X910(BH%-XQ0((8``J@&(JX&<*
MP`(WJ``PD(,@,&V2T7T&0(`(X`"$<%Y(0`$?)02990-)A0UEIP2<H`"B$(%8
M(`LZE4D4<%X@0!9Q)0E1E7\P$'5,$``RP``,0`7^A0#'9``@@&)XA5<2AX,>
M8`1(%8-20`$Q&(,,H%(4D'^<!00*(`3R9P"`^%@>@`%"D%$QR%=8Y0%6`%6&
M\(8``!H(4$%30T%,24DN4E-#`%L(```=#V!>J5=P$P``#```*"""`$W!@@`@
M#2"!$,`$+@#"`"@`($)"!!/@@"!29LX:$`!`&$G#I@Q($$_@T$GSQLV<DTW"
MK#$9\LB;-V32=#P)(HB8-W7H@%`BY,1+*&'FC`G#!D`+2!1";NSX,<B8,1WG
MO)&3!T0,$#PY>NQY->O6KC+`2A5;M>P<K5Q!S%`+EBU9K&_/@J!!=^I8JWCA
M=JW1URY@LW%M]"V24RBD`BB*I.`YY$T;."1-@D`Q9+)4)FG<?'R,@HEG+WY0
MJT[-6K74F*%!D&[B&>S(DK(A&SG=NO=J+U*CU$GC&'*4VF17VC&I$$40Y%+J
MN)%M`(44Y)4O9Y:#4B5+ESQ!BR[#/>7*EB\52F5,?&OW\^#5@YT29OG[[^DI
M_O;-'WC=-R#$-)-L!*!`!')4`#4&&M2A0`5O^T68VFLRF804'0QN!@5R')5$
MATEAB)296A*6*-44)96A48AWH#$B2%!L!=]+;Y@!`H9IO`2''&^<(4<8;8`0
MAAPFC?$&''G(D<89:-"1T``UHC3%%$*Z008(0Q!!Q)-5S%'&E7<0QR`<Y+61
MXQS?/3E%%5(4$1)11H&`E%),@3`'&F6PP09(S8TQF1)OH#&=$'4L&(8;A[I@
M6QEY@F`&D2;1`>"3.<U!AY)B!&62&>ZY`>".-1+GPI-6@""#"S'`\"04//H(
MI*/N'5%$$P!\`0D*M=X*`!:ZVHJKK[OJ^L02``QQ*%9-Y?JKKKPNZVRPSP+;
M;$!S+K6G>#.5YQUZ3P9!1F/?U8FMHYG-H0.U25F+I668E:3MC`"PVN./07+*
MG:RT(E6'ET*:\2%WY/$HQQS%HA%&;)*"P$9HV0)`11F7;35D5SD1.8:D7)T+
MK+2Z<I3I&6>$=@8(1\YXKA%UZ`D"&65\#$(;.)4!@!2'GE$DGF.L(3(`4]`1
M1LX@+%A&SCL/4=*0(-@Q9!IAB%$2P<,6>VR>`6W,;*]8XSHM>QB#`*JK02+:
MALQ1#Q&$$T,4P00`7+MG!AMAG$%PV]SE*"0(^'K=*KUL-^:>SS.]-(370P)9
MQK\$*R2`'0$)T$GCGDP$@`$`"!`!(`']\P\`)P`00..?-.Y*XZ](3KGE3_[C
M#P`/>-XX+(T7T[@QIE=^>>;]`%"!ZY4STS@XC8<#P`"3!W0[`*H#$-7GE8L3
MT``$/$\11:<?G[P(O`]`^?`@#1]"[99CCOSJ&F2/_?`I/*\"^-:O?D#V.SQ/
MQO.-#%]\^)EOGG[ZP]OR_#<!(0`"[%<]\6D.`/L+(`\"*#,`$,`1!+2=`?6'
MP`#>(H#`FT@"(H@_Y%&0?P6004`*L(41$H*#UOO@"%LQPM%-A!@HG*#K+#!"
MV4V$=A/I1@SSY[H+!,0`/OCA&7X(B>?=[W8*^5P"`7"`W3$QB$P<(O$*R,,E
M'J"(`3E`+K+HO"E*L(H(/.#G!IB!A#0`"@`HXP`%4#GE)<0`%H&$`:`@@,]]
MCGCO*R,D$L!&A9!@`)\CP#\@$3T^'8`$"2F``0`YD4$6,B$'6$'Q%++(SQG`
MD2&!I`@9\*0$,/(`F#3D`G='248*()20'`(`-M!)1BID@[C2HP(8B<8)`$`"
M`JF(&Q_S#XNT42%1&>`",,D!2-+J,<L#``.(^:0!*D0B273CYQK`3$@<@'&*
MDR8`'%#-`RSB2<1+Y@.Z"8HG12^9$.AF+9Y$D61&H)O*>!+EDIF`;@)0(>]+
M9@<<`H!B1H67OG3F`%JG`.5UDQZ);-WG*E!-`P0@>M%4*``LT-``_',`;)3H
M!:HY@`%Z#I$*B9Y$,5!1&LB3=:[+0$6WI!"*2%0#'/5H`*C03)1^;@,5G=\K
M;=K/BCH)GSR50$5/J!#B270$`/```+#WSP+T,B`.>)(M*?*!BE(BD;;\'`@J
MBHHG?2ZK``A!17GQ)#:"5005A08X^?FY#L0T(`$@ASG9"@!<(;)S37TJ`'RH
M$(M$KP05Q8=7=?DY$S14``7-ID4^=X*W5JZ8124L`$9PV%$]9K$`&&#Z))E7
M7^ZSK_93P6&!D$C,KL"Q`I!"626+`F;RB0`"T"DC%RO&S.YR`!"PG202B=0&
M5`Z3-%1(]Q!"/.(I]8[`?=)P3UA0D;I.D(2<Z!L14$XO'K>1T2V?*@DI@&-L
M$P`+L*TEDRO<@""`K,3['"X_!\KH!G<`P\6&Y`;(RC&2%[[F1>@`-TA#YB7W
M)`%)0&XQX+H!!J"VX;UH;E$GQQ;P\Y31A>PB)?FYW$IT`)A4JC,)D``6M)$B
MZ6,C=*.GX81P&`EM?%^(L1N]\KV/D`2(@>X`D-LU3@Z3Y:,(C$WZ`1K;EHWM
M;3$`2!L]!\;/(@LN<(9M2\@$S(^-&UQQ/:-;XB9CCHWA7;$"EKSA!'"BC;Y=
M\3"C^UD#)``7N5PH[S"YS]<F@!JY)%Y_:QL5!=ONC2*,"H2C)^$">`,`OOV<
M#Y$;X3<6P![?->IS,1D5(B//E\2C"!L_Y]1"R]$`E'L?1=9[X^@VVH&/#D@Q
M)>VZ(/?SC08H(TA<JF1+8SI]>-3FE$G,9`[#PWZ:;>.676V`+1(OO)P>\SF'
M#&J]$L^WDU9F0PW@N_?Y5J+4]#2QHZ?78B+;==SD-3<RZ=NH?FZ<TG:TL5&:
M['3R>AU,1*FW*\+H:8?ZU*U+ME!YK8],MDZB$\!QN@EY@()&U2(VIH"^=4R`
M`_BVF`!O(_*R"P`P@)J)4>DQ\29=VX+:F<$&&-6"N6QB!7"2C6Q<'QLQ3.5:
M*P!7;*2<R!W84`2$EY-?=5VEA?QB`?:8D[ZU\2493G`$8*^,.4]QR],758K`
M/+.89*6X??F]#29[UJLDMD+T^KWP)GO7?)ZN#8H7WD%GKM"O18`3BK?!,C)O
M(%"='^L62&.(W)(*&@">&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
J&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
`
end
--
John W. Buchanan Dynamic Graphics Project
Computer Systems Research Institute
(416) 978-6619 University of Toronto
juancho@toronto.CSNET
{allegra,cornell,decvax,ihnp4,linus,utzoo}!utdgp!juancho
Technical Details
Message-ID:
<5373@utcsri.UUCP>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!utcsri!buchananShow Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: arc1-ca.pugleaf.net!utzoo!utgpu!utcsri!buchanan From: buchanan@utcsri.UUCP Newsgroups: comp.sys.atari.st Subject: pascalii.prg version 2.01 Message-ID: <5373@utcsri.UUCP> Date: Wed, 9-Sep-87 14:22:07 EDT Article-I.D.: utcsri.5373 Posted: Wed Sep 9 14:22:07 1987 Date-Received: Thu, 10-Sep-87 05:54:29 EDT Reply-To: buchanan@utcsri.UUCP (John Buchanan) Distribution: world Organization: CSRI, University of Toronto Lines: 162