|
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: »JYLLAND.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »JYLLAND.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »JYLLAND.K«
0100 // ------------------------- jylland ----------------------------- 0110 INTEGER BYNR,I,ANTBYER 0120 ANTBYER:=22 0130 DIM BY$(ANTBYER) OF 15,BYNAVN$ OF 15,SVAR$ OF 3 0135 INTEGER AFSTAND(ANTBYER,ANTBYER) 0140 CLEAR 0150 CURSOR 10,5 0160 PRINT "Programmet finder afstanden mellem 22 store byer i Jylland." 0170 CURSOR 10,6 0180 PRINT "-----------------------------------------------------------" 0190 CURSOR 18,10 0200 PRINT "Følgende byer er med i afstandstabellen:" 0210 CURSOR 18,11 0220 PRINT "----------------------------------------" 0230 CURSOR 5,15 0240 PRINT "Esbjerg - Fredericia - Frederikshavn"; 0250 PRINT " - Haderslev - Herning - Hjørring" 0260 CURSOR 5,17 0270 PRINT "Horsens - Kolding - Kruså - Randers"; 0280 PRINT " - Ringkøbing - Silkeborg - Skagen" 0290 CURSOR 5,19 0300 PRINT "Skive - Sønderborg - Thisted - Tønder"; 0310 PRINT " - Varde - Vejle - Viborg - Ålborg " 0320 CURSOR 5,21 0330 PRINT "Århus." 0340 FOR A:=1 TO 300 DO 0350 NEXT A 0360 // --------------------------------------------------------------------- 0370 RESTORE 0371 FOR I:=1 TO ANTBYER DO READ BY$(I) 0380 FOR I:=1 TO ANTBYER DO 0390 FOR J:=1 TO I DO 0400 READ AFSTAND(I,J) 0410 AFSTAND(J,I):=AFSTAND(I,J) 0420 NEXT J 0430 NEXT I 0440 // ------------------------------------------------------------------- 0450 REPEAT 0460 REPEAT 0470 CLEAR 0480 REPEAT 0490 CLEAR 0500 CURSOR 18,6 0510 PRINT "Afstandstabel mellem 22 byer i Jylland." 0520 CURSOR 18,7 0530 PRINT "---------------------------------------" 0540 CURSOR 18,9 0550 INPUT "Fra hvilken by: ":BYNAVN$ 0560 EXEC FINDBY 0570 UNTIL BYFUNDET 0580 FRABY:=BYNR 0590 CURSOR 18,11 0600 INPUT "Til hvilken by: ":BYNAVN$ 0610 EXEC FINDBY 0620 UNTIL BYFUNDET 0630 TILBY:=BYNR 0640 CURSOR 17,14 0650 PRINT "************************************************" 0660 PRINT TAB(17);"*";TAB(30);"Afstanden er: ";AFSTAND(FRABY,TILBY); 0670 PRINT " km.";TAB(64);"*" 0680 CURSOR 17,16 0690 PRINT "************************************************" 0700 REPEAT 0710 CURSOR 18,22 0720 INPUT "Vil du prøve igen (j/n) ":SVAR$ 0730 UNTIL SVAR$ IN "jn" 0740 UNTIL SVAR$="n" 0750 CURSOR 18,22 0760 PRINT "<Z>Så slutter vi for i dag." 0770 // --------------------------------------------------------------- 0780 PROC FINDBY 0790 RESTORE 0800 BYNR:=0 0810 REPEAT 0820 BYNR:=BYNR+1 0840 UNTIL BYNR=ANTBYER OR BY$(BYNR)=BYNAVN$ 0850 BYFUNDET:=(BYNAVN$=BY$(BYNR)) // logisk variabel 0860 IF NOT BYFUNDET THEN 0870 CLEAR 0880 PRINT "Denne by hører ikke med til de 22 viste byer." 0890 RESTORE 0900 FOR BYNR:=1 TO ANTBYER DO 0920 PRINT BY$(BYNR) 0930 NEXT BYNR 0940 CURSOR 70,21 0950 PRINT "Return!"; 0960 INPUT SVAR$ 0970 ENDIF 0980 ENDPROC FINDBY 0990 // ---------------------------------------------- 1000 // LABEL BYER 1010 DATA "Esbjerg","Fredericia","Frederikshavn","Haderslev","Herning" 1020 DATA "Hjørring","Horsens","Kolding","Kruså","Randers","Ringkøbing" 1030 DATA "Silkeborg","Skagen","Skive","Sønderborg","Thisted","Tønder" 1040 DATA "Varde","Vejle","Viborg","Ålborg","Århus" 1050 // --------------------------------------------------------------- 1060 // LABEL AFSTANDSTABEL 1070 DATA 0 1080 DATA 93,0 1090 DATA 296,257,0 1100 DATA 80,50,284,0 1110 DATA 101,89,186,117,0 1120 DATA 282,242,35,270,174,0 1130 DATA 110,51,218,79,70,204,0 1140 DATA 71,23,258,27,90,243,52,0 1150 DATA 108,99,334,49,166,319,128,76,0 1160 DATA 193,134,137,162,87,123,81,135,211,0 1170 DATA 80,135,236,142,46,222,117,115,180,136,0 1180 DATA 139,87,177,115,37,162,44,88,164,57,84,0 1190 DATA 337,297,41,325,229,55,257,298,374,178,277,218,0 1200 DATA 143,134,154,162,54,140,108,135,211,70,83,64,195,0 1210 DATA 120,107,342,57,174,327,136,86,29,219,192,172,382,219,0 1220 DATA 184,201,154,229,113,120,183,202,278,130,124,123,175,59 1230 DATA 286,0 1240 DATA 77,102,337,58,170,322,131,79,39,214,149,167,327,212,66 1250 DATA 253,0 1260 DATA 19,94,278,91,83,263,103,72,118,177,62,120,318,125,131 1270 DATA 165,87,0 1280 DATA 83,24,233,52,65,218,27,25,101,110,111,63,275,110,109 1290 DATA 177,104,76,0 1300 DATA 155,115,142,143,46,128,79,116,192,41,95,35,183,29,200 1310 DATA 87 1320 DATA 195,136,91,0 1330 DATA 234,195,62,222,126,47,154,196,272,75,174,125,103,92,280 1340 DATA 96,275,216,171,80,0 1350 DATA 157,99,173,126,82,159,46,99,175,36,128,42,214,94,183 1360 DATA 152,178,150,74,64,111,0
0x0000…0049 Line {l1=0x47, l2=»0100 // ------------------------- jylland -----------------------------«, l3=0x47}
0x0049…0066 Line {l1=0x1b, l2=»0110 INTEGER BYNR,I,ANTBYER«, l3=0x1b}
0x0066…0078 Line {l1=0x10, l2=»0120 ANTBYER:=22«, l3=0x10}
0x0078…00ae Line {l1=0x34, l2=»0130 DIM BY$(ANTBYER) OF 15,BYNAVN$ OF 15,SVAR$ OF 3«, l3=0x34}
0x00ae…00d5 Line {l1=0x25, l2=»0135 INTEGER AFSTAND(ANTBYER,ANTBYER)«, l3=0x25}
0x00d5…00e2 Line {l1=0x0b, l2=»0140 CLEAR «, l3=0x0b}
0x00e2…00f4 Line {l1=0x10, l2=»0150 CURSOR 10,5«, l3=0x10}
0x00f4…013e Line {l1=0x48, l2=»0160 PRINT "Programmet finder afstanden mellem 22 store byer i Jylland."«, l3=0x48}
0x013e…0150 Line {l1=0x10, l2=»0170 CURSOR 10,6«, l3=0x10}
0x0150…019a Line {l1=0x48, l2=»0180 PRINT "-----------------------------------------------------------"«, l3=0x48}
0x019a…01ad Line {l1=0x11, l2=»0190 CURSOR 18,10«, l3=0x11}
0x01ad…01e4 Line {l1=0x35, l2=»0200 PRINT "Følgende byer er med i afstandstabellen:"«, l3=0x35}
0x01e4…01f7 Line {l1=0x11, l2=»0210 CURSOR 18,11«, l3=0x11}
0x01f7…022e Line {l1=0x35, l2=»0220 PRINT "----------------------------------------"«, l3=0x35}
0x022e…0240 Line {l1=0x10, l2=»0230 CURSOR 5,15«, l3=0x10}
0x0240…0274 Line {l1=0x32, l2=»0240 PRINT "Esbjerg - Fredericia - Frederikshavn";«, l3=0x32}
0x0274…02a4 Line {l1=0x2e, l2=»0250 PRINT " - Haderslev - Herning - Hjørring"«, l3=0x2e}
0x02a4…02b6 Line {l1=0x10, l2=»0260 CURSOR 5,17«, l3=0x10}
0x02b6…02e9 Line {l1=0x31, l2=»0270 PRINT "Horsens - Kolding - Kruså - Randers";«, l3=0x31}
0x02e9…031a Line {l1=0x2f, l2=»0280 PRINT " - Ringkøbing - Silkeborg - Skagen"«, l3=0x2f}
0x031a…032c Line {l1=0x10, l2=»0290 CURSOR 5,19«, l3=0x10}
0x032c…0361 Line {l1=0x33, l2=»0300 PRINT "Skive - Sønderborg - Thisted - Tønder";«, l3=0x33}
0x0361…0393 Line {l1=0x30, l2=»0310 PRINT " - Varde - Vejle - Viborg - Ålborg "«, l3=0x30}
0x0393…03a5 Line {l1=0x10, l2=»0320 CURSOR 5,21«, l3=0x10}
0x03a5…03ba Line {l1=0x13, l2=»0330 PRINT "Århus."«, l3=0x13}
0x03ba…03d4 Line {l1=0x18, l2=»0340 FOR A:=1 TO 300 DO «, l3=0x18}
0x03d4…03e1 Line {l1=0x0b, l2=»0350 NEXT A«, l3=0x0b}
0x03e1…0430 Line {l1=0x4d, l2=»0360 // ---------------------------------------------------------------------«, l3=0x4d}
0x0430…043f Line {l1=0x0d, l2=»0370 RESTORE «, l3=0x0d}
0x043f…0468 Line {l1=0x27, l2=»0371 FOR I:=1 TO ANTBYER DO READ BY$(I)«, l3=0x27}
0x0468…0486 Line {l1=0x1c, l2=»0380 FOR I:=1 TO ANTBYER DO «, l3=0x1c}
0x0486…049e Line {l1=0x16, l2=»0390 FOR J:=1 TO I DO «, l3=0x16}
0x049e…04b6 Line {l1=0x16, l2=»0400 READ AFSTAND(I,J)«, l3=0x16}
0x04b6…04d7 Line {l1=0x1f, l2=»0410 AFSTAND(J,I):=AFSTAND(I,J)«, l3=0x1f}
0x04d7…04e4 Line {l1=0x0b, l2=»0420 NEXT J«, l3=0x0b}
0x04e4…04f1 Line {l1=0x0b, l2=»0430 NEXT I«, l3=0x0b}
0x04f1…053e Line {l1=0x4b, l2=»0440 // -------------------------------------------------------------------«, l3=0x4b}
0x053e…054c Line {l1=0x0c, l2=»0450 REPEAT «, l3=0x0c}
0x054c…055a Line {l1=0x0c, l2=»0460 REPEAT «, l3=0x0c}
0x055a…0567 Line {l1=0x0b, l2=»0470 CLEAR «, l3=0x0b}
0x0567…0575 Line {l1=0x0c, l2=»0480 REPEAT «, l3=0x0c}
0x0575…0582 Line {l1=0x0b, l2=»0490 CLEAR «, l3=0x0b}
0x0582…0594 Line {l1=0x10, l2=»0500 CURSOR 18,6«, l3=0x10}
0x0594…05ca Line {l1=0x34, l2=»0510 PRINT "Afstandstabel mellem 22 byer i Jylland."«, l3=0x34}
0x05ca…05dc Line {l1=0x10, l2=»0520 CURSOR 18,7«, l3=0x10}
0x05dc…0612 Line {l1=0x34, l2=»0530 PRINT "---------------------------------------"«, l3=0x34}
0x0612…0624 Line {l1=0x10, l2=»0540 CURSOR 18,9«, l3=0x10}
0x0624…0660 Line {l1=0x3a, l2=»0550 INPUT "Fra hvilken by: ":BYNAVN$«, l3=0x3a}
0x0660…0672 Line {l1=0x10, l2=»0560 EXEC FINDBY«, l3=0x10}
0x0672…0687 Line {l1=0x13, l2=»0570 UNTIL BYFUNDET«, l3=0x13}
0x0687…0699 Line {l1=0x10, l2=»0580 FRABY:=BYNR«, l3=0x10}
0x0699…06ac Line {l1=0x11, l2=»0590 CURSOR 18,11«, l3=0x11}
0x06ac…06e8 Line {l1=0x3a, l2=»0600 INPUT "Til hvilken by: ":BYNAVN$«, l3=0x3a}
0x06e8…06fa Line {l1=0x10, l2=»0610 EXEC FINDBY«, l3=0x10}
0x06fa…070f Line {l1=0x13, l2=»0620 UNTIL BYFUNDET«, l3=0x13}
0x070f…0721 Line {l1=0x10, l2=»0630 TILBY:=BYNR«, l3=0x10}
0x0721…0734 Line {l1=0x11, l2=»0640 CURSOR 17,14«, l3=0x11}
0x0734…0773 Line {l1=0x3d, l2=»0650 PRINT "************************************************"«, l3=0x3d}
0x0773…07ba Line {l1=0x45, l2=»0660 PRINT TAB(17);"*";TAB(30);"Afstanden er: ";AFSTAND(FRABY,TILBY);«, l3=0x45}
0x07ba…07d9 Line {l1=0x1d, l2=»0670 PRINT " km.";TAB(64);"*"«, l3=0x1d}
0x07d9…07ec Line {l1=0x11, l2=»0680 CURSOR 17,16«, l3=0x11}
0x07ec…082b Line {l1=0x3d, l2=»0690 PRINT "************************************************"«, l3=0x3d}
0x082b…0839 Line {l1=0x0c, l2=»0700 REPEAT «, l3=0x0c}
0x0839…084c Line {l1=0x11, l2=»0710 CURSOR 18,22«, l3=0x11}
0x084c…0882 Line {l1=0x34, l2=»0720 INPUT "Vil du prøve igen (j/n) ":SVAR$«, l3=0x34}
0x0882…089c Line {l1=0x18, l2=»0730 UNTIL SVAR$ IN "jn"«, l3=0x18}
0x089c…08b2 Line {l1=0x14, l2=»0740 UNTIL SVAR$="n"«, l3=0x14}
0x08b2…08c5 Line {l1=0x11, l2=»0750 CURSOR 18,22«, l3=0x11}
0x08c5…08ef Line {l1=0x28, l2=»0760 PRINT "<Z>Så slutter vi for i dag."«, l3=0x28}
0x08ef…0938 Line {l1=0x47, l2=»0770 // ---------------------------------------------------------------«, l3=0x47}
0x0938…094a Line {l1=0x10, l2=»0780 PROC FINDBY«, l3=0x10}
0x094a…0959 Line {l1=0x0d, l2=»0790 RESTORE «, l3=0x0d}
0x0959…0967 Line {l1=0x0c, l2=»0800 BYNR:=0«, l3=0x0c}
0x0967…0975 Line {l1=0x0c, l2=»0810 REPEAT «, l3=0x0c}
0x0975…0988 Line {l1=0x11, l2=»0820 BYNR:=BYNR+1«, l3=0x11}
0x0988…09b6 Line {l1=0x2c, l2=»0840 UNTIL BYNR=ANTBYER OR BY$(BYNR)=BYNAVN$«, l3=0x2c}
0x09b6…09ed Line {l1=0x35, l2=»0850 BYFUNDET:=(BYNAVN$=BY$(BYNR)) // logisk variabel«, l3=0x35}
0x09ed…0a09 Line {l1=0x1a, l2=»0860 IF NOT BYFUNDET THEN «, l3=0x1a}
0x0a09…0a16 Line {l1=0x0b, l2=»0870 CLEAR «, l3=0x0b}
0x0a16…0a52 Line {l1=0x3a, l2=»0880 PRINT "Denne by hører ikke med til de 22 viste byer."«, l3=0x3a}
0x0a52…0a61 Line {l1=0x0d, l2=»0890 RESTORE «, l3=0x0d}
0x0a61…0a82 Line {l1=0x1f, l2=»0900 FOR BYNR:=1 TO ANTBYER DO «, l3=0x1f}
0x0a82…0a98 Line {l1=0x14, l2=»0920 PRINT BY$(BYNR)«, l3=0x14}
0x0a98…0aa8 Line {l1=0x0e, l2=»0930 NEXT BYNR«, l3=0x0e}
0x0aa8…0abb Line {l1=0x11, l2=»0940 CURSOR 70,21«, l3=0x11}
0x0abb…0ad2 Line {l1=0x15, l2=»0950 PRINT "Return!";«, l3=0x15}
0x0ad2…0ae4 Line {l1=0x10, l2=»0960 INPUT SVAR$«, l3=0x10}
0x0ae4…0af1 Line {l1=0x0b, l2=»0970 ENDIF «, l3=0x0b}
0x0af1…0b06 Line {l1=0x13, l2=»0980 ENDPROC FINDBY«, l3=0x13}
0x0b06…0b3e Line {l1=0x36, l2=»0990 // ----------------------------------------------«, l3=0x36}
0x0b3e…0b52 Line {l1=0x12, l2=»1000 // LABEL BYER«, l3=0x12}
0x0b52…0b9a Line {l1=0x46, l2=»1010 DATA "Esbjerg","Fredericia","Frederikshavn","Haderslev","Herning"«, l3=0x46}
0x0b9a…0be3 Line {l1=0x47, l2=»1020 DATA "Hjørring","Horsens","Kolding","Kruså","Randers","Ringkøbing"«, l3=0x47}
0x0be3…0c2b Line {l1=0x46, l2=»1030 DATA "Silkeborg","Skagen","Skive","Sønderborg","Thisted","Tønder"«, l3=0x46}
0x0c2b…0c60 Line {l1=0x33, l2=»1040 DATA "Varde","Vejle","Viborg","Ålborg","Århus"«, l3=0x33}
0x0c60…0ca9 Line {l1=0x47, l2=»1050 // ---------------------------------------------------------------«, l3=0x47}
0x0ca9…0cc6 Line {l1=0x1b, l2=»1060 // LABEL AFSTANDSTABEL«, l3=0x1b}
0x0cc6…0cd3 Line {l1=0x0b, l2=»1070 DATA 0«, l3=0x0b}
0x0cd3…0ce3 Line {l1=0x0e, l2=»1080 DATA 93,0«, l3=0x0e}
0x0ce3…0cf8 Line {l1=0x13, l2=»1090 DATA 296,257,0«, l3=0x13}
0x0cf8…0d0f Line {l1=0x15, l2=»1100 DATA 80,50,284,0«, l3=0x15}
0x0d0f…0d2b Line {l1=0x1a, l2=»1110 DATA 101,89,186,117,0«, l3=0x1a}
0x0d2b…0d4b Line {l1=0x1e, l2=»1120 DATA 282,242,35,270,174,0«, l3=0x1e}
0x0d4b…0d6d Line {l1=0x20, l2=»1130 DATA 110,51,218,79,70,204,0«, l3=0x20}
0x0d6d…0d91 Line {l1=0x22, l2=»1140 DATA 71,23,258,27,90,243,52,0«, l3=0x22}
0x0d91…0dbb Line {l1=0x28, l2=»1150 DATA 108,99,334,49,166,319,128,76,0«, l3=0x28}
0x0dbb…0dea Line {l1=0x2d, l2=»1160 DATA 193,134,137,162,87,123,81,135,211,0«, l3=0x2d}
0x0dea…0e1d Line {l1=0x31, l2=»1170 DATA 80,135,236,142,46,222,117,115,180,136,0«, l3=0x31}
0x0e1d…0e50 Line {l1=0x31, l2=»1180 DATA 139,87,177,115,37,162,44,88,164,57,84,0«, l3=0x31}
0x0e50…0e8b Line {l1=0x39, l2=»1190 DATA 337,297,41,325,229,55,257,298,374,178,277,218,0«, l3=0x39}
0x0e8b…0ec8 Line {l1=0x3b, l2=»1200 DATA 143,134,154,162,54,140,108,135,211,70,83,64,195,0«, l3=0x3b}
0x0ec8…0f0a Line {l1=0x40, l2=»1210 DATA 120,107,342,57,174,327,136,86,29,219,192,172,382,219,0«, l3=0x40}
0x0f0a…0f4c Line {l1=0x40, l2=»1220 DATA 184,201,154,229,113,120,183,202,278,130,124,123,175,59«, l3=0x40}
0x0f4c…0f5d Line {l1=0x0f, l2=»1230 DATA 286,0«, l3=0x0f}
0x0f5d…0f9f Line {l1=0x40, l2=»1240 DATA 77,102,337,58,170,322,131,79,39,214,149,167,327,212,66«, l3=0x40}
0x0f9f…0fb0 Line {l1=0x0f, l2=»1250 DATA 253,0«, l3=0x0f}
0x0fb0…0ff1 Line {l1=0x3f, l2=»1260 DATA 19,94,278,91,83,263,103,72,118,177,62,120,318,125,131«, l3=0x3f}
0x0ff1…1005 Line {l1=0x12, l2=»1270 DATA 165,87,0«, l3=0x12}
0x1005…1045 Line {l1=0x3e, l2=»1280 DATA 83,24,233,52,65,218,27,25,101,110,111,63,275,110,109«, l3=0x3e}
0x1045…105d Line {l1=0x16, l2=»1290 DATA 177,104,76,0«, l3=0x16}
0x105d…109e Line {l1=0x3f, l2=»1300 DATA 155,115,142,143,46,128,79,116,192,41,95,35,183,29,200«, l3=0x3f}
0x109e…10ac Line {l1=0x0c, l2=»1310 DATA 87«, l3=0x0c}
0x10ac…10c4 Line {l1=0x16, l2=»1320 DATA 195,136,91,0«, l3=0x16}
0x10c4…1107 Line {l1=0x41, l2=»1330 DATA 234,195,62,222,126,47,154,196,272,75,174,125,103,92,280«, l3=0x41}
0x1107…1126 Line {l1=0x1d, l2=»1340 DATA 96,275,216,171,80,0«, l3=0x1d}
0x1126…1166 Line {l1=0x3e, l2=»1350 DATA 157,99,173,126,82,159,46,99,175,36,128,42,214,94,183«, l3=0x3e}
0x1166…1189 Line {l1=0x21, l2=»1360 DATA 152,178,150,74,64,111,0«, l3=0x21}
0x1189…11a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccc┆
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…]