DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦6beb694da⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »INDUD.BAK«, »INDUD.PAS«

Derivation

└─⟦8181fe295⟧ Bits:30005924 PolyPascal-80 V3.10 arbejdsdiskette 2
    └─ ⟦this⟧ »INDUD.BAK« 
    └─ ⟦this⟧ »INDUD.PAS«

TextFile

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»