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

⟦24846cd4b⟧

    Length: 1248 (0x4e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »PAKKEPOS«

Derivation

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

Text

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