|
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: 1984 (0x7c0) Types: TextFile Notes: Mikados TextFile, Mikados_K Names: »POSTTAK2«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen └─⟦this⟧ »POSTTAK2«
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
@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