|
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: 4032 (0xfc0)
Types: TextFile
Notes: Mikados_K
Names: »UDLAND.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »UDLAND.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »UDLAND.K«
0010 // ---------------------------- udland ----------------------------- 0020 // 0025 INTEGER TRUE,FALSE 0026 TRUE:=1;FALSE:=0 0030 CLEAR 0040 CURSOR 5,5 0050 PRINT "B R E V P O S T T I L U D L A N D E T ." 0060 CURSOR 5,6 0070 PRINT "-------------------------------------------" 0080 CURSOR 5,12 0090 PRINT "Norden...................................Tast 1." 0100 CURSOR 5,14 0110 PRINT "CEPT-landene.............................Tast 2." 0120 CURSOR 5,16 0130 PRINT "Øvrige udland............................Tast 3." 0140 PRINT 0150 CURSOR 5,18 0160 INPUT "Nummer: ":TAL 0170 CURSOR 5,21 0180 INPUT "Indtast brevets vægt: (ikke over 2000 g.) ":VÆGT 0190 PRINT 0200 IF TAL=1 THEN 0210 CASE TRUE OF 0220 WHEN VÆGT<=20 0230 PORTO:=250 0240 WHEN VÆGT<=100 0250 PORTO:=350 0260 WHEN VÆGT<=250 0270 PORTO:=500 0280 WHEN VÆGT<=500 0290 PORTO:=800 0300 WHEN VÆGT<=1000 0310 PORTO:=3000 0320 WHEN VÆGT<=2000 0330 PORTO:=9000 0340 OTHERWISE 0350 PRINT 0360 PRINT " Dette brev hører vist under pakkeposten. Prøv der." 0370 CURSOR 5,23 0380 END 0390 ENDCASE 0400 PRINT 0410 PRINT USING " Brevets vægt: ####### g. ":VÆGT 0420 PRINT USING " Porto: #####.## kr.":PORTO/100 0430 ELSE 0440 IF TAL=2 OR TAL=3 THEN 0450 CASE TRUE OF 0460 WHEN VÆGT<=20 0470 IF TAL=2 THEN PORTO:=250 0480 IF TAL=3 THEN PORTO:=350 0490 WHEN VÆGT<=100 0500 PORTO:=800 0510 WHEN VÆGT<=100 0520 PORTO:=800 0530 WHEN VÆGT<=250 0540 PORTO:=1700 0550 WHEN VÆGT<=500 0560 PORTO:=3200 0570 WHEN VÆGT<=1000 0580 PORTO:=5600 0590 WHEN VÆGT<=2000 0600 PORTO:=9000 0610 OTHERWISE 0620 PRINT 0630 PRINT " Dette brev bør vist gå med statsbanerne. " 0640 CURSOR 5,23 0650 END 0660 ENDCASE 0670 PRINT USING " Brevets vægt: ######## g. ":VÆGT 0680 PRINT USING " Porto: ######.## kr.":PORTO/100 0690 ELSE 0700 PRINT " Du har vist tastet forkert. Prøv igen." 0710 ENDIF 0720 ENDIF 0730 CURSOR 5,23 0740 END
0x000…04b Line {l1=0x49, l2=»0010 // ---------------------------- udland -----------------------------«, l3=0x49}
0x04b…055 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x055…06e Line {l1=0x17, l2=»0025 INTEGER TRUE,FALSE«, l3=0x17}
0x06e…085 Line {l1=0x15, l2=»0026 TRUE:=1;FALSE:=0«, l3=0x15}
0x085…092 Line {l1=0x0b, l2=»0030 CLEAR «, l3=0x0b}
0x092…0a3 Line {l1=0x0f, l2=»0040 CURSOR 5,5«, l3=0x0f}
0x0a3…0dd Line {l1=0x38, l2=»0050 PRINT "B R E V P O S T T I L U D L A N D E T ."«, l3=0x38}
0x0dd…0ee Line {l1=0x0f, l2=»0060 CURSOR 5,6«, l3=0x0f}
0x0ee…128 Line {l1=0x38, l2=»0070 PRINT "-------------------------------------------"«, l3=0x38}
0x128…13a Line {l1=0x10, l2=»0080 CURSOR 5,12«, l3=0x10}
0x13a…179 Line {l1=0x3d, l2=»0090 PRINT "Norden...................................Tast 1."«, l3=0x3d}
0x179…18b Line {l1=0x10, l2=»0100 CURSOR 5,14«, l3=0x10}
0x18b…1ca Line {l1=0x3d, l2=»0110 PRINT "CEPT-landene.............................Tast 2."«, l3=0x3d}
0x1ca…1dc Line {l1=0x10, l2=»0120 CURSOR 5,16«, l3=0x10}
0x1dc…21b Line {l1=0x3d, l2=»0130 PRINT "Øvrige udland............................Tast 3."«, l3=0x3d}
0x21b…228 Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x228…23a Line {l1=0x10, l2=»0150 CURSOR 5,18«, l3=0x10}
0x23a…27b Line {l1=0x3f, l2=»0160 INPUT "Nummer: ":TAL«, l3=0x3f}
0x27b…28d Line {l1=0x10, l2=»0170 CURSOR 5,21«, l3=0x10}
0x28d…2cf Line {l1=0x40, l2=»0180 INPUT "Indtast brevets vægt: (ikke over 2000 g.) ":VÆGT«, l3=0x40}
0x2cf…2dc Line {l1=0x0b, l2=»0190 PRINT «, l3=0x0b}
0x2dc…2f1 Line {l1=0x13, l2=»0200 IF TAL=1 THEN «, l3=0x13}
0x2f1…305 Line {l1=0x12, l2=»0210 CASE TRUE OF «, l3=0x12}
0x305…319 Line {l1=0x12, l2=»0220 WHEN VÆGT<=20«, l3=0x12}
0x319…32a Line {l1=0x0f, l2=»0230 PORTO:=250«, l3=0x0f}
0x32a…33f Line {l1=0x13, l2=»0240 WHEN VÆGT<=100«, l3=0x13}
0x33f…350 Line {l1=0x0f, l2=»0250 PORTO:=350«, l3=0x0f}
0x350…365 Line {l1=0x13, l2=»0260 WHEN VÆGT<=250«, l3=0x13}
0x365…376 Line {l1=0x0f, l2=»0270 PORTO:=500«, l3=0x0f}
0x376…38b Line {l1=0x13, l2=»0280 WHEN VÆGT<=500«, l3=0x13}
0x38b…39c Line {l1=0x0f, l2=»0290 PORTO:=800«, l3=0x0f}
0x39c…3b2 Line {l1=0x14, l2=»0300 WHEN VÆGT<=1000«, l3=0x14}
0x3b2…3c4 Line {l1=0x10, l2=»0310 PORTO:=3000«, l3=0x10}
0x3c4…3da Line {l1=0x14, l2=»0320 WHEN VÆGT<=2000«, l3=0x14}
0x3da…3ec Line {l1=0x10, l2=»0330 PORTO:=9000«, l3=0x10}
0x3ec…3fd Line {l1=0x0f, l2=»0340 OTHERWISE «, l3=0x0f}
0x3fd…40a Line {l1=0x0b, l2=»0350 PRINT «, l3=0x0b}
0x40a…44f Line {l1=0x43, l2=»0360 PRINT " Dette brev hører vist under pakkeposten. Prøv der."«, l3=0x43}
0x44f…461 Line {l1=0x10, l2=»0370 CURSOR 5,23«, l3=0x10}
0x461…46c Line {l1=0x09, l2=»0380 END «, l3=0x09}
0x46c…47b Line {l1=0x0d, l2=»0390 ENDCASE «, l3=0x0d}
0x47b…488 Line {l1=0x0b, l2=»0400 PRINT «, l3=0x0b}
0x488…4cd Line {l1=0x43, l2=»0410 PRINT USING " Brevets vægt: ####### g. ":VÆGT«, l3=0x43}
0x4cd…517 Line {l1=0x48, l2=»0420 PRINT USING " Porto: #####.## kr.":PORTO/100«, l3=0x48}
0x517…523 Line {l1=0x0a, l2=»0430 ELSE «, l3=0x0a}
0x523…541 Line {l1=0x1c, l2=»0440 IF TAL=2 OR TAL=3 THEN «, l3=0x1c}
0x541…555 Line {l1=0x12, l2=»0450 CASE TRUE OF «, l3=0x12}
0x555…569 Line {l1=0x12, l2=»0460 WHEN VÆGT<=20«, l3=0x12}
0x569…588 Line {l1=0x1d, l2=»0470 IF TAL=2 THEN PORTO:=250«, l3=0x1d}
0x588…5a7 Line {l1=0x1d, l2=»0480 IF TAL=3 THEN PORTO:=350«, l3=0x1d}
0x5a7…5bc Line {l1=0x13, l2=»0490 WHEN VÆGT<=100«, l3=0x13}
0x5bc…5cd Line {l1=0x0f, l2=»0500 PORTO:=800«, l3=0x0f}
0x5cd…5e2 Line {l1=0x13, l2=»0510 WHEN VÆGT<=100«, l3=0x13}
0x5e2…5f3 Line {l1=0x0f, l2=»0520 PORTO:=800«, l3=0x0f}
0x5f3…608 Line {l1=0x13, l2=»0530 WHEN VÆGT<=250«, l3=0x13}
0x608…61a Line {l1=0x10, l2=»0540 PORTO:=1700«, l3=0x10}
0x61a…62f Line {l1=0x13, l2=»0550 WHEN VÆGT<=500«, l3=0x13}
0x62f…641 Line {l1=0x10, l2=»0560 PORTO:=3200«, l3=0x10}
0x641…657 Line {l1=0x14, l2=»0570 WHEN VÆGT<=1000«, l3=0x14}
0x657…669 Line {l1=0x10, l2=»0580 PORTO:=5600«, l3=0x10}
0x669…67f Line {l1=0x14, l2=»0590 WHEN VÆGT<=2000«, l3=0x14}
0x67f…691 Line {l1=0x10, l2=»0600 PORTO:=9000«, l3=0x10}
0x691…6a2 Line {l1=0x0f, l2=»0610 OTHERWISE «, l3=0x0f}
0x6a2…6af Line {l1=0x0b, l2=»0620 PRINT «, l3=0x0b}
0x6af…6eb Line {l1=0x3a, l2=»0630 PRINT " Dette brev bør vist gå med statsbanerne. "«, l3=0x3a}
0x6eb…6fd Line {l1=0x10, l2=»0640 CURSOR 5,23«, l3=0x10}
0x6fd…708 Line {l1=0x09, l2=»0650 END «, l3=0x09}
0x708…717 Line {l1=0x0d, l2=»0660 ENDCASE «, l3=0x0d}
0x717…75a Line {l1=0x41, l2=»0670 PRINT USING " Brevets vægt: ######## g. ":VÆGT«, l3=0x41}
0x75a…7a2 Line {l1=0x46, l2=»0680 PRINT USING " Porto: ######.## kr.":PORTO/100«, l3=0x46}
0x7a2…7ae Line {l1=0x0a, l2=»0690 ELSE «, l3=0x0a}
0x7ae…7e8 Line {l1=0x38, l2=»0700 PRINT " Du har vist tastet forkert. Prøv igen."«, l3=0x38}
0x7e8…7f5 Line {l1=0x0b, l2=»0710 ENDIF «, l3=0x0b}
0x7f5…802 Line {l1=0x0b, l2=»0720 ENDIF «, l3=0x0b}
0x802…814 Line {l1=0x10, l2=»0730 CURSOR 5,23«, l3=0x10}
0x814…81f Line {l1=0x09, l2=»0740 END «, l3=0x09}
0x81f…820 00 ┆ ┆
0x820…840 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 08 30 30 32 30 20 2f 2f 20 08 17 30 30 32 35 20 49 4e 54 45 47 ┆ ---------I 0020 // 0025 INTEG┆
0x840…860 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 ┆ER TRUE,FALSE 0026 TRUE:=1;FALS┆
0x860…880 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 35 ┆E:=0 0030 CLEAR 0040 CURSOR 5┆
0x880…8a0 2c 35 0f 38 30 30 35 30 20 50 52 49 4e 54 20 22 42 20 52 20 45 20 56 20 50 20 4f 20 53 20 54 20 ┆,5 80050 PRINT "B R E V P O S T ┆
0x8a0…8c0 20 20 54 20 49 20 4c 20 20 20 55 20 44 20 4c 20 41 20 4e 20 44 20 45 20 54 20 2e 22 38 0f 30 30 ┆ T I L U D L A N D E T ."8 00┆
0x8c0…8e0 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┆
[…0x37…]