|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »vores«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »vores«
tekst d.811105.1308
1 begin <* program *>
2 long array ordretabel(1:2);
3 integer i, ch, code;
4 long array ordre(1:1);
5 boolean run;
6 write(out,<:<10>:>,<:program er startet:>);
7 outendcur(10);
8 run:=true;
9 ordretabel(1):=long<:.chan:> add 'g' ;
10 ordretabel(2):=long<:.term:>;
11
11 while run do
12 begin
13 readchar(in,ch);
14 while ch='sp'do
15 begin
16 readchar(in,ch);
17 end;
18 repeatchar(in);
19 readstring(in, ordre, 1);
20 code:=0;
21 for i:=1 step 1 until 2 do
22 begin
23 if ordre(1)= ordretabel(i) then code:=i;
24 end;
25 case code+1 of
26 begin
27 begin
28 write(out, <:<10>:>, <:fejl prøv igen:>);
29 outendcur(10);
30 end;
31 begin
32 write(out, <:<10>:>, <:ændring aktiveret:>);
33 outendcur(10);
34 end;
35 begin
36 write(out, <:<10>:>, <:program slutter:>);
37 outendcur(10);
38 run:=false;
39 end;
40 end; <* case *>
41 end; <* while *>
42 end
algol end 24
***fp name oc
vores transport 78
end 44
▶EOF◀