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 - download

⟦b040901ca⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »TAL.PAS«

Derivation

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

TextFile

program skrivtal;
var
  k:arrayÆ1..100Å of integer;
  i:integer;
  talfil:file of integer;
  begin
  assign(talfil,'b:tal.dat');
  rewrite(talfil);
  i:=0;
  i:=1;
  kÆiÅ:=0;
  repeat
  i:=i+1;
  writeln('Indtast tallene ');read(kÆiÅ);
  write(talfil,i);
  until (kÆiÅ)=0;
  close(talfil);
  end.«eof»