DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦2b6014478⟧

    Length: 878 (0x36e)
    Notes: Mikados TextFile, Mikados_K
    Names: »VARENUMM«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »VARENUMM« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »VARENUMM« 

Text

0010 // ------------------- varenummer --------------------------------
0020 CLEAR 
0030 CURSOR 1,6
0040 INPUT "Indtast varenummer:         ":NUMMER
0050 PRINT 
0060 IF NUMMER<1 OR NUMMER>100 THEN 
0070 PRINT "Vi har desværre ikke nogen vare med det varenummer."
0080 PRINT "Undersøg sagen og kom igen."
0090 ELSE 
0095 IF NUMMER<=20 THEN 
0100 PRINT USING "Varenummer:  #### ligger i varegruppe 1.   ":NUMMER
0105 ELSE 
0110 IF NUMMER<=40 THEN 
0120 PRINT USING "Varenummer:  #### ligger i varegruppe 2.   ":NUMMER
0130 ELSE 
0135 IF NUMMER<=60 THEN 
0140 PRINT USING "Varenummer:  #### ligger i varegruppe 3.   ":NUMMER
0150 ELSE 
0155 IF NUMMER<=80 THEN 
0160 PRINT USING "Varenummer:  #### ligger i varegruppe 4.   ":NUMMER
0170 ELSE 
0175 IF NUMMER<=100 THEN 
0180 PRINT USING "Varenummer:  #### ligger i varegruppe 5.   ":NUMMER
0190 ENDIF 
0195 ENDIF 
0196 ENDIF 
0197 ENDIF 
0198 ENDIF 
0199 ENDIF