PAG 105 V.B 1

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 CD 0D EE 02 99 22  |.....".";......"|
000005B0: 2A 2A 2A 20 4B 52 49 54  49 45 4B 45 20 50 41 44  |*** KRITIEKE PAD|
000005C0: 20 4D 45 54 48 4F 44 45  20 2A 2A 2A 22 00 D3 0D  | METHODE ***"...|
000005D0: F8 02 99 00 FF 0D 02 03  99 22 47 45 45 46 20 4D  |........."GEEF M|
000005E0: 59 4C 50 41 41 4C 28 49  29 2C 4D 59 4C 50 41 41  |YLPAAL(I),MYLPAA|
000005F0: 4C 28 4A 29 2C 54 59 44  53 44 55 55 52 22 3B 00  |L(J),TYDSDUUR";.|
00000600: 19 0E 0C 03 99 22 20 20  20 20 20 53 54 4F 50 50  |....."     STOPP|
00000610: 45 4E 20 30 2C 30 2C 30  22 00 1F 0E 16 03 99 00  |EN 0,0,0".......|
00000620: 2E 0E 20 03 81 20 58 B2  31 20 A4 20 32 35 00 3F  |.. .. X.1 . 25.?|
00000630: 0E 2A 03 99 22 52 45 47  45 4C 20 22 3B 58 2C 00  |.*.."REGEL ";X,.|
00000640: 5A 0E 34 03 85 20 41 28  58 2C 31 29 2C 41 28 58  |Z.4.. A(X,1),A(X|
00000650: 2C 32 29 2C 41 28 58 2C  33 29 00 86 0E 3E 03 8B  |,2),A(X,3)...>..|
00000660: 20 28 20 41 28 58 2C 31  29 20 B2 20 30 20 29 20  | ( A(X,1) . 0 ) |
00000670: AF 20 28 20 41 28 58 2C  32 29 20 B2 20 30 20 29  |. ( A(X,2) . 0 )|
00000680: 20 A7 20 39 32 30 00 A6  0E 48 03 8F 20 2A 2A 20  | . 920...H.. ** |
00000690: 53 43 52 45 45 4E 49 4E  47 20 4F 50 20 46 4F 55  |SCREENING OP FOU|
000006A0: 54 45 4E 20 2A 2A 00 C2  0E 52 03 8B 20 41 28 58  |TEN **...R.. A(X|
000006B0: 2C 31 29 20 B3 20 41 28  58 2C 32 29 20 A7 20 38  |,1) . A(X,2) . 8|
000006C0: 38 30 00 EA 0E 5C 03 99  22 46 4F 55 54 20 2A 20  |80...\.."FOUT * |
000006D0: 4D 59 4C 50 41 41 4C 28  49 29 20 3E 20 4D 59 4C  |MYLPAAL(I) > MYL|
000006E0: 50 41 41 4C 28 4A 29 20  2A 22 00 F4 0E 66 03 89  |PAAL(J) *"...f..|
000006F0: 20 38 31 30 00 0C 0F 70  03 8B 20 41 28 58 2C 33  | 810...p.. A(X,3|
00000700: 29 20 B1 B2 20 30 20 A7  20 39 34 30 00 2D 0F 7A  |) .. 0 . 940.-.z|
00000710: 03 99 20 22 46 4F 55 54  20 2A 20 54 59 44 53 44  |.. "FOUT * TYDSD|
00000720: 55 55 52 20 49 53 20 3C  20 30 20 2A 22 00 37 0F  |UUR IS < 0 *".7.|
00000730: 84 03 89 20 38 31 30 00  65 0F 8E 03 8B 20 28 20  |... 810.e.... ( |
00000740: 41 28 58 2C 31 29 20 B3  B1 20 30 20 29 20 AF 20  |A(X,1) .. 0 ) . |
00000750: 28 20 41 28 58 2C 32 29  20 B3 B1 20 30 20 29 20  |( A(X,2) .. 0 ) |
00000760: A7 20 39 34 30 00 6F 0F  98 03 4E B2 58 AB 31 00  |. 940.o...N.X.1.|
00000770: 78 0F A2 03 58 B2 32 35  00 80 0F AC 03 82 20 58  |x...X.25...... X|
00000780: 00 99 0F B6 03 8F 20 2A  2A 2A 20 42 45 52 45 4B  |...... *** BEREK|
00000790: 45 4E 49 4E 47 20 2A 2A  2A 00 C0 0F C0 03 8F 20  |ENING ***...... |
000007A0: 2A 2A 20 4F 50 20 4E 55  4C 20 5A 45 54 54 45 4E  |** OP NUL ZETTEN|
000007B0: 20 56 41 4E 20 4D 41 54  52 49 58 20 42 20 2A 2A  | VAN MATRIX B **|
000007C0: 00 CE 0F CA 03 81 20 49  B2 31 20 A4 20 4E 00 DC  |...... I.1 . N..|
000007D0: 0F D4 03 81 20 4A B2 31  20 A4 20 34 00 E9 0F DE  |.... J.1 . 4....|
000007E0: 03 42 28 49 2C 4A 29 B2  30 00 F1 0F E8 03 82 20  |.B(I,J).0...... |
000007F0: 4A 00 F9 0F F2 03 82 20  49 00 38 10 FC 03 8F 20  |J...... I.8.... |
00000800: 2A 2A 20 41 41 4E 52 4F  45 50 45 4E 20 56 41 4E  |** AANROEPEN VAN|
00000810: 20 53 4F 52 54 45 45 52  2D 20 20 20 20 20 20 20  | SORTEER-       |
00000820: 20 20 20 20 20 20 20 20  20 20 20 53 55 42 52 4F  |           SUBRO|
00000830: 55 54 49 4E 45 20 2A 2A  00 42 10 06 04 8D 20 32  |UTINE **.B.... 2|
00000840: 30 30 00 5F 10 10 04 8F  20 2A 2A 20 4D 59 4C 50  |00._.... ** MYLP|
00000850: 41 41 4C 20 42 45 50 41  4C 49 4E 47 20 2A 2A 00  |AAL BEPALING **.|
00000860: 76 10 1A 04 42 28 31 2C  31 29 B2 41 28 53 28 31  |v...B(1,1).A(S(1|
00000870: 2C 31 29 2C 31 29 00 7F  10 24 04 4E 31 B2 31 00  |,1),1)...$.N1.1.|
00000880: 8D 10 2E 04 81 20 58 B2  31 20 A4 20 4E 00 B0 10  |..... X.1 . N...|
00000890: 38 04 8B 20 42 28 4E 31  2C 31 29 20 B2 20 41 28  |8.. B(N1,1) . A(|
000008A0: 53 28 58 2C 32 29 2C 32  29 20 A7 20 31 31 31 30  |S(X,2),2) . 1110|
000008B0: 00 BC 10 42 04 4E 31 B2  4E 31 AA 31 00 D4 10 4C  |...B.N1.N1.1...L|
000008C0: 04 42 28 4E 31 2C 31 29  B2 41 28 53 28 58 2C 32  |.B(N1,1).A(S(X,2|
000008D0: 29 2C 32 29 00 DC 10 56  04 82 20 58 00 02 11 60  |),2)...V.. X...`|
000008E0: 04 8F 20 2A 2A 20 42 45  50 41 4C 49 4E 47 20 4B  |.. ** BEPALING K|
000008F0: 4F 52 54 53 54 45 20 44  4F 4F 52 4C 4F 4F 50 54  |ORTSTE DOORLOOPT|
00000900: 59 44 00 10 11 6A 04 81  20 49 B2 31 20 A4 20 4E  |YD...j.. I.1 . N|
00000910: 00 22 11 74 04 50 B2 41  28 53 28 49 2C 31 29 2C  |.".t.P.A(S(I,1),|
00000920: 31 29 00 2B 11 7E 04 8D  20 35 30 00 66 11 88 04  |1).+.~.. 50.f...|
00000930: 8F 20 2A 2A 20 49 4E 44  49 45 4E 20 46 3D 31 20  |. ** INDIEN F=1 |
00000940: 4B 4C 4F 50 54 20 48 45  54 20 4E 45 54 57 45 52  |KLOPT HET NETWER|
00000950: 4B 20 20 20 20 20 20 20  20 20 20 20 20 4E 49 45  |K            NIE|
00000960: 54 20 21 20 2A 2A 00 79  11 92 04 8B 20 46 20 B2  |T ! **.y.... F .|
00000970: 20 31 20 A7 20 32 30 35  30 00 83 11 9C 04 50 31  | 1 . 2050.....P1|
00000980: B2 58 33 00 95 11 A6 04  50 B2 41 28 53 28 49 2C  |.X3.....P.A(S(I,|
00000990: 31 29 2C 32 29 00 9E 11  B0 04 8D 20 35 30 00 B1  |1),2)...... 50..|
000009A0: 11 BA 04 8B 20 46 20 B2  20 31 20 A7 20 32 30 35  |.... F . 1 . 205|
000009B0: 30 00 BB 11 C4 04 50 32  B2 58 33 00 D5 11 CE 04  |0.....P2.X3.....|
000009C0: 42 B2 42 28 50 31 2C 32  29 AA 41 28 53 28 49 2C  |B.B(P1,2).A(S(I,|
000009D0: 31 29 2C 33 29 00 EF 11  D8 04 8B 20 42 28 50 32  |1),3)...... B(P2|
000009E0: 2C 32 29 20 B1 B2 20 42  20 A7 20 31 32 36 30 00  |,2) .. B . 1260.|
000009F0: FD 11 E2 04 42 28 50 32  2C 32 29 B2 42 00 05 12  |....B(P2,2).B...|
00000A00: EC 04 82 20 49 00 2B 12  F6 04 8F 20 2A 2A 20 42  |... I.+.... ** B|
00000A10: 45 50 41 4C 49 4E 47 20  4C 41 4E 47 53 54 45 20  |EPALING LANGSTE |
00000A20: 44 4F 4F 52 4C 4F 4F 50  54 59 44 00 3D 12 00 05  |DOORLOOPTYD.=...|
00000A30: 81 20 49 B2 4E 20 A4 20  31 20 A9 AB 31 00 4F 12  |. I.N . 1 ..1.O.|
00000A40: 0A 05 50 B2 41 28 53 28  49 2C 32 29 2C 32 29 00  |..P.A(S(I,2),2).|
00000A50: 58 12 14 05 8D 20 35 30  00 6B 12 1E 05 8B 20 46  |X.... 50.k.... F|
00000A60: 20 B2 20 31 20 A7 20 32  30 35 30 00 75 12 28 05  | . 1 . 2050.u.(.|
00000A70: 50 31 B2 58 33 00 87 12  32 05 50 B2 41 28 53 28  |P1.X3...2.P.A(S(|
00000A80: 49 2C 32 29 2C 31 29 00  90 12 3C 05 8D 20 35 30  |I,2),1)...<.. 50|
00000A90: 00 A3 12 46 05 8B 20 46  20 B2 20 31 20 A7 20 32  |...F.. F . 1 . 2|
00000AA0: 30 35 30 00 AD 12 50 05  50 32 B2 58 33 00 C7 12  |050...P.P2.X3...|
00000AB0: 5A 05 42 B2 42 28 50 31  2C 33 29 AA 41 28 53 28  |Z.B.B(P1,3).A(S(|
00000AC0: 49 2C 32 29 2C 33 29 00  E1 12 64 05 8B 20 42 28  |I,2),3)...d.. B(|
00000AD0: 50 32 2C 33 29 20 B1 B2  20 42 20 A7 20 31 34 30  |P2,3) .. B . 140|
00000AE0: 30 00 EF 12 6E 05 42 28  50 32 2C 33 29 B2 42 00  |0...n.B(P2,3).B.|
00000AF0: F7 12 78 05 82 20 49 00  19 13 82 05 8F 20 2A 2A  |..x.. I...... **|
00000B00: 20 42 45 50 41 4C 49 4E  47 20 4B 52 49 54 49 45  | BEPALING KRITIE|
00000B10: 4B 45 20 50 41 44 20 2A  2A 00 27 13 8C 05 42 B2  |KE PAD **.'...B.|
00000B20: 42 28 4E 31 2C 32 29 00  36 13 96 05 81 20 49 B2  |B(N1,2).6.... I.|
00000B30: 31 20 A4 20 4E 31 00 4A  13 A0 05 42 28 49 2C 33  |1 . N1.J...B(I,3|
00000B40: 29 B2 42 AB 42 28 49 2C  33 29 00 63 13 AA 05 42  |).B.B(I,3).c...B|
00000B50: 28 49 2C 34 29 B2 42 28  49 2C 33 29 AB 42 28 49  |(I,4).B(I,3).B(I|
00000B60: 2C 32 29 00 7E 13 B4 05  8B 20 42 28 49 2C 34 29  |,2).~.... B(I,4)|
00000B70: 20 B1 20 31 45 AB 33 20  A7 20 31 34 38 30 00 8B  | . 1E.3 . 1480..|
00000B80: 13 BE 05 42 28 49 2C 34  29 B2 30 00 93 13 C8 05  |...B(I,4).0.....|
00000B90: 82 20 49 00 B6 13 D2 05  8F 20 2A 2A 2A 20 55 49  |. I...... *** UI|
00000BA0: 54 56 4F 45 52 20 4B 52  49 54 49 45 4B 45 20 50  |TVOER KRITIEKE P|
00000BB0: 41 44 20 2A 2A 2A 00 D6  13 DC 05 8F 20 2A 2A 20  |AD ***...... ** |
00000BC0: 41 41 4E 52 4F 45 50 45  4E 20 56 41 4E 20 4B 4F  |AANROEPEN VAN KO|
00000BD0: 50 2D 49 20 2A 2A 00 E0  13 E6 05 8D 20 35 31 30  |P-I **...... 510|
00000BE0: 00 E8 13 F0 05 54 B2 30  00 F7 13 FA 05 81 20 49  |.....T.0...... I|
00000BF0: B2 31 20 A4 20 4E 31 00  14 14 04 06 99 20 A3 30  |.1 . N1...... .0|
00000C00: 29 42 28 49 2C 31 29 3B  20 A3 30 35 29 42 28 49  |)B(I,1); .05)B(I|
00000C10: 2C 32 29 3B 00 32 14 0E  06 99 20 A3 31 35 29 42  |,2);.2.... .15)B|
00000C20: 28 49 2C 33 29 3B 20 A3  32 34 29 42 28 49 2C 34  |(I,3); .24)B(I,4|
00000C30: 29 3B 00 4A 14 18 06 8B  20 42 28 49 2C 34 29 20  |);.J.... B(I,4) |
00000C40: B1 20 30 20 A7 20 31 35  38 30 00 5F 14 22 06 99  |. 0 . 1580._."..|
00000C50: 20 A3 33 31 29 22 4B 52  54 2D 50 41 44 22 3B 00  | .31)"KRT-PAD";.|
00000C60: 65 14 2C 06 99 00 6F 14  36 06 54 B2 54 AA 31 00  |e.,...o.6.T.T.1.|
00000C70: 94 14 40 06 8B 20 28 20  54 20 B3 20 38 20 29 20  |..@.. ( T . 8 ) |
00000C80: AF 20 28 20 49 20 B3 B1  20 4E 31 20 29 20 A7 20  |. ( I .. N1 ) . |
00000C90: 31 37 30 30 00 9A 14 4A  06 99 00 CC 14 54 06 99  |1700...J.....T..|
00000CA0: 22 57 49 4C 54 20 55 20  44 45 20 52 45 53 54 20  |"WILT U DE REST |
00000CB0: 56 41 4E 20 44 45 20 47  45 47 45 56 45 4E 53 22  |VAN DE GEGEVENS"|
00000CC0: 3A 99 22 4A 41 2F 4E 45  45 20 22 3B 00 D5 14 5E  |:."JA/NEE ";...^|
00000CD0: 06 85 20 41 24 00 E9 14  68 06 8B 20 54 20 B2 20  |.. A$...h.. T . |
00000CE0: 4E 31 20 A7 20 31 37 30  30 00 03 15 72 06 8B 20  |N1 . 1700...r.. |
00000CF0: C8 28 41 24 2C 31 29 20  B2 22 4E 22 20 A7 20 31  |.(A$,1) ."N" . 1|
00000D00: 36 39 30 00 0D 15 7C 06  8D 20 35 31 30 00 15 15  |690...|.. 510...|
00000D10: 86 06 54 B2 30 00 20 15  90 06 89 20 31 37 30 30  |..T.0. .... 1700|
00000D20: 00 29 15 9A 06 49 B2 4E  31 00 31 15 A4 06 82 20  |.)...I.N1.1.... |
00000D30: 49 00 4F 15 AE 06 8F 20  2A 2A 20 4D 59 4C 50 41  |I.O.... ** MYLPA|
00000D40: 4C 45 4E 20 55 49 54 44  52 41 41 49 20 2A 2A 00  |LEN UITDRAAI **.|
00000D50: 59 15 B8 06 8D 20 36 31  30 00 61 15 C2 06 54 B2  |Y.... 610.a...T.|
00000D60: 30 00 6D 15 CC 06 81 20  49 B2 31 A4 4E 00 7A 15  |0.m.... I.1.N.z.|
00000D70: D6 06 50 B2 41 28 49 2C  31 29 00 83 15 E0 06 8D  |..P.A(I,1)......|
00000D80: 20 35 30 00 8D 15 EA 06  50 31 B2 58 33 00 9A 15  | 50.....P1.X3...|
00000D90: F4 06 50 B2 41 28 49 2C  32 29 00 A3 15 FE 06 8D  |..P.A(I,2)......|
00000DA0: 20 35 30 00 AD 15 08 07  50 32 B2 58 33 00 C3 15  | 50.....P2.X3...|
00000DB0: 12 07 59 31 B2 42 28 50  31 2C 32 29 AA 41 28 49  |..Y1.B(P1,2).A(I|
00000DC0: 2C 33 29 00 D9 15 1C 07  59 32 B2 42 28 50 32 2C  |,3).....Y2.B(P2,|
00000DD0: 33 29 AB 41 28 49 2C 33  29 00 EB 15 26 07 59 33  |3).A(I,3)...&.Y3|
00000DE0: B2 42 28 50 32 2C 33 29  AB 59 31 00 02 16 30 07  |.B(P2,3).Y1...0.|
00000DF0: 8B 20 59 33 20 B1 20 31  45 AB 33 20 A7 20 31 38  |. Y3 . 1E.3 . 18|
00000E00: 36 30 00 0D 16 3A 07 59  33 20 B2 20 30 00 37 16  |60...:.Y3 . 0.7.|
00000E10: 44 07 99 41 28 49 2C 31  29 3B 20 A3 33 29 41 28  |D..A(I,1); .3)A(|
00000E20: 49 2C 32 29 3B 20 A3 30  37 29 B5 28 41 28 49 2C  |I,2); .07).(A(I,|
00000E30: 33 29 AA 2E 35 29 3B 00  6B 16 4E 07 99 20 A3 31  |3)..5);.k.N.. .1|
00000E40: 32 29 B5 28 42 28 50 31  2C 32 29 AA 2E 35 29 3B  |2).(B(P1,2)..5);|
00000E50: 20 A3 31 36 29 B5 28 59  31 AA 2E 35 29 3B A3 32  | .16).(Y1..5);.2|
00000E60: 31 29 B5 28 59 32 AA 2E  35 29 3B 00 84 16 58 07  |1).(Y2..5);...X.|
00000E70: 99 20 A3 32 35 29 B5 28  42 28 50 32 2C 33 29 AA  |. .25).(B(P2,3).|
00000E80: 2E 35 29 3B 00 98 16 62  07 8B 20 59 33 20 B1 20  |.5);...b.. Y3 . |
00000E90: 30 20 A7 20 31 39 31 30  00 A7 16 6C 07 99 20 A3  |0 . 1910...l.. .|
00000EA0: 33 31 29 22 2A 22 3B 00  BA 16 76 07 99 20 A3 33  |31)"*";...v.. .3|
00000EB0: 35 29 B5 28 59 33 AA 2E  35 29 00 C4 16 80 07 54  |5).(Y3..5).....T|
00000EC0: B2 54 AA 31 00 E8 16 8A  07 8B 20 28 20 54 20 B3  |.T.1...... ( T .|
00000ED0: 20 38 20 29 20 AF 20 28  20 49 20 B3 B1 20 4E 20  | 8 ) . ( I .. N |
00000EE0: 29 20 A7 20 32 30 33 30  00 EE 16 94 07 99 00 25  |) . 2030.......%|
00000EF0: 17 9E 07 99 22 57 49 4C  54 20 55 20 44 45 20 52  |...."WILT U DE R|
00000F00: 45 53 54 20 56 41 4E 20  44 45 20 47 45 47 45 56  |EST VAN DE GEGEV|
00000F10: 45 4E 53 20 5A 49 45 4E  22 3A 99 22 4A 41 2F 4E  |ENS ZIEN":."JA/N|
00000F20: 45 45 20 22 3B 00 2E 17  A8 07 85 20 41 24 00 49  |EE ";...... A$.I|
00000F30: 17 B2 07 8B 20 C8 28 41  24 2C 31 29 20 B2 20 22  |.... .(A$,1) . "|
00000F40: 4E 22 20 A7 20 32 30 32  30 00 5C 17 BC 07 8B 20  |N" . 2020.\.... |
00000F50: 54 20 B2 20 4E 20 A7 20  32 30 33 30 00 66 17 C6  |T . N . 2030.f..|
00000F60: 07 8D 20 36 31 30 00 6E  17 D0 07 54 B2 30 00 79  |.. 610.n...T.0.y|
00000F70: 17 DA 07 89 20 32 30 33  30 00 81 17 E4 07 49 B2  |.... 2030.....I.|
00000F80: 4E 00 89 17 EE 07 82 20  49 00 B0 17 F8 07 8F 20  |N...... I...... |
00000F90: 2A 2A 2A 20 57 59 5A 49  47 45 4E 20 4D 59 4C 50  |*** WYZIGEN MYLP|
00000FA0: 41 41 4C 2D 47 45 47 45  56 45 4E 53 20 2A 2A 2A  |AAL-GEGEVENS ***|
00000FB0: 00 BA 17 02 08 99 22 93  22 3B 00 DE 17 0C 08 99  |......".";......|
00000FC0: 22 2A 2A 2A 20 4B 52 49  54 49 45 4B 45 20 50 41  |"*** KRITIEKE PA|
00000FD0: 44 20 4D 45 54 48 4F 44  45 20 2A 2A 2A 22 00 F1  |D METHODE ***"..|
00000FE0: 17 16 08 99 22 20 20 20  20 57 59 5A 49 47 45 4E  |...."    WYZIGEN|
00000FF0: 22 00 F7 17 20 08 99 00  0B 18 2A 08 8B 20 46 20  |"... .....*.. F |
00001000: B3 B1 20 31 20 A7 20 32  31 32 30 00 30 18 34 08  |.. 1 . 2120.0.4.|
00001010: 99 22 4D 59 4C 50 41 41  4C 20 22 3B 50 3B 22 4B  |."MYLPAAL ";P;"K|
00001020: 4F 4D 54 20 4E 49 45 54  20 56 4F 4F 52 20 21 22  |OMT NIET VOOR !"|
00001030: 00 36 18 3E 08 99 00 69  18 48 08 99 22 57 49 4C  |.6.>...i.H.."WIL|
00001040: 54 20 55 20 57 59 5A 49  47 49 4E 47 45 4E 20 49  |T U WYZIGINGEN I|
00001050: 4E 20 48 45 54 20 4E 45  54 57 45 52 4B 22 3A 99  |N HET NETWERK":.|
00001060: 22 4A 41 2F 4E 45 45 22  3B 00 72 18 52 08 85 20  |"JA/NEE";.r.R.. |
00001070: 41 24 00 8D 18 5C 08 8B  20 C8 28 41 24 2C 31 29  |A$...\.. .(A$,1)|
00001080: 20 B2 20 22 4E 22 20 A7  20 32 33 37 30 00 AC 18  | . "N" . 2370...|
00001090: 66 08 99 22 57 45 4C 4B  45 20 52 45 47 45 4C 20  |f.."WELKE REGEL |
000010A0: 20 53 54 4F 50 20 3D 20  30 20 22 3B 00 B4 18 70  | STOP = 0 ";...p|
000010B0: 08 85 20 52 00 C6 18 7A  08 8B 20 52 20 B2 20 30  |.. R...z.. R . 0|
000010C0: 20 A7 20 39 37 30 00 EA  18 84 08 8B 20 28 20 52  | . 970...... ( R|
000010D0: B1 B2 31 20 29 20 AF 20  28 20 52 20 B3 B2 20 4E  |..1 ) . ( R .. N|
000010E0: AA 31 29 20 A7 20 32 32  31 30 00 FF 18 8E 08 99  |.1) . 2210......|
000010F0: 22 46 4F 55 54 20 4F 50  4E 49 45 55 57 20 22 00  |"FOUT OPNIEUW ".|
00001100: 0A 19 98 08 89 20 32 31  35 30 00 1D 19 A2 08 8B  |..... 2150......|
00001110: 20 52 20 B1 20 4E 20 A7  20 32 32 36 30 00 27 19  | R . N . 2260.'.|
00001120: AC 08 4E B2 4E AB 31 00  45 19 B6 08 99 22 4F 55  |..N.N.1.E...."OU|
00001130: 44 45 20 47 45 47 45 56  45 4E 53 20 52 45 47 45  |DE GEGEVENS REGE|
00001140: 4C 20 22 3B 52 00 72 19  C0 08 99 22 4D 59 4C 50  |L ";R.r...."MYLP|
00001150: 28 49 29 20 3A 22 3B 41  28 52 2C 31 29 3B 22 4D  |(I) :";A(R,1);"M|
00001160: 59 4C 50 28 4A 29 20 20  3A 22 3B 41 28 52 2C 32  |YLP(J)  :";A(R,2|
00001170: 29 3B 00 8B 19 CA 08 99  22 54 59 44 53 44 55 55  |);......"TYDSDUU|
00001180: 52 20 3A 22 3B 41 28 52  2C 33 29 00 95 19 D4 08  |R :";A(R,3).....|
00001190: 4E B2 4E AA 31 00 9B 19  DE 08 99 00 D2 19 E8 08  |N.N.1...........|
000011A0: 99 22 4D 59 4C 50 41 41  4C 28 49 29 20 4D 59 4C  |."MYLPAAL(I) MYL|
000011B0: 50 41 41 4C 28 4A 29 20  54 59 44 53 44 55 55 52  |PAAL(J) TYDSDUUR|
000011C0: 22 3A 99 22 20 30 2C 30  2C 30 20 3D 20 53 54 4F  |":." 0,0,0 = STO|
000011D0: 50 22 00 F3 19 F2 08 99  22 4E 49 45 55 57 45 20  |P"......"NIEUWE |
000011E0: 49 4E 56 4F 45 52 20 52  45 47 45 4C 22 3B 52 22  |INVOER REGEL";R"|
000011F0: 20 22 3B 00 0E 1A FC 08  85 20 41 28 52 2C 31 29  | ";...... A(R,1)|
00001200: 2C 41 28 52 2C 32 29 2C  41 28 52 2C 33 29 00 2B  |,A(R,2),A(R,3).+|
00001210: 1A 06 09 8B 20 41 28 52  2C 31 29 20 B3 20 41 28  |.... A(R,1) . A(|
00001220: 52 2C 32 29 20 A7 20 32  33 34 30 00 54 1A 10 09  |R,2) . 2340.T...|
00001230: 99 22 46 4F 55 54 20 2A  20 4D 59 4C 50 41 41 4C  |."FOUT * MYLPAAL|
00001240: 28 49 29 20 3E 20 4D 59  4C 50 41 41 4C 20 28 4A  |(I) > MYLPAAL (J|
00001250: 29 20 2A 22 00 5F 1A 1A  09 89 20 32 32 39 30 00  |) *"._.... 2290.|
00001260: 78 1A 24 09 8B 20 41 28  52 2C 33 29 20 B2 B1 20  |x.$.. A(R,3) .. |
00001270: 30 20 A7 20 32 31 35 30  00 95 1A 2E 09 99 22 46  |0 . 2150......"F|
00001280: 4F 55 54 20 2A 20 54 59  44 53 44 55 55 52 20 3C  |OUT * TYDSDUUR <|
00001290: 20 30 20 2A 22 00 A0 1A  38 09 89 20 32 32 39 30  | 0 *"...8.. 2290|
000012A0: 00 A6 1A 42 09 80 00 00  00                       |...B.....       |

..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 ***.
.....".";.M...."*** KRITIEKE PAD METHODE
 ***".S.........."GEEF MYLPAAL(I),MYLPAA
L(J),TYDSDUUR";......"     STOPPEN 0,0,0
"......... .. X.1 . 25.?.*.."REGEL ";X,.
Z.4.. A(X,1),A(X,2),A(X,3)...>.. ( A(X,1
) . 0 ) . ( A(X,2) . 0 ) . 920...H.. ** 
SCREENING OP FOUTEN **.B.R.. A(X,1) . A(
X,2) . 880...\.."FOUT * MYLPAAL(I) > MYL
PAAL(J) *"...F.. 810...P.. A(X,3) .. 0 .
 940.-.Z.. "FOUT * TYDSDUUR IS < 0 *".7.
... 810.E.... ( A(X,1) .. 0 ) . ( A(X,2)
 .. 0 ) . 940.O...N.X.1.X...X.25...... X
...... *** BEREKENING ***...... ** OP NU
L ZETTEN VAN MATRIX B **.N.J.. I.1 . N..
.T.. J.1 . 4.....B(I,J).0...... J...... 
I.8.... ** AANROEPEN VAN SORTEER-       
           SUBROUTINE **.B.... 200._....
 ** MYLPAAL BEPALING **.V...B(1,1).A(S(1
,1),1)..$.N1.1...... X.1 . N...8.. B(N1
,1) . A(S(X,2),2) . 1110...B.N1.N1.1.T.L
.B(N1,1).A(S(X,2),2)...V.. X...`.. ** BE
PALING KORTSTE DOORLOOPTYD...J.. I.1 . N
.".T.P.A(S(I,1),1).+.~.. 50.F.... ** IND
IEN F=1 KLOPT HET NETWERK            NIE
T ! **.Y.... F . 1 . 2050.....P1.X3.....
P.A(S(I,1),2)...... 50...... F . 1 . 205
0...D.P2.X3.U.N.B.B(P1,2).A(S(I,1),3)...
X.. B(P2,2) .. B . 1260.....B(P2,2).B...
... I.+.... ** BEPALING LANGSTE DOORLOOP
TYD.=.... I.N . 1 ..1.O...P.A(S(I,2),2).
X.... 50.K.... F . 1 . 2050.U.(.P1.X3...
2.P.A(S(I,2),1)...<.. 50...F.. F . 1 . 2
050...P.P2.X3.G.Z.B.B(P1,3).A(S(I,2),3).
..D.. B(P2,3) .. B . 1400...N.B(P2,3).B.
..X.. I...... ** BEPALING KRITIEKE PAD *
*.'...B.B(N1,2).6.... I.1 . N1.J. .B(I,3
).B.B(I,3).C...B(I,4).B(I,3).B(I,2).~...
. B(I,4) . 1E.3 . 1480.....B(I,4).0...H.
. I...R.. *** UITVOER KRITIEKE PAD ***.V
.... ** AANROEPEN VAN KOP-I **...... 510
.....T.0...... I.1 . N1...... .0)B(I,1);
 .05)B(I,2);.2.... .15)B(I,3); .24)B(I,4
);.J.... B(I,4) . 0 . 1580._.".. .31)"KR
T-PAD";.E.,...O.6.T.T.1...@.. ( T . 8 ) 
. ( I .. N1 ) . 1700...J...L.T.."WILT U 
DE REST VAN DE GEGEVENS":."JA/NEE ";.U.^
.. A$...H.. T . N1 . 1700...R.. H(A$,1) 
."N" . 1690...|.. 510.....T.0. .... 1700
.)...I.N1.1.... I.O.... ** MYLPALEN UITD
RAAI **.Y.... 610.A.B.T.0.M.L.. I.1.N.Z.
V.P.A(I,1)...... 50.....P1.X3.....P.A(I,
2)...... 50.....P2.X3.C...Y1.B(P1,2).A(I
,3).Y...Y2.B(P2,3).A(I,3)...&.Y3.B(P2,3)
.Y1...0.. Y3 . 1E.3 . 1860...:.Y3 . 0.7.
D..A(I,1); .3)A(I,2); .07).(A(I,3)..5);.
K.N.. .12).(B(P1,2)..5); .16).(Y1..5);.2
1).(Y2..5);...X.. .25).(B(P2,3)..5);...B
.. Y3 . 0 . 1910...L.. .31)"*";...V.. .3
5).(Y3..5).D...T.T.1...... ( T . 8 ) . (
 I .. N ) . 2030.......%...."WILT U DE R
EST VAN DE GEGEVENS ZIEN":."JA/NEE ";...
... A$.I.... H(A$,1) . "N" . 2020.\.... 
T . N . 2030.F.F.. 610.N.P.T.0.Y.Z.. 203
0.....I.N...... I...... *** WYZIGEN MYLP
AAL-GEGEVENS ***......".";......"*** KRI
TIEKE PAD METHODE ***"......"    WYZIGEN
"... .....*.. F .. 1 . 2120.0.4.."MYLPAA
L ";P;"KOMT NIET VOOR !".6.>...I.H.."WIL
T U WYZIGINGEN IN HET NETWERK":."JA/NEE"
;.R.R.. A$...\.. H(A$,1) . "N" . 2370...
F.."WELKE REGEL  STOP = 0 ";...P.. R.F.Z
.. R . 0 . 970...... ( R..1 ) . ( R .. N
.1) . 2210......"FOUT OPNIEUW "...... 21
50...... R . N . 2260.'...N.N.1.E...."OU
DE GEGEVENS REGEL ";R.R...."MYLP(I) :";A
(R,1);"MYLP(J)  :";A(R,2);...J.."TYDSDUU
R :";A(R,3)...T.N.N.1.......R...."MYLPAA
L(I) MYLPAAL(J) TYDSDUUR":." 0,0,0 = STO
P"......"NIEUWE INVOER REGEL";R" ";.....
. A(R,1),A(R,2),A(R,3).+.... A(R,1) . A(
R,2) . 2340.T...."FOUT * MYLPAAL(I) > MY
LPAAL (J) *"._.... 2290.X.$.. A(R,3) .. 
0 . 2150......"FOUT * TYDSDUUR < 0 *". .
8.. 2290...B.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL