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

⟦4681aeeff⟧ TextFile

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »PAKKEPOS«

Derivation

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

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 

I0010 // ---------------------------- pakkepost --------------------------I▶08◀0020 // ▶08◀▶17◀0025 INTEGER TRUE,FALSE▶17◀▶15◀0026 TRUE:=1;FALSE:=0▶15◀▶0b◀0030 CLEAR ▶0b◀▶0b◀0035 PRINT ▶0b◀F0040 INPUT "Pakkens vægt:    (ikke over 20 kg.)                 ":VÆGTF▶0b◀0050 PRINT ▶0b◀K0060 INPUT "Er pakken almindelig (takst 1) eller voluminøs (takst 2): ":TALK▶0b◀0070 PRINT ▶0b◀▶13◀0080 IF TAL=1 THEN ▶13◀▶12◀0090 CASE TRUE OF ▶12◀▶11◀0100 WHEN VÆGT<=5▶11◀▶10◀0110 PORTO:=1600▶10◀▶12◀0120 WHEN VÆGT<=10▶12◀▶10◀0130 PORTO:=3000▶10◀▶12◀0140 WHEN VÆGT<=15▶12◀▶10◀0150 PORTO:=5000▶10◀▶12◀0160 WHEN VÆGT<=20▶12◀▶10◀0170 PORTO:=6000▶10◀▶0f◀0180 OTHERWISE ▶0f◀▶0b◀0190 PRINT ▶0b◀E0200 PRINT "Denne pakke hører vist under en vognmand ( eller Falck)."E	0210 END 	\r0220 ENDCASE \r▶0b◀0230 PRINT ▶0b◀?0240 PRINT USING "Pakkens vægt:               ####.## kg.":VÆGT?D0250 PRINT USING "Porto:                     #####.## kr.":PORTO/100D
0260 ELSE 
▶13◀0270 IF TAL=2 THEN ▶13◀▶12◀0280 CASE TRUE OF ▶12◀▶11◀0290 WHEN VÆGT<=5▶11◀▶10◀0300 PORTO:=3200▶10◀▶12◀0310 WHEN VÆGT<=10▶12◀▶10◀0320 PORTO:=6000▶10◀▶12◀0330 WHEN VÆGT<=15▶12◀▶11◀0340 PORTO:=10000▶11◀▶12◀0350 WHEN VÆGT<=20▶12◀▶11◀0360 PORTO:=12000▶11◀▶0f◀0370 OTHERWISE ▶0f◀▶0b◀0380 PRINT ▶0b◀=0390 PRINT "Denne pakke bør vist transporteres med fragtbåd."=	0400 END 	\r0410 ENDCASE \r=0420 PRINT USING "Pakkens vægt:            #####.## kg.":VÆGT=B0430 PRINT USING "Porto:                  ######.## kr.":PORTO/100B
0440 ELSE 
30450 PRINT "Du har vist tastet forkert. Prøv igen."3▶0b◀0460 ENDIF ▶0b◀▶0b◀0470 ENDIF ▶0b◀▶00◀▶00◀E,FALSE▶17◀▶15◀0026 TRUE:=1;FALSE:=0▶15◀▶0b◀0030 CLEAR ▶0b◀▶0b◀0035 PRINT ▶0b◀F0040 INPUT "Pakkens vægt:    (ikke over 20 kg.)                 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc