|
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 - download
Length: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »EUROPA.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »EUROPA.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »EUROPA.K«
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
0x0000…0049 Line {l1=0x47, l2=»0010 // ------------------------- europa ------------------------------«, l3=0x47}
0x0049…0053 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x0053…0065 Line {l1=0x10, l2=»0030 ANTBYER:=22«, l3=0x10}
0x0065…009b Line {l1=0x34, l2=»0040 DIM BY$(ANTBYER) OF 15,BYNAVN$ OF 15,SVAR$ OF 3«, l3=0x34}
0x009b…00c2 Line {l1=0x25, l2=»0045 INTEGER AFSTAND(ANTBYER,ANTBYER)«, l3=0x25}
0x00c2…00cf Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x00cf…00e1 Line {l1=0x10, l2=»0060 CURSOR 10,5«, l3=0x10}
0x00e1…012b Line {l1=0x48, l2=»0070 PRINT "Programmet finder afstanden mellem 22 store byer i Europa. "«, l3=0x48}
0x012b…013d Line {l1=0x10, l2=»0080 CURSOR 10,6«, l3=0x10}
0x013d…0187 Line {l1=0x48, l2=»0090 PRINT "-----------------------------------------------------------"«, l3=0x48}
0x0187…019a Line {l1=0x11, l2=»0100 CURSOR 18,10«, l3=0x11}
0x019a…01d1 Line {l1=0x35, l2=»0110 PRINT "Følgende byer er med i afstandstabellen:"«, l3=0x35}
0x01d1…01e4 Line {l1=0x11, l2=»0120 CURSOR 18,11«, l3=0x11}
0x01e4…021b Line {l1=0x35, l2=»0130 PRINT "----------------------------------------"«, l3=0x35}
0x021b…022d Line {l1=0x10, l2=»0140 CURSOR 5,15«, l3=0x10}
0x022d…0277 Line {l1=0x48, l2=»0150 PRINT "Amsterdam - Athen - Beograd - Berlin - Bern - Bruxelles - ";«, l3=0x48}
0x0277…028e Line {l1=0x15, l2=»0155 PRINT "Bukarest"«, l3=0x15}
0x028e…02a0 Line {l1=0x10, l2=»0160 CURSOR 5,17«, l3=0x10}
0x02a0…02ef Line {l1=0x4d, l2=»0170 PRINT "Budapest - Helsinki - København - Lissabon - London - Luxembourg"«, l3=0x4d}
0x02ef…0301 Line {l1=0x10, l2=»0180 CURSOR 5,19«, l3=0x10}
0x0301…0350 Line {l1=0x4d, l2=»0190 PRINT "Madrid - Oslo - Paris - Prag - Rom - Sofia - Stokholm - Warszaw";«, l3=0x4d}
0x0350…0368 Line {l1=0x16, l2=»0195 PRINT "a - Wien."«, l3=0x16}
0x0368…037a Line {l1=0x10, l2=»0200 CURSOR 1,24«, l3=0x10}
0x037a…03c9 Line {l1=0x4d, l2=»0230 // ---------------------------------------------------------------------«, l3=0x4d}
0x03c9…03d8 Line {l1=0x0d, l2=»0240 RESTORE «, l3=0x0d}
0x03d8…0401 Line {l1=0x27, l2=»0241 FOR I:=1 TO ANTBYER DO READ BY$(I)«, l3=0x27}
0x0401…041f Line {l1=0x1c, l2=»0250 FOR I:=1 TO ANTBYER DO «, l3=0x1c}
0x041f…0437 Line {l1=0x16, l2=»0260 FOR J:=1 TO I DO «, l3=0x16}
0x0437…044f Line {l1=0x16, l2=»0270 READ AFSTAND(I,J)«, l3=0x16}
0x044f…0470 Line {l1=0x1f, l2=»0280 AFSTAND(J,I):=AFSTAND(I,J)«, l3=0x1f}
0x0470…047d Line {l1=0x0b, l2=»0290 NEXT J«, l3=0x0b}
0x047d…048a Line {l1=0x0b, l2=»0300 NEXT I«, l3=0x0b}
0x048a…04d7 Line {l1=0x4b, l2=»0310 // -------------------------------------------------------------------«, l3=0x4b}
0x04d7…04e4 Line {l1=0x0b, l2=»0320 CLEAR «, l3=0x0b}
0x04e4…04f2 Line {l1=0x0c, l2=»0330 REPEAT «, l3=0x0c}
0x04f2…0500 Line {l1=0x0c, l2=»0335 REPEAT «, l3=0x0c}
0x0500…050e Line {l1=0x0c, l2=»0340 REPEAT «, l3=0x0c}
0x050e…051b Line {l1=0x0b, l2=»0350 CLEAR «, l3=0x0b}
0x051b…052d Line {l1=0x10, l2=»0360 CURSOR 18,6«, l3=0x10}
0x052d…0563 Line {l1=0x34, l2=»0370 PRINT "Afstandstabel mellem 22 byer i Europa. "«, l3=0x34}
0x0563…0575 Line {l1=0x10, l2=»0380 CURSOR 18,7«, l3=0x10}
0x0575…05ab Line {l1=0x34, l2=»0390 PRINT "---------------------------------------"«, l3=0x34}
0x05ab…05bd Line {l1=0x10, l2=»0400 CURSOR 18,9«, l3=0x10}
0x05bd…05f9 Line {l1=0x3a, l2=»0410 INPUT "Fra hvilken by: ":BYNAVN$«, l3=0x3a}
0x05f9…060b Line {l1=0x10, l2=»0420 EXEC FINDBY«, l3=0x10}
0x060b…0620 Line {l1=0x13, l2=»0430 UNTIL BYFUNDET«, l3=0x13}
0x0620…0632 Line {l1=0x10, l2=»0440 FRABY:=BYNR«, l3=0x10}
0x0632…0645 Line {l1=0x11, l2=»0460 CURSOR 18,11«, l3=0x11}
0x0645…0681 Line {l1=0x3a, l2=»0470 INPUT "Til hvilken by: ":BYNAVN$«, l3=0x3a}
0x0681…0693 Line {l1=0x10, l2=»0480 EXEC FINDBY«, l3=0x10}
0x0693…06a8 Line {l1=0x13, l2=»0500 UNTIL BYFUNDET«, l3=0x13}
0x06a8…06ba Line {l1=0x10, l2=»0510 TILBY:=BYNR«, l3=0x10}
0x06ba…06cd Line {l1=0x11, l2=»0520 CURSOR 17,14«, l3=0x11}
0x06cd…070c Line {l1=0x3d, l2=»0530 PRINT "************************************************"«, l3=0x3d}
0x070c…0753 Line {l1=0x45, l2=»0540 PRINT TAB(17);"*";TAB(30);"Afstanden er: ";AFSTAND(FRABY,TILBY);«, l3=0x45}
0x0753…0772 Line {l1=0x1d, l2=»0550 PRINT " km.";TAB(64);"*"«, l3=0x1d}
0x0772…0785 Line {l1=0x11, l2=»0560 CURSOR 17,16«, l3=0x11}
0x0785…07c4 Line {l1=0x3d, l2=»0570 PRINT "************************************************"«, l3=0x3d}
0x07c4…07d7 Line {l1=0x11, l2=»0590 CURSOR 18,22«, l3=0x11}
0x07d7…0806 Line {l1=0x2d, l2=»0600 INPUT "Vil du prøve igen (j/n) ":SVAR$«, l3=0x2d}
0x0806…0820 Line {l1=0x18, l2=»0630 UNTIL SVAR$ IN "Nn"«, l3=0x18}
0x0820…0833 Line {l1=0x11, l2=»0640 CURSOR 18,22«, l3=0x11}
0x0833…085a Line {l1=0x25, l2=»0650 PRINT "Så slutter vi for i dag."«, l3=0x25}
0x085a…08a3 Line {l1=0x47, l2=»0660 // ---------------------------------------------------------------«, l3=0x47}
0x08a3…08b5 Line {l1=0x10, l2=»0670 PROC FINDBY«, l3=0x10}
0x08b5…08c3 Line {l1=0x0c, l2=»0690 BYNR:=0«, l3=0x0c}
0x08c3…08d1 Line {l1=0x0c, l2=»0700 REPEAT «, l3=0x0c}
0x08d1…08e4 Line {l1=0x11, l2=»0710 BYNR:=BYNR+1«, l3=0x11}
0x08e4…0912 Line {l1=0x2c, l2=»0730 UNTIL BYNR=ANTBYER OR BY$(BYNR)=BYNAVN$«, l3=0x2c}
0x0912…0949 Line {l1=0x35, l2=»0740 BYFUNDET:=(BYNAVN$=BY$(BYNR)) // logisk variabel«, l3=0x35}
0x0949…0965 Line {l1=0x1a, l2=»0750 IF NOT BYFUNDET THEN «, l3=0x1a}
0x0965…0972 Line {l1=0x0b, l2=»0760 CLEAR «, l3=0x0b}
0x0972…09ae Line {l1=0x3a, l2=»0770 PRINT "Denne by hører ikke med til de 22 viste byer."«, l3=0x3a}
0x09ae…09cf Line {l1=0x1f, l2=»0790 FOR BYNR:=1 TO ANTBYER DO «, l3=0x1f}
0x09cf…09e5 Line {l1=0x14, l2=»0810 PRINT BY$(BYNR)«, l3=0x14}
0x09e5…09f5 Line {l1=0x0e, l2=»0820 NEXT BYNR«, l3=0x0e}
0x09f5…0a08 Line {l1=0x11, l2=»0830 CURSOR 68,21«, l3=0x11}
0x0a08…0a24 Line {l1=0x1a, l2=»0840 INPUT "Return!":SVAR$«, l3=0x1a}
0x0a24…0a31 Line {l1=0x0b, l2=»0860 ENDIF «, l3=0x0b}
0x0a31…0a46 Line {l1=0x13, l2=»0870 ENDPROC FINDBY«, l3=0x13}
0x0a46…0a7e Line {l1=0x36, l2=»0880 // ----------------------------------------------«, l3=0x36}
0x0a7e…0ac3 Line {l1=0x43, l2=»0900 DATA "Amsterdam","Athen","Beograd","Berlin","Bern","Bruxelles"«, l3=0x43}
0x0ac3…0b06 Line {l1=0x41, l2=»0910 DATA "Bukarest","Budapest","Helsinki","København","Lissabon"«, l3=0x41}
0x0b06…0b4c Line {l1=0x44, l2=»0920 DATA "London","Luxembourg","Madrid","Oslo","Paris","Prag","Rom"«, l3=0x44}
0x0b4c…0b7d Line {l1=0x2f, l2=»0930 DATA "Sofia","Stockholm","Warszawa","Wien"«, l3=0x2f}
0x0b7d…0bc6 Line {l1=0x47, l2=»0940 // ---------------------------------------------------------------«, l3=0x47}
0x0bc6…0bd3 Line {l1=0x0b, l2=»0960 DATA 0«, l3=0x0b}
0x0bd3…0be5 Line {l1=0x10, l2=»0970 DATA 3027,0«, l3=0x10}
0x0be5…0bfc Line {l1=0x15, l2=»0980 DATA 1823,1174,0«, l3=0x15}
0x0bfc…0c17 Line {l1=0x19, l2=»0990 DATA 669,2506,1332,0«, l3=0x19}
0x0c17…0c36 Line {l1=0x1d, l2=»1000 DATA 811,2576,1402,977,0«, l3=0x1d}
0x0c36…0c59 Line {l1=0x21, l2=»1010 DATA 220,2978,1804,781,642,0«, l3=0x21}
0x0c59…0c83 Line {l1=0x28, l2=»1020 DATA 2370,1254,732,1749,1977,2295,0«, l3=0x28}
0x0c83…0cb0 Line {l1=0x2b, l2=»1030 DATA 1395,1602,428,904,1167,1500,895,0«, l3=0x2b}
0x0cb0…0ce5 Line {l1=0x33, l2=»1040 DATA 1803,3932,2573,1459,2269,1962,3208,2352,0«, l3=0x33}
0x0ce5…0d1d Line {l1=0x36, l2=»1050 DATA 886,3243,2069,737,1380,1030,2307,1641,1035,0«, l3=0x36}
0x0d1d…0d5c Line {l1=0x3d, l2=»1060 DATA 2318,4228,3354,3148,2172,2098,4073,3314,4074,3510,0«, l3=0x3d}
0x0d5c…0d9d Line {l1=0x3f, l2=»1070 DATA 530,3296,2117,1114,951,371,2666,1752,2357,1302,2260,0«, l3=0x3f}
0x0d9d…0de1 Line {l1=0x42, l2=»1080 DATA 391,2754,1580,773,424,220,2079,1211,2011,1104,2218,587,0«, l3=0x42}
0x0de1…0e22 Line {l1=0x3f, l2=»1090 DATA 1781,3889,2715,2509,1533,1561,3475,2675,3532,2871,639«, l3=0x3f}
0x0e22…0e39 Line {l1=0x15, l2=»1095 DATA 1718,1767,0«, l3=0x15}
0x0e39…0e7e Line {l1=0x43, l2=»1100 DATA 1370,3499,2320,1026,1836,1529,2775,1919,907,602,3641,1904«, l3=0x43}
0x0e7e…0e95 Line {l1=0x15, l2=»1105 DATA 1578,3099,0«, l3=0x15}
0x0e95…0ed8 Line {l1=0x41, l2=»1110 DATA 517,3115,1941,1073,555,297,2658,1527,2263,1327,1801,449«, l3=0x41}
0x0ed8…0ef3 Line {l1=0x19, l2=»1115 DATA 348,1264,1830,0«, l3=0x19}
0x0ef3…0f34 Line {l1=0x3f, l2=»1130 DATA 912,2170,996,337,769,913,1408,568,1800,1039,2926,1257«, l3=0x3f}
0x0f34…0f54 Line {l1=0x1e, l2=»1140 DATA 741,2330,1367,1071,0«, l3=0x1e}
0x0f54…0f95 Line {l1=0x3f, l2=»1150 DATA 1661,2508,1334,1525,907,1492,2050,1294,3148,2230,2671«, l3=0x3f}
0x0f95…0fc0 Line {l1=0x29, l2=»1160 DATA 1898,1274,2032,2715,1413,1300,0«, l3=0x29}
0x0fc0…1003 Line {l1=0x41, l2=»1170 DATA 2230,847,409,1703,1811,2193,407,810,3162,2261,3730,2564«, l3=0x41}
0x1003…102e Line {l1=0x29, l2=»1180 DATA 1939,3152,2729,2335,1362,1727,0«, l3=0x29}
0x102e…1073 Line {l1=0x43, l2=»1190 DATA 1420,3549,2370,1076,1886,1579,2825,1969,383,652,2691,1954«, l3=0x43}
0x1073…10a2 Line {l1=0x2d, l2=»1200 DATA 1628,3149,549,1880,1417,2764,2779,0«, l3=0x2d}
0x10a2…10e7 Line {l1=0x43, l2=»1210 DATA 1216,2278,1099,589,1425,1299,1487,698,2048,1147,3438,1670«, l3=0x43}
0x10e7…111b Line {l1=0x32, l2=»1220 DATA 1343,2896,1615,1627,612,1872,1508,1665,0«, l3=0x32}
0x111b…115e Line {l1=0x41, l2=»1230 DATA 1139,1858,684,648,865,1107,1106,256,2102,1385,3078,1582«, l3=0x41}
0x115e…1195 Line {l1=0x35, l2=»1240 DATA 955,2439,1669,1271,312,1150,1060,1719,718,0«, l3=0x35}
0x1195…11a0 00 00 63 63 63 63 63 63 63 63 63 ┆ ccccccccc┆
0x11a0…11c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x10…]