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

⟦d37c8822b⟧ TextFile

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

Derivation

└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
    └─ ⟦this⟧ »VARER2.PAS« 
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─ ⟦this⟧ »VARER2.PAS«

TextFile

      PROGRAM varer2;
      
      VAR
        nummer : INTEGER;
        
      BEGIN
        WRITE(CHR(12), 'Indtast varenummer: '); READLN(nummer);
        WRITELN;
        WRITE('Vare nummer: ', nummer:3, ' ligger i varegruppe ');
        CASE nummer OF
          1  .. 20  : WRITELN('1');
          21 .. 40  : WRITELN('2');
          41 .. 60  : WRITELN('3');
          61 .. 80  : WRITELN('4');
          81 .. 100 : WRITELN('5');
        OTHERWISE
          WRITELN(' *** Forkert varenummer');
        END;
      END.
«eof»