|
DataMuseum.dkPresents historical artifacts from the history of: RC3500 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC3500 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFileVerbose
Names: »bbtest1«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »bbtest1«
job bbl 1 600 control termin3 device 51 size 50000 time 1 20 0 ,
temp disc 500 3 prio 2
mode list.yes
p = algol
begin
zone input , output (128,1,stderror);
integer i,a,aid,cursor,fieldtype,address,format,destination,char,antal;
open(output,14,<:termout3:>,0);
open(input,10,<:termin3:>,0);
next:
waittrans(input,format,destination,aid,cursor);
opentrans(output,format,0 shift 12 + 1,aid,cursor);
nextfield:
readfield(input,fieldtype,address);
if fieldtype = 7 or fieldtype = 0 then
begin
closetrans(output);
goto next
end;
writefield(output,fieldtype,address);
for a := readchar(input,char) while char<>25 or a <>8 do outchar(output,char);
goto nextfield;
end
p
finis
«eof»