|
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: »tcodegen«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »tcodegen«
program tcodegen(output,input,out);
var
n,l:integer;
a:char;
out:file of char;
fil,id:packed arrayÆ1..20Å of char;
procedure txt;
begin
l:=0;
repeat
l:=l+1;
read(a); idÆlÅ:=a;
until a in Æ' ','(',')','.'Å;
end;
begin
open(out,'genjob'); rewrite(out);
while input^<>'.' do begin
txt; fil:=id; n:=l-1;
if l>1 then repeat
txt;
if l>1 then
write(out,
nl,'(q=edit ',fil:n,
nl,'if ok.no',
nl,'copy 42.1)',
nl,'d./prefix ',id:l-1,';/,i/',
nl,'prefix ',id:l-1,';',
nl,'/,l./endbody/,l1,s0,i/',nl,'.',nl,'/,f',
nl,'pascal80 codesize.12000 debugenvir q',
nl,'if ok.no',
nl,'finis',
nl,'plibinsert lib.templib',
nl,'if ok.no',
nl,'finis',
nl,'clear temp templib',
nl,'rename lib.templib;*',nl);
until a=')'
end;
write(out,'end',nl);
close(out);
end
.
▶EOF◀