|
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: 992 (0x3e0)
Types: TextFile
Notes: Mikados_K
Names: »POSTTAK3.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POSTTAK3.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POSTTAK3.K«
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
0x000…042 Line {l1=0x40, l2=»0010 // ---------------------- posttakst3 ----------------------«, l3=0x40}
0x042…088 Line {l1=0x44, l2=»0020 // Udskriver posttakster (indenlands) ved CASE - WHEN - ENDCASE«, l3=0x44}
0x088…0a1 Line {l1=0x17, l2=»0025 INTEGER TRUE,FALSE«, l3=0x17}
0x0a1…0b8 Line {l1=0x15, l2=»0026 TRUE:=1;FALSE:=0«, l3=0x15}
0x0b8…0c5 Line {l1=0x0b, l2=»0030 CLEAR «, l3=0x0b}
0x0c5…0d6 Line {l1=0x0f, l2=»0040 CURSOR 1,3«, l3=0x0f}
0x0d6…119 Line {l1=0x41, l2=»0050 PRINT "Posttakster til indlandet gældende fra 17. maj 1983."«, l3=0x41}
0x119…15d Line {l1=0x42, l2=»0060 PRINT "-----------------------------------------------------"«, l3=0x42}
0x15d…16a Line {l1=0x0b, l2=»0070 PRINT «, l3=0x0b}
0x16a…1a9 Line {l1=0x3d, l2=»0080 INPUT "Brevets vægt (ikke over 1000 g): ":VÆGT«, l3=0x3d}
0x1a9…1b6 Line {l1=0x0b, l2=»0090 PRINT «, l3=0x0b}
0x1b6…1f8 Line {l1=0x40, l2=»0100 // --------------------------------------------------------«, l3=0x40}
0x1f8…20c Line {l1=0x12, l2=»0110 CASE TRUE OF «, l3=0x12}
0x20c…220 Line {l1=0x12, l2=»0120 WHEN VÆGT<=20«, l3=0x12}
0x220…231 Line {l1=0x0f, l2=»0130 PORTO:=250«, l3=0x0f}
0x231…246 Line {l1=0x13, l2=»0140 WHEN VÆGT<=100«, l3=0x13}
0x246…257 Line {l1=0x0f, l2=»0150 PORTO:=350«, l3=0x0f}
0x257…26c Line {l1=0x13, l2=»0160 WHEN VÆGT<=250«, l3=0x13}
0x26c…27d Line {l1=0x0f, l2=»0170 PORTO:=500«, l3=0x0f}
0x27d…292 Line {l1=0x13, l2=»0180 WHEN VÆGT<=500«, l3=0x13}
0x292…2a3 Line {l1=0x0f, l2=»0190 PORTO:=800«, l3=0x0f}
0x2a3…2b4 Line {l1=0x0f, l2=»0200 OTHERWISE «, l3=0x0f}
0x2b4…2c6 Line {l1=0x10, l2=»0210 PORTO:=1200«, l3=0x10}
0x2c6…2d5 Line {l1=0x0d, l2=»0220 ENDCASE «, l3=0x0d}
0x2d5…2e2 Line {l1=0x0b, l2=»0230 PRINT «, l3=0x0b}
0x2e2…32c Line {l1=0x48, l2=»0240 PRINT USING "Brevets vægt: ##### g. ":VÆGT«, l3=0x48}
0x32c…339 Line {l1=0x0b, l2=»0250 PRINT «, l3=0x0b}
0x339…388 Line {l1=0x4d, l2=»0260 PRINT USING "Porto: ####.## kr.":PORTO/100«, l3=0x4d}
0x388…3a0 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┆
0x3a0…3c0 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┆
[…0x1…]