|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 878 (0x36e)
Notes: Mikados TextFile, Mikados_K
Names: »VARENUMM«
└─⟦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«
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