|
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: 736 (0x2e0)
Types: TextFile
Notes: Mikados_K
Names: »POSTTAK1.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POSTTAK1.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POSTTAK1.K«
0010 // ------------------------- posttakst1 ---------------------- 0020 // Lav selv en fejlmelding ved forkert indtastning. 0030 // 0040 CLEAR 0050 CURSOR 1,5 0060 INPUT "Brevets vægt: (ikke over 1000 g) ":VÆGT 0070 IF 0<VÆGT AND VÆGT<=20 THEN PORTO:=250 0080 IF VÆGT>20 AND VÆGT<=100 THEN PORTO:=350 0090 IF VÆGT>100 AND VÆGT<=250 THEN PORTO:=500 0100 IF VÆGT>250 AND VÆGT<=500 THEN PORTO:=800 0110 IF 500<VÆGT AND VÆGT<=1000 THEN PORTO:=1200 0120 CURSOR 1,12 0130 PRINT USING "Brevets vægt: ##### g. ":VÆGT 0140 PRINT USING "Porto: #####.## kr. ":PORTO/100
0x000…045 Line {l1=0x43, l2=»0010 // ------------------------- posttakst1 ----------------------«, l3=0x43}
0x045…07f Line {l1=0x38, l2=»0020 // Lav selv en fejlmelding ved forkert indtastning.«, l3=0x38}
0x07f…089 Line {l1=0x08, l2=»0030 // «, l3=0x08}
0x089…096 Line {l1=0x0b, l2=»0040 CLEAR «, l3=0x0b}
0x096…0a7 Line {l1=0x0f, l2=»0050 CURSOR 1,5«, l3=0x0f}
0x0a7…0de Line {l1=0x35, l2=»0060 INPUT "Brevets vægt: (ikke over 1000 g) ":VÆGT«, l3=0x35}
0x0de…10b Line {l1=0x2b, l2=»0070 IF 0<VÆGT AND VÆGT<=20 THEN PORTO:=250«, l3=0x2b}
0x10b…13a Line {l1=0x2d, l2=»0080 IF VÆGT>20 AND VÆGT<=100 THEN PORTO:=350«, l3=0x2d}
0x13a…16a Line {l1=0x2e, l2=»0090 IF VÆGT>100 AND VÆGT<=250 THEN PORTO:=500«, l3=0x2e}
0x16a…19a Line {l1=0x2e, l2=»0100 IF VÆGT>250 AND VÆGT<=500 THEN PORTO:=800«, l3=0x2e}
0x19a…1cc Line {l1=0x30, l2=»0110 IF 500<VÆGT AND VÆGT<=1000 THEN PORTO:=1200«, l3=0x30}
0x1cc…1de Line {l1=0x10, l2=»0120 CURSOR 1,12«, l3=0x10}
0x1de…222 Line {l1=0x42, l2=»0130 PRINT USING "Brevets vægt: ##### g. ":VÆGT«, l3=0x42}
0x222…26b Line {l1=0x47, l2=»0140 PRINT USING "Porto: #####.## kr. ":PORTO/100«, l3=0x47}
0x26b…280 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccc┆
0x280…2a0 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┆
[…0x2…]