DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦a6ec4b037⟧ TextFile

    Length: 1984 (0x7c0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »POSTTAK2«

Derivation

└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »POSTTAK2« 

Text

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

TextFile

@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