1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
|
PACKET flint
(*************************************************************************)
(* *)
(* EUMEL Menue-Monitor *)
(* *)
(* Version 05 *)
(* *)
(* Autor: Thomas Berlage *)
(* Stand: 16.10.88 *)
(* *)
(*************************************************************************)
DEFINES
flint :
TEXT CONST flint vater := name (myself);
setze partner (2, "KAKTUS");
setze partner (3, "CHART");
PROC flint :
page;
fenstergroessen bestimmen;
disable stop;
REP
menue anbieten (ROW 6 TEXT :
("FLINT.Standard", "FLINT.Eigene", "FLINT.System",
"EUDAS.Dateien", "EUDAS.Archiv", ""),
fenster links, TRUE,
PROC (INT CONST, INT CONST) flint inter);
bereich wechseln
END REP
END PROC flint;
PROC fusszeile aktualisieren :
arbeitsbereich bestimmen;
fussteil (2, "", "")
END PROC fusszeile aktualisieren;
(*************************** FLINT Interpreter *****************************)
LET
t datum = #1300#
""15"Datum "14"",
kb von = #1301#
" KB von ",
sind belegt = #1302#
" KB sind belegt.",
p taskname = #1303#
"Name des Arbeitsbereichs:",
existiert nicht als task = #1304#
" ist kein Name eines Bereiches",
t loeschen = #1305#
" verlassen und löschen",
t speicher = #1306#
"Speicher:",
t cpu zeit = #1307#
" KB CPU-Zeit : ",
t zustand = #1308#
"Zustand : ",
t prio = #1309#
" Priorität: ",
t kanal = #1310#
" Kanal: ",
t busy = #1311#
"Arbeit",
t io = #1312#
"EinAus",
t wait = #1313#
"Warten",
t busy blocked = #1314#
"B(Arb)",
t io blocked = #1315#
"B(E/A)",
t wait blocked = #1316#
"B(Wrt)",
t dead = #1317#
">>TOT<",
bereich neu einrichten = #1318#
"Bereich existiert nicht. Neu einrichten",
p name vater = #1319#
"Unter welchem Vaterbereich (RET -> FLINT):",
weitermachen in = #1320#
"Weitermachen in Bereich:",
task ganz abkoppeln = #1321#
"Eigenen Bereich ganz abkoppeln";
TEXT VAR
wechsel taskname := "";
SATZ VAR sammel;
PROC flint inter (INT CONST menuenr, f nr) :
SELECT menuenr OF
CASE 0: sperren setzen
CASE 1: standard interpreter
CASE 2: eigene interpreter
CASE 3: system interpreter
CASE 4: dateiverwaltung (f nr)
CASE 5: archivverwaltung (menuenr, f nr)
END SELECT .
sperren setzen :
fusszeile ("", "", 35, t datum, 64);
fussteil (3, date) .
standard interpreter :
enable stop;
SELECT f nr OF
CASE 0 : fusszeile aktualisieren
CASE 1 : textverarbeitung
CASE 2 : eudas
CASE 3 : kaktus
CASE 4 : dgs superchart
CASE 5 : programme
CASE 6 : systemsteuerung
OTHERWISE ggf dialogfenster loeschen
END SELECT .
kaktus :
continue (abhaengige task (2));
page; bildschirm neu .
dgs superchart :
continue (abhaengige task (3));
page; bildschirm neu .
systemsteuerung :
continue (task ("OP"));
page; bildschirm neu .
ggf dialogfenster loeschen :
IF f nr = -1 THEN dialogfenster loeschen END IF .
eigene interpreter :
enable stop;
SELECT f nr OF
CASE 0 : fusszeile aktualisieren
OTHERWISE ggf dialogfenster loeschen
END SELECT .
system interpreter :
enable stop;
SELECT f nr OF
CASE 0 : fusszeile aktualisieren
CASE 1 : bereich wechseln
CASE 2 : bereichsuebersicht
CASE 3 : speicherbelegung
CASE 4 : eigener status
CASE 5 : fremder taskstatus
CASE 6 : task info (3); bildschirm neu; dialogfenster loeschen
CASE 7 : task loeschen
OTHERWISE ggf dialogfenster loeschen
END SELECT .
bereichsuebersicht :
disable stop;
bitte warten;
DATASPACE VAR list ds := nilspace;
FILE VAR f := sequential file (output, list ds);
task info (1, f);
IF NOT is error THEN
edit (f, fenster rechts, "SHOW/Taskinfo", FALSE)
END IF;
forget (list ds);
enable stop .
speicherbelegung :
INT VAR size, used;
storage (size, used);
size := int (real (size + 24) * 64.0 / 63.0);
IF l3 THEN
size := size DIV 1024;
used := used DIV 1024
END IF;
dialog (text (used) + kb von + text (size) + sind belegt) .
eigener status :
task zustand (myself) .
fremder taskstatus :
TEXT VAR taskname := "";
editget (p taskname, taskname, "GET/Taskname", "");
TASK VAR status task := task (task name);
IF exists (status task) THEN
task zustand (status task)
ELSE
errorstop (textdarstellung (taskname) + existiert nicht als task)
END IF .
task loeschen :
IF ja (textdarstellung (name (myself)) + t loeschen,
"JA/Task loeschen", FALSE) THEN
end partner (2); end partner (3);
deferred end;
bereich wechseln
END IF .
END PROC flint inter;
PROC bereich wechseln :
enable stop;
editget (weitermachen in, wechsel taskname, "z", "GET/wtaskname");
IF subtext (wechsel taskname, 1, 2) = ""27"z" THEN
bereich auswaehlen
ELIF wechsel taskname <> "" THEN
ggf task einrichten
ELIF ganz abkoppeln THEN
continue (niltask)
END IF;
fenstergroessen bestimmen;
page;
bildschirm neu .
bereich auswaehlen :
bitte warten;
alle tasknamen sammeln;
auswahl anbieten ("FLINT.Taskauswahl", fenster rechts, 1,
"AUSWAHL/Tasks", PROC (TEXT VAR, INT CONST) aus sammel);
IF wahl (1) <> 0 THEN
feld lesen (sammel, wahl (1), wechsel taskname);
continue (task (wechsel taskname))
END IF .
alle tasknamen sammeln :
access catalogue;
satz initialisieren (sammel);
wechsel taskname := subtext (wechsel taskname, 3);
pattern feststellen;
IF exists task (flint vater) THEN
sammel tasks (task (flint vater), pattern)
ELSE
sammel tasks (father, pattern)
END IF .
pattern feststellen :
TEXT VAR pattern;
IF pos (wechsel taskname, "*") = 0 THEN
pattern := ""
ELSE
pattern := wechsel taskname
END IF .
ggf task einrichten :
IF NOT exists task (wechsel taskname) THEN
IF ja (bereich neu einrichten, "JA/task einrichten") THEN
vater erfragen;
begin (wechsel taskname, name vater);
continue (task (wechsel taskname))
END IF
ELSE
continue (task (wechsel taskname))
END IF .
vater erfragen :
TEXT VAR name vater := "";
editget (p name vater, name vater, "", "GET/Vatertask");
IF name vater = "" THEN
name vater := flint vater
END IF .
ganz abkoppeln :
ja (task ganz abkoppeln, "JA/abkoppeln") .
END PROC bereich wechseln;
PROC aus sammel (TEXT VAR inhalt, INT CONST pos) :
IF pos > 200 THEN
inhalt := ""
ELSE
feld lesen (sammel, pos, inhalt)
END IF
END PROC aus sammel;
PROC sammel tasks (TASK CONST vater, TEXT CONST pattern) :
TASK VAR naechste := son (vater);
WHILE NOT is niltask (naechste) REP
ggf task sammeln;
sammel tasks (naechste, pattern);
naechste := brother (naechste)
END REP .
ggf task sammeln :
IF naechste = myself THEN
ELIF pattern = "" COR (name (naechste) LIKE pattern) THEN
feld aendern (sammel, felderzahl (sammel) + 1, name (naechste))
END IF .
END PROC sammel tasks;
PROC task zustand (TASK CONST status task) :
dialog (t speicher + speicher + t cpu zeit + cpu zeit);
out (t zustand); out status; out (t prio); out prio;
out (t kanal); out kanal .
speicher :
text (storage (status task), 5) .
cpu zeit :
disable stop;
TEXT VAR result := subtext (time (clock (status task), 12), 1, 10);
IF is error THEN
clear error; result := "**********"
END IF;
result .
out status :
SELECT status (status task) OF
CASE 0 : out (t busy)
CASE 1 : out (t io)
CASE 2 : out (t wait)
CASE 4 : out (t busy blocked)
CASE 5 : out (t io blocked)
CASE 6 : out (t wait blocked)
OTHERWISE out (t dead)
END SELECT .
out prio :
out (text (pcb (status task, 6))) .
out kanal :
IF channel (status task) = 0 THEN
out (" -")
ELSE
out (text (channel (status task), 2))
END IF .
END PROC task zustand;
(**************************** Textverarbeitung ****************************)
LET
t ausnahmen = #1400#
"Ausnahmen",
t druckertask = #1401#
"Name Druckertask: ",
task existiert nicht = #1402#
"Task existiert nicht",
t stationsnummer = #1403#
"Stationsnummer der Druckertask: ",
falsche stationsnummer = #1404#
"Falsche Stationsnummer",
t trennfaktor = #1405#
"Trennfaktor (4 bis 20): ",
t ersten kopf unterdruecken = #1406#
"Ersten Kopfteil unterdrücken",
t letzten fuss unterdruecken = #1407#
"Letzten Fußteil unterdrücken",
t fussabstand = #1408#
"Anzahl Leerzeilen vor Fußnoten (0 bis 9): ",
lineform manuell = #1409#
"Trennungen manuell bestimmen",
pageform manuell = #1410#
"Seitenaufteilung manuell bestimmen",
falscher trennfaktor = #1411#
"Falscher Trennfaktor (nur 4 bis 20)",
name fonttabelle = #1412#
"Name der Fonttabelle: ",
t neu einrichten = #1413#
" neu einrichten",
name der datei = #1414#
"Name der Datei: ";
LET
font file typ = 3009;
INT VAR
file typ := 1003;
IF l3 THEN file typ := 1004 END IF .
l3 : maxint DIV 2 > 17000 .
;
BOOL VAR
zeilen manuell := TRUE,
seiten manuell := TRUE;
TEXT VAR
druckertask := "PRINTER";
INT VAR
druckerstation := station (myself);
PROC textverarbeitung :
page; bildschirm neu;
BOOL CONST alter umbruch := word wrap;
word wrap (TRUE);
menue anbieten (ROW 6 TEXT :
("TEXTE.Erstellen", "TEXTE.Bearbeiten", "TEXTE.Einstellungen",
"EUDAS.Dateien", "EUDAS.Archiv", ""),
fenster links, TRUE,
PROC (INT CONST, INT CONST) text inter);
word wrap (alter umbruch);
page; bildschirm neu
END PROC textverarbeitung;
PROC text inter (INT CONST menuenr, f nr) :
SELECT menuenr OF
CASE 0: sperren setzen
CASE 1: erstellen interpreter
CASE 2: bearbeiten interpreter
CASE 3: einstellungen interpreter
CASE 4: dateiverwaltung (f nr)
CASE 5: archivverwaltung (menuenr, f nr)
END SELECT .
sperren setzen :
fusszeile ("", "", 35, t datum, 64);
fussteil (3, date) .
erstellen interpreter :
enable stop;
SELECT f nr OF
CASE 0 : fusszeile aktualisieren
CASE 1 : editieren
CASE 2 : drucken
CASE 3 : zeilen formatieren
CASE 4 : seiten formatieren
CASE 5 : automatik
OTHERWISE ggf dialogfenster loeschen
END SELECT .
editieren :
ausfuehrung (PROC (TEXT CONST) editiere);
dialogfenster loeschen .
drucken :
ausfuehrung (PROC (TEXT CONST) drucke) .
zeilen formatieren :
bildschirm neu;
IF zeilen manuell THEN
ausfuehrung (PROC (TEXT CONST) lineform)
ELSE
ausfuehrung (PROC (TEXT CONST) autoform)
END IF;
dialogfenster loeschen .
seiten formatieren :
bildschirm neu;
IF seiten manuell THEN
ausfuehrung (PROC (TEXT CONST) pageform)
ELSE
ausfuehrung (PROC (TEXT CONST) autopageform)
END IF;
dialogfenster loeschen .
automatik :
zeilen manuell := ja (lineform manuell,
"JA/lineform manuell", zeilen manuell);
seiten manuell := ja (pageform manuell,
"JA/pageform manuell", seiten manuell) .
ggf dialogfenster loeschen :
IF f nr = -1 THEN dialogfenster loeschen END IF .
bearbeiten interpreter :
enable stop;
SELECT f nr OF
CASE 0 : fusszeile aktualisieren
CASE 1 : index anlegen
CASE 2 : outline anlegen
CASE 3 : file sortieren
CASE 4 : macros laden
CASE 5 : macros anzeigen
CASE 6 : ausnahmen erweitern
OTHERWISE ggf dialogfenster loeschen
END SELECT .
index anlegen :
ausfuehrung (PROC (TEXT CONST) index);
bildschirm neu; dialogfenster loeschen .
outline anlegen :
ausfuehrung (PROC (TEXT CONST) outline);
bildschirm neu; dialogfenster loeschen .
file sortieren :
bitte warten;
ausfuehrung (PROC (TEXT CONST) sort) .
macros laden :
page;
einzelausfuehrung (PROC (TEXT CONST) load macros);
bildschirm neu; dialogfenster loeschen .
macros anzeigen :
bitte warten;
list macros;
bildschirm neu; dialogfenster loeschen .
ausnahmen erweitern :
TEXT VAR zwischendatei := t ausnahmen;
WHILE exists (zwischendatei) REP zwischendatei CAT " " END REP;
create (zwischendatei);
bitte warten;
entlade ausnahmen (zwischendatei);
edit (zwischendatei);
bitte warten;
lade ausnahmen (zwischendatei);
forget (zwischendatei, quiet) .
einstellungen interpreter :
enable stop;
SELECT f nr OF
CASE 0 : fusszeile aktualisieren
CASE 1 : fonttabelle laden
CASE 2 : fonts anzeigen
CASE 3 : druckertask verstellen
CASE 4 : trennfaktor einstellen
CASE 5 : briefmodus einstellen
CASE 6 : abstand fussnoten einstellen
OTHERWISE ggf dialogfenster loeschen
END SELECT .
fonttabelle laden :
TASK VAR fonttask;
IF exists task ("configurator") THEN
fonttask := task ("configurator")
ELSE
fonttask := niltask
END IF;
ausfuehrung (name fonttabelle, TRUE, font file typ, fonttask,
PROC (TEXT CONST) font table) .
fonts anzeigen :
bitte warten;
list fonts;
bildschirm neu; dialogfenster loeschen .
druckertask verstellen :
editget (t druckertask, druckertask, "GET/Druckertask", "");
IF NOT exists task (druckertask) THEN
errorstop (task existiert nicht)
ELIF station (myself) <> 0 THEN
erfrage station
ELSE
druckerstation := station (myself)
END IF .
erfrage station :
TEXT VAR st := text (druckerstation);
editget (t stationsnummer, st, "GET/Druckstation", "");
IF int (st) >= 0 AND last conversion ok THEN
druckerstation := int (st)
ELSE
errorstop (falsche stationsnummer)
END IF .
trennfaktor einstellen :
TEXT VAR faktor := "";
editget (t trennfaktor, faktor, "GET/Trennfaktor", "");
IF faktor <> "" THEN
INT CONST fa := int (faktor);
IF fa < 4 OR fa > 20 THEN
errorstop (falscher trennfaktor);
ELSE
hyphenation width (fa)
END IF
END IF .
briefmodus einstellen :
first head (NOT ja (t ersten kopf unterdruecken, "JA/firsthead", FALSE));
last bottom (NOT ja (t letzten fuss unterdruecken, "JA/lastbottom", FALSE)) .
abstand fussnoten einstellen :
TEXT VAR anzahl := "";
editget (t fussabstand, anzahl, "GET/Fussabstand", "");
IF anzahl <> "" THEN
number empty lines before foot (int (anzahl))
END IF .
END PROC text inter;
PROC drucke (TEXT CONST dateiname) :
save (dateiname, druckerstation / druckertask)
END PROC drucke;
PROC editiere (TEXT CONST dateiname) :
IF exists (dateiname) COR neu einrichten THEN
IF NOT exists (dateiname) THEN vorher einrichten END IF;
FILE VAR f := sequential file (modify, dateiname);
edit (f, fenster ganz, "EDIT/Text")
END IF .
neu einrichten :
ja (textdarstellung (dateiname) + t neu einrichten,
"JA/einrichten") .
vorher einrichten :
FILE VAR dummy := sequential file (modify, dateiname) .
END PROC editiere;
PROC ausfuehrung (PROC (TEXT CONST) operation) :
ausfuehrung (name der datei, FALSE, file typ, PROC (TEXT CONST) operation)
END PROC ausfuehrung;
PROC einzelausfuehrung (PROC (TEXT CONST) operation) :
ausfuehrung (name der datei, TRUE, file typ, PROC (TEXT CONST) operation)
END PROC einzelausfuehrung;
(*************************** Programme ***********************************)
LET
p name prozedur = #1500#
"Name der Prozedur:",
p name paket = #1501#
"Name des Pakets:",
t weiter mit taste = #1502#
"*** Weiter mit Taste ***";
PROC programme :
page; bildschirm neu;
BOOL CONST alter umbruch := word wrap;
word wrap (FALSE);
menue anbieten (ROW 6 TEXT : ("ELAN.Erstellen", "ELAN.Permanent",
"EUDAS.Dateien", "EUDAS.Archiv", "", ""),
fenster links, TRUE,
PROC (INT CONST, INT CONST) prog interpreter);
word wrap (alter umbruch);
page; bildschirm neu
END PROC programme;
PROC prog interpreter (INT CONST menuenr, f nr) :
SELECT menuenr OF
CASE 0 : sperren setzen
CASE 1 : erstellen interpreter
CASE 2 : permanent interpreter
CASE 3 : dateiverwaltung (f nr)
CASE 4 : archivverwaltung (menuenr, f nr)
END SELECT .
sperren setzen :
fusszeile ("", "", 35, t datum, 64);
fussteil (3, date) .
erstellen interpreter :
enable stop;
SELECT f nr OF
CASE 0 : fusszeile aktualisieren
CASE 1 : editieren
CASE 2 : ausfuehren
CASE 3 : wiederholen
CASE 4 : drucken
CASE 5 : testinstallation
OTHERWISE ggf dialogfenster loeschen
END SELECT .
ggf dialogfenster loeschen :
IF f nr = -1 THEN dialogfenster loeschen END IF .
editieren :
ausfuehrung (PROC (TEXT CONST) editiere);
dialogfenster loeschen .
drucken :
ausfuehrung (PROC (TEXT CONST) drucke) .
ausfuehren :
ausfuehrung (PROC (TEXT CONST) page and run);
dialogfenster loeschen .
wiederholen :
page;
bildschirm neu;
runagain;
warten auf antwort;
dialogfenster loeschen .
testinstallation :
ausfuehrung (PROC (TEXT CONST) page check on insert);
dialogfenster loeschen .
permanent interpreter :
SELECT f nr OF
CASE 0 : fusszeile aktualisieren
CASE 1 : installieren
CASE 2 : prozedurhilfe
CASE 3 : pakethilfe
CASE 4 : alle pakete
OTHERWISE ggf dialogfenster loeschen
END SELECT .
installieren :
ausfuehrung (PROC (TEXT CONST) page check off insert);
dialogfenster loeschen .
prozedurhilfe :
TEXT VAR prozedurname := "";
editget (p name prozedur, prozedurname, "", "GET/prozedurname");
IF prozedurname <> "" THEN
bildschirm neu;
bitte warten;
help (prozedurname);
dialogfenster loeschen
END IF .
pakethilfe :
prozedurname := "";
editget (p name paket, prozedurname, "", "GET/paketname");
IF prozedurname <> "" THEN
bildschirm neu;
bitte warten;
bulletin (prozedurname);
dialogfenster loeschen
END IF .
alle pakete :
bildschirm neu;
bitte warten;
packets;
dialogfenster loeschen .
END PROC prog interpreter;
PROC warten auf antwort :
TEXT VAR taste;
line; put (t weiter mit taste);
inchar (taste);
line
END PROC warten auf antwort;
PROC page and run (TEXT CONST dateiname) :
bildschirm neu;
page; bitte warten;
check on;
run (dateiname);
warten auf antwort
END PROC page and run;
PROC page check on insert (TEXT CONST dateiname) :
bildschirm neu;
page; bitte warten;
check on;
insert (dateiname);
warten auf antwort
END PROC page check on insert;
PROC page check off insert (TEXT CONST dateiname) :
bildschirm neu;
page; bitte warten;
check off;
insert (dateiname);
warten auf antwort
END PROC page check off insert;
END PACKET flint;
PACKET flint monitor DEFINES
monitor :
PROC monitor :
disable stop;
partner task (1, myself);
continue (niltask);
flint
END PROC monitor;
END PACKET flint monitor;
|