|
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: 2496 (0x9c0)
Types: TextFile
Notes: Mikados_K
Names: »PAKKEPOS.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PAKKEPOS.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PAKKEPOS.K«
0010 // ---------------------------- pakkepost -------------------------- 0020 // 0025 INTEGER TRUE,FALSE 0026 TRUE:=1;FALSE:=0 0030 CLEAR 0035 PRINT 0040 INPUT "Pakkens vægt: (ikke over 20 kg.) ":VÆGT 0050 PRINT 0060 INPUT "Er pakken almindelig (takst 1) eller voluminøs (takst 2): ":TAL 0070 PRINT 0080 IF TAL=1 THEN 0090 CASE TRUE OF 0100 WHEN VÆGT<=5 0110 PORTO:=1600 0120 WHEN VÆGT<=10 0130 PORTO:=3000 0140 WHEN VÆGT<=15 0150 PORTO:=5000 0160 WHEN VÆGT<=20 0170 PORTO:=6000 0180 OTHERWISE 0190 PRINT 0200 PRINT "Denne pakke hører vist under en vognmand ( eller Falck)." 0210 END 0220 ENDCASE 0230 PRINT 0240 PRINT USING "Pakkens vægt: ####.## kg.":VÆGT 0250 PRINT USING "Porto: #####.## kr.":PORTO/100 0260 ELSE 0270 IF TAL=2 THEN 0280 CASE TRUE OF 0290 WHEN VÆGT<=5 0300 PORTO:=3200 0310 WHEN VÆGT<=10 0320 PORTO:=6000 0330 WHEN VÆGT<=15 0340 PORTO:=10000 0350 WHEN VÆGT<=20 0360 PORTO:=12000 0370 OTHERWISE 0380 PRINT 0390 PRINT "Denne pakke bør vist transporteres med fragtbåd." 0400 END 0410 ENDCASE 0420 PRINT USING "Pakkens vægt: #####.## kg.":VÆGT 0430 PRINT USING "Porto: ######.## kr.":PORTO/100 0440 ELSE 0450 PRINT "Du har vist tastet forkert. Prøv igen." 0460 ENDIF 0470 ENDIF
0x000…04b Line {l1=0x49, l2=»0010 // ---------------------------- pakkepost --------------------------«, 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…09f Line {l1=0x0b, l2=»0035 PRINT «, l3=0x0b}
0x09f…0e7 Line {l1=0x46, l2=»0040 INPUT "Pakkens vægt: (ikke over 20 kg.) ":VÆGT«, l3=0x46}
0x0e7…0f4 Line {l1=0x0b, l2=»0050 PRINT «, l3=0x0b}
0x0f4…141 Line {l1=0x4b, l2=»0060 INPUT "Er pakken almindelig (takst 1) eller voluminøs (takst 2): ":TAL«, l3=0x4b}
0x141…14e Line {l1=0x0b, l2=»0070 PRINT «, l3=0x0b}
0x14e…163 Line {l1=0x13, l2=»0080 IF TAL=1 THEN «, l3=0x13}
0x163…177 Line {l1=0x12, l2=»0090 CASE TRUE OF «, l3=0x12}
0x177…18a Line {l1=0x11, l2=»0100 WHEN VÆGT<=5«, l3=0x11}
0x18a…19c Line {l1=0x10, l2=»0110 PORTO:=1600«, l3=0x10}
0x19c…1b0 Line {l1=0x12, l2=»0120 WHEN VÆGT<=10«, l3=0x12}
0x1b0…1c2 Line {l1=0x10, l2=»0130 PORTO:=3000«, l3=0x10}
0x1c2…1d6 Line {l1=0x12, l2=»0140 WHEN VÆGT<=15«, l3=0x12}
0x1d6…1e8 Line {l1=0x10, l2=»0150 PORTO:=5000«, l3=0x10}
0x1e8…1fc Line {l1=0x12, l2=»0160 WHEN VÆGT<=20«, l3=0x12}
0x1fc…20e Line {l1=0x10, l2=»0170 PORTO:=6000«, l3=0x10}
0x20e…21f Line {l1=0x0f, l2=»0180 OTHERWISE «, l3=0x0f}
0x21f…22c Line {l1=0x0b, l2=»0190 PRINT «, l3=0x0b}
0x22c…273 Line {l1=0x45, l2=»0200 PRINT "Denne pakke hører vist under en vognmand ( eller Falck)."«, l3=0x45}
0x273…27e Line {l1=0x09, l2=»0210 END «, l3=0x09}
0x27e…28d Line {l1=0x0d, l2=»0220 ENDCASE «, l3=0x0d}
0x28d…29a Line {l1=0x0b, l2=»0230 PRINT «, l3=0x0b}
0x29a…2db Line {l1=0x3f, l2=»0240 PRINT USING "Pakkens vægt: ####.## kg.":VÆGT«, l3=0x3f}
0x2db…321 Line {l1=0x44, l2=»0250 PRINT USING "Porto: #####.## kr.":PORTO/100«, l3=0x44}
0x321…32d Line {l1=0x0a, l2=»0260 ELSE «, l3=0x0a}
0x32d…342 Line {l1=0x13, l2=»0270 IF TAL=2 THEN «, l3=0x13}
0x342…356 Line {l1=0x12, l2=»0280 CASE TRUE OF «, l3=0x12}
0x356…369 Line {l1=0x11, l2=»0290 WHEN VÆGT<=5«, l3=0x11}
0x369…37b Line {l1=0x10, l2=»0300 PORTO:=3200«, l3=0x10}
0x37b…38f Line {l1=0x12, l2=»0310 WHEN VÆGT<=10«, l3=0x12}
0x38f…3a1 Line {l1=0x10, l2=»0320 PORTO:=6000«, l3=0x10}
0x3a1…3b5 Line {l1=0x12, l2=»0330 WHEN VÆGT<=15«, l3=0x12}
0x3b5…3c8 Line {l1=0x11, l2=»0340 PORTO:=10000«, l3=0x11}
0x3c8…3dc Line {l1=0x12, l2=»0350 WHEN VÆGT<=20«, l3=0x12}
0x3dc…3ef Line {l1=0x11, l2=»0360 PORTO:=12000«, l3=0x11}
0x3ef…400 Line {l1=0x0f, l2=»0370 OTHERWISE «, l3=0x0f}
0x400…40d Line {l1=0x0b, l2=»0380 PRINT «, l3=0x0b}
0x40d…44c Line {l1=0x3d, l2=»0390 PRINT "Denne pakke bør vist transporteres med fragtbåd."«, l3=0x3d}
0x44c…457 Line {l1=0x09, l2=»0400 END «, l3=0x09}
0x457…466 Line {l1=0x0d, l2=»0410 ENDCASE «, l3=0x0d}
0x466…4a5 Line {l1=0x3d, l2=»0420 PRINT USING "Pakkens vægt: #####.## kg.":VÆGT«, l3=0x3d}
0x4a5…4e9 Line {l1=0x42, l2=»0430 PRINT USING "Porto: ######.## kr.":PORTO/100«, l3=0x42}
0x4e9…4f5 Line {l1=0x0a, l2=»0440 ELSE «, l3=0x0a}
0x4f5…52a Line {l1=0x33, l2=»0450 PRINT "Du har vist tastet forkert. Prøv igen."«, l3=0x33}
0x52a…537 Line {l1=0x0b, l2=»0460 ENDIF «, l3=0x0b}
0x537…544 Line {l1=0x0b, l2=»0470 ENDIF «, l3=0x0b}
0x544…560 00 00 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 ┆ E,FALSE 0026 TRUE:=1;FALS┆
0x560…580 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0b 30 30 33 35 20 50 52 49 4e 54 20 0b 46 ┆E:=0 0030 CLEAR 0035 PRINT F┆
0x580…5a0 30 30 34 30 20 49 4e 50 55 54 20 22 50 61 6b 6b 65 6e 73 20 76 7b 67 74 3a 20 20 20 20 28 69 6b ┆0040 INPUT "Pakkens vægt: (ik┆
0x5a0…5c0 6b 65 20 6f 76 65 72 20 32 30 20 6b 67 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ke over 20 kg.) ┆
0x5c0…5e0 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┆
[…0x1f…]
I0010 // ---------------------------- pakkepost --------------------------I▶08◀0020 // ▶08◀▶17◀0025 INTEGER TRUE,FALSE▶17◀▶15◀0026 TRUE:=1;FALSE:=0▶15◀▶0b◀0030 CLEAR ▶0b◀▶0b◀0035 PRINT ▶0b◀F0040 INPUT "Pakkens vægt: (ikke over 20 kg.) ":VÆGTF▶0b◀0050 PRINT ▶0b◀K0060 INPUT "Er pakken almindelig (takst 1) eller voluminøs (takst 2): ":TALK▶0b◀0070 PRINT ▶0b◀▶13◀0080 IF TAL=1 THEN ▶13◀▶12◀0090 CASE TRUE OF ▶12◀▶11◀0100 WHEN VÆGT<=5▶11◀▶10◀0110 PORTO:=1600▶10◀▶12◀0120 WHEN VÆGT<=10▶12◀▶10◀0130 PORTO:=3000▶10◀▶12◀0140 WHEN VÆGT<=15▶12◀▶10◀0150 PORTO:=5000▶10◀▶12◀0160 WHEN VÆGT<=20▶12◀▶10◀0170 PORTO:=6000▶10◀▶0f◀0180 OTHERWISE ▶0f◀▶0b◀0190 PRINT ▶0b◀E0200 PRINT "Denne pakke hører vist under en vognmand ( eller Falck)."E 0210 END \r0220 ENDCASE \r▶0b◀0230 PRINT ▶0b◀?0240 PRINT USING "Pakkens vægt: ####.## kg.":VÆGT?D0250 PRINT USING "Porto: #####.## kr.":PORTO/100D 0260 ELSE ▶13◀0270 IF TAL=2 THEN ▶13◀▶12◀0280 CASE TRUE OF ▶12◀▶11◀0290 WHEN VÆGT<=5▶11◀▶10◀0300 PORTO:=3200▶10◀▶12◀0310 WHEN VÆGT<=10▶12◀▶10◀0320 PORTO:=6000▶10◀▶12◀0330 WHEN VÆGT<=15▶12◀▶11◀0340 PORTO:=10000▶11◀▶12◀0350 WHEN VÆGT<=20▶12◀▶11◀0360 PORTO:=12000▶11◀▶0f◀0370 OTHERWISE ▶0f◀▶0b◀0380 PRINT ▶0b◀=0390 PRINT "Denne pakke bør vist transporteres med fragtbåd."= 0400 END \r0410 ENDCASE \r=0420 PRINT USING "Pakkens vægt: #####.## kg.":VÆGT=B0430 PRINT USING "Porto: ######.## kr.":PORTO/100B 0440 ELSE 30450 PRINT "Du har vist tastet forkert. Prøv igen."3▶0b◀0460 ENDIF ▶0b◀▶0b◀0470 ENDIF ▶0b◀▶00◀▶00◀E,FALSE▶17◀▶15◀0026 TRUE:=1;FALSE:=0▶15◀▶0b◀0030 CLEAR ▶0b◀▶0b◀0035 PRINT ▶0b◀F0040 INPUT "Pakkens vægt: (ikke over 20 kg.) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc