DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »teststms«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »teststms« 

TextFile

job btj 1 time 3 0 size 90000

pascal80 stop.4
(*$1 1 1*)(*$5 4 0*)(*$6 1 1*)
process fut;

procedure fut (var i: integer);
var
re : reference;
txt : array (1..50) of char;
begin
i := succ (pred(i));
txt := '  ';
end;

var
i : integer;
ia : array (1..2) of integer;

stor : array (3..5) of
record
poo : pool 1;
sem : semaphore;
re  : reference;
sh  : shadow;
ptr : ^ integer;
end;

poo : pool 2;
sem : semaphore;
re  : reference;
sh  : shadow;
ptr : ^ integer;

begin
while i=i do i:=1;
lock re as s: integer do s:=1;
re :=: re;
if i=2 then i:=3
else i:=4;
if i=5 then i:=6;
repeat i:=7 until i=8;
for ia(1) := 1 to 2 do i:=9;
case true of
false: i:=1;
true:  i:=2;
end;
case true of
true:  i:=3;
false: i:=4;
otherwise i:=5;
end;
case true of otherwise i:=6; end;
case 1 of
5..8: i:=5;
4..5: i:=4;
2..4: i:=2;
9:    i:=9;
end;
end.

scope login pass4code
finis
▶EOF◀