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

⟦8dfe8c5e0⟧ TextFile

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

Derivation

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─⟦this⟧ »VARER2.PAS«

TextFile

    PROGRAM varer2;
      
      VAR
        nummer : INTEGER;
        
      BEGIN
        WRITE(CLRHOM, '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»