Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
|
|
@ -0,0 +1,20 @@
|
|||
SIMULATION
|
||||
BEGIN
|
||||
|
||||
PROCESS CLASS SORTITEM(N); INTEGER N;
|
||||
BEGIN
|
||||
HOLD(N);
|
||||
OUTINT(N, 3);
|
||||
END;
|
||||
|
||||
INTEGER I;
|
||||
FOR I := 3, 2, 4, 7, 3, 6, 9, 1 DO
|
||||
BEGIN
|
||||
REF(SORTITEM) SI;
|
||||
SI :- NEW SORTITEM(I);
|
||||
ACTIVATE SI;
|
||||
END;
|
||||
HOLD(100000);
|
||||
OUTIMAGE;
|
||||
|
||||
END;
|
||||
Loading…
Add table
Add a link
Reference in a new issue