|
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: 925 (0x39d)
Notes: Mikados TextFile, Mikados_K
Names: »POSTTAK2«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POSTTAK2«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POSTTAK2«
0010 // ---------------------- posttakst2 ---------------------- 0020 CLEAR 0030 CURSOR 1,3 0040 PRINT "Posttakster til indlandet gældende fra 17. maj 1983." 0050 PRINT "-----------------------------------------------------" 0060 PRINT 0070 INPUT "Brevets vægt (ikke over 1000 g): ":VÆGT 0080 PRINT 0090 // -------------------------------------------------------- 0100 IF 0<=VÆGT AND VÆGT<=20 THEN 0110 PORTO:=250 0120 ELSE 0125 IF VÆGT<=100 THEN 0130 PORTO:=350 0140 ELSE 0145 IF VÆGT<=250 THEN 0150 PORTO:=500 0160 ELSE 0165 IF VÆGT<=500 THEN 0170 PORTO:=800 0180 ELSE 0185 IF 500<VÆGT AND VÆGT<=1000 THEN 0190 PORTO:=1200 0200 ELSE 0210 PRINT "Forkert indtastet. Lav selv en fejlmelding!" 0220 END 0230 ENDIF 0231 ENDIF 0232 ENDIF 0233 ENDIF 0234 ENDIF 0240 PRINT 0250 PRINT USING "Brevets vægt: ##### g. ":VÆGT 0260 PRINT 0270 PRINT USING "Porto: #####.## kr.":PORTO/100