DATABASE1
FILE INFORMATION
FILENAME(S): DATABASE1
FILE TYPE(S): PRG
FILE SIZE: 12K
FIRST SEEN: 2025-11-30 21:27:06
APPEARS ON: 1 disk(s)
FILE HASH
000521b5a56eee94e667782d3d15fa2edd67a06c94c4cb6fe6b26df55194b133
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ZCP SOFTWARE A | DATABASE1 | PRG | DuncanTwain | 2 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 6E 00 8F 20 2A 2A 20 44 41 54 41 42 |....n.. ** DATAB|
00000010: 41 53 45 20 2A 2A 00 33 08 78 00 8F 20 2A 2A 20 |ASE **.3.x.. ** |
00000020: 44 4F 4F 52 20 4A 2E 52 49 42 42 45 52 49 4E 4B |DOOR J.RIBBERINK|
00000030: 20 2A 2A 00 4A 08 82 00 8F 20 2A 2A 20 56 45 52 | **.J.... ** VER|
00000040: 53 49 45 20 31 2E 32 20 2A 2A 00 64 08 96 00 8F |SIE 1.2 **.d....|
00000050: 20 2A 2A 20 49 4E 49 54 49 41 4C 49 53 41 54 49 | ** INITIALISATI|
00000060: 45 20 2A 2A 00 89 08 A0 00 97 20 35 33 32 38 30 |E **...... 53280|
00000070: 2C 31 20 3A 20 8F 20 2A 20 53 43 48 45 52 4D 52 |,1 : . * SCHERMR|
00000080: 41 4E 44 20 57 49 54 20 2A 00 AD 08 AA 00 97 20 |AND WIT *...... |
00000090: 35 33 32 38 31 2C 31 20 3A 20 8F 20 2A 20 41 43 |53281,1 : . * AC|
000000A0: 48 54 45 52 47 52 4F 4E 44 20 57 49 54 00 CA 08 |HTERGROND WIT...|
000000B0: B4 00 99 22 1F 22 20 3A 20 8F 20 2A 20 54 45 4B |..."." : . * TEK|
000000C0: 53 54 20 42 4C 41 55 57 20 2A 00 E2 08 BE 00 86 |ST BLAUW *......|
000000D0: 20 53 4C 25 28 31 30 2C 32 29 2C 50 56 25 28 32 | SL%(10,2),PV%(2|
000000E0: 33 29 00 F9 08 C8 00 8F 20 2A 20 44 49 53 50 4C |3)...... * DISPL|
000000F0: 41 59 20 4D 45 4E 55 20 2A 00 29 09 D2 00 99 22 |AY MENU *.)...."|
00000100: 93 11 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000110: 2A 20 44 41 54 41 42 41 53 45 20 2A 2A 2A 2A 2A |* DATABASE *****|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 09 E6 00 99 22 |*********.R...."|
00000130: 11 11 20 41 41 4E 54 41 4C 20 56 52 49 4A 45 20 |.. AANTAL VRIJE |
00000140: 4B 41 52 41 4B 54 45 52 53 3A 22 43 4D 25 AB 43 |KARAKTERS:"CM%.C|
00000150: 43 25 00 67 09 F0 00 99 22 11 20 48 4F 4F 46 44 |C%.g....". HOOFD|
00000160: 4D 45 4E 55 20 3A 22 00 8C 09 FA 00 99 22 11 20 |MENU :"......". |
00000170: 4E 20 3A 20 4D 41 41 4B 20 45 45 4E 20 4E 49 45 |N : MAAK EEN NIE|
00000180: 55 57 20 44 41 54 41 42 4C 4F 4B 22 00 B0 09 04 |UW DATABLOK"....|
00000190: 01 99 22 20 49 20 3A 20 49 4E 53 45 52 54 20 45 |.." I : INSERT E|
000001A0: 45 4E 20 4E 49 45 55 57 20 52 45 43 4F 52 44 22 |EN NIEUW RECORD"|
000001B0: 00 CB 09 0E 01 99 22 20 57 20 3A 20 57 49 53 20 |......" W : WIS |
000001C0: 45 45 4E 20 52 45 43 4F 52 44 22 00 F8 09 18 01 |EEN RECORD".....|
000001D0: 99 22 20 56 20 3A 20 56 45 52 41 4E 44 45 52 20 |." V : VERANDER |
000001E0: 47 45 47 45 56 45 4E 53 20 56 41 4E 20 45 45 4E |GEGEVENS VAN EEN|
000001F0: 20 52 45 43 4F 52 44 22 00 21 0A 22 01 99 22 20 | RECORD".!.".." |
00000200: 54 20 3A 20 50 52 49 4E 54 20 47 45 47 45 56 45 |T : PRINT GEGEVE|
00000210: 4E 53 20 4F 50 20 48 45 54 20 53 43 48 45 52 4D |NS OP HET SCHERM|
00000220: 22 00 4A 0A 2C 01 99 22 20 50 20 3A 20 50 52 49 |".J.,.." P : PRI|
00000230: 4E 54 20 47 45 47 45 56 45 4E 53 20 4F 50 20 44 |NT GEGEVENS OP D|
00000240: 45 20 50 52 49 4E 54 45 52 22 00 5B 0A 36 01 99 |E PRINTER".[.6..|
00000250: 22 20 53 20 3A 20 53 41 56 45 22 00 6C 0A 40 01 |" S : SAVE".l.@.|
00000260: 99 22 20 4C 20 3A 20 4C 4F 41 44 22 00 8D 0A 54 |." L : LOAD"...T|
00000270: 01 99 22 20 52 20 3A 20 53 4F 52 54 45 45 52 20 |.." R : SORTEER |
00000280: 48 45 54 20 44 41 54 41 42 4C 4F 4B 22 00 A6 0A |HET DATABLOK"...|
00000290: 5E 01 99 22 20 4D 20 3A 20 44 52 55 4B 20 4D 45 |^.." M : DRUK ME|
000002A0: 4E 55 20 41 46 22 00 C7 0A 68 01 99 22 20 24 20 |NU AF"...h.." $ |
000002B0: 3A 20 44 49 52 45 43 54 4F 52 59 20 56 41 4E 20 |: DIRECTORY VAN |
000002C0: 53 43 48 49 4A 46 22 00 E7 0A 72 01 99 22 20 3E |SCHIJF"...r.." >|
000002D0: 20 3A 20 42 45 57 45 52 4B 49 4E 47 20 4F 50 20 | : BEWERKING OP |
000002E0: 53 43 48 49 4A 46 22 00 F8 0A 7C 01 99 22 20 45 |SCHIJF"...|.." E|
000002F0: 20 3A 20 45 58 49 54 22 00 09 0B 86 01 8F 20 2A | : EXIT"...... *|
00000300: 2A 20 4D 45 4E 55 20 2A 2A 00 1C 0B 90 01 99 22 |* MENU **......"|
00000310: 11 20 4F 50 44 52 41 43 48 54 3F 22 00 35 0B 9A |. OPDRACHT?".5..|
00000320: 01 A1 20 41 24 20 3A 20 8B 20 41 24 B2 22 22 20 |.. A$ : . A$."" |
00000330: A7 20 34 31 30 00 3F 0B A4 01 8D 20 34 35 30 00 |. 410.?.... 450.|
00000340: 52 0B AE 01 8B 20 41 24 B2 22 4D 22 20 A7 20 32 |R.... A$."M" . 2|
00000350: 31 30 00 5C 0B B8 01 89 20 34 30 30 00 70 0B C2 |10.\.... 400.p..|
00000360: 01 8B 20 41 24 B2 22 4E 22 20 A7 20 31 30 31 30 |.. A$."N" . 1010|
00000370: 00 84 0B CC 01 8B 20 41 24 B2 22 50 22 20 A7 20 |...... A$."P" . |
00000380: 34 31 30 35 00 98 0B D6 01 8B 20 41 24 B2 22 54 |4105...... A$."T|
00000390: 22 20 A7 20 34 30 31 30 00 AC 0B E0 01 8B 20 41 |" . 4010...... A|
000003A0: 24 B2 22 49 22 20 A7 20 36 35 31 30 00 C0 0B EA |$."I" . 6510....|
000003B0: 01 8B 20 41 24 B2 22 57 22 20 A7 20 37 30 31 30 |.. A$."W" . 7010|
000003C0: 00 D4 0B F4 01 8B 20 41 24 B2 22 56 22 20 A7 20 |...... A$."V" . |
000003D0: 36 30 31 30 00 E8 0B FE 01 8B 20 41 24 B2 22 53 |6010...... A$."S|
000003E0: 22 20 A7 20 38 30 31 30 00 FC 0B 08 02 8B 20 41 |" . 8010...... A|
000003F0: 24 B2 22 4C 22 20 A7 20 38 35 31 30 00 10 0C 12 |$."L" . 8510....|
00000400: 02 8B 20 41 24 B2 22 52 22 20 A7 20 35 30 31 30 |.. A$."R" . 5010|
00000410: 00 21 0C 1C 02 8B 20 41 24 B2 22 45 22 20 A7 20 |.!.... A$."E" . |
00000420: 80 00 35 0C 26 02 8B 20 41 24 B2 22 24 22 20 A7 |..5.&.. A$."$" .|
00000430: 20 39 30 30 30 00 49 0C 30 02 8B 20 41 24 B2 22 | 9000.I.0.. A$."|
00000440: 3E 22 20 A7 20 39 32 31 30 00 4F 0C 3A 02 8E 00 |>" . 9210.O.:...|
00000450: 6F 0C E8 03 8F 20 2A 2A 20 4E 49 45 55 57 20 42 |o.... ** NIEUW B|
00000460: 45 53 54 41 4E 44 20 4D 41 4B 45 4E 20 2A 2A 00 |ESTAND MAKEN **.|
00000470: A0 0C F2 03 99 22 93 11 20 2A 2A 2A 2A 2A 2A 2A |.....".. *******|
00000480: 2A 2A 2A 2A 2A 20 4E 49 45 55 57 20 42 45 53 54 |***** NIEUW BEST|
00000490: 41 4E 44 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |AND ***********"|
000004A0: 00 B4 0C FC 03 8B 20 5A 5A 25 B3 B1 30 20 A7 20 |...... ZZ%..0 . |
000004B0: 31 31 33 30 00 D0 0C 06 04 85 22 11 11 20 41 41 |1130......".. AA|
000004C0: 4E 54 41 4C 20 56 45 4C 44 45 4E 22 3B 4D 42 25 |NTAL VELDEN";MB%|
000004D0: 00 18 0D 10 04 59 B2 32 34 39 39 38 AB 33 AC 4D |.....Y.24998.3.M|
000004E0: 42 25 20 3A 20 4D 4C 25 B2 B5 28 59 AD 28 31 33 |B% : ML%..(Y.(13|
000004F0: AC 4D 42 25 AA 32 29 29 3A 43 4D 25 B2 B5 28 59 |.MB%.2)):CM%..(Y|
00000500: AB 59 AC 28 33 AC 4D 42 25 AA 32 29 AD 28 31 33 |.Y.(3.MB%.2).(13|
00000510: AC 4D 42 25 AA 32 29 29 00 41 0D 1A 04 5A 5A 25 |.MB%.2)).A...ZZ%|
00000520: B2 31 3A 86 44 41 54 24 28 4D 4C 25 2C 4D 42 25 |.1:.DAT$(ML%,MB%|
00000530: AB 31 29 2C 4C 49 4A 53 54 25 28 4D 4C 25 AB 31 |.1),LIJST%(ML%.1|
00000540: 29 00 53 0D 24 04 81 20 49 B2 30 20 A4 20 4D 42 |).S.$.. I.0 . MB|
00000550: 25 AB 31 00 6A 0D 2E 04 99 22 20 20 56 45 4C 44 |%.1.j...." VELD|
00000560: 4E 41 41 4D 22 3B 49 AA 31 3B 00 7A 0D 38 04 85 |NAAM";I.1;.z.8..|
00000570: 20 44 41 54 24 28 30 2C 49 29 00 93 0D 42 04 43 | DAT$(0,I)...B.C|
00000580: 43 25 B2 43 43 25 AA C3 28 44 41 54 24 28 30 2C |C%.CC%..(DAT$(0,|
00000590: 49 29 29 00 9B 0D 4C 04 82 20 49 00 B3 0D 56 04 |I))...L.. I...V.|
000005A0: 4C 45 25 B2 30 3A 42 52 25 B2 4D 42 25 3A 52 41 |LE%.0:BR%.MB%:RA|
000005B0: 25 B2 31 00 B9 0D 60 04 8E 00 DE 0D 6A 04 99 22 |%.1...`.....j.."|
000005C0: 11 11 20 45 52 20 53 54 41 41 54 20 41 4C 20 45 |.. ER STAAT AL E|
000005D0: 45 4E 20 42 45 53 54 41 4E 44 20 49 4E 22 00 F4 |EN BESTAND IN"..|
000005E0: 0D 74 04 99 22 20 48 45 54 20 47 45 48 45 55 47 |.t.." HET GEHEUG|
000005F0: 45 4E 2E 22 00 1B 0E 7E 04 99 22 20 4D 4F 45 54 |EN."...~.." MOET|
00000600: 20 44 49 54 20 47 45 57 49 53 54 20 57 4F 52 44 | DIT GEWIST WORD|
00000610: 45 4E 3F 20 28 4A 2F 4E 29 22 3B 00 30 0E 88 04 |EN? (J/N)";.0...|
00000620: A1 20 41 24 3A 8B 41 24 B2 22 22 A7 31 31 36 30 |. A$:.A$."".1160|
00000630: 00 44 0E 92 04 8B 41 24 B2 22 4A 22 A7 9C 3A 8D |.D....A$."J"..:.|
00000640: 31 30 31 30 00 55 0E 9C 04 8B 41 24 B2 22 4E 22 |1010.U....A$."N"|
00000650: A7 20 31 31 30 00 5F 0E A6 04 89 31 30 32 30 00 |. 110._....1020.|
00000660: 7E 0E D0 07 8F 20 2A 2A 20 56 4F 45 52 20 54 45 |~.... ** VOER TE|
00000670: 53 54 53 54 52 49 4E 47 20 49 4E 20 2A 2A 00 9D |STSTRING IN **..|
00000680: 0E DA 07 54 45 53 54 24 B2 22 22 20 3A 20 46 4F |...TEST$."" : FO|
00000690: 55 54 B2 30 20 3A 20 89 20 32 30 33 30 00 B8 0E |UT.0 : . 2030...|
000006A0: E4 07 54 45 53 54 24 B2 54 45 53 54 24 AA 41 24 |..TEST$.TEST$.A$|
000006B0: 3A 99 22 9D 22 41 24 3B 00 C8 0E EE 07 49 B2 30 |:."."A$;.....I.0|
000006C0: 3A 99 22 12 20 92 22 3B 00 F6 0E F8 07 A1 20 41 |:.". .";...... A|
000006D0: 24 3A 8B 28 41 24 B1 B2 22 20 22 20 AF 20 41 24 |$:.(A$.." " . A$|
000006E0: B3 B2 22 5F 22 20 29 B0 41 24 B1 B2 22 5E 22 20 |.."_" ).A$.."^" |
000006F0: A7 20 32 30 32 30 00 15 0F FD 07 8B 20 41 24 B2 |. 2020...... A$.|
00000700: C7 28 32 30 29 20 AF 20 54 45 53 54 24 B2 22 22 |.(20) . TEST$.""|
00000710: A7 32 30 34 30 00 4E 0F 02 08 8B 41 24 B2 C7 28 |.2040.N....A$..(|
00000720: 32 30 29 20 A7 20 99 22 9D 20 9D 9D 22 3B 3A 54 |20) . .". ..";:T|
00000730: 45 53 54 24 B2 C8 28 54 45 53 54 24 2C C3 28 54 |EST$..(TEST$,.(T|
00000740: 45 53 54 24 29 AB 31 29 3A 89 32 30 33 30 00 65 |EST$).1):.2030.e|
00000750: 0F 0C 08 49 B2 49 AA 31 3A 8B 49 B2 31 37 A7 99 |...I.I.1:.I.17..|
00000760: 22 9D 20 22 3B 00 7D 0F 16 08 8B 20 49 B2 33 35 |". ";.}.... I.35|
00000770: A7 99 22 9D 12 20 92 22 3B 3A 49 B2 30 00 91 0F |..".. .";:I.0...|
00000780: 20 08 8B 41 24 B3 B1 C7 28 31 33 29 A7 32 30 34 | ..A$...(13).204|
00000790: 30 00 97 0F 25 08 8E 00 B9 0F 2A 08 8F 20 2A 2A |0...%.....*.. **|
000007A0: 20 43 4F 4E 56 45 52 54 45 45 52 20 54 45 53 54 | CONVERTEER TEST|
000007B0: 53 54 52 49 4E 47 20 2A 2A 00 D0 0F 34 08 8D 20 |STRING **...4.. |
000007C0: 32 30 31 30 3A 99 3A 49 B2 31 3A 4C 50 25 B2 30 |2010:.:I.1:LP%.0|
000007D0: 00 E7 0F 3E 08 81 4A B2 30 A4 32 33 3A 50 56 25 |...>..J.0.23:PV%|
000007E0: 28 4A 29 B2 30 3A 82 00 05 10 48 08 42 24 B2 22 |(J).0:....H.B$."|
000007F0: 22 3A 43 24 B2 22 22 3A 53 42 25 B2 31 3A 53 45 |":C$."":SB%.1:SE|
00000800: 25 B2 4C 45 25 00 2C 10 52 08 41 24 B2 CA 28 54 |%.LE%.,.R.A$..(T|
00000810: 45 53 54 24 2C 49 2C 31 29 3A 49 B2 49 AA 31 3A |EST$,I,1):I.I.1:|
00000820: 8B 41 24 B2 22 20 22 A7 32 31 33 30 00 53 10 5C |.A$." ".2130.S.\|
00000830: 08 8B 28 41 24 B2 22 22 B0 41 24 B2 22 20 22 B0 |..(A$."".A$." ".|
00000840: 41 24 B2 22 3B 22 B0 41 24 B2 22 5F 22 29 A7 32 |A$.";".A$."_").2|
00000850: 32 30 30 00 65 10 66 08 8B 41 24 B3 B1 22 2D 22 |200.e.f..A$.."-"|
00000860: A7 32 31 39 30 00 6F 10 70 08 8D 33 37 30 30 00 |.2190.o.p..3700.|
00000870: 9A 10 7A 08 8B 4A B3 B2 32 35 35 A7 53 42 25 B2 |..z..J..255.SB%.|
00000880: C5 28 42 24 29 3A 43 24 B2 42 24 AA 41 24 3A 42 |.(B$):C$.B$.A$:B|
00000890: 24 B2 22 22 3A 41 24 B2 22 22 00 AC 10 84 08 8B |$."":A$.""......|
000008A0: 53 42 25 B3 B2 30 A7 53 42 25 B2 31 00 D5 10 8E |SB%..0.SB%.1....|
000008B0: 08 42 24 B2 42 24 AA 41 24 3A 41 24 B2 CA 28 54 |.B$.B$.A$:A$..(T|
000008C0: 45 53 54 24 2C 49 2C 31 29 3A 49 B2 49 AA 31 3A |EST$,I,1):I.I.1:|
000008D0: 89 32 31 34 30 00 E0 10 98 08 8D 20 33 37 30 30 |.2140...... 3700|
000008E0: 00 00 11 A2 08 8B 4A B1 32 35 35 A7 42 24 B2 43 |......J.255.B$.C|
000008F0: 24 AA 42 24 3A 53 42 25 B2 31 3A 89 32 32 35 30 |$.B$:SB%.1:.2250|
00000900: 00 15 11 AC 08 8B 4A B3 32 35 35 A7 53 45 25 B2 |......J.255.SE%.|
00000910: C5 28 42 24 29 00 33 11 B6 08 8B 43 24 B2 22 22 |.(B$).3....C$.""|
00000920: A7 8B 54 45 53 54 24 B3 B1 22 22 A7 53 42 25 B2 |..TEST$.."".SB%.|
00000930: 53 45 25 00 3E 11 C0 08 8D 20 33 38 30 30 00 46 |SE%.>.... 3800.F|
00000940: 11 CA 08 58 B2 30 00 66 11 D4 08 8B 42 24 B2 22 |...X.0.f....B$."|
00000950: 4E 4F 22 A7 50 56 25 28 30 29 B2 30 3A 58 B2 31 |NO".PV%(0).0:X.1|
00000960: 3A 8D 33 38 30 30 00 80 11 D9 08 8B 42 24 B2 22 |:.3800......B$."|
00000970: 41 4C 53 22 A7 53 41 25 B2 30 3A 89 32 33 33 30 |ALS".SA%.0:.2330|
00000980: 00 9A 11 DE 08 8B 20 41 24 B2 22 3B 22 A7 50 56 |...... A$.";".PV|
00000990: 25 28 58 AA 31 29 B2 35 31 31 00 B4 11 E3 08 8B |%(X.1).511......|
000009A0: 20 41 24 B2 22 5F 22 A7 50 56 25 28 58 AA 31 29 | A$."_".PV%(X.1)|
000009B0: B2 32 35 35 00 BF 11 E8 08 8D 20 33 39 30 30 00 |.255...... 3900.|
000009C0: EF 11 F2 08 8B 4A B1 B2 32 35 35 A7 50 56 25 28 |.....J..255.PV%(|
000009D0: 58 29 B2 50 56 25 28 58 29 AA 59 AA 31 3A 58 B2 |X).PV%(X).Y.1:X.|
000009E0: 58 AA 31 3A 8D 33 38 30 30 3A 89 32 32 36 35 00 |X.1:.3800:.2265.|
000009F0: 18 12 FC 08 8F 20 2A 20 42 24 20 49 53 20 4E 55 |..... * B$ IS NU|
00000A00: 20 4E 41 41 4D 20 56 41 4E 20 31 45 20 56 41 52 | NAAM VAN 1E VAR|
00000A10: 49 41 42 45 4C 45 20 2A 00 30 12 06 09 8B 20 42 |IABELE *.0.... B|
00000A20: 24 B2 22 22 A7 53 41 25 B2 30 3A 89 32 33 34 30 |$."".SA%.0:.2340|
00000A30: 00 5B 12 10 09 53 4C 25 28 30 2C 30 29 B2 31 3A |.[...SL%(0,0).1:|
00000A40: 53 4C 25 28 30 2C 31 29 B2 30 3A 53 4C 25 28 30 |SL%(0,1).0:SL%(0|
00000A50: 2C 32 29 B2 30 3A 53 41 25 B2 31 00 80 12 1A 09 |,2).0:SA%.1.....|
00000A60: 53 56 24 28 30 29 B2 42 24 AA 41 24 AA CA 28 54 |SV$(0).B$.A$..(T|
00000A70: 45 53 54 24 2C 49 2C C3 28 54 45 53 54 24 29 29 |EST$,I,.(TEST$))|
00000A80: 00 9E 12 24 09 8F 20 2A 20 4D 41 41 4B 20 54 45 |...$.. * MAAK TE|
00000A90: 53 54 41 52 52 41 59 20 4C 45 45 47 20 2A 00 AC |STARRAY LEEG *..|
00000AA0: 12 2E 09 81 4A B2 53 41 25 A4 31 30 00 B7 12 38 |....J.SA%.10...8|
00000AB0: 09 81 59 B2 30 A4 32 00 C6 12 42 09 53 4C 25 28 |..Y.0.2...B.SL%(|
00000AC0: 4A 2C 59 29 B2 30 00 DA 12 4C 09 82 59 3A 53 56 |J,Y).0...L..Y:SV|
00000AD0: 24 28 4A 29 B2 22 22 3A 82 4A 00 05 13 56 09 8F |$(J)."":.J...V..|
00000AE0: 20 2A 2A 20 5A 45 54 20 56 41 52 49 41 42 45 4C | ** ZET VARIABEL|
00000AF0: 45 4E 20 56 4F 4F 52 20 50 52 49 4E 54 2F 54 59 |EN VOOR PRINT/TY|
00000B00: 50 45 20 2A 2A 00 1B 13 60 09 8B 58 B3 B1 30 A7 |PE **...`..X..0.|
00000B10: 50 41 25 B2 58 3A 89 32 34 34 30 00 27 13 6A 09 |PA%.X:.2440.'.j.|
00000B20: 50 41 25 B2 42 52 25 00 3A 13 74 09 8B 42 52 25 |PA%.BR%.:.t..BR%|
00000B30: B1 32 34 A7 50 41 25 B2 32 34 00 55 13 7E 09 81 |.24.PA%.24.U.~..|
00000B40: 58 B2 31 A4 50 41 25 3A 50 56 25 28 58 AB 31 29 |X.1.PA%:PV%(X.1)|
00000B50: B2 58 3A 82 58 00 5D 13 88 09 58 B2 30 00 84 13 |.X:.X.]...X.0...|
00000B60: 92 09 41 24 B2 CA 28 54 45 53 54 24 2C 49 2C 31 |..A$..(TEST$,I,1|
00000B70: 29 3A 49 B2 49 AA 31 3A 8B 41 24 B2 22 20 22 A7 |):I.I.1:.A$." ".|
00000B80: 32 34 35 30 00 92 13 9C 09 8B 41 24 B2 22 22 A7 |2450......A$."".|
00000B90: 20 8E 00 9A 13 A6 09 4A B2 31 00 CF 13 B0 09 8B | ......J.1......|
00000BA0: 20 41 24 B2 22 28 22 A7 58 B2 58 AB 31 AA 4A 3A | A$."(".X.X.1.J:|
00000BB0: 53 4C 25 28 58 2C 31 29 B2 53 4C 25 28 58 2C 31 |SL%(X,1).SL%(X,1|
00000BC0: 29 AA 34 3A 58 B2 58 AA 31 3A 89 32 34 35 30 00 |).4:X.X.1:.2450.|
00000BD0: E1 13 BA 09 42 24 B2 22 22 3A 53 41 25 B2 58 AA |....B$."":SA%.X.|
00000BE0: 31 00 EE 13 C4 09 42 24 B2 42 24 AA 41 24 00 02 |1.....B$.B$.A$..|
00000BF0: 14 CE 09 41 24 B2 CA 28 54 45 53 54 24 2C 49 2C |...A$..(TEST$,I,|
00000C00: 31 29 00 0C 14 D8 09 49 B2 49 AA 31 00 1D 14 E2 |1).....I.I.1....|
00000C10: 09 8B 41 24 B2 22 20 22 A7 32 35 31 30 00 3B 14 |..A$." ".2510.;.|
00000C20: EC 09 8B 41 24 B2 22 3D 22 A7 20 53 4C 25 28 58 |...A$."=". SL%(X|
00000C30: 2C 30 29 B2 31 3A 89 32 35 39 30 00 59 14 F6 09 |,0).1:.2590.Y...|
00000C40: 8B 41 24 B2 22 3E 22 A7 20 53 4C 25 28 58 2C 30 |.A$.">". SL%(X,0|
00000C50: 29 B2 32 3A 89 32 35 39 30 00 77 14 00 0A 8B 41 |).2:.2590.w....A|
00000C60: 24 B2 22 3C 22 A7 20 53 4C 25 28 58 2C 30 29 B2 |$."<". SL%(X,0).|
00000C70: 33 3A 89 32 35 39 30 00 9B 14 0A 0A 8B 41 24 B2 |3:.2590......A$.|
00000C80: 22 22 A7 20 99 22 1C 11 54 45 53 54 2D 45 52 52 |"". ."..TEST-ERR|
00000C90: 4F 52 1F 22 20 3A 89 32 39 30 30 00 BC 14 14 0A |OR." :.2900.....|
00000CA0: 89 32 35 30 30 3A 8F 20 2A 20 56 4F 4C 47 45 4E |.2500:. * VOLGEN|
00000CB0: 44 20 4B 41 52 41 4B 54 45 52 20 2A 00 D0 14 1E |D KARAKTER *....|
00000CC0: 0A 41 24 B2 CA 28 54 45 53 54 24 2C 49 2C 31 29 |.A$..(TEST$,I,1)|
00000CD0: 00 EE 14 28 0A 8B 20 41 24 B2 22 3E 22 A7 49 B2 |...(.. A$.">".I.|
00000CE0: 49 AA 31 3A 53 4C 25 28 58 2C 30 29 B2 34 00 14 |I.1:SL%(X,0).4..|
00000CF0: 15 32 0A 8B 41 24 B2 22 3D 22 A7 49 B2 49 AA 31 |.2..A$."=".I.I.1|
00000D00: 3A 53 4C 25 28 58 2C 30 29 B2 53 4C 25 28 58 2C |:SL%(X,0).SL%(X,|
00000D10: 30 29 AA 33 00 37 15 3C 0A 8D 33 39 30 30 3A 8F |0).3.7.<..3900:.|
00000D20: 20 2A 20 54 45 53 54 20 4F 46 20 42 24 3D 56 41 | * TEST OF B$=VA|
00000D30: 52 4E 41 41 4D 20 2A 00 66 15 46 0A 8B 4A B3 32 |RNAAM *.f.F..J.2|
00000D40: 35 35 A7 99 22 1C 11 56 45 4C 44 20 22 42 24 22 |55.."..VELD "B$"|
00000D50: 49 53 20 4E 49 45 54 20 42 45 4B 45 4E 44 1F 22 |IS NIET BEKEND."|
00000D60: 3A 89 32 39 30 30 00 75 15 50 0A 53 4C 25 28 58 |:.2900.u.P.SL%(X|
00000D70: 2C 32 29 B2 59 00 7F 15 5A 0A 43 24 B2 22 22 00 |,2).Y...Z.C$."".|
00000D80: 89 15 64 0A 42 24 B2 22 22 00 9D 15 6E 0A 41 24 |..d.B$.""...n.A$|
00000D90: B2 CA 28 54 45 53 54 24 2C 49 2C 31 29 00 A7 15 |..(TEST$,I,1)...|
00000DA0: 78 0A 49 B2 49 AA 31 00 C3 15 82 0A 8B 41 24 B2 |x.I.I.1......A$.|
00000DB0: 22 20 22 A7 43 24 B2 43 24 AA 22 20 22 3A 89 32 |" ".C$.C$." ":.2|
00000DC0: 36 37 30 00 D4 15 8C 0A 8B 41 24 B2 22 29 22 A7 |670......A$.")".|
00000DD0: 32 38 30 30 00 15 16 96 0A 8B A8 28 41 24 B2 22 |2800.......(A$."|
00000DE0: 20 22 B0 41 24 B2 22 28 22 B0 41 24 B2 22 22 29 | ".A$."(".A$."")|
00000DF0: A7 42 24 B2 42 24 AA 41 24 3A 41 24 B2 CA 28 54 |.B$.B$.A$:A$..(T|
00000E00: 45 53 54 24 2C 49 2C 31 29 3A 49 B2 49 AA 31 3A |EST$,I,1):I.I.1:|
00000E10: 89 32 37 30 30 00 3C 16 A0 0A 8B 42 24 B2 22 45 |.2700.<....B$."E|
00000E20: 4E 22 A7 53 4C 25 28 58 2C 31 29 B2 53 4C 25 28 |N".SL%(X,1).SL%(|
00000E30: 58 2C 31 29 AA 31 3A 89 32 38 34 30 00 63 16 AA |X,1).1:.2840.c..|
00000E40: 0A 8B 42 24 B2 22 4F 46 22 A7 53 4C 25 28 58 2C |..B$."OF".SL%(X,|
00000E50: 31 29 B2 53 4C 25 28 58 2C 31 29 AA 32 3A 89 32 |1).SL%(X,1).2:.2|
00000E60: 38 34 30 00 82 16 B4 0A 8B 53 56 24 28 58 29 B2 |840......SV$(X).|
00000E70: 22 22 A7 53 56 24 28 58 29 B2 42 24 3A 89 32 37 |"".SV$(X).B$:.27|
00000E80: 36 30 00 9A 16 BE 0A 53 56 24 28 58 29 B2 53 56 |60.....SV$(X).SV|
00000E90: 24 28 58 29 AA 43 24 AA 42 24 00 B3 16 C8 0A 8B |$(X).C$.B$......|
00000EA0: 41 24 B3 B1 22 22 A7 43 24 B2 22 20 22 3A 89 32 |A$.."".C$." ":.2|
00000EB0: 36 36 30 00 DE 16 D2 0A 42 24 B2 53 56 24 28 58 |660.....B$.SV$(X|
00000EC0: 29 3A 8D 33 37 30 30 3A 8F 20 2A 20 54 45 53 54 |):.3700:. * TEST|
00000ED0: 20 4F 46 20 42 24 3D 47 45 54 41 4C 20 2A 00 FD | OF B$=GETAL *..|
00000EE0: 16 DC 0A 8B 4A B3 32 35 35 A7 53 4C 25 28 58 2C |....J.255.SL%(X,|
00000EF0: 30 29 B2 53 4C 25 28 58 2C 30 29 AA 36 00 03 17 |0).SL%(X,0).6...|
00000F00: E6 0A 8E 00 19 17 F0 0A 8B 53 4C 25 28 58 2C 31 |.........SL%(X,1|
00000F10: 29 B1 37 A7 58 B2 58 AA 31 00 32 17 FA 0A 53 4C |).7.X.X.1.2...SL|
00000F20: 25 28 58 2C 31 29 B2 38 3A 53 41 25 B2 53 41 25 |%(X,1).8:SA%.SA%|
00000F30: AA 31 00 52 17 04 0B 8B 42 24 B3 B1 22 22 A7 53 |.1.R....B$.."".S|
00000F40: 56 24 28 58 29 B2 53 56 24 28 58 29 AA 43 24 AA |V$(X).SV$(X).C$.|
00000F50: 42 24 00 5C 17 0E 0B 89 32 36 35 30 00 8B 17 18 |B$.\....2650....|
00000F60: 0B 42 24 B2 53 56 24 28 58 29 3A 8D 33 37 30 30 |.B$.SV$(X):.3700|
00000F70: 3A 8F 20 2A 20 54 45 53 54 20 4F 46 20 53 54 52 |:. * TEST OF STR|
00000F80: 49 4E 47 3D 47 45 54 41 4C 20 2A 00 AA 17 22 0B |ING=GETAL *...".|
00000F90: 8B 4A B3 32 35 35 A7 53 4C 25 28 58 2C 30 29 B2 |.J.255.SL%(X,0).|
00000FA0: 53 4C 25 28 58 2C 30 29 AA 36 00 B8 17 2C 0B 58 |SL%(X,0).6...,.X|
00000FB0: B2 58 AA 31 3A 4A B2 30 00 CA 17 36 0B 8B 41 24 |.X.1:J.0...6..A$|
00000FC0: B2 22 20 22 A7 41 24 B2 22 22 00 D4 17 40 0B 89 |." ".A$.""...@..|
00000FD0: 32 34 38 30 00 E6 17 4A 0B 8F 20 2A 2A 20 45 52 |2480...J.. ** ER|
00000FE0: 52 4F 52 20 2A 2A 00 F4 17 54 0B 46 4F 55 54 B2 |ROR **...T.FOUT.|
00000FF0: AB 31 3A 8E 00 2C 18 B8 0B 8F 20 2A 2A 20 5A 4F |.1:..,.... ** ZO|
00001000: 45 4B 20 52 45 43 4F 52 44 53 20 44 49 45 20 41 |EK RECORDS DIE A|
00001010: 41 4E 20 44 45 20 56 4F 4F 52 57 41 41 52 44 45 |AN DE VOORWAARDE|
00001020: 4E 20 56 4F 4C 44 4F 45 4E 20 2A 2A 00 3D 18 C2 |N VOLDOEN **.=..|
00001030: 0B 8B 4C 50 25 B3 B1 30 A7 33 34 32 30 00 52 18 |..LP%..0.3420.R.|
00001040: CC 0B 8B 53 45 25 B1 4C 45 25 A7 53 45 25 B2 4C |...SE%.LE%.SE%.L|
00001050: 45 25 00 62 18 D6 0B 81 45 4C B2 53 42 25 A4 53 |E%.b....EL.SB%.S|
00001060: 45 25 00 74 18 E0 0B 54 53 25 28 30 29 B2 AB 31 |E%.t...TS%(0)..1|
00001070: 3A 4A B2 31 00 83 18 EA 0B 81 49 B2 30 A4 53 41 |:J.1......I.0.SA|
00001080: 25 AB 31 00 CD 18 F4 0B 91 53 4C 25 28 49 2C 30 |%.1......SL%(I,0|
00001090: 29 89 33 30 38 30 2C 33 30 39 30 2C 33 31 30 30 |).3080,3090,3100|
000010A0: 2C 33 31 31 30 2C 33 31 32 30 2C 33 31 33 30 2C |,3110,3120,3130,|
000010B0: 33 31 34 30 2C 33 31 35 30 2C 33 31 36 30 2C 33 |3140,3150,3160,3|
000010C0: 31 37 30 2C 33 31 38 30 2C 33 31 39 30 00 E1 18 |170,3180,3190...|
000010D0: FE 0B 54 53 25 28 4A 29 B2 AB 31 3A 89 33 33 30 |..TS%(J)..1:.330|
000010E0: 30 00 0D 19 08 0C 54 53 25 28 4A 29 B2 28 44 41 |0.....TS%(J).(DA|
000010F0: 54 24 28 45 4C 2C 53 4C 25 28 49 2C 32 29 29 B2 |T$(EL,SL%(I,2)).|
00001100: 53 56 24 28 49 29 29 3A 89 33 33 30 30 00 39 19 |SV$(I)):.3300.9.|
00001110: 12 0C 54 53 25 28 4A 29 B2 28 44 41 54 24 28 45 |..TS%(J).(DAT$(E|
00001120: 4C 2C 53 4C 25 28 49 2C 32 29 29 B1 53 56 24 28 |L,SL%(I,2)).SV$(|
00001130: 49 29 29 3A 89 33 33 30 30 00 65 19 1C 0C 54 53 |I)):.3300.e...TS|
00001140: 25 28 4A 29 B2 28 44 41 54 24 28 45 4C 2C 53 4C |%(J).(DAT$(EL,SL|
00001150: 25 28 49 2C 32 29 29 B3 53 56 24 28 49 29 29 3A |%(I,2)).SV$(I)):|
00001160: 89 33 33 30 30 00 92 19 26 0C 54 53 25 28 4A 29 |.3300...&.TS%(J)|
00001170: B2 28 44 41 54 24 28 45 4C 2C 53 4C 25 28 49 2C |.(DAT$(EL,SL%(I,|
00001180: 32 29 29 B3 B1 53 56 24 28 49 29 29 3A 89 33 33 |2))..SV$(I)):.33|
00001190: 30 30 00 BF 19 30 0C 54 53 25 28 4A 29 B2 28 44 |00...0.TS%(J).(D|
000011A0: 41 54 24 28 45 4C 2C 53 4C 25 28 49 2C 32 29 29 |AT$(EL,SL%(I,2))|
000011B0: B1 B2 53 56 24 28 49 29 29 3A 89 33 33 30 30 00 |..SV$(I)):.3300.|
000011C0: EC 19 3A 0C 54 53 25 28 4A 29 B2 28 44 41 54 24 |..:.TS%(J).(DAT$|
000011D0: 28 45 4C 2C 53 4C 25 28 49 2C 32 29 29 B3 B2 53 |(EL,SL%(I,2))..S|
000011E0: 56 24 28 49 29 29 3A 89 33 33 30 30 00 1E 1A 44 |V$(I)):.3300...D|
000011F0: 0C 54 53 25 28 4A 29 B2 28 C5 28 44 41 54 24 28 |.TS%(J).(.(DAT$(|
00001200: 45 4C 2C 53 4C 25 28 49 2C 32 29 29 29 B2 C5 28 |EL,SL%(I,2)))..(|
00001210: 53 56 24 28 49 29 29 29 3A 89 33 33 30 30 00 50 |SV$(I))):.3300.P|
00001220: 1A 4E 0C 54 53 25 28 4A 29 B2 28 C5 28 44 41 54 |.N.TS%(J).(.(DAT|
00001230: 24 28 45 4C 2C 53 4C 25 28 49 2C 32 29 29 29 B1 |$(EL,SL%(I,2))).|
00001240: C5 28 53 56 24 28 49 29 29 29 3A 89 33 33 30 30 |.(SV$(I))):.3300|
00001250: 00 82 1A 58 0C 54 53 25 28 4A 29 B2 28 C5 28 44 |...X.TS%(J).(.(D|
00001260: 41 54 24 28 45 4C 2C 53 4C 25 28 49 2C 32 29 29 |AT$(EL,SL%(I,2))|
00001270: 29 B3 C5 28 53 56 24 28 49 29 29 29 3A 89 33 33 |)..(SV$(I))):.33|
00001280: 30 30 00 B5 1A 62 0C 54 53 25 28 4A 29 B2 28 C5 |00...b.TS%(J).(.|
00001290: 28 44 41 54 24 28 45 4C 2C 53 4C 25 28 49 2C 32 |(DAT$(EL,SL%(I,2|
000012A0: 29 29 29 B3 B1 C5 28 53 56 24 28 49 29 29 29 3A |)))...(SV$(I))):|
000012B0: 89 33 33 30 30 00 E8 1A 6C 0C 54 53 25 28 4A 29 |.3300...l.TS%(J)|
000012C0: B2 28 C5 28 44 41 54 24 28 45 4C 2C 53 4C 25 28 |.(.(DAT$(EL,SL%(|
000012D0: 49 2C 32 29 29 29 B1 B2 C5 28 53 56 24 28 49 29 |I,2)))...(SV$(I)|
000012E0: 29 29 3A 89 33 33 30 30 00 1B 1B 76 0C 54 53 25 |)):.3300...v.TS%|
000012F0: 28 4A 29 B2 28 C5 28 44 41 54 24 28 45 4C 2C 53 |(J).(.(DAT$(EL,S|
00001300: 4C 25 28 49 2C 32 29 29 29 B3 B2 C5 28 53 56 24 |L%(I,2)))...(SV$|
00001310: 28 49 29 29 29 3A 89 33 33 30 30 00 4A 1B E4 0C |(I))):.3300.J...|
00001320: 8D 20 33 35 30 30 3A 8F 20 2A 20 42 45 52 45 4B |. 3500:. * BEREK|
00001330: 45 4E 49 4E 47 20 56 41 4E 20 54 45 53 54 56 4F |ENING VAN TESTVO|
00001340: 4F 52 57 41 41 52 44 45 20 2A 00 60 1B EE 0C 8B |ORWAARDE *.`....|
00001350: 53 4C 25 28 49 2C 31 29 B1 37 A7 8D 33 35 30 30 |SL%(I,1).7..3500|
00001360: 00 81 1B F8 0C 54 53 25 28 4A 29 B2 54 53 25 28 |.....TS%(J).TS%(|
00001370: 4A 29 AA 32 AC 28 53 4C 25 28 49 2C 31 29 AF 33 |J).2.(SL%(I,1).3|
00001380: 29 00 8B 1B 02 0D 4A B2 4A AA 31 00 AF 1B 0C 0D |).....J.J.1.....|
00001390: 8B 28 53 4C 25 28 49 2C 31 29 AF 34 29 B2 34 A7 |.(SL%(I,1).4).4.|
000013A0: 54 53 25 28 4A 29 B2 AB 31 3A 4A B2 4A AA 31 00 |TS%(J)..1:J.J.1.|
000013B0: B6 1B 16 0D 82 49 00 DB 1B 20 0D 8B 54 53 25 28 |.....I... ..TS%(|
000013C0: 30 29 B2 AB 31 A7 8D 33 36 30 30 3A 8F 20 2A 20 |0)..1..3600:. * |
000013D0: 54 45 53 54 3D 54 52 55 45 20 2A 00 07 1C 34 0D |TEST=TRUE *...4.|
000013E0: A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 91 20 4D 4F |.A$:.A$.."".. MO|
000013F0: 44 45 25 8D 34 32 31 30 2C 34 33 31 30 2C 37 31 |DE%.4210,4310,71|
00001400: 31 30 2C 36 31 31 30 00 10 1C 3E 0D 82 20 45 4C |10,6110...>.. EL|
00001410: 00 24 1C 48 0D 8B 20 45 54 25 B1 B2 4C 50 25 A7 |.$.H.. ET%..LP%.|
00001420: 33 34 35 30 00 42 1C 52 0D 8B 4D 4F 44 45 25 B3 |3450.B.R..MODE%.|
00001430: B1 39 A7 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 34 |.9..A$:.A$."".34|
00001440: 31 30 00 62 1C 5C 0D 91 20 4D 4F 44 45 25 8D 34 |10.b.\.. MODE%.4|
00001450: 32 31 30 2C 34 33 31 30 2C 37 31 31 30 2C 36 31 |210,4310,7110,61|
00001460: 31 30 00 7A 1C 66 0D 8B 20 4D 4F 44 45 25 B2 39 |10.z.f.. MODE%.9|
00001470: A7 45 54 25 B2 45 54 25 AA 31 00 84 1C 70 0D 89 |.ET%.ET%.1...p..|
00001480: 33 34 30 30 00 98 1C 7A 0D 8B 20 4D 4F 44 45 25 |3400...z.. MODE%|
00001490: B2 33 A7 8D 37 33 32 30 00 9E 1C 84 0D 8E 00 C8 |.3..7320........|
000014A0: 1C AC 0D 8F 20 2A 2A 20 42 45 52 45 4B 45 4E 49 |.... ** BEREKENI|
000014B0: 4E 47 20 56 41 4E 20 54 45 53 54 56 4F 4F 52 57 |NG VAN TESTVOORW|
000014C0: 41 41 52 44 45 20 2A 2A 00 D2 1C B6 0D 4A B2 4A |AARDE **.....J.J|
000014D0: AB 31 00 F3 1C C0 0D 8B 54 53 25 28 4A 29 B3 B2 |.1......TS%(J)..|
000014E0: 30 A7 54 53 25 28 4A 29 B2 54 53 25 28 4A AA 31 |0.TS%(J).TS%(J.1|
000014F0: 29 3A 8E 00 1E 1D CA 0D 8B 54 53 25 28 4A 29 B3 |):.......TS%(J).|
00001500: 33 A7 54 53 25 28 4A 29 B2 28 54 53 25 28 4A 29 |3.TS%(J).(TS%(J)|
00001510: AB 32 29 AF 54 53 25 28 4A AA 31 29 3A 8E 00 3F |.2).TS%(J.1):..?|
00001520: 1D D4 0D 54 53 25 28 4A 29 B2 28 54 53 25 28 4A |...TS%(J).(TS%(J|
00001530: 29 AB 34 29 B0 54 53 25 28 4A AA 31 29 3A 8E 00 |).4).TS%(J.1):..|
00001540: 7A 1D 10 0E 8F 20 2A 2A 20 52 45 43 4F 52 44 20 |z.... ** RECORD |
00001550: 47 45 56 4F 4E 44 45 4E 20 44 41 54 20 41 41 4E |GEVONDEN DAT AAN|
00001560: 20 44 45 20 56 4F 4F 52 57 41 41 52 44 45 4E 20 | DE VOORWAARDEN |
00001570: 56 4F 4C 44 4F 45 54 20 2A 2A 00 8D 1D 1A 0E 4C |VOLDOET **.....L|
00001580: 49 4A 53 54 25 28 4C 50 25 29 B2 45 4C 00 9B 1D |IJST%(LP%).EL...|
00001590: 24 0E 4C 50 25 B2 4C 50 25 AA 31 00 BB 1D 2E 0E |$.LP%.LP%.1.....|
000015A0: 91 20 4D 4F 44 45 25 8D 34 34 32 30 2C 34 33 31 |. MODE%.4420,431|
000015B0: 30 2C 37 32 30 30 2C 36 32 31 30 00 C1 1D 38 0E |0,7200,6210...8.|
000015C0: 8E 00 F9 1D 74 0E 8F 20 2A 2A 20 54 45 53 54 20 |....t.. ** TEST |
000015D0: 4F 46 20 44 45 20 48 45 4C 45 20 53 54 52 49 4E |OF DE HELE STRIN|
000015E0: 47 20 55 49 54 20 47 45 54 41 4C 4C 45 4E 20 42 |G UIT GETALLEN B|
000015F0: 45 53 54 41 41 54 20 2A 2A 00 0C 1E 7E 0E 8B 42 |ESTAAT **...~..B|
00001600: 24 B2 22 22 A7 4A B2 32 35 35 3A 8E 00 1C 1E 88 |$."".J.255:.....|
00001610: 0E 81 20 4A B2 31 A4 C3 28 42 24 29 00 45 1E 92 |.. J.1..(B$).E..|
00001620: 0E 8B 28 CA 28 42 24 2C 4A 2C 31 29 B3 22 30 22 |..(.(B$,J,1)."0"|
00001630: B0 CA 28 42 24 2C 4A 2C 31 29 B1 22 39 22 29 A7 |..(B$,J,1)."9").|
00001640: 4A B2 32 35 35 00 4D 1E 9C 0E 82 20 4A 00 53 1E |J.255.M.... J.S.|
00001650: A6 0E 8E 00 66 1E D8 0E 8F 20 2A 2A 20 47 45 54 |....f.... ** GET|
00001660: 20 42 24 20 2A 2A 00 70 1E E2 0E 42 24 B2 22 22 | B$ **.p...B$.""|
00001670: 00 97 1E EC 0E 41 24 B2 CA 28 54 45 53 54 24 2C |.....A$..(TEST$,|
00001680: 49 2C 31 29 3A 49 B2 49 AA 31 3A 8B 41 24 B2 22 |I,1):I.I.1:.A$."|
00001690: 20 22 A7 33 38 32 30 00 BB 1E F6 0E 8B 28 41 24 | ".3820......(A$|
000016A0: B2 22 20 22 B0 41 24 B2 22 3B 22 B0 41 24 B2 22 |." ".A$.";".A$."|
000016B0: 22 B0 41 24 B2 22 5F 22 29 A7 8E 00 C8 1E 00 0F |".A$."_").......|
000016C0: 42 24 B2 42 24 AA 41 24 00 DC 1E 0A 0F 41 24 B2 |B$.B$.A$.....A$.|
000016D0: CA 28 54 45 53 54 24 2C 49 2C 31 29 00 E6 1E 14 |.(TEST$,I,1)....|
000016E0: 0F 49 B2 49 AA 31 00 F0 1E 1E 0F 89 33 38 33 30 |.I.I.1......3830|
000016F0: 00 0F 1F 3C 0F 8F 20 2A 2A 20 54 45 53 54 20 4F |...<.. ** TEST O|
00001700: 46 20 42 24 3D 56 41 52 4E 41 41 4D 20 2A 2A 00 |F B$=VARNAAM **.|
00001710: 1E 1F 46 0F 81 4A B2 30 A4 42 52 25 AB 31 00 4B |..F..J.0.BR%.1.K|
00001720: 1F 50 0F 8B 42 24 B3 B1 22 22 A7 8B 42 24 B2 C8 |.P..B$..""..B$..|
00001730: 28 44 41 54 24 28 30 2C 4A 29 2C C3 28 42 24 29 |(DAT$(0,J),.(B$)|
00001740: 29 A7 59 B2 4A 3A 4A B2 32 35 35 00 53 1F 5A 0F |).Y.J:J.255.S.Z.|
00001750: 82 20 4A 00 59 1F 64 0F 8E 00 6A 1F A0 0F 8F 20 |. J.Y.d...j.... |
00001760: 2A 2A 20 54 59 50 45 20 2A 2A 00 80 1F AA 0F 4D |** TYPE **.....M|
00001770: 4F 44 45 25 B2 31 3A 99 22 54 59 50 45 20 22 3B |ODE%.1:."TYPE ";|
00001780: 00 A8 1F B4 0F 8D 32 31 30 30 3A 8F 20 2A 20 56 |......2100:. * V|
00001790: 4F 45 52 20 54 45 53 54 56 4F 4F 52 57 41 41 52 |OER TESTVOORWAAR|
000017A0: 44 45 4E 20 49 4E 20 2A 00 B7 1F BE 0F 8B 46 4F |DEN IN *......FO|
000017B0: 55 54 A7 34 30 38 30 00 EA 1F C8 0F 99 22 93 11 |UT.4080......"..|
000017C0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000017D0: 2A 20 54 59 50 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |* TYPE *********|
000017E0: 2A 2A 2A 2A 2A 2A 2A 11 11 22 00 11 20 D2 0F 50 |*******..".. ..P|
000017F0: 52 B2 30 3A 8F 20 2A 20 46 4C 41 47 20 3A 20 27 |R.0:. * FLAG : '|
00001800: 54 59 50 45 20 4F 50 20 53 43 48 45 52 4D 27 20 |TYPE OP SCHERM' |
00001810: 2A 00 5B 20 DC 0F 53 53 25 B2 32 34 3A 45 54 25 |*.[ ..SS%.24:ET%|
00001820: B2 30 3A 8F 20 2A 20 53 54 41 52 54 20 42 49 4A |.0:. * START BIJ|
00001830: 20 31 45 20 45 4C 45 4D 45 4E 54 20 55 49 54 20 | 1E ELEMENT UIT |
00001840: 44 45 20 4C 49 4A 53 54 20 3B 20 53 43 48 45 52 |DE LIJST ; SCHER|
00001850: 4D 20 49 53 20 27 56 52 49 4A 27 00 8E 20 E6 0F |M IS 'VRIJ'.. ..|
00001860: 8D 33 30 30 30 3A 8F 20 2A 20 5A 4F 45 4B 2C 20 |.3000:. * ZOEK, |
00001870: 4D 41 41 4B 20 4C 49 4A 53 54 20 45 4E 20 54 59 |MAAK LIJST EN TY|
00001880: 50 45 20 4F 50 20 53 43 48 45 52 4D 20 2A 00 9A |PE OP SCHERM *..|
00001890: 20 F0 0F 8E 3A 89 34 31 31 30 00 AC 20 04 10 8F | ...:.4110.. ...|
000018A0: 20 2A 2A 20 50 52 49 4E 54 20 2A 2A 00 B8 20 09 | ** PRINT **.. .|
000018B0: 10 8D 20 31 30 30 30 30 00 C7 20 0E 10 99 22 50 |.. 10000.. ..."P|
000018C0: 52 49 4E 54 20 22 3B 00 D3 20 18 10 4D 4F 44 45 |RINT ";.. ..MODE|
000018D0: 25 B2 32 00 FC 20 22 10 8D 20 32 31 30 30 3A 8F |%.2.. ".. 2100:.|
000018E0: 20 2A 20 56 4F 45 52 20 54 45 53 54 56 4F 4F 52 | * VOER TESTVOOR|
000018F0: 57 41 41 52 44 45 4E 20 49 4E 20 2A 00 0B 21 2C |WAARDEN IN *..!,|
00001900: 10 8B 46 4F 55 54 A7 34 31 38 30 00 3D 21 36 10 |..FOUT.4180.=!6.|
00001910: 99 22 93 11 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.".. ***********|
00001920: 2A 2A 2A 2A 20 50 52 49 4E 54 20 2A 2A 2A 2A 2A |**** PRINT *****|
00001930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 11 11 22 00 67 21 |**********..".g!|
00001940: 40 10 50 52 B2 AB 31 3A 8F 20 2A 20 46 4C 41 47 |@.PR..1:. * FLAG|
00001950: 20 3A 20 27 50 52 49 4E 54 20 4F 50 20 50 52 49 | : 'PRINT OP PRI|
00001960: 4E 54 45 52 27 20 2A 00 85 21 4A 10 8D 34 30 36 |NTER' *..!J..406|
00001970: 30 3A 8F 20 2A 20 44 52 55 4B 20 41 4C 4C 45 53 |0:. * DRUK ALLES|
00001980: 20 41 46 20 2A 00 8B 21 54 10 8E 00 A1 21 68 10 | AF *..!T....!h.|
00001990: 8F 20 2A 20 27 50 52 49 4E 54 4D 45 4E 55 27 20 |. * 'PRINTMENU' |
000019A0: 2A 00 BA 21 72 10 8B 41 24 B2 22 11 22 A7 53 53 |*..!r..A$.".".SS|
000019B0: 25 B2 32 34 3A 89 34 34 31 30 00 DE 21 7C 10 8B |%.24:.4410..!|..|
000019C0: 41 24 B2 22 91 22 A7 45 54 25 B2 45 54 25 AB 32 |A$.".".ET%.ET%.2|
000019D0: 3A 53 53 25 B2 50 41 25 3A 89 34 34 31 30 00 F8 |:SS%.PA%:.4410..|
000019E0: 21 86 10 8B 41 24 B2 22 5E 22 A7 4D 4F 44 45 25 |!...A$."^".MODE%|
000019F0: B2 32 3A 89 34 33 31 30 00 1C 22 90 10 8B 41 24 |.2:.4310.."...A$|
00001A00: B2 22 2A 22 A7 99 22 93 22 3A 45 54 25 B2 30 3A |."*"..".":ET%.0:|
00001A10: 53 53 25 B2 32 34 3A 89 34 34 31 30 00 55 22 9A |SS%.24:.4410.U".|
00001A20: 10 8B 41 24 B2 22 5F 22 A7 45 4C B2 4D 4C 25 AA |..A$."_".EL.ML%.|
00001A30: 31 3A 45 54 25 B2 4C 50 25 AA 31 3A 8F 20 2A 20 |1:ET%.LP%.1:. * |
00001A40: 52 45 54 55 52 4E 20 54 4F 20 48 4F 4F 46 44 4D |RETURN TO HOOFDM|
00001A50: 45 4E 55 20 2A 00 5B 22 A4 10 8E 00 7F 22 CC 10 |ENU *.["....."..|
00001A60: 8F 20 2A 2A 20 44 52 55 4B 20 41 4C 4C 45 53 20 |. ** DRUK ALLES |
00001A70: 4E 41 20 45 4C 4B 41 41 52 20 41 46 20 2A 2A 00 |NA ELKAAR AF **.|
00001A80: 8B 22 D6 10 53 53 25 B2 50 41 25 00 AF 22 E0 10 |."..SS%.PA%.."..|
00001A90: A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 4D 4F 44 45 |.A$:.A$.."".MODE|
00001AA0: 25 B2 31 3A 53 53 25 B2 30 3A 89 34 32 31 30 00 |%.1:SS%.0:.4210.|
00001AB0: DA 22 EA 10 8D 34 34 31 30 3A 8F 20 2A 20 44 52 |."...4410:. * DR|
00001AC0: 55 4B 20 45 45 4E 20 41 41 4E 54 41 4C 20 52 45 |UK EEN AANTAL RE|
00001AD0: 43 4F 52 44 53 20 41 46 20 2A 00 EC 22 F4 10 8B |CORDS AF *.."...|
00001AE0: 45 54 25 B3 4C 50 25 A7 34 33 31 30 00 F2 22 FE |ET%.LP%.4310..".|
00001AF0: 10 8E 00 19 23 30 11 8F 20 2A 2A 20 44 52 55 4B |....#0.. ** DRUK|
00001B00: 20 45 45 4E 20 41 41 4E 54 41 4C 20 52 45 43 4F | EEN AANTAL RECO|
00001B10: 52 44 53 20 41 46 20 2A 2A 00 2A 23 3A 11 8B 45 |RDS AF **.*#:..E|
00001B20: 54 25 B3 30 A7 45 54 25 B2 30 00 39 23 44 11 8B |T%.0.ET%.0.9#D..|
00001B30: 53 53 25 B3 50 41 25 A7 8E 00 4A 23 4E 11 8B 50 |SS%.PA%...J#N..P|
00001B40: 52 A7 9F 32 2C 34 3A 9D 20 32 00 62 23 58 11 81 |R..2,4:. 2.b#X..|
00001B50: 20 49 B2 50 41 25 AA 31 A4 53 53 25 A9 50 41 25 | I.PA%.1.SS%.PA%|
00001B60: AA 31 00 7B 23 62 11 8B 45 54 25 B1 B2 4C 50 25 |.1.{#b..ET%..LP%|
00001B70: A7 49 B2 33 30 3A 89 34 36 32 30 00 8D 23 6C 11 |.I.30:.4620..#l.|
00001B80: 58 B2 4C 49 4A 53 54 25 28 45 54 25 29 00 96 23 |X.LIJST%(ET%)..#|
00001B90: 76 11 99 22 1C 22 00 A3 23 80 11 59 B2 50 56 25 |v.."."..#..Y.PV%|
00001BA0: 28 30 29 00 BC 23 8A 11 8B 59 B2 30 A7 99 22 4E |(0)..#...Y.0.."N|
00001BB0: 4F 2E 3A 22 58 3B 3A 89 34 35 32 30 00 E1 23 94 |O.:"X;:.4520..#.|
00001BC0: 11 8B 59 B1 B2 32 35 35 A7 59 B2 59 AB 32 35 35 |..Y..255.Y.Y.255|
00001BD0: 3A 99 44 41 54 24 28 30 2C 59 AB 31 29 22 3A 22 |:.DAT$(0,Y.1)":"|
00001BE0: 3B 00 F8 23 9E 11 99 A3 30 29 3A 99 44 41 54 24 |;..#....0):.DAT$|
00001BF0: 28 58 2C 59 AB 31 29 3B 00 02 24 A8 11 99 22 1F |(X,Y.1);..$...".|
00001C00: 22 3B 00 13 24 B2 11 8B 50 41 25 B3 B2 31 A7 34 |";..$...PA%..1.4|
00001C10: 36 31 30 00 22 24 BC 11 81 4A B2 31 A4 50 41 25 |610."$...J.1.PA%|
00001C20: AB 31 00 51 24 C6 11 59 B2 50 56 25 28 4A 29 3A |.1.Q$..Y.PV%(J):|
00001C30: 8B 59 B1 B2 35 31 31 A7 59 B2 59 AB 35 31 31 3A |.Y..511.Y.Y.511:|
00001C40: 49 B2 49 AB 31 3A 99 22 20 22 3B 3A 89 34 35 37 |I.I.1:." ";:.457|
00001C50: 30 00 5D 24 D0 11 99 3A 99 A3 33 29 3B 00 82 24 |0.]$...:..3);..$|
00001C60: DA 11 8B 59 B1 B2 32 35 35 A7 59 B2 59 AB 32 35 |...Y..255.Y.Y.25|
00001C70: 35 3A 99 44 41 54 24 28 30 2C 59 AB 31 29 22 3A |5:.DAT$(0,Y.1)":|
00001C80: 22 3B 00 94 24 E4 11 99 44 41 54 24 28 58 2C 59 |";..$...DAT$(X,Y|
00001C90: AB 31 29 3B 00 9C 24 EE 11 82 20 4A 00 A2 24 F8 |.1);..$... J..$.|
00001CA0: 11 99 00 BA 24 02 12 45 54 25 B2 45 54 25 AA 31 |....$..ET%.ET%.1|
00001CB0: 3A 53 53 25 B2 53 53 25 AB 49 00 C2 24 0C 12 82 |:SS%.SS%.I..$...|
00001CC0: 20 49 00 D4 24 16 12 8B 50 52 A7 98 32 2C 22 22 | I..$...PR..2,""|
00001CD0: 3B 3A A0 32 00 DA 24 20 12 8E 00 EF 24 88 13 8F |;:.2..$ ....$...|
00001CE0: 20 2A 2A 20 53 4F 52 54 45 52 45 4E 20 2A 2A 00 | ** SORTEREN **.|
00001CF0: 20 25 92 13 99 22 93 11 20 2A 2A 2A 2A 2A 2A 2A | %...".. *******|
00001D00: 2A 2A 2A 2A 2A 2A 2A 20 53 4F 52 54 45 52 45 4E |******* SORTEREN|
00001D10: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 | **************"|
00001D20: 00 46 25 9C 13 99 22 11 20 4E 41 41 4D 20 56 41 |.F%...". NAAM VA|
00001D30: 4E 20 48 45 54 20 47 45 47 45 56 45 4E 20 57 41 |N HET GEGEVEN WA|
00001D40: 41 52 4F 50 20 22 00 6A 25 A6 13 85 22 20 47 45 |AROP ".j%..." GE|
00001D50: 52 41 4E 47 53 43 48 49 4B 54 20 4D 4F 45 54 20 |RANGSCHIKT MOET |
00001D60: 57 4F 52 44 45 4E 22 3B 41 24 00 79 25 B0 13 81 |WORDEN";A$.y%...|
00001D70: 49 B2 30 A4 42 52 25 AB 31 00 95 25 BA 13 8B 41 |I.0.BR%.1..%...A|
00001D80: 24 B2 44 41 54 24 28 30 2C 49 29 A7 58 B2 49 3A |$.DAT$(0,I).X.I:|
00001D90: 49 B2 42 52 25 00 9D 25 C4 13 82 20 49 00 AA 25 |I.BR%..%... I..%|
00001DA0: D8 13 4A 55 4D 50 B2 4C 45 25 00 BC 25 E2 13 8B |..JUMP.LE%..%...|
00001DB0: 4A 55 4D 50 B3 B2 31 A7 35 32 31 30 00 CF 25 EC |JUMP..1.5210..%.|
00001DC0: 13 4A 55 4D 50 B2 B5 28 4A 55 4D 50 AD 32 29 00 |.JUMP..(JUMP.2).|
00001DD0: E1 25 F6 13 56 45 52 57 49 53 53 45 4C 44 B2 AB |.%..VERWISSELD..|
00001DE0: 31 00 F5 25 00 14 81 4A B2 31 A4 28 4C 45 25 AB |1..%...J.1.(LE%.|
00001DF0: 4A 55 4D 50 29 00 02 26 0A 14 49 B2 4A AA 4A 55 |JUMP)..&..I.J.JU|
00001E00: 4D 50 00 21 26 14 14 8B 44 41 54 24 28 4A 2C 58 |MP.!&...DAT$(J,X|
00001E10: 29 B3 B2 44 41 54 24 28 49 2C 58 29 A7 35 31 38 |)..DAT$(I,X).518|
00001E20: 30 00 30 26 1E 14 81 4B B2 30 A4 42 52 25 AB 31 |0.0&...K.0.BR%.1|
00001E30: 00 62 26 28 14 48 24 B2 44 41 54 24 28 49 2C 4B |.b&(.H$.DAT$(I,K|
00001E40: 29 3A 44 41 54 24 28 49 2C 4B 29 B2 44 41 54 24 |):DAT$(I,K).DAT$|
00001E50: 28 4A 2C 4B 29 3A 44 41 54 24 28 4A 2C 4B 29 B2 |(J,K):DAT$(J,K).|
00001E60: 48 24 00 77 26 32 14 82 20 4B 3A 56 45 52 57 49 |H$.w&2.. K:VERWI|
00001E70: 53 53 45 4C 44 B2 30 00 7F 26 3C 14 82 20 4A 00 |SSELD.0..&<.. J.|
00001E80: 95 26 46 14 8B 20 56 45 52 57 49 53 53 45 4C 44 |.&F.. VERWISSELD|
00001E90: A7 35 30 39 30 00 A0 26 50 14 89 20 35 31 31 30 |.5090..&P.. 5110|
00001EA0: 00 A6 26 5A 14 8E 00 D6 26 70 17 8F 20 2A 2A 20 |..&Z....&p.. ** |
00001EB0: 56 45 52 41 4E 44 45 52 20 44 45 20 47 45 47 45 |VERANDER DE GEGE|
00001EC0: 56 45 4E 53 20 56 41 4E 20 45 45 4E 20 52 45 43 |VENS VAN EEN REC|
00001ED0: 4F 52 44 20 2A 2A 00 F0 26 7A 17 8F 20 2A 2A 20 |ORD **..&z.. ** |
00001EE0: 49 4E 49 54 49 41 4C 49 53 41 54 49 45 20 2A 2A |INITIALISATIE **|
00001EF0: 00 02 27 84 17 99 22 56 45 52 41 4E 44 45 52 20 |..'..."VERANDER |
00001F00: 22 3B 00 27 27 8E 17 8D 32 31 30 30 3A 8F 20 2A |";.''...2100:. *|
00001F10: 20 56 4F 45 52 20 54 45 53 54 47 45 47 45 56 45 | VOER TESTGEGEVE|
00001F20: 4E 53 20 49 4E 20 2A 00 38 27 98 17 8B 20 46 4F |NS IN *.8'... FO|
00001F30: 55 54 20 A7 36 30 38 30 00 4E 27 A2 17 45 54 25 |UT .6080.N'..ET%|
00001F40: B2 30 3A 59 B2 31 3A 4D 4F 44 45 25 B2 34 00 58 |.0:Y.1:MODE%.4.X|
00001F50: 27 AC 17 8D 33 30 30 30 00 5E 27 B6 17 99 00 64 |'...3000.^'....d|
00001F60: 27 C0 17 8E 00 90 27 D4 17 8F 20 2A 2A 20 52 45 |'.....'... ** RE|
00001F70: 53 50 4F 4E 53 49 45 20 4F 50 20 49 4E 47 45 44 |SPONSIE OP INGED|
00001F80: 52 55 4B 54 45 20 54 4F 45 54 53 45 4E 20 2A 2A |RUKTE TOETSEN **|
00001F90: 00 A1 27 DE 17 8B 41 24 B2 22 11 22 A7 36 34 35 |..'...A$.".".645|
00001FA0: 30 00 B2 27 E8 17 8B 41 24 B2 22 91 22 A7 36 33 |0..'...A$.".".63|
00001FB0: 31 30 00 CA 27 F2 17 8B 41 24 B2 22 2D 22 A7 42 |10..'...A$."-".B|
00001FC0: 24 B2 22 22 3A 89 36 34 32 30 00 DB 27 FC 17 8B |$."":.6420..'...|
00001FD0: 41 24 B2 22 2B 22 A7 36 34 31 30 00 E1 27 06 18 |A$."+".6410..'..|
00001FE0: 8E 00 15 28 38 18 8F 20 2A 2A 20 50 52 49 4E 54 |...(8.. ** PRINT|
00001FF0: 20 4F 55 44 45 20 52 45 43 4F 52 44 47 45 47 45 | OUDE RECORDGEGE|
00002000: 56 45 4E 53 20 4F 50 20 48 45 54 20 53 43 48 45 |VENS OP HET SCHE|
00002010: 52 4D 20 2A 2A 00 2B 28 42 18 8B 28 59 B2 30 B0 |RM **.+(B..(Y.0.|
00002020: 45 54 25 B1 B2 4C 50 25 29 A7 8E 00 5D 28 4C 18 |ET%..LP%)...](L.|
00002030: 99 22 93 11 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.".. ***********|
00002040: 20 56 45 52 41 4E 44 45 52 20 52 45 43 4F 52 44 | VERANDER RECORD|
00002050: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 11 22 00 6D 28 | **********.".m(|
00002060: 56 18 81 20 4A B2 30 A4 42 52 25 AB 31 00 93 28 |V.. J.0.BR%.1..(|
00002070: 60 18 99 44 41 54 24 28 30 2C 4A 29 22 3A 20 22 |`..DAT$(0,J)": "|
00002080: 44 41 54 24 28 4C 49 4A 53 54 25 28 45 54 25 29 |DAT$(LIJST%(ET%)|
00002090: 2C 4A 29 00 9B 28 6A 18 82 20 4A 00 A7 28 74 18 |,J)..(j.. J..(t.|
000020A0: 59 B2 30 3A 58 B2 30 00 C3 28 7E 18 99 22 13 11 |Y.0:X.0..(~.."..|
000020B0: 11 11 1C 22 44 41 54 24 28 30 2C 58 29 22 3F 20 |..."DAT$(0,X)"? |
000020C0: 1F 22 3B 00 C9 28 88 18 8E 00 E3 28 9C 18 8F 20 |.";..(.....(... |
000020D0: 2A 2A 20 56 4F 52 49 47 20 47 45 47 45 56 45 4E |** VORIG GEGEVEN|
000020E0: 20 2A 2A 00 ED 28 A6 18 58 B2 58 AB 31 00 FC 28 | **..(..X.X.1..(|
000020F0: B0 18 8B 58 B3 30 A7 58 B2 30 3A 8E 00 0B 29 BA |...X.0.X.0:...).|
00002100: 18 8B 58 B1 42 52 25 AB 32 A7 8E 00 25 29 C4 18 |..X.BR%.2...%)..|
00002110: 99 3A 99 22 91 22 44 41 54 24 28 30 2C 58 AA 31 |.:."."DAT$(0,X.1|
00002120: 29 22 3A 20 22 00 3F 29 CE 18 99 22 91 91 1C 22 |)": ".?)..."..."|
00002130: 44 41 54 24 28 30 2C 58 29 22 3F 20 1F 22 3B 00 |DAT$(0,X)"? .";.|
00002140: 45 29 D8 18 8E 00 62 29 00 19 8F 20 2A 2A 20 56 |E)....b)... ** V|
00002150: 45 52 41 4E 44 45 52 20 47 45 47 45 56 45 4E 20 |ERANDER GEGEVEN |
00002160: 2A 2A 00 76 29 0A 19 85 22 9D 9D 22 3B 42 24 20 |**.v)..."..";B$ |
00002170: 3A 99 22 91 22 3B 00 99 29 14 19 43 43 25 B2 43 |:.".";..)..CC%.C|
00002180: 43 25 AB C3 28 44 41 54 24 28 4C 49 4A 53 54 25 |C%..(DAT$(LIJST%|
00002190: 28 45 54 25 29 2C 58 29 29 00 B4 29 1E 19 44 41 |(ET%),X))..)..DA|
000021A0: 54 24 28 4C 49 4A 53 54 25 28 45 54 25 29 2C 58 |T$(LIJST%(ET%),X|
000021B0: 29 B2 42 24 00 D0 29 28 19 8F 20 2A 2A 20 56 4F |).B$..)(.. ** VO|
000021C0: 4C 47 45 4E 44 20 47 45 47 45 56 45 4E 20 2A 2A |LGEND GEGEVEN **|
000021D0: 00 E8 29 32 19 99 3A 99 22 91 22 44 41 54 24 28 |..)2..:."."DAT$(|
000021E0: 30 2C 58 29 22 3A 20 22 00 F2 29 3C 19 58 B2 58 |0,X)": "..)<.X.X|
000021F0: AA 31 00 2C 2A 46 19 8B 58 B1 42 52 25 AB 31 A7 |.1.,*F..X.BR%.1.|
00002200: 58 B2 30 3A 45 54 25 B2 45 54 25 AA 31 3A 59 B2 |X.0:ET%.ET%.1:Y.|
00002210: 31 3A 89 36 32 31 30 3A 8F 20 2A 20 56 4F 4C 47 |1:.6210:. * VOLG|
00002220: 45 4E 44 20 52 45 43 4F 52 44 20 2A 00 44 2A 50 |END RECORD *.D*P|
00002230: 19 99 22 1C 22 44 41 54 24 28 30 2C 58 29 22 3F |.."."DAT$(0,X)"?|
00002240: 20 1F 22 3B 00 4A 2A 5A 19 8E 00 68 2A 64 19 8F | .";.J*Z...h*d..|
00002250: 20 2A 2A 20 49 4E 53 45 52 54 20 45 45 4E 20 52 | ** INSERT EEN R|
00002260: 45 43 4F 52 44 20 2A 2A 00 76 2A 6E 19 4C 45 25 |ECORD **.v*n.LE%|
00002270: B2 4C 45 25 AA 31 00 A7 2A 78 19 8B 4C 45 25 B1 |.LE%.1..*x..LE%.|
00002280: 4D 4C 25 A7 99 22 1C 11 44 41 54 41 47 45 48 45 |ML%.."..DATAGEHE|
00002290: 55 47 45 4E 20 49 53 20 56 4F 4C 1F 22 3A 4C 45 |UGEN IS VOL.":LE|
000022A0: 25 B2 4D 4C 25 3A 8E 00 D9 2A 82 19 99 22 93 11 |%.ML%:...*..."..|
000022B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000022C0: 20 49 4E 53 45 52 54 20 2A 2A 2A 2A 2A 2A 2A 2A | INSERT ********|
000022D0: 2A 2A 2A 2A 2A 2A 2A 11 22 00 E8 2A 8C 19 81 49 |*******."..*...I|
000022E0: B2 30 A4 42 52 25 AB 31 00 F8 2A 96 19 99 44 41 |.0.BR%.1..*...DA|
000022F0: 54 24 28 30 2C 49 29 3B 00 06 2B A0 19 41 24 B2 |T$(0,I);..+..A$.|
00002300: 22 22 3A 85 41 24 00 13 2B AA 19 4A 25 B2 C3 28 |"":.A$..+..J%..(|
00002310: 41 24 29 00 48 2B B4 19 8B 43 43 25 AA 4A 25 B1 |A$).H+...CC%.J%.|
00002320: 43 4D 25 A7 99 22 1C 44 41 54 41 47 45 48 45 55 |CM%..".DATAGEHEU|
00002330: 47 45 4E 20 49 53 20 56 4F 4C 1F 22 3A 49 B2 32 |GEN IS VOL.":I.2|
00002340: 35 35 3A 89 36 36 30 30 00 66 2B BE 19 43 43 25 |55:.6600.f+..CC%|
00002350: B2 43 43 25 AA 4A 25 3A 44 41 54 24 28 4C 45 25 |.CC%.J%:DAT$(LE%|
00002360: 2C 49 29 B2 41 24 00 6E 2B C8 19 82 20 49 00 7B |,I).A$.n+... I.{|
00002370: 2B D2 19 8B 52 41 25 B2 30 A7 8E 00 95 2B DC 19 |+...RA%.0....+..|
00002380: 41 24 B2 44 41 54 24 28 4C 45 25 2C B6 28 52 41 |A$.DAT$(LE%,.(RA|
00002390: 25 29 AB 31 29 00 A5 2B E6 19 8B 52 41 25 B3 30 |%).1)..+...RA%.0|
000023A0: A7 36 37 32 30 00 B2 2B F0 19 8B 4C 45 25 B2 31 |.6720..+...LE%.1|
000023B0: A7 8E 00 C5 2B FA 19 81 45 4C B2 4C 45 25 AB 31 |....+...EL.LE%.1|
000023C0: A4 31 A9 AB 31 00 E8 2B 04 1A 8B 44 41 54 24 28 |.1..1..+...DAT$(|
000023D0: 45 4C 2C 52 41 25 AB 31 29 B3 B2 41 24 A7 45 4C |EL,RA%.1)..A$.EL|
000023E0: B2 30 3A 89 36 37 30 30 00 F7 2B 0E 1A 81 49 B2 |.0:.6700..+...I.|
000023F0: 30 A4 42 52 25 AB 31 00 31 2C 18 1A 42 24 B2 44 |0.BR%.1.1,..B$.D|
00002400: 41 54 24 28 45 4C 2C 49 29 3A 44 41 54 24 28 45 |AT$(EL,I):DAT$(E|
00002410: 4C 2C 49 29 B2 44 41 54 24 28 45 4C AA 31 2C 49 |L,I).DAT$(EL.1,I|
00002420: 29 3A 44 41 54 24 28 45 4C AA 31 2C 49 29 B2 42 |):DAT$(EL.1,I).B|
00002430: 24 00 39 2C 22 1A 82 20 49 00 42 2C 2C 1A 82 20 |$.9,".. I.B,,.. |
00002440: 45 4C 00 48 2C 36 1A 8E 00 54 2C 40 1A 58 B2 C5 |EL.H,6...T,@.X..|
00002450: 28 41 24 29 00 67 2C 4A 1A 81 45 4C B2 4C 45 25 |(A$).g,J..EL.LE%|
00002460: AB 31 A4 31 A9 AB 31 00 8F 2C 54 1A 8B C5 28 44 |.1.1..1..,T...(D|
00002470: 41 54 24 28 45 4C 2C B6 28 52 41 25 29 AB 31 29 |AT$(EL,.(RA%).1)|
00002480: 29 B3 B2 58 A7 45 4C B2 30 3A 89 36 37 30 30 00 |)..X.EL.0:.6700.|
00002490: 99 2C 5E 1A 89 36 36 37 30 00 BD 2C 58 1B 8F 20 |.,^..6670..,X.. |
000024A0: 2A 2A 20 57 49 53 20 45 45 4E 20 43 4F 4D 50 4C |** WIS EEN COMPL|
000024B0: 45 45 54 20 52 45 43 4F 52 44 20 2A 2A 00 D7 2C |EET RECORD **..,|
000024C0: 62 1B 8F 20 2A 2A 20 49 4E 49 54 49 41 4C 49 53 |b.. ** INITIALIS|
000024D0: 41 54 49 45 20 2A 2A 00 EC 2C 6C 1B 99 22 57 49 |ATIE **..,l.."WI|
000024E0: 53 20 22 3B 3A 4D 4F 44 45 25 B2 33 00 10 2D 76 |S ";:MODE%.3..-v|
000024F0: 1B 8D 32 31 30 30 3A 8F 20 2A 20 56 4F 45 52 20 |..2100:. * VOER |
00002500: 56 4F 4F 52 57 41 41 52 44 45 4E 20 49 4E 20 2A |VOORWAARDEN IN *|
00002510: 00 1F 2D 80 1B 8B 46 4F 55 54 A7 37 30 38 30 00 |..-...FOUT.7080.|
00002520: 51 2D 8A 1B 99 22 93 11 20 2A 2A 2A 2A 2A 2A 2A |Q-...".. *******|
00002530: 2A 2A 2A 2A 2A 20 57 49 53 20 52 45 43 4F 52 44 |***** WIS RECORD|
00002540: 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 11 |S *************.|
00002550: 22 00 61 2D 94 1B 45 54 25 B2 30 3A 56 45 25 B2 |".a-..ET%.0:VE%.|
00002560: 30 00 6B 2D 9E 1B 8D 33 30 30 30 00 71 2D A8 1B |0.k-...3000.q-..|
00002570: 8E 00 A6 2D BC 1B 8F 20 2A 2A 20 52 45 53 50 4F |...-... ** RESPO|
00002580: 4E 53 49 45 20 4F 50 20 48 45 54 20 49 4E 44 52 |NSIE OP HET INDR|
00002590: 55 4B 4B 45 4E 20 56 41 4E 20 45 45 4E 20 54 4F |UKKEN VAN EEN TO|
000025A0: 45 54 53 20 2A 2A 00 B2 2D C6 1B 8B 59 B3 B1 31 |ETS **..-...Y..1|
000025B0: A7 8E 00 CB 2D D0 1B 8B 41 24 B3 B1 22 4A 22 A7 |....-...A$.."J".|
000025C0: 99 22 4E 22 3B 3A 89 37 31 39 30 00 D5 2D DA 1B |."N";:.7190..-..|
000025D0: 99 22 4A 22 3B 00 E4 2D E4 1B 81 4A B2 30 A4 42 |."J";..-...J.0.B|
000025E0: 52 25 AB 31 00 FD 2D EE 1B 43 43 25 B2 43 43 25 |R%.1..-..CC%.CC%|
000025F0: AB C3 28 44 41 54 24 28 58 2C 4A 29 29 00 05 2E |..(DAT$(X,J))...|
00002600: F8 1B 82 20 4A 00 0F 2E 02 1C 58 B2 58 AA 31 00 |... J.....X.X.1.|
00002610: 1D 2E 0C 1C 56 45 25 B2 56 45 25 AA 31 00 31 2E |....VE%.VE%.1.1.|
00002620: 16 1C 59 B2 30 3A 45 54 25 B2 45 54 25 AA 31 3A |..Y.0:ET%.ET%.1:|
00002630: 99 00 42 2E 20 1C 8F 20 2A 20 44 45 4C 45 54 45 |..B. .. * DELETE|
00002640: 20 2A 00 58 2E 2A 1C 8B 28 45 54 25 B1 B2 4C 50 | *.X.*..(ET%..LP|
00002650: 25 B0 59 B2 31 29 A7 8E 00 6F 2E 34 1C 81 49 B2 |%.Y.1)...o.4..I.|
00002660: 58 A4 4C 49 4A 53 54 25 28 45 54 25 29 AB 31 00 |X.LIJST%(ET%).1.|
00002670: 7E 2E 3E 1C 81 4A B2 30 A4 42 52 25 AB 31 00 9A |~.>..J.0.BR%.1..|
00002680: 2E 48 1C 44 41 54 24 28 49 AB 56 45 25 2C 4A 29 |.H.DAT$(I.VE%,J)|
00002690: B2 44 41 54 24 28 49 2C 4A 29 00 A6 2E 52 1C 82 |.DAT$(I,J)...R..|
000026A0: 20 4A 3A 82 20 49 00 B8 2E 5C 1C 58 B2 4C 49 4A | J:. I...\.X.LIJ|
000026B0: 53 54 25 28 45 54 25 29 00 CB 2E 66 1C 50 52 B2 |ST%(ET%)...f.PR.|
000026C0: 30 3A 53 53 25 B2 50 41 25 AA 31 00 F6 2E 70 1C |0:SS%.PA%.1...p.|
000026D0: 8D 34 34 33 30 3A 8F 20 2A 20 5A 45 54 20 47 45 |.4430:. * ZET GE|
000026E0: 47 45 56 45 4E 53 20 49 4E 20 48 45 54 20 53 43 |GEVENS IN HET SC|
000026F0: 48 45 52 4D 20 2A 00 0E 2F 7A 1C 99 22 11 57 49 |HERM *../z..".WI|
00002700: 53 53 45 4E 20 28 4A 2F 4E 29 20 3F 22 3B 00 20 |SSEN (J/N) ?";. |
00002710: 2F 84 1C 59 B2 31 3A 45 54 25 B2 45 54 25 AB 31 |/..Y.1:ET%.ET%.1|
00002720: 00 26 2F 8E 1C 8E 00 3D 2F 98 1C 8F 20 2A 20 4C |.&/....=/... * L|
00002730: 41 41 54 53 54 45 20 44 45 45 4C 20 2A 00 4A 2F |AATSTE DEEL *.J/|
00002740: A2 1C 8B 56 45 25 B2 30 A7 8E 00 57 2F AC 1C 81 |...VE%.0...W/...|
00002750: 49 B2 58 A4 4C 45 25 00 66 2F B6 1C 81 4A B2 30 |I.X.LE%.f/...J.0|
00002760: A4 42 52 25 AB 31 00 82 2F C0 1C 44 41 54 24 28 |.BR%.1../..DAT$(|
00002770: 49 AB 56 45 25 2C 4A 29 B2 44 41 54 24 28 49 2C |I.VE%,J).DAT$(I,|
00002780: 4A 29 00 93 2F CA 1C 44 41 54 24 28 49 2C 4A 29 |J)../..DAT$(I,J)|
00002790: B2 22 22 00 9D 2F D4 1C 82 4A 3A 82 49 00 B3 2F |.""../...J:.I../|
000027A0: DE 1C 4C 50 25 B2 30 3A 4C 45 25 B2 4C 45 25 AB |..LP%.0:LE%.LE%.|
000027B0: 56 45 25 00 B9 2F E8 1C 8E 00 CA 2F 40 1F 8F 20 |VE%../...../@.. |
000027C0: 2A 2A 20 53 41 56 45 20 2A 2A 00 D8 2F 4A 1F 99 |** SAVE **../J..|
000027D0: 22 53 41 56 45 20 22 3B 00 FF 2F 54 1F 8D 32 31 |"SAVE ";../T..21|
000027E0: 30 30 3A 8F 20 2A 20 56 4F 45 52 20 54 45 53 54 |00:. * VOER TEST|
000027F0: 56 45 45 52 57 41 41 52 44 45 20 49 4E 20 2A 00 |VEERWAARDE IN *.|
00002800: 0E 30 5E 1F 8B 46 4F 55 54 A7 38 32 39 30 00 40 |.0^..FOUT.8290.@|
00002810: 30 68 1F 99 22 93 11 20 2A 2A 2A 2A 2A 2A 2A 2A |0h..".. ********|
00002820: 2A 2A 2A 2A 2A 2A 20 53 41 56 45 20 2A 2A 2A 2A |****** SAVE ****|
00002830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 11 11 22 |*************.."|
00002840: 00 5E 30 72 1F 85 22 46 49 4C 45 4E 41 41 4D 2C |.^0r.."FILENAAM,|
00002850: 44 45 56 49 43 45 22 3B 46 24 2C 44 49 25 00 86 |DEVICE";F$,DI%..|
00002860: 30 7C 1F 8B 44 49 25 B2 38 A7 9F 33 2C 38 2C 33 |0|..DI%.8..3,8,3|
00002870: 2C 22 40 30 3A 22 AA 46 24 AA 22 2C 53 2C 57 22 |,"@0:".F$.",S,W"|
00002880: 3A 89 38 30 38 30 00 B1 30 86 1F 9F 33 2C 31 2C |:.8080..0...3,1,|
00002890: 31 2C 46 24 3A 8F 20 2A 20 4F 50 45 4E 20 46 49 |1,F$:. * OPEN FI|
000028A0: 4C 45 20 56 4F 4F 52 20 27 57 52 49 54 45 27 20 |LE VOOR 'WRITE' |
000028B0: 2A 00 CC 30 90 1F 99 22 1C 11 53 41 56 49 4E 47 |*..0..."..SAVING|
000028C0: 1F 22 3A 43 52 24 B2 C7 28 31 33 29 00 DE 30 9A |.":CR$..(13)..0.|
000028D0: 1F 4D 4F 44 45 25 B2 39 3A 8D 33 30 31 30 00 F3 |.MODE%.9:.3010..|
000028E0: 30 A4 1F 52 4E 25 B2 30 3A 81 4A B2 30 A4 50 41 |0..RN%.0:.J.0.PA|
000028F0: 25 AB 31 00 0F 31 AE 1F 59 B2 50 56 25 28 4A 29 |%.1..1..Y.PV%(J)|
00002900: 3A 8B 59 B1 32 35 35 A7 59 B2 59 AB 32 35 35 00 |:.Y.255.Y.Y.255.|
00002910: 33 31 B8 1F 50 56 25 28 4A 29 B2 B6 28 59 29 AB |31..PV%(J)..(Y).|
00002920: 31 3A 8B 52 4E 25 B2 B6 28 59 29 AB 31 A7 52 4E |1:.RN%..(Y).1.RN|
00002930: 25 B2 4A 00 3A 31 C2 1F 82 4A 00 54 31 CC 1F 43 |%.J.:1...J.T1..C|
00002940: 4F 55 4E 54 B2 30 3A 4C 49 4A 53 54 25 28 4C 50 |OUNT.0:LIJST%(LP|
00002950: 25 29 B2 30 00 61 31 D6 1F 81 49 B2 30 A4 4C 50 |%).0.a1...I.0.LP|
00002960: 25 00 70 31 E0 1F 81 4A B2 30 A4 50 41 25 AB 31 |%.p1...J.0.PA%.1|
00002970: 00 9A 31 EA 1F 43 4F 55 4E 54 B2 43 4F 55 4E 54 |..1..COUNT.COUNT|
00002980: AA C3 28 44 41 54 24 28 4C 49 4A 53 54 25 28 49 |..(DAT$(LIJST%(I|
00002990: 29 2C 50 56 25 28 4A 29 29 29 00 A4 31 F4 1F 82 |),PV%(J)))..1...|
000029A0: 4A 3A 82 49 00 CB 31 FE 1F 98 33 2C 43 4F 55 4E |J:.I..1...3,COUN|
000029B0: 54 3B 43 52 24 3B 4C 50 25 43 52 24 3B 50 41 25 |T;CR$;LP%CR$;PA%|
000029C0: 43 52 24 3B 52 4E 25 43 52 24 3B 00 DA 31 08 20 |CR$;RN%CR$;..1. |
000029D0: 81 4A B2 30 A4 50 41 25 AB 31 00 FE 31 12 20 41 |.J.0.PA%.1..1. A|
000029E0: 24 B2 44 41 54 24 28 30 2C 50 56 25 28 4A 29 29 |$.DAT$(0,PV%(J))|
000029F0: 3A 8B 41 24 B2 22 22 A7 41 24 B2 22 20 22 00 0E |:.A$."".A$." "..|
00002A00: 32 1C 20 98 33 2C 41 24 43 52 24 3A 82 4A 00 1D |2. .3,A$CR$:.J..|
00002A10: 32 26 20 81 49 B2 30 A4 4C 50 25 AB 31 00 2C 32 |2& .I.0.LP%.1.,2|
00002A20: 30 20 81 4A B2 30 A4 50 41 25 AB 31 00 58 32 3A |0 .J.0.PA%.1.X2:|
00002A30: 20 41 24 B2 44 41 54 24 28 4C 49 4A 53 54 25 28 | A$.DAT$(LIJST%(|
00002A40: 49 29 2C 50 56 25 28 4A 29 29 3A 8B 41 24 B2 22 |I),PV%(J)):.A$."|
00002A50: 22 A7 41 24 B2 22 20 22 00 66 32 44 20 98 33 2C |".A$." ".f2D .3,|
00002A60: 41 24 43 52 24 3B 00 70 32 4E 20 82 4A 3A 82 49 |A$CR$;.p2N .J:.I|
00002A70: 00 77 32 58 20 A0 33 00 7D 32 62 20 8E 00 A3 32 |.w2X .3.}2b ...2|
00002A80: 34 21 8F 20 2A 2A 20 4C 4F 41 44 20 45 45 4E 20 |4!. ** LOAD EEN |
00002A90: 43 4F 4D 50 4C 45 45 54 20 42 45 53 54 41 4E 44 |COMPLEET BESTAND|
00002AA0: 20 2A 2A 00 A9 32 3E 21 9C 00 DC 32 48 21 99 22 | **..2>!...2H!."|
00002AB0: 93 11 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00002AC0: 2A 2A 20 4C 4F 41 44 20 2A 2A 2A 2A 2A 2A 2A 2A |** LOAD ********|
00002AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 11 11 22 00 FA 32 52 |*********.."..2R|
00002AE0: 21 85 22 46 49 4C 45 4E 41 41 4D 2C 44 45 56 49 |!."FILENAAM,DEVI|
00002AF0: 43 45 22 3B 46 24 2C 44 49 25 00 1C 33 5C 21 8B |CE";F$,DI%..3\!.|
00002B00: 44 49 25 B2 38 A7 9F 33 2C 38 2C 33 2C 46 24 AA |DI%.8..3,8,3,F$.|
00002B10: 22 2C 53 2C 52 22 3A 89 38 35 37 30 00 44 33 66 |",S,R":.8570.D3f|
00002B20: 21 9F 33 2C 31 2C 30 2C 46 24 3A 8F 20 2A 20 4F |!.3,1,0,F$:. * O|
00002B30: 50 45 4E 20 46 49 4C 45 20 56 4F 4F 52 20 52 45 |PEN FILE VOOR RE|
00002B40: 41 44 20 2A 00 56 33 7A 21 99 22 1C 11 4C 4F 41 |AD *.V3z!."..LOA|
00002B50: 44 49 4E 47 1F 22 00 6D 33 84 21 84 33 2C 43 43 |DING.".m3.!.3,CC|
00002B60: 25 2C 4C 45 25 2C 42 52 25 2C 52 41 25 00 8F 33 |%,LE%,BR%,RA%..3|
00002B70: 8E 21 59 B2 32 35 30 30 30 AB 43 43 25 AB 28 42 |.!Y.25000.CC%.(B|
00002B80: 52 25 AC 33 AA 32 29 AC 28 4C 45 25 AA 31 29 00 |R%.3.2).(LE%.1).|
00002B90: AB 33 98 21 4D 4C 25 B2 4C 45 25 AA B5 28 59 AD |.3.!ML%.LE%..(Y.|
00002BA0: 28 31 33 AC 42 52 25 AA 32 29 29 00 DB 33 A2 21 |(13.BR%.2))..3.!|
00002BB0: 43 4D 25 B2 43 43 25 AA B5 28 59 AB 59 AC 28 33 |CM%.CC%..(Y.Y.(3|
00002BC0: AC 42 52 25 AA 32 29 AD 28 31 33 AC 42 52 25 AA |.BR%.2).(13.BR%.|
00002BD0: 32 29 29 3A 4D 42 25 B2 42 52 25 00 FE 33 AC 21 |2)):MB%.BR%..3.!|
00002BE0: 86 4C 49 4A 53 54 25 28 4D 4C 25 AB 31 29 2C 44 |.LIJST%(ML%.1),D|
00002BF0: 41 54 24 28 4D 4C 25 2C 4D 42 25 AB 31 29 00 0B |AT$(ML%,MB%.1)..|
00002C00: 34 B6 21 81 49 B2 30 A4 4C 45 25 00 1A 34 C0 21 |4.!.I.0.LE%..4.!|
00002C10: 81 4A B2 30 A4 42 52 25 AB 31 00 2B 34 CA 21 84 |.J.0.BR%.1.+4.!.|
00002C20: 33 2C 44 41 54 24 28 49 2C 4A 29 00 4B 34 D4 21 |3,DAT$(I,J).K4.!|
00002C30: 8B 44 41 54 24 28 49 2C 4A 29 B2 22 20 22 A7 44 |.DAT$(I,J)." ".D|
00002C40: 41 54 24 28 49 2C 4A 29 B2 22 22 00 52 34 DE 21 |AT$(I,J)."".R4.!|
00002C50: 82 4A 00 59 34 E8 21 82 49 00 60 34 F2 21 A0 33 |.J.Y4.!.I.`4.!.3|
00002C60: 00 6A 34 FC 21 5A 5A 25 B2 31 00 73 34 06 22 89 |.j4.!ZZ%.1.s4.".|
00002C70: 31 31 30 00 94 34 28 23 8F 20 2A 2A 20 44 49 52 |110..4(#. ** DIR|
00002C80: 45 43 54 4F 52 59 20 56 41 4E 20 53 43 48 49 4A |ECTORY VAN SCHIJ|
00002C90: 46 20 2A 2A 00 C6 34 32 23 99 22 93 11 20 2A 2A |F **..42#.".. **|
00002CA0: 2A 2A 2A 2A 2A 2A 20 44 49 52 45 43 54 4F 52 59 |****** DIRECTORY|
00002CB0: 20 56 41 4E 20 53 43 48 49 4A 46 20 2A 2A 2A 2A | VAN SCHIJF ****|
00002CC0: 2A 2A 2A 2A 11 22 00 E0 34 3C 23 9F 20 34 2C 38 |****."..4<#. 4,8|
00002CD0: 2C 30 2C 22 24 22 3A A1 23 34 2C 41 24 2C 42 24 |,0,"$":.#4,A$,B$|
00002CE0: 00 F8 34 46 23 A1 23 34 2C 41 24 2C 42 24 3A A1 |..4F#.#4,A$,B$:.|
00002CF0: 23 34 2C 41 24 2C 42 24 00 10 35 50 23 43 B2 30 |#4,A$,B$..5P#C.0|
00002D00: 3A 8B 41 24 B3 B1 22 22 A7 43 B2 C6 28 41 24 29 |:.A$.."".C..(A$)|
00002D10: 00 2A 35 5A 23 8B 42 24 B3 B1 22 22 A7 43 B2 43 |.*5Z#.B$.."".C.C|
00002D20: AA C6 28 42 24 29 AC 32 35 36 00 43 35 64 23 99 |..(B$).256.C5d#.|
00002D30: 22 20 20 22 3B CA 28 C4 28 43 29 2C 32 29 3B A3 |" ";.(.(C),2);.|
00002D40: 37 29 3B 00 5A 35 6E 23 A1 23 34 2C 42 24 3A 8B |7);.Z5n#.#4,B$:.|
00002D50: 53 54 B3 B1 30 A7 39 31 35 30 00 6E 35 78 23 8B |ST..0.9150.n5x#.|
00002D60: 42 24 B3 B1 C7 28 33 34 29 A7 39 30 37 30 00 8F |B$...(34).9070..|
00002D70: 35 82 23 A1 23 34 2C 42 24 3A 8B 42 24 B3 B1 C7 |5.#.#4,B$:.B$...|
00002D80: 28 33 34 29 A7 99 42 24 3B 3A 89 39 30 39 30 00 |(34)..B$;:.9090.|
00002D90: A9 35 8C 23 A1 23 34 2C 42 24 3A 8B 42 24 B2 C7 |.5.#.#4,B$:.B$..|
00002DA0: 28 33 32 29 A7 39 31 30 30 00 BA 35 96 23 99 A3 |(32).9100..5.#..|
00002DB0: 32 35 29 3B 3A 43 24 B2 22 22 00 DB 35 A0 23 43 |25);:C$.""..5.#C|
00002DC0: 24 B2 43 24 AA 42 24 3A A1 23 34 2C 42 24 3A 8B |$.C$.B$:.#4,B$:.|
00002DD0: 42 24 B3 B1 22 22 A7 39 31 32 30 00 E9 35 AA 23 |B$.."".9120..5.#|
00002DE0: 99 20 C8 28 43 24 2C 33 29 00 F8 35 B4 23 8B 53 |. .(C$,3)..5.#.S|
00002DF0: 54 B2 30 A7 39 30 33 30 00 0E 36 BE 23 99 22 20 |T.0.9030..6.#." |
00002E00: 56 52 49 4A 45 20 42 4C 4F 4B 4B 45 4E 22 00 38 |VRIJE BLOKKEN".8|
00002E10: 36 C8 23 A0 20 34 3A 99 3A 99 22 20 47 45 45 46 |6.#. 4:.:." GEEF|
00002E20: 20 28 43 52 29 20 4F 4D 20 56 45 52 44 45 52 20 | (CR) OM VERDER |
00002E30: 54 45 20 47 41 41 4E 22 00 4C 36 D2 23 A1 41 24 |TE GAAN".L6.#.A$|
00002E40: 3A 8B 41 24 B2 22 22 A7 39 31 37 30 00 52 36 DC |:.A$."".9170.R6.|
00002E50: 23 8E 00 70 36 F0 23 8F 20 2A 2A 20 53 43 48 49 |#..p6.#. ** SCHI|
00002E60: 4A 46 42 45 57 45 52 4B 49 4E 47 45 4E 20 2A 2A |JFBEWERKINGEN **|
00002E70: 00 81 36 FA 23 99 22 20 3E 22 3B 3A 8D 32 30 31 |..6.#." >";:.201|
00002E80: 30 00 95 36 04 24 9F 20 31 35 2C 38 2C 31 35 2C |0..6.$. 15,8,15,|
00002E90: 54 45 53 54 24 00 A2 36 0E 24 84 31 35 2C 53 2C |TEST$..6.$.15,S,|
00002EA0: 53 24 00 BF 36 18 24 99 3A 99 22 20 53 43 48 49 |S$..6.$.:." SCHI|
00002EB0: 4A 46 53 54 41 54 55 53 20 3A 20 22 3B 53 24 00 |JFSTATUS : ";S$.|
00002EC0: C7 36 22 24 A0 31 35 00 CD 36 2C 24 8E 00 F5 36 |.6"$.15..6,$...6|
00002ED0: 10 27 85 22 57 45 4C 4B 45 20 44 41 54 55 4D 20 |.'."WELKE DATUM |
00002EE0: 49 53 20 48 45 54 28 44 44 2D 4D 4D 2D 4A 4A 29 |IS HET(DD-MM-JJ)|
00002EF0: 22 3B 44 31 24 00 0F 37 15 27 8B 20 C8 28 44 31 |";D1$..7.'. .(D1|
00002F00: 24 2C 32 29 B1 22 33 31 22 A7 31 30 30 30 30 00 |$,2)."31".10000.|
00002F10: 2C 37 1A 27 8B 20 CA 28 44 31 24 2C 34 2C 32 29 |,7.'. .(D1$,4,2)|
00002F20: B1 22 31 32 22 A7 20 31 30 30 30 30 00 46 37 1F |."12". 10000.F7.|
00002F30: 27 8B 20 C9 28 44 31 24 2C 32 29 B3 22 38 35 22 |'. .(D1$,2)."85"|
00002F40: A7 31 30 30 30 30 00 50 37 24 27 9F 20 31 2C 34 |.10000.P7$'. 1,4|
00002F50: 00 8A 37 29 27 98 31 2C C7 28 31 34 29 C7 28 31 |..7)'.1,.(14).(1|
00002F60: 36 29 3B 22 31 30 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |6);"10**********|
00002F70: 2A 2A 2A 52 49 4A 4B 53 57 45 52 46 2A 2A 2A 2A |***RIJKSWERF****|
00002F80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 C4 37 2E 27 98 |*********"..7.'.|
00002F90: 31 2C C7 28 31 34 29 C7 28 31 36 29 3B 22 31 30 |1,.(14).(16);"10|
00002FA0: 42 45 44 52 49 4A 46 53 53 43 48 4F 4F 4C 20 41 |BEDRIJFSSCHOOL A|
00002FB0: 46 44 2E 20 45 4C 45 43 54 52 4F 54 45 43 48 4E |FD. ELECTROTECHN|
00002FC0: 49 45 4B 22 00 F3 37 33 27 98 31 2C C7 28 31 34 |IEK"..73'.1,.(14|
00002FD0: 29 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |)" |
00002FE0: 20 20 44 41 54 55 4D 2E 22 3B 44 31 24 3B C7 28 | DATUM.";D1$;.(|
00002FF0: 31 35 29 00 FB 37 38 27 A0 20 31 00 01 38 42 27 |15)..78'. 1..8B'|
00003000: 8E 00 00 00 |.... |
....N.. ** DATABASE **.3.X.. ** DOOR J.R
IBBERINK **.J.... ** VERSIE 1.2 **.D....
** INITIALISATIE **... .. 53280,1 : . *
SCHERMRAND WIT *...... 53281,1 : . * AC
HTERGROND WIT.J...."." : . * TEKST BLAUW
*...... SL%(10,2),PV%(23)...H.. * DISPL
AY MENU *.).R..".. ************** DATABA
SE **************.R....".. AANTAL VRIJE
KARAKTERS:"CM%.CC%.G....". HOOFDMENU :".
.....". N : MAAK EEN NIEUW DATABLOK"....
.." I : INSERT EEN NIEUW RECORD".K...."
W : WIS EEN RECORD"......" V : VERANDER
GEGEVENS VAN EEN RECORD".!.".." T : PRIN
T GEGEVENS OP HET SCHERM".J.,.." P : PRI
NT GEGEVENS OP DE PRINTER".[.6.." S : SA
VE".L.@.." L : LOAD"...T.." R : SORTEER
HET DATABLOK"...^.." M : DRUK MENU AF".G
.H.." $ : DIRECTORY VAN SCHIJF"...R.." >
: BEWERKING OP SCHIJF"...|.." E : EXIT"
...... ** MENU **......". OPDRACHT?".5..
.. A$ : . A$."" . 410.?.... 450.R.... A$
."M" . 210.\.... 400.P.B.. A$."N" . 1010
...L.. A$."P" . 4105...V.. A$."T" . 4010
...... A$."I" . 6510...... A$."W" . 7010
.T.... A$."V" . 6010...... A$."S" . 8010
...... A$."L" . 8510...... A$."R" . 5010
.!.... A$."E" . ..5.&.. A$."$" . 9000.I.
0.. A$.">" . 9210.O.:...O.... ** NIEUW B
ESTAND MAKEN **. ....".. ************ NI
EUW BESTAND ***********"...... ZZ%..0 .
1130.P....".. AANTAL VELDEN";MB%.....Y.2
4998.3.MB% : ML%..(Y.(13.MB%.2)):CM%..(Y
.Y.(3.MB%.2).(13.MB%.2)).A...ZZ%.1:.DAT$
(ML%,MB%.1),LIJST%(ML%.1).S.$.. I.0 . MB
%.1.J...." VELDNAAM";I.1;.Z.8.. DAT$(0,
I)...B.CC%.CC%.C(DAT$(0,I))...L.. I...V.
LE%.0:BR%.MB%:RA%.1...`.....J..".. ER ST
AAT AL EEN BESTAND IN"...T.." HET GEHEUG
EN."...~.." MOET DIT GEWIST WORDEN? (J/N
)";.0.... A$:.A$."".1160.D....A$."J"..:.
1010.U....A$."N". 110._....1020.~.P.. **
VOER TESTSTRING IN **...Z.TEST$."" : FO
UT.0 : . 2030.....TEST$.TEST$.A$:."."A$;
.H...I.0:.". .";...... A$:.(A$.." " . A$
.."_" ).A$.."^" . 2020...... A$.G(20) .
TEST$."".2040.N....A$.G(20) . .". ..";:T
EST$.H(TEST$,C(TEST$).1):.2030.E...I.I.1
:.I.17..". ";.}.... I.35..".. .";:I.0...
..A$..G(13).2040...%.....*.. ** CONVERT
EER TESTSTRING **.P.4.. 2010:.:I.1:LP%.0
...>..J.0.23:PV%(J).0:....H.B$."":C$."":
SB%.1:SE%.LE%.,.R.A$.J(TEST$,I,1):I.I.1:
.A$." ".2130.S.\..(A$."".A$." ".A$.";".A
$."_").2200.E.F..A$.."-".2190.O.P..3700.
..Z..J..255.SB%.E(B$):C$.B$.A$:B$."":A$.
""......SB%..0.SB%.1.U...B$.B$.A$:A$.J(T
EST$,I,1):I.I.1:.2140...... 3700......J.
255.B$.C$.B$:SB%.1:.2250......J.255.SE%.
E(B$).3....C$.""..TEST$.."".SB%.SE%.>...
. 3800.F.J.X.0.F.T..B$."NO".PV%(0).0:X.1
:.3800...Y..B$."ALS".SA%.0:.2330...... A
$.";".PV%(X.1).511...... A$."_".PV%(X.1)
.255...... 3900......J..255.PV%(X).PV%(X
).Y.1:X.X.1:.3800:.2265...... * B$ IS NU
NAAM VAN 1E VARIABELE *.0.... B$."".SA%
.0:.2340.[...SL%(0,0).1:SL%(0,1).0:SL%(0
,2).0:SA%.1.....SV$(0).B$.A$.J(TEST$,I,C
(TEST$))...$.. * MAAK TESTARRAY LEEG *..
....J.SA%.10...8..Y.0.2.F.B.SL%(J,Y).0.Z
.L..Y:SV$(J)."":.J...V.. ** ZET VARIABEL
EN VOOR PRINT/TYPE **...`..X..0.PA%.X:.2
440.'.J.PA%.BR%.:.T..BR%.24.PA%.24.U.~..
X.1.PA%:PV%(X.1).X:.X.]...X.0.....A$.J(T
EST$,I,1):I.I.1:.A$." ".2450......A$."".
......J.1.O.... A$."(".X.X.1.J:SL%(X,1)
.SL%(X,1).4:X.X.1:.2450.....B$."":SA%.X.
1...D.B$.B$.A$...N.A$.J(TEST$,I,1)...X.I
.I.1......A$." ".2510.;....A$."=". SL%(X
,0).1:.2590.Y....A$.">". SL%(X,0).2:.259
0.W....A$."<". SL%(X,0).3:.2590......A$.
"". ."..TEST-ERROR." :.2900......2500:.
* VOLGEND KARAKTER *.P...A$.J(TEST$,I,1)
...(.. A$.">".I.I.1:SL%(X,0).4...2..A$."
=".I.I.1:SL%(X,0).SL%(X,0).3.7.<..3900:.
* TEST OF B$=VARNAAM *.F.F..J.255.."..V
ELD "B$"IS NIET BEKEND.":.2900.U.P.SL%(X
,2).Y..Z.C$.""...D.B$.""...N.A$.J(TEST$
,I,1)...X.I.I.1.C....A$." ".C$.C$." ":.2
670.T....A$.")".2800.......(A$." ".A$."(
".A$."").B$.B$.A$:A$.J(TEST$,I,1):I.I.1:
.2700.<. ..B$."EN".SL%(X,1).SL%(X,1).1:.
2840.C....B$."OF".SL%(X,1).SL%(X,1).2:.2
840......SV$(X)."".SV$(X).B$:.2760.....S
V$(X).SV$(X).C$.B$...H..A$.."".C$." ":.2
660...R.B$.SV$(X):.3700:. * TEST OF B$=G
ETAL *......J.255.SL%(X,0).SL%(X,0).6...
.........SL%(X,1).7.X.X.1.2...SL%(X,1).8
:SA%.SA%.1.R....B$.."".SV$(X).SV$(X).C$.
B$.\....2650.....B$.SV$(X):.3700:. * TES
T OF STRING=GETAL *..."..J.255.SL%(X,0).
SL%(X,0).6...,.X.X.1:J.0.J.6..A$." ".A$.
"".T.@..2480...J.. ** ERROR **...T.FOUT.
.1:..,.... ** ZOEK RECORDS DIE AAN DE VO
ORWAARDEN VOLDOEN **.=.B..LP%..0.3420.R.
L..SE%.LE%.SE%.LE%.B.V..EL.SB%.SE%.T...T
S%(0)..1:J.1......I.0.SA%.1.M....SL%(I,0
).3080,3090,3100,3110,3120,3130,3140,315
0,3160,3170,3180,3190.....TS%(J)..1:.330
0.....TS%(J).(DAT$(EL,SL%(I,2)).SV$(I)):
.3300.9...TS%(J).(DAT$(EL,SL%(I,2)).SV$(
I)):.3300.E...TS%(J).(DAT$(EL,SL%(I,2)).
SV$(I)):.3300...&.TS%(J).(DAT$(EL,SL%(I,
2))..SV$(I)):.3300...0.TS%(J).(DAT$(EL,S
L%(I,2))..SV$(I)):.3300...:.TS%(J).(DAT$
(EL,SL%(I,2))..SV$(I)):.3300...D.TS%(J).
(E(DAT$(EL,SL%(I,2))).E(SV$(I))):.3300.P
.N.TS%(J).(E(DAT$(EL,SL%(I,2))).E(SV$(I)
)):.3300...X.TS%(J).(E(DAT$(EL,SL%(I,2))
).E(SV$(I))):.3300...B.TS%(J).(E(DAT$(EL
,SL%(I,2)))..E(SV$(I))):.3300...L.TS%(J)
.(E(DAT$(EL,SL%(I,2)))..E(SV$(I))):.3300
...V.TS%(J).(E(DAT$(EL,SL%(I,2)))..E(SV$
(I))):.3300.J.... 3500:. * BEREKENING VA
N TESTVOORWAARDE *.`....SL%(I,1).7..3500
.....TS%(J).TS%(J).2.(SL%(I,1).3).....J.
J.1......(SL%(I,1).4).4.TS%(J)..1:J.J.1.
.....I... ..TS%(0)..1..3600:. * TEST=TRU
E *...4..A$:.A$.."".. MODE%.4210,4310,71
10,6110...>.. EL.$.H.. ET%..LP%.3450.B.R
..MODE%..9..A$:.A$."".3410.B.\.. MODE%.4
210,4310,7110,6110.Z.F.. MODE%.9.ET%.ET%
.1...P..3400...Z.. MODE%.3..7320.......H
.... ** BEREKENING VAN TESTVOORWAARDE **
.R...J.J.1......TS%(J)..0.TS%(J).TS%(J.1
):....J..TS%(J).3.TS%(J).(TS%(J).2).TS%(
J.1):..?.T.TS%(J).(TS%(J).4).TS%(J.1):..
Z.... ** RECORD GEVONDEN DAT AAN DE VOOR
WAARDEN VOLDOET **.....LIJST%(LP%).EL...
$.LP%.LP%.1...... MODE%.4420,4310,7200,6
210.A.8.....T.. ** TEST OF DE HELE STRIN
G UIT GETALLEN BESTAAT **...~..B$."".J.2
55:....... J.1.C(B$).E....(J(B$,J,1)."0"
.J(B$,J,1)."9").J.255.M.... J.S.....F.X.
. ** GET B$ **.P...B$."".....A$.J(TEST$,
I,1):I.I.1:.A$." ".3820......(A$." ".A$.
";".A$."".A$."_")...H...B$.B$.A$.....A$.
J(TEST$,I,1).....I.I.1......3830...<.. *
* TEST OF B$=VARNAAM **...F..J.0.BR%.1.K
.P..B$..""..B$.H(DAT$(0,J),C(B$)).Y.J:J.
255.S.Z.. J.Y.D...J. .. ** TYPE **.....M
ODE%.1:."TYPE ";......2100:. * VOER TEST
VOORWAARDEN IN *......FOUT.4080...H.."..
**************** TYPE ****************.
.".. R.PR.0:. * FLAG : 'TYPE OP SCHERM'
*.[ ..SS%.24:ET%.0:. * START BIJ 1E ELEM
ENT UIT DE LIJST ; SCHERM IS 'VRIJ'.. ..
.3000:. * ZOEK, MAAK LIJST EN TYPE OP SC
HERM *.. ...:.4110.. ... ** PRINT **.. .
.. 10000.G ..."PRINT ";.S ..MODE%.2.. ".
. 2100:. * VOER TESTVOORWAARDEN IN *..!,
..FOUT.4180.=!6..".. *************** PRI
NT ***************..".G!@.PR..1:. * FLAG
: 'PRINT OP PRINTER' *..!J..4060:. * DR
UK ALLES AF *..!T....!H.. * 'PRINTMENU'
*..!R..A$.".".SS%.24:.4410..!|..A$.".".E
T%.ET%.2:SS%.PA%:.4410..!...A$."^".MODE%
.2:.4310.."...A$."*"..".":ET%.0:SS%.24:.
4410.U"...A$."_".EL.ML%.1:ET%.LP%.1:. *
RETURN TO HOOFDMENU *.["...."L.. ** DRU
K ALLES NA ELKAAR AF **.."V.SS%.PA%.."..
.A$:.A$.."".MODE%.1:SS%.0:.4210.Z"...441
0:. * DRUK EEN AANTAL RECORDS AF *.."...
ET%.LP%.4310..".....#0.. ** DRUK EEN AAN
TAL RECORDS AF **.*#:..ET%.0.ET%.0.9#D..
SS%.PA%...J#N..PR..2,4:. 2.B#X.. I.PA%.1
.SS%.PA%.1.{#B..ET%..LP%.I.30:.4620..#L.
X.LIJST%(ET%)..#V.."."..#..Y.PV%(0)..#..
.Y.0.."NO.:"X;:.4520..#...Y..255.Y.Y.255
:.DAT$(0,Y.1)":";..#....0):.DAT$(X,Y.1);
..$...".";..$...PA%..1.4610."$...J.1.PA%
.1.Q$F.Y.PV%(J):.Y..511.Y.Y.511:I.I.1:."
";:.4570.]$P..:..3);..$Z..Y..255.Y.Y.25
5:.DAT$(0,Y.1)":";..$...DAT$(X,Y.1);..$.
.. J..$.....$..ET%.ET%.1:SS%.SS%.I.B$...
I.T$...PR..2,"";: 2.Z$ ....$... ** SORT
EREN **. %...".. ************** SORTEREN
**************".F%...". NAAM VAN HET GE
GEVEN WAAROP ".J%..." GERANGSCHIKT MOET
WORDEN";A$.Y%...I.0.BR%.1..%...A$.DAT$(0
,I).X.I:I.BR%..%D.. I..%X.JUMP.LE%..%...
JUMP..1.5210.O%..JUMP..(JUMP.2)..%..VERW
ISSELD..1..%...J.1.(LE%.JUMP)..&..I.J.JU
MP.!&...DAT$(J,X)..DAT$(I,X).5180.0&...K
.0.BR%.1.B&(.H$.DAT$(I,K):DAT$(I,K).DAT$
(J,K):DAT$(J,K).H$.W&2.. K:VERWISSELD.0.
&<.. J..&F.. VERWISSELD.5090. &P.. 5110
..&Z...V&P.. ** VERANDER DE GEGEVENS VAN
EEN RECORD **..&Z.. ** INITIALISATIE **
..'..."VERANDER ";.''...2100:. * VOER TE
STGEGEVENS IN *.8'... FOUT .6080.N'..ET%
.0:Y.1:MODE%.4.X'...3000.^'....D'.....'T
.. ** RESPONSIE OP INGEDRUKTE TOETSEN **
..'...A$.".".6450..'...A$.".".6310.J'...
A$."-".B$."":.6420..'...A$."+".6410..'..
...(8.. ** PRINT OUDE RECORDGEGEVENS OP
HET SCHERM **.+(B..(Y.0.ET%..LP%)...](L.
.".. *********** VERANDER RECORD *******
***.".M(V.. J.0.BR%.1..(`..DAT$(0,J)": "
DAT$(LIJST%(ET%),J)..(J.. J..(T.Y.0:X.0.
C(~.."....."DAT$(0,X)"? .";.I(.....(...
** VORIG GEGEVEN **..(..X.X.1..(...X.0.X
.0:...)...X.BR%.2...%)D..:."."DAT$(0,X.1
)": ".?)N.."..."DAT$(0,X)"? .";.E)X...B)
... ** VERANDER GEGEVEN **.V)..."..";B$
:.".";..)..CC%.CC%.C(DAT$(LIJST%(ET%),X)
)..)..DAT$(LIJST%(ET%),X).B$.P)(.. ** VO
LGEND GEGEVEN **..)2..:."."DAT$(0,X)": "
..)<.X.X.1.,*F..X.BR%.1.X.0:ET%.ET%.1:Y.
1:.6210:. * VOLGEND RECORD *.D*P.."."DAT
$(0,X)"? .";.J*Z...H*D.. ** INSERT EEN R
ECORD **.V*N.LE%.LE%.1..*X..LE%.ML%.."..
DATAGEHEUGEN IS VOL.":LE%.ML%:..Y*..."..
*************** INSERT ***************.
"..*...I.0.BR%.1..*...DAT$(0,I);..+ .A$.
"":.A$..+..J%.C(A$).H+...CC%.J%.CM%..".D
ATAGEHEUGEN IS VOL.":I.255:.6600.F+..CC%
.CC%.J%:DAT$(LE%,I).A$.N+H.. I.{+R..RA%.
0....+..A$.DAT$(LE%,.(RA%).1)..+...RA%.0
.6720..+...LE%.1...E+...EL.LE%.1.1..1..+
...DAT$(EL,RA%.1)..A$.EL.0:.6700..+...I.
0.BR%.1.1,..B$.DAT$(EL,I):DAT$(EL,I).DAT
$(EL.1,I):DAT$(EL.1,I).B$.9,".. I.B,,..
EL.H,6...T,@.X.E(A$).G,J..EL.LE%.1.1..1.
.,T..E(DAT$(EL,.(RA%).1))..X.EL.0:.6700.
.,^..6670..,X.. ** WIS EEN COMPLEET RECO
RD **.W,B.. ** INITIALISATIE **..,L.."WI
S ";:MODE%.3..-V..2100:. * VOER VOORWAAR
DEN IN *..-...FOUT.7080.Q-...".. *******
***** WIS RECORDS *************.".A-..ET
%.0:VE%.0.K-...3000.Q-.....-... ** RESPO
NSIE OP HET INDRUKKEN VAN EEN TOETS **..
-F..Y..1...K-P..A$.."J".."N";:.7190.U-Z.
."J";..-...J.0.BR%.1..-..CC%.CC%.C(DAT$(
X,J))...... J.....X.X.1.....VE%.VE%.1.1.
..Y.0:ET%.ET%.1:..B. .. * DELETE *.X.*..
(ET%..LP%.Y.1)...O.4..I.X.LIJST%(ET%).1.
~.>..J.0.BR%.1...H.DAT$(I.VE%,J).DAT$(I,
J)...R.. J:. I...\.X.LIJST%(ET%).K.F.PR.
0:SS%.PA%.1...P..4430:. * ZET GEGEVENS I
N HET SCHERM *../Z..".WISSEN (J/N) ?";.
/..Y.1:ET%.ET%.1.&/....=/... * LAATSTE D
EEL *.J/...VE%.0...W/...I.X.LE%.F/...J.0
.BR%.1../..DAT$(I.VE%,J).DAT$(I,J)../J.D
AT$(I,J).""../T..J:.I../..LP%.0:LE%.LE%.
VE%../....J/@.. ** SAVE **.X/J.."SAVE ";
../T..2100:. * VOER TESTVEERWAARDE IN *.
.0^..FOUT.8290.@0H..".. ************** S
AVE *****************..".^0R.."FILENAAM,
DEVICE";F$,DI%..0|..DI%.8..3,8,3,"@0:".F
$.",S,W":.8080..0...3,1,1,F$:. * OPEN FI
LE VOOR 'WRITE' *.L0..."..SAVING.":CR$.G
(13)..0..MODE%.9:.3010..0..RN%.0:.J.0.PA
%.1..1..Y.PV%(J):.Y.255.Y.Y.255.31..PV%(
J)..(Y).1:.RN%..(Y).1.RN%.J.:1B..J.T1L.C
OUNT.0:LIJST%(LP%).0.A1V..I.0.LP%.P1...J
.0.PA%.1..1..COUNT.COUNT.C(DAT$(LIJST%(I
),PV%(J)))..1...J:.I.K1...3,COUNT;CR$;LP
%CR$;PA%CR$;RN%CR$;.Z1. .J.0.PA%.1..1. A
$.DAT$(0,PV%(J)):.A$."".A$." "..2. .3,A$
CR$:.J..2& .I.0.LP%.1.,20 .J.0.PA%.1.X2:
A$.DAT$(LIJST%(I),PV%(J)):.A$."".A$." "
.F2D .3,A$CR$;.P2N .J:.I.W2X 3.}2B ...2
4!. ** LOAD EEN COMPLEET BESTAND **..2>!
...2H!.".. *************** LOAD ********
*********.."..2R!."FILENAAM,DEVICE";F$,D
I%..3\!.DI%.8..3,8,3,F$.",S,R":.8570.D3F
!.3,1,0,F$:. * OPEN FILE VOOR READ *.V3Z
!."..LOADING.".M3.!.3,CC%,LE%,BR%,RA%..3
.!Y.25000.CC%.(BR%.3.2).(LE%.1)..3.!ML%.
LE%..(Y.(13.BR%.2))..3.!CM%.CC%..(Y.Y.(3
.BR%.2).(13.BR%.2)):MB%.BR%..3.!.LIJST%(
ML%.1),DAT$(ML%,MB%.1)..4.!.I.0.LE%..4.!
.J.0.BR%.1.+4J!.3,DAT$(I,J).K4T!.DAT$(I,
J)." ".DAT$(I,J)."".R4.!.J.Y4.!.I.`4.! 3
.J4.!ZZ%.1.S4.".110..4(#. ** DIRECTORY V
AN SCHIJF **.F42#.".. ******** DIRECTORY
VAN SCHIJF ********."..4<#. 4,8,0,"$":.
#4,A$,B$..4F#.#4,A$,B$:.#4,A$,B$..5P#C.0
:.A$.."".C.F(A$).*5Z#.B$.."".C.C.F(B$).2
56.C5D#." ";J(D(C),2);.7);.Z5N#.#4,B$:.
ST..0.9150.N5X#.B$..G(34).9070..5.#.#4,B
$:.B$..G(34)..B$;:.9090..5.#.#4,B$:.B$.G
(32).9100..5.#..25);:C$.""..5 #C$.C$.B$:
.#4,B$:.B$.."".9120..5.#. H(C$,3)..5.#.S
T.0.9030..6.#." VRIJE BLOKKEN".86H# 4:.
:." GEEF (CR) OM VERDER TE GAAN".L6R#.A$
:.A$."".9170.R6.#..P6.#. ** SCHIJFBEWERK
INGEN **..6.#." >";:.2010..6.$. 15,8,15,
TEST$..6.$.15,S,S$..6.$.:." SCHIJFSTATUS
: ";S$.G6"$ 15.M6,$...6.'."WELKE DATUM
IS HET(DD-MM-JJ)";D1$..7.'. H(D1$,2)."31
".10000.,7.'. J(D1$,4,2)."12". 10000.F7.
'. I(D1$,2)."85".10000.P7$'. 1,4..7)'.1,
G(14)G(16);"10*************RIJKSWERF****
*********".D7.'.1,G(14)G(16);"10BEDRIJFS
SCHOOL AFD. ELECTROTECHNIEK"..73'.1,G(14
)" DATUM.";D1$;G(15)..78'
1..8B'....
> CLICK IMAGE PREVIEW FOR FULL MODAL