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

⟦510f0f37a⟧ TextFile

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

Derivation

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

TextFile

program tempconv;
var
  c,i,j:integer;
begin
  for i:=1 to 7 do write(output, 'C' :5, 'F' :5, ' ');
  writeln(output);
  for i:=0 to 22
  do begin
       c:=i;
       for j:=1 to 7
       do begin
            write(output, c: 5, round(1.8*c+32): 5, ' ');
            c:=c+23;
           end;
        writeln(output);
       end;
end.
«eof»