|
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: 1984 (0x7c0)
Types: TextFile
Notes: Mikados_K
Names: »POSTTAK2.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POSTTAK2.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »POSTTAK2.K«
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
0x000…042 Line {l1=0x40, l2=»0010 // ---------------------- posttakst2 ----------------------«, l3=0x40}
0x042…04f Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x04f…060 Line {l1=0x0f, l2=»0030 CURSOR 1,3«, l3=0x0f}
0x060…0a3 Line {l1=0x41, l2=»0040 PRINT "Posttakster til indlandet gældende fra 17. maj 1983."«, l3=0x41}
0x0a3…0e7 Line {l1=0x42, l2=»0050 PRINT "-----------------------------------------------------"«, l3=0x42}
0x0e7…0f4 Line {l1=0x0b, l2=»0060 PRINT «, l3=0x0b}
0x0f4…133 Line {l1=0x3d, l2=»0070 INPUT "Brevets vægt (ikke over 1000 g): ":VÆGT«, l3=0x3d}
0x133…140 Line {l1=0x0b, l2=»0080 PRINT «, l3=0x0b}
0x140…182 Line {l1=0x40, l2=»0090 // --------------------------------------------------------«, l3=0x40}
0x182…1a6 Line {l1=0x22, l2=»0100 IF 0<=VÆGT AND VÆGT<=20 THEN «, l3=0x22}
0x1a6…1b7 Line {l1=0x0f, l2=»0110 PORTO:=250«, l3=0x0f}
0x1b7…1c3 Line {l1=0x0a, l2=»0120 ELSE «, l3=0x0a}
0x1c3…1dc Line {l1=0x17, l2=»0125 IF VÆGT<=100 THEN «, l3=0x17}
0x1dc…1ed Line {l1=0x0f, l2=»0130 PORTO:=350«, l3=0x0f}
0x1ed…1f9 Line {l1=0x0a, l2=»0140 ELSE «, l3=0x0a}
0x1f9…212 Line {l1=0x17, l2=»0145 IF VÆGT<=250 THEN «, l3=0x17}
0x212…223 Line {l1=0x0f, l2=»0150 PORTO:=500«, l3=0x0f}
0x223…22f Line {l1=0x0a, l2=»0160 ELSE «, l3=0x0a}
0x22f…248 Line {l1=0x17, l2=»0165 IF VÆGT<=500 THEN «, l3=0x17}
0x248…259 Line {l1=0x0f, l2=»0170 PORTO:=800«, l3=0x0f}
0x259…265 Line {l1=0x0a, l2=»0180 ELSE «, l3=0x0a}
0x265…28c Line {l1=0x25, l2=»0185 IF 500<VÆGT AND VÆGT<=1000 THEN «, l3=0x25}
0x28c…29e Line {l1=0x10, l2=»0190 PORTO:=1200«, l3=0x10}
0x29e…2aa Line {l1=0x0a, l2=»0200 ELSE «, l3=0x0a}
0x2aa…2e4 Line {l1=0x38, l2=»0210 PRINT "Forkert indtastet. Lav selv en fejlmelding!"«, l3=0x38}
0x2e4…2ef Line {l1=0x09, l2=»0220 END «, l3=0x09}
0x2ef…2fc Line {l1=0x0b, l2=»0230 ENDIF «, l3=0x0b}
0x2fc…309 Line {l1=0x0b, l2=»0231 ENDIF «, l3=0x0b}
0x309…316 Line {l1=0x0b, l2=»0232 ENDIF «, l3=0x0b}
0x316…323 Line {l1=0x0b, l2=»0233 ENDIF «, l3=0x0b}
0x323…330 Line {l1=0x0b, l2=»0234 ENDIF «, l3=0x0b}
0x330…33d Line {l1=0x0b, l2=»0240 PRINT «, l3=0x0b}
0x33d…387 Line {l1=0x48, l2=»0250 PRINT USING "Brevets vægt: ##### g. ":VÆGT«, l3=0x48}
0x387…394 Line {l1=0x0b, l2=»0260 PRINT «, l3=0x0b}
0x394…3e3 Line {l1=0x4d, l2=»0270 PRINT USING "Porto: #####.## kr.":PORTO/100«, l3=0x4d}
0x3e3…400 00 00 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆ // ---------------------- ┆
0x400…420 70 6f 73 74 74 61 6b 73 74 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆posttakst2 ---------------------┆
0x420…440 2d 40 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 0f 30 30 33 30 20 43 55 52 53 4f 52 20 31 2c 33 0f ┆-@ 0020 CLEAR 0030 CURSOR 1,3 ┆
0x440…460 41 30 30 34 30 20 50 52 49 4e 54 20 22 50 6f 73 74 74 61 6b 73 74 65 72 20 74 69 6c 20 69 6e 64 ┆A0040 PRINT "Posttakster til ind┆
0x460…480 6c 61 6e 64 65 74 20 67 7b 6c 64 65 6e 64 65 20 66 72 61 20 31 37 2e 20 6d 61 6a 20 31 39 38 33 ┆landet gældende fra 17. maj 1983┆
0x480…4a0 2e 22 41 42 30 30 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆."AB0050 PRINT "----------------┆
0x4a0…4c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x4c0…4e0 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┆
[…0x17…]
@0010 // ---------------------- posttakst2 ----------------------@▶0b◀0020 CLEAR ▶0b◀▶0f◀0030 CURSOR 1,3▶0f◀A0040 PRINT "Posttakster til indlandet gældende fra 17. maj 1983."AB0050 PRINT "-----------------------------------------------------"B▶0b◀0060 PRINT ▶0b◀=0070 INPUT "Brevets vægt (ikke over 1000 g): ":VÆGT=▶0b◀0080 PRINT ▶0b◀@0090 // --------------------------------------------------------@"0100 IF 0<=VÆGT AND VÆGT<=20 THEN "▶0f◀0110 PORTO:=250▶0f◀ 0120 ELSE ▶17◀0125 IF VÆGT<=100 THEN ▶17◀▶0f◀0130 PORTO:=350▶0f◀ 0140 ELSE ▶17◀0145 IF VÆGT<=250 THEN ▶17◀▶0f◀0150 PORTO:=500▶0f◀ 0160 ELSE ▶17◀0165 IF VÆGT<=500 THEN ▶17◀▶0f◀0170 PORTO:=800▶0f◀ 0180 ELSE %0185 IF 500<VÆGT AND VÆGT<=1000 THEN %▶10◀0190 PORTO:=1200▶10◀ 0200 ELSE 80210 PRINT "Forkert indtastet. Lav selv en fejlmelding!"8 0220 END ▶0b◀0230 ENDIF ▶0b◀▶0b◀0231 ENDIF ▶0b◀▶0b◀0232 ENDIF ▶0b◀▶0b◀0233 ENDIF ▶0b◀▶0b◀0234 ENDIF ▶0b◀▶0b◀0240 PRINT ▶0b◀H0250 PRINT USING "Brevets vægt: ##### g. ":VÆGTH▶0b◀0260 PRINT ▶0b◀M0270 PRINT USING "Porto: #####.## kr.":PORTO/100M▶00◀▶00◀ // ---------------------- posttakst2 ----------------------@▶0b◀0020 CLEAR ▶0b◀▶0f◀0030 CURSOR 1,3▶0f◀A0040 PRINT "Posttakster til indlandet gældende fra 17. maj 1983."AB0050 PRINT "------------------------------------------------cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc