|
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: 736 (0x2e0)
Notes: Mikados TextFile, Mikados_K
Names: »POSTTAK1«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POSTTAK1«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POSTTAK1«
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