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

⟦1df54152d⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »UD6.PAS«

Derivation

└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─ ⟦this⟧ »UD6.PAS«

TextFile

PROGRAM ud6;

(* Programmet viser indlæsning via tastaturet *)
(* og udlæsning på printeren                  *)

VAR
  antal: INTEGER;
  enhedspris: REAL;
  varenavn: STRING(.25.);
    
BEGIN
  WRITE(CHR(12),'Tast varens navn: ');
  READLN(varenavn);
  WRITE('Tast antal enheder: ');
  READLN(antal);
  WRITE('Tast varens enhedspris: '); READLN(enhedspris);
  WRITELN;
  WRITELN(LST,'Varenavn:',varenavn:22);
  WRITELN(LST,'Antal varer:         ',antal:10);
  WRITELN(LST,'Varens enhedspris:   ',enhedspris:10:2);
  WRITELN(LST,'Samlet pris:         ',antal*enhedspris:10:2);
END.
«eof»