PERT/INPUT
FILE INFORMATION
FILENAME(S): PERT/INPUT
FILE TYPE(S): PRG
FILE SIZE: 6.3K
FIRST SEEN: 2025-11-30 21:23:15
APPEARS ON: 2 disk(s)
FILE HASH
a5c75e0bbc3188a5605ca28ca56d7838a239df7ad2415f15a41abac0a7bceec3
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 10 1 | PERT/INPUT | PRG | DuncanTwain | 22 | 13 | DOWNLOAD FILE |
| C64 HULP 32 1 | PERT/INPUT | PRG | DuncanTwain | 26 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4E 08 00 00 8F 20 2D 2D 28 43 29 20 44 49 |..N.... --(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 4E 47 45 50 41 53 54 20 56 4F 4F | AANGEPAST VOO|
00000040: 52 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 00 69 |R COMMODORE 64.i|
00000050: 08 0A 00 8F 20 2A 2A 2A 20 50 45 52 54 20 4D 45 |.... *** PERT ME|
00000060: 54 48 4F 44 45 20 2A 2A 2A 00 8F 08 14 00 86 20 |THODE ***...... |
00000070: 41 28 32 35 2C 34 29 2C 42 28 32 35 2C 34 29 2C |A(25,4),B(25,4),|
00000080: 43 28 32 35 2C 33 29 2C 53 28 32 36 2C 32 29 00 |C(25,3),S(26,2).|
00000090: 99 08 1E 00 89 20 38 38 30 00 B8 08 28 00 8F 20 |..... 880...(.. |
000000A0: 2A 2A 2A 20 57 41 41 52 53 43 48 59 4E 4C 59 4B |*** WAARSCHYNLYK|
000000B0: 48 45 49 44 20 2A 2A 2A 00 D0 08 32 00 4D 20 B2 |HEID ***...2.M .|
000000C0: 20 B6 20 28 20 45 AD 31 2E 34 31 34 32 31 20 29 | . ( E.1.41421 )|
000000D0: 00 FE 08 3C 00 4D 31 20 B2 20 4D 20 AC 20 28 20 |...<.M1 . M . ( |
000000E0: 32 2E 37 36 35 36 37 32 45 AB 34 20 AA 20 4D 20 |2.765672E.4 . M |
000000F0: AC 20 34 2E 33 30 36 33 38 45 AB 35 20 29 00 35 |. 4.30638E.5 ).5|
00000100: 09 46 00 4D 31 20 B2 20 4D 20 AC 20 28 20 39 2E |.F.M1 . M . ( 9.|
00000110: 32 37 30 35 32 37 32 45 AB 33 20 AA 20 4D 20 AC |2705272E.3 . M .|
00000120: 20 28 20 31 2E 35 32 30 31 34 33 45 AB 34 20 AA | ( 1.520143E.4 .|
00000130: 20 4D 31 29 29 00 6B 09 50 00 4D 31 20 B2 20 4D | M1)).k.P.M1 . M|
00000140: 20 AC 20 28 20 2E 30 37 30 35 32 33 30 37 38 20 | . ( .070523078 |
00000150: AA 20 4D 20 AC 20 28 20 2E 30 34 32 32 38 32 30 |. M . ( .0422820|
00000160: 31 32 33 20 AA 20 4D 31 20 29 29 00 82 09 5A 00 |123 . M1 ))...Z.|
00000170: 4D 31 B2 31 AB 31 AD 28 28 31 AA 4D 31 29 AE 31 |M1.1.1.((1.M1).1|
00000180: 36 29 00 91 09 64 00 57 B2 28 31 AA 4D 31 29 AD |6)...d.W.(1.M1).|
00000190: 32 00 A3 09 6E 00 8B 20 45 20 B1 20 30 20 A7 20 |2...n.. E . 0 . |
000001A0: 31 33 30 00 B2 09 78 00 57 B2 28 31 AB 4D 31 29 |130...x.W.(1.M1)|
000001B0: AD 32 00 BE 09 82 00 57 B2 57 AC 31 30 30 00 C4 |.2.....W.W.100..|
000001C0: 09 8C 00 8E 00 E4 09 96 00 8F 20 2A 2A 2A 20 53 |.......... *** S|
000001D0: 55 42 52 4F 55 54 49 4E 45 20 5A 4F 45 4B 45 4E |UBROUTINE ZOEKEN|
000001E0: 20 2A 2A 2A 00 EC 09 A0 00 46 B2 30 00 F5 09 AA | ***.....F.0....|
000001F0: 00 58 31 B2 31 00 01 0A B4 00 58 32 B2 31 AA 4E |.X1.1.....X2.1.N|
00000200: 31 00 18 0A BE 00 58 33 B2 58 31 AA B5 28 28 58 |1.....X3.X1..((X|
00000210: 32 AB 58 31 29 AD 32 29 00 30 0A C8 00 8B 20 50 |2.X1).2).0.... P|
00000220: 20 B1 20 42 28 58 33 2C 31 29 20 A7 20 32 35 30 | . B(X3,1) . 250|
00000230: 00 48 0A D2 00 8B 20 50 20 B2 20 42 28 58 33 2C |.H.... P . B(X3,|
00000240: 31 29 20 A7 20 32 39 30 00 5C 0A DC 00 8B 20 58 |1) . 290.\.... X|
00000250: 32 20 B2 20 58 33 20 A7 20 32 38 30 00 66 0A E6 |2 . X3 . 280.f..|
00000260: 00 58 32 B2 58 33 00 70 0A F0 00 89 20 31 39 30 |.X2.X3.p.... 190|
00000270: 00 83 0A FA 00 8B 20 58 31 B2 20 58 33 20 A7 20 |...... X1. X3 . |
00000280: 32 38 30 00 8D 0A 04 01 58 31 B2 58 33 00 97 0A |280.....X1.X3...|
00000290: 0E 01 89 20 31 39 30 00 9F 0A 18 01 46 B2 31 00 |... 190.....F.1.|
000002A0: A5 0A 22 01 8E 00 C7 0A 2C 01 8F 20 2A 2A 2A 20 |..".....,.. *** |
000002B0: 53 55 42 52 4F 55 54 49 4E 45 20 53 4F 52 54 45 |SUBROUTINE SORTE|
000002C0: 52 45 4E 20 2A 2A 2A 00 D5 0A 36 01 81 20 4A B2 |REN ***...6.. J.|
000002D0: 31 20 A4 20 32 00 F7 0A 40 01 8F 20 2A 2A 20 49 |1 . 2...@.. ** I|
000002E0: 4E 44 45 58 45 4E 20 49 4E 49 54 49 41 4C 49 53 |NDEXEN INITIALIS|
000002F0: 45 52 45 4E 20 2A 2A 00 05 0B 4A 01 81 20 49 B2 |EREN **...J.. I.|
00000300: 31 20 A4 20 4E 00 12 0B 54 01 53 28 49 2C 4A 29 |1 . N...T.S(I,J)|
00000310: B2 49 00 1A 0B 5E 01 82 20 49 00 31 0B 68 01 8F |.I...^.. I.1.h..|
00000320: 20 2A 2A 2A 20 53 4F 52 54 45 52 45 4E 20 2A 2A | *** SORTEREN **|
00000330: 2A 00 3F 0B 72 01 81 20 49 B2 32 20 A4 20 4E 00 |*.?.r.. I.2 . N.|
00000340: 48 0B 7C 01 58 31 B2 31 00 51 0B 86 01 58 32 B2 |H.|.X1.1.Q...X2.|
00000350: 49 00 5F 0B 90 01 50 33 B2 53 28 49 2C 4A 29 00 |I._...P3.S(I,J).|
00000360: 76 0B 9A 01 58 33 B2 58 31 AA B5 28 28 58 32 AB |v...X3.X1..((X2.|
00000370: 58 31 29 AD 32 29 00 85 0B A4 01 50 34 B2 53 28 |X1).2).....P4.S(|
00000380: 58 33 2C 4A 29 00 A3 0B AE 01 8B 20 41 28 50 33 |X3,J)...... A(P3|
00000390: 2C 4A 29 20 B3 20 41 28 50 34 2C 4A 29 20 A7 20 |,J) . A(P4,J) . |
000003A0: 34 37 30 00 C1 0B B8 01 8B 20 41 28 50 33 2C 4A |470...... A(P3,J|
000003B0: 29 20 B1 20 41 28 50 34 2C 4A 29 20 A7 20 35 30 |) . A(P4,J) . 50|
000003C0: 30 00 CB 0B C2 01 58 32 B2 58 33 00 D5 0B CC 01 |0.....X2.X3.....|
000003D0: 89 20 35 34 30 00 E9 0B D6 01 8B 20 58 32 20 B2 |. 540...... X2 .|
000003E0: 20 58 33 20 A7 20 35 34 30 00 F3 0B E0 01 58 32 | X3 . 540.....X2|
000003F0: B2 58 33 00 FD 0B EA 01 89 20 34 31 30 00 11 0C |.X3...... 410...|
00000400: F4 01 8B 20 58 31 20 B2 20 58 33 20 A7 20 35 34 |... X1 . X3 . 54|
00000410: 30 00 1B 0C FE 01 58 31 B2 58 33 00 25 0C 08 02 |0.....X1.X3.%...|
00000420: 89 20 34 31 30 00 3A 0C 12 02 8F 20 2A 2A 20 57 |. 410.:.... ** W|
00000430: 49 53 53 45 4C 45 4E 20 2A 2A 00 4D 0C 1C 02 8B |ISSELEN **.M....|
00000440: 20 49 20 B2 20 58 32 20 A7 20 35 38 30 00 63 0C | I . X2 . 580.c.|
00000450: 26 02 81 20 58 B2 49 20 A4 20 58 32 AA 31 20 A9 |&.. X.I . X2.1 .|
00000460: 20 AB 31 00 77 0C 30 02 53 28 58 2C 4A 29 B2 53 | .1.w.0.S(X,J).S|
00000470: 28 58 AB 31 2C 4A 29 00 7F 0C 3A 02 82 20 58 00 |(X.1,J)...:.. X.|
00000480: 8E 0C 44 02 53 28 58 32 2C 4A 29 B2 50 33 00 96 |..D.S(X2,J).P3..|
00000490: 0C 4E 02 82 20 49 00 9E 0C 58 02 82 20 4A 00 A4 |.N.. I...X.. J..|
000004A0: 0C 62 02 8E 00 C2 0C 6C 02 8F 20 2A 2A 2A 20 53 |.b.....l.. *** S|
000004B0: 55 42 52 4F 55 54 49 4E 45 20 4B 4F 50 20 2D 20 |UBROUTINE KOP - |
000004C0: 49 22 00 CC 0C 76 02 99 22 93 22 3B 00 ED 0C 80 |I"...v..".";....|
000004D0: 02 99 20 A3 31 30 29 22 2A 2A 2A 20 50 45 52 54 |.. .10)"*** PERT|
000004E0: 20 4D 45 54 48 4F 44 45 20 2A 2A 2A 22 00 1A 0D | METHODE ***"...|
000004F0: 8A 02 99 20 A3 30 30 29 22 56 45 52 57 41 43 48 |... .00)"VERWACH|
00000500: 54 45 20 4B 4F 52 54 53 54 45 20 44 4F 4F 52 4C |TE KORTSTE DOORL|
00000510: 4F 4F 50 54 59 44 3A 22 3B 42 00 32 0D 94 02 99 |OOPTYD:";B.2....|
00000520: 20 A3 30 30 29 22 50 52 4F 4A 45 43 54 20 22 3B | .00)"PROJECT ";|
00000530: 42 24 00 38 0D 9E 02 99 00 68 0D A8 02 99 20 A3 |B$.8.....h.... .|
00000540: 30 29 22 4D 59 4C 2D 22 3B 20 A3 30 35 29 22 56 |0)"MYL-"; .05)"V|
00000550: 52 4F 45 47 53 54 45 22 3B 20 A3 31 35 29 22 4C |ROEGSTE"; .15)"L|
00000560: 41 41 54 53 54 45 22 3B 00 7C 0D B2 02 99 20 A3 |AATSTE";.|.... .|
00000570: 32 34 29 22 53 50 45 4C 49 4E 47 22 00 AA 0D BC |24)"SPELING"....|
00000580: 02 99 20 A3 30 29 22 50 41 41 4C 22 3B 20 A3 30 |.. .0)"PAAL"; .0|
00000590: 35 29 22 41 41 4E 56 41 4E 47 22 3B 20 A3 31 35 |5)"AANVANG"; .15|
000005A0: 29 22 41 41 4E 56 41 4E 47 22 00 B0 0D C6 02 99 |)"AANVANG"......|
000005B0: 00 B6 0D D0 02 8E 00 D8 0D DA 02 8F 20 2A 2A 2A |............ ***|
000005C0: 20 53 55 42 52 4F 55 54 49 4E 45 20 4B 4F 50 20 | SUBROUTINE KOP |
000005D0: 2D 20 49 49 20 2A 2A 2A 00 E2 0D E4 02 99 22 93 |- II ***......".|
000005E0: 22 3B 00 02 0E EE 02 99 20 A3 30 36 29 22 2A 2A |";...... .06)"**|
000005F0: 2A 20 50 52 54 20 4D 45 54 48 4F 44 45 20 2A 2A |* PRT METHODE **|
00000600: 2A 22 00 2F 0E F8 02 99 20 A3 30 30 29 22 56 45 |*"./.... .00)"VE|
00000610: 52 57 41 43 48 54 45 20 4B 4F 52 54 53 54 45 20 |RWACHTE KORTSTE |
00000620: 44 4F 4F 52 4C 4F 4F 50 54 59 44 3A 22 3B 42 00 |DOORLOOPTYD:";B.|
00000630: 48 0E 02 03 99 20 A3 30 30 29 22 50 52 4F 4A 45 |H.... .00)"PROJE|
00000640: 43 54 3A 20 22 3B 42 24 00 4E 0E 0C 03 99 00 68 |CT: ";B$.N.....h|
00000650: 0E 16 03 99 22 4D 59 4C 50 2E 22 3B A3 30 37 29 |...."MYLP.";.07)|
00000660: 22 56 45 52 57 2E 22 3B 00 85 0E 20 03 99 20 A3 |"VERW.";... .. .|
00000670: 31 33 29 22 56 52 4F 45 47 53 2E 20 20 4C 41 41 |13)"VROEGS. LAA|
00000680: 54 53 2E 22 3B 00 A1 0E 2A 03 99 20 A3 33 30 29 |TS.";...*.. .30)|
00000690: 22 4B 52 2E 22 20 20 A3 33 34 29 22 54 4F 54 2E |"KR." .34)"TOT.|
000006A0: 22 00 B9 0E 34 03 99 22 49 20 20 4A 22 3B A3 30 |"...4.."I J";.0|
000006B0: 37 29 22 54 59 44 2E 22 3B 00 DB 0E 3E 03 99 20 |7)"TYD.";...>.. |
000006C0: A3 31 33 29 22 41 2E 20 20 45 2E 22 3B 20 A3 32 |.13)"A. E."; .2|
000006D0: 32 29 22 41 2E 20 20 45 2E 22 3B 00 F6 0E 48 03 |2)"A. E.";...H.|
000006E0: 99 A3 33 30 29 22 50 41 44 22 3B A3 33 34 29 22 |..30)"PAD";.34)"|
000006F0: 53 50 45 4C 2E 22 00 FC 0E 52 03 99 00 02 0F 5C |SPEL."...R.....\|
00000700: 03 8E 00 29 0F 66 03 8F 20 2A 2A 2A 20 49 4E 56 |...).f.. *** INV|
00000710: 4F 45 52 45 4E 20 56 41 4E 20 44 45 20 47 45 47 |OEREN VAN DE GEG|
00000720: 45 56 45 4E 53 20 2A 2A 2A 00 33 0F 70 03 99 22 |EVENS ***.3.p.."|
00000730: 93 22 3B 00 4F 0F 7A 03 99 22 2A 2A 2A 20 50 45 |.";.O.z.."*** PE|
00000740: 52 54 20 4D 45 54 48 4F 44 45 20 2A 2A 2A 22 00 |RT METHODE ***".|
00000750: 55 0F 84 03 99 00 7C 0F 8E 03 99 22 57 41 54 20 |U.....|...."WAT |
00000760: 49 53 20 44 45 20 4E 41 41 4D 20 56 41 4E 20 48 |IS DE NAAM VAN H|
00000770: 45 54 20 50 52 4F 4A 45 43 54 20 22 00 8D 0F 98 |ET PROJECT "....|
00000780: 03 85 22 4E 41 41 4D 3A 20 22 3B 42 24 00 9C 0F |.."NAAM: ";B$...|
00000790: A2 03 81 20 58 B2 31 20 A4 20 32 35 00 A2 0F AC |... X.1 . 25....|
000007A0: 03 99 00 D3 0F B6 03 99 22 52 45 47 45 4C 20 22 |........"REGEL "|
000007B0: 3B 58 3A 99 22 4D 59 4C 50 2E 28 49 29 2C 4D 59 |;X:."MYLP.(I),MY|
000007C0: 4C 50 2E 28 4A 29 3A 20 53 54 4F 50 3D 30 2C 30 |LP.(J): STOP=0,0|
000007D0: 20 22 3B 00 E7 0F C0 03 85 20 41 28 58 2C 31 29 | ";...... A(X,1)|
000007E0: 2C 41 28 58 2C 32 29 00 12 10 CA 03 8B 20 28 20 |,A(X,2)...... ( |
000007F0: 41 28 58 2C 31 29 20 B2 20 30 20 29 20 AF 20 28 |A(X,1) . 0 ) . (|
00000800: 20 41 28 58 2C 32 29 B2 30 20 29 20 A7 20 31 31 | A(X,2).0 ) . 11|
00000810: 30 30 00 32 10 D4 03 8F 20 2A 2A 20 53 43 52 45 |00.2.... ** SCRE|
00000820: 45 4E 49 4E 47 20 4F 50 20 46 4F 55 54 45 4E 20 |ENING OP FOUTEN |
00000830: 2A 2A 00 4F 10 DE 03 8B 20 41 28 58 2C 31 29 20 |**.O.... A(X,1) |
00000840: B3 20 41 28 58 2C 32 29 20 A7 20 31 30 32 30 00 |. A(X,2) . 1020.|
00000850: 79 10 E8 03 99 22 46 4F 55 54 20 2A 20 4D 59 4C |y...."FOUT * MYL|
00000860: 50 41 41 4C 20 28 49 29 20 3E 20 4D 59 4C 50 41 |PAAL (I) > MYLPA|
00000870: 41 4C 20 28 4A 29 20 2A 22 00 83 10 F2 03 89 20 |AL (J) *"...... |
00000880: 39 35 30 00 A8 10 FC 03 99 22 4B 4F 52 54 53 54 |950......"KORTST|
00000890: 45 2C 4E 4F 52 4D 41 4C 45 2C 4C 41 4E 47 53 54 |E,NORMALE,LANGST|
000008A0: 45 20 54 59 44 20 22 3B 00 C3 10 06 04 85 20 43 |E TYD ";...... C|
000008B0: 28 58 2C 31 29 2C 43 28 58 2C 32 29 2C 43 28 58 |(X,1),C(X,2),C(X|
000008C0: 2C 33 29 00 DC 10 10 04 8B 20 43 28 58 2C 31 29 |,3)...... C(X,1)|
000008D0: 20 B2 B1 20 30 20 A7 20 31 30 37 30 00 FC 10 1A | .. 0 . 1070....|
000008E0: 04 99 22 46 4F 55 54 20 2A 20 54 59 44 53 44 55 |.."FOUT * TYDSDU|
000008F0: 55 52 20 49 53 20 3C 20 30 20 2A 22 00 07 11 24 |UR IS < 0 *"...$|
00000900: 04 89 20 31 30 32 30 00 3C 11 2E 04 8B 20 28 43 |.. 1020.<.... (C|
00000910: 28 58 2C 31 29 20 B3 B2 20 43 28 58 2C 32 29 29 |(X,1) .. C(X,2))|
00000920: 20 AF 20 28 43 28 58 2C 32 29 20 B3 B2 20 43 28 | . (C(X,2) .. C(|
00000930: 58 2C 33 29 29 20 A7 20 31 31 32 30 00 61 11 38 |X,3)) . 1120.a.8|
00000940: 04 99 22 46 4F 55 54 20 2A 20 53 41 4D 45 4E 48 |.."FOUT * SAMENH|
00000950: 41 4E 47 20 4B 4C 4F 50 54 20 4E 49 45 54 20 2A |ANG KLOPT NIET *|
00000960: 22 00 6C 11 42 04 89 20 31 30 32 30 00 76 11 4C |".l.B.. 1020.v.L|
00000970: 04 4E B2 58 AB 31 00 7F 11 56 04 58 B2 32 35 00 |.N.X.1...V.X.25.|
00000980: 87 11 60 04 82 20 58 00 A0 11 6A 04 8F 20 2A 2A |..`.. X...j.. **|
00000990: 2A 20 42 45 52 45 4B 45 4E 49 4E 47 20 2A 2A 2A |* BEREKENING ***|
000009A0: 00 C6 11 74 04 8F 20 2A 2A 20 4F 50 20 4E 55 4C |...t.. ** OP NUL|
000009B0: 20 5A 45 54 54 45 4E 20 56 41 4E 20 4D 41 54 52 | ZETTEN VAN MATR|
000009C0: 49 58 20 42 20 2A 00 D5 11 7E 04 81 20 49 B2 31 |IX B *...~.. I.1|
000009D0: 20 A4 20 32 35 00 E3 11 88 04 81 20 4A B2 31 20 | . 25...... J.1 |
000009E0: A4 20 34 00 F0 11 92 04 42 28 49 2C 4A 29 B2 30 |. 4.....B(I,J).0|
000009F0: 00 F8 11 9C 04 82 20 4A 00 00 12 A6 04 82 20 49 |...... J...... I|
00000A00: 00 08 12 B0 04 53 B2 30 00 45 12 BA 04 8F 20 2A |.....S.0.E.... *|
00000A10: 2A 20 56 45 52 57 41 43 48 54 45 20 54 59 44 20 |* VERWACHTE TYD |
00000A20: 45 4E 20 53 54 41 4E 44 41 41 52 44 20 20 20 20 |EN STANDAARD |
00000A30: 20 20 20 20 20 20 20 20 20 20 44 45 56 49 41 54 | DEVIAT|
00000A40: 49 45 20 2A 2A 00 53 12 C4 04 81 20 49 B2 31 20 |IE **.S.... I.1 |
00000A50: A4 20 4E 00 7B 12 CE 04 41 28 49 2C 33 29 20 B2 |. N.{...A(I,3) .|
00000A60: 20 28 43 28 49 2C 31 29 AA 34 AC 43 28 49 2C 32 | (C(I,1).4.C(I,2|
00000A70: 29 AA 43 28 49 2C 33 29 29 AD 36 00 9F 12 D8 04 |).C(I,3)).6.....|
00000A80: 8F 20 2A 2A 20 41 46 52 4F 4E 44 45 4E 20 4F 50 |. ** AFRONDEN OP|
00000A90: 20 32 20 44 45 43 49 4D 41 4C 45 4E 20 2A 2A 00 | 2 DECIMALEN **.|
00000AA0: BF 12 E2 04 41 28 49 2C 33 29 B2 B5 28 41 28 49 |....A(I,3)..(A(I|
00000AB0: 2C 33 29 AC 31 30 30 AA 2E 35 29 AD 31 30 30 00 |,3).100..5).100.|
00000AC0: DE 12 EC 04 41 28 49 2C 34 29 20 B2 20 28 43 28 |....A(I,4) . (C(|
00000AD0: 49 2C 33 29 AB 43 28 49 2C 31 29 29 AD 36 00 E6 |I,3).C(I,1)).6..|
00000AE0: 12 F6 04 82 20 49 00 25 13 00 05 8F 20 2A 2A 20 |.... I.%.... ** |
00000AF0: 41 41 4E 52 4F 45 50 45 4E 20 56 41 4E 20 53 4F |AANROEPEN VAN SO|
00000B00: 52 54 45 45 52 2D 20 20 20 20 20 20 20 20 20 20 |RTEER- |
00000B10: 20 20 20 20 20 20 20 20 53 55 42 52 4F 55 54 49 | SUBROUTI|
00000B20: 4E 45 20 2A 2A 00 2F 13 0A 05 8D 20 33 31 30 00 |NE **./.... 310.|
00000B30: 4C 13 14 05 8F 20 2A 2A 20 4D 59 4C 50 41 41 4C |L.... ** MYLPAAL|
00000B40: 20 42 45 50 41 4C 49 4E 47 20 2A 2A 00 63 13 1E | BEPALING **.c..|
00000B50: 05 42 28 31 2C 31 29 B2 41 28 53 28 31 2C 31 29 |.B(1,1).A(S(1,1)|
00000B60: 2C 31 29 00 6C 13 28 05 4E 31 B2 31 00 7A 13 32 |,1).l.(.N1.1.z.2|
00000B70: 05 81 20 58 B2 31 20 A4 20 4E 00 9B 13 3C 05 8B |.. X.1 . N...<..|
00000B80: 20 42 28 4E 31 2C 31 29 B2 41 28 53 28 58 2C 32 | B(N1,1).A(S(X,2|
00000B90: 29 2C 32 29 20 A7 20 31 33 37 30 00 A7 13 46 05 |),2) . 1370...F.|
00000BA0: 4E 31 B2 4E 31 AA 31 00 BF 13 50 05 42 28 4E 31 |N1.N1.1...P.B(N1|
00000BB0: 2C 31 29 B2 41 28 53 28 58 2C 32 29 2C 32 29 00 |,1).A(S(X,2),2).|
00000BC0: C7 13 5A 05 82 20 58 00 07 14 64 05 8F 20 2A 2A |..Z.. X...d.. **|
00000BD0: 20 42 45 50 41 4C 49 4E 47 20 4B 4F 52 54 53 54 | BEPALING KORTST|
00000BE0: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E |
00000BF0: 20 20 20 20 20 20 20 20 20 44 4F 4F 52 4C 4F 4F | DOORLOO|
00000C00: 50 54 59 44 20 2A 2A 00 15 14 6E 05 81 20 49 B2 |PTYD **...n.. I.|
00000C10: 31 20 A4 20 4E 00 27 14 78 05 50 B2 41 28 53 28 |1 . N.'.x.P.A(S(|
00000C20: 49 2C 31 29 2C 31 29 00 31 14 82 05 8D 20 31 36 |I,1),1).1.... 16|
00000C30: 30 00 72 14 8C 05 8F 20 2A 2A 20 49 4E 44 49 45 |0.r.... ** INDIE|
00000C40: 4E 20 46 3D 31 20 4B 4C 4F 50 54 20 48 45 54 20 |N F=1 KLOPT HET |
00000C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C60: 20 20 20 4E 45 54 57 45 52 4B 20 4E 49 45 54 20 | NETWERK NIET |
00000C70: 2A 2A 00 85 14 96 05 8B 20 46 20 B2 20 31 20 A7 |**...... F . 1 .|
00000C80: 20 32 36 32 30 00 8F 14 A0 05 50 31 B2 58 33 00 | 2620.....P1.X3.|
00000C90: A1 14 AA 05 50 B2 41 28 53 28 49 2C 31 29 2C 32 |....P.A(S(I,1),2|
00000CA0: 29 00 AB 14 B4 05 8D 20 31 36 30 00 BE 14 BE 05 |)...... 160.....|
00000CB0: 8B 20 46 20 B2 20 31 20 A7 20 32 36 36 30 00 C8 |. F . 1 . 2660..|
00000CC0: 14 C8 05 50 32 B2 58 33 00 E2 14 D2 05 42 B2 42 |...P2.X3.....B.B|
00000CD0: 28 50 31 2C 32 29 AA 41 28 53 28 49 2C 31 29 2C |(P1,2).A(S(I,1),|
00000CE0: 33 29 00 FC 14 DC 05 8B 20 42 28 50 32 2C 32 29 |3)...... B(P2,2)|
00000CF0: 20 B1 B2 20 42 20 A7 20 31 35 32 30 00 0A 15 E6 | .. B . 1520....|
00000D00: 05 42 28 50 32 2C 32 29 B2 42 00 12 15 F0 05 82 |.B(P2,2).B......|
00000D10: 20 49 00 38 15 FA 05 8F 20 2A 2A 20 42 45 50 41 | I.8.... ** BEPA|
00000D20: 4C 49 4E 47 20 4C 41 4E 47 53 54 45 20 44 4F 4F |LING LANGSTE DOO|
00000D30: 52 4C 4F 4F 50 54 59 44 00 4A 15 04 06 81 20 49 |RLOOPTYD.J.... I|
00000D40: B2 4E 20 A4 20 31 20 A9 AB 31 00 5C 15 0E 06 50 |.N . 1 ..1.\...P|
00000D50: B2 41 28 53 28 49 2C 32 29 2C 32 29 00 66 15 18 |.A(S(I,2),2).f..|
00000D60: 06 8D 20 31 36 30 00 79 15 22 06 8B 20 46 20 B2 |.. 160.y.".. F .|
00000D70: 20 31 20 A7 20 32 36 32 30 00 83 15 2C 06 50 31 | 1 . 2620...,.P1|
00000D80: B2 58 33 00 95 15 36 06 50 B2 41 28 53 28 49 2C |.X3...6.P.A(S(I,|
00000D90: 32 29 2C 31 29 00 9F 15 40 06 8D 20 31 36 30 00 |2),1)...@.. 160.|
00000DA0: B2 15 4A 06 8B 20 46 20 B2 20 31 20 A7 20 32 36 |..J.. F . 1 . 26|
00000DB0: 32 30 00 BC 15 54 06 50 32 B2 58 33 00 D6 15 5E |20...T.P2.X3...^|
00000DC0: 06 42 B2 42 28 50 31 2C 33 29 AA 41 28 53 28 49 |.B.B(P1,3).A(S(I|
00000DD0: 2C 32 29 2C 33 29 00 F0 15 68 06 8B 20 42 28 50 |,2),3)...h.. B(P|
00000DE0: 32 2C 33 29 20 B1 B2 20 42 20 A7 20 31 36 36 30 |2,3) .. B . 1660|
00000DF0: 00 FE 15 72 06 42 28 50 32 2C 33 29 B2 42 00 06 |...r.B(P2,3).B..|
00000E00: 16 7C 06 82 20 49 00 28 16 86 06 8F 20 2A 2A 20 |.|.. I.(.... ** |
00000E10: 42 45 50 41 4C 49 4E 47 20 4B 52 49 54 49 45 4B |BEPALING KRITIEK|
00000E20: 45 20 50 41 44 20 2A 2A 00 36 16 90 06 42 B2 42 |E PAD **.6...B.B|
00000E30: 28 4E 31 2C 32 29 00 45 16 9A 06 81 20 49 B2 31 |(N1,2).E.... I.1|
00000E40: 20 A4 20 4E 31 00 59 16 A4 06 42 28 49 2C 33 29 | . N1.Y...B(I,3)|
00000E50: B2 42 AB 42 28 49 2C 33 29 00 77 16 AE 06 8B 20 |.B.B(I,3).w.... |
00000E60: B6 28 42 28 49 2C 33 29 29 20 B1 20 31 45 AB 33 |.(B(I,3)) . 1E.3|
00000E70: 20 A7 20 31 37 33 30 00 86 16 B8 06 42 28 49 2C | . 1730.....B(I,|
00000E80: 33 29 20 B2 20 30 00 9F 16 C2 06 42 28 49 2C 34 |3) . 0.....B(I,4|
00000E90: 29 B2 42 28 49 2C 33 29 AB 42 28 49 2C 32 29 00 |).B(I,3).B(I,2).|
00000EA0: BD 16 CC 06 8B 20 B6 28 42 28 49 2C 34 29 29 20 |..... .(B(I,4)) |
00000EB0: B1 20 31 45 AB 33 20 A7 20 31 37 36 30 00 CC 16 |. 1E.3 . 1760...|
00000EC0: D6 06 42 28 49 2C 34 29 20 B2 20 30 00 D4 16 E0 |..B(I,4) . 0....|
00000ED0: 06 82 20 49 00 17 17 EA 06 8F 20 2A 2A 2A 20 55 |.. I...... *** U|
00000EE0: 49 54 56 4F 45 52 20 56 41 4E 20 50 45 52 54 20 |ITVOER VAN PERT |
00000EF0: 2B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |+ |
00000F00: 20 20 20 20 20 20 20 4B 52 49 54 49 45 4B 45 20 | KRITIEKE |
00000F10: 50 41 44 20 2A 2A 2A 00 37 17 F4 06 8F 20 2A 2A |PAD ***.7.... **|
00000F20: 20 41 41 4E 52 4F 45 50 45 4E 20 56 41 4E 20 4B | AANROEPEN VAN K|
00000F30: 4F 50 2D 49 20 2A 2A 00 41 17 FE 06 8D 20 36 33 |OP-I **.A.... 63|
00000F40: 30 00 49 17 08 07 54 B2 30 00 58 17 12 07 81 20 |0.I...T.0.X.... |
00000F50: 49 B2 31 20 A4 20 4E 31 00 75 17 1C 07 99 20 A3 |I.1 . N1.u.... .|
00000F60: 30 29 42 28 49 2C 31 29 3B 20 A3 30 35 29 42 28 |0)B(I,1); .05)B(|
00000F70: 49 2C 32 29 3B 00 93 17 26 07 99 20 A3 31 35 29 |I,2);...&.. .15)|
00000F80: 42 28 49 2C 33 29 3B 20 A3 32 34 29 42 28 49 2C |B(I,3); .24)B(I,|
00000F90: 34 29 3B 00 AB 17 30 07 8B 20 42 28 49 2C 34 29 |4);...0.. B(I,4)|
00000FA0: 20 B1 20 30 20 A7 20 31 38 36 30 00 C0 17 3A 07 | . 0 . 1860...:.|
00000FB0: 99 20 A3 33 31 29 22 4B 52 54 2D 50 41 44 22 3B |. .31)"KRT-PAD";|
00000FC0: 00 C6 17 44 07 99 00 D0 17 4E 07 54 B2 54 AA 31 |...D.....N.T.T.1|
00000FD0: 00 F5 17 58 07 8B 20 28 20 54 20 B3 20 38 20 29 |...X.. ( T . 8 )|
00000FE0: 20 AF 20 28 20 49 20 B3 B1 20 4E 31 20 29 20 A7 | . ( I .. N1 ) .|
00000FF0: 20 31 39 38 30 00 FB 17 62 07 99 00 2D 18 6C 07 | 1980...b...-.l.|
00001000: 99 22 57 49 4C 54 20 55 20 44 45 20 52 45 53 54 |."WILT U DE REST|
00001010: 20 56 41 4E 20 44 45 20 47 45 47 45 56 45 4E 53 | VAN DE GEGEVENS|
00001020: 22 3A 99 22 4A 41 2F 4E 45 45 20 22 3B 00 36 18 |":."JA/NEE ";.6.|
00001030: 76 07 85 20 41 24 00 4A 18 80 07 8B 20 54 20 B2 |v.. A$.J.... T .|
00001040: 20 4E 31 20 A7 20 31 39 38 30 00 64 18 8A 07 8B | N1 . 1980.d....|
00001050: 20 C8 28 41 24 2C 31 29 20 B2 22 4E 22 20 A7 20 | .(A$,1) ."N" . |
00001060: 31 39 37 30 00 6E 18 94 07 8D 20 36 33 30 00 76 |1970.n.... 630.v|
00001070: 18 9E 07 54 B2 30 00 81 18 A8 07 89 20 31 39 38 |...T.0...... 198|
00001080: 30 00 8A 18 B2 07 49 B2 4E 31 00 92 18 BC 07 82 |0.....I.N1......|
00001090: 20 49 00 B0 18 C6 07 8F 20 2A 2A 20 4D 59 4C 50 | I...... ** MYLP|
000010A0: 41 4C 45 4E 20 55 49 54 44 52 41 41 49 20 2A 2A |ALEN UITDRAAI **|
000010B0: 00 B8 18 D0 07 4C B2 30 00 C2 18 DA 07 8D 20 37 |.....L.0...... 7|
000010C0: 34 30 00 CA 18 E4 07 54 B2 30 00 D8 18 EE 07 81 |40.....T.0......|
000010D0: 20 49 B2 31 20 A4 20 4E 00 E5 18 F8 07 50 B2 41 | I.1 . N.....P.A|
000010E0: 28 49 2C 31 29 00 EF 18 02 08 8D 20 31 36 30 00 |(I,1)...... 160.|
000010F0: F9 18 0C 08 50 31 B2 58 33 00 06 19 16 08 50 B2 |....P1.X3.....P.|
00001100: 41 28 49 2C 32 29 00 10 19 20 08 8D 20 31 36 30 |A(I,2)... .. 160|
00001110: 00 1A 19 2A 08 50 32 B2 58 33 00 30 19 34 08 59 |...*.P2.X3.0.4.Y|
00001120: 31 B2 42 28 50 31 2C 32 29 AA 41 28 49 2C 33 29 |1.B(P1,2).A(I,3)|
00001130: 00 46 19 3E 08 59 32 B2 42 28 50 32 2C 33 29 AB |.F.>.Y2.B(P2,3).|
00001140: 41 28 49 2C 33 29 00 62 19 48 08 8B 20 B6 28 20 |A(I,3).b.H.. .( |
00001150: 59 32 20 29 20 B1 20 31 45 AB 33 20 A7 20 32 31 |Y2 ) . 1E.3 . 21|
00001160: 34 30 00 6D 19 52 08 59 32 20 B2 20 30 00 7F 19 |40.m.R.Y2 . 0...|
00001170: 5C 08 59 33 B2 42 28 50 32 2C 33 29 AB 59 31 00 |\.Y3.B(P2,3).Y1.|
00001180: 9B 19 66 08 8B 20 B6 28 20 59 33 20 29 20 B1 20 |..f.. .( Y3 ) . |
00001190: 31 45 AB 33 20 A7 20 32 31 37 30 00 A6 19 70 08 |1E.3 . 2170...p.|
000011A0: 59 33 20 B2 20 30 00 D0 19 7A 08 99 41 28 49 2C |Y3 . 0...z..A(I,|
000011B0: 31 29 3B 20 A3 33 29 41 28 49 2C 32 29 3B 20 A3 |1); .3)A(I,2); .|
000011C0: 30 37 29 B5 28 41 28 49 2C 33 29 AA 2E 35 29 3B |07).(A(I,3)..5);|
000011D0: 00 04 1A 84 08 99 20 A3 31 32 29 B5 28 42 28 50 |...... .12).(B(P|
000011E0: 31 2C 32 29 AA 2E 35 29 3B 20 A3 31 36 29 B5 28 |1,2)..5); .16).(|
000011F0: 59 31 AA 2E 35 29 3B A3 32 31 29 B5 28 59 32 AA |Y1..5);.21).(Y2.|
00001200: 2E 35 29 3B 00 1D 1A 8E 08 99 20 A3 32 35 29 B5 |.5);...... .25).|
00001210: 28 42 28 50 32 2C 33 29 AA 2E 35 29 3B 00 31 1A |(B(P2,3)..5);.1.|
00001220: 98 08 8B 20 59 33 20 B1 20 30 20 A7 20 32 32 33 |... Y3 . 0 . 223|
00001230: 30 00 44 1A A2 08 53 B2 41 28 49 2C 34 29 AE 32 |0.D...S.A(I,4).2|
00001240: 20 AA 20 53 00 53 1A AC 08 99 20 A3 33 31 29 22 | . S.S.... .31)"|
00001250: 2A 22 3B 00 66 1A B6 08 99 20 A3 33 35 29 B5 28 |*";.f.... .35).(|
00001260: 59 33 AA 2E 35 29 00 70 1A C0 08 54 B2 54 AA 31 |Y3..5).p...T.T.1|
00001270: 00 94 1A CA 08 8B 20 28 20 54 20 B3 20 38 20 29 |...... ( T . 8 )|
00001280: 20 AF 20 28 20 49 20 B3 B1 20 4E 20 29 20 A7 20 | . ( I .. N ) . |
00001290: 32 33 35 30 00 9A 1A D4 08 99 00 D1 1A DE 08 99 |2350............|
000012A0: 22 57 49 4C 54 20 55 20 44 45 20 52 45 53 54 20 |"WILT U DE REST |
000012B0: 56 41 4E 20 44 45 20 47 45 47 45 56 45 4E 53 20 |VAN DE GEGEVENS |
000012C0: 5A 49 45 4E 22 3A 99 22 4A 41 2F 4E 45 45 20 22 |ZIEN":."JA/NEE "|
000012D0: 3B 00 DA 1A E8 08 85 20 41 24 00 F5 1A F2 08 8B |;...... A$......|
000012E0: 20 C8 28 41 24 2C 31 29 20 B2 20 22 4E 22 20 A7 | .(A$,1) . "N" .|
000012F0: 20 32 33 34 30 00 08 1B FC 08 8B 20 54 20 B2 20 | 2340...... T . |
00001300: 4E 20 A7 20 32 33 35 30 00 12 1B 06 09 8D 20 37 |N . 2350...... 7|
00001310: 34 30 00 1A 1B 10 09 54 B2 30 00 25 1B 1A 09 89 |40.....T.0.%....|
00001320: 20 32 33 35 30 00 2D 1B 24 09 49 B2 4E 00 35 1B | 2350.-.$.I.N.5.|
00001330: 2E 09 82 20 49 00 52 1B 38 09 8F 20 2A 2A 20 57 |... I.R.8.. ** W|
00001340: 41 41 52 53 43 48 59 4E 4C 59 4B 48 45 49 44 20 |AARSCHYNLYKHEID |
00001350: 2A 2A 00 5C 1B 42 09 99 22 93 22 3B 00 7D 1B 4C |**.\.B..".";.}.L|
00001360: 09 99 20 A3 30 39 29 22 2A 2A 2A 20 50 45 52 54 |.. .09)"*** PERT|
00001370: 20 4D 45 54 48 4F 44 45 20 2A 2A 2A 22 00 83 1B | METHODE ***"...|
00001380: 56 09 99 00 94 1B 60 09 99 22 4E 41 41 4D 3A 20 |V.....`.."NAAM: |
00001390: 22 3B 42 24 00 9A 1B 6A 09 99 00 C7 1B 74 09 99 |";B$...j.....t..|
000013A0: 22 56 45 52 57 41 43 48 54 45 20 44 4F 4F 52 4C |"VERWACHTE DOORL|
000013B0: 4F 4F 50 54 59 44 20 22 3B 42 3B 22 20 2B 2F 2D |OOPTYD ";B;" +/-|
000013C0: 20 22 3B BA 28 53 29 00 CD 1B 7E 09 99 00 00 1C | ";.(S)...~.....|
000013D0: 88 09 99 22 57 41 54 20 49 53 20 44 45 20 47 45 |..."WAT IS DE GE|
000013E0: 57 45 4E 53 54 45 20 44 4F 4F 52 4C 4F 4F 50 54 |WENSTE DOORLOOPT|
000013F0: 59 44 3A 22 3A 99 22 53 54 4F 50 3D 30 20 22 3B |YD:":."STOP=0 ";|
00001400: 00 08 1C 92 09 85 20 5A 00 19 1C 9C 09 8B 20 5A |...... Z...... Z|
00001410: B2 30 20 A7 20 32 36 32 30 00 2C 1C A6 09 8B 20 |.0 . 2620.,.... |
00001420: 5A 20 B3 20 30 20 A7 20 32 33 37 30 00 3F 1C B0 |Z . 0 . 2370.?..|
00001430: 09 45 B2 28 5A AB 42 29 AD 28 BA 28 53 29 29 00 |.E.(Z.B).(.(S)).|
00001440: 48 1C BA 09 8D 20 35 30 00 6D 1C C4 09 8F 20 2A |H.... 50.m.... *|
00001450: 2A 20 55 49 54 56 4F 45 52 20 57 41 41 52 53 43 |* UITVOER WAARSC|
00001460: 48 59 4E 4C 59 4B 48 45 49 44 20 2A 2A 00 77 1C |HYNLYKHEID **.w.|
00001470: CE 09 99 22 93 22 3B 00 97 1C D8 09 99 A3 30 39 |...".";.......09|
00001480: 29 22 2A 2A 2A 20 50 45 52 54 20 4D 45 54 48 4F |)"*** PERT METHO|
00001490: 44 45 20 2A 2A 2A 22 00 9D 1C E2 09 99 00 AE 1C |DE ***".........|
000014A0: EC 09 99 22 4E 41 41 4D 3A 20 22 3B 42 24 00 B4 |..."NAAM: ";B$..|
000014B0: 1C F6 09 99 00 E1 1C 00 0A 99 22 56 45 52 57 41 |.........."VERWA|
000014C0: 43 48 54 45 20 44 4F 4F 52 4C 4F 4F 50 54 59 44 |CHTE DOORLOOPTYD|
000014D0: 20 22 3B 42 3B 22 20 2B 2F 2D 20 22 3B BA 28 53 | ";B;" +/- ";.(S|
000014E0: 29 00 00 1D 0A 0A 99 22 47 45 57 45 4E 53 54 45 |)......"GEWENSTE|
000014F0: 20 44 4F 4F 52 4C 4F 4F 50 54 59 44 20 22 3B 5A | DOORLOOPTYD ";Z|
00001500: 00 06 1D 14 0A 99 00 37 1D 1E 0A 99 22 57 41 41 |.......7...."WAA|
00001510: 52 53 43 48 59 4E 4C 59 4B 48 45 49 44 20 49 4E |RSCHYNLYKHEID IN|
00001520: 20 50 52 4F 43 20 22 3B B5 28 57 AC 31 30 30 AA | PROC ";.(W.100.|
00001530: 2E 35 29 AD 31 30 30 00 42 1D 28 0A 89 20 32 34 |.5).100.B.(.. 24|
00001540: 34 30 00 68 1D 32 0A 8F 20 2A 2A 2A 20 57 59 5A |40.h.2.. *** WYZ|
00001550: 49 47 45 4E 20 4D 59 4C 50 41 41 4C 2D 47 45 47 |IGEN MYLPAAL-GEG|
00001560: 45 56 45 4E 53 20 2A 2A 00 72 1D 3C 0A 99 22 93 |EVENS **.r.<..".|
00001570: 22 3B 00 8E 1D 46 0A 99 22 2A 2A 2A 20 50 45 52 |";...F.."*** PER|
00001580: 54 2D 4D 45 54 48 4F 44 45 20 2A 2A 2A 22 00 A1 |T-METHODE ***"..|
00001590: 1D 50 0A 99 22 20 20 20 20 57 59 5A 49 47 45 4E |.P.." WYZIGEN|
000015A0: 22 00 A7 1D 5A 0A 99 00 BB 1D 64 0A 8B 20 46 20 |"...Z.....d.. F |
000015B0: B3 B1 20 31 20 A7 20 32 36 39 30 00 E0 1D 6E 0A |.. 1 . 2690...n.|
000015C0: 99 22 4D 59 4C 50 41 41 4C 20 22 3B 50 3B 22 4B |."MYLPAAL ";P;"K|
000015D0: 4F 4D 54 20 4E 49 45 54 20 56 4F 4F 52 20 21 22 |OMT NIET VOOR !"|
000015E0: 00 E6 1D 78 0A 99 00 1A 1E 82 0A 99 22 57 49 4C |...x........"WIL|
000015F0: 54 20 55 20 57 59 5A 49 47 49 4E 47 45 4E 20 49 |T U WYZIGINGEN I|
00001600: 4E 20 48 45 54 20 4E 45 54 57 45 52 4B 22 3A 99 |N HET NETWERK":.|
00001610: 22 4A 41 2F 4E 45 45 20 22 3B 00 23 1E 8C 0A 85 |"JA/NEE ";.#....|
00001620: 20 41 24 00 3E 1E 96 0A 8B 20 C8 28 41 24 2C 31 | A$.>.... .(A$,1|
00001630: 29 20 B2 20 22 4E 22 20 A7 20 33 30 30 30 00 5D |) . "N" . 3000.]|
00001640: 1E A0 0A 99 22 57 45 4C 4B 45 20 52 45 47 45 4C |...."WELKE REGEL|
00001650: 20 20 53 54 4F 50 20 3D 20 30 20 22 3B 00 65 1E | STOP = 0 ";.e.|
00001660: AA 0A 85 20 52 00 78 1E B4 0A 8B 20 52 20 B2 20 |... R.x.... R . |
00001670: 30 20 A7 20 31 31 35 30 00 9C 1E BE 0A 8B 20 28 |0 . 1150...... (|
00001680: 20 52 B1 B2 31 20 29 20 AF 20 28 20 52 20 B3 B2 | R..1 ) . ( R ..|
00001690: 20 4E AA 31 29 20 A7 20 32 37 38 30 00 B1 1E C8 | N.1) . 2780....|
000016A0: 0A 99 22 46 4F 55 54 20 4F 50 4E 49 45 55 57 20 |.."FOUT OPNIEUW |
000016B0: 22 00 BC 1E D2 0A 89 20 32 37 32 30 00 CF 1E DC |"...... 2720....|
000016C0: 0A 8B 20 52 20 B1 20 4E 20 A7 20 32 38 34 30 00 |.. R . N . 2840.|
000016D0: D9 1E E6 0A 4E B2 4E AB 31 00 F7 1E F0 0A 99 22 |....N.N.1......"|
000016E0: 4F 55 44 45 20 47 45 47 45 56 45 4E 53 20 52 45 |OUDE GEGEVENS RE|
000016F0: 47 45 4C 20 22 3B 52 00 1E 1F FA 0A 99 22 4D 59 |GEL ";R......"MY|
00001700: 4C 50 28 49 29 20 4D 59 4C 50 28 4A 29 20 3A 22 |LP(I) MYLP(J) :"|
00001710: 3B 41 28 52 2C 31 29 3B 41 28 52 2C 32 29 00 4C |;A(R,1);A(R,2).L|
00001720: 1F 04 0B 99 22 4B 4F 52 54 53 54 45 20 4E 4F 52 |...."KORTSTE NOR|
00001730: 4D 2E 20 4C 41 4E 47 53 54 45 20 54 59 44 53 44 |M. LANGSTE TYDSD|
00001740: 2E 20 3A 22 3B 43 28 52 2C 31 29 3B 00 5F 1F 0E |. :";C(R,1);._..|
00001750: 0B 99 43 28 52 2C 32 29 3B 43 28 52 2C 33 29 00 |..C(R,2);C(R,3).|
00001760: 69 1F 18 0B 4E B2 4E AA 31 00 6F 1F 22 0B 99 00 |i...N.N.1.o."...|
00001770: 75 1F 2C 0B 99 00 A9 1F 36 0B 99 22 4E 49 45 55 |u.,.....6.."NIEU|
00001780: 57 45 20 49 4E 56 4F 45 52 20 52 45 47 45 4C 20 |WE INVOER REGEL |
00001790: 22 3B 52 3A 99 22 4D 59 4C 50 2E 28 49 29 20 4D |";R:."MYLP.(I) M|
000017A0: 59 4C 50 2E 28 4A 29 22 3B 00 BD 1F 40 0B 85 20 |YLP.(J)";...@.. |
000017B0: 41 28 52 2C 31 29 2C 41 28 52 2C 32 29 00 DA 1F |A(R,1),A(R,2)...|
000017C0: 4A 0B 8B 20 41 28 52 2C 31 29 20 B3 20 41 28 52 |J.. A(R,1) . A(R|
000017D0: 2C 32 29 20 A7 20 32 39 32 30 00 FC 1F 54 0B 99 |,2) . 2920...T..|
000017E0: 22 46 4F 55 54 20 2A 20 4D 59 4C 50 28 49 29 20 |"FOUT * MYLP(I) |
000017F0: 3E 20 4D 59 4C 50 28 4A 29 20 2A 22 00 07 20 5E |> MYLP(J) *".. ^|
00001800: 0B 89 20 32 38 37 30 00 36 20 68 0B 99 22 52 45 |.. 2870.6 h.."RE|
00001810: 47 45 4C 20 22 3B 52 3B 3A 99 22 4B 4F 52 54 53 |GEL ";R;:."KORTS|
00001820: 54 45 2C 4E 4F 52 4D 2E 2C 4C 41 4E 47 53 54 45 |TE,NORM.,LANGSTE|
00001830: 20 54 59 44 20 22 00 51 20 72 0B 85 20 43 28 52 | TYD ".Q r.. C(R|
00001840: 2C 31 29 2C 43 28 52 2C 32 29 2C 43 28 52 2C 33 |,1),C(R,2),C(R,3|
00001850: 29 00 6A 20 7C 0B 8B 20 43 28 52 2C 31 29 20 B2 |).j |.. C(R,1) .|
00001860: B1 20 30 20 A7 20 32 39 37 30 00 8A 20 86 0B 99 |. 0 . 2970.. ...|
00001870: 22 46 4F 55 54 20 2A 20 54 59 44 53 44 55 55 52 |"FOUT * TYDSDUUR|
00001880: 20 49 53 20 3C 20 30 20 2A 22 00 95 20 90 0B 89 | IS < 0 *".. ...|
00001890: 20 32 39 32 30 00 CA 20 9A 0B 8B 20 28 43 28 52 | 2920.. ... (C(R|
000018A0: 2C 31 29 20 B3 B2 20 43 28 52 2C 32 29 29 20 AF |,1) .. C(R,2)) .|
000018B0: 20 28 43 28 52 2C 32 29 20 B3 B2 20 43 28 58 2C | (C(R,2) .. C(X,|
000018C0: 33 29 29 20 A7 20 32 37 32 30 00 EF 20 A4 0B 99 |3)) . 2720.. ...|
000018D0: 22 46 4F 55 54 20 2A 20 53 41 4D 45 4E 48 41 4E |"FOUT * SAMENHAN|
000018E0: 47 20 4B 4C 4F 50 54 20 4E 49 45 54 20 2A 22 00 |G KLOPT NIET *".|
000018F0: FA 20 AE 0B 89 20 32 39 32 30 00 00 21 B8 0B 80 |. ... 2920..!...|
00001900: 00 00 00 FF |.... |
..N.... --(C) DIGICOM SOFTWARE,TAPE B01
-- AANGEPAST VOOR COMMODORE 64.I
.... *** PERT METHODE ***...... A(25,4),
B(25,4),C(25,3),S(26,2)...... 880...(..
*** WAARSCHYNLYKHEID ***.P.2.M . . ( E.1
.41421 )...<.M1 . M . ( 2.765672E.4 . M
. 4.30638E.5 ).5.F.M1 . M . ( 9.2705272E
.3 . M . ( 1.520143E.4 . M1)).K.P.M1 . M
. ( .070523078 . M . ( .0422820123 . M1
))...Z.M1.1.1.((1.M1).16)...D.W.(1.M1).
2...N.. E . 0 . 130...X.W.(1.M1).2.....W
.W.100.D.......... *** SUBROUTINE ZOEKEN
***... .F.0.....X1.1.....X2.1.N1.....X3
.X1..((X2.X1).2).0.H.. P . B(X3,1) . 250
.H.R.. P . B(X3,1) . 290.\.... X2 . X3 .
280.F...X2.X3.P.... 190...... X1. X3 .
280.....X1.X3...... 190.....F.1..."...G.
,.. *** SUBROUTINE SORTEREN ***.U.6.. J.
1 . 2...@.. ** INDEXEN INITIALISEREN **.
..J.. I.1 . N...T.S(I,J).I...^.. I.1.H..
*** SORTEREN ***.?.R.. I.2 . N.H.|.X1.1
.Q...X2.I._...P3.S(I,J).V...X3.X1..((X2.
X1).2).....P4.S(X3,J)...... A(P3,J) . A(
P4,J) . 470.A.... A(P3,J) . A(P4,J) . 50
0.K.B.X2.X3.U.L.. 540...V.. X2 . X3 . 54
0.....X2.X3...... 410...... X1 . X3 . 54
0.....X1.X3.%.... 410.:.... ** WISSELEN
**.M.... I . X2 . 580.C.&.. X.I . X2.1 .
.1.W.0.S(X,J).S(X.1,J)..:.. X...D.S(X2
,J).P3...N.. I...X.. J...B...B.L.. *** S
UBROUTINE KOP - I".L.V..".";...... .10)"
*** PERT METHODE ***"...... .00)"VERWACH
TE KORTSTE DOORLOOPTYD:";B.2.... .00)"PR
OJECT ";B$.8.....H.... .0)"MYL-"; .05)"V
ROEGSTE"; .15)"LAATSTE";.|.... .24)"SPEL
ING"...... .0)"PAAL"; .05)"AANVANG"; .15
)"AANVANG"...F.....P...X.Z.. *** SUBROUT
INE KOP - II ***......".";...... .06)"**
* PRT METHODE ***"./.... .00)"VERWACHTE
KORTSTE DOORLOOPTYD:";B.H.... .00)"PROJE
CT: ";B$.N.....H...."MYLP.";.07)"VERW.";
... .. .13)"VROEGS. LAATS.";...*.. .30)
"KR." .34)"TOT."...4.."I J";.07)"TYD."
;...>.. .13)"A. E."; .22)"A. E.";...H.
..30)"PAD";.34)"SPEL."...R.....\...).F..
*** INVOEREN VAN DE GEGEVENS ***.3.P.."
.";.O.Z.."*** PERT METHODE ***".U.....|.
..."WAT IS DE NAAM VAN HET PROJECT "....
.."NAAM: ";B$...... X.1 . 25.......S....
"REGEL ";X:."MYLP.(I),MYLP.(J): STOP=0,0
";...... A(X,1),A(X,2)...J.. ( A(X,1) .
0 ) . ( A(X,2).0 ) . 1100.2.T.. ** SCRE
ENING OP FOUTEN **.O.... A(X,1) . A(X,2)
. 1020.Y...."FOUT * MYLPAAL (I) > MYLPA
AL (J) *"...... 950......"KORTSTE,NORMAL
E,LANGSTE TYD ";.C.... C(X,1),C(X,2),C(X
,3)...... C(X,1) .. 0 . 1070......"FOUT
* TYDSDUUR IS < 0 *"...$.. 1020.<.... (C
(X,1) .. C(X,2)) . (C(X,2) .. C(X,3)) .
1120.A.8.."FOUT * SAMENHANG KLOPT NIET *
".L.B.. 1020.V.L.N.X.1..V.X.25...`.. X.
.J.. *** BEREKENING ***.F.T.. ** OP NUL
ZETTEN VAN MATRIX B *.U.~.. I.1 . 25...
... J.1 . 4.....B(I,J).0...... J...... I
.....S.0.E.... ** VERWACHTE TYD EN STAND
AARD DEVIATIE **.S.D.. I.1
. N.{.N.A(I,3) . (C(I,1).4.C(I,2).C(I,3)
).6...X.. ** AFRONDEN OP 2 DECIMALEN **.
....A(I,3)..(A(I,3).100..5).100.....A(I,
4) . (C(I,3).C(I,1)).6...... I.%.... **
AANROEPEN VAN SORTEER-
SUBROUTINE **./.... 310.L.... ** MYLPAAL
BEPALING **.C...B(1,1).A(S(1,1),1).L.(.
N1.1.Z.2.. X.1 . N...<.. B(N1,1).A(S(X,2
),2) . 1370...F.N1.N1.1...P.B(N1,1).A(S(
X,2),2).G.Z.. X...D.. ** BEPALING KORTST
E DOORLOOPTYD **.
..N.. I.1 . N.'.X.P.A(S(I,1),1).1.... 16
0.R.... ** INDIEN F=1 KLOPT HET
NETWERK NIET **...... F . 1 .
2620... .P1.X3.....P.A(S(I,1),2)......
160...... F . 1 . 2660.H.H.P2.X3...R.B.B
(P1,2).A(S(I,1),3)...... B(P2,2) .. B .
1520.....B(P2,2).B...... I.8.... ** BEPA
LING LANGSTE DOORLOOPTYD.J.... I.N . 1 .
.1.\...P.A(S(I,2),2).F.... 160.Y.".. F .
1 . 2620...,.P1.X3...6.P.A(S(I,2),1)...
@.. 160...J.. F . 1 . 2620...T.P2.X3.V.^
.B.B(P1,3).A(S(I,2),3)...H.. B(P2,3) ..
B . 1660...R.B(P2,3).B...|.. I.(.... **
BEPALING KRITIEKE PAD **.6...B.B(N1,2).E
.... I.1 . N1.Y...B(I,3).B.B(I,3).W....
.(B(I,3)) . 1E.3 . 1730.....B(I,3) . 0..
.B.B(I,4).B(I,3).B(I,2)...L.. .(B(I,4))
. 1E.3 . 1760.L.V.B(I,4) . 0.T.... I....
.. *** UITVOER VAN PERT +
KRITIEKE PAD ***.7.... ** AANROEP
EN VAN KOP-I **.A.... 630.I...T.0.X....
I.1 . N1.U.... .0)B(I,1); .05)B(I,2);...
&.. .15)B(I,3); .24)B(I,4);...0.. B(I,4)
. 0 . 1860...:.. .31)"KRT-PAD";.F.D...P
.N.T.T.1...X.. ( T . 8 ) . ( I .. N1 ) .
1980...B...-.L.."WILT U DE REST VAN DE
GEGEVENS":."JA/NEE ";.6.V.. A$.J.... T .
N1 . 1980.D.... H(A$,1) ."N" . 1970.N..
.. 630.V...T.0...... 1980.....I.N1......
I...F.. ** MYLPALEN UITDRAAI **...P.L.0
.B.Z.. 740.J...T.0.X.... I.1 . N.....P.A
(I,1)...... 160.....P1.X3.....P.A(I,2)..
. .. 160...*.P2.X3.0.4.Y1.B(P1,2).A(I,3)
.F.>.Y2.B(P2,3).A(I,3).B.H.. .( Y2 ) . 1
E.3 . 2140.M.R.Y2 . 0..\.Y3.B(P2,3).Y1.
..F.. .( Y3 ) . 1E.3 . 2170...P.Y3 . 0.P
.Z..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);.1.
... Y3 . 0 . 2230.D...S.A(I,4).2 . S.S..
.. .31)"*";.F.... .35).(Y3..5).P...T.T.1
...J.. ( T . 8 ) . ( I .. N ) . 2350...T
...Q...."WILT U DE REST VAN DE GEGEVENS
ZIEN":."JA/NEE ";.Z.... A$...... H(A$,1)
. "N" . 2340...... T . N . 2350...... 7
40.....T.0.%.... 2350.-.$.I.N.5.... I.R.
8.. ** WAARSCHYNLYKHEID **.\.B..".";.}.L
.. .09)"*** PERT METHODE ***"...V.....`.
."NAAM: ";B$...J...G.T.."VERWACHTE DOORL
OOPTYD ";B;" +/- ";.(S).M.~........"WAT
IS DE GEWENSTE DOORLOOPTYD:":."STOP=0 ";
...... Z...... Z.0 . 2620.,.... Z . 0 .
2370.?...E.(Z.B).(.(S)).H.... 50.M.D.. *
* UITVOER WAARSCHYNLYKHEID **.W.N..".";.
..X...09)"*** PERT METHODE ***".........
..."NAAM: ";B$............"VERWACHTE DOO
RLOOPTYD ";B;" +/- ";.(S)......"GEWENSTE
DOORLOOPTYD ";Z.......7...."WAARSCHYNLY
KHEID IN PROC ";.(W.100..5).100.B.(.. 24
40.H.2.. *** WYZIGEN MYLPAAL-GEGEVENS **
.R.<..".";...F.."*** PERT-METHODE ***"..
.P.." WYZIGEN"...Z.....D.. F .. 1 . 2
690...N.."MYLPAAL ";P;"KOMT NIET VOOR !"
...X........"WILT U WYZIGINGEN IN HET NE
TWERK":."JA/NEE ";.#.... A$.>.... H(A$,1
) . "N" . 3000.]. .."WELKE REGEL STOP =
0 ";.E.... R.X.... R . 0 . 1150...... (
R..1 ) . ( R .. N.1) . 2780...H.."FOUT
OPNIEUW "...R.. 2720.O.... R . N . 2840.
Y...N.N.1......"OUDE GEGEVENS REGEL ";R.
....."MYLP(I) MYLP(J) :";A(R,1);A(R,2).L
...."KORTSTE NORM. LANGSTE TYDSD. :";C(R
,1);._....C(R,2);C(R,3).I...N.N.1.O."...
U.,.....6.."NIEUWE INVOER REGEL ";R:."MY
LP.(I) MYLP.(J)";...@.. A(R,1),A(R,2).Z.
J.. A(R,1) . A(R,2) . 2920...T.."FOUT *
MYLP(I) > MYLP(J) *".. ^.. 2870.6 H.."RE
GEL ";R;:."KORTSTE,NORM.,LANGSTE TYD ".Q
R.. C(R,1),C(R,2),C(R,3).J |.. C(R,1) .
. 0 . 2970.. ..."FOUT * TYDSDUUR IS < 0
*".. ... 2920.J ... (C(R,1) .. C(R,2)) .
(C(R,2) .. C(X,3)) . 2720.. ..."FOUT *
SAMENHANG KLOPT NIET *".. ... 2920..!...
....
> CLICK IMAGE PREVIEW FOR FULL MODAL