DataMuseum.dk

top - metrics - download

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

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

Text

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