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

⟦df0c5ebab⟧

    Length: 4032 (0xfc0)
    Notes: Mikados TextFile, Mikados_K
    Names: »UDLAND«

Derivation

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

Text

0010 // ---------------------------- udland -----------------------------
0020 // 
0025 INTEGER TRUE,FALSE
0026 TRUE:=1;FALSE:=0
0030 CLEAR 
0040 CURSOR 5,5
0050 PRINT "B R E V P O S T   T I L   U D L A N D E T ."
0060 CURSOR 5,6
0070 PRINT "-------------------------------------------"
0080 CURSOR 5,12
0090 PRINT "Norden...................................Tast 1."
0100 CURSOR 5,14
0110 PRINT "CEPT-landene.............................Tast 2."
0120 CURSOR 5,16
0130 PRINT "Øvrige udland............................Tast 3."
0140 PRINT 
0150 CURSOR 5,18
0160 INPUT "Nummer:                                       ":TAL
0170 CURSOR 5,21
0180 INPUT "Indtast brevets vægt: (ikke over 2000 g.)     ":VÆGT
0190 PRINT 
0200 IF TAL=1 THEN 
0210 CASE TRUE OF 
0220 WHEN VÆGT<=20
0230 PORTO:=250
0240 WHEN VÆGT<=100
0250 PORTO:=350
0260 WHEN VÆGT<=250
0270 PORTO:=500
0280 WHEN VÆGT<=500
0290 PORTO:=800
0300 WHEN VÆGT<=1000
0310 PORTO:=3000
0320 WHEN VÆGT<=2000
0330 PORTO:=9000
0340 OTHERWISE 
0350 PRINT 
0360 PRINT "    Dette brev hører vist under pakkeposten. Prøv der."
0370 CURSOR 5,23
0380 END 
0390 ENDCASE 
0400 PRINT 
0410 PRINT USING "    Brevets vægt:               ####### g. ":VÆGT
0420 PRINT USING "    Porto:                     #####.## kr.":PORTO/100
0430 ELSE 
0440 IF TAL=2 OR TAL=3 THEN 
0450 CASE TRUE OF 
0460 WHEN VÆGT<=20
0470 IF TAL=2 THEN PORTO:=250
0480 IF TAL=3 THEN PORTO:=350
0490 WHEN VÆGT<=100
0500 PORTO:=800
0510 WHEN VÆGT<=100
0520 PORTO:=800
0530 WHEN VÆGT<=250
0540 PORTO:=1700
0550 WHEN VÆGT<=500
0560 PORTO:=3200
0570 WHEN VÆGT<=1000
0580 PORTO:=5600
0590 WHEN VÆGT<=2000
0600 PORTO:=9000
0610 OTHERWISE 
0620 PRINT 
0630 PRINT "    Dette brev bør vist gå med statsbanerne. "
0640 CURSOR 5,23
0650 END 
0660 ENDCASE 
0670 PRINT USING "    Brevets vægt:            ######## g. ":VÆGT
0680 PRINT USING "    Porto:                  ######.## kr.":PORTO/100
0690 ELSE 
0700 PRINT "     Du har vist tastet forkert. Prøv igen."
0710 ENDIF 
0720 ENDIF 
0730 CURSOR 5,23
0740 END