DataMuseum.dk

top - metrics - download

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

└─⟦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