DataMuseum.dk

top - metrics - download

    Length: 5056 (0x13c0)
    Notes: Mikados TextFile, Mikados_K
    Names: »EUROPA«

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »EUROPA« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »EUROPA« 

Text

0010 // ------------------------- europa ------------------------------
0020 // 
0030 ANTBYER:=22
0040 DIM BY$(ANTBYER) OF 15,BYNAVN$ OF 15,SVAR$ OF 3
0045 INTEGER AFSTAND(ANTBYER,ANTBYER)
0050 CLEAR 
0060 CURSOR 10,5
0070 PRINT "Programmet finder afstanden mellem 22 store byer i Europa. "
0080 CURSOR 10,6
0090 PRINT "-----------------------------------------------------------"
0100 CURSOR 18,10
0110 PRINT "Følgende byer er med i afstandstabellen:"
0120 CURSOR 18,11
0130 PRINT "----------------------------------------"
0140 CURSOR 5,15
0150 PRINT "Amsterdam - Athen - Beograd - Berlin - Bern - Bruxelles - ";
0155 PRINT "Bukarest"
0160 CURSOR 5,17
0170 PRINT "Budapest - Helsinki - København - Lissabon - London - Luxembourg"
0180 CURSOR 5,19
0190 PRINT "Madrid - Oslo - Paris - Prag - Rom - Sofia - Stokholm - Warszaw";
0195 PRINT "a - Wien."
0200 CURSOR 1,24
0230 // ---------------------------------------------------------------------
0240 RESTORE 
0241 FOR I:=1 TO ANTBYER DO READ BY$(I)
0250 FOR I:=1 TO ANTBYER DO 
0260 FOR J:=1 TO I DO 
0270 READ AFSTAND(I,J)
0280 AFSTAND(J,I):=AFSTAND(I,J)
0290 NEXT J
0300 NEXT I
0310 // -------------------------------------------------------------------
0320 CLEAR 
0330 REPEAT 
0335 REPEAT 
0340 REPEAT 
0350 CLEAR 
0360 CURSOR 18,6
0370 PRINT "Afstandstabel mellem 22 byer i Europa. "
0380 CURSOR 18,7
0390 PRINT "---------------------------------------"
0400 CURSOR 18,9
0410 INPUT "Fra hvilken by:                      ":BYNAVN$
0420 EXEC FINDBY
0430 UNTIL BYFUNDET
0440 FRABY:=BYNR
0460 CURSOR 18,11
0470 INPUT "Til hvilken by:                      ":BYNAVN$
0480 EXEC FINDBY
0500 UNTIL BYFUNDET
0510 TILBY:=BYNR
0520 CURSOR 17,14
0530 PRINT "************************************************"
0540 PRINT TAB(17);"*";TAB(30);"Afstanden er: ";AFSTAND(FRABY,TILBY);
0550 PRINT " km.";TAB(64);"*"
0560 CURSOR 17,16
0570 PRINT "************************************************"
0590 CURSOR 18,22
0600 INPUT "Vil du prøve igen (j/n)   ":SVAR$
0630 UNTIL SVAR$ IN "Nn"
0640 CURSOR 18,22
0650 PRINT "Så slutter vi for i dag."
0660 // ---------------------------------------------------------------
0670 PROC FINDBY
0690 BYNR:=0
0700 REPEAT 
0710 BYNR:=BYNR+1
0730 UNTIL BYNR=ANTBYER OR BY$(BYNR)=BYNAVN$
0740 BYFUNDET:=(BYNAVN$=BY$(BYNR)) // logisk variabel
0750 IF NOT BYFUNDET THEN 
0760 CLEAR 
0770 PRINT "Denne by hører ikke med til de 22 viste byer."
0790 FOR BYNR:=1 TO ANTBYER DO 
0810 PRINT BY$(BYNR)
0820 NEXT BYNR
0830 CURSOR 68,21
0840 INPUT "Return!":SVAR$
0860 ENDIF 
0870 ENDPROC FINDBY
0880 // ----------------------------------------------
0900 DATA "Amsterdam","Athen","Beograd","Berlin","Bern","Bruxelles"
0910 DATA "Bukarest","Budapest","Helsinki","København","Lissabon"
0920 DATA "London","Luxembourg","Madrid","Oslo","Paris","Prag","Rom"
0930 DATA "Sofia","Stockholm","Warszawa","Wien"
0940 // ---------------------------------------------------------------
0960 DATA 0
0970 DATA 3027,0
0980 DATA 1823,1174,0
0990 DATA 669,2506,1332,0
1000 DATA 811,2576,1402,977,0
1010 DATA 220,2978,1804,781,642,0
1020 DATA 2370,1254,732,1749,1977,2295,0
1030 DATA 1395,1602,428,904,1167,1500,895,0
1040 DATA 1803,3932,2573,1459,2269,1962,3208,2352,0
1050 DATA 886,3243,2069,737,1380,1030,2307,1641,1035,0
1060 DATA 2318,4228,3354,3148,2172,2098,4073,3314,4074,3510,0
1070 DATA 530,3296,2117,1114,951,371,2666,1752,2357,1302,2260,0
1080 DATA 391,2754,1580,773,424,220,2079,1211,2011,1104,2218,587,0
1090 DATA 1781,3889,2715,2509,1533,1561,3475,2675,3532,2871,639
1095 DATA 1718,1767,0
1100 DATA 1370,3499,2320,1026,1836,1529,2775,1919,907,602,3641,1904
1105 DATA 1578,3099,0
1110 DATA 517,3115,1941,1073,555,297,2658,1527,2263,1327,1801,449
1115 DATA 348,1264,1830,0
1130 DATA 912,2170,996,337,769,913,1408,568,1800,1039,2926,1257
1140 DATA 741,2330,1367,1071,0
1150 DATA 1661,2508,1334,1525,907,1492,2050,1294,3148,2230,2671
1160 DATA 1898,1274,2032,2715,1413,1300,0
1170 DATA 2230,847,409,1703,1811,2193,407,810,3162,2261,3730,2564
1180 DATA 1939,3152,2729,2335,1362,1727,0
1190 DATA 1420,3549,2370,1076,1886,1579,2825,1969,383,652,2691,1954
1200 DATA 1628,3149,549,1880,1417,2764,2779,0
1210 DATA 1216,2278,1099,589,1425,1299,1487,698,2048,1147,3438,1670
1220 DATA 1343,2896,1615,1627,612,1872,1508,1665,0
1230 DATA 1139,1858,684,648,865,1107,1106,256,2102,1385,3078,1582
1240 DATA 955,2439,1669,1271,312,1150,1060,1719,718,0