CPM/DATA

00000000: 01 08 4D 08 00 00 8F 20  2D 2D 28 43 29 20 44 49  |..M.... --(C) DI|
00000010: 47 49 43 4F 4D 20 53 4F  46 54 57 41 52 45 2C 54  |GICOM SOFTWARE,T|
00000020: 41 50 45 20 42 30 31 20  2D 2D 20 20 20 20 20 20  |APE B01 --      |
00000030: 20 20 20 41 41 47 45 50  41 53 54 20 56 4F 4F 52  |   AAGEPAST VOOR|
00000040: 20 43 4F 4D 4D 4F 44 4F  52 45 20 36 34 00 6C 08  | COMMODORE 64.l.|
00000050: 0A 00 8F 20 2A 2A 2A 20  4B 52 49 54 49 45 4B 45  |... *** KRITIEKE|
00000060: 20 50 41 44 20 4D 45 54  48 4F 44 45 00 8A 08 14  | PAD METHODE....|
00000070: 00 86 20 41 28 32 35 2C  33 29 2C 42 28 32 35 2C  |.. A(25,3),B(25,|
00000080: 34 29 2C 53 28 32 36 2C  32 29 00 94 08 1E 00 89  |4),S(26,2)......|
00000090: 20 37 34 30 00 B4 08 28  00 8F 20 2A 2A 2A 20 53  | 740...(.. *** S|
000000A0: 55 42 52 4F 55 54 49 4E  45 20 5A 4F 45 4B 45 4E  |UBROUTINE ZOEKEN|
000000B0: 20 2A 2A 2A 00 BC 08 32  00 46 B2 30 00 C5 08 3C  | ***...2.F.0...<|
000000C0: 00 58 31 B2 31 00 D1 08  46 00 58 32 B2 31 AA 4E  |.X1.1...F.X2.1.N|
000000D0: 31 00 E8 08 50 00 58 33  B2 58 31 AA B5 28 28 58  |1...P.X3.X1..((X|
000000E0: 32 AB 58 31 29 AD 32 29  00 00 09 5A 00 8B 20 50  |2.X1).2)...Z.. P|
000000F0: 20 B1 20 42 28 58 33 2C  31 29 20 A7 20 31 34 30  | . B(X3,1) . 140|
00000100: 00 18 09 64 00 8B 20 50  20 B2 20 42 28 58 33 2C  |...d.. P . B(X3,|
00000110: 31 29 20 A7 20 31 38 30  00 2C 09 6E 00 8B 20 58  |1) . 180.,.n.. X|
00000120: 32 20 B2 20 58 33 20 A7  20 31 37 30 00 36 09 78  |2 . X3 . 170.6.x|
00000130: 00 58 32 B2 58 33 00 3F  09 82 00 89 20 38 30 00  |.X2.X3.?.... 80.|
00000140: 53 09 8C 00 8B 20 58 31  20 B2 20 58 33 20 A7 20  |S.... X1 . X3 . |
00000150: 31 37 30 00 5D 09 96 00  58 31 B2 58 33 00 66 09  |170.]...X1.X3.f.|
00000160: A0 00 89 20 38 30 00 6E  09 AA 00 46 B2 31 00 74  |... 80.n...F.1.t|
00000170: 09 B4 00 8E 00 97 09 BE  00 8F 20 2A 2A 2A 20 53  |.......... *** S|
00000180: 55 42 2D 52 4F 55 54 49  4E 45 20 53 4F 52 54 45  |UB-ROUTINE SORTE|
00000190: 52 45 4E 20 2A 2A 2A 00  A5 09 C8 00 81 20 4A B2  |REN ***...... J.|
000001A0: 31 20 A4 20 32 00 C7 09  D2 00 8F 20 2A 2A 20 49  |1 . 2...... ** I|
000001B0: 4E 44 45 58 45 4E 20 49  4E 49 54 49 41 4C 49 53  |NDEXEN INITIALIS|
000001C0: 45 52 45 4E 20 2A 2A 00  D5 09 DC 00 81 20 49 B2  |EREN **...... I.|
000001D0: 31 20 A4 20 4E 00 E2 09  E6 00 53 28 49 2C 4A 29  |1 . N.....S(I,J)|
000001E0: B2 49 00 EA 09 F0 00 82  20 49 00 F8 09 FA 00 81  |.I...... I......|
000001F0: 20 49 B2 32 20 A4 20 4E  00 01 0A 04 01 58 31 B2  | I.2 . N.....X1.|
00000200: 31 00 0A 0A 0E 01 58 32  B2 49 00 18 0A 18 01 50  |1.....X2.I.....P|
00000210: 33 B2 53 28 49 2C 4A 29  00 2F 0A 22 01 58 33 B2  |3.S(I,J)./.".X3.|
00000220: 58 31 AA B5 28 28 58 32  AB 58 31 29 AD 32 29 00  |X1..((X2.X1).2).|
00000230: 3E 0A 2C 01 50 34 B2 53  28 58 33 2C 4A 29 00 5C  |>.,.P4.S(X3,J).\|
00000240: 0A 36 01 8B 20 41 28 50  33 2C 4A 29 20 B3 20 41  |.6.. A(P3,J) . A|
00000250: 28 50 34 2C 4A 29 20 A7  20 33 35 30 00 7A 0A 40  |(P4,J) . 350.z.@|
00000260: 01 8B 20 41 28 50 33 2C  4A 29 20 B1 20 41 28 50  |.. A(P3,J) . A(P|
00000270: 34 2C 4A 29 20 A7 20 33  38 30 00 84 0A 4A 01 58  |4,J) . 380...J.X|
00000280: 32 B2 58 33 00 8E 0A 54  01 89 20 34 32 30 00 A2  |2.X3...T.. 420..|
00000290: 0A 5E 01 8B 20 58 32 20  B2 20 58 33 20 A7 20 34  |.^.. X2 . X3 . 4|
000002A0: 32 30 00 AC 0A 68 01 58  32 B2 58 33 00 B6 0A 72  |20...h.X2.X3...r|
000002B0: 01 89 20 32 39 30 00 CA  0A 7C 01 8B 20 58 31 20  |.. 290...|.. X1 |
000002C0: B2 20 58 33 20 A7 20 34  32 30 00 D4 0A 86 01 58  |. X3 . 420.....X|
000002D0: 31 B2 58 33 00 DE 0A 90  01 89 20 32 39 30 00 F3  |1.X3...... 290..|
000002E0: 0A 9A 01 8F 20 2A 2A 20  57 49 53 53 45 4C 45 4E  |.... ** WISSELEN|
000002F0: 20 2A 2A 00 06 0B A4 01  8B 20 49 20 B2 20 58 32  | **...... I . X2|
00000300: 20 A7 20 34 36 30 00 1C  0B AE 01 81 20 58 B2 49  | . 460...... X.I|
00000310: 20 A4 20 58 32 AA 31 20  A9 20 AB 31 00 30 0B B8  | . X2.1 . .1.0..|
00000320: 01 53 28 58 2C 4A 29 B2  53 28 58 AB 31 2C 4A 29  |.S(X,J).S(X.1,J)|
00000330: 00 38 0B C2 01 82 20 58  00 47 0B CC 01 53 28 58  |.8.... X.G...S(X|
00000340: 32 2C 4A 29 B2 50 33 00  4F 0B D6 01 82 20 49 00  |2,J).P3.O.... I.|
00000350: 57 0B E0 01 82 20 4A 00  5D 0B EA 01 8E 00 7E 0B  |W.... J.].....~.|
00000360: F4 01 8F 20 2A 2A 2A 20  53 55 42 52 4F 55 54 49  |... *** SUBROUTI|
00000370: 4E 45 20 4B 4F 50 20 2D  20 49 20 2A 2A 2A 00 88  |NE KOP - I ***..|
00000380: 0B FE 01 99 22 93 22 3B  00 B0 0B 08 02 99 20 A3  |....".";...... .|
00000390: 35 29 22 2A 2A 2A 20 4B  52 49 54 49 45 4B 45 20  |5)"*** KRITIEKE |
000003A0: 50 41 44 20 4D 45 54 48  4F 44 45 20 2A 2A 2A 22  |PAD METHODE ***"|
000003B0: 00 D3 0B 12 02 99 20 A3  39 29 22 4B 4F 52 54 53  |...... .9)"KORTS|
000003C0: 54 45 20 44 4F 4F 52 4C  4F 4F 50 54 59 44 3A 20  |TE DOORLOOPTYD: |
000003D0: 22 3B 42 00 D9 0B 1C 02  99 00 06 0C 26 02 99 A3  |";B.........&...|
000003E0: 30 29 22 4D 59 4C 2D 22  3B A3 35 29 22 56 52 4F  |0)"MYL-";.5)"VRO|
000003F0: 45 47 53 54 45 22 3B 20  A3 31 35 29 22 4C 41 41  |EGSTE"; .15)"LAA|
00000400: 54 53 54 45 22 3B 00 1A  0C 30 02 99 20 A3 32 34  |TSTE";...0.. .24|
00000410: 29 22 53 50 45 4C 49 4E  47 22 00 48 0C 3A 02 99  |)"SPELING".H.:..|
00000420: 20 A3 30 29 22 50 41 41  4C 22 3B 20 A3 30 35 29  | .0)"PAAL"; .05)|
00000430: 22 41 41 4E 56 41 4E 47  22 3B 20 A3 31 35 29 22  |"AANVANG"; .15)"|
00000440: 41 41 4E 56 41 4E 47 22  00 4E 0C 44 02 99 00 54  |AANVANG".N.D...T|
00000450: 0C 4E 02 8E 00 76 0C 58  02 8F 20 2A 2A 2A 20 53  |.N...v.X.. *** S|
00000460: 55 42 52 4F 55 54 49 4E  45 20 4B 4F 50 20 2D 20  |UBROUTINE KOP - |
00000470: 49 49 20 2A 2A 2A 00 80  0C 62 02 99 22 93 22 3B  |II ***...b..".";|
00000480: 00 A7 0C 6C 02 99 A3 35  29 22 2A 2A 2A 20 4B 52  |...l...5)"*** KR|
00000490: 49 54 49 45 4B 45 20 50  41 44 20 4D 45 54 48 4F  |ITIEKE PAD METHO|
000004A0: 44 45 20 2A 2A 2A 22 00  C9 0C 76 02 99 A3 39 29  |DE ***"...v...9)|
000004B0: 22 4B 4F 52 54 53 54 45  20 44 4F 4F 52 4C 4F 4F  |"KORTSTE DOORLOO|
000004C0: 50 54 59 44 3A 20 22 3B  42 00 CF 0C 80 02 99 00  |PTYD: ";B.......|
000004D0: E9 0C 8A 02 99 22 4D 59  4C 50 2E 22 3B A3 30 37  |....."MYLP.";.07|
000004E0: 29 22 54 59 44 53 2E 22  3B 00 06 0D 94 02 99 20  |)"TYDS.";...... |
000004F0: A3 31 33 29 22 56 52 4F  45 47 53 2E 20 20 4C 41  |.13)"VROEGS.  LA|
00000500: 41 54 53 2E 22 3B 00 22  0D 9E 02 99 20 A3 33 30  |ATS.";.".... .30|
00000510: 29 22 4B 52 2E 22 20 20  A3 33 34 29 22 54 4F 54  |)"KR."  .34)"TOT|
00000520: 2E 22 00 2F 0D A8 02 99  22 49 20 20 4A 22 3B 00  |."./...."I  J";.|
00000530: 51 0D B2 02 99 20 A3 31  33 29 22 41 2E 20 20 45  |Q.... .13)"A.  E|
00000540: 2E 22 3B 20 A3 32 32 29  22 41 2E 20 20 45 2E 22  |."; .22)"A.  E."|
00000550: 3B 00 6C 0D BC 02 99 A3  33 30 29 22 50 41 44 22  |;.l.....30)"PAD"|
00000560: 3B A3 33 34 29 22 53 50  45 4C 2E 22 00 72 0D C6  |;.34)"SPEL.".r..|
00000570: 02 99 00 78 0D D0 02 8E  00 9F 0D DA 02 8F 20 2A  |...x.......... *|
00000580: 2A 2A 20 49 4E 56 4F 45  52 45 4E 20 56 41 4E 20  |** INVOEREN VAN |
00000590: 44 45 20 47 45 47 45 56  45 4E 53 20 2A 2A 2A 00  |DE GEGEVENS ***.|
000005A0: A9 0D E4 02 99 22 93 22  3B 00 B1 0D EE 02 58 B2  |.....".";.....X.|
000005B0: 31 00 B7 0D F8 02 8C 00  DB 0D 02 03 99 22 2A 2A  |1............"**|
000005C0: 2A 20 4B 52 49 54 49 45  4B 45 20 50 41 44 20 4D  |* KRITIEKE PAD M|
000005D0: 45 54 48 4F 44 45 20 2A  2A 2A 22 00 E1 0D 0C 03  |ETHODE ***".....|
000005E0: 99 00 0F 0E 16 03 99 22  47 45 47 45 56 45 4E 53  |......."GEGEVENS|
000005F0: 20 57 4F 52 44 45 4E 20  49 4E 47 45 4C 45 5A 45  | WORDEN INGELEZE|
00000600: 4E 20 45 4E 20 56 45 52  57 45 52 4B 54 2E 22 00  |N EN VERWERKT.".|
00000610: 3D 0E 20 03 8F 20 2A 2A  20 49 4E 4C 45 5A 45 4E  |=. .. ** INLEZEN|
00000620: 20 4D 59 4C 50 28 49 29  2C 4D 59 4C 50 2E 28 4A  | MYLP(I),MYLP.(J|
00000630: 29 2C 54 59 44 53 44 55  55 52 20 2A 2A 00 58 0E  |),TYDSDUUR **.X.|
00000640: 2A 03 87 20 41 28 58 2C  31 29 2C 41 28 58 2C 32  |*.. A(X,1),A(X,2|
00000650: 29 2C 41 28 58 2C 33 29  00 7C 0E 34 03 8B 20 28  |),A(X,3).|.4.. (|
00000660: 41 28 58 2C 31 29 B2 30  29 20 AF 20 28 41 28 58  |A(X,1).0) . (A(X|
00000670: 2C 32 29 B2 30 29 20 A7  20 38 35 30 00 86 0E 3E  |,2).0) . 850...>|
00000680: 03 58 B2 58 AA 31 00 90  0E 48 03 89 20 38 31 30  |.X.X.1...H.. 810|
00000690: 00 9A 0E 52 03 4E B2 58  AB 31 00 B3 0E 5C 03 8F  |...R.N.X.1...\..|
000006A0: 20 2A 2A 2A 20 42 45 52  45 4B 45 4E 49 4E 47 20  | *** BEREKENING |
000006B0: 2A 2A 2A 00 DA 0E 66 03  8F 20 2A 2A 20 4F 50 20  |***...f.. ** OP |
000006C0: 4E 55 4C 20 5A 45 54 54  45 4E 20 56 41 4E 20 4D  |NUL ZETTEN VAN M|
000006D0: 41 54 52 49 58 20 42 20  2A 2A 00 E8 0E 70 03 81  |ATRIX B **...p..|
000006E0: 20 49 B2 31 20 A4 20 4E  00 F6 0E 7A 03 81 20 4A  | I.1 . N...z.. J|
000006F0: B2 31 20 A4 20 34 00 03  0F 84 03 42 28 49 2C 4A  |.1 . 4.....B(I,J|
00000700: 29 B2 30 00 0B 0F 8E 03  82 20 4A 00 13 0F 98 03  |).0...... J.....|
00000710: 82 20 49 00 52 0F A2 03  8F 20 2A 2A 20 41 41 4E  |. I.R.... ** AAN|
00000720: 52 4F 45 50 45 4E 20 56  41 4E 20 53 4F 52 54 45  |ROEPEN VAN SORTE|
00000730: 45 52 2D 20 20 20 20 20  20 20 20 20 20 20 20 20  |ER-             |
00000740: 20 20 20 20 20 53 55 42  52 4F 55 54 49 4E 45 20  |     SUBROUTINE |
00000750: 2A 2A 00 5C 0F AC 03 8D  20 32 30 30 00 79 0F B6  |**.\.... 200.y..|
00000760: 03 8F 20 2A 2A 20 4D 59  4C 50 41 41 4C 20 42 45  |.. ** MYLPAAL BE|
00000770: 50 41 4C 49 4E 47 20 2A  2A 00 90 0F C0 03 42 28  |PALING **.....B(|
00000780: 31 2C 31 29 B2 41 28 53  28 31 2C 31 29 2C 31 29  |1,1).A(S(1,1),1)|
00000790: 00 99 0F CA 03 4E 31 B2  31 00 A7 0F D4 03 81 20  |.....N1.1...... |
000007A0: 58 B2 31 20 A4 20 4E 00  CA 0F DE 03 8B 20 42 28  |X.1 . N...... B(|
000007B0: 4E 31 2C 31 29 20 B2 20  41 28 53 28 58 2C 32 29  |N1,1) . A(S(X,2)|
000007C0: 2C 32 29 20 A7 20 31 30  32 30 00 D6 0F E8 03 4E  |,2) . 1020.....N|
000007D0: 31 B2 4E 31 AA 31 00 EE  0F F2 03 42 28 4E 31 2C  |1.N1.1.....B(N1,|
000007E0: 31 29 B2 41 28 53 28 58  2C 32 29 2C 32 29 00 F6  |1).A(S(X,2),2)..|
000007F0: 0F FC 03 82 20 58 00 1C  10 06 04 8F 20 2A 2A 20  |.... X...... ** |
00000800: 42 45 50 41 4C 49 4E 47  20 4B 4F 52 54 53 54 45  |BEPALING KORTSTE|
00000810: 20 44 4F 4F 52 4C 4F 4F  50 54 59 44 00 2A 10 10  | DOORLOOPTYD.*..|
00000820: 04 81 20 49 B2 31 20 A4  20 4E 00 3C 10 1A 04 50  |.. I.1 . N.<...P|
00000830: B2 41 28 53 28 49 2C 31  29 2C 31 29 00 45 10 24  |.A(S(I,1),1).E.$|
00000840: 04 8D 20 35 30 00 80 10  2E 04 8F 20 2A 2A 20 49  |.. 50...... ** I|
00000850: 4E 44 49 45 4E 20 46 3D  31 20 4B 4C 4F 50 54 20  |NDIEN F=1 KLOPT |
00000860: 48 45 54 20 4E 45 54 57  45 52 4B 20 20 20 20 20  |HET NETWERK     |
00000870: 20 20 20 20 20 20 20 4E  49 45 54 20 21 20 2A 2A  |       NIET ! **|
00000880: 00 93 10 38 04 8B 20 46  20 B2 20 31 20 A7 20 31  |...8.. F . 1 . 1|
00000890: 39 36 30 00 9D 10 42 04  50 31 B2 58 33 00 AF 10  |960...B.P1.X3...|
000008A0: 4C 04 50 B2 41 28 53 28  49 2C 31 29 2C 32 29 00  |L.P.A(S(I,1),2).|
000008B0: B8 10 56 04 8D 20 35 30  00 CB 10 60 04 8B 20 46  |..V.. 50...`.. F|
000008C0: 20 B2 20 31 20 A7 20 31  39 36 30 00 D5 10 6A 04  | . 1 . 1960...j.|
000008D0: 50 32 B2 58 33 00 EF 10  74 04 42 B2 42 28 50 31  |P2.X3...t.B.B(P1|
000008E0: 2C 32 29 AA 41 28 53 28  49 2C 31 29 2C 33 29 00  |,2).A(S(I,1),3).|
000008F0: 09 11 7E 04 8B 20 42 28  50 32 2C 32 29 20 B1 B2  |..~.. B(P2,2) ..|
00000900: 20 42 20 A7 20 31 31 37  30 00 17 11 88 04 42 28  | B . 1170.....B(|
00000910: 50 32 2C 32 29 B2 42 00  1F 11 92 04 82 20 49 00  |P2,2).B...... I.|
00000920: 45 11 9C 04 8F 20 2A 2A  20 42 45 50 41 4C 49 4E  |E.... ** BEPALIN|
00000930: 47 20 4C 41 4E 47 53 54  45 20 44 4F 4F 52 4C 4F  |G LANGSTE DOORLO|
00000940: 4F 50 54 59 44 00 57 11  A6 04 81 20 49 B2 4E 20  |OPTYD.W.... I.N |
00000950: A4 20 31 20 A9 AB 31 00  69 11 B0 04 50 B2 41 28  |. 1 ..1.i...P.A(|
00000960: 53 28 49 2C 32 29 2C 32  29 00 72 11 BA 04 8D 20  |S(I,2),2).r.... |
00000970: 35 30 00 85 11 C4 04 8B  20 46 20 B2 20 31 20 A7  |50...... F . 1 .|
00000980: 20 31 39 36 30 00 8F 11  CE 04 50 31 B2 58 33 00  | 1960.....P1.X3.|
00000990: A1 11 D8 04 50 B2 41 28  53 28 49 2C 32 29 2C 31  |....P.A(S(I,2),1|
000009A0: 29 00 AA 11 E2 04 8D 20  35 30 00 BD 11 EC 04 8B  |)...... 50......|
000009B0: 20 46 20 B2 20 31 20 A7  20 31 39 36 30 00 C7 11  | F . 1 . 1960...|
000009C0: F6 04 50 32 B2 58 33 00  E1 11 00 05 42 B2 42 28  |..P2.X3.....B.B(|
000009D0: 50 31 2C 33 29 AA 41 28  53 28 49 2C 32 29 2C 33  |P1,3).A(S(I,2),3|
000009E0: 29 00 FB 11 0A 05 8B 20  42 28 50 32 2C 33 29 20  |)...... B(P2,3) |
000009F0: B1 B2 20 42 20 A7 20 31  33 31 30 00 09 12 14 05  |.. B . 1310.....|
00000A00: 42 28 50 32 2C 33 29 B2  42 00 11 12 1E 05 82 20  |B(P2,3).B...... |
00000A10: 49 00 33 12 28 05 8F 20  2A 2A 20 42 45 50 41 4C  |I.3.(.. ** BEPAL|
00000A20: 49 4E 47 20 4B 52 49 54  49 45 4B 45 20 50 41 44  |ING KRITIEKE PAD|
00000A30: 20 2A 2A 00 41 12 32 05  42 B2 42 28 4E 31 2C 32  | **.A.2.B.B(N1,2|
00000A40: 29 00 50 12 3C 05 81 20  49 B2 31 20 A4 20 4E 31  |).P.<.. I.1 . N1|
00000A50: 00 64 12 46 05 42 28 49  2C 33 29 B2 42 AB 42 28  |.d.F.B(I,3).B.B(|
00000A60: 49 2C 33 29 00 7D 12 50  05 42 28 49 2C 34 29 B2  |I,3).}.P.B(I,4).|
00000A70: 42 28 49 2C 33 29 AB 42  28 49 2C 32 29 00 98 12  |B(I,3).B(I,2)...|
00000A80: 5A 05 8B 20 42 28 49 2C  34 29 20 B1 20 31 45 AB  |Z.. B(I,4) . 1E.|
00000A90: 33 20 A7 20 31 33 39 30  00 A5 12 64 05 42 28 49  |3 . 1390...d.B(I|
00000AA0: 2C 34 29 B2 30 00 AD 12  6E 05 82 20 49 00 D0 12  |,4).0...n.. I...|
00000AB0: 78 05 8F 20 2A 2A 2A 20  55 49 54 56 4F 45 52 20  |x.. *** UITVOER |
00000AC0: 4B 52 49 54 49 45 4B 45  20 50 41 44 20 2A 2A 2A  |KRITIEKE PAD ***|
00000AD0: 00 F0 12 82 05 8F 20 2A  2A 20 41 41 4E 52 4F 45  |...... ** AANROE|
00000AE0: 50 45 4E 20 56 41 4E 20  4B 4F 50 2D 49 20 2A 2A  |PEN VAN KOP-I **|
00000AF0: 00 FA 12 8C 05 8D 20 35  31 30 00 02 13 96 05 54  |...... 510.....T|
00000B00: B2 30 00 11 13 A0 05 81  20 49 B2 31 20 A4 20 4E  |.0...... I.1 . N|
00000B10: 31 00 2E 13 AA 05 99 20  A3 30 29 42 28 49 2C 31  |1...... .0)B(I,1|
00000B20: 29 3B 20 A3 30 35 29 42  28 49 2C 32 29 3B 00 4C  |); .05)B(I,2);.L|
00000B30: 13 B4 05 99 20 A3 31 35  29 42 28 49 2C 33 29 3B  |.... .15)B(I,3);|
00000B40: 20 A3 32 34 29 42 28 49  2C 34 29 3B 00 64 13 BE  | .24)B(I,4);.d..|
00000B50: 05 8B 20 42 28 49 2C 34  29 20 B1 20 30 20 A7 20  |.. B(I,4) . 0 . |
00000B60: 31 34 39 30 00 79 13 C8  05 99 20 A3 33 31 29 22  |1490.y.... .31)"|
00000B70: 4B 52 54 2D 50 41 44 22  3B 00 7F 13 D2 05 99 00  |KRT-PAD";.......|
00000B80: 89 13 DC 05 54 B2 54 AA  31 00 AE 13 E6 05 8B 20  |....T.T.1...... |
00000B90: 28 20 54 20 B3 20 38 20  29 20 AF 20 28 20 49 20  |( T . 8 ) . ( I |
00000BA0: B3 B1 20 4E 31 20 29 20  A7 20 31 36 31 30 00 B4  |.. N1 ) . 1610..|
00000BB0: 13 F0 05 99 00 E6 13 FA  05 99 22 57 49 4C 54 20  |.........."WILT |
00000BC0: 55 20 44 45 20 52 45 53  54 20 56 41 4E 20 44 45  |U DE REST VAN DE|
00000BD0: 20 47 45 47 45 56 45 4E  53 22 3A 99 22 4A 41 2F  | GEGEVENS":."JA/|
00000BE0: 4E 45 45 20 22 3B 00 EF  13 04 06 85 20 41 24 00  |NEE ";...... A$.|
00000BF0: 03 14 0E 06 8B 20 54 20  B2 20 4E 31 20 A7 20 31  |..... T . N1 . 1|
00000C00: 36 31 30 00 1D 14 18 06  8B 20 C8 28 41 24 2C 31  |610...... .(A$,1|
00000C10: 29 20 B2 22 4E 22 20 A7  20 31 36 30 30 00 27 14  |) ."N" . 1600.'.|
00000C20: 22 06 8D 20 35 31 30 00  2F 14 2C 06 54 B2 30 00  |".. 510./.,.T.0.|
00000C30: 3A 14 36 06 89 20 31 36  31 30 00 43 14 40 06 49  |:.6.. 1610.C.@.I|
00000C40: B2 4E 31 00 4B 14 4A 06  82 20 49 00 69 14 54 06  |.N1.K.J.. I.i.T.|
00000C50: 8F 20 2A 2A 20 4D 59 4C  50 41 4C 45 4E 20 55 49  |. ** MYLPALEN UI|
00000C60: 54 44 52 41 41 49 20 2A  2A 00 73 14 5E 06 8D 20  |TDRAAI **.s.^.. |
00000C70: 36 31 30 00 7B 14 68 06  54 B2 30 00 87 14 72 06  |610.{.h.T.0...r.|
00000C80: 81 20 49 B2 31 A4 4E 00  94 14 7C 06 50 B2 41 28  |. I.1.N...|.P.A(|
00000C90: 49 2C 31 29 00 9D 14 86  06 8D 20 35 30 00 A7 14  |I,1)...... 50...|
00000CA0: 90 06 50 31 B2 58 33 00  B4 14 9A 06 50 B2 41 28  |..P1.X3.....P.A(|
00000CB0: 49 2C 32 29 00 BD 14 A4  06 8D 20 35 30 00 C7 14  |I,2)...... 50...|
00000CC0: AE 06 50 32 B2 58 33 00  DD 14 B8 06 59 31 B2 42  |..P2.X3.....Y1.B|
00000CD0: 28 50 31 2C 32 29 AA 41  28 49 2C 33 29 00 F3 14  |(P1,2).A(I,3)...|
00000CE0: C2 06 59 32 B2 42 28 50  32 2C 33 29 AB 41 28 49  |..Y2.B(P2,3).A(I|
00000CF0: 2C 33 29 00 05 15 CC 06  59 33 B2 42 28 50 32 2C  |,3).....Y3.B(P2,|
00000D00: 33 29 AB 59 31 00 1C 15  D6 06 8B 20 59 33 20 B1  |3).Y1...... Y3 .|
00000D10: 20 31 45 AB 33 20 A7 20  31 37 37 30 00 27 15 E0  | 1E.3 . 1770.'..|
00000D20: 06 59 33 20 B2 20 30 00  51 15 EA 06 99 41 28 49  |.Y3 . 0.Q....A(I|
00000D30: 2C 31 29 3B 20 A3 33 29  41 28 49 2C 32 29 3B 20  |,1); .3)A(I,2); |
00000D40: A3 30 37 29 B5 28 41 28  49 2C 33 29 AA 2E 35 29  |.07).(A(I,3)..5)|
00000D50: 3B 00 85 15 F4 06 99 20  A3 31 32 29 B5 28 42 28  |;...... .12).(B(|
00000D60: 50 31 2C 32 29 AA 2E 35  29 3B 20 A3 31 36 29 B5  |P1,2)..5); .16).|
00000D70: 28 59 31 AA 2E 35 29 3B  A3 32 31 29 B5 28 59 32  |(Y1..5);.21).(Y2|
00000D80: AA 2E 35 29 3B 00 9E 15  FE 06 99 20 A3 32 35 29  |..5);...... .25)|
00000D90: B5 28 42 28 50 32 2C 33  29 AA 2E 35 29 3B 00 B2  |.(B(P2,3)..5);..|
00000DA0: 15 08 07 8B 20 59 33 20  B1 20 30 20 A7 20 31 38  |.... Y3 . 0 . 18|
00000DB0: 32 30 00 C1 15 12 07 99  20 A3 33 31 29 22 2A 22  |20...... .31)"*"|
00000DC0: 3B 00 D4 15 1C 07 99 20  A3 33 35 29 B5 28 59 33  |;...... .35).(Y3|
00000DD0: AA 2E 35 29 00 DE 15 26  07 54 B2 54 AA 31 00 02  |..5)...&.T.T.1..|
00000DE0: 16 30 07 8B 20 28 20 54  20 B3 20 38 20 29 20 AF  |.0.. ( T . 8 ) .|
00000DF0: 20 28 20 49 20 B3 B1 20  4E 20 29 20 A7 20 31 39  | ( I .. N ) . 19|
00000E00: 34 30 00 08 16 3A 07 99  00 3F 16 44 07 99 22 57  |40...:...?.D.."W|
00000E10: 49 4C 54 20 55 20 44 45  20 52 45 53 54 20 56 41  |ILT U DE REST VA|
00000E20: 4E 20 44 45 20 47 45 47  45 56 45 4E 53 20 5A 49  |N DE GEGEVENS ZI|
00000E30: 45 4E 22 3A 99 22 4A 41  2F 4E 45 45 20 22 3B 00  |EN":."JA/NEE ";.|
00000E40: 48 16 4E 07 85 20 41 24  00 63 16 58 07 8B 20 C8  |H.N.. A$.c.X.. .|
00000E50: 28 41 24 2C 31 29 20 B2  20 22 4E 22 20 A7 20 31  |(A$,1) . "N" . 1|
00000E60: 39 33 30 00 76 16 62 07  8B 20 54 20 B2 20 4E 20  |930.v.b.. T . N |
00000E70: A7 20 31 39 34 30 00 80  16 6C 07 8D 20 36 31 30  |. 1940...l.. 610|
00000E80: 00 88 16 76 07 54 B2 30  00 93 16 80 07 89 20 31  |...v.T.0...... 1|
00000E90: 39 34 30 00 9B 16 8A 07  49 B2 4E 00 A3 16 94 07  |940.....I.N.....|
00000EA0: 82 20 49 00 CA 16 9E 07  8F 20 2A 2A 2A 20 57 59  |. I...... *** WY|
00000EB0: 5A 49 47 45 4E 20 4D 59  4C 50 41 41 4C 2D 47 45  |ZIGEN MYLPAAL-GE|
00000EC0: 47 45 56 45 4E 53 20 2A  2A 2A 00 D4 16 A8 07 99  |GEVENS ***......|
00000ED0: 22 93 22 3B 00 F8 16 B2  07 99 22 2A 2A 2A 20 4B  |".";......"*** K|
00000EE0: 52 49 54 49 45 4B 45 20  50 41 44 20 4D 45 54 48  |RITIEKE PAD METH|
00000EF0: 4F 44 45 20 2A 2A 2A 22  00 0B 17 BC 07 99 22 20  |ODE ***"......" |
00000F00: 20 20 20 57 59 5A 49 47  45 4E 22 00 11 17 C6 07  |   WYZIGEN".....|
00000F10: 99 00 25 17 D0 07 8B 20  46 20 B3 B1 20 31 20 A7  |..%.... F .. 1 .|
00000F20: 20 32 30 33 30 00 4A 17  DA 07 99 22 4D 59 4C 50  | 2030.J...."MYLP|
00000F30: 41 41 4C 20 22 3B 50 3B  22 4B 4F 4D 54 20 4E 49  |AAL ";P;"KOMT NI|
00000F40: 45 54 20 56 4F 4F 52 20  21 22 00 50 17 E4 07 99  |ET VOOR !".P....|
00000F50: 00 83 17 EE 07 99 22 57  49 4C 54 20 55 20 57 59  |......"WILT U WY|
00000F60: 5A 49 47 49 4E 47 45 4E  20 49 4E 20 48 45 54 20  |ZIGINGEN IN HET |
00000F70: 4E 45 54 57 45 52 4B 22  3A 99 22 4A 41 2F 4E 45  |NETWERK":."JA/NE|
00000F80: 45 22 3B 00 8C 17 F8 07  85 20 41 24 00 A7 17 02  |E";...... A$....|
00000F90: 08 8B 20 C8 28 41 24 2C  31 29 20 B2 20 22 4E 22  |.. .(A$,1) . "N"|
00000FA0: 20 A7 20 39 30 30 30 00  C6 17 0C 08 99 22 57 45  | . 9000......"WE|
00000FB0: 4C 4B 45 20 52 45 47 45  4C 20 20 53 54 4F 50 20  |LKE REGEL  STOP |
00000FC0: 3D 20 30 20 22 3B 00 CE  17 16 08 85 20 52 00 E0  |= 0 ";...... R..|
00000FD0: 17 20 08 8B 20 52 20 B2  20 30 20 A7 20 38 38 30  |. .. R . 0 . 880|
00000FE0: 00 04 18 2A 08 8B 20 28  20 52 B1 B2 31 20 29 20  |...*.. ( R..1 ) |
00000FF0: AF 20 28 20 52 20 B3 B2  20 4E AA 31 29 20 A7 20  |. ( R .. N.1) . |
00001000: 32 31 32 30 00 19 18 34  08 99 22 46 4F 55 54 20  |2120...4.."FOUT |
00001010: 4F 50 4E 49 45 55 57 20  22 00 24 18 3E 08 89 20  |OPNIEUW ".$.>.. |
00001020: 32 30 36 30 00 37 18 48  08 8B 20 52 20 B1 20 4E  |2060.7.H.. R . N|
00001030: 20 A7 20 32 31 37 30 00  41 18 52 08 4E B2 4E AB  | . 2170.A.R.N.N.|
00001040: 31 00 5F 18 5C 08 99 22  4F 55 44 45 20 47 45 47  |1._.\.."OUDE GEG|
00001050: 45 56 45 4E 53 20 52 45  47 45 4C 20 22 3B 52 00  |EVENS REGEL ";R.|
00001060: 8C 18 66 08 99 22 4D 59  4C 50 28 49 29 20 3A 22  |..f.."MYLP(I) :"|
00001070: 3B 41 28 52 2C 31 29 3B  22 4D 59 4C 50 28 4A 29  |;A(R,1);"MYLP(J)|
00001080: 20 20 3A 22 3B 41 28 52  2C 32 29 3B 00 A5 18 70  |  :";A(R,2);...p|
00001090: 08 99 22 54 59 44 53 44  55 55 52 20 3A 22 3B 41  |.."TYDSDUUR :";A|
000010A0: 28 52 2C 33 29 00 AF 18  7A 08 4E B2 4E AA 31 00  |(R,3)...z.N.N.1.|
000010B0: B5 18 84 08 99 00 EC 18  8E 08 99 22 4D 59 4C 50  |..........."MYLP|
000010C0: 41 41 4C 28 49 29 20 4D  59 4C 50 41 41 4C 28 4A  |AAL(I) MYLPAAL(J|
000010D0: 29 20 54 59 44 53 44 55  55 52 22 3A 99 22 20 30  |) TYDSDUUR":." 0|
000010E0: 2C 30 2C 30 20 3D 20 53  54 4F 50 22 00 0D 19 98  |,0,0 = STOP"....|
000010F0: 08 99 22 4E 49 45 55 57  45 20 49 4E 56 4F 45 52  |.."NIEUWE INVOER|
00001100: 20 52 45 47 45 4C 22 3B  52 22 20 22 3B 00 28 19  | REGEL";R" ";.(.|
00001110: A2 08 85 20 41 28 52 2C  31 29 2C 41 28 52 2C 32  |... A(R,1),A(R,2|
00001120: 29 2C 41 28 52 2C 33 29  00 45 19 AC 08 8B 20 41  |),A(R,3).E.... A|
00001130: 28 52 2C 31 29 20 B3 20  41 28 52 2C 32 29 20 A7  |(R,1) . A(R,2) .|
00001140: 20 32 32 35 30 00 6E 19  B6 08 99 22 46 4F 55 54  | 2250.n...."FOUT|
00001150: 20 2A 20 4D 59 4C 50 41  41 4C 28 49 29 20 3E 20  | * MYLPAAL(I) > |
00001160: 4D 59 4C 50 41 41 4C 20  28 4A 29 20 2A 22 00 79  |MYLPAAL (J) *".y|
00001170: 19 C0 08 89 20 32 32 30  30 00 92 19 CA 08 8B 20  |.... 2200...... |
00001180: 41 28 52 2C 33 29 20 B2  B1 20 30 20 A7 20 32 30  |A(R,3) .. 0 . 20|
00001190: 36 30 00 AF 19 D4 08 99  22 46 4F 55 54 20 2A 20  |60......"FOUT * |
000011A0: 54 59 44 53 44 55 55 52  20 3C 20 30 20 2A 22 00  |TYDSDUUR < 0 *".|
000011B0: BA 19 DE 08 89 20 32 32  30 30 00 D9 19 E8 08 8F  |..... 2200......|
000011C0: 20 2A 2A 2A 20 49 4E 54  45 52 4E 45 20 44 41 54  | *** INTERNE DAT|
000011D0: 41 46 49 4C 45 20 2A 2A  2A 00 E5 19 F2 08 83 20  |AFILE ***...... |
000011E0: 31 2C 32 2C 33 00 F2 19  FC 08 83 20 32 2C 34 2C  |1,2,3...... 2,4,|
000011F0: 31 30 00 FE 19 06 09 83  20 32 2C 33 2C 32 00 0A  |10...... 2,3,2..|
00001200: 1A 10 09 83 20 33 2C 34  2C 35 00 16 1A 1A 09 83  |.... 3,4,5......|
00001210: 20 34 2C 35 2C 34 00 22  1A 24 09 83 20 30 2C 30  | 4,5,4.".$.. 0,0|
00001220: 2C 30 00 28 1A 28 23 80  00 00 00 FF              |,0.(.(#.....    |

..M.... --(C) DIGICOM SOFTWARE,TAPE B01 
--         AAGEPAST VOOR COMMODORE 64.L.
... *** KRITIEKE PAD METHODE...... A(25,
3),B(25,4),S(26,2)...... 740...(.. *** S
UBROUTINE ZOEKEN ***...2.F.0.E.<.X1.1.Q.
F.X2.1.N1...P.X3.X1..((X2.X1).2)...Z.. P
 . B(X3,1) . 140...D.. P . B(X3,1) . 180
.,.N.. X2 . X3 . 170.6.X.X2.X3.?.... 80.
S.... X1 . X3 . 170.]...X1.X3.F. .. 80.N
...F.1.T.......... *** SUB-ROUTINE SORTE
REN ***...H.. J.1 . 2.G.R.. ** INDEXEN I
NITIALISEREN **.U.... I.1 . N.....S(I,J)
.I...... I...... I.2 . N.....X1.1.....X2
.I.....P3.S(I,J)./.".X3.X1..((X2.X1).2).
>.,.P4.S(X3,J).\.6.. A(P3,J) . A(P4,J) .
 350.Z.@.. A(P3,J) . A(P4,J) . 380...J.X
2.X3...T.. 420...^.. X2 . X3 . 420...H.X
2.X3...R.. 290.J.|.. X1 . X3 . 420.T...X
1.X3...... 290...... ** WISSELEN **.....
. I . X2 . 460...... X.I . X2.1 . .1.0..
.S(X,J).S(X.1,J).8.B.. X.G.L.S(X2,J).P3.
O.V.. I.W.... J.].....~.... *** SUBROUTI
NE KOP - I ***......".";...... .5)"*** K
RITIEKE PAD METHODE ***".S.... .9)"KORTS
TE DOORLOOPTYD: ";B.Y.......&...0)"MYL-"
;.5)"VROEGSTE"; .15)"LAATSTE";...0.. .24
)"SPELING".H.:.. .0)"PAAL"; .05)"AANVANG
"; .15)"AANVANG".N.D...T.N...V.X.. *** S
UBROUTINE KOP - II ***...B..".";...L...5
)"*** KRITIEKE PAD METHODE ***".I.V...9)
"KORTSTE DOORLOOPTYD: ";B.O.........."MY
LP.";.07)"TYDS.";...... .13)"VROEGS.  LA
ATS.";.".... .30)"KR."  .34)"TOT."./....
"I  J";.Q.... .13)"A.  E."; .22)"A.  E."
;.L.....30)"PAD";.34)"SPEL.".R.F...X.P..
...Z.. *** INVOEREN VAN DE GEGEVENS ***.
.....".";.....X.1............"*** KRITIE
KE PAD METHODE ***"............"GEGEVENS
 WORDEN INGELEZEN EN VERWERKT.".=. .. **
 INLEZEN MYLP(I),MYLP.(J),TYDSDUUR **.X.
*.. A(X,1),A(X,2),A(X,3).|.4.. (A(X,1).0
) . (A(X,2).0) . 850...>.X.X.1...H.. 810
...R.N.X.1...\.. *** BEREKENING ***.Z.F.
. ** OP NUL ZETTEN VAN MATRIX B **...P..
 I.1 . N...Z.. J.1 . 4.....B(I,J).0.....
. J...... I.R.... ** AANROEPEN VAN SORTE
ER-                  SUBROUTINE **.\....
 200.Y.... ** MYLPAAL BEPALING **.....B(
1,1).A(S(1,1),1)...J.N1.1...T.. X.1 . N.
J.... B(N1,1) . A(S(X,2),2) . 1020.V...N
1.N1.1.....B(N1,1).A(S(X,2),2)...... X..
.... ** BEPALING KORTSTE DOORLOOPTYD.*..
.. I.1 . N.<...P.A(S(I,1),1).E.$.. 50...
... ** INDIEN F=1 KLOPT HET NETWERK     
       NIET ! **...8.. F . 1 . 1960...B.
P1.X3...L.P.A(S(I,1),2)...V.. 50.K.`.. F
 . 1 . 1960.U.J.P2.X3...T.B.B(P1,2).A(S(
I,1),3)...~.. B(P2,2) .. B . 1170.....B(
P2,2).B...... I.E.... ** BEPALING LANGST
E DOORLOOPTYD.W.... I.N . 1 ..1.I...P.A(
S(I,2),2).R.... 50...D.. F . 1 . 1960...
N.P1.X3...X.P.A(S(I,2),1)...... 50......
 F . 1 . 1960.G...P2.X3.....B.B(P1,3).A(
S(I,2),3)...... B(P2,3) .. B . 1310.....
B(P2,3).B...... I.3.(.. ** BEPALING KRIT
IEKE PAD **.A.2.B.B(N1,2).P.<.. I.1 . N1
.D.F.B(I,3).B.B(I,3).}.P.B(I,4).B(I,3).B
(I,2)...Z.. B(I,4) . 1E.3 . 1390...D.B(I
,4).0...N.. I.P.X.. *** UITVOER KRITIEKE
 PAD ***...... ** AANROEPEN VAN KOP-I **
...... 510.....T.0... .. I.1 . N1...... 
.0)B(I,1); .05)B(I,2);.L.... .15)B(I,3);
 .24)B(I,4);.D.... B(I,4) . 0 . 1490.Y.H
.. .31)"KRT-PAD";..R.......T.T.1...... 
( T . 8 ) . ( I .. N1 ) . 1610..........
.."WILT U DE REST VAN DE GEGEVENS":."JA/
NEE ";...... A$...... T . N1 . 1610.....
. H(A$,1) ."N" . 1600.'.".. 510./.,.T.0.
:.6.. 1610.C.@.I.N1.K.J.. I.I.T.. ** MYL
PALEN UITDRAAI **.S.^.. 610.{.H.T.0...R.
. I.1.N...|.P.A(I,1)...... 50.....P1.X3.
....P.A(I,2)...... 50.G...P2.X3.....Y1.B
(P1,2).A(I,3)...B.Y2.B(P2,3).A(I,3)...L.
Y3.B(P2,3).Y1...V.. Y3 . 1E.3 . 1770.'..
.Y3 . 0.Q....A(I,1); .3)A(I,2); .07).(A(
I,3)..5);...... .12).(B(P1,2)..5); .16).
(Y1..5);.21).(Y2..5);...... .25).(B(P2,3
)..5);...... Y3 . 0 . 1820.A.... .31)"*"
;.T.... .35).(Y3..5)...&.T.T.1...0.. ( T
 . 8 ) . ( I .. N ) . 1940...:...?.D.."W
ILT U DE REST VAN DE GEGEVENS ZIEN":."JA
/NEE ";.H.N.. A$.C.X.. H(A$,1) . "N" . 1
930.V.B.. T . N . 1940...L.. 610...V.T.0
...... 1940.....I.N...... I.J.... *** WY
ZIGEN MYLPAAL-GEGEVENS ***.T....".";....
.."*** KRITIEKE PAD METHODE ***"......" 
   WYZIGEN"...F...%.P.. F .. 1 . 2030.J.
Z.."MYLPAAL ";P;"KOMT NIET VOOR !".P....
......"WILT U WYZIGINGEN IN HET NETWERK"
:."JA/NEE";...... A$...... H(A$,1) . "N"
 . 9000.F...."WELKE REGEL  STOP = 0 ";.N
.... R... .. R . 0 . 880...*.. ( R..1 ) 
. ( R .. N.1) . 2120...4.."FOUT OPNIEUW 
".$.>.. 2060.7.H.. R . N . 2170.A.R.N.N.
1._.\.."OUDE GEGEVENS REGEL ";R...F.."MY
LP(I) :";A(R,1);"MYLP(J)  :";A(R,2);...P
.."TYDSDUUR :";A(R,3)...Z.N.N.1.........
..."MYLPAAL(I) MYLPAAL(J) TYDSDUUR":." 0
,0,0 = STOP"......"NIEUWE INVOER REGEL";
R" ";.(.... A(R,1),A(R,2),A(R,3).E.... A
(R,1) . A(R,2) . 2250.N...."FOUT * MYLPA
AL(I) > MYLPAAL (J) *".Y.... 2200...J.. 
A(R,3) .. 0 . 2060...T.."FOUT * TYDSDUUR
 < 0 *"...... 2200.Y.... *** INTERNE DAT
AFILE ***...... 1,2,3...... 2,4,10......
 2,3,2...... 3,4,5...... 4,5,4.".$.. 0,0
,0.(.(#.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL