|
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: »tekst«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »tekst«
begin <* program *>
long array ordretabel(1:2);
integer i, ch, code;
long array ordre(1:1);
boolean run;
write(out,<:<10>:>,<:program er startet:>);
outendcur(10);
run:=true;
ordretabel(1):=long<:.ch:>;
ordretabel(2):=long<:.term:>;
while run do
begin
readchar(in,ch);
while ch='sp'do
begin
readchar(in,ch);
end;
repeatchar(in);
readstring(in, ordre, 1);
repeatchar(in);
readchar(in,ch);
if ch='=' then
begin
write(out,<:<10>:>,<:lighedstegn fundet:>);
outendcur(10);
end;
code:=0;
for i:=1 step 1 until 2 do
begin
if ordre(1)= ordretabel(i) then code:=i;
end;
case code+1 of
begin
begin
write(out, <:<10>:>, <:fejl prøv igen:>);
outendcur(10);
end;
begin
write(out, <:<10>:>, <:ændring aktiveret:>);
outendcur(10);
end;
begin
write(out, <:<10>:>, <:program slutter:>);
outendcur(10);
run:=false;
end;
end; <* case *>
end; <* while *>
end <* program *>
▶EOF◀