DATABASE
FILE INFORMATION
FILENAME(S): DATABASE
FILE TYPE(S): PRG
FILE SIZE: 12.3K
FIRST SEEN: 2025-11-30 21:28:18
APPEARS ON: 1 disk(s)
FILE HASH
1b079c00c43e8885f7a94f120a3d433fc3e702142c4e13f102847b49b1f819aa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D 64016 | DATABASE | PRG | DuncanTwain | 16 | 11 | 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 87 08 A0 00 97 20 35 33 32 38 30 |E **...... 53280|
00000070: 2C 31 3A 20 8F 20 2A 2A 53 43 48 45 52 4D 52 41 |,1: . **SCHERMRA|
00000080: 4E 44 4B 4C 45 55 52 00 95 08 AA 00 97 20 35 33 |NDKLEUR...... 53|
00000090: 32 38 31 2C 31 00 AE 08 B4 00 99 22 1F 22 20 3A |281,1......"." :|
000000A0: 20 8F 20 54 45 4B 53 54 20 42 4C 41 55 57 00 C6 | . TEKST BLAUW..|
000000B0: 08 BE 00 86 20 53 4C 25 28 31 30 2C 32 29 2C 50 |.... SL%(10,2),P|
000000C0: 56 25 28 32 33 29 00 DF 08 C8 00 8F 20 2A 2A 20 |V%(23)...... ** |
000000D0: 44 49 53 50 4C 41 59 20 4D 45 4E 55 20 2A 2A 00 |DISPLAY MENU **.|
000000E0: 0F 09 D2 00 99 22 93 11 20 2A 2A 2A 2A 2A 2A 2A |.....".. *******|
000000F0: 2A 2A 2A 2A 2A 2A 2A 44 41 54 41 42 41 53 45 20 |*******DATABASE |
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".|
00000110: 38 09 E6 00 99 22 11 11 20 41 41 4E 54 41 4C 20 |8....".. AANTAL |
00000120: 56 52 49 4A 45 20 4B 41 52 41 4B 54 45 52 53 3A |VRIJE KARAKTERS:|
00000130: 22 43 4D 25 AB 43 43 25 00 4D 09 F0 00 99 22 11 |"CM%.CC%.M....".|
00000140: 20 48 4F 4F 46 44 4D 45 4E 55 20 3A 22 00 71 09 | HOOFDMENU :".q.|
00000150: FA 00 99 22 11 20 4E 3A 20 4D 41 41 4B 20 45 45 |...". N: MAAK EE|
00000160: 4E 20 4E 49 45 55 57 20 44 41 54 41 42 4C 4F 4B |N NIEUW DATABLOK|
00000170: 22 00 94 09 04 01 99 22 20 49 3A 20 49 4E 53 45 |"......" I: INSE|
00000180: 52 54 20 45 45 4E 20 4E 49 45 55 57 20 52 45 43 |RT EEN NIEUW REC|
00000190: 4F 52 44 22 00 AE 09 0E 01 99 22 20 57 3A 20 57 |ORD"......" W: W|
000001A0: 49 53 20 45 45 4E 20 52 45 43 4F 52 44 22 00 DA |IS EEN RECORD"..|
000001B0: 09 18 01 99 22 20 56 3A 20 56 45 52 41 4E 44 45 |...." V: VERANDE|
000001C0: 52 20 47 45 47 45 56 45 4E 53 20 56 41 4E 20 45 |R GEGEVENS VAN E|
000001D0: 45 4E 20 52 45 43 4F 52 44 22 00 02 0A 22 01 99 |EN RECORD"..."..|
000001E0: 22 20 54 3A 20 50 52 49 4E 54 20 47 45 47 45 56 |" T: PRINT GEGEV|
000001F0: 45 4E 53 20 4F 50 20 48 45 54 20 53 43 48 45 52 |ENS OP HET SCHER|
00000200: 4D 22 00 2A 0A 2C 01 99 22 20 50 3A 20 50 52 49 |M".*.,.." P: PRI|
00000210: 4E 54 20 47 45 47 45 56 45 4E 53 20 4F 50 20 44 |NT GEGEVENS OP D|
00000220: 45 20 50 52 49 4E 54 45 52 22 00 3A 0A 36 01 99 |E PRINTER".:.6..|
00000230: 22 20 53 3A 20 53 41 56 45 22 00 4A 0A 40 01 99 |" S: SAVE".J.@..|
00000240: 22 20 4C 3A 20 4C 4F 41 44 22 00 6A 0A 54 01 99 |" L: LOAD".j.T..|
00000250: 22 20 52 3A 20 53 4F 52 54 45 45 52 20 48 45 54 |" R: SORTEER HET|
00000260: 20 44 41 54 41 42 4C 4F 4B 22 00 82 0A 5E 01 99 | DATABLOK"...^..|
00000270: 22 20 4D 3A 20 44 52 55 4B 20 4D 45 4E 55 20 41 |" M: DRUK MENU A|
00000280: 46 22 00 A2 0A 68 01 99 22 20 24 3A 20 44 49 52 |F"...h.." $: DIR|
00000290: 45 43 54 4F 52 59 20 56 41 4E 20 53 43 48 49 4A |ECTORY VAN SCHIJ|
000002A0: 46 22 00 C1 0A 72 01 99 22 20 3E 3A 20 42 45 57 |F"...r.." >: BEW|
000002B0: 45 52 4B 49 4E 47 20 4F 50 20 53 43 48 49 4A 46 |ERKING OP SCHIJF|
000002C0: 22 00 D1 0A 7C 01 99 22 20 45 3A 20 45 58 49 54 |"...|.." E: EXIT|
000002D0: 22 00 E2 0A 86 01 8F 20 2A 2A 20 4D 45 4E 55 20 |"...... ** MENU |
000002E0: 2A 2A 00 FF 0A 90 01 99 22 11 20 4F 50 44 52 41 |**......". OPDRA|
000002F0: 43 48 54 20 3F 20 28 4D 3D 4D 45 4E 55 29 22 00 |CHT ? (M=MENU)".|
00000300: 16 0B 9A 01 A1 41 24 3A 20 8B 20 41 24 B2 22 22 |.....A$: . A$.""|
00000310: 20 A7 20 34 31 30 00 20 0B A4 01 8D 20 34 35 30 | . 410. .... 450|
00000320: 00 33 0B AE 01 8B 20 41 24 B2 22 4D 22 20 A7 20 |.3.... A$."M" . |
00000330: 32 31 30 00 3D 0B B8 01 89 20 34 30 30 00 51 0B |210.=.... 400.Q.|
00000340: C2 01 8B 20 41 24 B2 22 4E 22 20 A7 20 31 30 31 |... A$."N" . 101|
00000350: 30 00 65 0B CC 01 8B 20 41 24 B2 22 50 22 20 A7 |0.e.... A$."P" .|
00000360: 20 34 31 31 30 00 79 0B D6 01 8B 20 41 24 B2 22 | 4110.y.... A$."|
00000370: 54 22 20 A7 20 34 30 31 30 00 8D 0B E0 01 8B 20 |T" . 4010...... |
00000380: 41 24 B2 22 49 22 20 A7 20 36 35 31 30 00 A1 0B |A$."I" . 6510...|
00000390: EA 01 8B 20 41 24 B2 22 57 22 20 A7 20 37 30 31 |... A$."W" . 701|
000003A0: 30 00 B5 0B F4 01 8B 20 41 24 B2 22 56 22 20 A7 |0...... A$."V" .|
000003B0: 20 36 30 31 30 00 C9 0B FE 01 8B 20 41 24 B2 22 | 6010...... A$."|
000003C0: 53 22 20 A7 20 38 30 31 30 00 DD 0B 08 02 8B 20 |S" . 8010...... |
000003D0: 41 24 B2 22 4C 22 20 A7 20 38 35 31 30 00 F1 0B |A$."L" . 8510...|
000003E0: 12 02 8B 20 41 24 B2 22 52 22 20 A7 20 35 30 31 |... A$."R" . 501|
000003F0: 30 00 02 0C 1C 02 8B 20 41 24 B2 22 45 22 20 A7 |0...... A$."E" .|
00000400: 20 80 00 16 0C 26 02 8B 20 41 24 B2 22 24 22 20 | ....&.. A$."$" |
00000410: A7 20 39 30 30 30 00 2A 0C 30 02 8B 20 41 24 B2 |. 9000.*.0.. A$.|
00000420: 22 3E 22 20 A7 20 39 32 31 30 00 30 0C 3A 02 8E |">" . 9210.0.:..|
00000430: 00 4A 0C E8 03 8F 20 2A 2A 20 4E 49 45 55 57 20 |.J.... ** NIEUW |
00000440: 42 45 53 54 41 4E 44 20 2A 2A 00 7B 0C F2 03 99 |BESTAND **.{....|
00000450: 22 93 11 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |".. ************|
00000460: 20 4E 49 45 55 57 20 42 45 53 54 41 4E 44 2A 2A | NIEUW BESTAND**|
00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 90 0C FC 03 |**********".....|
00000480: 8B 20 5A 5A 25 B3 B1 20 30 20 A7 20 31 31 33 30 |. ZZ%.. 0 . 1130|
00000490: 00 AC 0C 06 04 85 22 11 11 20 41 41 4E 54 41 4C |......".. AANTAL|
000004A0: 20 56 45 4C 44 45 4E 22 3B 4D 42 25 00 F3 0C 10 | VELDEN";MB%....|
000004B0: 04 59 B2 32 34 39 39 38 AB 33 AC 4D 42 25 3A 20 |.Y.24998.3.MB%: |
000004C0: 4D 4C 25 B2 B5 28 59 AD 28 31 33 AC 4D 42 25 AA |ML%..(Y.(13.MB%.|
000004D0: 32 29 29 3A 43 4D 25 B2 B5 28 59 AB 59 AC 28 33 |2)):CM%..(Y.Y.(3|
000004E0: AC 4D 42 25 AA 32 29 AD 28 31 33 AC 4D 42 25 AA |.MB%.2).(13.MB%.|
000004F0: 32 29 29 00 1E 0D 1A 04 5A 5A 25 B2 31 3A 20 86 |2)).....ZZ%.1: .|
00000500: 20 44 41 54 24 28 4D 4C 25 2C 4D 42 25 AB 31 29 | DAT$(ML%,MB%.1)|
00000510: 2C 4C 49 4A 53 54 25 28 4D 4C 25 AB 31 29 00 30 |,LIJST%(ML%.1).0|
00000520: 0D 24 04 81 20 49 B2 30 20 A4 20 4D 42 25 AB 31 |.$.. I.0 . MB%.1|
00000530: 00 45 0D 2E 04 99 22 20 56 45 4C 44 4E 41 41 4D |.E...." VELDNAAM|
00000540: 22 49 AA 31 3B 00 55 0D 38 04 85 20 44 41 54 24 |"I.1;.U.8.. DAT$|
00000550: 28 30 2C 49 29 00 6E 0D 42 04 43 43 25 B2 43 43 |(0,I).n.B.CC%.CC|
00000560: 25 AA C3 28 44 41 54 24 28 30 2C 49 29 29 00 76 |%..(DAT$(0,I)).v|
00000570: 0D 4C 04 82 20 49 00 90 0D 56 04 4C 45 25 B2 30 |.L.. I...V.LE%.0|
00000580: 3A 20 42 52 25 B2 4D 42 25 3A 20 52 41 25 B2 31 |: BR%.MB%: RA%.1|
00000590: 00 96 0D 60 04 8E 00 BB 0D 6A 04 99 22 11 11 20 |...`.....j..".. |
000005A0: 45 52 20 53 54 41 41 54 20 41 4C 20 45 45 4E 20 |ER STAAT AL EEN |
000005B0: 42 45 53 54 41 4E 44 20 49 4E 22 00 D1 0D 74 04 |BESTAND IN"...t.|
000005C0: 99 22 20 48 45 54 20 47 45 48 45 55 47 45 4E 2E |." HET GEHEUGEN.|
000005D0: 22 00 F7 0D 7E 04 99 22 20 4D 4F 45 54 20 44 49 |"...~.." MOET DI|
000005E0: 54 20 47 45 57 49 53 54 20 57 4F 52 44 45 4E 20 |T GEWIST WORDEN |
000005F0: 3F 20 29 4A 2F 4E 29 00 10 0E 88 04 A1 20 41 24 |? )J/N)...... A$|
00000600: 3A 20 8B 20 41 24 B2 22 22 20 A7 20 31 31 36 30 |: . A$."" . 1160|
00000610: 00 29 0E 92 04 8B 20 41 24 B2 22 4A 22 20 A7 20 |.).... A$."J" . |
00000620: 9C 3A 20 8D 20 31 30 31 30 00 3B 0E 9C 04 8B 20 |.: . 1010.;.... |
00000630: 41 24 B2 22 22 20 A7 20 31 31 30 00 41 0E A6 04 |A$."" . 110.A...|
00000640: 8E 00 60 0E D0 07 8F 20 2A 2A 20 56 4F 45 52 20 |..`.... ** VOER |
00000650: 54 45 53 54 53 54 52 49 4E 47 20 49 4E 20 2A 2A |TESTSTRING IN **|
00000660: 00 7C 0E DA 07 54 45 53 54 24 B2 22 22 3A 20 46 |.|...TEST$."": F|
00000670: 4F 55 54 B2 30 3A 89 20 32 30 33 30 00 98 0E E4 |OUT.0:. 2030....|
00000680: 07 54 45 53 54 24 B2 54 45 53 54 24 AA 41 24 3A |.TEST$.TEST$.A$:|
00000690: 20 99 22 9D 22 41 24 3B 00 A9 0E EE 07 49 B2 30 | ."."A$;.....I.0|
000006A0: 3A 20 99 22 12 20 92 22 3B 00 D8 0E F8 07 A1 20 |: .". .";...... |
000006B0: 41 24 3A 20 8B 28 41 24 B1 B2 22 20 22 AF 20 41 |A$: .(A$.." ". A|
000006C0: 24 B3 B2 22 5F 22 20 29 B0 20 41 24 B1 B2 22 C1 |$.."_" ). A$..".|
000006D0: 22 20 A7 20 32 30 32 30 00 F8 0E FD 07 8B 20 41 |" . 2020...... A|
000006E0: 24 B2 C7 28 32 30 29 AF 20 54 45 53 54 24 B2 22 |$..(20). TEST$."|
000006F0: 22 20 A7 20 32 30 34 30 00 32 0F 02 08 8B 20 41 |" . 2040.2.... A|
00000700: 24 B2 C7 28 32 30 29 A7 20 99 22 9D 20 9D 9D 22 |$..(20). .". .."|
00000710: 3B 3A 54 45 53 54 24 B2 C8 28 54 45 53 54 24 2C |;:TEST$..(TEST$,|
00000720: C3 28 54 45 53 54 24 29 AB 31 29 3A 89 20 32 30 |.(TEST$).1):. 20|
00000730: 33 30 00 4D 0F 0C 08 49 B2 49 AA 31 3A 20 8B 20 |30.M...I.I.1: . |
00000740: 49 B2 31 37 20 A7 20 99 22 9D 20 22 3B 00 68 0F |I.17 . .". ";.h.|
00000750: 16 08 8B 20 49 B2 33 35 20 A7 20 99 22 9D 12 20 |... I.35 . .".. |
00000760: 92 22 3B 3A 20 49 B2 30 00 7F 0F 20 08 8B 20 41 |.";: I.0... .. A|
00000770: 24 B3 B1 C7 28 31 33 29 20 A7 20 32 30 34 30 00 |$...(13) . 2040.|
00000780: 85 0F 25 08 8E 00 A7 0F 2A 08 8F 20 2A 2A 20 43 |..%.....*.. ** C|
00000790: 4F 4E 56 45 52 54 45 45 52 20 54 45 53 54 53 54 |ONVERTEER TESTST|
000007A0: 52 49 4E 47 20 2A 2A 00 BE 0F 34 08 8D 20 32 30 |RING **...4.. 20|
000007B0: 31 30 3A 99 3A 49 B2 31 3A 4C 50 25 B2 30 00 DA |10:.:I.1:LP%.0..|
000007C0: 0F 3E 08 81 20 4A B2 30 20 A4 20 32 33 3A 20 50 |.>.. J.0 . 23: P|
000007D0: 56 25 28 4A 29 B2 30 3A 20 82 00 FC 0F 48 08 42 |V%(J).0: ....H.B|
000007E0: 24 B2 22 22 3A 20 43 24 B2 22 22 20 3A 20 53 42 |$."": C$."" : SB|
000007F0: 25 B2 31 3A 20 53 45 25 B2 4C 45 25 00 28 10 52 |%.1: SE%.LE%.(.R|
00000800: 08 41 24 B2 CA 28 54 45 53 54 24 2C 49 2C 31 29 |.A$..(TEST$,I,1)|
00000810: 3A 20 49 B2 49 AA 31 3A 20 8B 20 41 24 B2 22 20 |: I.I.1: . A$." |
00000820: 22 20 A7 20 32 31 33 30 00 55 10 5C 08 8B 28 41 |" . 2130.U.\..(A|
00000830: 24 B2 22 22 20 B0 20 41 24 B2 22 20 22 B0 20 41 |$."" . A$." ". A|
00000840: 24 B2 22 3B 22 B0 20 41 24 B2 22 5F 22 29 20 A7 |$.";". A$."_") .|
00000850: 20 32 32 30 30 00 6A 10 66 08 8B 20 41 24 B3 B1 | 2200.j.f.. A$..|
00000860: 22 2D 22 20 A7 20 32 31 39 30 00 75 10 70 08 8D |"-" . 2190.u.p..|
00000870: 20 33 37 30 30 00 A6 10 7A 08 8B 20 4A B3 B2 32 | 3700...z.. J..2|
00000880: 35 35 20 A7 20 53 42 25 B2 C5 28 42 24 29 3A 20 |55 . SB%..(B$): |
00000890: 43 24 B2 42 24 AA 41 24 3A 20 42 24 B2 22 22 3A |C$.B$.A$: B$."":|
000008A0: 20 41 24 B2 22 22 00 BB 10 84 08 8B 20 53 42 25 | A$.""...... SB%|
000008B0: B3 B2 30 20 A7 20 53 42 25 B2 31 00 E8 10 8E 08 |..0 . SB%.1.....|
000008C0: 42 24 B2 42 24 AA 41 24 3A 20 41 24 B2 CA 28 54 |B$.B$.A$: A$..(T|
000008D0: 45 53 54 24 2C 49 2C 31 29 3A 20 49 B2 49 AA 31 |EST$,I,1): I.I.1|
000008E0: 3A 20 89 20 32 31 34 30 00 F3 10 98 08 8D 20 33 |: . 2140...... 3|
000008F0: 37 30 30 00 19 11 A2 08 8B 20 4A B1 32 35 35 20 |700...... J.255 |
00000900: A7 20 42 24 B2 43 24 AA 42 24 3A 20 53 42 25 B2 |. B$.C$.B$: SB%.|
00000910: 31 3A 20 89 20 32 32 35 30 00 31 11 AC 08 8B 20 |1: . 2250.1.... |
00000920: 4A B3 32 35 35 20 A7 20 53 45 25 B2 C5 28 42 24 |J.255 . SE%..(B$|
00000930: 29 00 55 11 B6 08 8B 20 43 24 B2 22 22 20 A7 20 |).U.... C$."" . |
00000940: 8B 20 54 45 53 54 24 B3 B1 22 22 20 A7 20 53 42 |. TEST$.."" . SB|
00000950: 25 B2 53 45 25 00 60 11 C0 08 8D 20 33 38 30 30 |%.SE%.`.... 3800|
00000960: 00 68 11 CA 08 58 B2 30 00 8E 11 D4 08 8B 20 42 |.h...X.0...... B|
00000970: 24 B2 22 4E 4F 22 20 A7 20 50 56 25 28 30 29 B2 |$."NO" . PV%(0).|
00000980: 30 3A 20 58 B2 31 3A 20 8D 20 33 38 30 4F 00 AD |0: X.1: . 380O..|
00000990: 11 D9 08 8B 20 42 24 B2 22 41 4C 53 22 20 A7 20 |.... B$."ALS" . |
000009A0: 53 41 25 B2 30 3A 20 89 20 32 33 33 30 00 C9 11 |SA%.0: . 2330...|
000009B0: DE 08 8B 20 41 24 B2 22 3B 22 20 A7 20 50 56 25 |... A$.";" . PV%|
000009C0: 28 58 AA 31 29 B2 35 31 31 00 E5 11 E3 08 8B 20 |(X.1).511...... |
000009D0: 41 24 B2 22 5F 22 20 A7 20 50 56 25 28 58 AA 31 |A$."_" . PV%(X.1|
000009E0: 29 B2 32 35 35 00 F0 11 E8 08 8D 20 33 39 30 30 |).255...... 3900|
000009F0: 00 27 12 F2 08 8B 20 4A B1 B2 32 35 35 20 A7 20 |.'.... J..255 . |
00000A00: 50 56 25 28 58 29 B2 50 56 25 28 58 29 AA 59 AA |PV%(X).PV%(X).Y.|
00000A10: 31 3A 58 B2 58 AA 31 3A 20 8D 20 33 38 30 30 3A |1:X.X.1: . 3800:|
00000A20: 20 89 20 32 32 36 35 00 53 12 FC 08 8F 20 2A 20 | . 2265.S.... * |
00000A30: 42 24 20 49 53 20 44 45 20 4E 41 41 4D 20 56 41 |B$ IS DE NAAM VA|
00000A40: 4E 20 44 45 20 31 45 2E 20 56 41 52 49 41 42 45 |N DE 1E. VARIABE|
00000A50: 4C 45 2A 00 6F 12 06 09 8B 20 42 24 B2 22 22 20 |LE*.o.... B$."" |
00000A60: A7 20 53 41 25 B2 30 3A 20 89 20 32 33 34 30 00 |. SA%.0: . 2340.|
00000A70: 9D 12 10 09 53 4C 25 28 30 2C 30 29 B2 31 3A 20 |....SL%(0,0).1: |
00000A80: 53 4C 25 28 30 2C 31 29 B2 30 3A 20 53 4C 25 28 |SL%(0,1).0: SL%(|
00000A90: 30 2C 32 29 B2 30 3A 20 53 41 25 B2 31 00 C2 12 |0,2).0: SA%.1...|
00000AA0: 1A 09 53 56 24 28 30 29 B2 42 24 AA 41 24 AA CA |..SV$(0).B$.A$..|
00000AB0: 28 54 45 53 54 24 2C 49 2C C3 28 54 45 53 54 24 |(TEST$,I,.(TEST$|
00000AC0: 29 29 00 E0 12 24 09 8F 20 2A 20 4D 41 41 4B 20 |))...$.. * MAAK |
00000AD0: 54 45 53 54 41 52 52 41 59 20 4C 45 45 47 20 2A |TESTARRAY LEEG *|
00000AE0: 00 F1 12 2E 09 81 20 4A B2 53 41 25 20 A4 20 31 |...... J.SA% . 1|
00000AF0: 30 00 FF 12 38 09 81 20 59 B2 30 20 A4 20 32 00 |0...8.. Y.0 . 2.|
00000B00: 0E 13 42 09 53 4C 25 28 4A 2C 59 29 B2 30 00 26 |..B.SL%(J,Y).0.&|
00000B10: 13 4C 09 82 20 59 3A 20 53 56 24 28 4A 29 B2 22 |.L.. Y: SV$(J)."|
00000B20: 22 3A 20 82 20 4A 00 4F 13 56 09 8F 20 2A 2A 20 |": . J.O.V.. ** |
00000B30: 5A 45 54 20 56 41 52 49 41 42 45 4C 45 20 56 4F |ZET VARIABELE VO|
00000B40: 4F 52 20 50 52 49 4E 54 2F 54 59 50 45 2A 2A 00 |OR PRINT/TYPE**.|
00000B50: 6A 13 60 09 8B 20 58 B3 B1 30 20 A7 20 50 41 25 |j.`.. X..0 . PA%|
00000B60: B2 58 3A 20 89 20 32 34 34 30 00 76 13 6A 09 50 |.X: . 2440.v.j.P|
00000B70: 41 25 B2 42 52 25 00 8C 13 74 09 8B 20 42 52 25 |A%.BR%...t.. BR%|
00000B80: B1 32 34 20 A7 20 50 41 25 B2 32 34 00 AD 13 7E |.24 . PA%.24...~|
00000B90: 09 81 20 58 B2 31 20 A4 20 50 41 25 3A 20 50 56 |.. X.1 . PA%: PV|
00000BA0: 25 28 58 AB 31 29 B2 58 3A 20 82 20 58 00 B5 13 |%(X.1).X: . X...|
00000BB0: 88 09 58 B2 30 00 E1 13 92 09 41 24 B2 CA 28 54 |..X.0.....A$..(T|
00000BC0: 45 53 54 24 2C 49 2C 31 29 3A 20 49 B2 49 AA 31 |EST$,I,1): I.I.1|
00000BD0: 3A 20 8B 20 41 24 B2 22 20 22 20 A7 20 32 34 35 |: . A$." " . 245|
00000BE0: 30 00 F1 13 9C 09 8B 20 41 24 B2 22 22 20 A7 20 |0...... A$."" . |
00000BF0: 8E 00 F9 13 A6 09 4A B2 31 00 34 14 B0 09 8B 20 |......J.1.4.... |
00000C00: 41 24 B2 22 28 22 20 A7 20 58 B2 58 AB 31 AA 4A |A$."(" . X.X.1.J|
00000C10: 3A 20 53 4C 25 28 58 2C 31 29 B2 53 4C 25 28 58 |: SL%(X,1).SL%(X|
00000C20: 2C 31 29 AA 34 3A 20 58 B2 58 AA 31 3A 20 89 20 |,1).4: X.X.1: . |
00000C30: 32 34 35 30 00 47 14 BA 09 42 24 B2 22 22 3A 20 |2450.G...B$."": |
00000C40: 53 41 25 B2 58 AA 31 00 54 14 C4 09 42 24 B2 42 |SA%.X.1.T...B$.B|
00000C50: 24 AA 41 24 00 68 14 CE 09 41 24 B2 CA 28 54 45 |$.A$.h...A$..(TE|
00000C60: 53 54 24 2C 49 2C 31 29 00 72 14 D8 09 49 B2 49 |ST$,I,1).r...I.I|
00000C70: AA 31 00 86 14 E2 09 8B 20 41 24 B2 22 20 22 20 |.1...... A$." " |
00000C80: A7 20 32 35 31 30 00 A6 14 EC 09 8B 20 41 24 B2 |. 2510...... A$.|
00000C90: 22 3D 22 A7 20 53 4C 25 28 58 2C 30 29 B2 31 3A |"=". SL%(X,0).1:|
00000CA0: 89 20 32 35 39 30 00 C6 14 F6 09 8B 20 41 24 B2 |. 2590...... A$.|
00000CB0: 22 3E 22 A7 20 53 4C 25 28 58 2C 30 29 B2 32 3A |">". SL%(X,0).2:|
00000CC0: 89 20 32 35 39 30 00 E6 14 00 0A 8B 20 41 24 B2 |. 2590...... A$.|
00000CD0: 22 3C 22 A7 20 53 4C 25 28 58 2C 30 29 B2 33 3A |"<". SL%(X,0).3:|
00000CE0: 89 20 32 35 39 30 00 0D 15 0A 0A 8B 20 41 24 B2 |. 2590...... A$.|
00000CF0: 22 22 20 A7 20 99 22 1C 11 54 45 53 54 2D 45 52 |"" . ."..TEST-ER|
00000D00: 52 4F 52 1F 22 3A 20 89 20 32 39 30 30 00 2E 15 |ROR.": . 2900...|
00000D10: 14 0A 89 32 35 30 30 3A 20 8F 20 2A 56 4F 4C 47 |...2500: . *VOLG|
00000D20: 45 4E 44 45 20 4B 41 52 41 4B 54 45 52 2A 00 42 |ENDE KARAKTER*.B|
00000D30: 15 1E 0A 41 24 B2 CA 28 54 45 53 54 24 2C 49 2C |...A$..(TEST$,I,|
00000D40: 31 29 00 63 15 28 0A 8B 20 41 24 B2 22 3E 22 20 |1).c.(.. A$.">" |
00000D50: A7 20 49 B2 49 AA 31 3A 20 53 4C 25 28 58 2C 30 |. I.I.1: SL%(X,0|
00000D60: 29 B2 34 00 8D 15 32 0A 8B 20 41 24 B2 22 3D 22 |).4...2.. A$."="|
00000D70: 20 A7 20 49 B2 49 AA 31 3A 20 53 4C 25 28 58 2C | . I.I.1: SL%(X,|
00000D80: 30 29 B2 53 4C 25 28 58 2C 30 29 AA 33 00 AD 15 |0).SL%(X,0).3...|
00000D90: 3C 0A 8D 33 39 30 30 3A 8F 2A 54 45 53 54 20 4F |<..3900:.*TEST O|
00000DA0: 46 20 42 24 3D 56 41 52 4E 41 41 4D 2A 00 E0 15 |F B$=VARNAAM*...|
00000DB0: 46 0A 8B 20 4A B3 32 35 35 20 A7 20 99 22 1C 11 |F.. J.255 . ."..|
00000DC0: 56 45 4C 44 22 42 24 22 49 53 20 4E 49 45 54 20 |VELD"B$"IS NIET |
00000DD0: 42 45 4B 45 4E 44 1F 22 3A 20 89 20 32 39 30 30 |BEKEND.": . 2900|
00000DE0: 00 EF 15 50 0A 53 4C 25 28 58 2C 32 29 B2 59 00 |...P.SL%(X,2).Y.|
00000DF0: F9 15 5A 0A 43 24 B2 22 22 00 03 16 64 0A 42 24 |..Z.C$.""...d.B$|
00000E00: B2 22 22 00 17 16 6E 0A 41 24 B2 CA 28 54 45 53 |.""...n.A$..(TES|
00000E10: 54 24 2C 49 2C 31 29 00 21 16 78 0A 49 B2 49 AA |T$,I,1).!.x.I.I.|
00000E20: 31 00 41 16 82 0A 8B 20 41 24 B2 22 20 22 A7 20 |1.A.... A$." ". |
00000E30: 43 24 B2 43 24 AA 22 20 22 3A 20 89 20 32 36 37 |C$.C$." ": . 267|
00000E40: 30 00 54 16 8C 0A 8B 20 41 24 B2 22 29 22 A7 20 |0.T.... A$.")". |
00000E50: 32 38 30 30 00 95 16 96 0A 8B A8 28 41 24 B2 22 |2800.......(A$."|
00000E60: 20 22 B0 41 24 B2 22 28 22 B0 41 24 B2 22 22 29 | ".A$."(".A$."")|
00000E70: A7 42 24 B2 42 24 AA 41 24 3A 41 24 B2 CA 28 54 |.B$.B$.A$:A$..(T|
00000E80: 45 53 54 24 2C 49 2C 31 29 3A 49 B2 49 AA 31 3A |EST$,I,1):I.I.1:|
00000E90: 89 32 37 30 30 00 C0 16 A0 0A 8B 20 42 24 B2 22 |.2700...... B$."|
00000EA0: 45 4E 22 20 A7 20 53 4C 25 28 58 2C 31 29 B2 53 |EN" . SL%(X,1).S|
00000EB0: 4C 25 28 58 2C 31 29 AA 31 3A 89 20 32 38 34 30 |L%(X,1).1:. 2840|
00000EC0: 00 EB 16 AA 0A 8B 20 42 24 B2 22 4F 46 22 20 A7 |...... B$."OF" .|
00000ED0: 20 53 4C 25 28 58 2C 31 29 B2 53 4C 25 28 58 2C | SL%(X,1).SL%(X,|
00000EE0: 31 29 AA 32 3A 89 20 32 38 34 30 00 0F 17 B4 0A |1).2:. 2840.....|
00000EF0: 8B 20 53 56 24 28 58 29 B2 22 22 20 A7 20 53 56 |. SV$(X)."" . SV|
00000F00: 24 28 58 29 B2 42 24 3A 20 89 20 32 37 36 30 00 |$(X).B$: . 2760.|
00000F10: 27 17 BE 0A 53 56 24 28 58 29 B2 53 56 24 28 58 |'...SV$(X).SV$(X|
00000F20: 29 AA 43 24 AA 42 24 00 45 17 C8 0A 8B 20 41 24 |).C$.B$.E.... A$|
00000F30: B3 B1 22 22 20 A7 20 43 24 B2 22 20 22 3A 20 89 |.."" . C$." ": .|
00000F40: 20 32 36 36 30 00 71 17 D2 0A 42 24 B2 53 56 24 | 2660.q...B$.SV$|
00000F50: 28 58 29 3A 8D 20 33 37 30 30 3A 20 8F 20 2A 54 |(X):. 3700: . *T|
00000F60: 45 53 54 20 4F 46 20 42 24 3D 47 45 54 41 41 4C |EST OF B$=GETAAL|
00000F70: 2A 00 93 17 DC 0A 8B 20 4A B3 32 35 35 20 A7 20 |*...... J.255 . |
00000F80: 53 4C 25 28 58 2C 30 29 B2 53 4C 25 28 58 2C 30 |SL%(X,0).SL%(X,0|
00000F90: 29 AA 36 00 99 17 E6 0A 8E 00 B2 17 F0 0A 8B 20 |).6............ |
00000FA0: 53 4C 25 28 58 2C 31 29 B1 37 20 A7 20 58 B2 58 |SL%(X,1).7 . X.X|
00000FB0: AA 31 00 CC 17 FA 0A 53 4C 25 28 58 2C 31 29 B2 |.1.....SL%(X,1).|
00000FC0: 38 3A 20 53 41 25 B2 53 41 25 AA 31 00 EF 17 04 |8: SA%.SA%.1....|
00000FD0: 0B 8B 20 42 24 B3 B1 22 22 20 A7 20 53 56 24 28 |.. B$.."" . SV$(|
00000FE0: 58 29 B2 53 56 24 28 58 29 AA 43 24 AA 42 24 00 |X).SV$(X).C$.B$.|
00000FF0: FA 17 0E 0B 89 20 32 36 35 30 00 2A 18 18 0B 42 |..... 2650.*...B|
00001000: 24 B2 53 56 24 28 58 29 3A 20 8D 20 33 37 30 30 |$.SV$(X): . 3700|
00001010: 3A 20 8F 2A 54 45 53 54 20 4F 46 20 53 54 49 4E |: .*TEST OF STIN|
00001020: 47 20 47 3D 47 45 54 41 4C 2A 00 4C 18 22 0B 8B |G G=GETAL*.L."..|
00001030: 20 4A B3 32 35 35 20 A7 20 53 4C 25 28 58 2C 30 | J.255 . SL%(X,0|
00001040: 29 B2 53 4C 25 28 58 2C 30 29 AA 36 00 5B 18 2C |).SL%(X,0).6.[.,|
00001050: 0B 58 B2 58 AA 31 3A 20 4A B2 30 00 70 18 36 0B |.X.X.1: J.0.p.6.|
00001060: 8B 20 41 24 B2 22 20 22 20 A7 20 41 24 B2 22 22 |. A$." " . A$.""|
00001070: 00 7B 18 40 0B 89 20 32 34 38 30 00 8B 18 4A 0B |.{.@.. 2480...J.|
00001080: 8F 20 2A 2A 45 52 52 4F 52 2A 2A 00 9B 18 54 0B |. **ERROR**...T.|
00001090: 46 4F 55 54 20 B2 AB 31 3A 20 8E 00 D0 18 B8 0B |FOUT ..1: ......|
000010A0: 8F 2A 2A 5A 4F 45 4B 20 52 45 43 4F 52 44 53 20 |.**ZOEK RECORDS |
000010B0: 44 49 45 20 41 41 4E 20 44 45 20 56 4F 4F 52 57 |DIE AAN DE VOORW|
000010C0: 41 41 52 44 45 4E 20 56 4F 4C 44 4F 45 4E 2A 2A |AARDEN VOLDOEN**|
000010D0: 00 E4 18 C2 0B 8B 20 4C 50 25 B3 B1 30 20 A7 20 |...... LP%..0 . |
000010E0: 33 34 32 30 00 FC 18 CC 0B 8B 20 53 45 25 B1 4C |3420...... SE%.L|
000010F0: 45 25 20 A7 20 53 45 25 B2 4C 45 25 00 0F 19 D6 |E% . SE%.LE%....|
00001100: 0B 81 20 45 4C B2 53 42 25 20 A4 20 53 45 25 00 |.. EL.SB% . SE%.|
00001110: 22 19 E0 0B 54 53 25 28 30 29 B2 AB 31 3A 20 4A |"...TS%(0)..1: J|
00001120: B2 31 00 34 19 EA 0B 81 20 49 B2 30 20 A4 20 53 |.1.4.... I.0 . S|
00001130: 41 25 AB 31 00 7F 19 F4 0B 91 20 53 4C 25 28 49 |A%.1...... SL%(I|
00001140: 2C 30 29 89 33 30 38 30 2C 33 30 39 30 2C 33 31 |,0).3080,3090,31|
00001150: 30 30 2C 33 31 31 30 2C 33 31 32 30 2C 33 31 33 |00,3110,3120,313|
00001160: 30 2C 33 31 34 30 2C 33 31 35 30 2C 33 31 36 30 |0,3140,3150,3160|
00001170: 2C 33 31 37 30 2C 33 31 38 30 2C 33 31 39 30 00 |,3170,3180,3190.|
00001180: 95 19 FE 0B 54 53 25 28 4A 29 B2 AB 31 3A 20 89 |....TS%(J)..1: .|
00001190: 20 33 33 30 30 00 C3 19 08 0C 54 53 25 28 4A 29 | 3300.....TS%(J)|
000011A0: B2 28 44 41 54 24 28 45 4C 2C 53 4C 25 28 49 2C |.(DAT$(EL,SL%(I,|
000011B0: 32 29 29 B2 53 56 24 28 49 29 29 3A 20 89 20 33 |2)).SV$(I)): . 3|
000011C0: 33 30 30 00 F1 19 12 0C 54 53 25 28 4A 29 B2 28 |300.....TS%(J).(|
000011D0: 44 41 54 24 28 45 4C 2C 53 4C 25 28 49 2C 32 29 |DAT$(EL,SL%(I,2)|
000011E0: 29 B1 53 56 24 28 49 29 29 3A 20 89 20 33 33 30 |).SV$(I)): . 330|
000011F0: 30 00 1F 1A 1C 0C 54 53 25 28 4A 29 B2 28 44 41 |0.....TS%(J).(DA|
00001200: 54 24 28 45 4C 2C 53 4C 25 28 49 2C 32 29 29 B3 |T$(EL,SL%(I,2)).|
00001210: 53 56 24 28 49 29 29 3A 20 89 20 33 33 30 30 00 |SV$(I)): . 3300.|
00001220: 4D 1A 26 0C 54 53 25 28 4A 29 B2 28 44 41 54 24 |M.&.TS%(J).(DAT$|
00001230: 28 45 4C 2C 53 4C 25 28 49 2C 32 29 29 B3 B1 53 |(EL,SL%(I,2))..S|
00001240: 56 24 28 49 29 29 3A 89 20 33 33 30 30 00 7C 1A |V$(I)):. 3300.|.|
00001250: 30 0C 54 53 25 28 4A 29 B2 28 44 41 54 24 28 45 |0.TS%(J).(DAT$(E|
00001260: 4C 2C 53 4C 25 28 49 2C 32 29 29 B1 B2 53 56 24 |L,SL%(I,2))..SV$|
00001270: 28 49 29 29 3A 20 89 20 33 33 30 30 00 AB 1A 3A |(I)): . 3300...:|
00001280: 0C 54 53 25 28 4A 29 B2 28 44 41 54 24 28 45 4C |.TS%(J).(DAT$(EL|
00001290: 2C 53 4C 25 28 49 2C 32 29 29 B3 B2 53 56 24 28 |,SL%(I,2))..SV$(|
000012A0: 49 29 29 3A 20 89 20 33 33 30 30 00 DE 1A 44 0C |I)): . 3300...D.|
000012B0: 54 53 25 28 4A 29 B2 28 C5 28 44 41 54 24 28 45 |TS%(J).(.(DAT$(E|
000012C0: 4C 2C 53 4C 25 28 49 2C 32 29 29 29 B2 C5 28 53 |L,SL%(I,2)))..(S|
000012D0: 56 24 28 49 29 29 29 3A 89 20 33 33 30 30 00 12 |V$(I))):. 3300..|
000012E0: 1B 4E 0C 54 53 25 28 4A 29 B2 28 C5 28 44 41 54 |.N.TS%(J).(.(DAT|
000012F0: 24 28 45 4C 2C 53 4C 25 28 49 2C 32 29 29 29 B1 |$(EL,SL%(I,2))).|
00001300: C5 28 53 56 24 28 49 29 29 29 3A 20 89 20 33 33 |.(SV$(I))): . 33|
00001310: 30 30 00 46 1B 58 0C 54 53 25 28 4A 29 B2 28 C5 |00.F.X.TS%(J).(.|
00001320: 28 44 41 54 24 28 45 4C 2C 53 4C 25 28 49 2C 32 |(DAT$(EL,SL%(I,2|
00001330: 29 29 29 B3 C5 28 53 56 24 28 49 29 29 29 3A 20 |)))..(SV$(I))): |
00001340: 89 20 33 33 30 30 00 7B 1B 62 0C 54 53 25 28 4A |. 3300.{.b.TS%(J|
00001350: 29 B2 28 C5 28 44 41 54 24 28 45 4C 2C 53 4C 25 |).(.(DAT$(EL,SL%|
00001360: 28 49 2C 32 29 29 29 B3 B1 C5 28 53 56 24 28 49 |(I,2)))...(SV$(I|
00001370: 29 29 29 3A 20 89 20 33 33 30 30 00 B0 1B 6C 0C |))): . 3300...l.|
00001380: 54 53 25 28 4A 29 B2 28 C5 28 44 41 54 24 28 45 |TS%(J).(.(DAT$(E|
00001390: 4C 2C 53 4C 25 28 49 2C 32 29 29 29 B1 B2 C5 28 |L,SL%(I,2)))...(|
000013A0: 53 56 24 28 49 29 29 29 3A 20 89 20 33 33 30 30 |SV$(I))): . 3300|
000013B0: 00 E5 1B 76 0C 54 53 25 28 4A 29 B2 28 C5 28 44 |...v.TS%(J).(.(D|
000013C0: 41 54 24 28 45 4C 2C 53 4C 25 28 49 2C 32 29 29 |AT$(EL,SL%(I,2))|
000013D0: 29 B3 B2 C5 28 53 56 24 28 49 29 29 29 3A 20 89 |)...(SV$(I))): .|
000013E0: 20 33 33 30 30 00 15 1C E4 0C 8D 33 35 30 30 3A | 3300......3500:|
000013F0: 20 8F 20 2A 2A 42 45 52 45 4B 45 4E 49 4E 47 20 | . **BEREKENING |
00001400: 56 41 4E 20 54 45 53 54 56 4F 4F 52 57 41 41 52 |VAN TESTVOORWAAR|
00001410: 44 45 4E 2A 2A 00 2F 1C EE 0C 8B 20 53 4C 25 28 |DEN**./.... SL%(|
00001420: 49 2C 31 29 B1 37 20 A7 20 8D 20 33 35 30 30 00 |I,1).7 . . 3500.|
00001430: 50 1C F8 0C 54 53 25 28 4A 29 B2 54 53 25 28 4A |P...TS%(J).TS%(J|
00001440: 29 AA 32 AC 28 53 4C 25 28 49 2C 31 29 AF 33 29 |).2.(SL%(I,1).3)|
00001450: 00 5A 1C 02 0D 4A B2 4A AA 31 00 83 1C 0C 0D 8B |.Z...J.J.1......|
00001460: 20 28 53 4C 25 28 49 2C 31 29 AF 20 34 29 B2 34 | (SL%(I,1). 4).4|
00001470: 20 A7 20 54 53 25 28 4A 29 B2 AB 31 3A 20 4A B2 | . TS%(J)..1: J.|
00001480: 4A AA 31 00 8B 1C 16 0D 82 20 49 00 B7 1C 20 0D |J.1...... I... .|
00001490: 8B 20 54 53 25 28 30 29 B2 AB 31 20 A7 20 8D 20 |. TS%(0)..1 . . |
000014A0: 33 36 30 30 3A 20 8F 2A 2A 54 45 53 54 20 49 53 |3600: .**TEST IS|
000014B0: 20 57 41 41 52 2A 2A 00 EA 1C 34 0D A1 20 41 24 | WAAR**...4.. A$|
000014C0: 3A 20 8B 20 41 24 B3 B1 22 22 20 A7 20 91 20 4D |: . A$.."" . . M|
000014D0: 4F 44 45 25 20 8D 20 34 32 31 30 2C 34 33 31 30 |ODE% . 4210,4310|
000014E0: 2C 37 31 31 30 2C 36 31 31 30 00 F3 1C 3E 0D 82 |,7110,6110...>..|
000014F0: 20 45 4C 00 09 1D 48 0D 8B 20 45 54 25 B1 B2 4C | EL...H.. ET%..L|
00001500: 50 25 20 A7 20 33 34 35 30 00 2E 1D 52 0D 8B 20 |P% . 3450...R.. |
00001510: 4D 4F 44 45 25 B3 B1 39 20 A7 20 A1 41 24 3A 20 |MODE%..9 . .A$: |
00001520: 8B 20 41 24 B2 22 22 20 A7 20 33 34 31 30 00 50 |. A$."" . 3410.P|
00001530: 1D 5C 0D 91 20 4D 4F 44 45 25 20 8D 20 34 32 31 |.\.. MODE% . 421|
00001540: 30 2C 34 33 31 30 2C 37 31 31 30 2C 36 31 31 30 |0,4310,7110,6110|
00001550: 00 6A 1D 66 0D 8B 20 4D 4F 44 45 25 B2 39 20 A7 |.j.f.. MODE%.9 .|
00001560: 20 45 54 25 B2 45 54 25 AA 31 00 75 1D 70 0D 89 | ET%.ET%.1.u.p..|
00001570: 20 33 34 30 30 00 8C 1D 7A 0D 8B 20 4D 4F 44 45 | 3400...z.. MODE|
00001580: 25 B2 33 20 A7 20 8D 20 37 33 32 30 00 92 1D 84 |%.3 . . 7320....|
00001590: 0D 8E 00 BB 1D AC 0D 8F 2A 2A 42 45 52 45 4B 45 |........**BEREKE|
000015A0: 4E 49 4E 47 20 56 41 4E 20 54 45 53 54 20 56 4F |NING VAN TEST VO|
000015B0: 4F 52 57 41 41 52 44 45 4E 2A 2A 00 C5 1D B6 0D |ORWAARDEN**.....|
000015C0: 4A B2 4A AB 31 00 EA 1D C0 0D 8B 20 54 53 25 28 |J.J.1...... TS%(|
000015D0: 4A 29 B3 B2 30 20 A7 20 54 53 25 28 4A 29 B2 54 |J)..0 . TS%(J).T|
000015E0: 53 25 28 4A AA 31 29 3A 20 8E 00 1A 1E CA 0D 8B |S%(J.1): .......|
000015F0: 20 54 53 25 28 4A 29 B3 33 20 A7 20 54 53 25 28 | TS%(J).3 . TS%(|
00001600: 4A 29 B2 28 54 53 25 28 4A 29 AB 32 29 AF 20 54 |J).(TS%(J).2). T|
00001610: 53 25 28 4A AA 31 29 3A 20 8E 00 3C 1E D4 0D 54 |S%(J.1): ..<...T|
00001620: 53 25 28 4A 29 B2 28 54 53 25 28 4A 29 AB 34 29 |S%(J).(TS%(J).4)|
00001630: B0 20 54 53 25 28 4A AA 31 29 3A 8E 00 73 1E 10 |. TS%(J.1):..s..|
00001640: 0E 8F 20 2A 2A 20 52 45 43 4F 52 44 20 47 45 56 |.. ** RECORD GEV|
00001650: 4F 4E 44 45 4E 20 44 41 54 20 41 41 4E 20 56 50 |ONDEN DAT AAN VP|
00001660: 50 52 57 41 41 52 44 45 4E 20 56 4F 4C 44 4F 45 |PRWAARDEN VOLDOE|
00001670: 54 2A 2A 00 86 1E 1A 0E 4C 49 4A 53 54 25 28 4C |T**.....LIJST%(L|
00001680: 50 25 29 B2 45 4C 00 94 1E 24 0E 4C 50 25 B2 4C |P%).EL...$.LP%.L|
00001690: 50 25 AA 31 00 B5 1E 2E 0E 91 20 4D 4F 44 45 25 |P%.1...... MODE%|
000016A0: 8D 20 34 34 32 30 2C 34 33 31 30 2C 37 32 30 30 |. 4420,4310,7200|
000016B0: 2C 36 32 31 30 00 BB 1E 38 0E 8E 00 EF 1E 74 0E |,6210...8.....t.|
000016C0: 8F 20 2A 2A 54 45 53 54 20 4F 20 47 45 48 45 4C |. **TEST O GEHEL|
000016D0: 45 20 53 54 52 49 4E 47 20 55 49 54 20 47 45 54 |E STRING UIT GET|
000016E0: 41 4C 4C 45 4E 20 42 45 53 54 41 41 54 2A 2A 00 |ALLEN BESTAAT**.|
000016F0: 06 1F 7E 0E 8B 20 42 24 B2 22 22 20 A7 20 4A B2 |..~.. B$."" . J.|
00001700: 32 35 35 3A 20 8E 00 18 1F 88 0E 81 20 4A B2 31 |255: ....... J.1|
00001710: 20 A4 20 C3 28 42 24 29 00 45 1F 92 0E 8B 20 28 | . .(B$).E.... (|
00001720: CA 28 42 24 2C 4A 2C 31 29 B3 22 30 22 20 B0 20 |.(B$,J,1)."0" . |
00001730: CA 28 42 24 2C 4A 2C 31 29 B1 22 39 22 29 A7 20 |.(B$,J,1)."9"). |
00001740: 4A B2 32 35 35 00 4D 1F 9C 0E 82 20 4A 00 53 1F |J.255.M.... J.S.|
00001750: A6 0E 8E 00 64 1F D8 0E 8F 20 2A 2A 47 45 54 20 |....d.... **GET |
00001760: 42 24 2A 2A 00 6E 1F E2 0E 42 24 B2 22 22 00 99 |B$**.n...B$.""..|
00001770: 1F EC 0E 41 24 B2 CA 28 54 45 53 54 24 2C 49 2C |...A$..(TEST$,I,|
00001780: 31 29 3A 20 49 B2 49 AA 31 3A 20 8B 20 41 24 B2 |1): I.I.1: . A$.|
00001790: 22 20 22 A7 20 33 38 32 30 00 C6 1F F6 0E 8B 20 |" ". 3820...... |
000017A0: 28 41 24 B2 22 20 22 20 B0 20 41 24 B2 22 3B 22 |(A$." " . A$.";"|
000017B0: 20 B0 20 41 24 B2 22 22 20 B0 20 41 24 B2 22 5F | . A$."" . A$."_|
000017C0: 22 29 20 A7 20 8E 00 D3 1F 00 0F 42 24 B2 42 24 |") . ......B$.B$|
000017D0: AA 41 24 00 E7 1F 0A 0F 41 24 B2 CA 28 54 45 53 |.A$.....A$..(TES|
000017E0: 54 24 2C 49 2C 31 29 00 F1 1F 14 0F 49 B2 49 AA |T$,I,1).....I.I.|
000017F0: 31 00 FC 1F 1E 0F 89 20 33 38 33 30 00 19 20 3C |1...... 3830.. <|
00001800: 0F 8F 20 2A 2A 54 45 53 54 20 4F 46 20 42 24 3D |.. **TEST OF B$=|
00001810: 56 41 52 4E 41 41 4D 2A 2A 00 2B 20 46 0F 81 20 |VARNAAM**.+ F.. |
00001820: 4A B2 30 20 A4 20 42 52 25 AB 31 00 5F 20 50 0F |J.0 . BR%.1._ P.|
00001830: 8B 20 42 24 B3 B1 22 22 20 A7 20 8B 20 42 24 B2 |. B$.."" . . B$.|
00001840: C8 28 44 41 54 24 28 30 2C 4A 29 2C C3 28 42 24 |.(DAT$(0,J),.(B$|
00001850: 29 29 20 A7 20 59 B2 4A 3A 20 4A B2 32 35 35 00 |)) . Y.J: J.255.|
00001860: 67 20 5A 0F 82 20 4A 00 6D 20 64 0F 8E 00 7E 20 |g Z.. J.m d...~ |
00001870: A0 0F 8F 20 2A 2A 20 54 59 50 45 20 2A 2A 00 95 |... ** TYPE **..|
00001880: 20 AA 0F 4D 4F 44 45 25 B2 31 3A 20 99 22 54 59 | ..MODE%.1: ."TY|
00001890: 50 45 20 22 3B 00 BD 20 B4 0F 8D 20 32 31 30 30 |PE ";.. ... 2100|
000018A0: 3A 20 8F 2A 20 56 4F 45 52 20 54 45 53 54 56 4F |: .* VOER TESTVO|
000018B0: 4F 52 57 41 41 52 44 45 20 49 4E 2A 2A 00 CF 20 |ORWAARDE IN**.. |
000018C0: BE 0F 8B 20 46 4F 55 54 20 A7 20 34 30 38 30 00 |... FOUT . 4080.|
000018D0: 01 21 C8 0F 99 22 93 11 2A 2A 2A 2A 2A 2A 2A 2A |.!..."..********|
000018E0: 2A 2A 2A 2A 2A 2A 2A 2A 20 54 59 50 45 20 2A 2A |******** TYPE **|
000018F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 11 11 |**************..|
00001900: 22 00 2B 21 D2 0F 50 52 B2 30 3A 20 8F 20 2A 2A |".+!..PR.0: . **|
00001910: 46 4C 41 47 2A 2A 2A 3A 27 27 54 59 50 45 20 4F |FLAG***:''TYPE O|
00001920: 50 20 53 43 48 45 52 4D 27 2A 2A 00 76 21 DC 0F |P SCHERM'**.v!..|
00001930: 53 53 25 B2 32 34 3A 20 45 54 25 B2 30 3A 20 8F |SS%.24: ET%.0: .|
00001940: 20 53 54 41 52 54 20 42 49 4A 20 31 45 2E 20 45 | START BIJ 1E. E|
00001950: 4C 45 4D 45 4E 54 20 55 49 54 20 44 45 20 4C 49 |LEMENT UIT DE LI|
00001960: 4A 53 54 3B 20 53 43 48 45 52 4D 20 49 53 20 20 |JST; SCHERM IS |
00001970: 27 56 52 49 4A 27 00 AB 21 E6 0F 8D 20 33 30 30 |'VRIJ'..!... 300|
00001980: 30 3A 20 8F 20 2A 2A 5A 4F 45 4B 2C 20 4D 41 41 |0: . **ZOEK, MAA|
00001990: 4B 20 4C 49 4A 53 54 20 45 4E 20 54 59 50 45 20 |K LIJST EN TYPE |
000019A0: 4F 50 20 53 43 48 45 52 4D 2A 2A 00 B1 21 F0 0F |OP SCHERM**..!..|
000019B0: 8E 00 C4 21 04 10 8F 20 20 2A 2A 20 50 52 49 4E |...!... ** PRIN|
000019C0: 54 20 2A 2A 00 D2 21 0E 10 99 22 50 52 49 4E 54 |T **..!..."PRINT|
000019D0: 22 3B 00 DE 21 18 10 4D 4F 44 45 25 B2 32 00 08 |";..!..MODE%.2..|
000019E0: 22 22 10 8D 20 32 31 30 30 3A 20 8F 20 2A 2A 56 |"".. 2100: . **V|
000019F0: 4F 45 52 20 54 45 53 54 56 4F 4F 52 57 41 41 52 |OER TESTVOORWAAR|
00001A00: 44 45 4E 20 49 4E 2A 2A 00 1A 22 2C 10 8B 20 46 |DEN IN**..",.. F|
00001A10: 4F 55 54 20 A7 20 34 31 38 30 00 49 22 36 10 99 |OUT . 4180.I"6..|
00001A20: 22 93 11 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"..*************|
00001A30: 2A 2A 50 52 49 4E 54 2A 2A 2A 2A 2A 2A 2A 2A 2A |**PRINT*********|
00001A40: 2A 2A 2A 2A 2A 2A 11 11 22 00 72 22 40 10 50 52 |******..".r"@.PR|
00001A50: B2 AB 31 3A 20 8F 20 2A 46 4C 41 47 2A 3A 20 27 |..1: . *FLAG*: '|
00001A60: 50 52 49 4E 54 20 4F 50 20 50 52 49 4E 54 45 52 |PRINT OP PRINTER|
00001A70: 27 2A 00 95 22 4A 10 8D 20 34 30 36 30 20 3A 20 |'*.."J.. 4060 : |
00001A80: 8F 20 2A 2A 20 44 52 55 4C 20 41 4C 4C 45 53 20 |. ** DRUL ALLES |
00001A90: 41 46 20 2A 2A 00 9B 22 54 10 8E 00 B2 22 68 10 |AF **.."T...."h.|
00001AA0: 8F 20 2A 2A 27 50 52 49 4E 54 20 4D 45 4E 55 27 |. **'PRINT MENU'|
00001AB0: 2A 2A 00 D0 22 72 10 8B 20 41 24 B2 22 11 22 20 |**.."r.. A$."." |
00001AC0: A7 20 53 53 25 B2 32 34 3A 20 89 20 34 34 31 30 |. SS%.24: . 4410|
00001AD0: 00 FA 22 7C 10 8B 20 41 24 B2 22 91 22 20 A7 20 |.."|.. A$."." . |
00001AE0: 45 54 25 B2 45 54 25 AB 32 3A 20 53 53 25 B2 50 |ET%.ET%.2: SS%.P|
00001AF0: 41 25 3A 20 89 20 34 34 31 30 00 18 23 86 10 8B |A%: . 4410..#...|
00001B00: 20 41 24 B2 22 90 22 A7 20 4D 4F 44 45 25 B2 32 | A$.".". MODE%.2|
00001B10: 3A 20 89 20 34 33 31 30 00 42 23 90 10 8B 20 41 |: . 4310.B#... A|
00001B20: 24 B2 22 92 22 A7 20 99 22 93 22 3A 20 45 54 25 |$.".". .".": ET%|
00001B30: B2 30 3A 20 53 53 25 B2 32 34 3A 20 89 20 34 34 |.0: SS%.24: . 44|
00001B40: 31 30 00 81 23 9A 10 8B 20 41 24 B2 22 5F 22 A7 |10..#... A$."_".|
00001B50: 20 45 4C B2 4D 4C 25 AA 31 3A 20 45 54 25 B2 4C | EL.ML%.1: ET%.L|
00001B60: 50 25 AA 31 3A 20 8F 20 2A 2A 52 45 54 55 52 4E |P%.1: . **RETURN|
00001B70: 20 4E 41 41 52 20 48 4F 4F 46 44 4D 45 4E 55 2A | NAAR HOOFDMENU*|
00001B80: 2A 00 87 23 A4 10 8E 00 A9 23 CC 10 8F 20 2A 2A |*..#.....#... **|
00001B90: 44 52 55 4B 20 41 4C 4C 45 53 20 4E 41 20 45 4C |DRUK ALLES NA EL|
00001BA0: 4B 41 41 52 20 41 46 2A 2A 00 B5 23 D6 10 53 53 |KAAR AF**..#..SS|
00001BB0: 25 B2 50 41 25 00 E1 23 E0 10 A1 20 41 24 3A 20 |%.PA%..#... A$: |
00001BC0: 8B 20 41 24 B3 B1 22 22 20 A7 20 4D 4F 44 45 25 |. A$.."" . MODE%|
00001BD0: B2 31 3A 20 53 53 25 B2 30 3A 20 89 20 34 32 31 |.1: SS%.0: . 421|
00001BE0: 30 00 0A 24 EA 10 8D 20 34 34 31 30 3A 20 8F 20 |0..$... 4410: . |
00001BF0: 2A 2A 44 52 55 4B 20 41 41 4E 54 41 4C 20 52 45 |**DRUK AANTAL RE|
00001C00: 43 4F 52 44 53 20 41 46 2A 2A 00 1F 24 F4 10 8B |CORDS AF**..$...|
00001C10: 20 45 54 25 B3 4C 50 25 20 A7 20 34 33 31 30 00 | ET%.LP% . 4310.|
00001C20: 25 24 FE 10 8E 00 4A 24 30 11 8F 20 2A 2A 44 52 |%$....J$0.. **DR|
00001C30: 55 4B 20 45 45 4E 20 41 41 4E 54 41 4C 20 52 45 |UK EEN AANTAL RE|
00001C40: 43 4F 52 44 53 20 41 46 2A 2A 00 5E 24 3A 11 8B |CORDS AF**.^$:..|
00001C50: 20 45 54 25 B3 30 20 A7 20 45 54 25 B2 30 00 70 | ET%.0 . ET%.0.p|
00001C60: 24 44 11 8B 20 53 53 25 B3 50 41 25 20 A7 20 8E |$D.. SS%.PA% . .|
00001C70: 00 86 24 4E 11 8B 20 50 52 20 A7 20 9F 20 32 2C |..$N.. PR . . 2,|
00001C80: 34 3A 20 9D 20 32 00 A2 24 58 11 81 20 49 B2 50 |4: . 2..$X.. I.P|
00001C90: 41 25 AA 31 20 A4 20 53 53 25 20 A9 20 50 41 25 |A%.1 . SS% . PA%|
00001CA0: AA 31 00 C0 24 62 11 8B 20 45 54 25 B1 B2 4C 50 |.1..$b.. ET%..LP|
00001CB0: 25 20 A7 20 49 B2 33 30 3A 20 89 20 34 36 32 30 |% . I.30: . 4620|
00001CC0: 00 D2 24 6C 11 58 B2 4C 49 4A 53 54 25 28 45 54 |..$l.X.LIJST%(ET|
00001CD0: 25 29 00 DB 24 76 11 99 22 1C 22 00 E8 24 80 11 |%)..$v.."."..$..|
00001CE0: 59 B2 50 56 25 28 30 29 00 07 25 8A 11 8B 20 59 |Y.PV%(0)..%... Y|
00001CF0: B2 30 20 A7 20 99 22 4E 4F 2E 3A 22 58 3B 20 3A |.0 . ."NO.:"X; :|
00001D00: 20 89 20 34 35 32 30 00 31 25 94 11 8B 20 59 B1 | . 4520.1%... Y.|
00001D10: B2 32 35 35 20 A7 20 59 B2 59 AB 32 35 35 3A 20 |.255 . Y.Y.255: |
00001D20: 99 20 44 41 54 24 28 30 2C 59 AB 31 29 22 3A 22 |. DAT$(0,Y.1)":"|
00001D30: 3B 00 43 25 9E 11 99 44 41 54 24 28 58 2C 59 AB |;.C%...DAT$(X,Y.|
00001D40: 31 29 3B 00 4D 25 A8 11 99 22 1F 22 3B 00 61 25 |1);.M%...".";.a%|
00001D50: B2 11 8B 20 50 41 25 B3 B2 31 20 A7 20 34 36 31 |... PA%..1 . 461|
00001D60: 30 00 73 25 BC 11 81 20 4A B2 31 20 A4 20 50 41 |0.s%... J.1 . PA|
00001D70: 25 AB 31 00 AA 25 C6 11 59 B2 50 56 25 28 4A 29 |%.1..%..Y.PV%(J)|
00001D80: 3A 20 8B 20 59 B1 B2 35 31 31 20 A7 20 59 B2 59 |: . Y..511 . Y.Y|
00001D90: AB 35 31 31 3A 20 49 B2 49 AB 31 3A 20 99 22 20 |.511: I.I.1: ." |
00001DA0: 22 3B 3A 20 89 20 34 35 37 30 00 B8 25 D0 11 99 |";: . 4570..%...|
00001DB0: 3A 20 99 20 A3 33 29 3B 00 E2 25 DA 11 8B 20 59 |: . .3);..%... Y|
00001DC0: B1 B2 32 35 35 20 A7 20 59 B2 59 AB 32 35 35 3A |..255 . Y.Y.255:|
00001DD0: 20 99 20 44 41 54 24 28 30 2C 59 AB 31 29 22 3A | . DAT$(0,Y.1)":|
00001DE0: 22 3B 00 F5 25 E4 11 99 20 44 41 54 24 28 58 2C |";..%... DAT$(X,|
00001DF0: 59 AB 31 29 3B 00 FD 25 EE 11 82 20 4A 00 03 26 |Y.1);..%... J..&|
00001E00: F8 11 99 00 1C 26 02 12 45 54 25 B2 45 54 25 AA |.....&..ET%.ET%.|
00001E10: 31 3A 20 53 53 25 B2 53 53 25 AB 49 00 24 26 0C |1: SS%.SS%.I.$&.|
00001E20: 12 82 20 49 00 3C 26 16 12 8B 20 50 52 20 A7 20 |.. I.<&... PR . |
00001E30: 98 32 2C 22 22 3B 20 3A 20 A0 20 32 00 42 26 20 |.2,""; : . 2.B& |
00001E40: 12 8E 00 57 26 88 13 8F 20 2A 2A 20 53 4F 52 54 |...W&... ** SORT|
00001E50: 45 52 45 4E 20 2A 2A 00 86 26 92 13 99 22 93 11 |EREN **..&..."..|
00001E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 53 4F |**************SO|
00001E70: 52 54 45 52 45 4E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |RTEREN**********|
00001E80: 2A 2A 2A 2A 2A 22 00 AC 26 9C 13 99 22 11 4E 41 |*****"..&...".NA|
00001E90: 41 4D 20 56 41 4E 20 48 45 54 20 47 45 47 45 56 |AM VAN HET GEGEV|
00001EA0: 45 4E 20 57 41 41 52 4F 50 20 20 22 00 D0 26 A6 |EN WAAROP "..&.|
00001EB0: 13 85 22 20 47 45 52 41 4E 47 53 43 48 49 4B 54 |.." GERANGSCHIKT|
00001EC0: 20 4D 4F 45 54 20 57 4F 52 44 45 4E 22 3B 41 24 | MOET WORDEN";A$|
00001ED0: 00 E2 26 B0 13 81 20 49 B2 30 20 A4 20 42 52 25 |..&... I.0 . BR%|
00001EE0: AB 31 00 02 27 BA 13 8B 20 41 24 B2 44 41 54 24 |.1..'... A$.DAT$|
00001EF0: 28 30 2C 49 29 20 A7 20 58 B2 49 3A 20 49 B2 42 |(0,I) . X.I: I.B|
00001F00: 52 25 00 0A 27 C4 13 82 20 49 00 17 27 D8 13 4A |R%..'... I..'..J|
00001F10: 55 4D 50 B2 4C 45 25 00 2C 27 E2 13 8B 20 4A 55 |UMP.LE%.,'... JU|
00001F20: 4D 50 B3 B2 31 20 A7 20 35 32 31 30 00 3F 27 EC |MP..1 . 5210.?'.|
00001F30: 13 4A 55 4D 50 B2 B5 28 4A 55 4D 50 AD 32 29 00 |.JUMP..(JUMP.2).|
00001F40: 51 27 F6 13 56 45 52 57 49 53 53 45 4C 44 B2 AB |Q'..VERWISSELD..|
00001F50: 31 00 68 27 00 14 81 20 4A B2 31 20 A4 20 28 4C |1.h'... J.1 . (L|
00001F60: 45 25 AB 4A 55 4D 50 29 00 75 27 0A 14 49 B2 4A |E%.JUMP).u'..I.J|
00001F70: AA 4A 55 4D 50 00 97 27 14 14 8B 20 44 41 54 24 |.JUMP..'... DAT$|
00001F80: 28 4A 2C 58 29 B3 B2 44 41 54 24 28 49 2C 58 29 |(J,X)..DAT$(I,X)|
00001F90: 20 A7 20 35 31 38 30 00 A9 27 1E 14 81 20 4B B2 | . 5180..'... K.|
00001FA0: 30 20 A4 20 42 52 25 AB 31 00 DD 27 28 14 48 24 |0 . BR%.1..'(.H$|
00001FB0: B2 44 41 54 24 28 49 2C 4B 29 3A 20 44 41 54 24 |.DAT$(I,K): DAT$|
00001FC0: 28 49 2C 4B 29 B2 44 41 54 24 28 4A 2C 4B 29 3A |(I,K).DAT$(J,K):|
00001FD0: 20 44 41 54 24 28 4A 2C 4B 29 B2 48 24 00 F3 27 | DAT$(J,K).H$..'|
00001FE0: 32 14 82 20 4B 3A 20 56 45 52 57 49 53 53 45 4C |2.. K: VERWISSEL|
00001FF0: 44 B2 30 00 FB 27 3C 14 82 20 4A 00 13 28 46 14 |D.0..'<.. J..(F.|
00002000: 8B 20 56 45 52 57 49 53 53 45 4C 44 20 A7 20 35 |. VERWISSELD . 5|
00002010: 30 39 30 00 1E 28 50 14 89 20 35 31 31 30 00 24 |090..(P.. 5110.$|
00002020: 28 5A 14 8E 00 52 28 70 17 8F 20 2A 2A 56 45 52 |(Z...R(p.. **VER|
00002030: 41 4E 44 45 52 20 44 45 20 47 45 47 45 56 45 4E |ANDER DE GEGEVEN|
00002040: 53 20 56 41 4E 20 45 45 4E 20 52 45 43 4F 52 44 |S VAN EEN RECORD|
00002050: 2A 2A 00 6A 28 7A 17 8F 20 2A 2A 49 4E 49 54 49 |**.j(z.. **INITI|
00002060: 41 4C 49 53 41 54 49 45 2A 2A 00 80 28 84 17 99 |ALISATIE**..(...|
00002070: 22 56 45 52 41 4E 44 45 52 20 20 20 20 20 22 3B |"VERANDER ";|
00002080: 00 A7 28 8E 17 8D 20 32 31 30 30 3A 20 8F 20 2A |..(... 2100: . *|
00002090: 2A 56 4F 45 52 20 54 45 53 54 47 45 47 45 56 45 |*VOER TESTGEGEVE|
000020A0: 4E 53 20 49 4E 2A 2A 00 B9 28 98 17 8B 20 46 4F |NS IN**..(... FO|
000020B0: 55 54 20 A7 20 36 30 38 30 00 D1 28 A2 17 45 54 |UT . 6080..(..ET|
000020C0: 25 B2 30 3A 20 59 B2 31 3A 20 4D 4F 44 45 25 B2 |%.0: Y.1: MODE%.|
000020D0: 34 00 DC 28 AC 17 8D 20 33 30 30 30 00 E2 28 B6 |4..(... 3000..(.|
000020E0: 17 99 00 E8 28 C0 17 8E 00 12 29 D4 17 8F 20 2A |....(.....)... *|
000020F0: 2A 52 45 53 50 4F 4E 53 49 45 20 4F 50 20 49 4E |*RESPONSIE OP IN|
00002100: 47 45 44 52 55 4B 54 45 20 54 4F 45 54 53 45 4E |GEDRUKTE TOETSEN|
00002110: 2A 2A 00 26 29 DE 17 8B 20 41 24 B2 22 11 22 20 |**.&)... A$."." |
00002120: A7 20 36 34 35 30 00 3A 29 E8 17 8B 20 41 24 B2 |. 6450.:)... A$.|
00002130: 22 91 22 20 A7 20 36 33 31 30 00 57 29 F2 17 8B |"." . 6310.W)...|
00002140: 20 41 24 B2 22 90 22 20 A7 20 42 24 B2 22 22 3A | A$."." . B$."":|
00002150: 20 89 20 36 34 32 30 00 6B 29 FC 17 8B 20 41 24 | . 6420.k)... A$|
00002160: B2 22 87 22 20 A7 20 36 34 31 30 00 71 29 06 18 |."." . 6410.q)..|
00002170: 8E 00 A5 29 38 18 8F 20 2A 2A 2A 50 52 49 4E 54 |...)8.. ***PRINT|
00002180: 20 4F 55 44 45 20 52 45 43 4F 52 53 20 47 45 47 | OUDE RECORS GEG|
00002190: 45 56 45 4E 53 20 4F 50 20 48 45 54 20 53 43 48 |EVENS OP HET SCH|
000021A0: 45 52 4D 2A 2A 00 BF 29 42 18 8B 28 59 B2 30 20 |ERM**..)B..(Y.0 |
000021B0: B0 20 45 54 25 B1 B2 4C 50 25 29 20 A7 20 8E 00 |. ET%..LP%) . ..|
000021C0: EF 29 4C 18 99 22 93 11 2A 2A 2A 2A 2A 2A 2A 2A |.)L.."..********|
000021D0: 2A 2A 2A 56 45 52 41 4E 44 45 52 20 52 45 43 4F |***VERANDER RECO|
000021E0: 52 44 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 11 22 00 |RD***********.".|
000021F0: 01 2A 56 18 81 20 4A B2 30 20 A4 20 42 52 25 AB |.*V.. J.0 . BR%.|
00002200: 31 00 28 2A 60 18 99 20 44 41 54 24 28 30 2C 4A |1.(*`.. DAT$(0,J|
00002210: 29 22 3A 20 22 44 41 54 24 28 4C 49 4A 53 54 25 |)": "DAT$(LIJST%|
00002220: 28 45 54 25 29 2C 4A 29 00 30 2A 6A 18 82 20 4A |(ET%),J).0*j.. J|
00002230: 00 3D 2A 74 18 59 B2 30 3A 20 58 B2 30 00 5A 2A |.=*t.Y.0: X.0.Z*|
00002240: 7E 18 99 22 13 11 11 11 1C 22 20 44 41 54 24 28 |~.."....." DAT$(|
00002250: 30 2C 58 29 22 3F 20 1F 22 3B 00 60 2A 88 18 8E |0,X)"? .";.`*...|
00002260: 00 78 2A 9C 18 8F 20 2A 2A 56 4F 52 49 47 20 47 |.x*... **VORIG G|
00002270: 45 47 45 56 45 4E 2A 2A 00 82 2A A6 18 58 B2 58 |EGEVEN**..*..X.X|
00002280: AB 31 00 95 2A B0 18 8B 20 58 B3 30 20 A7 20 58 |.1..*... X.0 . X|
00002290: B2 30 3A 20 8E 00 A7 2A BA 18 8B 20 58 B1 42 52 |.0: ...*... X.BR|
000022A0: 25 AB 32 20 A7 20 8E 00 C2 2A C4 18 99 3A 20 99 |%.2 . ...*...: .|
000022B0: 22 91 22 44 41 54 24 28 30 2C 58 AA 31 29 22 3A |"."DAT$(0,X.1)":|
000022C0: 20 22 00 DC 2A CE 18 99 22 91 91 1C 22 44 41 54 | "..*..."..."DAT|
000022D0: 24 28 30 2C 58 29 22 3F 20 1F 22 3B 00 E2 2A D8 |$(0,X)"? .";..*.|
000022E0: 18 8E 00 FF 2A 00 19 8F 20 2A 2A 56 45 52 41 41 |....*... **VERAA|
000022F0: 4E 44 45 52 20 47 45 47 45 56 45 4E 53 2A 2A 00 |NDER GEGEVENS**.|
00002300: 12 2B 0A 19 85 22 9D 9D 22 3B 42 24 3A 99 22 91 |.+..."..";B$:.".|
00002310: 22 3B 00 35 2B 14 19 43 43 25 B2 43 43 25 AB C3 |";.5+..CC%.CC%..|
00002320: 28 44 41 54 24 28 4C 49 4A 53 54 25 28 45 54 25 |(DAT$(LIJST%(ET%|
00002330: 29 2C 58 29 29 00 50 2B 1E 19 44 41 54 24 28 4C |),X)).P+..DAT$(L|
00002340: 49 4A 53 54 25 28 45 54 25 29 2C 58 29 B2 42 24 |IJST%(ET%),X).B$|
00002350: 00 6B 2B 28 19 8F 20 2A 2A 2A 56 4F 4C 47 45 4E |.k+(.. ***VOLGEN|
00002360: 44 20 47 45 47 45 56 45 4E 2A 2A 00 84 2B 32 19 |D GEGEVEN**..+2.|
00002370: 99 3A 20 99 22 91 22 44 41 54 24 28 30 2C 58 29 |.: ."."DAT$(0,X)|
00002380: 22 3A 20 22 00 8E 2B 3C 19 58 B2 58 AA 31 00 CF |": "..+<.X.X.1..|
00002390: 2B 46 19 8B 20 58 B1 42 52 25 AB 31 20 A7 20 58 |+F.. X.BR%.1 . X|
000023A0: B2 30 3A 20 45 54 25 B2 45 54 25 AA 31 3A 20 59 |.0: ET%.ET%.1: Y|
000023B0: B2 31 3A 20 89 20 36 32 31 30 3A 20 8F 2A 2A 56 |.1: . 6210: .**V|
000023C0: 4F 4C 47 45 4E 44 20 52 45 43 4F 52 44 2A 2A 00 |OLGEND RECORD**.|
000023D0: E7 2B 50 19 99 22 1C 22 44 41 54 24 28 30 2C 58 |.+P.."."DAT$(0,X|
000023E0: 29 22 3F 20 1F 22 3B 00 ED 2B 5A 19 8E 00 05 2C |)"? .";..+Z....,|
000023F0: 64 19 8F 20 2A 2A 49 4E 53 45 52 54 20 52 45 43 |d.. **INSERT REC|
00002400: 4F 52 44 2A 2A 00 13 2C 6E 19 4C 45 25 B2 4C 45 |ORD**..,n.LE%.LE|
00002410: 25 AA 31 00 4A 2C 78 19 8B 20 4C 45 25 B1 4D 4C |%.1.J,x.. LE%.ML|
00002420: 25 20 A7 20 99 22 1C 11 44 41 54 41 20 47 45 48 |% . ."..DATA GEH|
00002430: 45 55 47 45 4E 20 49 53 20 56 4F 4C 1F 22 20 3A |EUGEN IS VOL." :|
00002440: 4C 45 25 B2 4D 4C 25 3A 20 8E 00 7A 2C 82 19 99 |LE%.ML%: ..z,...|
00002450: 22 93 11 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"..*************|
00002460: 2A 2A 2A 49 4E 53 45 52 54 2A 2A 2A 2A 2A 2A 2A |***INSERT*******|
00002470: 2A 2A 2A 2A 2A 2A 2A 2A 11 22 00 8C 2C 8C 19 81 |********."..,...|
00002480: 20 49 B2 30 20 A4 20 42 52 25 AB 31 00 9D 2C 96 | I.0 . BR%.1..,.|
00002490: 19 99 20 44 41 54 24 28 30 2C 49 29 3B 00 AD 2C |.. DAT$(0,I);..,|
000024A0: A0 19 41 24 B2 22 22 3A 20 85 20 41 24 00 BA 2C |..A$."": . A$..,|
000024B0: AA 19 4A 25 B2 C3 28 41 24 29 00 F5 2C B4 19 8B |..J%..(A$)..,...|
000024C0: 20 43 43 25 AA 4A 25 B1 43 4D 25 20 A7 20 99 22 | CC%.J%.CM% . ."|
000024D0: 1C 44 41 54 41 20 47 45 48 45 55 47 45 4E 20 49 |.DATA GEHEUGEN I|
000024E0: 53 20 56 4F 4C 1F 22 3A 20 49 B2 32 35 35 3A 89 |S VOL.": I.255:.|
000024F0: 20 36 36 30 30 00 14 2D BE 19 43 43 25 B2 43 43 | 6600..-..CC%.CC|
00002500: 25 AA 4A 25 3A 20 44 41 54 24 28 4C 45 25 2C 49 |%.J%: DAT$(LE%,I|
00002510: 29 B2 41 24 00 1C 2D C8 19 82 20 49 00 2C 2D D2 |).A$..-... I.,-.|
00002520: 19 8B 20 52 41 25 B2 30 20 A7 20 8E 00 46 2D DC |.. RA%.0 . ..F-.|
00002530: 19 41 24 B2 44 41 54 24 28 4C 45 25 2C B6 28 52 |.A$.DAT$(LE%,.(R|
00002540: 41 25 29 AB 31 29 00 59 2D E6 19 8B 20 52 41 25 |A%).1).Y-... RA%|
00002550: B3 30 20 A7 20 36 37 32 30 00 69 2D F0 19 8B 20 |.0 . 6720.i-... |
00002560: 4C 45 25 B2 31 20 A7 20 8E 00 80 2D FA 19 81 20 |LE%.1 . ...-... |
00002570: 45 4C B2 4C 45 25 AB 31 20 A4 20 31 20 A9 AB 31 |EL.LE%.1 . 1 ..1|
00002580: 00 A8 2D 04 1A 8B 20 44 41 54 24 28 45 4C 2C 52 |..-... DAT$(EL,R|
00002590: 41 25 AB 31 29 B3 B2 41 24 20 A7 20 45 4C B2 30 |A%.1)..A$ . EL.0|
000025A0: 3A 20 89 20 36 37 30 30 00 BA 2D 0E 1A 81 20 49 |: . 6700..-... I|
000025B0: B2 30 20 A4 20 42 52 25 AB 31 00 F6 2D 18 1A 42 |.0 . BR%.1..-..B|
000025C0: 24 B2 44 41 54 24 28 45 4C 2C 49 29 3A 20 44 41 |$.DAT$(EL,I): DA|
000025D0: 54 24 28 45 4C 2C 49 29 B2 44 41 54 24 28 45 4C |T$(EL,I).DAT$(EL|
000025E0: AA 31 2C 49 29 3A 20 44 41 54 24 28 45 4C AA 31 |.1,I): DAT$(EL.1|
000025F0: 2C 49 29 B2 42 24 00 FE 2D 22 1A 82 20 49 00 07 |,I).B$..-".. I..|
00002600: 2E 2C 1A 82 20 45 4C 00 0D 2E 36 1A 8E 00 19 2E |.,.. EL...6.....|
00002610: 40 1A 58 B2 C5 28 41 24 29 00 30 2E 4A 1A 81 20 |@.X..(A$).0.J.. |
00002620: 45 4C B2 4C 45 25 AB 31 20 A4 20 31 20 A9 AB 31 |EL.LE%.1 . 1 ..1|
00002630: 00 5D 2E 54 1A 8B 20 C5 28 44 41 54 24 28 45 4C |.].T.. .(DAT$(EL|
00002640: 2C B6 28 52 41 25 29 AB 31 29 B3 B2 58 20 A7 20 |,.(RA%).1)..X . |
00002650: 45 4C B2 30 20 3A 20 89 20 36 37 30 30 00 68 2E |EL.0 : . 6700.h.|
00002660: 5E 1A 89 20 36 36 37 30 00 8A 2E 58 1B 8F 20 2A |^.. 6670...X.. *|
00002670: 2A 57 49 53 20 45 45 4E 20 43 4F 4D 50 4C 45 45 |*WIS EEN COMPLEE|
00002680: 54 20 52 45 43 4F 52 44 2A 2A 00 A3 2E 62 1B 8F |T RECORD**...b..|
00002690: 20 2A 2A 20 49 4E 49 54 49 41 4C 49 53 41 54 49 | ** INITIALISATI|
000026A0: 45 2A 2A 00 B9 2E 6C 1B 99 22 57 49 53 20 22 3B |E**...l.."WIS ";|
000026B0: 3A 20 4D 4F 44 45 25 B2 33 00 DC 2E 76 1B 8D 20 |: MODE%.3...v.. |
000026C0: 32 31 30 30 3A 20 8F 20 56 4F 45 52 20 56 4F 4F |2100: . VOER VOO|
000026D0: 52 57 41 41 52 44 45 4E 20 49 4E 2A 00 EE 2E 80 |RWAARDEN IN*....|
000026E0: 1B 8B 20 46 4F 55 54 20 A7 20 37 30 38 30 00 1F |.. FOUT . 7080..|
000026F0: 2F 8A 1B 99 22 93 11 2A 2A 2A 2A 2A 2A 2A 2A 2A |/..."..*********|
00002700: 2A 2A 2A 2A 57 49 53 20 52 45 43 4F 52 44 53 2A |****WIS RECORDS*|
00002710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 11 22 00 |*************.".|
00002720: 30 2F 94 1B 45 54 25 B2 30 3A 20 56 45 25 B2 30 |0/..ET%.0: VE%.0|
00002730: 00 3B 2F 9E 1B 8D 20 33 30 30 30 00 41 2F A8 1B |.;/... 3000.A/..|
00002740: 8E 00 74 2F BC 1B 8F 20 2A 2A 52 45 53 50 4F 4E |..t/... **RESPON|
00002750: 53 49 45 20 4F 50 20 48 45 54 20 49 4E 44 52 55 |SIE OP HET INDRU|
00002760: 4B 4B 45 4E 20 56 41 4E 20 45 45 4E 20 54 4F 45 |KKEN VAN EEN TOE|
00002770: 54 53 2A 2A 00 83 2F C6 1B 8B 20 59 B3 B1 31 20 |TS**../... Y..1 |
00002780: A7 20 8E 00 A1 2F D0 1B 8B 20 41 24 B3 B1 22 4A |. .../... A$.."J|
00002790: 22 20 A7 20 99 22 4E 22 3B 3A 20 89 20 37 31 39 |" . ."N";: . 719|
000027A0: 30 00 AB 2F DA 1B 99 22 4A 22 3B 00 BD 2F E4 1B |0../..."J";../..|
000027B0: 81 20 4A B2 30 20 A4 20 42 52 25 AB 31 00 D6 2F |. J.0 . BR%.1../|
000027C0: EE 1B 43 43 25 B2 43 43 25 AB C3 28 44 41 54 24 |..CC%.CC%..(DAT$|
000027D0: 28 58 2C 4A 29 29 00 DE 2F F8 1B 82 20 4A 00 E8 |(X,J))../... J..|
000027E0: 2F 02 1C 58 B2 58 AA 31 00 F6 2F 0C 1C 56 45 25 |/..X.X.1../..VE%|
000027F0: B2 56 45 25 AA 31 00 0B 30 16 1C 59 B2 30 3A 20 |.VE%.1..0..Y.0: |
00002800: 45 54 25 B2 45 54 25 AA 31 3A 99 00 1D 30 20 1C |ET%.ET%.1:...0 .|
00002810: 8F 20 2A 2A 20 44 45 4C 45 54 45 2A 2A 00 38 30 |. ** DELETE**.80|
00002820: 2A 1C 8B 20 28 45 54 25 B1 B2 4C 50 25 20 B0 20 |*.. (ET%..LP% . |
00002830: 59 B2 31 29 20 A7 20 8E 00 52 30 34 1C 81 20 49 |Y.1) . ..R04.. I|
00002840: B2 58 20 A4 20 4C 49 4A 53 54 25 28 45 54 25 29 |.X . LIJST%(ET%)|
00002850: AB 31 00 64 30 3E 1C 81 20 4A B2 30 20 A4 20 42 |.1.d0>.. J.0 . B|
00002860: 52 25 AB 31 00 80 30 48 1C 44 41 54 24 28 49 AB |R%.1..0H.DAT$(I.|
00002870: 56 45 25 2C 4A 29 B2 44 41 54 24 28 49 2C 4A 29 |VE%,J).DAT$(I,J)|
00002880: 00 8D 30 52 1C 82 20 4A 3A 20 82 20 49 00 9F 30 |..0R.. J: . I..0|
00002890: 5C 1C 58 B2 4C 49 4A 53 54 25 28 45 54 25 29 00 |\.X.LIJST%(ET%).|
000028A0: B3 30 66 1C 50 52 B2 30 3A 20 53 53 25 B2 50 41 |.0f.PR.0: SS%.PA|
000028B0: 25 AA 31 00 DC 30 70 1C 8D 20 34 34 33 30 3A 20 |%.1..0p.. 4430: |
000028C0: 8F 20 5A 45 54 20 47 45 47 45 56 45 4E 53 20 49 |. ZET GEGEVENS I|
000028D0: 4E 20 48 45 54 20 53 43 48 45 52 4D 00 F2 30 7A |N HET SCHERM..0z|
000028E0: 1C 99 22 11 57 49 53 53 45 4E 20 4A 2F 4E 20 3F |..".WISSEN J/N ?|
000028F0: 22 3B 00 05 31 84 1C 59 B2 31 3A 20 45 54 25 B2 |";..1..Y.1: ET%.|
00002900: 45 54 25 AB 31 00 0B 31 8E 1C 8E 00 22 31 98 1C |ET%.1..1...."1..|
00002910: 8F 20 2A 2A 4C 41 41 54 53 54 45 20 44 45 45 4C |. **LAATSTE DEEL|
00002920: 2A 2A 00 32 31 A2 1C 8B 20 56 45 25 B2 30 20 A7 |**.21... VE%.0 .|
00002930: 20 8E 00 42 31 AC 1C 81 20 49 B2 58 20 A4 20 4C | ..B1... I.X . L|
00002940: 45 25 00 54 31 B6 1C 81 20 4A B2 30 20 A4 20 42 |E%.T1... J.0 . B|
00002950: 52 25 AB 31 00 70 31 C0 1C 44 41 54 24 28 49 AB |R%.1.p1..DAT$(I.|
00002960: 56 45 25 2C 4A 29 B2 44 41 54 24 28 49 2C 4A 29 |VE%,J).DAT$(I,J)|
00002970: 00 81 31 CA 1C 44 41 54 24 28 49 2C 4A 29 B2 22 |..1..DAT$(I,J)."|
00002980: 22 00 8E 31 D4 1C 82 20 4A 3A 20 82 20 49 00 A5 |"..1... J: . I..|
00002990: 31 DE 1C 4C 50 25 B2 30 3A 20 4C 45 25 B2 4C 45 |1..LP%.0: LE%.LE|
000029A0: 25 AB 56 45 25 00 AB 31 E8 1C 8E 00 BB 31 40 1F |%.VE%..1.....1@.|
000029B0: 8F 20 2A 2A 20 53 41 56 45 2A 2A 00 C8 31 4A 1F |. ** SAVE**..1J.|
000029C0: 99 22 53 41 56 45 22 3B 00 F0 31 54 1F 8D 20 32 |."SAVE";..1T.. 2|
000029D0: 31 30 30 3A 20 8F 20 56 4F 45 52 20 54 45 53 54 |100: . VOER TEST|
000029E0: 56 4F 4F 52 57 41 41 52 44 45 4E 20 49 4E 2A 2A |VOORWAARDEN IN**|
000029F0: 00 02 32 5E 1F 8B 20 46 4F 55 54 20 A7 20 38 32 |..2^.. FOUT . 82|
00002A00: 39 30 00 32 32 68 1F 99 22 93 11 2A 2A 2A 2A 2A |90.22h.."..*****|
00002A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 53 41 56 45 2A 2A 2A |*********SAVE***|
00002A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002A30: 11 22 00 50 32 72 1F 85 22 46 49 4C 45 4E 41 41 |.".P2r.."FILENAA|
00002A40: 4D 2C 44 45 56 49 43 45 22 3B 46 24 2C 44 49 25 |M,DEVICE";F$,DI%|
00002A50: 00 7E 32 7C 1F 8B 20 44 49 25 B2 38 20 A7 20 9F |.~2|.. DI%.8 . .|
00002A60: 20 33 2C 38 2C 33 2C 22 40 30 3A 22 AA 46 24 AA | 3,8,3,"@0:".F$.|
00002A70: 22 2C 53 2C 57 22 3A 20 89 20 38 30 38 30 00 A7 |",S,W": . 8080..|
00002A80: 32 86 1F 9F 20 33 2C 31 2C 31 2C 46 24 3A 20 8F |2... 3,1,1,F$: .|
00002A90: 20 4F 50 45 4E 20 46 49 4C 45 20 56 4F 4F 52 20 | OPEN FILE VOOR |
00002AA0: 57 52 49 54 45 2A 2A 00 C3 32 90 1F 99 22 1C 53 |WRITE**..2...".S|
00002AB0: 41 56 49 4E 47 1F 22 20 3A 20 43 52 24 B2 C7 28 |AVING." : CR$..(|
00002AC0: 31 33 29 00 D7 32 9A 1F 4D 4F 44 45 25 B2 39 3A |13)..2..MODE%.9:|
00002AD0: 20 8D 20 33 30 31 30 00 F0 32 A4 1F 52 4E 25 B2 | . 3010..2..RN%.|
00002AE0: 30 3A 20 81 20 4A B2 30 20 A4 20 50 41 25 AB 31 |0: . J.0 . PA%.1|
00002AF0: 00 10 33 AE 1F 59 B2 50 56 25 28 4A 29 3A 20 8B |..3..Y.PV%(J): .|
00002B00: 20 59 B1 32 35 35 20 A7 20 59 B2 59 AB 32 35 35 | Y.255 . Y.Y.255|
00002B10: 00 38 33 B8 1F 50 56 25 28 4A 29 B2 B6 28 59 29 |.83..PV%(J)..(Y)|
00002B20: AB 31 3A 20 8B 20 52 4E 25 B2 B6 28 59 29 AB 31 |.1: . RN%..(Y).1|
00002B30: 20 A7 20 52 4E 25 B2 4A 00 40 33 C2 1F 82 20 4A | . RN%.J.@3... J|
00002B40: 00 5A 33 CC 1F 43 4F 55 4E 54 B2 30 3A 4C 49 4A |.Z3..COUNT.0:LIJ|
00002B50: 53 54 25 28 4C 50 25 29 B2 30 00 6A 33 D6 1F 81 |ST%(LP%).0.j3...|
00002B60: 20 49 B2 30 20 A4 20 4C 50 25 00 7C 33 E0 1F 81 | I.0 . LP%.|3...|
00002B70: 20 4A B2 30 20 A4 20 50 41 25 AB 31 00 A6 33 EA | J.0 . PA%.1..3.|
00002B80: 1F 43 4F 55 4E 54 B2 43 4F 55 4E 54 AA C3 28 44 |.COUNT.COUNT..(D|
00002B90: 41 54 24 28 4C 49 4A 53 54 25 28 49 29 2C 50 56 |AT$(LIJST%(I),PV|
00002BA0: 25 28 4A 29 29 29 00 B3 33 F4 1F 82 20 4A 3A 20 |%(J)))..3... J: |
00002BB0: 82 20 49 00 DA 33 FE 1F 98 33 2C 43 4F 55 4E 54 |. I..3...3,COUNT|
00002BC0: 3B 43 52 24 3B 4C 50 25 43 52 24 3B 50 41 25 43 |;CR$;LP%CR$;PA%C|
00002BD0: 52 24 3B 52 4E 25 43 52 24 3B 00 EC 33 08 20 81 |R$;RN%CR$;..3. .|
00002BE0: 20 4A B2 30 20 A4 20 50 41 25 AB 31 00 13 34 12 | J.0 . PA%.1..4.|
00002BF0: 20 41 24 B2 44 41 54 24 28 30 2C 50 56 25 28 4A | A$.DAT$(0,PV%(J|
00002C00: 29 29 3A 20 8B 20 41 24 B2 22 22 20 A7 41 24 B2 |)): . A$."" .A$.|
00002C10: 22 20 22 00 25 34 1C 20 98 33 2C 41 24 43 52 24 |" ".%4. .3,A$CR$|
00002C20: 3A 20 82 20 4A 00 37 34 26 20 81 20 49 B2 30 20 |: . J.74& . I.0 |
00002C30: A4 20 4C 50 25 AB 31 00 49 34 30 20 81 20 4A B2 |. LP%.1.I40 . J.|
00002C40: 30 20 A4 20 50 41 25 AB 31 00 7A 34 3A 20 41 24 |0 . PA%.1.z4: A$|
00002C50: B2 44 41 54 24 28 4C 49 4A 53 54 25 28 49 29 2C |.DAT$(LIJST%(I),|
00002C60: 50 56 25 28 4A 29 29 3A 20 8B 20 41 24 B2 22 22 |PV%(J)): . A$.""|
00002C70: 20 20 A7 20 41 24 B2 22 A0 22 00 88 34 44 20 98 | . A$."."..4D .|
00002C80: 33 2C 41 24 43 52 24 3B 00 95 34 4E 20 82 20 4A |3,A$CR$;..4N . J|
00002C90: 3A 20 82 20 49 00 9D 34 58 20 A0 20 33 00 A3 34 |: . I..4X . 3..4|
00002CA0: 62 20 8E 00 C7 34 34 21 8F 20 2A 2A 4C 4F 41 44 |b ...44!. **LOAD|
00002CB0: 20 45 45 4E 20 43 4F 4D 50 4C 45 45 54 20 42 45 | EEN COMPLEET BE|
00002CC0: 53 54 41 4E 44 2A 2A 00 CD 34 3E 21 9C 00 FC 34 |STAND**..4>!...4|
00002CD0: 48 21 99 22 93 11 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |H!."..**********|
00002CE0: 2A 2A 2A 2A 2A 4C 4F 41 44 2A 2A 2A 2A 2A 2A 2A |*****LOAD*******|
00002CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 11 11 22 00 1B 35 52 |*********.."..5R|
00002D00: 21 85 22 46 49 4C 45 4E 41 41 4D 2E 20 44 45 56 |!."FILENAAM. DEV|
00002D10: 49 43 45 22 3B 46 24 2C 44 49 25 00 43 35 5C 21 |ICE";F$,DI%.C5\!|
00002D20: 8B 20 44 49 25 B2 38 20 A7 20 9F 20 33 2C 38 2C |. DI%.8 . . 3,8,|
00002D30: 33 2C 46 24 AA 22 2C 53 2C 52 22 3A 20 89 20 38 |3,F$.",S,R": . 8|
00002D40: 35 37 30 00 71 35 66 21 9F 33 2C 31 2C 30 2C 46 |570.q5f!.3,1,0,F|
00002D50: 24 3A 20 8F 20 2A 2A 4F 50 45 4E 20 56 4F 4F 52 |$: . **OPEN VOOR|
00002D60: 20 46 49 4C 45 20 56 4F 4F 52 20 52 45 41 44 2A | FILE VOOR READ*|
00002D70: 2A 00 83 35 7A 21 99 22 1C 11 4C 4F 41 44 49 4E |*..5z!."..LOADIN|
00002D80: 47 1F 22 00 9A 35 84 21 84 33 2C 43 43 25 2C 4C |G."..5.!.3,CC%,L|
00002D90: 45 25 2C 42 52 25 2C 52 41 25 00 BC 35 8E 21 59 |E%,BR%,RA%..5.!Y|
00002DA0: B2 32 35 30 30 30 AB 43 43 25 AB 28 42 52 25 AC |.25000.CC%.(BR%.|
00002DB0: 33 AA 32 29 AC 28 4C 45 25 AA 31 29 00 D8 35 98 |3.2).(LE%.1)..5.|
00002DC0: 21 4D 4C 25 B2 4C 45 25 AA B5 28 59 AD 28 31 33 |!ML%.LE%..(Y.(13|
00002DD0: AC 42 52 25 AA 32 29 29 00 09 36 A2 21 43 4D 25 |.BR%.2))..6.!CM%|
00002DE0: B2 43 43 25 AA B5 28 59 AB 59 AC 28 33 AC 42 52 |.CC%..(Y.Y.(3.BR|
00002DF0: 25 AA 32 29 AD 28 31 33 AC 42 52 25 AA 32 29 29 |%.2).(13.BR%.2))|
00002E00: 3A 20 4D 42 25 B2 42 52 25 00 2D 36 AC 21 86 20 |: MB%.BR%.-6.!. |
00002E10: 4C 49 4A 53 54 25 28 4D 4C 25 AB 31 29 2C 44 41 |LIJST%(ML%.1),DA|
00002E20: 54 24 28 4D 4C 25 2C 4D 42 25 AB 31 29 00 3D 36 |T$(ML%,MB%.1).=6|
00002E30: B6 21 81 20 49 B2 30 20 A4 20 4C 45 25 00 4F 36 |.!. I.0 . LE%.O6|
00002E40: C0 21 81 20 4A B2 30 20 A4 20 42 52 25 AB 31 00 |.!. J.0 . BR%.1.|
00002E50: 60 36 CA 21 84 33 2C 44 41 54 24 28 49 2C 4A 29 |`6.!.3,DAT$(I,J)|
00002E60: 00 83 36 D4 21 8B 20 44 41 54 24 28 49 2C 4A 29 |..6.!. DAT$(I,J)|
00002E70: B2 22 A0 22 20 A7 20 44 41 54 24 28 49 2C 4A 29 |."." . DAT$(I,J)|
00002E80: B2 22 22 00 8B 36 DE 21 82 20 4A 00 93 36 E8 21 |.""..6.!. J..6.!|
00002E90: 82 20 49 00 9B 36 F2 21 A0 20 33 00 A5 36 FC 21 |. I..6.!. 3..6.!|
00002EA0: 5A 5A 25 B2 31 00 AF 36 06 22 89 20 31 31 30 00 |ZZ%.1..6.". 110.|
00002EB0: CE 36 28 23 8F 20 2A 2A 44 49 52 45 43 54 4F 52 |.6(#. **DIRECTOR|
00002EC0: 59 20 56 41 4E 20 53 43 48 49 4A 46 2A 2A 00 FD |Y VAN SCHIJF**..|
00002ED0: 36 32 23 99 22 93 11 2A 2A 2A 2A 2A 2A 2A 2A 20 |62#."..******** |
00002EE0: 44 49 52 45 43 54 4F 52 59 20 56 56 41 4E 20 53 |DIRECTORY VVAN S|
00002EF0: 43 48 49 4A 46 2A 2A 2A 2A 2A 2A 11 22 00 18 37 |CHIJF******."..7|
00002F00: 3C 23 9F 20 34 2C 38 2C 30 2C 22 24 22 3A 20 A1 |<#. 4,8,0,"$": .|
00002F10: 23 34 2C 41 24 2C 42 24 00 31 37 46 23 A1 23 34 |#4,A$,B$.17F#.#4|
00002F20: 2C 41 24 2C 42 24 3A 20 A1 23 34 2C 41 24 2C 42 |,A$,B$: .#4,A$,B|
00002F30: 24 00 4D 37 50 23 43 B2 30 3A 20 8B 20 41 24 B3 |$.M7P#C.0: . A$.|
00002F40: B1 22 22 20 A7 20 43 B2 C6 28 41 24 29 00 6A 37 |."" . C..(A$).j7|
00002F50: 5A 23 8B 20 42 24 B3 B1 22 22 20 A7 20 43 B2 43 |Z#. B$.."" . C.C|
00002F60: AA C6 28 42 24 29 AC 32 35 36 00 82 37 64 23 99 |..(B$).256..7d#.|
00002F70: 22 20 22 3B CA 28 C4 28 43 29 2C 32 29 3B A3 37 |" ";.(.(C),2);.7|
00002F80: 29 3B 00 9C 37 6E 23 A1 23 34 2C 42 24 3A 20 8B |);..7n#.#4,B$: .|
00002F90: 20 53 54 B3 B1 30 A7 20 39 31 35 30 00 B3 37 78 | ST..0. 9150..7x|
00002FA0: 23 8B 20 42 24 B3 B1 C7 28 33 34 29 20 A7 20 39 |#. B$...(34) . 9|
00002FB0: 30 37 30 00 DA 37 82 23 A1 23 34 2C 42 24 3A 20 |070..7.#.#4,B$: |
00002FC0: 8B 20 42 24 B3 B1 C7 28 33 34 29 20 A7 20 99 20 |. B$...(34) . . |
00002FD0: 42 24 3B 3A 89 20 39 30 39 30 00 F8 37 8C 23 A1 |B$;:. 9090..7.#.|
00002FE0: 23 34 2C 42 24 3A 20 8B 20 42 24 B2 C7 28 33 32 |#4,B$: . B$..(32|
00002FF0: 29 20 A7 20 39 31 30 30 00 0B 38 96 23 99 20 A3 |) . 9100..8.#. .|
00003000: 32 35 29 3B 3A 20 43 24 B2 22 22 00 31 38 A0 23 |25);: C$."".18.#|
00003010: 43 24 B2 43 24 AA 42 24 3A 20 A1 23 34 2C 42 24 |C$.C$.B$: .#4,B$|
00003020: 3A 20 8B 20 42 24 B3 B1 22 22 20 A7 20 39 31 32 |: . B$.."" . 912|
00003030: 30 00 3F 38 AA 23 99 20 C8 28 43 24 2C 33 29 00 |0.?8.#. .(C$,3).|
00003040: 51 38 B4 23 8B 20 53 54 B2 30 20 A7 20 39 30 33 |Q8.#. ST.0 . 903|
00003050: 30 00 67 38 BE 23 99 22 20 56 52 49 4A 45 20 42 |0.g8.#." VRIJE B|
00003060: 4C 4F 4B 4B 45 4E 22 00 90 38 C8 23 A0 20 34 3A |LOKKEN"..8.#. 4:|
00003070: 20 99 3A 99 22 47 45 45 46 20 3C 43 52 3E 4F 4D | .:."GEEF <CR>OM|
00003080: 20 56 45 52 44 45 52 20 54 45 20 47 41 41 4E 22 | VERDER TE GAAN"|
00003090: 00 A9 38 D2 23 A1 20 41 24 3A 20 8B 20 41 24 B2 |..8.#. A$: . A$.|
000030A0: 22 22 20 A7 20 39 31 37 30 00 AF 38 DC 23 8E 00 |"" . 9170..8.#..|
000030B0: CB 38 F0 23 8F 20 2A 2A 20 53 43 48 49 4A 46 20 |.8.#. ** SCHIJF |
000030C0: 42 45 57 45 52 4B 49 4E 47 2A 2A 00 DE 38 FA 23 |BEWERKING**..8.#|
000030D0: 99 22 20 3E 22 3B 3A 20 8D 20 32 30 31 30 00 F1 |." >";: . 2010..|
000030E0: 38 04 24 9F 31 35 2C 38 2C 31 35 2C 54 45 53 54 |8.$.15,8,15,TEST|
000030F0: 24 00 FE 38 0E 24 84 31 35 2C 53 2C 53 24 00 1C |$..8.$.15,S,S$..|
00003100: 39 18 24 99 3A 20 99 22 20 53 43 48 49 4A 46 53 |9.$.: ." SCHIJFS|
00003110: 54 41 54 55 53 20 3A 20 22 3B 53 24 00 25 39 22 |TATUS : ";S$.%9"|
00003120: 24 A0 20 31 35 00 2B 39 2C 24 8E 00 00 00 2E |$. 15.+9,$..... |
....N.. ** DATABASE **.3.X.. ** DOOR J.R
IBBERINK **.J.... ** VERSIE 1.2 **.D....
** INITIALISATIE **... .. 53280,1: . **
SCHERMRANDKLEUR...... 53281,1......"." :
. TEKST BLAUW.F.... SL%(10,2),PV%(23)..
.H.. ** DISPLAY MENU **...R..".. *******
*******DATABASE **************".8...."..
AANTAL VRIJE KARAKTERS:"CM%.CC%.M....".
HOOFDMENU :".Q....". N: MAAK EEN NIEUW
DATABLOK"......" I: INSERT EEN NIEUW REC
ORD"......" W: WIS EEN RECORD".Z...." V:
VERANDER GEGEVENS VAN EEN RECORD"..."..
" T: PRINT GEGEVENS OP HET SCHERM".*.,..
" P: PRINT GEGEVENS OP DE PRINTER".:.6..
" S: SAVE".J.@.." L: LOAD".J.T.." R: SOR
TEER HET DATABLOK"...^.." M: DRUK MENU A
F"...H.." $: DIRECTORY VAN SCHIJF".A.R..
" >: BEWERKING OP SCHIJF".Q.|.." E: EXIT
"...... ** MENU **......". OPDRACHT ? (M
=MENU)"......A$: . A$."" . 410. .... 450
.3.... A$."M" . 210.=.... 400.Q.B.. A$."
N" . 1010.E.L.. A$."P" . 4110.Y.V.. A$."
T" . 4010...... A$."I" . 6510...... A$."
W" . 7010...... A$."V" . 6010.I.... A$."
S" . 8010...... A$."L" . 8510...... A$."
R" . 5010...... A$."E" . ....&.. A$."$"
. 9000.*.0.. A$.">" . 9210.0.:...J.... *
* NIEUW BESTAND **.{....".. ************
NIEUW BESTAND************"...... ZZ%..
0 . 1130......".. AANTAL VELDEN";MB%....
.Y.24998.3.MB%: ML%..(Y.(13.MB%.2)):CM%.
.(Y.Y.(3.MB%.2).(13.MB%.2)).....ZZ%.1: .
DAT$(ML%,MB%.1),LIJST%(ML%.1).0.$.. I.0
. MB%.1.E...." VELDNAAM"I.1;.U.8.. DAT$
(0,I).N.B.CC%.CC%.C(DAT$(0,I)).V.L.. I..
.V.LE%.0: BR%.MB%: RA%.1...`.....J.."..
ER STAAT AL EEN BESTAND IN".Q.T.." HET G
EHEUGEN."...~.." MOET DIT GEWIST WORDEN
? )J/N)...... A$: . A$."" . 1160.).... A
$."J" . .: . 1010.;.... A$."" . 110.A...
..`.P.. ** VOER TESTSTRING IN **.|.Z.TES
T$."": FOUT.0:. 2030.....TEST$.TEST$.A$:
."."A$;.....I.0: .". .";.X.... A$: .(A$
.." ". A$.."_" ). A$.."A" . 2020...... A
$.G(20). TEST$."" . 2040.2.... A$.G(20).
.". ..";:TEST$.H(TEST$,C(TEST$).1):. 20
30.M...I.I.1: . I.17 . .". ";.H.... I.35
. .".. .";: I.0.. .. A$..G(13) . 2040.
..%.....*.. ** CONVERTEER TESTSTRING **.
..4.. 2010:.:I.1:LP%.0.Z.>.. J.0 . 23: P
V%(J).0: ....H.B$."": C$."" : SB%.1: SE%
.LE%.(.R.A$.J(TEST$,I,1): I.I.1: . A$."
" . 2130.U.\..(A$."" . A$." ". A$.";". A
$."_") . 2200.J.F.. A$.."-" . 2190.U.P..
3700...Z.. J..255 . SB%.E(B$): C$.B$.A$
: B$."": A$.""...... SB%..0 . SB%.1.....
B$.B$.A$: A$.J(TEST$,I,1): I.I.1: . 2140
...... 3700...... J.255 . B$.C$.B$: SB%.
1: . 2250.1.... J.255 . SE%.E(B$).U....
C$."" . . TEST$.."" . SB%.SE%.`.... 3800
.H.J.X.0...T.. B$."NO" . PV%(0).0: X.1:
. 380O...Y.. B$."ALS" . SA%.0: . 2330.I.
... A$.";" . PV%(X.1).511...... A$."_" .
PV%(X.1).255...... 3900.'.... J..255 .
PV%(X).PV%(X).Y.1:X.X.1: . 3800: . 2265.
S.... * B$ IS DE NAAM VAN DE 1E. VARIABE
LE*.O.... B$."" . SA%.0: . 2340.....SL%(
0,0).1: SL%(0,1).0: SL%(0,2).0: SA%.1.B.
..SV$(0).B$.A$.J(TEST$,I,C(TEST$))...$..
* MAAK TESTARRAY LEEG *...... J.SA% . 1
0...8.. Y.0 . 2...B.SL%(J,Y).0.&.L.. Y:
SV$(J)."": . J.O.V.. ** ZET VARIABELE VO
OR PRINT/TYPE**.J.`.. X..0 . PA%.X: . 24
40.V.J.PA%.BR%...T.. BR%.24 . PA%.24...~
.. X.1 . PA%: PV%(X.1).X: . X.....X.0...
..A$.J(TEST$,I,1): I.I.1: . A$." " . 245
0...... A$."" . ......J.1.4.... A$."(" .
X.X.1.J: SL%(X,1).SL%(X,1).4: X.X.1: .
2450.G...B$."": SA%.X.1.T.D.B$.B$.A$.H.N
.A$.J(TEST$,I,1).R.X.I.I.1...... A$." "
. 2510...... A$."=". SL%(X,0).1:. 2590.F
.... A$.">". SL%(X,0).2:. 2590...... A$.
"<". SL%(X,0).3:. 2590...... A$."" . .".
.TEST-ERROR.": . 2900......2500: . *VOLG
ENDE KARAKTER*.B...A$.J(TEST$,I,1).C.(..
A$.">" . I.I.1: SL%(X,0).4...2.. A$."="
. I.I.1: SL%(X,0).SL%(X,0).3...<..3900:
.*TEST OF B$=VARNAAM*...F.. J.255 . ."..
VELD"B$"IS NIET BEKEND.": . 2900...P.SL%
(X,2).Y...Z.C$.""...D.B$.""...N.A$.J(TES
T$,I,1).!.X.I.I.1.A.... A$." ". C$.C$."
": . 2670.T.... A$.")". 2800.......(A$."
".A$."(".A$."").B$.B$.A$:A$.J(TEST$,I,1
):I.I.1:.2700... .. B$."EN" . SL%(X,1).S
L%(X,1).1:. 2840...... B$."OF" . SL%(X,1
).SL%(X,1).2:. 2840...... SV$(X)."" . SV
$(X).B$: . 2760.'...SV$(X).SV$(X).C$.B$.
E.H.. A$.."" . C$." ": . 2660.Q.R.B$.SV$
(X):. 3700: . *TEST OF B$=GETAAL*......
J.255 . SL%(X,0).SL%(X,0).6............
SL%(X,1).7 . X.X.1.L...SL%(X,1).8: SA%.S
A%.1...... B$.."" . SV$(X).SV$(X).C$.B$.
..... 2650.*...B$.SV$(X): . 3700: .*TEST
OF STING G=GETAL*.L.".. J.255 . SL%(X,0
).SL%(X,0).6.[.,.X.X.1: J.0.P.6.. A$." "
. A$."".{.@.. 2480...J.. **ERROR**...T.
FOUT ..1: ..P....**ZOEK RECORDS DIE AAN
DE VOORWAARDEN VOLDOEN**...B.. LP%..0 .
3420...L.. SE%.LE% . SE%.LE%...V.. EL.SB
% . SE%."...TS%(0)..1: J.1.4.... I.0 . S
A%.1..... SL%(I,0).3080,3090,3100,3110,
3120,3130,3140,3150,3160,3170,3180,3190.
....TS%(J)..1: . 3300.C...TS%(J).(DAT$(E
L,SL%(I,2)).SV$(I)): . 3300.....TS%(J).(
DAT$(EL,SL%(I,2)).SV$(I)): . 3300.....TS
%(J).(DAT$(EL,SL%(I,2)).SV$(I)): . 3300.
M.&.TS%(J).(DAT$(EL,SL%(I,2))..SV$(I)):.
3300.|.0.TS%(J).(DAT$(EL,SL%(I,2))..SV$
(I)): . 3300...:.TS%(J).(DAT$(EL,SL%(I,2
))..SV$(I)): . 3300...D.TS%(J).(E(DAT$(E
L,SL%(I,2))).E(SV$(I))):. 3300...N.TS%(J
).(E(DAT$(EL,SL%(I,2))).E(SV$(I))): . 33
00.F.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......3500: . **BEREKENING
VAN TESTVOORWAARDEN**./.... SL%(I,1).7 .
. 3500.P...TS%(J).TS%(J).2.(SL%(I,1).3)
.Z...J.J.1...... (SL%(I,1). 4).4 . TS%(J
)..1: J.J.1...... I... .. TS%(0)..1 . .
3600: .**TEST IS WAAR**...4.. A$: . A$..
"" . . MODE% . 4210,4310,7110,6110...>..
EL...H.. ET%..LP% . 3450...R.. MODE%..9
. .A$: . A$."" . 3410.P.\.. MODE% . 421
0,4310,7110,6110.J.F.. MODE%.9 . ET%.ET%
.1.U.P.. 3400...Z.. MODE%.3 . . 7320....
........**BEREKENING VAN TEST VOORWAARDE
N**.E...J.J.1...... TS%(J)..0 . TS%(J).T
S%(J.1): ....J.. TS%(J).3 . TS%(J).(TS%(
J).2). TS%(J.1): ..<.T.TS%(J).(TS%(J).4)
. TS%(J.1):..S.... ** RECORD GEVONDEN DA
T AAN VPPRWAARDEN VOLDOET**.....LIJST%(L
P%).EL...$.LP%.LP%.1...... MODE%. 4420,4
310,7200,6210...8.....T.. **TEST O GEHEL
E STRING UIT GETALLEN BESTAAT**...~.. B$
."" . J.255: ....... J.1 . C(B$).E.... (
J(B$,J,1)."0" . J(B$,J,1)."9"). J.255.M.
... J.S.....D.X.. **GET B$**.N...B$.""..
...A$.J(TEST$,I,1): I.I.1: . A$." ". 382
0.F.... (A$." " . A$.";" . A$."" . A$."_
") . ..S...B$.B$.A$.....A$.J(TEST$,I,1).
....I.I.1...... 3830.. <.. **TEST OF B$=
VARNAAM**.+ F.. J.0 . BR%.1._ P.. B$..""
. . B$.H(DAT$(0,J),C(B$)) . Y.J: J.255.
G Z.. J.M D...~ .. ** TYPE **.. ..MODE%
.1: ."TYPE ";.. ... 2100: .* VOER TESTVO
ORWAARDE IN**.O ... FOUT . 4080..!H.."..
**************** TYPE ****************..
".+!R.PR.0: . **FLAG***:''TYPE OP SCHERM
'**.V!..SS%.24: ET%.0: . START BIJ 1E. E
LEMENT UIT DE LIJST; SCHERM IS 'VRIJ'..
!... 3000: . **ZOEK, MAAK LIJST EN TYPE
OP SCHERM**..!....D!... ** PRINT **.R!.
.."PRINT";..!..MODE%.2.."".. 2100: . **V
OER TESTVOORWAARDEN IN**..",.. FOUT . 41
80.I"6.."..***************PRINT*********
******..".R"@.PR..1: . *FLAG*: 'PRINT OP
PRINTER'*.."J.. 4060 : . ** DRUL ALLES
AF **.."T...."H.. **'PRINT MENU'**.P"R..
A$."." . SS%.24: . 4410.."|.. A$."." .
ET%.ET%.2: SS%.PA%: . 4410..#... A$.".".
MODE%.2: . 4310.B#... A$.".". .".": ET%
.0: SS%.24: . 4410..#... A$."_". EL.ML%.
1: ET%.LP%.1: . **RETURN NAAR HOOFDMENU*
*..#.....#L.. **DRUK ALLES NA ELKAAR AF*
*..#V.SS%.PA%..#... A$: . A$.."" . MODE%
.1: SS%.0: . 4210..$... 4410: . **DRUK A
ANTAL RECORDS AF**..$... ET%.LP% . 4310.
%$....J$0.. **DRUK EEN AANTAL RECORDS AF
**.^$:.. ET%.0 . ET%.0.P$D.. SS%.PA% . .
..$N.. PR . . 2,4: . 2..$X.. I.PA%.1 . S
S% . PA%.1..$B.. ET%..LP% . I.30: . 4620
.R$L.X.LIJST%(ET%)..$V.."."..$..Y.PV%(0)
..%... Y.0 . ."NO.:"X; : . 4520.1%... Y.
.255 . Y.Y.255: . DAT$(0,Y.1)":";.C%...D
AT$(X,Y.1);.M%...".";.A%... PA%..1 . 461
0.S%... J.1 . PA%.1..%F.Y.PV%(J): . Y..5
11 . Y.Y.511: I.I.1: ." ";: . 4570..%P..
: . .3);..%Z.. Y..255 . Y.Y.255: . DAT$(
0,Y.1)":";..%... DAT$(X,Y.1);..%... J..&
.....&..ET%.ET%.1: SS%.SS%.I.$&... I.<&.
.. PR . .2,""; : 2.B& ...W&... ** SORT
EREN **..&..."..**************SORTEREN**
*************"..&...".NAAM VAN HET GEGEV
EN WAAROP ".P&..." GERANGSCHIKT MOET WO
RDEN";A$..&... I.0 . BR%.1..'... A$.DAT$
(0,I) . X.I: I.BR%..'D.. I..'X.JUMP.LE%.
,'... JUMP..1 . 5210.?'..JUMP..(JUMP.2).
Q'..VERWISSELD..1.H'... J.1 . (LE%.JUMP)
.U'..I.J.JUMP..'... DAT$(J,X)..DAT$(I,X)
. 5180..'... K.0 . BR%.1..'(.H$.DAT$(I,
K): DAT$(I,K).DAT$(J,K): DAT$(J,K).H$..'
2.. K: VERWISSELD.0..'<.. J..(F.. VERWIS
SELD . 5090..(P.. 5110.$(Z...R(P.. **VER
ANDER DE GEGEVENS VAN EEN RECORD**.J(Z..
**INITIALISATIE**..(..."VERANDER ";
..(... 2100: . **VOER TESTGEGEVENS IN**.
.(... FOUT . 6080.Q(..ET%.0: Y.1: MODE%.
4..(... 3000..(.....(.....)T.. **RESPONS
IE OP INGEDRUKTE TOETSEN**.&)... A$."."
. 6450.:)... A$."." . 6310.W)... A$."."
. B$."": . 6420.K)... A$."." . 6410.Q)..
...)8.. ***PRINT OUDE RECORS GEGEVENS OP
HET SCHERM**..)B..(Y.0 . ET%..LP%) . ..
.)L.."..***********VERANDER RECORD******
*****."..*V.. J.0 . BR%.1.(*`.. DAT$(0,J
)": "DAT$(LIJST%(ET%),J).0*J.. J.=*T.Y.0
: X.0.Z*~.."....." DAT$(0,X)"? .";.`*...
.X*... **VORIG GEGEVEN**..*..X.X.1..*...
X.0 . X.0: ...*... X.BR%.2 . ..B*D..: .
"."DAT$(0,X.1)": "..*N.."..."DAT$(0,X)"?
.";..*X....*... **VERAANDER GEGEVENS**.
.+..."..";B$:.".";.5+..CC%.CC%.C(DAT$(LI
JST%(ET%),X)).P+..DAT$(LIJST%(ET%),X).B$
.K+(.. ***VOLGEND GEGEVEN**..+2..: ."."D
AT$(0,X)": "..+<.X.X.1.O+F.. X.BR%.1 . X
.0: ET%.ET%.1: Y.1: . 6210: .**VOLGEND R
ECORD**..+P.."."DAT$(0,X)"? .";..+Z....,
D.. **INSERT RECORD**..,N.LE%.LE%.1.J,X.
. LE%.ML% . ."..DATA GEHEUGEN IS VOL." :
LE%.ML%: ..Z,..."..****************INSER
T***************."..,... I.0 . BR%.1..,.
.. DAT$(0,I);.., .A$."": . A$..,..J%.C(A
$)..,... CC%.J%.CM% . .".DATA GEHEUGEN I
S VOL.": I.255:. 6600..-..CC%.CC%.J%: DA
T$(LE%,I).A$..-H.. I.,-R.. RA%.0 . ..F-.
.A$.DAT$(LE%,.(RA%).1).Y-... RA%.0 . 672
0.I-... LE%.1 . ...-... EL.LE%.1 . 1 ..1
..-... DAT$(EL,RA%.1)..A$ . EL.0: . 6700
..-... I.0 . BR%.1..-..B$.DAT$(EL,I): DA
T$(EL,I).DAT$(EL.1,I): DAT$(EL.1,I).B$..
-".. I...,.. EL...6.....@.X.E(A$).0.J..
EL.LE%.1 . 1 ..1.].T.. E(DAT$(EL,.(RA%).
1)..X . EL.0 : . 6700.H.^.. 6670...X.. *
*WIS EEN COMPLEET RECORD**...B.. ** INIT
IALISATIE**...L.."WIS ";: MODE%.3...V..
2100: . VOER VOORWAARDEN IN*...... FOUT
. 7080../..."..*************WIS RECORDS*
*************.".0/..ET%.0: VE%.0.;/... 3
000.A/....T/... **RESPONSIE OP HET INDRU
KKEN VAN EEN TOETS**../F.. Y..1 . .../P.
. A$.."J" . ."N";: . 7190../Z.."J";../..
. J.0 . BR%.1.V/..CC%.CC%.C(DAT$(X,J))..
/... J../..X.X.1../..VE%.VE%.1..0..Y.0:
ET%.ET%.1:...0 .. ** DELETE**.80*.. (ET%
..LP% . Y.1) . ..R04.. I.X . LIJST%(ET%)
.1.D0>.. J.0 . BR%.1..0H.DAT$(I.VE%,J).D
AT$(I,J)..0R.. J: . I..0\.X.LIJST%(ET%).
.0F.PR.0: SS%.PA%.1..0P.. 4430: . ZET GE
GEVENS IN HET SCHERM..0Z..".WISSEN J/N ?
";..1..Y.1: ET%.ET%.1..1...."1... **LAAT
STE DEEL**.21... VE%.0 . ..B1... I.X . L
E%.T1... J.0 . BR%.1.P1..DAT$(I.VE%,J).D
AT$(I,J)..1J.DAT$(I,J).""..1T.. J: . I..
1..LP%.0: LE%.LE%.VE%..1.....1@.. ** SAV
E**.H1J.."SAVE";..1T.. 2100: . VOER TEST
VOORWAARDEN IN**..2^.. FOUT . 8290.22H..
"..**************SAVE*******************
.".P2R.."FILENAAM,DEVICE";F$,DI%.~2|.. D
I%.8 . . 3,8,3,"@0:".F$.",S,W": . 8080..
2... 3,1,1,F$: . OPEN FILE VOOR WRITE**.
C2...".SAVING." : CR$.G(13).W2..MODE%.9:
. 3010..2..RN%.0: . J.0 . PA%.1..3..Y.P
V%(J): . Y.255 . Y.Y.255.83..PV%(J)..(Y)
.1: . RN%..(Y).1 . RN%.J.@3B.. J.Z3L.COU
NT.0:LIJST%(LP%).0.J3V.. I.0 . LP%.|3...
J.0 . PA%.1..3..COUNT.COUNT.C(DAT$(LIJS
T%(I),PV%(J)))..3... J: . I.Z3...3,COUNT
;CR$;LP%CR$;PA%CR$;RN%CR$;..3. . J.0 . P
A%.1..4. A$.DAT$(0,PV%(J)): . A$."" .A$.
" ".%4. .3,A$CR$: . J.74& . I.0 . LP%.1.
I40 . J.0 . PA%.1.Z4: A$.DAT$(LIJST%(I),
PV%(J)): . A$."" . A$." "..4D .3,A$CR$;
..4N . J: . I..4X 3..4B ..G44!. **LOAD
EEN COMPLEET BESTAND**.M4>!...4H!."..**
*************LOAD****************.."..5R
!."FILENAAM. DEVICE";F$,DI%.C5\!. DI%.8
. . 3,8,3,F$.",S,R": . 8570.Q5F!.3,1,0,F
$: . **OPEN VOOR FILE VOOR READ**..5Z!."
..LOADING."..5.!.3,CC%,LE%,BR%,RA%..5.!Y
.25000.CC%.(BR%.3.2).(LE%.1).X5.!ML%.LE%
..(Y.(13.BR%.2))..6.!CM%.CC%..(Y.Y.(3.BR
%.2).(13.BR%.2)): MB%.BR%.-6.!. LIJST%(M
L%.1),DAT$(ML%,MB%.1).=6.!. I.0 . LE%.O6
.!. J.0 . BR%.1.`6J!.3,DAT$(I,J)..6T!. D
AT$(I,J)." " . DAT$(I,J).""..6.!. J..6.!
. I..6.! 3..6.!ZZ%.1..6.". 110.N6(#. **
DIRECTORY VAN SCHIJF**..62#."..********
DIRECTORY VVAN SCHIJF******."..7<#. 4,8,
0,"$": .#4,A$,B$.17F#.#4,A$,B$: .#4,A$,B
$.M7P#C.0: . A$.."" . C.F(A$).J7Z#. B$..
"" . C.C.F(B$).256..7D#." ";J(D(C),2);.7
);..7N#.#4,B$: . ST..0. 9150..7X#. B$..G
(34) . 9070.Z7.#.#4,B$: . B$..G(34) . .
B$;:. 9090..7.#.#4,B$: . B$.G(32) . 9100
..8.#. .25);: C$."".18 #C$.C$.B$: .#4,B$
: . B$.."" . 9120.?8.#. H(C$,3).Q8.#. ST
.0 . 9030.G8.#." VRIJE BLOKKEN"..8H# 4:
.:."GEEF <CR>OM VERDER TE GAAN"..8R#. A
$: . A$."" . 9170..8.#..K8.#. ** SCHIJF
BEWERKING**..8.#." >";: . 2010..8.$.15,8
,15,TEST$..8.$.15,S,S$..9.$.: ." SCHIJFS
TATUS : ";S$.%9"$ 15.+9,$.....
> CLICK IMAGE PREVIEW FOR FULL MODAL