*
* Minimal.prg
*

declare knoten[26]
declare tnoten[26]
declare kante[2526]

declare erstkn[26]
declare compkn[26]

comp = 0

sum_m01 = 0
sum_m02 = 0
sum_m03 = 0
sum_m04 = 0
sum_m05 = 0
sum_m06 = 0
sum_m07 = 0
sum_m08 = 0
sum_m09 = 0
sum_m10 = 0
sum_m11 = 0
sum_m12 = 0
sum_m13 = 0



snr01 = 0
snr02 = 0
snr03 = 0
snr04 = 0
snr05 = 0
snr06 = 0
snr07 = 0
snr08 = 0
snr09 = 0
snr10 = 0

snr11 = 0
snr12 = 0
snr13 = 0
snr14 = 0
snr15 = 0
snr16 = 0
snr17 = 0
snr18 = 0
snr19 = 0
snr20 = 0

snr21 = 0
snr22 = 0
snr23 = 0
snr24 = 0
snr25 = 0
snr26 = 0

sich13 = 0

sum_min = 0
min_max = 0
sum_max = 9000
runde = 0
************************

*
* Initialisieren
*

clear
nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo

nr = 1
do while nr < 27
tnoten[nr] = 0
nr = nr + 1
enddo

nr = 1
do while nr < 27
erstkn[nr] = 0
nr = nr + 1
enddo

nr = 1
do while nr < 27
compkn[nr] = 0
nr = nr + 1
enddo

nr = 1
do while nr < 2527
kante[nr] = 0
nr = nr + 1
enddo

do kanteneu


datei = "MINI.TXT"
*set device to print
set print on
set printer to &datei



***** Beginn aller Minimalberechnungen *******************************

@ 04,22 say time()
@ 04,30 say " - "
do min13


*********************************************************************

set printer to
set print off
@ 04,33 say time()
@ 05,33 say "Programm-Ende"
@ 23,00 say " "
*
*
* Ende Minimal.prg*
* kanteneu.prg
*

****** Lissabon
kante[102] = 4074
kante[103] = 639
kante[104] = 4326
kante[105] = 4528
kante[106] = 4073
kante[107] = 3730
kante[108] = 3691
kante[109] = 3641
kante[110] = 3354
kante[111] = 3314
kante[112] = 3504
kante[113] = 2671
kante[114] = 3438
kante[115] = 3078
kante[116] = 3148
kante[117] = 2318
kante[118] = 2260
kante[119] = 2098
kante[120] = 2926
kante[121] = 2294
kante[122] = 2299
kante[123] = 1276
kante[124] = 2019
kante[125] = 2542
kante[126] = 1801

* Helsinki
kante[203] = 3532
kante[204] = 3128
kante[205] = 3386
kante[206] = 2665
kante[207] = 2562
kante[208] = 383
kante[209] = 907
kante[210] = 2753
kante[211] = 1884
kante[212] = 1035
kante[213] = 3148
kante[214] = 1130
kante[215] = 1855
kante[216] = 1459
kante[217] = 1803
kante[218] = 2337
kante[219] = 1962
kante[220] = 1800
kante[221] = 2571
kante[222] = 2260
kante[223] = 3725
kante[224] = 2422
kante[225] = 1843
kante[226] = 2263

* Madrid
kante[304] = 3687
kante[305] = 3889
kante[306] = 3475
kante[307] = 1986
kante[308] = 3466
kante[309] = 3094
kante[310] = 2715
kante[311] = 2675
kante[312] = 1846
kante[313] = 952
kante[314] = 2967
kante[315] = 2605
kante[316] = 2509
kante[317] = 1781
kante[318] = 1718
kante[319] = 1561
kante[320] = 2347
kante[321] = 1728
kante[322] = 1641
kante[323] = 637
kante[324] = 1380
kante[325] = 1903
kante[326] = 1709

* Istanbul
kante[405] = 1141
kante[406] = 638
kante[407] = 577
kante[408] = 3356
kante[409] = 3306
kante[410] = 972
kante[411] = 1400
kante[412] = 2689
kante[413] = 2306
kante[414] = 2125
kante[415] = 1656
kante[416] = 2304
kante[417] = 2795
kante[418] = 3141
kante[419] = 2276
kante[420] = 1968
kante[421] = 2046
kante[422] = 2219
kante[423] = 3075
kante[424] = 2363
kante[425] = 2361
kante[426] = 2913

* Athen
kante[506] = 1254
kante[507] = 847
kante[508] = 3549
kante[509] = 3499
kante[510] = 1174
kante[511] = 1602
kante[512] = 2798
kante[513] = 2508
kante[514] = 2278
kante[515] = 1858
kante[516] = 2506
kante[517] = 3027
kante[518] = 3296
kante[519] = 2978
kante[520] = 2170
kante[521] = 2248
kante[522] = 2421
kante[523] = 3277
kante[524] = 2565
kante[525] = 2563
kante[526] = 3115

* Bucarest
kante[607] = 407
kante[608] = 2825
kante[609] = 2775
kante[610] = 732
kante[611] = 895
kante[612] = 2102
kante[613] = 2050
kante[614] = 1487
kante[615] = 1106
kante[616] = 1749
kante[617] = 2370
kante[618] = 2666
kante[619] = 2295
kante[620] = 1408
kante[621] = 1786
kante[622] = 1850
kante[623] = 2859
kante[624] = 2116
kante[625] = 1950
kante[626] = 2357

* Sofia
kante[708] = 2779
kante[709] = 2729
kante[710] = 409
kante[711] = 810
kante[712] = 1981
kante[713] = 1727
kante[714] = 1508
kante[715] = 1060
kante[716] = 1703
kante[717] = 2230
kante[718] = 2564
kante[719] = 2193
kante[720] = 1362
kante[721] = 1463
kante[722] = 1769
kante[723] = 2536
kante[724] = 1793
kante[725] = 1810
kante[726] = 2335

* Stockholm
kante[809] = 549
kante[810] = 2370
kante[811] = 1969
kante[812] = 626
kante[813] = 2764
kante[814] = 1665
kante[815] = 1719
kante[816] = 1076
kante[817] = 1420
kante[818] = 1954
kante[819] = 1579
kante[820] = 1417
kante[821] = 2187
kante[822] = 1877
kante[823] = 2839
kante[824] = 2039
kante[825] = 1460
kante[826] = 1880

* Oslo
kante[910] = 2320
kante[911] = 1919
kante[912] = 588
kante[913] = 2715
kante[914] = 1615
kante[915] = 1669
kante[916] = 1026
kante[917] = 1370
kante[918] = 1904
kante[919] = 1529
kante[920] = 1367
kante[921] = 2138
kante[922] = 1827
kante[923] = 2789
kante[924] = 1989
kante[925] = 1410
kante[926] = 1830

* Belgrad
kante[1011] = 428
kante[1012] = 1637
kante[1013] = 1334
kante[1014] = 1099
kante[1015] = 684
kante[1016] = 1332
kante[1017] = 1823
kante[1018] = 2117
kante[1019] = 1804
kante[1020] = 966
kante[1021] = 1074
kante[1022] = 1247
kante[1023] = 2103
kante[1024] = 1391
kante[1025] = 1389
kante[1026] = 1941

* Budapest
kante[1112] = 1345
kante[1113] = 1294
kante[1114] = 698
kante[1115] = 256
kante[1116] = 904
kante[1117] = 1395
kante[1118] = 1752
kante[1119] = 1358
kante[1120] = 568
kante[1121] = 1034
kante[1122] = 1004
kante[1123] = 2093
kante[1124] = 1320
kante[1125] = 979
kante[1126] = 1527

* Kopenhagen
kante[1213] = 2083
kante[1214] = 1129
kante[1215] = 915
kante[1216] = 367
kante[1217] = 886
kante[1218] = 1238
kante[1219] = 1030
kante[1220] = 688
kante[1221] = 1507
kante[1222] = 1205
kante[1223] = 2234
kante[1224] = 1533
kante[1225] = 802
kante[1226] = 1252

* Rom
kante[1314] = 1872
kante[1315] = 1150
kante[1316] = 1525
kante[1317] = 1661
kante[1318] = 1898
kante[1319] = 1492
kante[1320] = 1300
kante[1321] = 565
kante[1322] = 871
kante[1323] = 1420
kante[1324] = 882
kante[1325] = 1275
kante[1326] = 1413

* Warschau
kante[1415] = 718
kante[1416] = 589
kante[1417] = 1216
kante[1418] = 1670
kante[1419] = 1299
kante[1420] = 612
kante[1421] = 1456
kante[1422] = 1298
kante[1423] = 2529
kante[1424] = 1575
kante[1425] = 1064
kante[1426] = 1627

* Wien
kante[1516] = 648
kante[1517] = 1139
kante[1518] = 1582
kante[1519] = 1107
kante[1520] = 312
kante[1521] = 837
kante[1522] = 748
kante[1523] = 1928
kante[1524] = 1018
kante[1525] = 723
kante[1526] = 1271

* Berlin
kante[1617] = 669
kante[1618] = 1114
kante[1619] = 781
kante[1620] = 337
kante[1621] = 1055
kante[1622] = 859
kante[1623] = 1847
kante[1624] = 1129
kante[1625] = 552
kante[1626] = 1073

* Amsterdam
kante[1718] = 530
kante[1719] = 220
kante[1720] = 912
kante[1721] = 1096
kante[1722] = 801
kante[1723] = 1558
kante[1724] = 964
kante[1725] = 416
kante[1726] = 517

* London
kante[1819] = 371
kante[1820] = 1257
kante[1821] = 1321
kante[1822] = 942
kante[1823] = 1504
kante[1824] = 991
kante[1825] = 764
kante[1826] = 449

* Brssel
kante[1920] = 913
kante[1921] = 927
kante[1922] = 632
kante[1923] = 1338
kante[1924] = 664
kante[1925] = 409
kante[1926] = 297

* Prag
kante[2021] = 830
kante[2022] = 668
kante[2023] = 1480
kante[2024] = 950
kante[2025] = 504
kante[2026] = 1071

* Mailand
kante[2122] = 305
kante[2123] = 1043
kante[2124] = 317
kante[2125] = 710
kante[2126] = 842

* Zrich
kante[2223] = 1052
kante[2224] = 280
kante[2225] = 415
kante[2226] = 572

* Barcelona
kante[2324] = 772
kante[2325] = 1295
kante[2326] = 1030

* Genf
kante[2425] = 578
kante[2426] = 517

* Frankfurt/M
kante[2526] = 567

* Paris

*
*
* Ende kanteneu.prg*
* Min13.prg
*
 
nr25  = 13
sum_m13 = 99999

do while nr25 < 26
   knoten[nr25] = 25
   nr26 = nr25 + 1
   do while nr26 < 27
      nr26h = nr25*100 + nr26
      if sum_m13 > kante[nr26h]
         sum_m13 = kante[nr26h]
         @ 04,33 say time()
         @ 00,34 say ltrim(str(nr25)) + "  "
         @ 00,36 say "-"
         @ 00,37 say ltrim(str(nr26)) + "  "
         @ 00,26 say ltrim(str(kante[nr26h])) + "  "
      endif
   nr26 = nr26 + 1
   enddo
nr25 = nr25 + 1
enddo

do min12


*
*
* Ende Min13.prg*
* Min12.prg
*

nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo
 
nr23  = 12
sum_m12 = 99999

nr25  = 13

do while nr23 < 24
   if knoten[nr23] > 0
      nr23 = nr23 + 1
      loop
   endif   
   knoten[nr23] = 23

   nr24 = nr23 + 1
   do while nr24 < 27
      if knoten[nr24] > 0
         nr24 = nr24 + 1
         loop
      endif   

      knoten[nr24] = 24
      nr24h = nr23*100 + nr24

      if kante[nr24h] + sum_m13 > sum_m12 
         knoten[nr24] = 0
         nr24 = nr24 + 1
         loop
      endif   
         
******

   nr25 = nr23 + 1
   do while nr25 < 26
      if knoten[nr25] > 0
         nr25 = nr25 + 1
         loop
      endif   
      knoten[nr25] = 25
      nr26 = nr25 + 1

      do while nr26 < 27
         if knoten[nr26] > 0
            nr26 = nr26 + 1
            loop
         endif   
         knoten[nr26] = 26
         nr26h = nr25*100 + nr26
         if sum_m12 > kante[nr26h] + kante[nr24h]
            sum_m12 = kante[nr26h] + kante[nr24h]

         @ 04,33 say time()
         @ 00,40 say space(40)
         @ 01,00 say space(80)
         @ 01,00 say trim(ltrim(str(sum_m12))) + "  "
         @ 00,68 say ltrim(str(nr23))
         @ 00,70 say "-"
         @ 00,71 say ltrim(str(nr24))
         @ 00,73 say ","
         @ 00,74 say ltrim(str(nr25))
         @ 00,76 say "-"
         @ 00,77 say ltrim(str(nr26))

         @ 01,68 say ltrim(str(kante[nr24h]))
         @ 01,74 say ltrim(str(kante[nr26h]))
         endif
      knoten[nr26] = 0
      nr26 = nr26 + 1
      enddo
   knoten[nr25] = 0
   nr25 = nr25 + 1
   enddo

knoten[nr24] = 0
nr24 = nr24 + 1
enddo

knoten[nr23] = 0
nr23 = nr23 + 1
enddo

do min11

*
*
* Ende Min12.prg*
* Min11.prg
*

nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo
 
nr21  = 11
sum_m11 = 99999
 
nr23  = 12
nr25  = 13

*********

do while nr21 < 22
   if knoten[nr21] > 0
      nr21 = nr21 + 1
      loop
   endif   
   knoten[nr21] = 21

   nr22 = nr21 + 1
   do while nr22 < 27
      if knoten[nr22] > 0
         nr22 = nr22 + 1
         loop
      endif   

      knoten[nr22] = 22
      nr22h = nr21*100 + nr22

      if kante[nr22h] + sum_m12 > sum_m11 
         knoten[nr22] = 0
         nr22 = nr22 + 1
         loop
      endif   

******
      nr23 = nr21 + 1

      do while nr23 < 24
         if knoten[nr23] > 0
            nr23 = nr23 + 1
            loop
         endif   
         knoten[nr23] = 23

         nr24 = nr23 + 1
         do while nr24 < 27
            if knoten[nr24] > 0
               nr24 = nr24 + 1
               loop
            endif   
      
            knoten[nr24] = 24
            nr24h = nr23*100 + nr24

            if kante[nr24h] + kante[nr22h] + sum_m13 > sum_m11 
               knoten[nr24] = 0
               nr24 = nr24 + 1
               loop
            endif   
         
******

   nr25 = nr23 + 1
   do while nr25 < 26
      if knoten[nr25] > 0
         nr25 = nr25 + 1
         loop
      endif   
      knoten[nr25] = 25
      nr26 = nr25 + 1

      do while nr26 < 27
         if knoten[nr26] > 0
            nr26 = nr26 + 1
            loop
         endif   
         knoten[nr26] = 26
         nr26h = nr25*100 + nr26
         if sum_m11 > kante[nr26h] + kante[nr24h] + kante[nr22h]
            sum_m11 = kante[nr26h] + kante[nr24h] + kante[nr22h]

         @ 04,33 say time()
         @ 02,00 say space(80)
         @ 03,00 say space(80)
         @ 03,00 say trim(ltrim(str(sum_m11)))
         @ 02,62 say ltrim(str(nr21))
         @ 02,64 say "-"
         @ 02,65 say ltrim(str(nr22))
         @ 02,67 say ","

         @ 02,68 say ltrim(str(nr23))
         @ 02,70 say "-"
         @ 02,71 say ltrim(str(nr24))
         @ 02,73 say ","
         
         @ 02,74 say ltrim(str(nr25))
         @ 02,76 say "-"
         @ 02,77 say ltrim(str(nr26))
         
         @ 03,62 say ltrim(str(kante[nr22h]))
         @ 03,68 say ltrim(str(kante[nr24h]))
         @ 03,74 say ltrim(str(kante[nr26h]))

         endif

      knoten[nr26] = 0
      nr26 = nr26 + 1
      enddo
   knoten[nr25] = 0
   nr25 = nr25 + 1
   enddo

**************

knoten[nr24] = 0
nr24 = nr24 + 1
enddo

knoten[nr23] = 0
nr23 = nr23 + 1
enddo

************

knoten[nr22] = 0
nr22 = nr22 + 1
enddo

knoten[nr21] = 0
nr21 = nr21 + 1
enddo

do min10

*
*
* Ende Min11.prg*
* Min10.prg
*

nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo
 
nr19  = 10
sum_m10 = 99999
 
nr21  = 11
nr23  = 12
nr25  = 13

*********

do while nr19 < 20
   if knoten[nr19] > 0
      nr19 = nr19 + 1
      loop
   endif   
   knoten[nr19] = 19

   nr20 = nr19 + 1
   do while nr20 < 27
      if knoten[nr20] > 0
         nr20 = nr20 + 1
         loop
      endif   

      knoten[nr20] = 20
      nr20h = nr19*100 + nr20

      if kante[nr20h] > sum_m10 - sum_m11
         knoten[nr20] = 0
         nr20 = nr20 + 1
         loop
      endif   

******
      nr21 = nr19 + 1

do while nr21 < 22
   if knoten[nr21] > 0
      nr21 = nr21 + 1
      loop
   endif   
   knoten[nr21] = 21

   nr22 = nr21 + 1
   do while nr22 < 27
      if knoten[nr22] > 0
         nr22 = nr22 + 1
         loop
      endif   

      knoten[nr22] = 22
      nr22h = nr21*100 + nr22

      if kante[nr20h] + kante[nr22h] > sum_m10 - sum_m12
         knoten[nr22] = 0
         nr22 = nr22 + 1
         loop
      endif   

******
      nr23 = nr21 + 1

      do while nr23 < 24
         if knoten[nr23] > 0
            nr23 = nr23 + 1
            loop
         endif   
         knoten[nr23] = 23

         nr24 = nr23 + 1
         do while nr24 < 27
            if knoten[nr24] > 0
               nr24 = nr24 + 1
               loop
            endif   
      
            knoten[nr24] = 24
            nr24h = nr23*100 + nr24

      if kante[nr20h] + kante[nr22h] + kante[nr24h] > sum_m10 - sum_m13
               knoten[nr24] = 0
               nr24 = nr24 + 1
               loop
            endif   
         
******

   nr25 = nr23 + 1
   do while nr25 < 26
      if knoten[nr25] > 0
         nr25 = nr25 + 1
         loop
      endif   
      knoten[nr25] = 25
      nr26 = nr25 + 1

      do while nr26 < 27
         if knoten[nr26] > 0
            nr26 = nr26 + 1
            loop
         endif   
         knoten[nr26] = 26
         nr26h = nr25*100 + nr26
         if sum_m10 > kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h]
            sum_m10 = kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h]

         @ 04,33 say time()
         @ 04,50 say space(30)
         @ 05,00 say space(80)
         @ 05,00 say trim(ltrim(str(sum_m10)))

         @ 04,56 say ltrim(str(nr19))
         @ 04,58 say "-"
         @ 04,59 say ltrim(str(nr20))
         @ 04,61 say ","

         @ 04,62 say ltrim(str(nr21))
         @ 04,64 say "-"
         @ 04,65 say ltrim(str(nr22))
         @ 04,67 say ","

         @ 04,68 say ltrim(str(nr23))
         @ 04,70 say "-"
         @ 04,71 say ltrim(str(nr24))
         @ 04,73 say ","
         
         @ 04,74 say ltrim(str(nr25))
         @ 04,76 say "-"
         @ 04,77 say ltrim(str(nr26))
         
         @ 05,56 say ltrim(str(kante[nr20h]))
         @ 05,62 say ltrim(str(kante[nr22h]))
         @ 05,68 say ltrim(str(kante[nr24h]))
         @ 05,74 say ltrim(str(kante[nr26h]))

         endif

      knoten[nr26] = 0
      nr26 = nr26 + 1
      enddo

   knoten[nr25] = 0
   nr25 = nr25 + 1
   enddo

**************

knoten[nr24] = 0
nr24 = nr24 + 1
enddo

knoten[nr23] = 0
nr23 = nr23 + 1
enddo

************

knoten[nr22] = 0
nr22 = nr22 + 1
enddo

knoten[nr21] = 0
nr21 = nr21 + 1
enddo

************

knoten[nr20] = 0
nr20 = nr20 + 1
enddo

knoten[nr19] = 0
nr19 = nr19 + 1
enddo

do min09

*
*
* Ende Min10.prg*
* Min09.prg
*

nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo
 
nr17  = 9
sum_m09 = 99999
 
nr19  = 10
nr21  = 11
nr23  = 12
nr25  = 13

*********

do while nr17 < 18
   if knoten[nr17] > 0
      nr17 = nr17 + 1
      loop
   endif   
   knoten[nr17] = 17

   nr18 = nr17 + 1
   do while nr18 < 27
      if knoten[nr18] > 0
         nr18 = nr18 + 1
         loop
      endif   

      knoten[nr18] = 18
      nr18h = nr17*100 + nr18

      if kante[nr18h] > sum_m09 - sum_m10
         knoten[nr18] = 0
         nr18 = nr18 + 1
         loop
      endif   

******
      nr19 = nr17 + 1

do while nr19 < 20
   if knoten[nr19] > 0
      nr19 = nr19 + 1
      loop
   endif   
   knoten[nr19] = 19

   nr20 = nr19 + 1
   do while nr20 < 27
      if knoten[nr20] > 0
         nr20 = nr20 + 1
         loop
      endif   

      knoten[nr20] = 20
      nr20h = nr19*100 + nr20

      if kante[nr18h] + kante[nr20h] > sum_m09 - sum_m11
         knoten[nr20] = 0
         nr20 = nr20 + 1
         loop
      endif   

******
      nr21 = nr19 + 1

do while nr21 < 22
   if knoten[nr21] > 0
      nr21 = nr21 + 1
      loop
   endif   
   knoten[nr21] = 21

   nr22 = nr21 + 1
   do while nr22 < 27
      if knoten[nr22] > 0
         nr22 = nr22 + 1
         loop
      endif   

      knoten[nr22] = 22
      nr22h = nr21*100 + nr22

      if kante[nr18h] + kante[nr20h] + kante[nr22h] > sum_m09 - sum_m12
         knoten[nr22] = 0
         nr22 = nr22 + 1
         loop
      endif   

******
      nr23 = nr21 + 1

      do while nr23 < 24
         if knoten[nr23] > 0
            nr23 = nr23 + 1
            loop
         endif   
         knoten[nr23] = 23

         nr24 = nr23 + 1
         do while nr24 < 27
            if knoten[nr24] > 0
               nr24 = nr24 + 1
               loop
            endif   
      
            knoten[nr24] = 24
            nr24h = nr23*100 + nr24

      if kante[nr18h] + kante[nr20h] + kante[nr22h] + kante[nr24h] > sum_m09 - sum_m13
               knoten[nr24] = 0
               nr24 = nr24 + 1
               loop
            endif   
         
******

   nr25 = nr23 + 1
   do while nr25 < 26
      if knoten[nr25] > 0
         nr25 = nr25 + 1
         loop
      endif   
      knoten[nr25] = 25
      nr26 = nr25 + 1

      do while nr26 < 27
         if knoten[nr26] > 0
            nr26 = nr26 + 1
            loop
         endif   
         knoten[nr26] = 26
         nr26h = nr25*100 + nr26
         if sum_m09 > kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h]
            sum_m09 = kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h]

 
         @ 04,33 say time()
         @ 06,00 say space(80)
         @ 07,00 say space(80)
         @ 07,00 say trim(ltrim(str(sum_m09)))

         @ 06,50 say ltrim(str(nr17))
         @ 06,52 say "-"
         @ 06,53 say ltrim(str(nr18))
         @ 06,55 say ","

         @ 06,56 say ltrim(str(nr19))
         @ 06,58 say "-"
         @ 06,59 say ltrim(str(nr20))
         @ 06,61 say ","

         @ 06,62 say ltrim(str(nr21))
         @ 06,64 say "-"
         @ 06,65 say ltrim(str(nr22))
         @ 06,67 say ","

         @ 06,68 say ltrim(str(nr23))
         @ 06,70 say "-"
         @ 06,71 say ltrim(str(nr24))
         @ 06,73 say ","
         
         @ 06,74 say ltrim(str(nr25))
         @ 06,76 say "-"
         @ 06,77 say ltrim(str(nr26))
         
         @ 07,50 say ltrim(str(kante[nr18h]))
         @ 07,56 say ltrim(str(kante[nr20h]))
         @ 07,62 say ltrim(str(kante[nr22h]))
         @ 07,68 say ltrim(str(kante[nr24h]))
         @ 07,74 say ltrim(str(kante[nr26h]))

         endif

      knoten[nr26] = 0
      nr26 = nr26 + 1
      enddo

   knoten[nr25] = 0
   nr25 = nr25 + 1
   enddo

**************

knoten[nr24] = 0
nr24 = nr24 + 1
enddo

knoten[nr23] = 0
nr23 = nr23 + 1
enddo

************

knoten[nr22] = 0
nr22 = nr22 + 1
enddo

knoten[nr21] = 0
nr21 = nr21 + 1
enddo

************

knoten[nr20] = 0
nr20 = nr20 + 1
enddo

knoten[nr19] = 0
nr19 = nr19 + 1
enddo

************

knoten[nr18] = 0
nr18 = nr18 + 1
enddo

knoten[nr17] = 0
nr17 = nr17 + 1
enddo

do min08

*
*
* Ende Min09.prg*
* Min08.prg
*

nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo
 
nr15  = 8
sum_m08 = 99999
 
nr17  = 9
nr19  = 10
nr21  = 11
nr23  = 12
nr25  = 13

*********

do while nr15 < 16
   if knoten[nr15] > 0
      nr15 = nr15 + 1
      loop
   endif   
   knoten[nr15] = 15

   nr16 = nr15 + 1
   do while nr16 < 27
      if knoten[nr16] > 0
         nr16 = nr16 + 1
         loop
      endif   

      knoten[nr16] = 16
      nr16h = nr15*100 + nr16

      if kante[nr16h] > sum_m08 - sum_m09
         knoten[nr16] = 0
         nr16 = nr16 + 1
         loop
      endif   

******
      nr17 = nr15 + 1

do while nr17 < 18
   if knoten[nr17] > 0
      nr17 = nr17 + 1
      loop
   endif   
   knoten[nr17] = 17

   nr18 = nr17 + 1
   do while nr18 < 27
      if knoten[nr18] > 0
         nr18 = nr18 + 1
         loop
      endif   

      knoten[nr18] = 18
      nr18h = nr17*100 + nr18

      if kante[nr16h] + kante[nr18h] > sum_m08 - sum_m10
         knoten[nr18] = 0
         nr18 = nr18 + 1
         loop
      endif   

******
      nr19 = nr17 + 1

do while nr19 < 20
   if knoten[nr19] > 0
      nr19 = nr19 + 1
      loop
   endif   
   knoten[nr19] = 19

   nr20 = nr19 + 1
   do while nr20 < 27
      if knoten[nr20] > 0
         nr20 = nr20 + 1
         loop
      endif   

      knoten[nr20] = 20
      nr20h = nr19*100 + nr20

      if kante[nr16h] + kante[nr18h] + kante[nr20h] > sum_m08 - sum_m11
         knoten[nr20] = 0
         nr20 = nr20 + 1
         loop
      endif   

******
      nr21 = nr19 + 1

do while nr21 < 22
   if knoten[nr21] > 0
      nr21 = nr21 + 1
      loop
   endif   
   knoten[nr21] = 21

   nr22 = nr21 + 1
   do while nr22 < 27
      if knoten[nr22] > 0
         nr22 = nr22 + 1
         loop
      endif   

      knoten[nr22] = 22
      nr22h = nr21*100 + nr22

      if kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] > sum_m08 - sum_m12
         knoten[nr22] = 0
         nr22 = nr22 + 1
         loop
      endif   

******
      nr23 = nr21 + 1

      do while nr23 < 24
         if knoten[nr23] > 0
            nr23 = nr23 + 1
            loop
         endif   
         knoten[nr23] = 23

         nr24 = nr23 + 1
         do while nr24 < 27
            if knoten[nr24] > 0
               nr24 = nr24 + 1
               loop
            endif   
      
            knoten[nr24] = 24
            nr24h = nr23*100 + nr24

      if kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] + kante[nr24h] > sum_m08 - sum_m13
               knoten[nr24] = 0
               nr24 = nr24 + 1
               loop
            endif   
         
******

   nr25 = nr23 + 1
   do while nr25 < 26
      if knoten[nr25] > 0
         nr25 = nr25 + 1
         loop
      endif   
      knoten[nr25] = 25
      nr26 = nr25 + 1

      do while nr26 < 27
         if knoten[nr26] > 0
            nr26 = nr26 + 1
            loop
         endif   
         knoten[nr26] = 26
         nr26h = nr25*100 + nr26
         if sum_m08 > kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]
            sum_m08 = kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]

         @ 04,33 say time()
         @ 08,00 say space(80)
         @ 09,00 say space(80)
         @ 09,00 say trim(ltrim(str(sum_m08)))

         @ 08,44 say ltrim(str(nr15))
         @ 08,46 say "-"
         @ 08,47 say ltrim(str(nr16))
         @ 08,49 say ","

         @ 08,50 say ltrim(str(nr17))
         @ 08,52 say "-"
         @ 08,53 say ltrim(str(nr18))
         @ 08,55 say ","

         @ 08,56 say ltrim(str(nr19))
         @ 08,58 say "-"
         @ 08,59 say ltrim(str(nr20))
         @ 08,61 say ","

         @ 08,62 say ltrim(str(nr21))
         @ 08,64 say "-"
         @ 08,65 say ltrim(str(nr22))
         @ 08,67 say ","

         @ 08,68 say ltrim(str(nr23))
         @ 08,70 say "-"
         @ 08,71 say ltrim(str(nr24))
         @ 08,73 say ","
         
         @ 08,74 say ltrim(str(nr25))
         @ 08,76 say "-"
         @ 08,77 say ltrim(str(nr26))
         
         @ 09,44 say ltrim(str(kante[nr16h]))
         @ 09,50 say ltrim(str(kante[nr18h]))
         @ 09,56 say ltrim(str(kante[nr20h]))
         @ 09,62 say ltrim(str(kante[nr22h]))
         @ 09,68 say ltrim(str(kante[nr24h]))
         @ 09,74 say ltrim(str(kante[nr26h]))

         endif

      knoten[nr26] = 0
      nr26 = nr26 + 1
      enddo

   knoten[nr25] = 0
   nr25 = nr25 + 1
   enddo

**************

knoten[nr24] = 0
nr24 = nr24 + 1
enddo

knoten[nr23] = 0
nr23 = nr23 + 1
enddo

************

knoten[nr22] = 0
nr22 = nr22 + 1
enddo

knoten[nr21] = 0
nr21 = nr21 + 1
enddo

************

knoten[nr20] = 0
nr20 = nr20 + 1
enddo

knoten[nr19] = 0
nr19 = nr19 + 1
enddo

************

knoten[nr18] = 0
nr18 = nr18 + 1
enddo

knoten[nr17] = 0
nr17 = nr17 + 1
enddo

************

knoten[nr16] = 0
nr16 = nr16 + 1
enddo

knoten[nr15] = 0
nr15 = nr15 + 1
enddo

do min07

*
*
* Ende Min08.prg*
* Min07.prg
*

nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo
 
nr13  = 7
sum_m07 = 99999
 
nr15  = 8
nr17  = 9
nr19  = 10
nr21  = 11
nr23  = 12
nr25  = 13

*********

do while nr13 < 14
   if knoten[nr13] > 0
      nr13 = nr13 + 1
      loop
   endif   
   knoten[nr13] = 13

   nr14 = nr13 + 1
   do while nr14 < 27
      if knoten[nr14] > 0
         nr14 = nr14 + 1
         loop
      endif   

      knoten[nr14] = 14
      nr14h = nr13*100 + nr14

      if kante[nr14h] > sum_m07 - sum_m08
         knoten[nr14] = 0
         nr14 = nr14 + 1
         loop
      endif   

******
      nr15 = nr13 + 1

do while nr15 < 16
   if knoten[nr15] > 0
      nr15 = nr15 + 1
      loop
   endif   
   knoten[nr15] = 15

   nr16 = nr15 + 1
   do while nr16 < 27
      if knoten[nr16] > 0
         nr16 = nr16 + 1
         loop
      endif   

      knoten[nr16] = 16
      nr16h = nr15*100 + nr16

      if kante[nr14h] + kante[nr16h] > sum_m07 - sum_m09
         knoten[nr16] = 0
         nr16 = nr16 + 1
         loop
      endif   

******
      nr17 = nr15 + 1

do while nr17 < 18
   if knoten[nr17] > 0
      nr17 = nr17 + 1
      loop
   endif   
   knoten[nr17] = 17

   nr18 = nr17 + 1
   do while nr18 < 27
      if knoten[nr18] > 0
         nr18 = nr18 + 1
         loop
      endif   

      knoten[nr18] = 18
      nr18h = nr17*100 + nr18

      if kante[nr14h] + kante[nr16h] + kante[nr18h] > sum_m07 - sum_m10
         knoten[nr18] = 0
         nr18 = nr18 + 1
         loop
      endif   

******
      nr19 = nr17 + 1

do while nr19 < 20
   if knoten[nr19] > 0
      nr19 = nr19 + 1
      loop
   endif   
   knoten[nr19] = 19

   nr20 = nr19 + 1
   do while nr20 < 27
      if knoten[nr20] > 0
         nr20 = nr20 + 1
         loop
      endif   

      knoten[nr20] = 20
      nr20h = nr19*100 + nr20

      if kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] > sum_m07 - sum_m11
         knoten[nr20] = 0
         nr20 = nr20 + 1
         loop
      endif   

******
      nr21 = nr19 + 1

do while nr21 < 22
   if knoten[nr21] > 0
      nr21 = nr21 + 1
      loop
   endif   
   knoten[nr21] = 21

   nr22 = nr21 + 1
   do while nr22 < 27
      if knoten[nr22] > 0
         nr22 = nr22 + 1
         loop
      endif   

      knoten[nr22] = 22
      nr22h = nr21*100 + nr22

      if kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] > sum_m07 - sum_m12
         knoten[nr22] = 0
         nr22 = nr22 + 1
         loop
      endif   

******
      nr23 = nr21 + 1

      do while nr23 < 24
         if knoten[nr23] > 0
            nr23 = nr23 + 1
            loop
         endif   
         knoten[nr23] = 23

         nr24 = nr23 + 1
         do while nr24 < 27
            if knoten[nr24] > 0
               nr24 = nr24 + 1
               loop
            endif   
      
            knoten[nr24] = 24
            nr24h = nr23*100 + nr24

      if kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] + kante[nr24h] > sum_m07 - sum_m13
               knoten[nr24] = 0
               nr24 = nr24 + 1
               loop
            endif   
         
******

   nr25 = nr23 + 1
   do while nr25 < 26
      if knoten[nr25] > 0
         nr25 = nr25 + 1
         loop
      endif   
      knoten[nr25] = 25
      nr26 = nr25 + 1

      do while nr26 < 27
         if knoten[nr26] > 0
            nr26 = nr26 + 1
            loop
         endif   
         knoten[nr26] = 26
         nr26h = nr25*100 + nr26
         if sum_m07 > kante[nr14h] + kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]
            sum_m07 = kante[nr14h] + kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]

         @ 04,33 say time()
         @ 10,00 say space(80)
         @ 11,00 say space(80)
         @ 11,00 say trim(ltrim(str(sum_m07)))

         @ 10,38 say ltrim(str(nr13))
         @ 10,40 say "-"
         @ 10,41 say ltrim(str(nr14))
         @ 10,43 say ","

         @ 10,44 say ltrim(str(nr15))
         @ 10,46 say "-"
         @ 10,47 say ltrim(str(nr16))
         @ 10,49 say ","

         @ 10,50 say ltrim(str(nr17))
         @ 10,52 say "-"
         @ 10,53 say ltrim(str(nr18))
         @ 10,55 say ","

         @ 10,56 say ltrim(str(nr19))
         @ 10,58 say "-"
         @ 10,59 say ltrim(str(nr20))
         @ 10,61 say ","

         @ 10,62 say ltrim(str(nr21))
         @ 10,64 say "-"
         @ 10,65 say ltrim(str(nr22))
         @ 10,67 say ","

         @ 10,68 say ltrim(str(nr23))
         @ 10,70 say "-"
         @ 10,71 say ltrim(str(nr24))
         @ 10,73 say ","
         
         @ 10,74 say ltrim(str(nr25))
         @ 10,76 say "-"
         @ 10,77 say ltrim(str(nr26))
         
         @ 11,38 say ltrim(str(kante[nr14h]))
         @ 11,44 say ltrim(str(kante[nr16h]))
         @ 11,50 say ltrim(str(kante[nr18h]))
         @ 11,56 say ltrim(str(kante[nr20h]))
         @ 11,62 say ltrim(str(kante[nr22h]))
         @ 11,68 say ltrim(str(kante[nr24h]))
         @ 11,74 say ltrim(str(kante[nr26h]))

         endif

      knoten[nr26] = 0
      nr26 = nr26 + 1
      enddo

   knoten[nr25] = 0
   nr25 = nr25 + 1
   enddo

**************

knoten[nr24] = 0
nr24 = nr24 + 1
enddo

knoten[nr23] = 0
nr23 = nr23 + 1
enddo

************

knoten[nr22] = 0
nr22 = nr22 + 1
enddo

knoten[nr21] = 0
nr21 = nr21 + 1
enddo

************

knoten[nr20] = 0
nr20 = nr20 + 1
enddo

knoten[nr19] = 0
nr19 = nr19 + 1
enddo

************

knoten[nr18] = 0
nr18 = nr18 + 1
enddo

knoten[nr17] = 0
nr17 = nr17 + 1
enddo

************

knoten[nr16] = 0
nr16 = nr16 + 1
enddo

knoten[nr15] = 0
nr15 = nr15 + 1
enddo

************

knoten[nr14] = 0
nr14 = nr14 + 1
enddo

knoten[nr13] = 0
nr13 = nr13 + 1
enddo

do min06

*
*
* Ende Min07.prg*
* Min06.prg
*

nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo
 
nr11  = 6
sum_m06 = 99999
 
nr13  = 7
nr15  = 8
nr17  = 9
nr19  = 10
nr21  = 11
nr23  = 12
nr25  = 13

*********

do while nr11 < 12
   if knoten[nr11] > 0
      nr11 = nr11 + 1
      loop
   endif   
   knoten[nr11] = 11

   nr12 = nr11 + 1
   do while nr12 < 27
      if knoten[nr12] > 0
         nr12 = nr12 + 1
         loop
      endif   

      knoten[nr12] = 12
      nr12h = nr11*100 + nr12

      if kante[nr12h] > sum_m06 - sum_m07
         knoten[nr12] = 0
         nr12 = nr12 + 1
         loop
      endif   

******
      nr13 = nr11 + 1

do while nr13 < 14
   if knoten[nr13] > 0
      nr13 = nr13 + 1
      loop
   endif   
   knoten[nr13] = 13

   nr14 = nr13 + 1
   do while nr14 < 27
      if knoten[nr14] > 0
         nr14 = nr14 + 1
         loop
      endif   

      knoten[nr14] = 14
      nr14h = nr13*100 + nr14

      if kante[nr12h] + kante[nr14h] > sum_m06 - sum_m08
         knoten[nr14] = 0
         nr14 = nr14 + 1
         loop
      endif   

******
      nr15 = nr13 + 1

do while nr15 < 16
   if knoten[nr15] > 0
      nr15 = nr15 + 1
      loop
   endif   
   knoten[nr15] = 15

   nr16 = nr15 + 1
   do while nr16 < 27
      if knoten[nr16] > 0
         nr16 = nr16 + 1
         loop
      endif   

      knoten[nr16] = 16
      nr16h = nr15*100 + nr16

      if kante[nr12h] + kante[nr14h] + kante[nr16h] > sum_m06 - sum_m09
         knoten[nr16] = 0
         nr16 = nr16 + 1
         loop
      endif   

******
      nr17 = nr15 + 1

do while nr17 < 18
   if knoten[nr17] > 0
      nr17 = nr17 + 1
      loop
   endif   
   knoten[nr17] = 17

   nr18 = nr17 + 1
   do while nr18 < 27
      if knoten[nr18] > 0
         nr18 = nr18 + 1
         loop
      endif   

      knoten[nr18] = 18
      nr18h = nr17*100 + nr18

      if kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] > sum_m06 - sum_m10
         knoten[nr18] = 0
         nr18 = nr18 + 1
         loop
      endif   

******
      nr19 = nr17 + 1

do while nr19 < 20
   if knoten[nr19] > 0
      nr19 = nr19 + 1
      loop
   endif   
   knoten[nr19] = 19

   nr20 = nr19 + 1
   do while nr20 < 27
      if knoten[nr20] > 0
         nr20 = nr20 + 1
         loop
      endif   

      knoten[nr20] = 20
      nr20h = nr19*100 + nr20

      if kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] > sum_m06 - sum_m11
         knoten[nr20] = 0
         nr20 = nr20 + 1
         loop
      endif   

******
      nr21 = nr19 + 1

do while nr21 < 22
   if knoten[nr21] > 0
      nr21 = nr21 + 1
      loop
   endif   
   knoten[nr21] = 21

   nr22 = nr21 + 1
   do while nr22 < 27
      if knoten[nr22] > 0
         nr22 = nr22 + 1
         loop
      endif   

      knoten[nr22] = 22
      nr22h = nr21*100 + nr22

      if kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] > sum_m06 - sum_m12
         knoten[nr22] = 0
         nr22 = nr22 + 1
         loop
      endif   

******
      nr23 = nr21 + 1

      do while nr23 < 24
         if knoten[nr23] > 0
            nr23 = nr23 + 1
            loop
         endif   
         knoten[nr23] = 23

         nr24 = nr23 + 1
         do while nr24 < 27
            if knoten[nr24] > 0
               nr24 = nr24 + 1
               loop
            endif   
      
            knoten[nr24] = 24
            nr24h = nr23*100 + nr24

      if kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] + kante[nr24h] > sum_m06 - sum_m13
               knoten[nr24] = 0
               nr24 = nr24 + 1
               loop
            endif   
         
******

   nr25 = nr23 + 1
   do while nr25 < 26
      if knoten[nr25] > 0
         nr25 = nr25 + 1
         loop
      endif   
      knoten[nr25] = 25
      nr26 = nr25 + 1

      do while nr26 < 27
         if knoten[nr26] > 0
            nr26 = nr26 + 1
            loop
         endif   
         knoten[nr26] = 26
         nr26h = nr25*100 + nr26
         if sum_m06 > kante[nr12h] + kante[nr14h] + kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]
            sum_m06 = kante[nr12h] + kante[nr14h] + kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]

         @ 04,33 say time()
         @ 12,00 say space(80)
         @ 13,00 say space(80)
         @ 13,00 say trim(ltrim(str(sum_m06)))

         @ 12,32 say ltrim(str(nr11))
         @ 12,34 say "-"
         @ 12,35 say ltrim(str(nr12))
         @ 12,37 say ","

         @ 12,38 say ltrim(str(nr13))
         @ 12,40 say "-"
         @ 12,41 say ltrim(str(nr14))
         @ 12,43 say ","

         @ 12,44 say ltrim(str(nr15))
         @ 12,46 say "-"
         @ 12,47 say ltrim(str(nr16))
         @ 12,49 say ","

         @ 12,50 say ltrim(str(nr17))
         @ 12,52 say "-"
         @ 12,53 say ltrim(str(nr18))
         @ 12,55 say ","

         @ 12,56 say ltrim(str(nr19))
         @ 12,58 say "-"
         @ 12,59 say ltrim(str(nr20))
         @ 12,61 say ","

         @ 12,62 say ltrim(str(nr21))
         @ 12,64 say "-"
         @ 12,65 say ltrim(str(nr22))
         @ 12,67 say ","

         @ 12,68 say ltrim(str(nr23))
         @ 12,70 say "-"
         @ 12,71 say ltrim(str(nr24))
         @ 12,73 say ","
         
         @ 12,74 say ltrim(str(nr25))
         @ 12,76 say "-"
         @ 12,77 say ltrim(str(nr26))
         
         @ 13,32 say ltrim(str(kante[nr12h]))
         @ 13,38 say ltrim(str(kante[nr14h]))
         @ 13,44 say ltrim(str(kante[nr16h]))
         @ 13,50 say ltrim(str(kante[nr18h]))
         @ 13,56 say ltrim(str(kante[nr20h]))
         @ 13,62 say ltrim(str(kante[nr22h]))
         @ 13,68 say ltrim(str(kante[nr24h]))
         @ 13,74 say ltrim(str(kante[nr26h]))

         endif

      knoten[nr26] = 0
      nr26 = nr26 + 1
      enddo

   knoten[nr25] = 0
   nr25 = nr25 + 1
   enddo

**************

knoten[nr24] = 0
nr24 = nr24 + 1
enddo

knoten[nr23] = 0
nr23 = nr23 + 1
enddo

************

knoten[nr22] = 0
nr22 = nr22 + 1
enddo

knoten[nr21] = 0
nr21 = nr21 + 1
enddo

************

knoten[nr20] = 0
nr20 = nr20 + 1
enddo

knoten[nr19] = 0
nr19 = nr19 + 1
enddo

************

knoten[nr18] = 0
nr18 = nr18 + 1
enddo

knoten[nr17] = 0
nr17 = nr17 + 1
enddo

************

knoten[nr16] = 0
nr16 = nr16 + 1
enddo

knoten[nr15] = 0
nr15 = nr15 + 1
enddo

************

knoten[nr14] = 0
nr14 = nr14 + 1
enddo

knoten[nr13] = 0
nr13 = nr13 + 1
enddo

************

knoten[nr12] = 0
nr12 = nr12 + 1
enddo

knoten[nr11] = 0
nr11 = nr11 + 1
enddo

do min05

*
*
* Ende Min06.prg*
* Min05.prg
*

nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo
 
nr09  = 5
sum_m05 = 99999
 
nr11  = 6
nr13  = 7
nr15  = 8
nr17  = 9
nr19  = 10
nr21  = 11
nr23  = 12
nr25  = 13

*********

do while nr09 < 10
   if knoten[nr09] > 0
      nr09 = nr09 + 1
      loop
   endif   
   knoten[nr09] = 9

   nr10 = nr09 + 1
   do while nr10 < 27
      if knoten[nr10] > 0
         nr10 = nr10 + 1
         loop
      endif   

      knoten[nr10] = 10
      nr10h = nr09*100 + nr10

      if kante[nr10h] > sum_m05 - sum_m06
         knoten[nr10] = 0
         nr10 = nr10 + 1
         loop
      endif   

******
      nr11 = nr09 + 1

do while nr11 < 12
   if knoten[nr11] > 0
      nr11 = nr11 + 1
      loop
   endif   
   knoten[nr11] = 11

   nr12 = nr11 + 1
   do while nr12 < 27
      if knoten[nr12] > 0
         nr12 = nr12 + 1
         loop
      endif   

      knoten[nr12] = 12
      nr12h = nr11*100 + nr12

      if kante[nr10h] + kante[nr12h] > sum_m05 - sum_m07
         knoten[nr12] = 0
         nr12 = nr12 + 1
         loop
      endif   

******
      nr13 = nr11 + 1

do while nr13 < 14
   if knoten[nr13] > 0
      nr13 = nr13 + 1
      loop
   endif   
   knoten[nr13] = 13

   nr14 = nr13 + 1
   do while nr14 < 27
      if knoten[nr14] > 0
         nr14 = nr14 + 1
         loop
      endif   

      knoten[nr14] = 14
      nr14h = nr13*100 + nr14

      if kante[nr10h] + kante[nr12h] + kante[nr14h] > sum_m05 - sum_m08
         knoten[nr14] = 0
         nr14 = nr14 + 1
         loop
      endif   

******
      nr15 = nr13 + 1

do while nr15 < 16
   if knoten[nr15] > 0
      nr15 = nr15 + 1
      loop
   endif   
   knoten[nr15] = 15

   nr16 = nr15 + 1
   do while nr16 < 27
      if knoten[nr16] > 0
         nr16 = nr16 + 1
         loop
      endif   

      knoten[nr16] = 16
      nr16h = nr15*100 + nr16

      if kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] > sum_m05 - sum_m09
         knoten[nr16] = 0
         nr16 = nr16 + 1
         loop
      endif   

******
      nr17 = nr15 + 1

do while nr17 < 18
   if knoten[nr17] > 0
      nr17 = nr17 + 1
      loop
   endif   
   knoten[nr17] = 17

   nr18 = nr17 + 1
   do while nr18 < 27
      if knoten[nr18] > 0
         nr18 = nr18 + 1
         loop
      endif   

      knoten[nr18] = 18
      nr18h = nr17*100 + nr18

      if kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] > sum_m05 - sum_m10
         knoten[nr18] = 0
         nr18 = nr18 + 1
         loop
      endif   

******
      nr19 = nr17 + 1

do while nr19 < 20
   if knoten[nr19] > 0
      nr19 = nr19 + 1
      loop
   endif   
   knoten[nr19] = 19

   nr20 = nr19 + 1
   do while nr20 < 27
      if knoten[nr20] > 0
         nr20 = nr20 + 1
         loop
      endif   

      knoten[nr20] = 20
      nr20h = nr19*100 + nr20

      if kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] > sum_m05 - sum_m11
         knoten[nr20] = 0
         nr20 = nr20 + 1
         loop
      endif   

******
      nr21 = nr19 + 1

do while nr21 < 22
   if knoten[nr21] > 0
      nr21 = nr21 + 1
      loop
   endif   
   knoten[nr21] = 21

   nr22 = nr21 + 1
   do while nr22 < 27
      if knoten[nr22] > 0
         nr22 = nr22 + 1
         loop
      endif   

      knoten[nr22] = 22
      nr22h = nr21*100 + nr22

      if kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] > sum_m05 - sum_m12
         knoten[nr22] = 0
         nr22 = nr22 + 1
         loop
      endif   

******
      nr23 = nr21 + 1

      do while nr23 < 24
         if knoten[nr23] > 0
            nr23 = nr23 + 1
            loop
         endif   
         knoten[nr23] = 23

         nr24 = nr23 + 1
         do while nr24 < 27
            if knoten[nr24] > 0
               nr24 = nr24 + 1
               loop
            endif   
      
            knoten[nr24] = 24
            nr24h = nr23*100 + nr24

      if kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] + kante[nr24h] > sum_m05 - sum_m13
               knoten[nr24] = 0
               nr24 = nr24 + 1
               loop
            endif   
         
******

   nr25 = nr23 + 1
   do while nr25 < 26
      if knoten[nr25] > 0
         nr25 = nr25 + 1
         loop
      endif   
      knoten[nr25] = 25
      nr26 = nr25 + 1

      do while nr26 < 27
         if knoten[nr26] > 0
            nr26 = nr26 + 1
            loop
         endif   
         knoten[nr26] = 26
         nr26h = nr25*100 + nr26
         if sum_m05 > kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]
            sum_m05 = kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]

         @ 04,33 say time()
         @ 14,00 say space(80)
         @ 15,00 say space(80)
         @ 15,00 say trim(ltrim(str(sum_m05)))

         @ 14,26 say ltrim(str(nr09))
         @ 14,28 say "-"
         @ 14,29 say ltrim(str(nr10))
         @ 14,31 say ","

         @ 14,32 say ltrim(str(nr11))
         @ 14,34 say "-"
         @ 14,35 say ltrim(str(nr12))
         @ 14,37 say ","

         @ 14,38 say ltrim(str(nr13))
         @ 14,40 say "-"
         @ 14,41 say ltrim(str(nr14))
         @ 14,43 say ","

         @ 14,44 say ltrim(str(nr15))
         @ 14,46 say "-"
         @ 14,47 say ltrim(str(nr16))
         @ 14,49 say ","

         @ 14,50 say ltrim(str(nr17))
         @ 14,52 say "-"
         @ 14,53 say ltrim(str(nr18))
         @ 14,55 say ","

         @ 14,56 say ltrim(str(nr19))
         @ 14,58 say "-"
         @ 14,59 say ltrim(str(nr20))
         @ 14,61 say ","

         @ 14,62 say ltrim(str(nr21))
         @ 14,64 say "-"
         @ 14,65 say ltrim(str(nr22))
         @ 14,67 say ","

         @ 14,68 say ltrim(str(nr23))
         @ 14,70 say "-"
         @ 14,71 say ltrim(str(nr24))
         @ 14,73 say ","
         
         @ 14,74 say ltrim(str(nr25))
         @ 14,76 say "-"
         @ 14,77 say ltrim(str(nr26))
         
         @ 15,26 say ltrim(str(kante[nr10h]))
         @ 15,32 say ltrim(str(kante[nr12h]))
         @ 15,38 say ltrim(str(kante[nr14h]))
         @ 15,44 say ltrim(str(kante[nr16h]))
         @ 15,50 say ltrim(str(kante[nr18h]))
         @ 15,56 say ltrim(str(kante[nr20h]))
         @ 15,62 say ltrim(str(kante[nr22h]))
         @ 15,68 say ltrim(str(kante[nr24h]))
         @ 15,74 say ltrim(str(kante[nr26h]))

         endif

      knoten[nr26] = 0
      nr26 = nr26 + 1
      enddo

   knoten[nr25] = 0
   nr25 = nr25 + 1
   enddo

**************

knoten[nr24] = 0
nr24 = nr24 + 1
enddo

knoten[nr23] = 0
nr23 = nr23 + 1
enddo

************

knoten[nr22] = 0
nr22 = nr22 + 1
enddo

knoten[nr21] = 0
nr21 = nr21 + 1
enddo

************

knoten[nr20] = 0
nr20 = nr20 + 1
enddo

knoten[nr19] = 0
nr19 = nr19 + 1
enddo

************

knoten[nr18] = 0
nr18 = nr18 + 1
enddo

knoten[nr17] = 0
nr17 = nr17 + 1
enddo

************

knoten[nr16] = 0
nr16 = nr16 + 1
enddo

knoten[nr15] = 0
nr15 = nr15 + 1
enddo

************

knoten[nr14] = 0
nr14 = nr14 + 1
enddo

knoten[nr13] = 0
nr13 = nr13 + 1
enddo

************

knoten[nr12] = 0
nr12 = nr12 + 1
enddo

knoten[nr11] = 0
nr11 = nr11 + 1
enddo

************

knoten[nr10] = 0
nr10 = nr10 + 1
enddo

knoten[nr09] = 0
nr09 = nr09 + 1
enddo

do min04

*
*
* Ende Min05.prg*
* Min04.prg
*

nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo
 
nr07  = 4
sum_m04 = 99999
 
nr09  = 5
nr11  = 6
nr13  = 7
nr15  = 8
nr17  = 9
nr19  = 10
nr21  = 11
nr23  = 12
nr25  = 13

*********

do while nr07 < 8
   if knoten[nr07] > 0
      nr07 = nr07 + 1
      loop
   endif   
   knoten[nr07] = 7

   nr08 = nr07 + 1
   do while nr08 < 27
      if knoten[nr08] > 0
         nr08 = nr08 + 1
         loop
      endif   

      knoten[nr08] = 8
      nr08h = nr07*100 + nr08

      if kante[nr08h] > sum_m04 - sum_m05
         knoten[nr08] = 0
         nr08 = nr08 + 1
         loop
      endif   

******
      nr09 = nr07 + 1

do while nr09 < 10
   if knoten[nr09] > 0
      nr09 = nr09 + 1
      loop
   endif   
   knoten[nr09] = 9

   nr10 = nr09 + 1
   do while nr10 < 27
      if knoten[nr10] > 0
         nr10 = nr10 + 1
         loop
      endif   

      knoten[nr10] = 10
      nr10h = nr09*100 + nr10

      if kante[nr08h] + kante[nr10h] > sum_m04 - sum_m06
         knoten[nr10] = 0
         nr10 = nr10 + 1
         loop
      endif   

******
      nr11 = nr09 + 1

do while nr11 < 12
   if knoten[nr11] > 0
      nr11 = nr11 + 1
      loop
   endif   
   knoten[nr11] = 11

   nr12 = nr11 + 1
   do while nr12 < 27
      if knoten[nr12] > 0
         nr12 = nr12 + 1
         loop
      endif   

      knoten[nr12] = 12
      nr12h = nr11*100 + nr12

      if kante[nr08h]+ kante[nr10h] + kante[nr12h] > sum_m04 - sum_m07
         knoten[nr12] = 0
         nr12 = nr12 + 1
         loop
      endif   

******
      nr13 = nr11 + 1

do while nr13 < 14
   if knoten[nr13] > 0
      nr13 = nr13 + 1
      loop
   endif   
   knoten[nr13] = 13

   nr14 = nr13 + 1
   do while nr14 < 27
      if knoten[nr14] > 0
         nr14 = nr14 + 1
         loop
      endif   

      knoten[nr14] = 14
      nr14h = nr13*100 + nr14

      if kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] > sum_m04 - sum_m08
         knoten[nr14] = 0
         nr14 = nr14 + 1
         loop
      endif   

******
      nr15 = nr13 + 1

do while nr15 < 16
   if knoten[nr15] > 0
      nr15 = nr15 + 1
      loop
   endif   
   knoten[nr15] = 15

   nr16 = nr15 + 1
   do while nr16 < 27
      if knoten[nr16] > 0
         nr16 = nr16 + 1
         loop
      endif   

      knoten[nr16] = 16
      nr16h = nr15*100 + nr16

      if kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] > sum_m04 - sum_m09
         knoten[nr16] = 0
         nr16 = nr16 + 1
         loop
      endif   

******
      nr17 = nr15 + 1

do while nr17 < 18
   if knoten[nr17] > 0
      nr17 = nr17 + 1
      loop
   endif   
   knoten[nr17] = 17

   nr18 = nr17 + 1
   do while nr18 < 27
      if knoten[nr18] > 0
         nr18 = nr18 + 1
         loop
      endif   

      knoten[nr18] = 18
      nr18h = nr17*100 + nr18

      if kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] > sum_m04 - sum_m10
         knoten[nr18] = 0
         nr18 = nr18 + 1
         loop
      endif   

******
      nr19 = nr17 + 1

do while nr19 < 20
   if knoten[nr19] > 0
      nr19 = nr19 + 1
      loop
   endif   
   knoten[nr19] = 19

   nr20 = nr19 + 1
   do while nr20 < 27
      if knoten[nr20] > 0
         nr20 = nr20 + 1
         loop
      endif   

      knoten[nr20] = 20
      nr20h = nr19*100 + nr20

      if kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] > sum_m04 - sum_m11
         knoten[nr20] = 0
         nr20 = nr20 + 1
         loop
      endif   

******
      nr21 = nr19 + 1

do while nr21 < 22
   if knoten[nr21] > 0
      nr21 = nr21 + 1
      loop
   endif   
   knoten[nr21] = 21

   nr22 = nr21 + 1
   do while nr22 < 27
      if knoten[nr22] > 0
         nr22 = nr22 + 1
         loop
      endif   

      knoten[nr22] = 22
      nr22h = nr21*100 + nr22

      if kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] > sum_m04 - sum_m12
         knoten[nr22] = 0
         nr22 = nr22 + 1
         loop
      endif   

******
      nr23 = nr21 + 1

      do while nr23 < 24
         if knoten[nr23] > 0
            nr23 = nr23 + 1
            loop
         endif   
         knoten[nr23] = 23

         nr24 = nr23 + 1
         do while nr24 < 27
            if knoten[nr24] > 0
               nr24 = nr24 + 1
               loop
            endif   
      
            knoten[nr24] = 24
            nr24h = nr23*100 + nr24

      if kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] + kante[nr24h] > sum_m04 - sum_m13
               knoten[nr24] = 0
               nr24 = nr24 + 1
               loop
            endif   
         
******

   nr25 = nr23 + 1
   do while nr25 < 26
      if knoten[nr25] > 0
         nr25 = nr25 + 1
         loop
      endif   
      knoten[nr25] = 25
      nr26 = nr25 + 1

      do while nr26 < 27
         if knoten[nr26] > 0
            nr26 = nr26 + 1
            loop
         endif   
         knoten[nr26] = 26
         nr26h = nr25*100 + nr26
         if sum_m04 > kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]
            sum_m04 = kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]

         @ 04,33 say time()
         @ 16,00 say space(80)
         @ 17,00 say space(80)
         @ 17,00 say trim(ltrim(str(sum_m04)))

         @ 16,20 say ltrim(str(nr07))
         @ 16,22 say "-"
         @ 16,23 say ltrim(str(nr08))
         @ 16,25 say ","

         @ 16,26 say ltrim(str(nr09))
         @ 16,28 say "-"
         @ 16,29 say ltrim(str(nr10))
         @ 16,31 say ","

         @ 16,32 say ltrim(str(nr11))
         @ 16,34 say "-"
         @ 16,35 say ltrim(str(nr12))
         @ 16,37 say ","

         @ 16,38 say ltrim(str(nr13))
         @ 16,40 say "-"
         @ 16,41 say ltrim(str(nr14))
         @ 16,43 say ","

         @ 16,44 say ltrim(str(nr15))
         @ 16,46 say "-"
         @ 16,47 say ltrim(str(nr16))
         @ 16,49 say ","

         @ 16,50 say ltrim(str(nr17))
         @ 16,52 say "-"
         @ 16,53 say ltrim(str(nr18))
         @ 16,55 say ","

         @ 16,56 say ltrim(str(nr19))
         @ 16,58 say "-"
         @ 16,59 say ltrim(str(nr20))
         @ 16,61 say ","

         @ 16,62 say ltrim(str(nr21))
         @ 16,64 say "-"
         @ 16,65 say ltrim(str(nr22))
         @ 16,67 say ","

         @ 16,68 say ltrim(str(nr23))
         @ 16,70 say "-"
         @ 16,71 say ltrim(str(nr24))
         @ 16,73 say ","
         
         @ 16,74 say ltrim(str(nr25))
         @ 16,76 say "-"
         @ 16,77 say ltrim(str(nr26))
         
         @ 17,20 say ltrim(str(kante[nr08h]))
         @ 17,26 say ltrim(str(kante[nr10h]))
         @ 17,32 say ltrim(str(kante[nr12h]))
         @ 17,38 say ltrim(str(kante[nr14h]))
         @ 17,44 say ltrim(str(kante[nr16h]))
         @ 17,50 say ltrim(str(kante[nr18h]))
         @ 17,56 say ltrim(str(kante[nr20h]))
         @ 17,62 say ltrim(str(kante[nr22h]))
         @ 17,68 say ltrim(str(kante[nr24h]))
         @ 17,74 say ltrim(str(kante[nr26h]))

         endif

      knoten[nr26] = 0
      nr26 = nr26 + 1
      enddo

   knoten[nr25] = 0
   nr25 = nr25 + 1
   enddo

**************

knoten[nr24] = 0
nr24 = nr24 + 1
enddo

knoten[nr23] = 0
nr23 = nr23 + 1
enddo

************

knoten[nr22] = 0
nr22 = nr22 + 1
enddo

knoten[nr21] = 0
nr21 = nr21 + 1
enddo

************

knoten[nr20] = 0
nr20 = nr20 + 1
enddo

knoten[nr19] = 0
nr19 = nr19 + 1
enddo

************

knoten[nr18] = 0
nr18 = nr18 + 1
enddo

knoten[nr17] = 0
nr17 = nr17 + 1
enddo

************

knoten[nr16] = 0
nr16 = nr16 + 1
enddo

knoten[nr15] = 0
nr15 = nr15 + 1
enddo

************

knoten[nr14] = 0
nr14 = nr14 + 1
enddo

knoten[nr13] = 0
nr13 = nr13 + 1
enddo

************

knoten[nr12] = 0
nr12 = nr12 + 1
enddo

knoten[nr11] = 0
nr11 = nr11 + 1
enddo

************

knoten[nr10] = 0
nr10 = nr10 + 1
enddo

knoten[nr09] = 0
nr09 = nr09 + 1
enddo

************

knoten[nr08] = 0
nr08 = nr08 + 1
enddo

knoten[nr07] = 0
nr07 = nr07 + 1
enddo

do min03

*
*
* Ende Min04.prg*
* Min03.prg
*

nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo
 
nr05  = 3
sum_m03 = 99999
 
nr07  = 4
nr09  = 5
nr11  = 6
nr13  = 7
nr15  = 8
nr17  = 9
nr19  = 10
nr21  = 11
nr23  = 12
nr25  = 13

*********

do while nr05 < 6
   if knoten[nr05] > 0
      nr05 = nr05 + 1
      loop
   endif   
   knoten[nr05] = 5

   nr06 = nr05 + 1
   do while nr06 < 27
      if knoten[nr06] > 0
         nr06 = nr06 + 1
         loop
      endif   

      knoten[nr06] = 6
      nr06h = nr05*100 + nr06

      if kante[nr06h] > sum_m03 - sum_m04
         knoten[nr06] = 0
         nr06 = nr06 + 1
         loop
      endif   

******
      nr07 = nr05 + 1

do while nr07 < 8
   if knoten[nr07] > 0
      nr07 = nr07 + 1
      loop
   endif   
   knoten[nr07] = 7

   nr08 = nr07 + 1
   do while nr08 < 27
      if knoten[nr08] > 0
         nr08 = nr08 + 1
         loop
      endif   

      knoten[nr08] = 8
      nr08h = nr07*100 + nr08

      if kante[nr06h] + kante[nr08h] > sum_m03 - sum_m05
         knoten[nr08] = 0
         nr08 = nr08 + 1
         loop
      endif   

******
      nr09 = nr07 + 1

do while nr09 < 10
   if knoten[nr09] > 0
      nr09 = nr09 + 1
      loop
   endif   
   knoten[nr09] = 9

   nr10 = nr09 + 1
   do while nr10 < 27
      if knoten[nr10] > 0
         nr10 = nr10 + 1
         loop
      endif   

      knoten[nr10] = 10
      nr10h = nr09*100 + nr10

      if kante[nr06h] + kante[nr08h] + kante[nr10h] > sum_m03 - sum_m06
         knoten[nr10] = 0
         nr10 = nr10 + 1
         loop
      endif   

******
      nr11 = nr09 + 1

do while nr11 < 12
   if knoten[nr11] > 0
      nr11 = nr11 + 1
      loop
   endif   
   knoten[nr11] = 11

   nr12 = nr11 + 1
   do while nr12 < 27
      if knoten[nr12] > 0
         nr12 = nr12 + 1
         loop
      endif   

      knoten[nr12] = 12
      nr12h = nr11*100 + nr12

      if kante[nr06h] + kante[nr08h]+ kante[nr10h] + kante[nr12h] > sum_m03 - sum_m07
         knoten[nr12] = 0
         nr12 = nr12 + 1
         loop
      endif   

******
      nr13 = nr11 + 1

do while nr13 < 14
   if knoten[nr13] > 0
      nr13 = nr13 + 1
      loop
   endif   
   knoten[nr13] = 13

   nr14 = nr13 + 1
   do while nr14 < 27
      if knoten[nr14] > 0
         nr14 = nr14 + 1
         loop
      endif   

      knoten[nr14] = 14
      nr14h = nr13*100 + nr14

      if kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] > sum_m03 - sum_m08
         knoten[nr14] = 0
         nr14 = nr14 + 1
         loop
      endif   

******
      nr15 = nr13 + 1

do while nr15 < 16
   if knoten[nr15] > 0
      nr15 = nr15 + 1
      loop
   endif   
   knoten[nr15] = 15

   nr16 = nr15 + 1
   do while nr16 < 27
      if knoten[nr16] > 0
         nr16 = nr16 + 1
         loop
      endif   

      knoten[nr16] = 16
      nr16h = nr15*100 + nr16

      if kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] > sum_m03 - sum_m09
         knoten[nr16] = 0
         nr16 = nr16 + 1
         loop
      endif   

******
      nr17 = nr15 + 1

do while nr17 < 18
   if knoten[nr17] > 0
      nr17 = nr17 + 1
      loop
   endif   
   knoten[nr17] = 17

   nr18 = nr17 + 1
   do while nr18 < 27
      if knoten[nr18] > 0
         nr18 = nr18 + 1
         loop
      endif   

      knoten[nr18] = 18
      nr18h = nr17*100 + nr18

      if kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] > sum_m03 - sum_m10
         knoten[nr18] = 0
         nr18 = nr18 + 1
         loop
      endif   

******
      nr19 = nr17 + 1

do while nr19 < 20
   if knoten[nr19] > 0
      nr19 = nr19 + 1
      loop
   endif   
   knoten[nr19] = 19

   nr20 = nr19 + 1
   do while nr20 < 27
      if knoten[nr20] > 0
         nr20 = nr20 + 1
         loop
      endif   

      knoten[nr20] = 20
      nr20h = nr19*100 + nr20

      if kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] > sum_m03 - sum_m11
         knoten[nr20] = 0
         nr20 = nr20 + 1
         loop
      endif   

******
      nr21 = nr19 + 1

do while nr21 < 22
   if knoten[nr21] > 0
      nr21 = nr21 + 1
      loop
   endif   
   knoten[nr21] = 21

   nr22 = nr21 + 1
   do while nr22 < 27
      if knoten[nr22] > 0
         nr22 = nr22 + 1
         loop
      endif   

      knoten[nr22] = 22
      nr22h = nr21*100 + nr22

      if kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] > sum_m03 - sum_m12
         knoten[nr22] = 0
         nr22 = nr22 + 1
         loop
      endif   

******
      nr23 = nr21 + 1

      do while nr23 < 24
         if knoten[nr23] > 0
            nr23 = nr23 + 1
            loop
         endif   
         knoten[nr23] = 23

         nr24 = nr23 + 1
         do while nr24 < 27
            if knoten[nr24] > 0
               nr24 = nr24 + 1
               loop
            endif   
      
            knoten[nr24] = 24
            nr24h = nr23*100 + nr24

      if kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] + kante[nr24h] > sum_m03 - sum_m13
               knoten[nr24] = 0
               nr24 = nr24 + 1
               loop
            endif   
         
******

   nr25 = nr23 + 1
   do while nr25 < 26
      if knoten[nr25] > 0
         nr25 = nr25 + 1
         loop
      endif   
      knoten[nr25] = 25
      nr26 = nr25 + 1

      do while nr26 < 27
         if knoten[nr26] > 0
            nr26 = nr26 + 1
            loop
         endif   
         knoten[nr26] = 26
         nr26h = nr25*100 + nr26
         if sum_m03 > kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]
            sum_m03 = kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]

         @ 04,33 say time()
         @ 18,00 say space(80)
         @ 19,00 say space(80)
         @ 19,00 say trim(ltrim(str(sum_m03)))

         @ 18,14 say ltrim(str(nr05))
         @ 18,16 say "-"
         @ 18,17 say ltrim(str(nr06))
         @ 18,19 say ","

         @ 18,20 say ltrim(str(nr07))
         @ 18,22 say "-"
         @ 18,23 say ltrim(str(nr08))
         @ 18,25 say ","

         @ 18,26 say ltrim(str(nr09))
         @ 18,28 say "-"
         @ 18,29 say ltrim(str(nr10))
         @ 18,31 say ","

         @ 18,32 say ltrim(str(nr11))
         @ 18,34 say "-"
         @ 18,35 say ltrim(str(nr12))
         @ 18,37 say ","

         @ 18,38 say ltrim(str(nr13))
         @ 18,40 say "-"
         @ 18,41 say ltrim(str(nr14))
         @ 18,43 say ","

         @ 18,44 say ltrim(str(nr15))
         @ 18,46 say "-"
         @ 18,47 say ltrim(str(nr16))
         @ 18,49 say ","

         @ 18,50 say ltrim(str(nr17))
         @ 18,52 say "-"
         @ 18,53 say ltrim(str(nr18))
         @ 18,55 say ","

         @ 18,56 say ltrim(str(nr19))
         @ 18,58 say "-"
         @ 18,59 say ltrim(str(nr20))
         @ 18,61 say ","

         @ 18,62 say ltrim(str(nr21))
         @ 18,64 say "-"
         @ 18,65 say ltrim(str(nr22))
         @ 18,67 say ","

         @ 18,68 say ltrim(str(nr23))
         @ 18,70 say "-"
         @ 18,71 say ltrim(str(nr24))
         @ 18,73 say ","
         
         @ 18,74 say ltrim(str(nr25))
         @ 18,76 say "-"
         @ 18,77 say ltrim(str(nr26))
         
         @ 19,14 say ltrim(str(kante[nr06h]))
         @ 19,20 say ltrim(str(kante[nr08h]))
         @ 19,26 say ltrim(str(kante[nr10h]))
         @ 19,32 say ltrim(str(kante[nr12h]))
         @ 19,38 say ltrim(str(kante[nr14h]))
         @ 19,44 say ltrim(str(kante[nr16h]))
         @ 19,50 say ltrim(str(kante[nr18h]))
         @ 19,56 say ltrim(str(kante[nr20h]))
         @ 19,62 say ltrim(str(kante[nr22h]))
         @ 19,68 say ltrim(str(kante[nr24h]))
         @ 19,74 say ltrim(str(kante[nr26h]))

         endif

      knoten[nr26] = 0
      nr26 = nr26 + 1
      enddo

   knoten[nr25] = 0
   nr25 = nr25 + 1
   enddo

**************

knoten[nr24] = 0
nr24 = nr24 + 1
enddo

knoten[nr23] = 0
nr23 = nr23 + 1
enddo

************

knoten[nr22] = 0
nr22 = nr22 + 1
enddo

knoten[nr21] = 0
nr21 = nr21 + 1
enddo

************

knoten[nr20] = 0
nr20 = nr20 + 1
enddo

knoten[nr19] = 0
nr19 = nr19 + 1
enddo

************

knoten[nr18] = 0
nr18 = nr18 + 1
enddo

knoten[nr17] = 0
nr17 = nr17 + 1
enddo

************

knoten[nr16] = 0
nr16 = nr16 + 1
enddo

knoten[nr15] = 0
nr15 = nr15 + 1
enddo

************

knoten[nr14] = 0
nr14 = nr14 + 1
enddo

knoten[nr13] = 0
nr13 = nr13 + 1
enddo

************

knoten[nr12] = 0
nr12 = nr12 + 1
enddo

knoten[nr11] = 0
nr11 = nr11 + 1
enddo

************

knoten[nr10] = 0
nr10 = nr10 + 1
enddo

knoten[nr09] = 0
nr09 = nr09 + 1
enddo

************

knoten[nr08] = 0
nr08 = nr08 + 1
enddo

knoten[nr07] = 0
nr07 = nr07 + 1
enddo

************

knoten[nr06] = 0
nr06 = nr06 + 1
enddo

knoten[nr05] = 0
nr05 = nr05 + 1
enddo

do min02

*
*
* Ende Min03.prg*
* Min02.prg
*

nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo
 
nr03  = 2
sum_m02 = 99999
 
nr05  = 3
nr07  = 4
nr09  = 5
nr11  = 6
nr13  = 7
nr15  = 8
nr17  = 9
nr19  = 10
nr21  = 11
nr23  = 12
nr25  = 13

*********

do while nr03 < 4
   if knoten[nr03] > 0
      nr03 = nr03 + 1
      loop
   endif   
   knoten[nr03] = 3

   nr04 = nr03 + 1
   do while nr04 < 27
      if knoten[nr04] > 0
         nr04 = nr04 + 1
         loop
      endif   

      knoten[nr04] = 4
      nr04h = nr03*100 + nr04

      if kante[nr04h] > sum_m02 - sum_m03
         knoten[nr04] = 0
         nr04 = nr04 + 1
         loop
      endif   

******
      nr05 = nr03 + 1

do while nr05 < 6
   if knoten[nr05] > 0
      nr05 = nr05 + 1
      loop
   endif   
   knoten[nr05] = 5

   nr06 = nr05 + 1
   do while nr06 < 27
      if knoten[nr06] > 0
         nr06 = nr06 + 1
         loop
      endif   

      knoten[nr06] = 6
      nr06h = nr05*100 + nr06

      if kante[nr04h] + kante[nr06h] > sum_m02 - sum_m04
         knoten[nr06] = 0
         nr06 = nr06 + 1
         loop
      endif   

******
      nr07 = nr05 + 1

do while nr07 < 8
   if knoten[nr07] > 0
      nr07 = nr07 + 1
      loop
   endif   
   knoten[nr07] = 7

   nr08 = nr07 + 1
   do while nr08 < 27
      if knoten[nr08] > 0
         nr08 = nr08 + 1
         loop
      endif   

      knoten[nr08] = 8
      nr08h = nr07*100 + nr08

      if kante[nr04h] + kante[nr06h] + kante[nr08h] > sum_m02 - sum_m05
         knoten[nr08] = 0
         nr08 = nr08 + 1
         loop
      endif   

******
      nr09 = nr07 + 1

do while nr09 < 10
   if knoten[nr09] > 0
      nr09 = nr09 + 1
      loop
   endif   
   knoten[nr09] = 9

   nr10 = nr09 + 1
   do while nr10 < 27
      if knoten[nr10] > 0
         nr10 = nr10 + 1
         loop
      endif   

      knoten[nr10] = 10
      nr10h = nr09*100 + nr10

      if kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] > sum_m02 - sum_m06
         knoten[nr10] = 0
         nr10 = nr10 + 1
         loop
      endif   

******
      nr11 = nr09 + 1

do while nr11 < 12
   if knoten[nr11] > 0
      nr11 = nr11 + 1
      loop
   endif   
   knoten[nr11] = 11

   nr12 = nr11 + 1
   do while nr12 < 27
      if knoten[nr12] > 0
         nr12 = nr12 + 1
         loop
      endif   

      knoten[nr12] = 12
      nr12h = nr11*100 + nr12

      if kante[nr04h] + kante[nr06h] + kante[nr08h]+ kante[nr10h] + kante[nr12h] > sum_m02 - sum_m07
         knoten[nr12] = 0
         nr12 = nr12 + 1
         loop
      endif   

******
      nr13 = nr11 + 1

do while nr13 < 14
   if knoten[nr13] > 0
      nr13 = nr13 + 1
      loop
   endif   
   knoten[nr13] = 13

   nr14 = nr13 + 1
   do while nr14 < 27
      if knoten[nr14] > 0
         nr14 = nr14 + 1
         loop
      endif   

      knoten[nr14] = 14
      nr14h = nr13*100 + nr14

      if kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] > sum_m02 - sum_m08
         knoten[nr14] = 0
         nr14 = nr14 + 1
         loop
      endif   

******
      nr15 = nr13 + 1

do while nr15 < 16
   if knoten[nr15] > 0
      nr15 = nr15 + 1
      loop
   endif   
   knoten[nr15] = 15

   nr16 = nr15 + 1
   do while nr16 < 27
      if knoten[nr16] > 0
         nr16 = nr16 + 1
         loop
      endif   

      knoten[nr16] = 16
      nr16h = nr15*100 + nr16

      if kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] > sum_m02 - sum_m09
         knoten[nr16] = 0
         nr16 = nr16 + 1
         loop
      endif   

******
      nr17 = nr15 + 1

do while nr17 < 18
   if knoten[nr17] > 0
      nr17 = nr17 + 1
      loop
   endif   
   knoten[nr17] = 17

   nr18 = nr17 + 1
   do while nr18 < 27
      if knoten[nr18] > 0
         nr18 = nr18 + 1
         loop
      endif   

      knoten[nr18] = 18
      nr18h = nr17*100 + nr18

      if kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] > sum_m02 - sum_m10
         knoten[nr18] = 0
         nr18 = nr18 + 1
         loop
      endif   

******
      nr19 = nr17 + 1

do while nr19 < 20
   if knoten[nr19] > 0
      nr19 = nr19 + 1
      loop
   endif   
   knoten[nr19] = 19

   nr20 = nr19 + 1
   do while nr20 < 27
      if knoten[nr20] > 0
         nr20 = nr20 + 1
         loop
      endif   

      knoten[nr20] = 20
      nr20h = nr19*100 + nr20

      if kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] > sum_m02 - sum_m11
         knoten[nr20] = 0
         nr20 = nr20 + 1
         loop
      endif   

******
      nr21 = nr19 + 1

do while nr21 < 22
   if knoten[nr21] > 0
      nr21 = nr21 + 1
      loop
   endif   
   knoten[nr21] = 21

   nr22 = nr21 + 1
   do while nr22 < 27
      if knoten[nr22] > 0
         nr22 = nr22 + 1
         loop
      endif   

      knoten[nr22] = 22
      nr22h = nr21*100 + nr22

      if kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] > sum_m02 - sum_m12
         knoten[nr22] = 0
         nr22 = nr22 + 1
         loop
      endif   

******
      nr23 = nr21 + 1

      do while nr23 < 24
         if knoten[nr23] > 0
            nr23 = nr23 + 1
            loop
         endif   
         knoten[nr23] = 23

         nr24 = nr23 + 1
         do while nr24 < 27
            if knoten[nr24] > 0
               nr24 = nr24 + 1
               loop
            endif   
      
            knoten[nr24] = 24
            nr24h = nr23*100 + nr24

      if kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] + kante[nr24h] > sum_m02 - sum_m13
               knoten[nr24] = 0
               nr24 = nr24 + 1
               loop
            endif   
         
******

   nr25 = nr23 + 1
   do while nr25 < 26
      if knoten[nr25] > 0
         nr25 = nr25 + 1
         loop
      endif   
      knoten[nr25] = 25
      nr26 = nr25 + 1

      do while nr26 < 27
         if knoten[nr26] > 0
            nr26 = nr26 + 1
            loop
         endif   
         knoten[nr26] = 26
         nr26h = nr25*100 + nr26
         if sum_m02 > kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]
            sum_m02 = kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h]

         @ 04,33 say time()
         @ 20,00 say space(80)
         @ 21,00 say space(80)
         @ 21,00 say ltrim(trim(str(sum_m02)))
         

         @ 20,08 say ltrim(str(nr03))
         @ 20,10 say "-"
         @ 20,11 say ltrim(str(nr04))
         @ 20,13 say ","

         @ 20,14 say ltrim(str(nr05))
         @ 20,16 say "-"
         @ 20,17 say ltrim(str(nr06))
         @ 20,19 say ","

         @ 20,20 say ltrim(str(nr07))
         @ 20,22 say "-"
         @ 20,23 say ltrim(str(nr08))
         @ 20,25 say ","

         @ 20,26 say ltrim(str(nr09))
         @ 20,28 say "-"
         @ 20,29 say ltrim(str(nr10))
         @ 20,31 say ","

         @ 20,32 say ltrim(str(nr11))
         @ 20,34 say "-"
         @ 20,35 say ltrim(str(nr12))
         @ 20,37 say ","

         @ 20,38 say ltrim(str(nr13))
         @ 20,40 say "-"
         @ 20,41 say ltrim(str(nr14))
         @ 20,43 say ","

         @ 20,44 say ltrim(str(nr15))
         @ 20,46 say "-"
         @ 20,47 say ltrim(str(nr16))
         @ 20,49 say ","

         @ 20,50 say ltrim(str(nr17))
         @ 20,52 say "-"
         @ 20,53 say ltrim(str(nr18))
         @ 20,55 say ","

         @ 20,56 say ltrim(str(nr19))
         @ 20,58 say "-"
         @ 20,59 say ltrim(str(nr20))
         @ 20,61 say ","

         @ 20,62 say ltrim(str(nr21))
         @ 20,64 say "-"
         @ 20,65 say ltrim(str(nr22))
         @ 20,67 say ","

         @ 20,68 say ltrim(str(nr23))
         @ 20,70 say "-"
         @ 20,71 say ltrim(str(nr24))
         @ 20,73 say ","
         
         @ 20,74 say ltrim(str(nr25))
         @ 20,76 say "-"
         @ 20,77 say ltrim(str(nr26))
         
         @ 21,08 say ltrim(str(kante[nr04h]))
         @ 21,14 say ltrim(str(kante[nr06h]))
         @ 21,20 say ltrim(str(kante[nr08h]))
         @ 21,26 say ltrim(str(kante[nr10h]))
         @ 21,32 say ltrim(str(kante[nr12h]))
         @ 21,38 say ltrim(str(kante[nr14h]))
         @ 21,44 say ltrim(str(kante[nr16h]))
         @ 21,50 say ltrim(str(kante[nr18h]))
         @ 21,56 say ltrim(str(kante[nr20h]))
         @ 21,62 say ltrim(str(kante[nr22h]))
         @ 21,68 say ltrim(str(kante[nr24h]))
         @ 21,74 say ltrim(str(kante[nr26h]))

         endif

      knoten[nr26] = 0
      nr26 = nr26 + 1
      enddo

   knoten[nr25] = 0
   nr25 = nr25 + 1
   enddo

**************

knoten[nr24] = 0
nr24 = nr24 + 1
enddo

knoten[nr23] = 0
nr23 = nr23 + 1
enddo

************

knoten[nr22] = 0
nr22 = nr22 + 1
enddo

knoten[nr21] = 0
nr21 = nr21 + 1
enddo

************

knoten[nr20] = 0
nr20 = nr20 + 1
enddo

knoten[nr19] = 0
nr19 = nr19 + 1
enddo

************

knoten[nr18] = 0
nr18 = nr18 + 1
enddo

knoten[nr17] = 0
nr17 = nr17 + 1
enddo

************

knoten[nr16] = 0
nr16 = nr16 + 1
enddo

knoten[nr15] = 0
nr15 = nr15 + 1
enddo

************

knoten[nr14] = 0
nr14 = nr14 + 1
enddo

knoten[nr13] = 0
nr13 = nr13 + 1
enddo

************

knoten[nr12] = 0
nr12 = nr12 + 1
enddo

knoten[nr11] = 0
nr11 = nr11 + 1
enddo

************

knoten[nr10] = 0
nr10 = nr10 + 1
enddo

knoten[nr09] = 0
nr09 = nr09 + 1
enddo

************

knoten[nr08] = 0
nr08 = nr08 + 1
enddo

knoten[nr07] = 0
nr07 = nr07 + 1
enddo

************

knoten[nr06] = 0
nr06 = nr06 + 1
enddo

knoten[nr05] = 0
nr05 = nr05 + 1
enddo

************

knoten[nr04] = 0
nr04 = nr04 + 1
enddo

knoten[nr03] = 0
nr03 = nr03 + 1
enddo

do min01

*
*
* Ende Min02.prg*
* Min01.prg
*

nr = 1
do while nr < 27
knoten[nr] = 0
nr = nr + 1
enddo
 
nr01  = 1
sum_m01 = 99999
 
nr03  = 2
nr05  = 3
nr07  = 4
nr09  = 5
nr11  = 6
nr13  = 7
nr15  = 8
nr17  = 9
nr19  = 10
nr21  = 11
nr23  = 12
nr25  = 13

*********

do while nr01 < 2
   if knoten[nr01] > 0
      nr01 = nr01 + 1
      loop
   endif   
   knoten[nr01] = 1

   nr02 = nr01 + 1
   do while nr02 < 27
      if knoten[nr02] > 0
         nr02 = nr02 + 1
         loop
      endif   

      knoten[nr02] = 2
      nr02h = nr01*100 + nr02

      if kante[nr02h] > sum_m01 - sum_m02
         knoten[nr02] = 0
         nr02 = nr02 + 1
         loop
      endif   

******
      nr03 = nr01 + 1

do while nr03 < 4
   if knoten[nr03] > 0
      nr03 = nr03 + 1
      loop
   endif   
   knoten[nr03] = 3

   nr04 = nr03 + 1
   do while nr04 < 27
      if knoten[nr04] > 0
         nr04 = nr04 + 1
         loop
      endif   

      knoten[nr04] = 4
      nr04h = nr03*100 + nr04

      if kante[nr02h] + kante[nr04h] > sum_m01 - sum_m03
         knoten[nr04] = 0
         nr04 = nr04 + 1
         loop
      endif   

******
      nr05 = nr03 + 1

do while nr05 < 6
   if knoten[nr05] > 0
      nr05 = nr05 + 1
      loop
   endif   
   knoten[nr05] = 5

   nr06 = nr05 + 1
   do while nr06 < 27
      if knoten[nr06] > 0
         nr06 = nr06 + 1
         loop
      endif   

      knoten[nr06] = 6
      nr06h = nr05*100 + nr06

      if kante[nr02h] + kante[nr04h] + kante[nr06h] > sum_m01 - sum_m04
         knoten[nr06] = 0
         nr06 = nr06 + 1
         loop
      endif   

******
      nr07 = nr05 + 1

do while nr07 < 8
   if knoten[nr07] > 0
      nr07 = nr07 + 1
      loop
   endif   
   knoten[nr07] = 7

   nr08 = nr07 + 1
   do while nr08 < 27
      if knoten[nr08] > 0
         nr08 = nr08 + 1
         loop
      endif   

      knoten[nr08] = 8
      nr08h = nr07*100 + nr08

      if kante[nr02h] + kante[nr04h] + kante[nr06h] + kante[nr08h] > sum_m01 - sum_m05
         knoten[nr08] = 0
         nr08 = nr08 + 1
         loop
      endif   

******
      nr09 = nr07 + 1

do while nr09 < 10
   if knoten[nr09] > 0
      nr09 = nr09 + 1
      loop
   endif   
   knoten[nr09] = 9

   nr10 = nr09 + 1
   do while nr10 < 27
      if knoten[nr10] > 0
         nr10 = nr10 + 1
         loop
      endif   

      knoten[nr10] = 10
      nr10h = nr09*100 + nr10

      if kante[nr02h] + kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] > sum_m01 - sum_m06
         knoten[nr10] = 0
         nr10 = nr10 + 1
         loop
      endif   

******
      nr11 = nr09 + 1

do while nr11 < 12
   if knoten[nr11] > 0
      nr11 = nr11 + 1
      loop
   endif   
   knoten[nr11] = 11

   nr12 = nr11 + 1
   do while nr12 < 27
      if knoten[nr12] > 0
         nr12 = nr12 + 1
         loop
      endif   

      knoten[nr12] = 12
      nr12h = nr11*100 + nr12

      if kante[nr02h] + kante[nr04h] + kante[nr06h] + kante[nr08h]+ kante[nr10h] + kante[nr12h] > sum_m01 - sum_m07
         knoten[nr12] = 0
         nr12 = nr12 + 1
         loop
      endif   

******
      nr13 = nr11 + 1

do while nr13 < 14
   if knoten[nr13] > 0
      nr13 = nr13 + 1
      loop
   endif   
   knoten[nr13] = 13

   nr14 = nr13 + 1
   do while nr14 < 27
      if knoten[nr14] > 0
         nr14 = nr14 + 1
         loop
      endif   

      knoten[nr14] = 14
      nr14h = nr13*100 + nr14

      if kante[nr02h] + kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] > sum_m01 - sum_m08
         knoten[nr14] = 0
         nr14 = nr14 + 1
         loop
      endif   

******
      nr15 = nr13 + 1

do while nr15 < 16
   if knoten[nr15] > 0
      nr15 = nr15 + 1
      loop
   endif   
   knoten[nr15] = 15

   nr16 = nr15 + 1
   do while nr16 < 27
      if knoten[nr16] > 0
         nr16 = nr16 + 1
         loop
      endif   

      knoten[nr16] = 16
      nr16h = nr15*100 + nr16

      if kante[nr02h] + kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] > sum_m01 - sum_m09
         knoten[nr16] = 0
         nr16 = nr16 + 1
         loop
      endif   

******
      nr17 = nr15 + 1

do while nr17 < 18
   if knoten[nr17] > 0
      nr17 = nr17 + 1
      loop
   endif   
   knoten[nr17] = 17

   nr18 = nr17 + 1
   do while nr18 < 27
      if knoten[nr18] > 0
         nr18 = nr18 + 1
         loop
      endif   

      knoten[nr18] = 18
      nr18h = nr17*100 + nr18

      if kante[nr02h] + kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] > sum_m01 - sum_m10
         knoten[nr18] = 0
         nr18 = nr18 + 1
         loop
      endif   

******
      nr19 = nr17 + 1

do while nr19 < 20
   if knoten[nr19] > 0
      nr19 = nr19 + 1
      loop
   endif   
   knoten[nr19] = 19

   nr20 = nr19 + 1
   do while nr20 < 27
      if knoten[nr20] > 0
         nr20 = nr20 + 1
         loop
      endif   

      knoten[nr20] = 20
      nr20h = nr19*100 + nr20

      if kante[nr02h] + kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] > sum_m01 - sum_m11
         knoten[nr20] = 0
         nr20 = nr20 + 1
         loop
      endif   

******
      nr21 = nr19 + 1

do while nr21 < 22
   if knoten[nr21] > 0
      nr21 = nr21 + 1
      loop
   endif   
   knoten[nr21] = 21

   nr22 = nr21 + 1
   do while nr22 < 27
      if knoten[nr22] > 0
         nr22 = nr22 + 1
         loop
      endif   

      knoten[nr22] = 22
      nr22h = nr21*100 + nr22

      if kante[nr02h] + kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] > sum_m01 - sum_m12
         knoten[nr22] = 0
         nr22 = nr22 + 1
         loop
      endif   

******
      nr23 = nr21 + 1

      do while nr23 < 24
         if knoten[nr23] > 0
            nr23 = nr23 + 1
            loop
         endif   
         knoten[nr23] = 23

         nr24 = nr23 + 1
         do while nr24 < 27
            if knoten[nr24] > 0
               nr24 = nr24 + 1
               loop
            endif   
      
            knoten[nr24] = 24
            nr24h = nr23*100 + nr24

      if kante[nr02h] + kante[nr04h] + kante[nr06h] + kante[nr08h] + kante[nr10h] + kante[nr12h] + kante[nr14h] + kante[nr16h] + kante[nr18h] + kante[nr20h] + kante[nr22h] + kante[nr24h] > sum_m01 - sum_m13
               knoten[nr24] = 0
               nr24 = nr24 + 1
               loop
            endif   
         
******

   nr25 = nr23 + 1
   do while nr25 < 26
      if knoten[nr25] > 0
         nr25 = nr25 + 1
         loop
      endif   
      knoten[nr25] = 25
      nr26 = nr25 + 1

      do while nr26 < 27
         if knoten[nr26] > 0
            nr26 = nr26 + 1
            loop
         endif   
         knoten[nr26] = 26
         nr26h = nr25*100 + nr26
         if sum_m01 > kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h] + kante[nr14h] + kante[nr12h] + kante[nr10h] + kante[nr08h] + kante[nr06h] + kante[nr04h] + kante[nr02h]
            sum_m01 = kante[nr26h] + kante[nr24h] + kante[nr22h] + kante[nr20h] + kante[nr18h] + kante[nr16h] + kante[nr14h] + kante[nr12h] + kante[nr10h] + kante[nr08h] + kante[nr06h] + kante[nr04h] + kante[nr02h]

         @ 04,33 say time()
         @ 22,00 say space(80)
         @ 23,00 say space(80)
         @ 24,00 say trim(ltrim(str(sum_m01))) + "  "

         @ 22,02 say ltrim(str(nr01))
         @ 22,04 say "-"
         @ 22,05 say ltrim(str(nr02))
         @ 22,07 say ","

         @ 22,08 say ltrim(str(nr03))
         @ 22,10 say "-"
         @ 22,11 say ltrim(str(nr04))
         @ 22,13 say ","

         @ 22,14 say ltrim(str(nr05))
         @ 22,16 say "-"
         @ 22,17 say ltrim(str(nr06))
         @ 22,19 say ","

         @ 22,20 say ltrim(str(nr07))
         @ 22,22 say "-"
         @ 22,23 say ltrim(str(nr08))
         @ 22,25 say ","

         @ 22,26 say ltrim(str(nr09))
         @ 22,28 say "-"
         @ 22,29 say ltrim(str(nr10))
         @ 22,31 say ","

         @ 22,32 say ltrim(str(nr11))
         @ 22,34 say "-"
         @ 22,35 say ltrim(str(nr12))
         @ 22,37 say ","

         @ 22,38 say ltrim(str(nr13))
         @ 22,40 say "-"
         @ 22,41 say ltrim(str(nr14))
         @ 22,43 say ","

         @ 22,44 say ltrim(str(nr15))
         @ 22,46 say "-"
         @ 22,47 say ltrim(str(nr16))
         @ 22,49 say ","

         @ 22,50 say ltrim(str(nr17))
         @ 22,52 say "-"
         @ 22,53 say ltrim(str(nr18))
         @ 22,55 say ","

         @ 22,56 say ltrim(str(nr19))
         @ 22,58 say "-"
         @ 22,59 say ltrim(str(nr20))
         @ 22,61 say ","

         @ 22,62 say ltrim(str(nr21))
         @ 22,64 say "-"
         @ 22,65 say ltrim(str(nr22))
         @ 22,67 say ","

         @ 22,68 say ltrim(str(nr23))
         @ 22,70 say "-"
         @ 22,71 say ltrim(str(nr24))
         @ 22,73 say ","
         
         @ 22,74 say ltrim(str(nr25))
         @ 22,76 say "-"
         @ 22,77 say ltrim(str(nr26))
         
         @ 23,02 say ltrim(str(kante[nr02h]))
         @ 23,08 say ltrim(str(kante[nr04h]))
         @ 23,14 say ltrim(str(kante[nr06h]))
         @ 23,20 say ltrim(str(kante[nr08h]))
         @ 23,26 say ltrim(str(kante[nr10h]))
         @ 23,32 say ltrim(str(kante[nr12h]))
         @ 23,38 say ltrim(str(kante[nr14h]))
         @ 23,44 say ltrim(str(kante[nr16h]))
         @ 23,50 say ltrim(str(kante[nr18h]))
         @ 23,56 say ltrim(str(kante[nr20h]))
         @ 23,62 say ltrim(str(kante[nr22h]))
         @ 23,68 say ltrim(str(kante[nr24h]))
         @ 23,74 say ltrim(str(kante[nr26h]))

         endif

      knoten[nr26] = 0
      nr26 = nr26 + 1
      enddo

   knoten[nr25] = 0
   nr25 = nr25 + 1
   enddo

**************

knoten[nr24] = 0
nr24 = nr24 + 1
enddo

knoten[nr23] = 0
nr23 = nr23 + 1
enddo

************

knoten[nr22] = 0
nr22 = nr22 + 1
enddo

knoten[nr21] = 0
nr21 = nr21 + 1
enddo

************

knoten[nr20] = 0
nr20 = nr20 + 1
enddo

knoten[nr19] = 0
nr19 = nr19 + 1
enddo

************

knoten[nr18] = 0
nr18 = nr18 + 1
enddo

knoten[nr17] = 0
nr17 = nr17 + 1
enddo

************

knoten[nr16] = 0
nr16 = nr16 + 1
enddo

knoten[nr15] = 0
nr15 = nr15 + 1
enddo

************

knoten[nr14] = 0
nr14 = nr14 + 1
enddo

knoten[nr13] = 0
nr13 = nr13 + 1
enddo

************

knoten[nr12] = 0
nr12 = nr12 + 1
enddo

knoten[nr11] = 0
nr11 = nr11 + 1
enddo

************

knoten[nr10] = 0
nr10 = nr10 + 1
enddo

knoten[nr09] = 0
nr09 = nr09 + 1
enddo

************

knoten[nr08] = 0
nr08 = nr08 + 1
enddo

knoten[nr07] = 0
nr07 = nr07 + 1
enddo

************

knoten[nr06] = 0
nr06 = nr06 + 1
enddo

knoten[nr05] = 0
nr05 = nr05 + 1
enddo

************

knoten[nr04] = 0
nr04 = nr04 + 1
enddo

knoten[nr03] = 0
nr03 = nr03 + 1
enddo

************

knoten[nr02] = 0
nr02 = nr02 + 1
enddo

knoten[nr01] = 0
nr01 = nr01 + 1
enddo

@ 24,35 say trim(ltrim(str(sum_m01))) + "  "


*
*
* Ende Min01.prg