|
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: 768 (0x300)
Types: TextFile
Names: »tsubmit«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦393858ad9⟧ »tsysprog«
└─⟦this⟧
submit=set 40
global submit
submit=algol connect.no
80-07-30
Anders Lindgård
begin
integer i,res,c,char,exm;
array FP,IN,OUT(1:3);
exm:='!';
if readinfp(IN,1) then connectinp(1);
write(out,"nl",1,<:submit begin.:>,"nl",if fpinareas=0 then 1 else 0);
outendcur(0);
connectlso;
if -,readlsfp(OUT) then
begin
movestring(OUT,1,<:job:>);
res:=connectcuro(<:job:>);
if res<>0 then unstackcuro;
end;
readchar(in,exm);
for c:=readchar(in,char) while char<>25 and char<>exm do
begin
if char<>exm then outchar(out,char);
end char;
repeatchar(in);
repeat readchar(in,char) until char=25 or char=10 ;
i:=1;
closeout;
write(out,"nl",1,string OUT(increase(i)),<:=submit end.:>);
end;
lookup submit
global submit
mode list.no 15.no
▶EOF◀