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

⟦e217d7ced⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    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« 

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 

G0010 // ------------------- varenummer --------------------------------G▶0b◀0020 CLEAR ▶0b◀▶0f◀0030 CURSOR 1,6▶0f◀00040 INPUT "Indtast varenummer:         ":NUMMER0▶0b◀0050 PRINT ▶0b◀$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 
▶18◀0095 IF NUMMER<=20 THEN ▶18◀E0100 PRINT USING "Varenummer:  #### ligger i varegruppe 1.   ":NUMMERE
0105 ELSE 
▶18◀0110 IF NUMMER<=40 THEN ▶18◀E0120 PRINT USING "Varenummer:  #### ligger i varegruppe 2.   ":NUMMERE
0130 ELSE 
▶18◀0135 IF NUMMER<=60 THEN ▶18◀E0140 PRINT USING "Varenummer:  #### ligger i varegruppe 3.   ":NUMMERE
0150 ELSE 
▶18◀0155 IF NUMMER<=80 THEN ▶18◀E0160 PRINT USING "Varenummer:  #### ligger i varegruppe 4.   ":NUMMERE
0170 ELSE 
▶19◀0175 IF NUMMER<=100 THEN ▶19◀E0180 PRINT USING "Varenummer:  #### ligger i varegruppe 5.   ":NUMMERE▶0b◀0190 ENDIF ▶0b◀▶0b◀0195 ENDIF ▶0b◀▶0b◀0196 ENDIF ▶0b◀▶0b◀0197 ENDIF ▶0b◀▶0b◀0198 ENDIF ▶0b◀▶0b◀0199 ENDIF ▶0b◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc