Article View: comp.lang.oberon
Article #811Coroutines for Oberon V4 (long)
From: Claudio Nieder
Date: Sun, 21 Jan 1996 00:23
Date: Sun, 21 Jan 1996 00:23
203 lines
15161 bytes
15161 bytes
Hi, since I posted my Coroutines module I discovered, that the problem I observed (strange traps) was caused by the write to the log in a procedure called by the handler in SortBasics. So it looks like Coroutines works better than expected. Nevertheless i'm still very interested in reports on how good/bad Coroutines behaves (-> claudio@dial.eunet.ch). I have also received from Guenter Dotzel the necessary modification for using Coroutines on AXP. Thank you Guenter! JR sent me a newer version of SortPlus, which additionally implements Quicksort and Heapsort. AsciiCoder.DecodeFiles % Coroutines.Mod SortBasics.Mod SortPlus.Mod ~ ?NBh7`C603hDc[KYKHaK<QY;WjHM[;=ZKYc7<V1`06P6P1l1g93<P1h1H0O`4`0>P<P1l1=H0DPC =_^U>XHMiD7[K0F0@6@1nP90l7H0611`7d2D0b060A57hDc[KY3VFG>eaj6PTP1@Q`1nPFP1@I@1 H20g90H0:46`7L8L06310916P0A06`7d5H0Z0:`0\0PjP1l1=80H0R0l1O018JUP=mY4]Z<]XPLX _E^_]^d=]^]\cMWP4UZ4TZE^_<VdD]eU]iTV\4Te5^T=\d]\T5TSe]_DV`D]Qe]idVPDUY\Q=4UZ \Q9TZX=]c5T]m]T]^\]\P<]]5^\]\]]\^U^c5TSm]bm=PP<\c5T[e]_m^^5TVE^_]]P\Y_U\eIHK Y<M983:KY;JOKM?;J1IJY;8CkL1a`>FdVFgFf6V@bFFhFFgBfbjFjbB@VFjl^QM^P4^bm]WE^Q]] UU\P<]^5TQ5Tg=\iUUPl^X=]S5]PL^Xm]eU]T5T]=\[]\P<]d5TQU\Q5^d=\RU]U5Tdm]=<QT=]V e\UE^Ue]P4^\=\de\_E^]M^PD\i5TZ]^cU^P<\Pd\Um^PL\X=\^m\UM^P<]^5TSm]^M^d=\^U^PT \Ue\Ye]YU^Ym]^M^^4TC]\U5Td5]U5Tc]\SU^Ym]^5T]=\bM]UU\PLX8=X>mX5eU=<Q=<QD5]UE^ U5TYM^Pl]^]\PD^UM^dE^YM\d==l^X==4^bm]S]\T]^b]\cUUPT^X=\d5Tim]e5TeM^U5Tdm]PL\ b]\QU^U5T`E^_ai>gb2bdjF@jdRNEX:eW>dR>eYbB@f`4Rf`Jgb2BjnV_E\U=_^4T9e\PT^X]\i5 TQU]\m]S=\d]\PL^`=\S]\Pl]^5Td5=19J;KHQ;8Y;J;KNffj>Gj2RcM^eE^UUUPT^X=<>ggffb2 bcbfg:f`bF@Jg`:gd6Fabfbf`42ggVFgBgiT^_5Td5]YM>W;L339KMUKJMkI19MAKI1IIM;MCKIU KI19MCKK;;8Ycd0HJWCgFfbBfbBFG2bTJVim]e9IO[K?9M1YIO;KIkK_;8Y;JCSb]^\]\\\Q9T^X ]\Pl\QE^R=\W]\PL\_U]\]\SU^_E^P\]Q=_PD^UM\\=\Y]]PT^X]<W3bB@FFkFFgT^Xm=HNOScU^ YU]\5TX=\f]<WkKKS\m]S9KKH2]KHUKJ`i2BhnfdjVYe]W54OcdBGGf`4fP?e]PT>;cV6faVFgBg g>Gd2BjRfb:WP<=6Fg2b`BFbVFjVfg<\\5Tb]\cYL`gdUPTZX]\PL>Oc`Nfb<\b]\P\^c9I1IHW; 8W;M3kHG;8=kKUK3CHH19LU34TX=\c5TYU^c]\\e\PT^_5TR]\Pl]^11QQAG2bWBGdFVg=]c]\PL ^_QS5]UM\[5TSm]T]\Pl^YU]\5TSm]]5^\=\Ye]P\Q9<\Rm]eU^P<]\U]Um\QU]PL^d=<2Bhn6FF i2Bk6FfFgb>GGf`4fPDIJ\]_QUiM3kLFgiF6O[K11BfdJFcPd5T`U]Q1KSQU^PT\Ye<0W;MNfb>G @nFc2bdBgi2BbFFkFFfnFhffbjFjjb6V`TBG@>Gdl^UU\PL^_QcU^b=\^m\U5TUe\UM\dM^Pl]^5 4hC5KIUkKM;8WKNW;M;KKI98_3l^U5Tc]^c5^UM\d]\T5TQI3CHH115;K;KK1iMC;MA;8?KHU3L< PY1Cj9]KI1YIC;N;;I1IJYCgnfk2BcnVPT^XaYNdT2bW:6dUP<Xc5T95TTm=8J3S=<QQM\S]\cAj nVdIInFjRfb4T`U=`fTUP<YPT<@iFf`bFfVG@^FgnVP<]V5TdIJ0HJWci<]\98[kL3[HIKI1iKM3 ;KKMI3CP9e]PT>nFiVGF2Bj<=Vfi2bbRGhFfaBgbDW=<Q=HC3kHCS_AMf`4V@ZRfb2bV88OZH;31 9IOKIW;8MKI]KIU;8QKIU[IO[LK;8?KH00Vfg44T]U5T_]^dM^YU\U5T_e\PT^XI3CH2OZH;[LdU <m]_5^P<\^U\PT^X]\b]\Vm]b]<9kK;3O;M19J88YkKVFg>GhFfa4Td5=1iL6fahMAKIM;89KI7K J9KJMkIKH2ChMAKJ7S]]\]m]b=_PL^`QPPdm=5S]=\b13C@d]P\^c]\^4TD5]eM^PT^XAbL^QE<C [K?;8O[IPW1\Q9<QSm]\U=l=1IJW;8M3MKI;3I983[K0WSdIK;ScIMWKJMkI1iB;[LMKII[;?j@; [K3[HIKI9;87KHM;85KI1I3CH2UKIKkK]KI9;;1IK3KN5KI1II]KIMCd6Fk0XLffg03kL^dbPPT\ _]<Mk9YcbRGhnFiBG@NdQFFg0MI3CH2KH2WjAC:;A:DeI3C@Z`c022@j`f885KI1iH3;KIKI9;8_ ;J;SU5_UM\eU^YiI6F@>fgfff6FgBFG2bTBG@B7M;8WkH3[KWK3CH2Y;J;cihHT^_iL;KII98C[I 11UC@6Fi8LOKJ\<l]Yad@j`gf6AKIHHUKIWScm]P<]d5TS=<ff`:W=<Q9`d>WQE^U=\P<\c5TY1h EAKIMcb0``4^biH8;19M44P`1;3`iT>B7KP`E^Ye^QU^U54P_e<<=2Gi0<\^Ag4T]m]b]<Y34TeI M3;K1iKMKIM983ZK9;8C[IVFj2Bhnfd0P=`k:ggjfc2biVFbF6=3;;8W3bB@B7N60b6Pg=]\AgnF j<]^M>88`iPP<\dIHI;KMI3C0:WV1_KI19IC3FF@BGdhI0>6`g@dF6_KI661YKO;M88Y3KKHC[KK `4FFlFfa`g8M:gb6FbbB@d=:gbFFg6Fa`dBGF2bkR6@iFFjFGijF@Bgg0@@B7X;KP=H2CZK>f`>g b2blnfj:G@>fgf64TdE^Q5^cUUPl^X==\\h]<XK`aD><=;;;19MhI0>V\1\Q9<Qba`VFg>G@Bfd> 7T\\0>dg:7`iL\_e]d=]^]^UM^PhK:V\=]Ue>I98<<V71IHU30\\=`f6fd44:74TIm]e5Tc5]_]> T>;[KF719MAC@>dg0X;UJIWKIY;87kK0YkK1YL;KIPPT>f0?KHU[H00bB@6FgXL>7>40\1CH36df Vfc6FMf`4V@Z88WKHKKI1IHWci6fdBF@Jfg:G@>eSVTQe]T9BQ:83;LQ;KCKIW3B71I@KKJ?CG2B QFGj<YP@g`ejfgTUP<]V9MFf6H@K31iB;[L04TU1<\^5T7MXU1BF@Jg`0bB@6fiT^X98[ZKC;N1i B;[L0dU=`TJF@V69kKd=bB@Vgg8J3[MPg=\YU^Pd\_a`2BcFGjFGiFVb9K3kL;;8WCh2gg:WYe]W IJY[;\1IJHYKIU;8C;MN7BfdL\_e^UE^UU\\8MAKHT^X]<QSR1667KH[kL;;85KN1iMUKJYKJMkI B7Y3IjK?;;1iM`6V`bR707kK9SS=<@c:gg8MASXYK9;K;[L1Ag22LZ_E^dEXQM^YM\P\]_U<ICGf `4fP15^QE^d5TVE>03[HO[M;;8KKIMcdnFgFFb2Bh:7hLI98YSYE^P\]Ym\XU^PD\U5T_U>:gijB @>eg2Bhbfb6fiFF@\\=<QS=\b]\V]^\U]Pl>;3V6HK`i2bkRfd>6[kL;cQn6`b889jKMk92BbnF@ BWY9;1iMVFf4Tim=KH2AKHXMCKI_KIUkL1iMC;M2bjjfi6FkFFb2BcVFfFfi2bg2gbjF@FFj>FGf `4fP9e<cSPL<McdBfbjFjd\i5T`E>PPl^YQ3m=0bR`U]U1WKIM;I1IC3KJI;8YkKKH2KH2ChHIKH [;ICkK1:ICKHI[;;KMMKIY[;7;JChKUK2EkK;[L?[;W;MUKH[[H;;@3;K7KHYKII[;7;JKH2CH3> gg2bkFF@<<\]`E^_e>BGdVVP\=08E4T]m]T==CkH3;MCkK>G@JfgH@a:D1iM;[L;;8Q[LJgdBfbB F@:flf`4f`4V`SFgbjFjF69jKY[N;;K19?S9<Q9<Ui<MY<[Y<_9@7kKK;L[kL;[L]KIMiHOKKmI3 CH3BUQe][5Tim]eYM;[Lc;8KKM7;J3I3EI:KH3CJCQjCU:E1iDcjDYJAK:;GJIU3gI3Kh@OZCW:E C8:E987:B3ZC?B@ZbDf`4RBE2bPffdh;KJH7[>1ICQJ?S9=g98W:DkI<[i>1YK;kI3;MC[M;kAUk K_K?YZD[JAg983;KCkIMK?Yi>1Y:CI3@T2EM2bV2Uc4Vk4TCaI23MKI0P6=X<MZ5MWP<<00LZ7=Y j4TZ<UP\Y@]Wb<Wk4TC5:UI>d=0PD10H3C8:EaPRUj440WRc00000SY=g98YJFQJA19COZC?JBM: EkiDcjDYR^LZ9mX>]X4m[fTVk4TZ`6Be\2eRf`42EYndQZbN2EYnT5UXEEZ5MW=<Q@E:L:EI?UJA 7jCU:AKH2C8Le9DUjC7j>KH2ChLYKH7CSnFi2EMbdWjdS`Mf`4V`V2EMbdW0KH2;ZC9j>KH3]J@U J3CHK3CgfDXZCV0^3Q[LOkHe9DUjCH3QZD\X4QPdY5m:L8WRX4^j4ZBaM2B[6DY2biBg`X>3ZDUJ @c:8OZA1iDcjD@QVEZFdM2B[64MKI_[>QZD\8VbMf`4:dRNdTjd6V`4jfbNGG2GMfCh^c6V`4VDS 2BgFfc0@@BETFDWf`4<Q^QcIH7CSPm4UXLZIM:H@9ZDAiLYKH<U[TY5eYXL^d1C989JB]:83;KCS YDUQU]Ym<g98AY::gb>GhF61IHIKJ\]Ue]d5Tb]\a]^YE^]]\^iLZbD<Q9\X<MZ5]Q9<Q90P6100 0VbE>cD2BRV4PY0L78KO[K?;8_kKU;I1IH@@ZbDf0;ZCH2j6fDXZcN2cMfP5e91YC;jE:5h>KH3K 8DU292BEY6DW>ESFDYZBDJeP:UVE>bBjnFM2EY`Y<50`YVeYP7]XDEZ5mXX\Y@UUVE^_Y;K:DCi> KH2CHB\]Q==\W`4TD5Y598GJIU3MQUIHbVTEWmdX1U9^S]=\YQjXIUkKK3g98;ZC9j><1T^_eU=5 ZS4VPTZ8a6H2W28D[:EUJAPdm]^`Df`4VP<a6H2Q[LH?YkKM9Lg98AY:>fg2gl2bdjFjnF@NFfn6 d>01YK;KI`k\<fDXLZ@5TZ<U=PC10hDQ:;YkK>Gj@S`D^c6H2CRdaV\W]=\YQPT:4400T<BEYF5f 6X>2SP\80Q3gI3CP8=X<UZX<V`4VYL7\X>i>\82BZ:eP0gI3K8D@RPB]\c9MEi>KX@;jAC2K30K` UFFij600P=\X>U8UJIWSk\Q=DX5m8XD;kL;3;ZCLX_Qd1M1% DCCh7`Z603hDc[KYKHaK<QY;WjHM[;=ZKYc7L:DPC=_^U>HJMiD7[K0V06`7\EDP?83H0<CP=P1` P`1>eljFjPReUCM\^1X2H0422@181H0\0D0N060?07h3R0@4@182H0dk2@2>eljFj@IVFG>ea085 0I07P4P1`h`10@da182H04J2`1060mN0LP?H2H0Tc1`1H10W2810=79h3N160cN2L0F0`P;0nO<H CO:A[:C;:8WjKU;M5JHWKJ7kLg98AY:1YJUk;UI<EKMIK>Y98EI:KH3AY:1I@M;8OZH;[LO[K19L UkKEKI7;M1iHO[KWKJW;MW;8O[I19MA[L;KI19L3[LYkLeI319819A3;M3[>K881A@2RT=\d=\PL ^dE^eM\d]^b]\Pl^YU^X5T`E^_M\UU\eE^UM^PT^_5TSE^U=\d]\P<\^U\P\]_U\Ye\i5TYU^^4T 9e\PL\b]<VfgjF@nFi2bfnFbHJ7KHYKJOc62B@88Rf`>G@Jgd>gj6Ff2bdfFh6faBGF2BjRfb2Bb Vfi2Gf6fl2BinfjBgdjfb>G@6FiFF@BGiVfcNfb:gbBF@:fl2biFFgBfdjfc2bfFfi>g`Nfb>GGj BGf@@2R4=]c5>DW=442B@<]]9K;KK;[KYkL1IHM;8;;NYKIM;I;;I1YIUKHKKI1iLY3@@N7<\^5T _m^^5TX=\^U\\]\b5Tdm]P4^bm]SiLW;8OZH;36FgBf62B@2RPhKY;J;[L1IK;kL01iD7[L;KIM; 8OKMY;L[;M1IJW;8O[KIKN19IO[K;;8]KJ3;8Y;JCkL1IKO;I[;K;K8K881987jKKKK3[K9kLeI3 881Ah:7B6>W`]^dU^Ye]W9MAKI<\da`jVPT\YM>88W;M[[I=;8YkK?KIY;J;[LKH3198>eg:7PP< ]]5>0BGd8A3;M09JJ0QKHdUPLZ_E>Q:K[C@Vfi2BjR67jKK3\QP4TP\]_11IJK;L0C[K?3L^_E^d =]^a`bfcnFiVFjRff>GGf@EVb6f`TfDXnDYBe6V`YVeYBeRfDF2bQZcN>dg:ggFGjHIbB@BDMfCR Vfi27bB@JdgjFj>GF2bVJEMfcVFFgFG[VfbNgb:gibB@nDaF6bB@BEMfCZFFlBgibB@BESZcNBeb XAUKHKcibb6V@[ZcNJedF6LW=\Q3mY>MZD]Q9dYm<Ve4Vk\Q9D^UU\b=\g]W`LWPT\_U^m<Vk4TX D5KKI>72bdBfbjFjVFc\\bM^PDUY\1VEXFd6V@R6Fj6FE2bN2bP:EY6d\2BW2bWJD@VDWBeRNdR: eMf`42EinfaL>E98k98QjCCZCYJAU:8YjC19DUkK73UJI7k>KH2Q201I?1YD;j@OZD9J3CH2MKIa ;Me98QZLO3^c6V`4:fj>glZC@:dWnDVFdPjdMf`4V@infjB7ZC@>DG2EYndQFdY>eMf`44^j4T3e 5h>KPT=\d=\j4T4=\di>KH2C8NI98c[>1IBMR71T^YU^\]\j4T1EZBQb4VPlY65T35Y1EZk\1;ZC 9j>KH3CHEQ;I3;M;KCWkI1I?110A9AMYAUKH\Ycm\Y\Q9<QYU\j4T9e9PP4TXDUPl^X=\dmTc5Td m=9kK1Y:Ca4V@h8D02B@2B@2BDZ2nF@jfbFFb>G@FGhBf`88EI:KPhEWP<9PP4TP44`b:gb2BEV2 ;ZC@[6DYf`4bfd>GjbB@>fj:GM2BX:7`6\]Q=]^EWPLX^0;2T\QAZnfYnFiBGM2BR66gQc]\UU\j 4T<mY>mX9eYDMW=<QYEWP0DZk\QP441iLYkJe98QjCCR5E:H@UZDX=I98W9<Q9<Q9<1iC=2`6f@D HHI;K19A3SPL>@EVb6f@X:eW>T4]ZB]XPlXUU^Z4UYEWP<9l84TF=XB5Tf=\\EWP<9PYLW=<Q2]X 7=Y>]Q9<Qf=\\EWmL\eE^^T\QU>gJJkj>KH2Ch@M9EUJ@MjD=JAU::7KMU[;UkK[;M8;1IK3KJMK :KH288?JIYk>KH3K8D08D[;ME9:bB@jfbNG[6Ff440@[6DY2bfZC@FEhBf`HCLW=<Q21HKMIJ9[> k9IO;Mg98K[;Q[>kiHLWP\]^4_j\WYMW=<Q9dZ^DXbm]QU\S=\cU^X\]YLWP45:gbffgJgb2bgbF b2BbnFj2BEVb6V`4>fj:GGB6@MfCgFfkJ5gI3CH2000BFi6fk2BgFfk2BbnFj0>400U300;2QJMY k>K00XC;kM9JHYCERB[6DYT\j4T4Qk4T^EWP<Y>1PFQ]100093YbYPmT\k4T]IJ9Sb]\TQk4TS]^ bEWmT]YM>gI3C`[RdTbdR2baFGi2bA2BWVDV2BRnd6V`4V`a@b@MfCb^327h>JEG:Di00K`4PjhH [CGjfbRGjf`4V`RjTk`R88MJI_3^c6f`60P9e]cU^QU]\EUX4^j4T31^C@jFMP5QkhLeI@UZD3R? eXPPB=Uk@[H3V`fZC@F50H2MckZC@2Ei0fP21HB=:8IKJW;MkYCC:C19EAJAMJ3C`4jFMfCH^C@j dRNEDbfd>WYLWPd]UY>k9KCS=<1bdYFd6V`4V06cM2Bg0h><Q9l:@gFfkjBgFFlLT>=Y<5T498CZ C7::MK:g98MSjXK;CGPP\X>UXk0MJA_::MKI_[;`D^C@@M0`6@WL7d]U1D7MJBIj>KH2P`EWm4^k \1>dW2e\RbibB@jfbdUd=]dU=Ci>K`4j6Bf`X><\d9EPk\Q90RGMfCDjdE:CHVBERBg2BRVD[2BI VbE:CH^c6V0HNeI?K9:Mj:PXd]P\Y?98UI:GI<C1fFGPb1HKM1MKI^C@JEG002BDZB@PPL^_E>=K JbFb2BE02bTjfiPk\Q=0F4hD7;J;;I[;K;[:gI3CXEPQU]\UX_e]UEWPD80RBEV`4>Gj^FM<XB1] 12SP0h>1Y:CQ2]8PSAMT=88C[>k9<gI3l:`ah8MJBI2KP9LX^dY5mZ@EZ?M8WBD>fj:GG2GF2biB WK=]MUUPL\eAi0VbM2baF75KMWKNfCZ:eZFdMf`4hH`aX;M3g98CZC<]Y\Q9<Q5aM@YFDXFdPBe6 VP9<<0k9E@@>6eAfP=`4N50710V`ThH[[LMYH88Y:B;b6H2C`QT:0ff`VV\4TS]>:70K0C``0XA3 :CWJAH2CHA0V`aX>>6MYKH3HA\Q9HEM:EC:C1IHI;K92K`R88WjHACb`Mf`60B4TX_e=Ei>K@Q0L <D<D7=2^c6VP31073U38;PY`R@RnFgLW=\10@YjDRZBDff`RGM22F4VBM2bT0^c6V`QnDW883K?S Y=a9<_i>1IKkY<S9=_9=ai<]9=_i>1ILkIKBdTJUQMWPD^m\]P\Y?U83k>KH252`THK3;NiY<19E AJA2BYFDZFEYjD@2C@FDW0WKIBVm<\Z4Uc]\UU\P\Y?U8SK:KYLE9:WKI8ACZE6gD^c6<Q9aiFfb 8?19<19EA2WKID7WKI;cEfF@FDWB4D:YJEhDAjCU:EAiL;KI2bV`f6FlVb6V`R@YjDR^c6f@DZ24 4C33C@>70K00BTd5UVEWPTX^d8h>19NI98c3PB=Uk@DZB@BGdFVf=\\]^UM^P4_\@@6FiFF@JFi6 61iHOkKU;IC[K3;M;kLM98EI:V@Q04UZhC[;MMiDY[LC[K?;:59AO;Me98aK?5I:g98OJMYcTjFj RBlbB@2cD^C@n4>5Pi]WR<Uk0V4VGF2BHV2@VjfM2BE`4BDGBdgBgQRBcbB@BDGNGdVFjFFF2Bcj B\^BlbB@JFGVeEJFGRdEVGF2BRjbdjFkFFiBgDf`4P49MgI3f00DZUU\bAD>FfVFhZC@BDG0g1VG M0h>19Le98QZLPYLW=<14_\44116Fa>ggbfjBgb2bi>FiF6>fgn601Y:CQ=<Q3m98E;;NY;BkI<U i>KH2]RP<]j440f`6V@X:eW0lZb=]d]\CU^b==d\j4400e101iL0n4`D`4JeP8Ia;;1IJI98A;;1 iMI98a;<I98c;<e98C2P`AV0\152`dZcN23V`[0WkFCKG79<a:89jCH29bSFFj>Dd6FiRBSnFgX; 9JI=KH[;KY[;UKHW;M;[LI98WkFCCFT\hU5a;<@F2bk8JIAhVbMf`4P3m]`=_@=\dU^UE^^MXXL\ \AF2BRjbk02GF2Bl^Bl2CF2bl^bl2CF22UKIQ;K3kH;K:g98KH2CH2CZC7::a;;9;NCi>K0`dLW= `Rh>V`R88_ZLC3Pk\Q9\Q9D80CZC4?19LM9NCi>1IBMRiUUP4^^<_YLW=@RDZU5^\MX_e]cU^35U SU=PRU]QM\[UUP4_\4Ti]UD]\hAF2BWbB@jdEBebRGj@RD><<0B4h@00l>Ph]UaTUP<_]<V\4T>M UaTUP<V\4T4YLHH00L800N7P[dY\4Ti]5<6j4T8U3330P310`k0T5^BWbR>1SQ4YLHH00L800N7P ]PiUUP<6j4T8U333PGE^YU>W24US1RGFH;Y28LBgdB7P6mYB5TYEWm4VPTZ?5T>]Ua4T4mYPTX^T X_1P4iM0^bdbB@VgE2GGBf`hFCCFT8C388;ZCH2@YFFb`Mf`62EY0HCO;ICclRBcZC@0`dBFF2Bb VGF2blbRXEWP<9PYPFQSU]YY>B40Q[>25`MfP21@S<]T]W=eZ^D^UU\eM\U5TD594UZ4Tb9I[3EI :<Q9PT=_S4VPTZ8Q4eU3m=:Dfnfa^FDJFGREF2Bc@bVGF2BclZ\44d<aRiU59Bi04T5e9KP5U92B @2RP0008:\\hU^U9I1Y:00000PVIFI98=c[XIM9BI984;HFG1B40Pk`4V@DhHIKI3[L1YK;kM1IH Uc`2BEV2d9L\\aD^C@>FfVV^4[j\WVeUHMWPL\\QIEWm<_k4TS1_Z>kYIMiEg987;K8BeI?AK;=[ ;Aj>KH2T8`QPXTX^D<PSU]YA\bB@>Ff`\bB@>Ff`[bB@>64Y\8APQQk\1C@DXLD>2b`bFfT\QIH1 Y:C12WmT]YQPlZ8=Y<Ah>BWV44TB]<USXL<T5=C\HNG9JI98QK:2Bh\W`eU^]\h98jT=P>i>XIMI FeI?XIM9BeI?f`4FDW4T=m]TQk\Q=00Rd`jFbbVb5UVEWP@S0JePHKTX^0f4Ci>KH2520fF@VdY2 bVJEGfdgBfdHCWkI19EAJA4TP88R2jFf6FiNfb2bg:G@:gb\>d^Y]\gA@ZbDPG=YD5YP\]j4T=eZ ^009jC1ICO;I8:bB@fFGVV\4T]eUT=[\4T]eUIUUP\=AJ:1IA0IbTJD@f6l9:7MIBM;L[;MKjL?; 8Y2KP90`W:fb00T8KP9<Q9Q^<=kiC5KIU3Y[L3kHG;8Y:B4T?E<@R:g`LXeiLO[LAiC5KI`Vnfj> gbbB@nDa03ZLUkK_;;1IKM9FI98Kc\VB@F4H2;ZCf0;:CPP007jKQcV>gcT:88PC=_cU^U]]^lXb m]g5T_E^PLZi1>dg2WPDUY0_200HC8AP9d9\]^dXYLWP\]^dX^4]Qe=DWmd\^4]Q119:EafjBS0X >k98AJH@i2Bbnfb>GgNBj2bknFi^f@6B@Z2HAM2T90\Z`U<FVcAZ`6`[0\:0T8`4V4jbd8IO;M19 EARPTX_U^X8;1Q`eUhMU]eUhUUP\=<_[\]^4^^T\Qa]fFG\[Y\Q9`4F4;BYFFb@DJFFd\^PVIFJ6 IafH:KH2C`4FDWP90\8HA4T8=\^1gI3KH3Q20O:L;[KEi>KH2H3\]j8E=Z;=ZL3Sk8Me98YZ;YJI a;MgAaFGcZC@BEG:djJFcFFi^c6V`4JFM2BR0\Q9<QhU5c[>0LW=<1][>1IC]B[Vfb`MfP218:L\ bQUIK;[K[;8=[L883[K9;8UKI3;I1IK;[KL^dE>4TVE^_]]Pd\YU]U5TZ0KcNBESjBWFfkfdbjfj RBA>eg:W@QRTUPDTR<Uk\Q9XC8MCi>BEGnDhFFgRBjbRRLZ_1dU=]\^Y;YJIaCAVbMf0@aFGcVbM 2BZ05JM=;:5KM=K:`Y6FkFFDBGF2BHbB@BGGbfbjFF2BaFGc03:LQKIM;IAIKM9M;;NbRR]>\Q=< Q945VFgT^Y=\\=]j]\PT^X]<KKHCC@JFi66ZbD@W@cVbMd<A3ICM4YQe]TAiH3C@DhI;;M1IH19L UkKQkKWKHI;8_;J;3YkK1iKQKI2b`2BgFVPd^Y]<dU^dUPDUYP?E\U13:KIkK7KHYKI[jL;[L]JJ ;3AiC53\9X;a:;R7cK:gI345jBGjb`jFb2bg2gbHJY;8Y;J:gbl>8MAC@>FiF6BV]QP<\^98KKHC 30@k\W=eZ^dYU9:K;;JFF2BZJDGffbjfjRDF2BlP=<Q5Q?5^Ui>KH3KX@;jA@WF4W;MGK:gI3bfd X>kYC88WKI;CMlYR]<8ECKK;;:Ci>dX?18E08I3;M3;E>5^edfEM<]P\8^S5eY4iDOCj:4X;O:L; 30$ 6;Ah7`4a0>eljFj6Fl6CHjbY>FgjBSjFjl1AJ0DPC=_^U>XHMiD7[K0N06`7dY1@1nP70<c2@1nP 50LX2@1X1H0<82@1n00G15P:0dF4Pm61fdWBdZbdR2bYnFiBGXbfj>gMf`6VdV2eW:EZ2bYZcN>e g:Gj:d`>gd>fi^c6f`QnDW>EZ2BWfcHFCH^c6f@X:eW>dRBdZ:eR2bTjfiFFiBgYnFiLW=<QF=XB 5TYUUPL]\4ThUUP<_j4T9eYD]X7]XBMW=<Q2]X7=Y>]Q9<Q6mYB5TYEWm<VPTZ?5T>]Ua4T4mY=< Q9<QCeU7]\d5UYUUP4_YLWPL]j\WY]UaLW=<Q98COjCQJ3CH2CH2W2L]\4Ti=Uk4T9eXP4_PdWm4 Ti5TD5Y5eYP\XH=YD5T5eY4MW=<Q9H2WBXFGjRbe^bHbB@VgD\Q9`4BdR>DD^fD^C@V4GK?KI<19 EA20\Q9<1;ZC9j>`Y0PhI3CH2;2hDBdgjfb^c6V`RjTP<Y^M>0\100X:gI3C04TCeU9e]cU^QU]\ 5U9e]cQCQ\4T>UUPDT9e]c]<:bD2bRjDR22`MfP=4ZB1@QFGa:FfFfYnFiBgM<QFa6V`4VFF2Blb 200ChLO[LYKI9[>1Y@OjCIJA3ZCgI3CX@`6<QB]X@]X1UZ=<1>7`NBEYFeR^c6V`4V@S0`W00ChD N4VfF6CF2BlVbMLZ^lXUQ\HN0CHB=:8a[?c;8Y:BhD2ejHJK1cSPL:Q2bRhQcm]bU>XA3:CWJA1I AMb6`RH3\Z>UZ9UYPL^_E>LW=<Q9L:92HA4T2]^R1T^kH3Q200Ei>KH2PP`T8M@QFGa`Y@F05JM5 [HDTY4T5A@0^c6f`60P8]\Q5^Cm]bi>V@[88I;;1YLI98;;K;KKI:;1IIISBEWP<Y>1H3C8DUjC0 >edJFj^c6<QF=8<V\4Tb=V\4ThEWP<Y>1H2CX@;2KP9T]aDWmT]k4TCeU7Q\=V\HIIS<=Uk\Q9<Q 9T9P9<Qb=Vj\WbDU\=Vk4T9Ai6C@jC@:G@BETF4;2`MP9L:?2UK<Iab@YVbMf`4H2CRbAN2Bi2BZ `6V0C`Y0LUaTUPH:<9FFfF619?19N19EAJA2bbb6ZcNRgM2bTjdQRBi6cD2bRj4`4F4g1V`THI8C 1Y?kabbfbDZPTZ8Q510<QC9D8KHI`D4T\=Vj\Wb=V=<Q9<Q51hD00bdDf`4\82bYVFc`6V@QF4@f ZcNjD@BdTJE@:cM2BiZcNjdF6cMf0_:BC:C;:8I[?Q989jC19A;j@A9KCi>1iDC[I2bRj40XLm9< 19Af0CP7Q\UUP\<`M2R^0U;;11:5>U@100@i0b4K092UK:g98V6KH2CHAL7L:92HA4T8]\Q1@X0@ T@E^c6D8880@TFf`L:T5@TFf`2GAVB@@@Pk\1K006ejVfa^fYn6gQ94:08:I;;1YLe98C2H:gI3V @[`eFflbB@bfHbRb=V\0T5@YZC@0L7V@QP=`4>U7Q\aeFflVbMf0C8KSQ\Ai6CMfCi^c6V0U2P9< Q<QPLZ^l8H<\<TYY88C2@@`eFfl2BZR40h>1IB8KSI:1IAH3H2I20:gHb2XDCi>1IB02BNfC@^fb 00PPTX5Qa0\1<Q9Af6C@bcN2Bi6C@BETH3H2>U@Q\1`DhDM1:7P<=5K0C`TjdQR2^C@BdR0KH2CH 2CHA\1\:@f6C@jC@<Vk\Q9`TJ419?1YL224TA5U\Ai6cD220`HTWPD^P0`Hb2C1f0;RP<Zk\Q=<Q 21HDA9<I98MJ;SI:gI3L:92KH2;ZCHMC30Q20F7ZbMf`4:4440HD[KJL:T5b2SJMCkH:bD2bR88P k\Q=\10hDYKHU;ME10LZS5]UU\eU]U5T5e9>Ej66gQ=00UJHM;IOKKC[N;[:gI3J5KPYAiZ30H29 KHYKHe98WZ;9JHYKHgI3CX@`68IhFQIGeI?Qi>KH2J4001QPD^jhDMYDM:AAIJGI<Ci>19I3;M<] MEWmT\QU>:g^^C@B6@Mfcd2bRh>hDjdbNGR6Fj4UT=\d9;1YCCI3CHAXD3[K0gI3KHAM:A>eg:W@ Q^0% -- claudio@dial.eunet.ch, Claudio Nieder, Kanalweg 1, CH-8610 Uster, Switzerland
Technical Details
Message-ID:
<slrn4g31s8.170.claudio@cn.dial.eunet.ch>Path:
arc1-ca.pugleaf.net!EU.net!chsun!claudioShow Full Headers
Complete Article Headers
Newsgroups: comp.lang.oberon Path: arc1-ca.pugleaf.net!EU.net!chsun!claudio From: claudio@dial.eunet.ch (Claudio Nieder) Subject: Coroutines for Oberon V4 (long) Message-ID: <slrn4g31s8.170.claudio@cn.dial.eunet.ch> Sender: usenet@eunet.ch Reply-To: claudio@dial.eunet.ch (Claudio Nieder) Organization: A customer of EUnet AG, Switzerland X-Newsreader: slrn (0.8.4) Date: Sun, 21 Jan 1996 00:23:42 GMT