|
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: »bbtest3«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »bbtest3«
job bbl 3 600 control termin5 device 53 size 50000 time 1 20 0 ,
temp disc 500 3 online yes 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,<:termout5:>,0);
opentrans(output,1,0 shift 12 + 1, 1, 0);
writefield(output,1,200);
write(output,<: bo bagger laursen :>);
writefield(output,1,400);
write(output,<: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa :>);
writefield(output,1,500);
write(output,<: bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb :>);
closetrans(output);
open(input,10,<:termin5:>,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◀