dlugolecki.net.pl
Dziennik
Polecane
Software
projects
/
vlp.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Changed directory structure.
[vlp.git]
/
doc
/
examples
/
remote.log
1
program remote;
2
3
4
unit MyProcess:process(n:integer);
5
var koniec:boolean;
6
unit Destroy:procedure;
7
begin
8
koniec:=TRUE;
9
end Destroy;
10
11
unit WriteChar:procedure(a:char);
12
begin
13
write(a);
14
end WriteChar;
15
16
begin
17
koniec:=FALSE;
18
enable Destroy;
19
writeln("READY");
20
return;
21
while not koniec do
22
accept WriteChar;
23
od;
24
writeln;
25
writeln("END");
26
27
end MyProcess;
28
29
var p:MyProcess,i:integer;
30
begin
31
pref IIUWGRAPH block
32
begin
33
p:=new MyProcess(5);
34
resume(p);
35
i:=inkey;
36
while i<>ord('q') do
37
if i<>0 then call p.WriteChar(chr(i)); write(chr(i)); fi;
38
39
i:=inkey;
40
od;
41
call p.Destroy;
42
end;
43
end.
\0
\0