|
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: 3072 (0xc00)
Types: TextFileVerbose
Names: »ecross«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »ecross«
job jaba 7 600 time 3 0 pres no
; editering af crosspas til ncrosspas
; og overs{ttelse
mode list.yes
( ncrosspas = edit crosspas
if ok.no
finis
newcross = set 1 disc
newcross = pascal ncrosspas
if ok.no
finis
cross = move newcross
finis output.no
)
l./version 80./, d, i/
(* version 81.02.23 *)
/
l./pasline,/, i/
bossline, (* boss line number, option bossline.yes *)
/,
l./endline:bool/, i/
bosslines,
/,
l./linenumber=0/, r/0;/maxline; (* force newpage at start *)/,
l./pasline=0/, i/
bosslines = true;
bossline = 0;
/,
l./noof_keywords/,
i/
point = 8;
/,
l2, i/
yes = 'yes';
no = 'no';
line_option = 'bossline';
type
string40 = packed array [ 1..40 ] of char;
/,
l./i,j/, r/i/ii, i/,
l1, r/id/id, id1/,
l./');/, l1,
i/
procedure error(errortext : string40);
begin
if outputfile then close(outputfil);
writeln(errortext);
goto 10; (* fatal error, exit *)
end;
/,
l./outputfilfile/, r/file/ename/,
l./rewrite(outputfil);/,
l./begin/, d, r/writeln/error/, l1, d1,
l./i:=1/, r/i:=1;/
error(' ??? output file must be specified ');
/,
l./i:=system/, r/i/ii/,
l1, r/i mod/ii mod/,
l./open(infil/, i/
if (id = line_option) and (system(i+1, j, id1) div power12 = point) then
error(' ??? input file must be specified ');
/,
l./filename:=id/, l./begin/,
d1, r/writeln/error/, l1, d1,
i/
i := i + 1;
if system(i, j, id) mod power12 = 10 then
(* see if option bossline *)
if id = line_option then
begin
if system(i+1, j, id) mod power12 = 10 then
if (id = yes) or (id = no) then
bosslines := id = yes
else
error(' ??? yes or no expected ');
end;
/,
l./procedure nextsymbol/,
l./(linenumber mod maxline/, d, i/
if linenumber = maxline then newpage;
/,
l./pasline:=pasline+1/, l1, i/
bossline := bossline + 10;
if bosslines then
write(outputfil, bossline : 5);
/,
l./endline:=true;/, d1,
l./infil^=ff/, r/and((linenumber mod maxline)<>0)//,
l./infil^=ff/, r/newpage;/
begin
linenumber := maxline; (* force newpage at next nl *)
endline := false;
if bosslines then
bossline := (bossline + 10) div 1000 * 1000 + 1000;
end
else
begin
endline := true;
writeln(outputfil);
end;
/,
f
«eof»