|
DataMuseum.dkPresents historical artifacts from the history of: DANOSI |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DANOSI Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 823 (0x337)
Types: TextFile
Names: »NOTEST.PAS«
└─⟦02956c927⟧ Bits:30010510 DVBS1.SW2114.src.2.14-1 SW2114 REAL #1/4 TIME PASCAL SOURCE REL 2.14
└─⟦this⟧ »RTP\NOTEST.PAS«
└─⟦4f587ad96⟧ Bits:30010518 DVBS1.SW2114.src.2.7-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
└─⟦this⟧ »RTP\NOTEST.PAS«
└─⟦a2a9e188c⟧ Bits:30010526 DVBS1.SW2114.src.2.6-4 RTP Compiler Source SW2104+SW2114 Disk 1 92.02.03 HEJ HHA
└─⟦this⟧ »RTP\NOTEST.PAS«
└─⟦b607d6035⟧ Bits:30010532 RTP compiler Source 1 2.14 26/9(?)-92 DVBS1.SW2114.src.2.14-8
└─⟦this⟧ »NOTEST.PAS«
└─⟦fd2665794⟧ Bits:30010523 DVBS1.SW2114.src.2.6-1 RTP compiler source SW2104+SW2114 Disk#1 30/1-92 HHA
└─⟦this⟧ »RTP\NOTEST.PAS«
program notest;\r
var s1,s2:string[100];\r
infile, outfile: text;\r
line : string;\r
on : boolean;\r
begin\r
s1:=paramstr(1);\r
s2:=s1 + '.pas';\r
assign(infile,s2);\r
s2:=s1 + '.ppp';\r
assign(outfile,s2);\r
reset(infile);\r
rewrite(outfile);\r
s1:=paramstr(2);\r
if s1 = 'on' then on := true else on := false;\r
s1:='#BEGINTEST';\r
s2:='#begintest';\r
while not eof(infile) do\r
begin\r
readln(infile,line);\r
if (pos(s1,line) > 0) or (pos(s2,line) > 0) then\r
BEGIN\r
if on then\r
BEGIN\r
if pos('*)',line) = 0 then\r
line := line + '*)';\r
end\r
else\r
if pos('*)',line) > 0 then\r
delete(line, pos('*)',line),2)\r
else\r
begin\r
writeln('****** ERROR*****');\r
halt(300);\r
end;\r
END;\r
writeln(outfile,line);\r
end;\r
close(infile);\r
close(outfile);\r
end.\r
«eof»