|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - 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»