|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »INDUD.BAK«, »INDUD.PAS«
└─⟦8181fe295⟧ Bits:30005924 PolyPascal-80 V3.10 arbejdsdiskette 2
└─⟦this⟧ »INDUD.BAK«
└─⟦this⟧ »INDUD.PAS«
program indud;
var
indfil,udfil:text;
indstreng,udstreng:string (.255.);
i:integer;
begin
assign(indfil,'a:work.pas');
assign(udfil,'a:krow.sap');
reset(indfil);rewrite(udfil);
repeat
while not eof(indfil) do
begin
read(indfil,indstreng);while len(indstreng)>0 do
begin
udstreng:=copy(indstreng,1,pos(' ',indstreng));
writeln(udfil,udstreng);
writeln(udfil);writeln(udstreng);
delete(indstreng,1,pos(' ',indstreng));
end;
readln(indfil);
end;
until eof;
close(indfil);
close(udfil);
end.
«eof»