|
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 - download
Length: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »VARENUMM.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »VARENUMM.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »VARENUMM.K«
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
0x000…049 Line {l1=0x47, l2=»0010 // ------------------- varenummer --------------------------------«, l3=0x47}
0x049…056 Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x056…067 Line {l1=0x0f, l2=»0030 CURSOR 1,6«, l3=0x0f}
0x067…099 Line {l1=0x30, l2=»0040 INPUT "Indtast varenummer: ":NUMMER«, l3=0x30}
0x099…0a6 Line {l1=0x0b, l2=»0050 PRINT «, l3=0x0b}
0x0a6…0cc Line {l1=0x24, l2=»0060 IF NUMMER<1 OR NUMMER>100 THEN «, l3=0x24}
0x0cc…10e Line {l1=0x40, l2=»0070 PRINT "Vi har desværre ikke nogen vare med det varenummer."«, l3=0x40}
0x10e…138 Line {l1=0x28, l2=»0080 PRINT "Undersøg sagen og kom igen."«, l3=0x28}
0x138…144 Line {l1=0x0a, l2=»0090 ELSE «, l3=0x0a}
0x144…15e Line {l1=0x18, l2=»0095 IF NUMMER<=20 THEN «, l3=0x18}
0x15e…1a5 Line {l1=0x45, l2=»0100 PRINT USING "Varenummer: #### ligger i varegruppe 1. ":NUMMER«, l3=0x45}
0x1a5…1b1 Line {l1=0x0a, l2=»0105 ELSE «, l3=0x0a}
0x1b1…1cb Line {l1=0x18, l2=»0110 IF NUMMER<=40 THEN «, l3=0x18}
0x1cb…212 Line {l1=0x45, l2=»0120 PRINT USING "Varenummer: #### ligger i varegruppe 2. ":NUMMER«, l3=0x45}
0x212…21e Line {l1=0x0a, l2=»0130 ELSE «, l3=0x0a}
0x21e…238 Line {l1=0x18, l2=»0135 IF NUMMER<=60 THEN «, l3=0x18}
0x238…27f Line {l1=0x45, l2=»0140 PRINT USING "Varenummer: #### ligger i varegruppe 3. ":NUMMER«, l3=0x45}
0x27f…28b Line {l1=0x0a, l2=»0150 ELSE «, l3=0x0a}
0x28b…2a5 Line {l1=0x18, l2=»0155 IF NUMMER<=80 THEN «, l3=0x18}
0x2a5…2ec Line {l1=0x45, l2=»0160 PRINT USING "Varenummer: #### ligger i varegruppe 4. ":NUMMER«, l3=0x45}
0x2ec…2f8 Line {l1=0x0a, l2=»0170 ELSE «, l3=0x0a}
0x2f8…313 Line {l1=0x19, l2=»0175 IF NUMMER<=100 THEN «, l3=0x19}
0x313…35a Line {l1=0x45, l2=»0180 PRINT USING "Varenummer: #### ligger i varegruppe 5. ":NUMMER«, l3=0x45}
0x35a…367 Line {l1=0x0b, l2=»0190 ENDIF «, l3=0x0b}
0x367…374 Line {l1=0x0b, l2=»0195 ENDIF «, l3=0x0b}
0x374…381 Line {l1=0x0b, l2=»0196 ENDIF «, l3=0x0b}
0x381…38e Line {l1=0x0b, l2=»0197 ENDIF «, l3=0x0b}
0x38e…39b Line {l1=0x0b, l2=»0198 ENDIF «, l3=0x0b}
0x39b…3a8 Line {l1=0x0b, l2=»0199 ENDIF «, l3=0x0b}
0x3a8…3c0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccc┆
0x3c0…3e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x8…]
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