|
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: 992 (0x3e0)
Notes: Mikados TextFile, Mikados_K
Names: »POSTTAK3«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POSTTAK3«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POSTTAK3«
0010 // ---------------------- posttakst3 ---------------------- 0020 // Udskriver posttakster (indenlands) ved CASE - WHEN - ENDCASE 0025 INTEGER TRUE,FALSE 0026 TRUE:=1;FALSE:=0 0030 CLEAR 0040 CURSOR 1,3 0050 PRINT "Posttakster til indlandet gældende fra 17. maj 1983." 0060 PRINT "-----------------------------------------------------" 0070 PRINT 0080 INPUT "Brevets vægt (ikke over 1000 g): ":VÆGT 0090 PRINT 0100 // -------------------------------------------------------- 0110 CASE TRUE OF 0120 WHEN VÆGT<=20 0130 PORTO:=250 0140 WHEN VÆGT<=100 0150 PORTO:=350 0160 WHEN VÆGT<=250 0170 PORTO:=500 0180 WHEN VÆGT<=500 0190 PORTO:=800 0200 OTHERWISE 0210 PORTO:=1200 0220 ENDCASE 0230 PRINT 0240 PRINT USING "Brevets vægt: ##### g. ":VÆGT 0250 PRINT 0260 PRINT USING "Porto: ####.## kr.":PORTO/100