|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4032 (0xfc0) Notes: Mikados TextFile, Mikados_K Names: »UDLAND«
└─⟦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«
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