Coroutines for Oberon [01/01] (long) 
Author Message
 Coroutines for Oberon [01/01] (long)

Hi,

this is the Coroutines module mentioned in my earlier posting, together
with some modules to see it work.

To use the sorting demo, first call SortBasics.Open. Then  from the
Algorithm menu select SortPlus.Insert SortPlus.Bubble SortPlus.Randomize
and SortPlus.Start to add two sorting processes, randomize the data and
start the execution of the processes.

AsciiCoder.DecodeFiles % Coroutines.Mod CoTest.Mod SortBasics.Mod SortPlus.Mod SortPlus.Menu.Text ~

P
`
U
k;S9=EKMIK>Y9;1IMQ;I3;M;;I1iHMk;U9>9KI7K>[98EI:KH3AY:KH2Y:JCkL1IKO;I[;K;;8CK
b
C
kHA;8W;JOKMI;I1IK3kJ;;8C;M1IH9KHQ;M3[HIKI19MOK3C8IC[I=KIUKIM;8Q;K3;M=kKUKKW;
85KN1YJ[kLY;83;8=KI_;87;J3[K?KIW;8C[K1iHO[KW;M3[KY;89KI=KJMKJYKJO[KW[;KH2KH2
Y:J;[L;;8CkL1iKMKI1YL;kLY[LCkHYKJO[K1iMAKJ8LUkK7KI9KMUKIW;;19MAKHY;8ckK[;8[k
C
M
AKHL^_]]U5TWU]_E\QU]Pd^QE^Y=\RU]U]Q94^_=]^U^c9MO;8Y;JCkL>Gh66Bfj:gdjfc2BjRfb
^
^
Xm=HNOScU^YU]\5TX=\f]<WkKKS\m]S9KKH2]KHUKJ`i2BhnfdjVYe]W54OcdBGGf`4fP?e]PT>;
cV6faVFgBgg>Gd2BjRfb:WP<=6Fg2b`BFbVFjVfg<\\5Tb]\cYL`gdUPTZX]\PL>Oc`Nfb<\b]\P
\^c9I1IHW;8W;M3kHG;8=kKUK3CHH19LU34TX=\c5TYU^c]\\e\PT^_5TR]\Pl]^11QQAG2bWBGd
FVg=]c]\PL^_QS5]UM\[5TSm]T]\Pl^YU]\5TSm]]5^\=\Ye]P\Q9<\Rm]eU^P<]\U]Um\QU]PL^
3
`iBWW]\c5T_e\P<]dM^PT\Ue^UU]_5^]]\^U^^\Q9<Yd5Tc5=_KI9;8WkKhLY[L3[K?KI1II=KI7
\
P
0
<]ciLVFf4TeM^QE\\]\Pl]^QU]]^\Q9\1CZK19Ml]b=_\4TdIJ<]c5TU5_`]\SU^UU\j\Q9\1KJH
c
=]T]\Pl]V5Td5=KH2ChC5KIUS^TY_m]`5TQe]T5Td5]UE^Ue\_E^U5TTm]UQ_U^P4=4Tdm=C[KW;
;
T
Qe=PcAj\]Uai\^c=]^m\PLYUE^^]\\eU7MXUe]QE\\]\T5TS=\^5TR]\P\Q9<Qb]\]m]f]\TeU=<
F
H
S
=
0H3l^bm]^m\PL^YU\UAc`b2biP\4TdQW1P\1hMC;Kd]_U>C[KW322L>883;M6FfbFGf`4PbYI`k 3
`
f
T
Y
IO[L1iD?JB6FgBV85ZP<\`5^\=]UM>8M4T1]]Ym<M985JMYcT22M3G[KOCF2bdJVdIIKP1]=4T;]
T
^\4Tim=Rf`J7hM3KJY;8=kK<\Pd\eU^eE^UYLbf`>gb2biFGh2gg:WYe]WIJY[;\13:L3[LY;8=[
F
b
k<]\alnV=<QX=<d^Y]\g]\bM^Pl^YU>1IMMkL3[M;;I1YIC;K;kL1iKQKIM;8;;M7[;KH2K`TJV 2
DbVf`bFGFfjjfbBGG>FdV`g:g4ZfgFFiNFG>Gj:g`FGaFFP6Ff>f`BgbbFG>Fdf`4V`6L^_5Tg]\
PHHHKQ[LO[MT^X==1IKBV\Y;KX:CI3KHBK:DOZDY:8WJFW:E;JCIiB;[Lh>KH37jCMjDYJ319:E9
Q
I
6
m]b5ZjTY?eY7=Y>UZk\Q9<Q=5ZjTY?1f`4FDWBdMf`6JeP:e6V`f66K:De9C0gQ`E^_M\j4ZBm9 K
J
e
I
=
g
c
Y
V

W
F
VfD^30X<IIJCi>0PcTUY=Uk00BCFVfD00FCFVfD00JCFVfD00NCFVfD00RCFVfD00VCFVfD006CH
V
K
5
W
i
N
o
0
8=IIJ00\V\<=00JCFV600_9;C30PhTUY10`Lbbd00<W`TUY10`Hbbd00X<IIJ00LV\<=00BCFV60
0[9;C30PfTUY10`Kbbd008>IIJ00<W\<=00S9<Q9;C300S9;C300U9;C300W9;C300Y9;C300[9;
C300]9;C300_9;C300a9;C300c9;C30Pa4V\<=00<V\<=00DV\<=00LV\<=00TV\<=00\V\<=00d
0
;
C300a9;C300c9;C30Pd4V\<=00<V\<=00DV\<=00LV\<=00TV\<=00\V\<=00dV\<=00lV\<=004
0
0`Lbbd00X=Q9;C300S9;C300U9;C300W9;C300Y9;C300[9;C300]9;C300_9;C300a9;C300c9;
C30Pg4V\<=00<V\<=00DV\<=00LV\<=00TV\<=00\V\<=00dV\<=00lV\<=004W\<=00<W\<=00R
C
`
3
00U9;C300W9;C300Y9;C300[9;C300]9;C300_9;C300a9;C300c9;C30Pb4V\<=00<V\<=00DV\
`
3
00Y9;C300[9;C300]9;C300_9;C300a9;C300c9;C30Pe4V\<=00<V\<=00DV\<=00LV\<=00TV\
Y
0
8>I100c9;00DV`T500<V\00PbT500LV\00PdT500\V\00Pf000_100R300<700LV`000S100:300
L6008=00`J00Pf000_100R300<700TV`000S100:300L6008=00`J00Pf000_100R300<700\V`0
00S100:300L6008=00`J00Pf000_100R300<700dV`000S100:300L6008=00`J00Pf000_100R3
00<700lV`000S100:300L6008=00`J00Pf000_100R300<7H00nPo30<0L0PA2040`Y000f42`V`
0
0Pg000a100V3006CH2300H<00Pb000>3008=00Pe000J300h=00Ph000V300<V`0006300X<00Pc
000B300H=I100J300h=00Ph000V300DV`0006300X<00Pc000B300H=00Pf000N3008>00Pi000W
h
=00Ph000V300\V`0006300X<00Pc000B300H=00Pf000N3008>00Pi000]9<00Pa000:300h<00P
d000F300X=00Pg000R300H>00`K2300H<00Pb000>3008=00Pe000J300h=00Ph000V3004W`000
6300X<00Pc000B300H=00Pf000N3008>00Pi000c9<00Pa000:300h<00Pd000F300X=00Pg000R
300H>00X<Q9<00Pa000:300h<00Pd000F300X=00Pg000R300H>00`H2300H<00Pb000>3008=00
Pe000J300h=00Ph000V300DV`0006300X<00Pc000B300H=00Pf000N3008>00Pi000W9<00Pa00
0

f
d
2
A
2
BaFfcVFg>GAVbM22TY^MW=441aQjBWFd[2EYndQL:A9LIiLYkJIiHCi>K88hChD:7HKe98]kK04T
B
f

aCCh7`Z603hDc[KYKHaK<QY;WjHM[;=ZKYc7L:DPC=_^U>HJMiD7[K0V06`7\EDP?83H0<CP=P1`
5
c
P=mY4]Z<]XPLZ_E^dEXQM^YM\cMWP4UZ4TZE^_DVaD]eU]iTVPDUY\Q=4UZ4T1e]PlYR]\bm]^5T
`E^_E]UM\d5TSm]^M^YM^dM^Pl]V5Td5]b]\U5T`=\bU^cEW=4TP4T4=\d=\j\QP44198Bf`Bg`2
8
9KJW;LIKHc;8UkK[;MC[K;kL1IHUKI19MUKJ?kI;[L;;I1YHc;8WKIM;IC[K?;8KKIWkL3kI;kLM
e
]Pl]eU^`]^d5TYM^Pl]^U]i5TTm]^]\Pd^Y=\PT^X=]c5T]m]T]^\]\Q\QP4TPLX_]]]=\^U\cEW
=PP44Q[L8IhL2gjBGjVFgNVd5]Ua`B73[K2BbVfiPPL^d]^Ve\PT^_m\UU^X]\b]Q=4TPhDO[L02
i
?
9JJW;L8;1YAO[KYkLI98KZEeI?KJIMKM]JJ;kM;[LW;;1iC5KI8;19EeI?YJIa;MW;;19E=Z>k9E
;S6E^Q]=W;;KH2]Z>kYECKI0IjK?k>KH37jCMjDYJ3CXCkI<[9<gI3CXL;;IUKH_K?Qi>19IO;Mk
U
V
8
D
gI3FDWBdMf`6V`Z2Gb6FjFfV>gc2bN220RBRjBS:g`HCWkICI3CH2C;Ie98CZC0198AY:1iMAKHY
^
W
=
2
f
d
T
_U]T5TTm]d5TZ<U=<Q9L\eE^^T<Pj\W^]\ge:^c6V`4000T\b=\g5T^]\g5TTm]d1L800:700F42
8
7KMU[>k9KCkL^c6VPG5Y9UY55TS]^b5TS4T>=Y<5T4mY=<Q9<QSQTQj\WTM74>`MdZ^DXb10fP90
Y
L
WPdY5mZXT]YM>Ci>1YK;CMfCfV6KH2TYC]X=<Q9<1<Vk4T^1`MH2ChEP^]\geU^]\hi8MJBI:89 k
9LgI3LX?5ZI5UcUUPd]UY;YKJY;KVbMfP9d=T\QAMHHYCZ0gI3C04_j\WXdY[DV`<UZ4U^5T4=YF
[

i
Y
d

]
P
;
KITWP4VPTZ8Qc]<ZSc]\Ui:K;8;ZC92:UD]:LZ8mYBUZXL^U]<1ICHK3;NCI3CHAXDM:AgI3K8:E
[
M
Y
0
<
U
K
dU4]\V=\eU]deUb=\cU^UE^\4TcM[Y9;BFlbRh568;1iM4]\8LCi>KH2`QnFhVGX6FjBgb:Gg>DD

Quote:
>Ff8;19AMiM0Q;;19NG9NQ9;1INGINQ9;1Qb]\`U]QM\U=Uk4T=<Q9<Q9eY35UhUUT5_YLW=0HJ^

Q
B
_
j
k
\Q=4ZB1`VnFbVVi5UVEWP0PYU\\4TT=_\4TiU5A[>1IB0C1]27;KCCMT802GM4:Pk\152P6IJ9K?
KZEMYL;;I[kH;;8Y:B8:E98UCbF7ZbDH2C09KN79<19EA29Z;7jKDX\m]SM]Xd\^4[\4TVQT=_\4
`
\^2T800gQ9<QX`abfb6Fi2BgFfk2b`:WQ5TZ<5XChHISYLWPL\\==M9FeI?=[;aj>1iHI3cZ>kIN
<
1
^
D
T
0
K
;
I\<WSDQ=PG1HE08AP9<9dUYAbnFj2BZR419AO;MAAF22Q[;ak:K[;a;;1IKHNGIKM9LM9I3SK]]^
HGCI3CP9\8FTB]\TQXd\\XIM1=c\d<bR]aDf`4VP9\X>1C0HA`R88AJHM3^c6f`6250nDhFFgZbM
\
HNe1Pk\Q9XMe98KZEJedF6^c6D80AQSE>\<KKIMKM1YIU31IHM;I1YL;KH9;8KKIMScU^b==2Bc:
I
AA>eg0jbVFFgdUD]\hY8Ci>K0XH[[ICi>19EP2]^V5UR]^V=5hD3[M;;:Y;;19<I98Y[;IKIM;;1
C
G
5
`
R`W2gbLW=\Q=DX5m8XC;RcU^[=Uk\1IKJDWmd94Tc]\UY>nDaF6TZY]]U5UYL7JdW0T:0T\QU^QU

6
:
R
Z
f
\
8
C98;ZC9:80gI30P2]^RE\\]\Cm]bU^kH2]R=<Q9<]\4ThU500V`inFiBgbBFM2BQndWbdR6DW^c D
Z
k
Quote:
0

a

<
H
3WjKU3XD3[K9kKKKJeKIKH3W2PCU^QE^d9187198i00%




Mon, 15 Jun 1998 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. Coroutines for Oberon [00/01]

2. WANTED: smalltalk contract prgrmr, 6 months, Toronto, Ontario - contprm [01/01]

3. date 01 01 00

4. Saving Reports to Disk - tfn.clw [01/01]

5. Clarion for DOS 3.1 Release 3.102 - ft02.cla [01/01]

6. Real Classes in Clipper, -prolonged- with English explanation - clpcls.zip [01/01]

7. Real Classes in Clipper, -prolonged- Explanation/Samples - clpcls.zip [01/01]

8. Invisible entering - secure.prg [01/01]

9. test - topless.gif [01/01]

10. Test for attach - test.gif [01/01]

11. REXX and RxSOCK socket programming - goserv.txt [01/01]

 

 
Powered by phpBB® Forum Software