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

⟦0f641f472⟧

    Length: 925 (0x39d)
    Notes: Mikados TextFile, Mikados_K
    Names: »POSTTAK2«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »POSTTAK2« 
└─⟦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