pascalii.prg version 2.01 (part 2)

Article View: comp.sys.atari.st

Article #28173

#28173

From: buchanan
Date: Wed, 09 Sep 1987 18:19

308 lines
19579 bytes

M#FC@%PC``)TZ'N]@!^:!'NK!'C+9NP#`MZ_[MP"0XW-K99("`*S@(/`@SS:K
M+;+Q#FI`)JXP!.[`0<U$VUC7_S0&``,"<0<`[`#P"F0""Y7Q#G90&1P4=2I"
M)I[W$[10&?S`#[,R@P!0"^^!`!Q0=?W`#TIS`'!@`+C]$[90&?S@/IM[`(^U
MA.Q8MH2H!;U#)CGD!OW`#[,2YP"0"S]X`&7W$PF9=OW@/KM9=?TP@E#[$[I0
M&?S`#[/BL#^Q"_IS0`>40./!#_RP_\C=__Q0&3)2&?9`"97Q#KGCKQ`*`,`P
M!"(83$[43.7C"O9!`]@@1_U/8P"`!<T'!.^@R3\1#-HB&_!`<3\A#-HB&^\`
M!_+U#F[P#FB`&^\`![#@!N^`!I,6`-_S$\-@0F1"#+CQ#G"@\^L1`#T_`<'`
M$B?F#C86!/`P$.7C"BDH`]@@!Q.0W,E@7EB@#K#@"N\@!Z/VW`!0#`X"#Q37
M0KCQ#G"@\^L1`#T_`<'`$B?F#C8V!/`P$,U$VUC7_S0&``/RI+!00U>D+;(!
M#_(,`,E0NGI@`%3P%?"JNB3MMS90*`!P1[XK%P:@C0!@2JI+`:#U#FH`9;H`
M9390*`"P#*6K!P6`#UF*&:N+&^\`!SJ_'@'0\Q,0#"QQ8NY@8TA@:P`0=:LK
M%P50G]:+&:L+9390*`#`#)LD!6[P#G`0(?Y@"]Q4&?S`#T2R#U)`)MX+`-&`
M&_"``OL-:A+@`OS0#W20`+(@!%<P#.@$:A+@`OS0#V$I"T)P!<1@"$0`#`46
M@Q,A3P)5&?Q`8P#@!8<'`-6`&_!@`OLM%R"]&I7!#^Y#A@TG`Q\`#$$`<0&@
M!1E%)M?P@P4``,Q=D&KG/M[:`ZHXK[?SM%V*4MHB&^\`!_+U#F[P#FB`&^\`
M![#@!N^`!I.FPF22#622#;=Y=&:*&^\`!SJ_'@'0\Q,0#"QQ8NY@8TA@:P"`
MC4>IBO-Z.T\;AU+@!N\`!V#@^`#P4AJ)FU9*`"30F@K9FU#[$]M`)B",B$#(
M#E^Q`-R(F[L)FD_;I0#`4^!A>&3B#62"43\A#D<.-*Z/&_!@`OM=&?S@/IL[
M`(IPI`TG`Q\`#$'0<N<*`.-`)D&,B&Y@#ZRYM*J(A&[0#^ZSFZ#YM%U:661B
M#J_5A;'VKMR(F[L)FD_;I0"`#HT+`.E`)G'V$^Z`Z67S$YGF`O!@`OM=&?S@
M/ILK`*RPM60K`Q\`#$'0<E$#`.]`)O``/(9`)/@@R#\1#\!C")CA!8<'`/*`
M&_!@`OLM`R[P#FZ@!"@V#(!08(3(W@`P#_!5NI%U=*>XNE!F`X4"`/70N`!@
M#V1R#V22#V22Y`"P#V1R3`#0#QL$#V3R\2X`#R;PI)H.`/Y`)O\P!.[`#_P`
MFD_;I4\!/(:`&5\PYW<6`*4;64=WBJL+939P9:CM`O!@`D^ZQP$P`"1B":L!
M/$=WBI@&&]MS/PG?8D9&&7OK`,!S=*>XNE!F`U?FFN!A>&2V9@<E9W*6_[=C
M"/N/W/U/8ZSD"D;VW`&0=W?F`)7!#_Q`)/=@`$;V`$'O>7?FJP$0`;@!#R?G
M!OS@/IOK^EM+MC+P`8`0!!"7#[1@9!)0&>_@_.-R+7<V`:4KD9B`NIBQNE=&
M`;1KNV[P#FS`&;HKNRE]9Q:P02*^;$8V\W>6`:4KD43P%0^`&:M;&1P4=:L+
M939P9<*I9&[P#LX_+C$$^N;V!>@F!054!6X0!F(0E_C[!G!0!F[)2NX+OV$@
MO_1KOW>9O_M;+_X+`G9+!$TI!$%`'(L.`!);J15;J!);J8!!^MCY.!;+2OE2
ME%59F""0!O#K!F\0EG2`!F5@5DZ)!F<)EV=).6Z9EV>I`I!``-AIJU*@`I!`
M``!@!$P0!$<P!=_Z`H_:J$]6!R,F!$%`!7CZ!9)APGZ0>`Z0%URA#[C@%P0`
M"YTZ'@`!#[C@%P0`"_^8P.#U#T`,/@`"`#`P1!\!5T7<^=-'@1\``'YLP`G0
M`\@^7WYNA(3AXF,07@#^R0$0Q!T`"1)@7(0#0A80*\)(FD2IDJ5+F#(!P$E@
MT\HP8D/$"2%ST8P?''YR.,EU$10N)&XF_N#Q[]_4JLIT^CJ9<F7+ES$O_@BP
M]9^_KP!`*1/Q)>+$%PFV`H`"%Y0C&MG@3""1+0JR?_S\Z!`K!4C'CWYV@$E)
MQ@\/K!/A?H'BIP<2/0/0Z26`65];KU0!A'('XX,2(&8N"O'CH^_5K*:YH@;[
M>0"MT7WGUI6H#Z]>OJG]`A9,V#!B/S^@8WUY6B^(MF]30P(@HK6,DKZ&\*3C
M\R4%&!``R$E`*\B588"2`F$*`((?((P=>_0%!I>?($*XL8\P?@@1X#[$^#&$
M@CH)(PX0921DAQ]$B+62!"Z\!$L0;UQD7Q%^&+'18\),%H`4?AR1HEAD]706
M4#/5!,05.8'7HED_I24443,.0TA22UUDB!](^)&$3L0T]EB"2B`I`P"2(!2`
M>``D$(Q%4L@!0DO[T#$$/!=)8%$`$@3CQQ)GLL@3CF@%19---*I95GDP[@BG
MCT#29Y]`X"FY7W]^-.&'$Y-!Z<<3A_H!A9-02DFEE5C:]AV"-`1`B91%H)3`
M,%AR20<2<*1W6G!^1#%I>./1>9ZH`F`7'%V>%@$F`,;QL%=??P4V6&&')29%
M?H^!-,5D_@CB!Q5^5.&'%7Y<X0<6?F3AAQ9^;(%50*6-FAHE-/C!A;<D_0/%
M@Q$&X(4?7?CAQ;5,Z/4/$GE<A(HA<''B`%R:4(/%(WY\,>)^/0A(C#ZXB`6+
M&P2[<9$]?H#1L!]AV*97":XF%Q9X!@`!``P_`%`Q6'1%M(\NM0(P`*XD1.*'
M&%B-?!J\\AJB[46KM?88,'Z,D;-.P+QVQD5\^%%9&3`#,&]U)0&CEP!PA2**
M'V:(]624"3UZ)0!2>`JJ6KH5?;1N[OZ0=-,H^'%&R[J\'*_1,NO6-&L?W.P'
M&I/]$W0:4@C(7TH"^*%&T:<XX'7;7<&%"05P76+#OGZL`1<7&OC!!K&:^-$&
MNW!9@HT?;F">FN9.>,'"%_OZ\`$(7SSQCD).0.."$$%0X40=3EC!-0`1.`')
M`%[,+DT0SA#Q3!.@@%#\#P=\]H\\?C#Q@@,L(%'[/_8$H0\`)K2`!&)0N(,8
M7*+80])++P#@A"[_^"("`"!\`$P0'5$?:+CVA#YZZ:=_0<4CK1N3!#-%^`85
MD%$$:10!><ICGA>>%[WI&<%Z`."#]KCG/7Z`KWK>,\)`"G*0A"Q$"&>`"RGD
MT*]K&6$Z$I@9`+C5,!&JX36Q81_$5F;"S&UN#/^2W]`*I0"H02U`\CN#7@(@
M0A*BH8:?PP;][$>Z1Y@.=:IC'31J=[L,."$(H9L=%3V6(02\($,*T,L1KA@Z
M*+YC(:W;HEY40,;>T<YV'K,5"]JH13CJY0*ZX]WLFA"$)13A"T/XPA2H(`4$
MZF%Y/K`5(!@H/2O\`Q\0=,0$^=&][Z4F?#G4AP@49@$XU"<%%XD?/L*ECX,]
M4F$`P$$B`1"(509BDR\AY=0<A9(GD("3W_F'/J@$!?)00`;IF8`@4I(W78+!
M%ZL4!"PE<$L`=+(^*KA(8V99M5JN9`*!2,DJ!\%$_*$."OR;HAV[^$4`A-%6
M/6BC&=$H3K5T42^UP:(7ULDT:#0C"]]X`C2*X`SC72=YAY3'*B/!R.F9`H(R
MF&0E+7A)>Z#P6J8XGS_(L4I)0!2$Y_N'(>)GCU5.8HFB:^(34W=&*:1QG`!`
M@-C,64X&Z.4*ZB1I2D]ZD7*JU%98E.<Z"="Z)F3A"T0H`A.*0(4B&,&0B+35
M*`KJ2%9`T`4*K>`%EXF7:[%"HD98)2FLFE%1K+(4W71B_O;5NF,4@1I&2`83
MBD&$8%`!J0*UE2N8^@]V0-`84;7D1<+W(M7]PQ4B>((,L"$8$6##.1;4A3^@
M$3]ZK/(5X:+':]1P$0^L$A:KC,4J92$$5U!OE;-8)2T*Y895UL*TJ[3%M>`A
MMG_0`Z.*%<<J;[%*7*PR%R!PP3_@(0<(C`,5+0!"75>IB]SNMK?B`*YPX;'*
M71@7'H#P+#N"N]M5\J(%;MCM9VW5B];20Z(86"4R;?4+X]8OI-Z4J4FA,06B
M&B$)0R5"[."ZRF3051X09$5>&;I7#+[$KX`5+&$G8%C$GJ\?V(B?/E9Y,5VN
M9$,=`D!I;;6,53)CE<U8I3/.QP]54+>CMGJ&>7O[6^K&%0#0&#$$DOOA54;#
MO-%=7HMM)8UKV:.UN4G(@86QRFG@^,`Z6"4U5EF-L(Y4=5AKW1"J(`4I%,$)
M5(#"?`&:5`"(@ZZHL%X`'+#?"UH5MOMP1OQ0L<IQY%`5JZ2HK<@1+E50<TK6
M],D_5J$C)03A9P`0PBK+L<PVDP4*N51%I2Z5D$P!X`GD:<F<5P4`85YDE>9H
MLY_^@69;G0,,GE@E.OJL6U5,`0@3T!@`5IF.9=H&+^?;APGHDC&6=.QC<5&&
M7G0`:[DT4P(O.&?A+*87+M1:&23X0JZ/@RL9:*.PVD#L*M5AY+&&<XLV;6DY
M(;!2"NAE"3%%\KV@080G`!()04B"$T#PSP0F4B%,Y0<D]1$`;'2YH?]2][D#
M,&^2J/M&+,E'S'3T)B#@&0GG%L"Y!V!O?+R92O_XCKH1GFA]LXW1+>''/B(P
MS%'S(``$*+B?Y'WQ`H!!$^<V0,$/OB:?2#P"V;1X``X`!P%TA!\+OC@"SHV`
M@N,["`Z?%[]E%"<7W+OD.-^WFWCTGA\IA3X2.'<"-*X?=8,!LQ=7P+D54/`+
MY2!F&T*E%<Z]@',SP-[Z('E*%(X/AN<[9A!W1S\F7O%S-P#L&X_YEIG^<GR<
M^P%@L,2Y(0!VL;M([1-/^;DC`/9/=P`(_>#'N27@R</[0_$7GP#@?#$X%1XN
M<8MSXL4I`$*L\(,?6$D\9A+;#W:<NP+-GMT@I9`$*'SA"DA(PENI'-<`<("N
M^H"@/M[=7R#*O0/G[@`IR741:9S;`U3-2]?T8&6,:H<[K7D0?2AP[@^<&P29
M+!3(+PZ"97H2`J!DRXY>;2L$P"42QHBD7^$16,.Z'QN&U8OY4S.)WY0?+I.H
MT`>D?Q$BG#L$II8<N'!KPP8VMB(`M_9]T00`G]8QX(,%P79N(@`'/R`"R=8K
MA<(`$IA]*4$"YS8"S88Z9`4-```)!*`0D+``50`%0Q`$[25(A$1?%Z<"=+5N
M`&`)O`<`F,01PJ5)"L-XGQ1*PC5*NE5*V84/J$0&Y[8"2\AINH1O$A`#:A$`
MGP$`5B!_^.<'T3<?%\$"Y\8"3IA[/'%KN;1+J?)+Z6$`0O`/X.!H6)-=^@`&
MDG!N+1""3=0Z)<@`_M`5!S`[N'=!$*0$DY1)L/1U17@A4@@`=H83I"0'9+`A
M77`4>7(1#D!*DQ:'T%"(I/1IH7813"2"X<14_6`&@*@/`F`#DP1+$!`1_6`/
MR[$KB*6*WP=*6`,$.-***'<1A3B+0M@/\!`@_4`/)!&,Q(<UPP@/KT$CFN@"
MOHB(,\$%=_(CR]B,+Y&(<*`#T3B)`,``_Q*,&7B,G]81O@@&I@",\G",A7@A
MM+@A;'`1,C",\N`G_7".S`@/\@@/\%B(W^&+OA0#Z=$2_F`/%'<18,`+\.AX
MXL.,\6B+/A&0N0@`H5<_J;$(V8-X;(`9$GD1%!E<_4"!MJ(%H0<-H?<I;M`/
M%UF2:``7B0`'PV@','01"@!$]E`H]I!##E62]:-8/H"1$F4#JLB*]F!LR!:+
M"L,`0"F4!':!B/%]S&@/XOB+)2F,S$@/Q?@K]9B,-4*-+=&*_`:-/?(CQWB+
M]L!OV/B5VLB-/.B-%V&(OAB.B`</Y-B-\L"4`2F.4:.0!S.*J,0"QWB/TP@/
M^R@/B281]L!H;I@W\P@&<U&4Q]B)&Z-;YS4ZW_1L=4!7;E"*`,`$@U@?&<(`
MC<$F#/"0T\$`<+&1PB4'>M$YV64-UZ('UR('UW*9J;&2X:('KX$3/;"&"4D]
MGTA24F29F$D$DQ0P`.``_V`-Q,D`_X`->@$'U\*:V>6:V06;V26;%T&;NF6;
M_K:6V/4/V363%Z&&GF4/YM6;(TA7_*6#U7,]&I"*18D7(+12$)!1>D`7(@`(
MO<D%H0@]C:17Z@E![;D]_%"(\"E$&3*?Z&,$]HF?(84Z^MDZ=$4'F`D"DZ07
M;W`MW'`M@'`M>'`M$CJ;<,!$6E29_#D]']I?$(0#PZDPQLD-X\,`<A``[Q,_
MWH!=]?$/>*`7'X"A&LJA'JJ2(=J@F[&?#>1()_J?UY-0`IJ<_\`-.52C+(JC
MUL&CV;6AV=6AV76D*YF?1-J?1\I7UP,#*[J-30I$4%J<4FHK($"E_V"E./JC
M(,JE$%JBCI2>8`H`*C!)7[1E8A,`#'`6#.!7W/$$%%A@O0)"SG<1;2`$O1E%
M!C"G1>J=F*F9`EJ(S<2-T"1-#(E-H:0P$'"<!)H`I5F1*J$7(_"<K?F:L0FD
M("697_"@4T2BD8H'%Y1#X&"CRLD'>N$!UP(.UT((U\(''`JDYMFETT.K#05$
MMUJ4=K.KO?JKP3JL<2JDYTFG.'I!3`H.0"0.-FJ<NFHK(?"LV06LV26L5TJL
M0@JK=(6L_96M.<2M4?JM`!"NV>6KXQJMYSJMK@JK?FBM\("9:C!)XT,!5*`?
M`&!M&8(XJ?$&1F!B7[0\U6$K"$L=![I2#K!2#!"?![@5$6`^J1$'5A`_\/"P
M\I"HZF$&F[0\H3(#&J,`W2D/U%.>0HID"@"I_6FGZUD?>MJ9</$&Q%"L-CL]
M[%"*`8`%.PL`'!"?&:(!*V4!U;92*52Q&8(!%HNQ<`&RC159<O`/&_(S9%).
M'.!=<"$'=PD`&B`'%;`A/6>V<F`!:HLGXW.V'?"V8+FT<N`!=*N-F:@P'!!9
M5X,!T@`,+9`$NY6RK&4K'#`-%K$[#(!JJ>$)UF"X))`&V]@"2E!7*<L.0I`*
M`$``F;NY*?6YD9"Y<&``+%N<GTNY%)"Y,U"4+\&Z+.I,<8NV:ELC;.NV[H$G
M1]=_F8L%B8`7#6$^@DH"3U`1GI@:;,`*F0L%OYL`P2L#PUN\%N&Q%Y&\I!L`
MIZL!`>-:U-.J7[!.B`,-]T6T'K"9$'"@%^("`0`!77L1,,"4]9&^Z\N.%T$!
M\`L!GUD>$/"03+F^AU<?FS0`,>$"`P`!?QNX@TL]*2L^H&0`<C"W[B$,"PP#
M#7RW>;N[`$`*"SRYE7NY\I"R\N"[>-$2`@`!@AI8A7I8O0(7UIM=<\F9)=P8
MV0O"S#O"[K"^)TRH%:C"_MG"RV/#]9'#*6Q@R*N\+GR_,JPQ&`#"K5N<V\C$
MK@L!A<(T,_L.`U"SL1JAF&D%8\H!34J<&O`/WD"<&,"&Q&D!_R`.Q$D!_T`.
MQ"D!_V`.Q/FIZ$"<QJD.3,H.>C$#;.JF6/H/6AJDKHID$A"TCF2=2`H`0""P
MG3E9X1D@V\BDUM"MI6HK,H"JT:FJU0FDVWM(NQF9W_NJQNI([H"9<'"T#M!Y
MV>4.JW4M\G`MWY4:=&`+B'H&M:RT_^`.K<5:NB4/8AM;Y93*0E1^K:7+NL7+
M$*M;L7P1<D`*P6RUZ(,"'.6]#CK*KH690G"T&7LVV44/-G8M^'`M^@`7LZP7
M`W#+MFR@KM5:-Z9;^/!CBF52U&K-7YJSV2.@N)JF`&`#?>RC68JNKEJMD3K.
M#05!4C!)OJ>*C5B-%V%G>*8"RZA+C=%,$%"&O@1,C59QEJ@?QD0,$:T/CMF;
MX&3(CX29>N">?@H"$:`$@!!#&`"_G@D$';-)?NJX%R$(7)!),"U*I&1*2'@1
MJ^8&?DH"4;")0&#1Y<$`C%8!%5=,F$C3#$#4,+T2%9!RC;HZ/"6^UBH/1&L'
M*#W`ZWO`@DNX]C#!%<P!M6O6"Z$E>:O6#JP!%QPD`(`""ZRX)3@`C9L`9V'"
M[U`0*+S#!J98[F`B!N#6M!O!AHV[13<$A@W!BVW8>)N[1B?7$OR=',P`EKL\
MC9W6WTG!:QW9BWV_(`P+E(L!7"")&`P!(.S9&&!X&J/:+JS2+!U#$@#"2`P$
MI[O$+@S$?.W7.FRHWZ-8R-?9%9RVB$W<:ZW8NBO7%@#%3LP`SLT`]7'5`8#%
M-8B95.">L72@8IW`^)"RHU3!CEW9C^39#@S:RTT?&@#>E_T"M?V>HJH+_>``
M4WS5YI1&LMJ?7-U0+]H8?]LQ-@87.`U$4KF-;KD\D65*\H!*Z]W9RBS60D"Y
M!E!,]``&W##!G2G6</`/IVL`W6D/NF1<XRRD^T/2V=%[V>4/X>(/C@B)E;V-
M*R[6YKVU&V(42('!E:A;_C!I_J"8*][B0=".`(`!*^[?%D&UM,*SJ2$(8@"T
M66RM^$"T`*#=(#`^'M#=A/O=1]C$&@#`6ZXP&/"Z7^Y,!PO>34P!SF3F/[@0
MX+WA,@`(;<[A&B,`<7ZZ&9<A$O#`M3L^>8[>DTT?.1Z_"``(\//:X#T^$*`E
MA'ZZ"`#>$6Y.?"X'%+#G>"X'&1#7ZJWFSZWITDW?,.GHG&N(2$OC=U:_Y70=
M&1*V&>(!8RL"]HT!)+W,B>QA`DK@L.0!YNTS%^$%M^ZW1QZXGHT`6O(^+UF<
MD35I%0Y_"H/K#_[KP-!,S.Y:?TL-P``#T23L(/!`[\/HQ\[1]%!.'N!=*Z7J
M0]ZT3XOG*\6T4EN<T.P/,K"]]-"]D&G?%H#?ZXJM40H.3`JO-RJO*""N_T"N
M=B.MURG(H3S26CVK^$ZFRXJF\DJ=;`BMY4KP`+"EZ6K-[*J>-EK&?'#&9JPP
M;*S&/]C&<QS'=OP/=<RLZK!&`"_PYGJM^AK*2#:?"=^?!-U?L!3H#"#6/4"Y
M"J!+I"2G-7^L%V2C8=SQ8,Z&V[K&)#_R<NRI*'_R>,Q)=?6B,3JCPJ7+MO("
M+8^O,%_P]EW(0^](4=Y0Y12U]0'.XGPMH)?BY&P+9R^?5>O..-9:_-!:_@#-
M_T`$]FW=UGKSZIGS+\KSE(L`0%^$0L]4QXOSGCH^#B#632S=YB>D"$]7<E#T
M(/\/=O#&_Z`-)<\-)S_&S`H.>K$"UZ(-UT(DV64'K\G)V>4'AZ]+]DV:3QZI
M]0SNXPY+&(`7L$0!-@T`=0`&O9[J6`[(JGA+@"P#JE#F18G\=*#\:9ZEGJT`
MO47LVPD`.J#[S43D$G`%1PWG(-],Y]']WW_\C2\!7%#^S<^8Z/_]]&[OUIKQ
MX</T#8_&\AH]]2KQ`Y^O!:^*,N!9AJ"/GH4(]KUM_6K[P3FF:`SZF2_Z+_'Q
M-RKR:.K&S&H.>I$&_7RE<`KV5;R-)%W/$$2IB$&<'O#%?"O&>G%$V96A5>K/
M@`RDNO___Z!,(/__`>__GF4(^NA9B&#?X8N>F)FG`CKNHZ'[O`_RO.^IO`_?
M&04&84_2.`M!>2J@XZX7!:#[O`_RO.^IO`_?&:4!84_2.`M!>2J@XZX7"Z#[
MO`_RO.^IO`_?$D4-84_2.`M!>2J@XZX7T`WFO`_RO.^IO`_?$N4(81_KF`D%
M%:KD%Z$(NF#U7!L$,00!M0P7BL`,A8("&`O+WWR$XBQ1F"#N\YX:BL`,O5GB
M8[\\F'G/B*&QY@3+KNS*KGQ@*<^]GRRB^3T].`N@%=J9>A&3Z5S+!^8$O5GB
M8P_(F,D&C%R<6/FBR9C>%X$!JOP2TP$!TR$X17E@R,#TH#_RHG^C^AZE(D^F
MY*`71)-=&5JE_@S(`"WS9^3WMH^9]XP83,H->F$&_7RE<`KV)&[-.`M!(E"A
M":L7!0"U<I\A%\NSNL`/2M#W)%WV*'H]2*#=45V4"JBIUY1RH;KV1P@7>Y#W
M%;NQ1=A:^%#+J68.B0_EF(D$VAW51:F`FGI-*1>J:W^$<+$'>5^QMC(`=>_.
MM9QJA)#XULH&F"D)C%R<6/FBR9C>%X$!JOP2TP$!TR$X19EJ_D#&Q\GY"0;U
MGA^EH,^LWJ`79(#)_R"=*K&J(-K)_\`&X<(&I(YGU*9;;-#[J*98HK"];"#O
MO%G%Q4G2]0Q!]XP83,H->L'-3=JC5PJG8$_BUHS(=ZJDB''RR,FLS&DK?[.:
MJ3J=JPJBG2SOO#G/)%W/$$0&8VH"7ZPP)"#&Q"D"'\\^:4R<'M#T2!O'>G&2
M3=JC5PJG_0_F__\/R@3R_Q_P_N]9AJ"/GH4(]LT!\%^DBZ^>N76P4@`(P<7\
M]9%;96XK"D$KM$)$J3$*VB`"'R`#KU24N76P6PL,@?#FLP__1>H/5H#O6^8/
M=!`P?NH/=@#3L(`0@!!A#-`#"`$(_H`%&;C30.`/6/`O_J`%`>,/6.`/5D`2
M_J`%!^,/5H!*)$`2_J`%XW#4+N`/6C"8VYAV_F`.,=#46:$%8"`-\J>T_H`%
M0W0MZ(`9Z(`9C(`9).D/OF8K1#2;%E3%&`?_D<H#"Z^<R&"Q&IL0JHSRUX(,
MUW*2_T`%U\(#)IL(%C3/AKSXZFD=>B\*O5GB8_\//+#P<(P,):\,)\\,3.H,
M>B',HZ'**'\MR'`M)_D/5'`M/&"RB6!!E#_*BZ^>>A$!>F\"O5GB8[_XZJD7
M#Z#W5.RJ)3[V_\`#"Z^<5`!$5V@K$*"Q`"``JHSRUX(,UW*2_T`%U\(#)IL(
M%D3BH[SXZJD7&=#NE-";)3[VBZ^>>H$&5B^C0>"`BJ4&O5GB8^\6"Z^<*MZ9
M,0IA[MMR\:/BG>F6,-Z9<H`!$%:_<#``\:/BG9DQ4:\Q+F4K%X#W$B5R.AZC
M$$:)>D&U/"O?I4SBUJP#"Z^<R'#RLF8K)Z"Q`"``JHSRUX(,UW*2_T`%U\(#
M)IL(%C3/AKSXZJD7:@#-_3`H)#[*BZ^>>N&T/"O?6M";)5[[C12,"_^I4UZ4
M_?#.MN($UP*160&1)1G.40G0H:RN=+KXZNDN+951JN#DBD^]ZOFB'2,$IY!1
M]$+BH[SXZKD5"B$$IY!19""B^;U%%[05`1``0G`*&64$(IK?M;,/Z%"K'I-G
MIY!1*!`@_B`:MJ('&IL0JHSRF($.H8<.GH<.+8,.)IL(%A12_5JDP5BK+B=<
M<00`:W`M$)D5$%F2X1R5`/T%_5JDP5BK`Q`_<00`:W`M$)D5$%F2X1R5`/T%
M(_J'\,:9Q9F_9^$`HLFBHUH^5CN;+J!@05_%`5!/_5JD_<!L!7T]R#"F1E"7
M"@,$_H`/Q$D$$T&<0O!XXZ,#5U_H_N`/Q(D#!4&<-O`/+J<P-/`/!$"<,O`/
M(I<A,'#UA?X/"$"<NJ4`Q,D"_\``Q*D"_^``Q(D"_P`!Q.D#_R`!Q,D5%&"C
M)-`/6@\`&8"1$1EZK%R2S`:B`=.*"@SR_]\/6EX?_]\//HBT_Y]X^N@*_>`/
ML`0"_^\/W`'F_^\/`D#-,L4#:>1PD.L$#O<)G.`'`,`"1X`'`F`'!7`$#D<(
M@I`$#G<+Y/`"&_`#!*`7!>`$38`"P`!.4D`$4;`,N3P[((`0`%`(`1`&"6$+
M$F`K`!`&"0$,17,+>6\KU%OQ+@`7B&`#>"``=E``2>!PMT`.+Q"V!*`7!>`$
M30!.4D`$4;`,NX5100`""`$`A,`?#@`""`$`A(`-8&``((`0`$`(ZQ`&":$$
M89`0:``"'2(`8,`#((`0`$`(F@`&!@`""`$`A$`*89`0+@`""`$`A"`+89`0
M.``"'2(`87`1Z!`&":$#(-`A"@`&#O`""``""`$`A;``89`0!H`Z+X``((`0
M`%`(#!`&"<$`J","#F`&$/`""``""`$`A8`#87`1^H`Z8&`%L(0`2'`.```,
M#)`A7<$/9X``((`0`%`(50`&$J`$$;`&"``""`$`A2`"8&``((`0`%`(+1`&
M%X$,3/`-`T`K",``&=(5_&`&7K`O=)``$I`!`A`$`/`'2'`.(``,87`1NL`$
MWS``!!`%RE!787`1JO`""``""`$`A5`$87`1VT$>)F`K`'`"$(`$Q_`(PV`&
M#L``0Y`09X``2B``9D``6@(&"$`'"7<`!J`0,/`"`A`&%X$')+"C1W`(%J$`
M9D`-86`&((`0`%`(3A`&4(`Z84``Q,((+X``,F`K)!`&4H`Z='``=L`!(H``
MYI`*`J`0#^!!,,``"J$#92``7D"%YP`"@!`&,L`$WX!Q63`$4:`,8CP[,["X
M!'`+_/`""``""`$`A,`/82``J+,6$H`!9T``8:``8&!P'S`[$F`KPGH.@``(
M,'!U`'`+_"`%:W,+_``""`$`M^`/#\D$WQ``1%0'-^T/%S$(!G`1@\`"-ZT-
M-RT.-ZT.0E`'<P`"92`'<O`&9D$&9"`'93`'<P`"92`'<O`&*P$"83`&8U`&
M<S`':>`&9P`"+$$'=%`&;0`'=``"=/`&($`&:6`':4`&90`"8I`'(*`'92`'
M'6(%8<`&=5`&(/`&=4`'(/`&9@`"<A`&;G`&$9($;D`'97`&9:`E;V`'94"V
M;/`&=P``6S`#7;`%`-`%6[`E8O`&<D`'(-`%`%`$<B`';Z`E:>`&Y`8`0Q`&
M;,`&94`&("`&>0`">R$%3S`$14`$3%8$(```1E`%3C`$5)`$3S!N(```?"1N
M(``%4O`$1Y`U30``84`'(,`&:>`&90`"`!`&=``"+`@">%H';K`&;O`&=^`&
M"]BOD7KY#:4737#ZJ7\MK#^=0*K[_]^FO?___Z!,GOK_`:^/GK51KQ_[(S[(
M9T3S=`4#%V3U`="^VYA#,E`H:YI=,'`M,'`M,'`M,)!1;!`_[``'9!`_[\ZL
MP)!#^,``"I,`IW011.[.XV"+`:!HP!`#*5=,^``&X-!R\4,-K24#&@L`"Z#*
M$9]=P'`M9,`NUT(#)IL(_+"][!#[(^ZJ)3[V?P47BB`+\>,*30L7BH`*3(H,
M>F$&&IL0JHSRUX(,R7<ML)#S!:J2=Z];K@`7BH`*LT_2.``7BB`+\4-K2GX1
MBH`*&'LM)_D//#!$&>4&X<(&NKZ-<%`&\8,#A8(`+1<_.-!:.(#.UX(.UX(,
MUW*2_T`%U\(#)IL(_/"BIJ0#>$9MNJ4#<*$(J,!#)JL(J-";)3[V_\`#%V3.
MZ'PMZ'`MR'`M)_D/5'`M/&"RB6!!(=6OD8K(X0-$;J`7"G#ZJ7\MK#^=KO\/
ML,^2N@4'I(YG%VLK1"3?TA`_;M!:B+P(""NIJ:$(J*!"BJ`+M0P7BL`,M0P7
MB@`/V[OA^A#T(=6OD6H'I>D!\:/B.J[KYH3W$B6ODI==WG`M@I"JJP_07]"O
M1;KXZ@G3^0NHHEF4HUH^<($(Z$#=YI-B7_`-BSL`*-`ZJ-,:+X``2-`A!``"
M"`$`B(`+,P`,%V$*2J`$:V,*2&`&"#""^_("#T`7+X``)(`0&8P(8>`"(H`0
M&<P+86`"14,*A*`7U%OQ+J`$:V,*6'`&!(`Z.0`,<($(-H!100`!&7`&!$`!
MP``&44X[^5T[_>`.W3J/R:D5MD(#I1%Z^A!ZKUR2I0RB`=,/^A#[([ZOX80Z
M(_`-%Y$+$C`"WW`1N>``(_`-%Y$+"C`"WW`1N6``(S"]N(`,%X$+_C`"TXL+
MX'`1N2``K?$""#`#P'`1N(`,VX$0"@`,%C$`2``,((`0&<P.(H`0`(`+RA`-
MP``!&(`$@"`#P``!&(`$@"`#P``!&(`$@"`#U7YU`(`+R,``&@,'9F``,F`K
M`0`&!"`#M@(`,Q`,%X$+F6@K`(`+*FXKR.`$C%H'J,,#'S`"WW`1N6`"(_`-
M%Y$+'C`"WW`1N2`"(_`-%Y$+Z_T%(Y`,%Y$+%J`#'S`#10```C`#7[`0,_`%
MYB0#G_`""#`#:Y,+T<0`2F``9X`"(+`VN>`!.%``Y4`$T$`,[;4&1`X"T+`V
MN?".@``#(``-:Y,+,``#@!`%S?`/*U_8M@(`N6`!,&`K<^`$0J`$7P`&+J`#
M5P<`N,`,2%`,(+`VN6`"T5`,T5`,[;4&1`X"V[$VN?".@``#(+`=:Y,+[P@(
M4=`,_\!L=8`Z,_`-%Y$+;`0-,'!U`)`+;%0'J#,#WW`1N3!'T``#5P<`N3!'
M=8`Z,_`-%Y$+,C`#WW`1N0`#K8,Z=!%L,I`:N2`#-)`:N0`#K8,Z,_`-%Y$+
M-C`#WW`1N4`#K8,Z=!%L,I`:N6`#-)`:N4`#K8,Z,_`-%Y$++M`Z,'!U`)`+
M+C`[J-,^4H"?M:_?0U!!(I`:ID`%*<L/"?S!1QR$@##-D/E@0>`%Y$V/U+,2
MTF`1@!"%,7(G-R[7.4X]!SZ3#68/Q:[;]2$$45"(1<!NKB`F!)D0G*#0*PT;
M%Z$(]/-@0>`%Y$V/U+,2TF`1@!"%,5(4J"W7.4X]!SZ3BUD?%`T#$C!-@$`_
M#Q8$7D#>]$@]*R$-%@$(41@C=W+C<IWCU'/@,]E@]O"2_]`P"8$`.:3EVU@$
M[$8`8J*++APN^+`2TF`1@!"%,6(3,93CCS1I^``&VF#^]0$#$O!I;Z[0*PT;
M%T$'OA<N^&!*]O`%Y$V/C[02TF`1@!"%,5(4J"W7-K#1"O;1R"\/N80/Y$$-
M%@$(:)C1[NO.DX8/8"`*'^V8A8(#X8(/IF0/7T#>]/A(*R$-%@$(41@C18':
M<IWCCS1I^.#C[FQ*]M`A_W`OE&_-Y7B$:I]=$27?R+"]^!#[(SXZ_5JD[HN^
M`)!U85*(17`](B`F!.DATP';VXAJ\DTO%T_2'UR4O`@`TPR9#Q8$7O#BAD@]
MSB@4/(?:<IWCU'/@,^D,]%/L,0F')N(,]",'!,#9,`Z9SB@49?D>-QXD?II#
M^,``"D,`IW016A#1^.",0A$&-M$&%T$"X:+EVYA+^-"/:;B&X*!H\3"0`%`H
M?>O.^NC._?B/WA,/`_F&CX1IKCP:GQ$`=@`<S]<=.^K"H_$9`:`%P/%\(B`#
M'T#HKCP:GQ$`/``<SR<",O`!A.[*H_$9`1#NML)3SR<",O`!A.[*H_$9"@$<
MSR<",O`!A.[*HU&%X@`<SR<",O`!A*Y@A>().42$U",'`K`A7O#BF`I^`"``
M<J`#;WOC<@W11<F+XE>%A("%]*>%^\>%*04'`\#3[FQ*]O`%+VZ(C^2,'D.%
MS.<#6$A_6O@!Q``$.!XN^#!I^``&-?)(IF0/7B`,N1G[(Q[0X52"!2!<`["'
M_W`!>_@/!U"""+"'"K&'K%,%3*`#08`%3Z`#08`%2:`#4&!2.L`$@Z0#0_`$
M3J`#2)`/!S``%Z$+.!`&%T$-G[82M9``5M`K5Q`,:_$"",`$^7```W`1NH`#
MLX,$^7```W`1NH`#87`1KO!I*U$+"6`%O6(%P;`6+X``3)`/!S``%Z$+.#`[
M2)`/!S``%Z$+.!`&%X$(G[82M9``5M`K51`,:_$"",`$^7```W`1NH`#LX,$
M^7```W`1NH`#82`&G[82M9``5M`K4Q`,:_$"",`$^7```W`1NH`#LX,$^7``
M`W`1NH`#8>`#G[82M9``5M`K4A`,:_$"",`$^7```W`1NH`#LX,$^7```W`1
MNH`#8:`!G[82M9``5M`K5!`,:_$"",`$^7```W`1NH`#LS,"WW`1ND`%J-,:
M#"!<_G`&T/T%D_5,$)`!8,!W'S`!P'`1NG`#(H`0`*`+-[`1,O`!?^H69Q#5
M7V!G:F`!%Z(!8%#1'S`!P7`1NG`#)(`0`*`+-Q"C-G$&7(`$^8``!'`1NL`$
M1^!PN8`#94`"-,"`0K`&!F`!A:$,B#%H0#`%0N!)%@`,4:`,B`$#`2`""`$`
MN8`#8``"E3(%0K`&!F`!R:8,B$$#*^2"0K`2%A`,4:`,B$$""`$`N8`#3)`/
M"$``%Z$+3`!#"K`10^!PD>`+))`$+W!U`*`+LE,'2)`/*W<1NH`%J.,='T`#
M#"@((!0%RH`8XP`$E2(`0@``!V`.0;`A8P`!!7`/Z?$"",`$^;!R%Z$+6#`[
M12,)YN=PB(`.4A`&;G`&90`"92`'<O`&6D(&=2`':>`&9P`"<U`&=-`";P`'
M92`'84`':?`&J(0$^1``'W`1NH`%J.,='T`#'V`#`#`.0#`%0P!"4;`,B&$+
M0>`&LF`#`H`#`B``1```!V`.0P`+0S`&I)``]R`3[7$&!"`%0@`&YO`"",`$
M^1``'W`1NH`%LX,$^7```W`1NH`%J-,:XP`$0W`/%U$$\7`1XH`$G[82OY`$
M5M`K5Q`,+J`$:_$"",`$^7```W`1NH`%LX,$^7```W`1NH`%J-,:XP`$0W`/
M%U$$\7`1XH`$G[82OY`$5M`K5A`,+J`$:_$"",`$^7```W`1NH`%LX,$^7``
M`W`1NH`%J-,:XP`$0W`/%U$$\7`1XH`$GR8#&?!`PO`%5G`8^'`%P>`"2K`6
M+X``3)`/!S``%Z$+6#`[2)`/!S``%Z$+6(`ZK3$.0#`$]W`111`/%R$.2/!I
M,O`!#R0,66`%AX$/5Q`,+J`$:_$"",`$^7```W`1NH`%LX,$^;!R%Z$+6(`Z
MK3$.1WT#%U$I`B`$`'``YA`$&S(&"%``-Y`>.`$&`D`>3W`/CR8(+X``3)`/
M*W<1NH`%LX,$^3``!W`1NH`%J-,:XP`$="$#%U`I`B`$`'``YA`$&S(&"%``
M_FB%)2(`Y.$#@O`"",`$^3``!W`1NH`%LX,$^3```W`1NH`%J.,=#`@$XQ`$
M0W`/Z2$#'S`(6>`<Q8$`3)`/`S``%Z$+6#`[2)`/`S``%Z$+6(`ZWL&`0#`.
M03`$]Y`>,O`!PY`%SE$<",`$^3```W`1NH`%LX,$^3```W`1NH`%J.,=#`@$
MXQ`$0W`/Z2$#'_!`PY`%SH$/+X``3)`/`S``%Z$+6#`[0G!U`*`+<``&!@`%
M#J<+<"`$:V,*2H`ZK7$&"!!L:D``W[?>PN9%"8`$^6``"@$`NG#Y2<0$^6``
M"@$`NB`',`0%X)<02G!U`*`+<("RT@T``F`&"C`!4I(0A>(-TMVY,60-$X`0
M`Y`0A<(,TIT09J``$X`0`I`0A<(+TFTR,40+$X`0!)`0A2)H2G4$Z6!.0K`!
M4:`,B"$$X<<`&D,`96`&#!!-.F`R9N`%)J`$*T$'`Q`.@2`!&\``"@$&94``
M)\@^4:`,NW4$#F<):$`'!2`+FW`%RH`82B`$:T`#1^!PE@`($#`#(*"(5P<`
MN@`'9N``TFTR9V`!TKT09R#%/B#="W$&."#=)F,&`@`'!-")`0`&*O!I*W$$
MZ6!.%*`!#"``[%,&#L``"C$*9X``%B`,6>,<[*`$5P<`N@`'>*8+8$`'2A!^
M9H`#80`"2G!U`*`+<'`&!C`!"($`"8$Z,&`K"5`TED`O#H<(TC`!4I(0(X`0
M!5$0`C`#?-`5,U4'#`!*`I`08F``2@!*"G`&NL``X9<09P`!#`!*`I`09X``
M#`!*"9`09J``2G!U`*`+<&`&"'`VH,LT=3`!""$`"5&@2.#S>I%3/H`2/'!%
MX$07+*T&&C`#?-`5*<4`PC4/L?$/9%`TEG`*3N!PB"`-C#X[$R`E"0&Z`E"@
M2.#S>I%.00!.=,'2:N"T`!`&*>$$K8$Z16,)R.`$#H<(TL#HO\\)WU4'0_`$
M3J`#3#!(.A`$6)`$.A`$6/`$.N`$5<`$.@`%)J4#!8``!V``!7#.84`&(&`&
M:<`&9>`&8=`&90`":>`&("`%93`'94`'(/`&6B(%97`'<I`&=!`A3G8%K%=4
M.@`"9)`&<[`&()`&<P`"=R`':4`'9=`"<"`';T`'93`&=%`&3&$$:<`&90`"
M;O`&=``"9O`&=>`&]($Z=/$""`!^"2'="7$&#"#=`"``9V``TETE9M"WH(0`
M:V`!#*`Q!E`&U!9'HS8#?-`5,Q4$9%4'J$,#'P`&!(`ZY&$#'Y"Q"?$&U`\"
M89`0ZC`%0@`&@#D`89`0X-`Z2)`//_`'%Y$)1(`Z<M``89`0SB`'"A`&"8$,
M+X``3)`//_`'%Y$)?%\'J",'#!`&"4$+K8,Z-/`!8$``J$,>(O`!>+`Q5`@,
ML!`(9Z`$2A`(:D``1!`(>!``=@``0^!PF4`(S`<'"B`+@#`&$UX`T``(8&`/
M""$+@%`&!"`)@+``QB`.B'`%S>!:'@0#$W`B`R`"!F`&U@`&-H`Z-/`!8$``

MJ$,>,O`!>*"(0:`&!"!?>!``=@``0^!PF4`(G@0#`0`(%J$`3X($&K,[,#`!
-- 

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: <5372@utcsri.UUCP>

Path: arc1-ca.pugleaf.net!utzoo!utgpu!utcsri!buchanan

Show 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 (part 2)
Message-ID: <5372@utcsri.UUCP>
Date: Wed, 9-Sep-87 14:19:14 EDT
Article-I.D.: utcsri.5372
Posted: Wed Sep  9 14:19:14 1987
Date-Received: Thu, 10-Sep-87 05:55:12 EDT
Reply-To: buchanan@utcsri.UUCP (John Buchanan)
Distribution: world
Organization: CSRI, University of Toronto
Lines: 308