DataMuseum.dk

Presents historical artifacts from the history of:

Jet Computer Jet80

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

See our Wiki for more about Jet Computer Jet80

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦1afa1cfb7⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »INDTAL.PAS«

Derivation

└─⟦692ac107c⟧ Bits:30005923 PolyPascal-80 V3.10 arbejdsdiskette 1
    └─⟦this⟧ »INDTAL.PAS«

TextFile

PROGRAM talind;
LABEL x;
VAR
  laes,i : integer;
  textfil :  text;
  filnavn :string(.12.);
  BEGIN
    WRITE(clrhom);
    WRITE('Hvad skal filen hedde? ');readln(filnavn);
     assign(textfil,filnavn);  
      rewrite(textfil);
      REPEAT
       WRITE('Indl▶91◀s tallet ');readln(laes);
       IF laes=0 THEN GOTO x;
       WRITE(textfil,laes);
        WRITELN(textfil);
      UNTIL laes=0;
  x:close(textfil);
  END.