DATABASE-CORR
FILE INFORMATION
FILENAME(S): DATABASE-CORR
FILE TYPE(S): PRG
FILE SIZE: 7.2K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
88dc220166ec695bcfae7241d39fb450e3ebe2dc04f20c1e3d4bae6344afa71b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| OUD 1 | DATABASE-CORR | PRG | DuncanTwain | 13 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 0A 00 8F 20 4E 41 41 52 20 48 4F 4F |....... NAAR HOO|
00000010: 46 44 50 52 4F 47 52 41 4D 4D 41 2E 00 49 08 14 |FDPROGRAMMA..I..|
00000020: 00 97 20 35 33 32 38 30 2C 30 3A 97 20 35 33 32 |.. 53280,0:. 532|
00000030: 38 31 2C 30 3A 99 20 C7 28 31 35 35 29 C7 28 30 |81,0:. .(155).(0|
00000040: 31 34 29 C7 28 30 30 38 29 00 84 08 19 00 4D 41 |14).(008).....MA|
00000050: 24 B2 C7 28 31 36 36 29 3A 52 45 24 B2 C7 28 30 |$..(166):RE$..(0|
00000060: 31 33 29 3A 42 53 24 B2 C7 28 31 35 37 29 3A 46 |13):BS$..(157):F|
00000070: 53 24 B2 C7 28 30 32 39 29 3A 55 50 24 B2 C7 28 |S$..(029):UP$..(|
00000080: 31 34 35 29 00 BF 08 1A 00 44 4E 24 B2 C7 28 30 |145).....DN$..(0|
00000090: 31 37 29 3A 43 4C 24 B2 C7 28 31 34 37 29 3A 48 |17):CL$..(147):H|
000000A0: 4D 24 B2 C7 28 30 31 39 29 3A 44 4C 24 B2 C7 28 |M$..(019):DL$..(|
000000B0: 30 32 30 29 3A 49 53 24 B2 C7 28 31 34 38 29 00 |020):IS$..(148).|
000000C0: D9 08 1B 00 52 49 24 B2 C7 28 30 31 38 29 3A 52 |....RI$..(018):R|
000000D0: 4F 24 B2 C7 28 31 34 36 29 00 1B 09 1C 00 58 58 |O$..(146).....XX|
000000E0: 24 B2 C7 28 31 39 31 29 3A 55 35 24 B2 55 50 24 |$..(191):U5$.UP$|
000000F0: AA 55 50 24 AA 55 50 24 AA 55 50 24 AA 55 50 24 |.UP$.UP$.UP$.UP$|
00000100: 3A 45 45 24 B2 52 49 24 AA 22 5A 5A 5A 5A 5A 5A |:EE$.RI$."ZZZZZZ|
00000110: 5A 5A 5A 5A 22 3A 89 20 32 36 30 00 2E 09 1E 00 |ZZZZ":. 260.....|
00000120: 8F 20 53 55 42 52 4F 55 54 49 4E 45 53 2E 00 41 |. SUBROUTINES..A|
00000130: 09 28 00 8F 20 47 45 54 20 52 4F 55 54 49 4E 45 |.(.. GET ROUTINE|
00000140: 2E 00 56 09 32 00 41 24 B2 22 22 3A 49 B2 30 3A |..V.2.A$."":I.0:|
00000150: 99 20 4D 41 24 3B 00 6C 09 3C 00 A1 20 47 24 3A |. MA$;.l.<.. G$:|
00000160: 8B 20 47 24 B2 22 22 20 A7 20 36 30 00 A2 09 46 |. G$."" . 60...F|
00000170: 00 8B 20 47 24 B2 49 53 24 20 B0 20 47 24 B2 44 |.. G$.IS$ . G$.D|
00000180: 4E 24 20 B0 20 47 24 B2 46 53 24 20 B0 20 47 24 |N$ . G$.FS$ . G$|
00000190: B2 42 53 24 20 B0 20 47 24 B2 55 50 24 20 A7 20 |.BS$ . G$.UP$ . |
000001A0: 36 30 00 BC 09 50 00 8B 20 47 24 B2 44 4C 24 20 |60...P.. G$.DL$ |
000001B0: AF 20 41 24 B2 22 22 20 A7 20 36 30 00 EE 09 5A |. A$."" . 60...Z|
000001C0: 00 8B 20 47 24 B2 44 4C 24 20 A7 20 99 20 44 4C |.. G$.DL$ . . DL|
000001D0: 24 44 4C 24 4D 41 24 3B 3A 49 B2 49 AB 31 3A 41 |$DL$MA$;:I.I.1:A|
000001E0: 24 B2 C8 28 41 24 2C 49 29 3A 89 20 36 30 00 1E |$..(A$,I):. 60..|
000001F0: 0A 64 00 8B 20 47 24 B3 B1 52 45 24 20 A7 20 41 |.d.. G$..RE$ . A|
00000200: 24 B2 41 24 AA 47 24 3A 49 B2 49 AA 31 3A 99 20 |$.A$.G$:I.I.1:. |
00000210: 42 53 24 47 24 4D 41 24 3B 3A 89 20 36 30 00 35 |BS$G$MA$;:. 60.5|
00000220: 0A 6E 00 8B 20 41 24 B2 52 45 24 20 A7 20 41 24 |.n.. A$.RE$ . A$|
00000230: B2 22 22 3A 8E 00 44 0A 78 00 99 20 42 53 24 22 |."":..D.x.. BS$"|
00000240: 20 22 3A 8E 00 5A 0A 82 00 8F 20 46 55 4E 43 54 | ":..Z.... FUNCT|
00000250: 49 45 20 4B 49 45 5A 45 4E 2E 00 78 0A 8C 00 99 |IE KIEZEN..x....|
00000260: 20 44 4E 24 52 49 24 51 24 42 53 24 55 50 24 55 | DN$RI$Q$BS$UP$U|
00000270: 50 24 3A 8D 20 31 38 30 00 AB 0A 96 00 41 B2 30 |P$:. 180.....A.0|
00000280: 3A 81 20 49 B2 31 20 A4 20 31 35 3A 8B 20 CA 28 |:. I.1 . 15:. .(|
00000290: 4B 24 2C 49 AC 32 AB 31 2C 31 29 B2 41 24 20 A7 |K$,I.2.1,1).A$ .|
000002A0: 20 41 B2 49 3A 49 B2 31 37 3A 8E 00 B5 0A A0 00 | A.I:I.17:......|
000002B0: 82 20 49 3A 8E 00 C8 0A AA 00 8F 20 57 45 4C 4B |. I:....... WELK|
000002C0: 45 20 54 4F 45 54 53 2E 00 DF 0A B4 00 A1 20 41 |E TOETS....... A|
000002D0: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 38 30 00 |$:. A$."" . 180.|
000002E0: E5 0A BE 00 8E 00 06 0B C8 00 A4 91 20 45 4E 54 |............ ENT|
000002F0: 52 59 4E 55 4D 4D 45 52 20 49 4E 20 42 45 57 45 |RYNUMMER IN BEWE|
00000300: 52 4B 49 4E 47 2E 00 17 0B D2 00 99 20 48 4D 24 |RKING....... HM$|
00000310: A3 33 35 29 49 3A 8E 00 25 0B DC 00 8F 20 46 49 |.35)I:..%.... FI|
00000320: 4C 54 45 52 2E 00 4A 0B E6 00 99 20 52 49 24 22 |LTER..J.... RI$"|
00000330: 41 52 45 20 59 4F 55 20 53 55 52 45 3F 20 59 2F |ARE YOU SURE? Y/|
00000340: 4E 22 3A 8D 20 31 38 30 3A 8E 00 60 0B F0 00 8F |N":. 180:..`....|
00000350: 20 48 4F 4F 46 44 50 52 4F 47 52 41 4D 4D 41 2E | HOOFDPROGRAMMA.|
00000360: 00 75 0B FA 00 8F 20 49 4E 49 54 49 41 4C 49 53 |.u.... INITIALIS|
00000370: 45 52 45 4E 2E 00 9F 0B 04 01 99 20 43 4C 24 A6 |EREN....... CL$.|
00000380: 31 31 29 C7 28 31 34 32 29 52 49 24 22 20 44 20 |11).(142)RI$" D |
00000390: 41 20 54 20 41 20 42 20 41 20 53 20 45 20 22 00 |A T A B A S E ".|
000003A0: C0 0B 09 01 99 20 A6 31 31 29 44 4E 24 22 20 2A |..... .11)DN$" *|
000003B0: 4A 55 53 54 20 41 20 4D 4F 4D 45 4E 54 2E 2A 22 |JUST A MOMENT.*"|
000003C0: 00 F1 0B 0E 01 48 24 B2 22 43 2E 42 2E 4D 2E 22 |.....H$."C.B.M."|
000003D0: 3A 51 24 B2 52 49 24 AA 22 59 4F 55 52 20 43 48 |:Q$.RI$."YOUR CH|
000003E0: 4F 49 43 45 20 20 20 3F 20 3D 20 48 45 4C 50 20 |OICE ? = HELP |
000003F0: 22 00 2C 0C 18 01 4E B2 B5 28 28 B8 28 30 29 AB |".,...N..((.(0).|
00000400: 28 B8 28 30 29 B3 30 29 AC 36 35 35 33 36 29 AD |(.(0).0).65536).|
00000410: 34 30 29 3A 50 B2 31 3A 58 B2 28 4E AA 31 29 AD |40):P.1:X.(N.1).|
00000420: 31 30 3A 4E B2 31 30 AC B5 28 58 29 00 45 0C 22 |10:N.10..(X).E."|
00000430: 01 86 20 53 24 28 4E AA 31 29 3A 4C 24 B2 22 20 |.. S$(N.1):L$." |
00000440: 4C 49 4E 45 22 00 61 0C 2C 01 81 20 4A B2 30 20 |LINE".a.,.. J.0 |
00000450: A4 20 4E 3A 53 24 28 4A 29 B2 22 2D 22 3A 82 20 |. N:S$(J)."-":. |
00000460: 4A 00 86 0C 36 01 99 20 44 4E 24 22 20 22 B5 28 |J...6.. DN$" ".(|
00000470: 58 29 22 50 41 47 45 53 22 3A 99 20 4E 22 45 4E |X)"PAGES":. N"EN|
00000480: 54 52 49 45 53 22 00 B3 0C 40 01 4B 24 B2 22 43 |TRIES"...@.K$."C|
00000490: 2C 50 2C 45 2C 49 2C 4E 2C 53 2C 4C 2C 48 2C 4B |,P,E,I,N,S,L,H,K|
000004A0: 2C 41 2C 3F 2C 52 2C 46 2C 44 2C 47 22 3A 89 20 |,A,?,R,F,D,G":. |
000004B0: 33 38 30 00 CC 0C 4A 01 8F 20 54 4F 4F 4E 20 48 |380...J.. TOON H|
000004C0: 4F 4F 46 44 47 52 4F 45 50 45 4E 2E 00 D4 0C 54 |OOFDGROEPEN....T|
000004D0: 01 4B B2 30 00 08 0D 5E 01 51 B2 30 3A 99 20 43 |.K.0...^.Q.0:. C|
000004E0: 4C 24 52 49 24 22 43 48 41 50 54 45 52 20 43 4F |L$RI$"CHAPTER CO|
000004F0: 4E 54 45 4E 54 53 20 46 49 4C 45 3A 20 22 48 24 |NTENTS FILE: "H$|
00000500: 3A 99 22 50 41 47 45 22 00 2B 0D 68 01 81 20 4A |:."PAGE".+.h.. J|
00000510: B2 4B 20 A4 20 4E 3A 8B 20 C6 28 53 24 28 4A 29 |.K . N:. .(S$(J)|
00000520: 29 B3 B1 31 38 20 A7 20 33 37 30 00 58 0D 6D 01 |)..18 . 370.X.m.|
00000530: 99 20 42 53 24 3B B5 28 4A AD 31 30 AA 31 29 3B |. BS$;.(J.10.1);|
00000540: 53 24 28 4A 29 3A 51 B2 51 AA 31 3A 8B 20 51 B1 |S$(J):Q.Q.1:. Q.|
00000550: 31 39 20 A7 20 33 38 30 00 60 0D 72 01 82 20 4A |19 . 380.`.r.. J|
00000560: 00 76 0D 7C 01 8D 20 31 34 30 3A 8B 20 41 B2 30 |.v.|.. 140:. A.0|
00000570: 20 A7 20 33 38 30 00 C2 0D 86 01 91 20 41 20 89 | . 380...... A .|
00000580: 20 33 34 30 2C 34 33 30 2C 31 35 35 30 2C 35 34 | 340,430,1550,54|
00000590: 30 2C 36 39 30 2C 38 37 30 2C 39 33 30 2C 31 33 |0,690,870,930,13|
000005A0: 33 30 2C 31 32 37 30 2C 31 37 32 30 2C 37 33 30 |30,1270,1720,730|
000005B0: 2C 31 34 37 30 2C 35 31 30 2C 37 33 30 2C 31 36 |,1470,510,730,16|
000005C0: 34 30 00 DA 0D 90 01 8B 20 4A B3 4E AA 31 20 A7 |40...... J.N.1 .|
000005D0: 20 4B B2 4A 3A 89 20 33 35 30 00 E4 0D 9A 01 89 | K.J:. 350......|
000005E0: 20 33 34 30 00 F5 0D A4 01 8F 20 42 4C 41 44 5A | 340...... BLADZ|
000005F0: 49 4A 44 45 2E 00 2F 0E AE 01 41 24 B2 22 2D 22 |IJDE../...A$."-"|
00000600: 3A 99 20 55 50 24 55 50 24 22 50 41 47 45 22 3A |:. UP$UP$"PAGE":|
00000610: 8D 20 35 30 3A 50 B2 C5 28 41 24 29 3A 8D 20 31 |. 50:P..(A$):. 1|
00000620: 35 30 3A 8B 20 41 B3 B1 30 20 A7 20 33 39 30 00 |50:. A..0 . 390.|
00000630: 50 0E B8 01 8B 20 50 B3 31 20 B0 20 50 B1 B5 28 |P.... P.1 . P..(|
00000640: 58 29 20 A7 20 99 20 55 35 24 3A 89 20 34 33 30 |X) . . U5$:. 430|
00000650: 00 67 0E C2 01 99 20 43 4C 24 52 49 24 22 50 41 |.g.... CL$RI$"PA|
00000660: 47 45 22 50 3B 48 24 00 96 0E C7 01 99 3A 81 20 |GE"P;H$......:. |
00000670: 49 B2 30 20 A4 20 39 3A 4C B2 28 50 AB 31 29 AC |I.0 . 9:L.(P.1).|
00000680: 31 30 AA 49 3A 99 20 42 53 24 3B 4C 3B 53 24 28 |10.I:. BS$;L;S$(|
00000690: 4C 29 3A 82 20 49 00 AC 0E CC 01 8D 20 31 34 30 |L):. I...... 140|
000006A0: 3A 8B 20 41 B2 30 20 A7 20 34 36 30 00 BE 0E D6 |:. A.0 . 460....|
000006B0: 01 8B 20 41 B3 B1 31 36 20 A7 20 33 39 30 00 D4 |.. A..16 . 390..|
000006C0: 0E E0 01 50 B2 50 AA 31 3A 8B 20 50 B1 58 20 A7 |...P.P.1:. P.X .|
000006D0: 20 50 B2 31 00 DE 0E EA 01 89 20 34 35 30 00 F2 | P.1...... 450..|
000006E0: 0E F4 01 8F 20 42 45 53 54 41 4E 44 53 4E 41 41 |.... BESTANDSNAA|
000006F0: 4D 2E 00 11 0F FE 01 99 20 43 4C 24 22 46 49 4C |M....... CL$"FIL|
00000700: 45 4E 41 4D 45 22 3A 8D 20 35 30 3A 48 24 B2 41 |ENAME":. 50:H$.A|
00000710: 24 00 1B 0F 08 02 89 20 34 35 30 00 2B 0F 12 02 |$...... 450.+...|
00000720: 8F 20 49 4E 56 4F 45 47 45 4E 2E 00 4A 0F 1C 02 |. INVOEGEN..J...|
00000730: 41 24 B2 22 2D 31 22 3A 99 20 55 50 24 55 50 24 |A$."-1":. UP$UP$|
00000740: 22 49 4E 53 45 52 54 22 4C 24 00 6E 0F 21 02 8D |"INSERT"L$.n.!..|
00000750: 20 35 30 3A 4A B2 C5 28 41 24 29 3A 8D 20 31 35 | 50:J..(A$):. 15|
00000760: 30 3A 8B 20 41 B3 B1 30 20 A7 20 34 35 30 00 94 |0:. A..0 . 450..|
00000770: 0F 26 02 8B 20 4A B3 30 20 B0 20 4A B1 B5 28 58 |.&.. J.0 . J..(X|
00000780: 29 AC 31 30 AA 31 20 A7 20 99 20 55 35 24 3A 89 |).10.1 . . U5$:.|
00000790: 20 35 34 30 00 C0 0F 30 02 41 24 B2 22 22 3A 99 | 540...0.A$."":.|
000007A0: 20 22 45 4E 54 52 59 22 3A 8D 20 35 30 3A 8D 20 | "ENTRY":. 50:. |
000007B0: 31 35 30 3A 8B 20 41 B3 B1 30 20 A7 20 34 35 30 |150:. A..0 . 450|
000007C0: 00 DE 0F 3A 02 99 20 22 49 4E 53 45 52 54 49 4E |...:.. "INSERTIN|
000007D0: 47 22 3A 8B 20 52 B2 4E 20 A7 20 34 35 30 00 08 |G":. R.N . 450..|
000007E0: 10 44 02 4B 4B B2 4E 3A 81 20 49 B2 4A 20 A4 20 |.D.KK.N:. I.J . |
000007F0: 4E 3A 8B 20 53 24 28 49 29 B2 22 2D 22 20 A7 20 |N:. S$(I)."-" . |
00000800: 4B 4B B2 49 3A 49 B2 4E 00 10 10 58 02 82 20 49 |KK.I:I.N...X.. I|
00000810: 00 47 10 62 02 81 20 49 B2 4B 4B 20 A4 20 4A AA |.G.b.. I.KK . J.|
00000820: 31 20 A9 20 AB 31 3A 53 24 28 49 29 B2 53 24 28 |1 . .1:S$(I).S$(|
00000830: 49 AB 31 29 3A 8D 20 32 31 30 3A 82 20 49 3A 53 |I.1):. 210:. I:S|
00000840: 24 28 4A 29 B2 41 24 00 7C 10 6C 02 8B 20 C8 28 |$(J).A$.|.l.. .(|
00000850: 53 24 28 4A 29 2C 31 29 B2 22 2A 22 20 A7 20 53 |S$(J),1)."*" . S|
00000860: 24 28 4A 29 B2 52 49 24 AA C9 28 53 24 28 4A 29 |$(J).RI$..(S$(J)|
00000870: 2C C3 28 53 24 28 4A 29 29 AB 31 29 00 8C 10 76 |,.(S$(J)).1)...v|
00000880: 02 50 B2 B5 28 4A AD 31 30 29 AA 31 00 CC 10 80 |.P..(J.10).1....|
00000890: 02 99 20 43 4C 24 52 49 24 22 50 41 47 45 22 50 |.. CL$RI$"PAGE"P|
000008A0: 3B 48 24 3A 81 20 49 B2 30 20 A4 20 39 3A 4C B2 |;H$:. I.0 . 9:L.|
000008B0: 28 50 AB 31 29 AC 31 30 AA 49 3A 99 20 42 53 24 |(P.1).10.I:. BS$|
000008C0: 3B 4C 3B 53 24 28 4C 29 3A 82 20 49 00 EA 10 8A |;L;S$(L):. I....|
000008D0: 02 4A B2 4A AA 31 3A 8B 20 4A B1 B5 28 58 29 AC |.J.J.1:. J..(X).|
000008E0: 31 30 AB 31 20 A7 20 4A B2 30 00 0F 11 94 02 99 |10.1 . J.0......|
000008F0: 20 44 4E 24 44 4E 24 22 49 4E 53 45 52 54 22 4C | DN$DN$"INSERT"L|
00000900: 24 3B 4A 3A 41 24 B2 22 22 3A 89 20 35 36 30 00 |$;J:A$."":. 560.|
00000910: 19 11 9E 02 89 20 34 35 30 00 2E 11 A8 02 8F 20 |..... 450...... |
00000920: 4E 49 45 55 57 20 42 45 53 54 41 4E 44 2E 00 51 |NIEUW BESTAND..Q|
00000930: 11 B2 02 99 20 44 4E 24 44 4E 24 3A 8D 20 32 33 |.... DN$DN$:. 23|
00000940: 30 3A 8B 20 41 24 B3 B1 22 59 22 20 A7 20 34 35 |0:. A$.."Y" . 45|
00000950: 30 00 75 11 BC 02 99 20 44 4E 24 22 4E 45 57 20 |0.u.... DN$"NEW |
00000960: 46 49 4C 45 20 4E 41 4D 45 22 3A 8D 20 35 30 3A |FILE NAME":. 50:|
00000970: 48 24 B2 41 24 00 97 11 C6 02 81 20 4A B2 30 20 |H$.A$...... J.0 |
00000980: A4 20 4E 3A 53 24 28 4A 29 B2 22 2D 22 3A 82 20 |. N:S$(J)."-":. |
00000990: 4A 3A 89 20 34 35 30 00 A3 11 D0 02 8F 20 4D 45 |J:. 450...... ME|
000009A0: 4E 55 2E 00 BF 11 DA 02 99 20 43 4C 24 52 49 24 |NU....... CL$RI$|
000009B0: A6 31 35 29 22 20 4D 20 45 20 4E 20 55 20 22 00 |.15)" M E N U ".|
000009C0: EC 11 E4 02 99 3A 99 20 52 49 24 22 50 22 52 4F |.....:. RI$"P"RO|
000009D0: 24 22 41 47 45 22 A3 32 30 29 52 49 24 22 4E 22 |$"AGE".20)RI$"N"|
000009E0: 52 4F 24 22 45 57 20 46 49 4C 45 22 00 1D 12 EE |RO$"EW FILE"....|
000009F0: 02 99 3A 99 20 52 49 24 22 43 22 52 4F 24 22 48 |..:. RI$"C"RO$"H|
00000A00: 41 50 54 45 52 22 A3 32 30 29 52 49 24 22 46 22 |APTER".20)RI$"F"|
00000A10: 52 4F 24 22 49 4C 45 20 4E 41 4D 45 22 00 4D 12 |RO$"ILE NAME".M.|
00000A20: F8 02 99 3A 99 20 52 49 24 22 47 22 52 4F 24 22 |...:. RI$"G"RO$"|
00000A30: 45 54 20 45 4E 54 52 59 22 A3 32 30 29 52 49 24 |ET ENTRY".20)RI$|
00000A40: 22 4B 22 52 4F 24 22 49 4C 4C 22 4C 24 00 7F 12 |"K"RO$"ILL"L$...|
00000A50: 02 03 99 3A 99 20 52 49 24 22 45 22 52 4F 24 22 |...:. RI$"E"RO$"|
00000A60: 4E 54 45 52 22 4C 24 3B A3 32 30 29 52 49 24 22 |NTER"L$;.20)RI$"|
00000A70: 48 22 52 4F 24 22 41 52 44 20 43 4F 50 59 22 00 |H"RO$"ARD COPY".|
00000A80: B3 12 0C 03 99 3A 99 20 52 49 24 22 41 22 52 4F |.....:. RI$"A"RO|
00000A90: 24 22 4C 50 48 41 42 45 54 49 5A 45 22 A3 32 30 |$"LPHABETIZE".20|
00000AA0: 29 52 49 24 22 49 22 52 4F 24 22 4E 53 45 52 54 |)RI$"I"RO$"NSERT|
00000AB0: 22 4C 24 00 E8 12 16 03 99 3A 99 20 52 49 24 22 |"L$......:. RI$"|
00000AC0: 52 22 52 4F 24 22 45 43 54 49 46 59 22 4C 24 A3 |R"RO$"ECTIFY"L$.|
00000AD0: 32 30 29 52 49 24 22 44 22 52 4F 24 22 45 46 49 |20)RI$"D"RO$"EFI|
00000AE0: 4E 49 54 49 4F 4E 53 22 00 2D 13 20 03 99 3A 99 |NITIONS".-. ..:.|
00000AF0: 20 52 49 24 22 53 22 52 4F 24 22 41 56 45 20 54 | RI$"S"RO$"AVE T|
00000B00: 4F 20 54 41 50 45 2F 44 49 53 4B 22 A3 32 30 29 |O TAPE/DISK".20)|
00000B10: 52 49 24 22 4C 22 52 4F 24 22 4F 41 44 20 46 52 |RI$"L"RO$"OAD FR|
00000B20: 4F 4D 20 54 41 50 45 2F 44 49 53 4B 22 00 38 13 |OM TAPE/DISK".8.|
00000B30: 34 03 99 3A 99 20 51 24 00 4E 13 3E 03 8D 20 31 |4..:. Q$.N.>.. 1|
00000B40: 38 30 3A 99 20 43 4C 24 3A 8D 20 31 35 30 00 5E |80:. CL$:. 150.^|
00000B50: 13 48 03 8B 20 41 B2 30 20 A7 20 37 33 30 00 68 |.H.. A.0 . 730.h|
00000B60: 13 52 03 89 20 33 39 30 00 79 13 5C 03 8F 20 53 |.R.. 390.y.\.. S|
00000B70: 41 56 45 2D 49 4E 46 4F 2E 00 A4 13 66 03 99 20 |AVE-INFO....f.. |
00000B80: 43 4C 24 52 49 24 22 53 41 56 45 22 44 4E 24 3A |CL$RI$"SAVE"DN$:|
00000B90: 8D 20 32 33 30 3A 8B 20 41 B3 B1 22 59 22 20 A7 |. 230:. A.."Y" .|
00000BA0: 20 34 35 30 00 D9 13 70 03 99 20 44 4E 24 52 49 | 450...p.. DN$RI|
00000BB0: 24 22 44 49 53 4B 20 4F 52 20 54 41 50 45 3F 20 |$"DISK OR TAPE? |
00000BC0: 44 2F 54 22 3A 8D 20 31 38 30 3A 8B 20 41 24 B2 |D/T":. 180:. A$.|
00000BD0: 22 54 22 20 A7 20 39 31 30 00 ED 13 7A 03 8B 20 |"T" . 910...z.. |
00000BE0: 41 24 B3 B1 22 44 22 20 A7 20 34 35 30 00 28 14 |A$.."D" . 450.(.|
00000BF0: 84 03 9F 20 31 35 2C 38 2C 31 35 2C 22 49 22 3A |... 15,8,15,"I":|
00000C00: A0 20 31 35 3A 9F 20 32 2C 38 2C 32 2C 22 40 30 |. 15:. 2,8,2,"@0|
00000C10: 3A 22 AA 48 24 AA 22 20 2C 53 2C 57 22 3A 4A B2 |:".H$." ,S,W":J.|
00000C20: 32 3A 89 20 31 30 30 30 00 44 14 8E 03 99 3A 9F |2:. 1000.D....:.|
00000C30: 20 31 2C 31 2C 31 2C 48 24 3A 4A B2 31 3A 89 20 | 1,1,1,H$:J.1:. |
00000C40: 31 30 30 30 00 55 14 98 03 8F 20 4C 4F 41 44 20 |1000.U.... LOAD |
00000C50: 49 4E 46 4F 2E 00 83 14 A2 03 99 20 43 4C 24 52 |INFO....... CL$R|
00000C60: 49 24 22 4C 4F 41 44 22 52 4F 24 44 4E 24 3A 8D |I$"LOAD"RO$DN$:.|
00000C70: 20 32 33 30 3A 8B 20 41 24 B3 B1 22 59 22 A7 20 | 230:. A$.."Y". |
00000C80: 34 35 30 00 B8 14 AC 03 99 20 44 4E 24 52 49 24 |450...... DN$RI$|
00000C90: 22 44 49 53 4B 20 4F 52 20 54 41 50 45 3F 20 44 |"DISK OR TAPE? D|
00000CA0: 2F 54 22 3A 8D 20 31 38 30 3A 8B 20 41 24 B2 22 |/T":. 180:. A$."|
00000CB0: 54 22 20 A7 20 39 38 30 00 CC 14 B6 03 8B 20 41 |T" . 980...... A|
00000CC0: 24 B3 B1 22 44 22 20 A7 20 34 35 30 00 03 15 C0 |$.."D" . 450....|
00000CD0: 03 8D 20 31 30 38 30 3A 99 20 55 50 24 22 46 49 |.. 1080:. UP$"FI|
00000CE0: 4C 45 20 4E 41 4D 45 3F 21 22 3A 8D 20 35 30 3A |LE NAME?!":. 50:|
00000CF0: 4E 24 B2 41 24 3A 8B 20 4E 24 B2 22 22 20 A7 20 |N$.A$:. N$."" . |
00000D00: 34 35 30 00 3D 15 CA 03 9F 20 31 35 2C 38 2C 31 |450.=.... 15,8,1|
00000D10: 35 2C 22 49 22 3A A0 20 31 35 3A 9F 20 32 2C 38 |5,"I":. 15:. 2,8|
00000D20: 2C 32 2C 22 30 3A 22 AA 4E 24 AA 22 20 2C 53 2C |,2,"0:".N$." ,S,|
00000D30: 52 22 3A 4A B2 32 3A 89 20 31 30 34 30 00 59 15 |R":J.2:. 1040.Y.|
00000D40: D4 03 99 3A 9F 20 31 2C 31 2C 30 2C 48 24 3A 4A |...:. 1,1,0,H$:J|
00000D50: B2 31 3A 89 20 31 30 34 30 00 72 15 DE 03 8F 20 |.1:. 1040.r.... |
00000D60: 53 41 56 45 2F 4C 4F 41 44 20 56 45 52 56 4F 4C |SAVE/LOAD VERVOL|
00000D70: 47 2E 00 99 15 E8 03 81 20 49 B2 4E 20 A4 20 30 |G....... I.N . 0|
00000D80: 20 A9 20 AB 31 3A 8B 20 53 24 B3 B1 22 2D 22 20 | . .1:. S$.."-" |
00000D90: A7 20 4B B2 49 3A 49 B2 30 00 A7 15 F2 03 82 20 |. K.I:I.0...... |
00000DA0: 49 3A 4B B2 4B AA 31 00 C4 15 FC 03 98 4A 2C 48 |I:K.K.1......J,H|
00000DB0: 24 AA 58 58 24 3A 98 4A 2C 4B 3A 81 20 49 B2 30 |$.XX$:.J,K:. I.0|
00000DC0: 20 A4 20 4B 00 E5 15 06 04 98 4A 2C 53 24 28 49 | . K......J,S$(I|
00000DD0: 29 3A 8D 20 32 31 30 3A 82 20 49 3A A0 20 4A 3A |):. 210:. I:. J:|
00000DE0: 89 20 34 35 30 00 05 16 10 04 84 4A 2C 4E 24 3A |. 450......J,N$:|
00000DF0: 8B 20 C9 28 4E 24 2C 31 29 B3 B1 58 58 24 20 A7 |. .(N$,1)..XX$ .|
00000E00: 20 32 32 31 30 00 38 16 1A 04 48 24 B2 4E 24 3A | 2210.8...H$.N$:|
00000E10: 48 24 B2 C8 28 48 24 2C C3 28 48 24 29 AB 31 29 |H$..(H$,.(H$).1)|
00000E20: 3A 99 20 55 50 24 52 49 24 22 46 4F 55 4E 44 20 |:. UP$RI$"FOUND |
00000E30: 22 48 24 3A 84 4A 2C 4B 00 63 16 24 04 81 20 49 |"H$:.J,K.c.$.. I|
00000E40: B2 30 20 A4 20 4B 3A 84 4A 2C 53 24 28 49 29 3A |.0 . K:.J,S$(I):|
00000E50: 8D 20 32 31 30 3A 82 20 49 3A A0 20 4A 3A 89 20 |. 210:. I:. J:. |
00000E60: 34 35 30 00 7F 16 2E 04 8F 20 4F 56 45 52 5A 49 |450...... OVERZI|
00000E70: 43 48 54 20 44 49 53 4B 2D 46 49 4C 45 53 2E 00 |CHT DISK-FILES..|
00000E80: B8 16 38 04 99 20 43 4C 24 52 49 24 22 44 49 53 |..8.. CL$RI$"DIS|
00000E90: 43 20 46 49 4C 45 20 4C 49 53 54 49 4E 47 3F 20 |C FILE LISTING? |
00000EA0: 59 2F 4E 22 3A 8D 20 31 38 30 3A 8B 20 41 24 B3 |Y/N":. 180:. A$.|
00000EB0: B1 22 59 22 20 A7 20 8E 00 D4 16 42 04 99 20 43 |."Y" . ....B.. C|
00000EC0: 4C 24 22 53 43 41 4E 4E 49 4E 47 20 44 49 53 43 |L$"SCANNING DISC|
00000ED0: 22 43 44 24 00 E5 16 4C 04 9F 20 31 2C 38 2C 30 |"CD$...L.. 1,8,0|
00000EE0: 2C 22 24 30 22 00 F3 16 56 04 A1 23 31 2C 41 24 |,"$0"...V..#1,A$|
00000EF0: 2C 42 24 00 01 17 60 04 A1 23 31 2C 41 24 2C 42 |,B$...`..#1,A$,B|
00000F00: 24 00 0F 17 6A 04 A1 23 31 2C 41 24 2C 42 24 00 |$...j..#1,A$,B$.|
00000F10: 2F 17 7E 04 43 B2 C6 28 41 24 AA C7 28 30 29 29 |/.~.C..(A$..(0))|
00000F20: AA 32 35 36 AC C6 28 42 24 AA C7 28 30 29 29 00 |.256..(B$..(0)).|
00000F30: 4B 17 92 04 44 24 B2 44 24 AA 52 49 24 AA CA 28 |K...D$.D$.RI$..(|
00000F40: C4 28 43 29 2C 32 29 AA 52 4F 24 00 68 17 9C 04 |.(C),2).RO$.h...|
00000F50: A1 23 31 2C 42 24 3A 8B 20 53 54 B3 B1 30 20 A7 |.#1,B$:. ST..0 .|
00000F60: 20 A0 20 31 3A 99 3A 8E 00 7F 17 A6 04 8B 20 42 | . 1:.:....... B|
00000F70: 24 B3 B1 C7 28 33 34 29 20 A7 20 31 31 38 30 00 |$...(34) . 1180.|
00000F80: A8 17 B0 04 A1 23 31 2C 42 24 3A 8B 20 42 24 B3 |.....#1,B$:. B$.|
00000F90: B1 C7 28 33 34 29 20 A7 20 44 24 B2 44 24 AA 42 |..(34) . D$.D$.B|
00000FA0: 24 3A 89 20 31 32 30 30 00 C5 17 BA 04 A1 23 31 |$:. 1200......#1|
00000FB0: 2C 42 24 3A 8B 20 42 24 B2 C7 28 33 32 29 20 A7 |,B$:. B$..(32) .|
00000FC0: 20 31 32 31 30 00 CF 17 C4 04 43 24 B2 22 22 00 | 1210.....C$."".|
00000FD0: F3 17 CE 04 43 24 B2 43 24 AA 42 24 3A A1 23 31 |....C$.C$.B$:.#1|
00000FE0: 2C 42 24 3A 8B 20 42 24 B3 B1 22 22 20 A7 20 31 |,B$:. B$.."" . 1|
00000FF0: 32 33 30 00 0C 18 D8 04 8B 20 C9 28 44 24 2C 31 |230...... .(D$,1|
00001000: 29 B2 58 58 24 20 A7 20 99 20 44 24 00 1D 18 E2 |).XX$ . . D$....|
00001010: 04 44 24 B2 22 22 3A 89 20 31 31 32 30 00 37 18 |.D$."":. 1120.7.|
00001020: EC 04 8F 20 56 45 52 57 49 4A 44 45 52 20 47 45 |... VERWIJDER GE|
00001030: 47 45 56 45 4E 53 2E 00 74 18 F6 04 41 24 B2 22 |GEVENS..t...A$."|
00001040: 2D 31 22 3A 99 20 44 4E 24 44 4E 24 22 4B 49 4C |-1":. DN$DN$"KIL|
00001050: 4C 22 4C 24 3A 8D 20 35 30 3A 4A B2 C5 28 41 24 |L"L$:. 50:J..(A$|
00001060: 29 3A 8D 20 31 35 30 3A 8B 20 41 B3 B1 30 20 A7 |):. 150:. A..0 .|
00001070: 20 34 35 30 00 9B 18 00 05 8B 20 4A B3 30 20 B0 | 450...... J.0 .|
00001080: 20 4A B1 B5 28 58 29 AC 31 30 AA 31 20 A7 20 99 | J..(X).10.1 . .|
00001090: 20 55 35 24 3A 89 20 31 32 37 30 00 C6 18 0A 05 | U5$:. 1270.....|
000010A0: 81 20 49 B2 4A 20 A4 20 4E AB 31 3A 8B 20 53 24 |. I.J . N.1:. S$|
000010B0: 28 49 29 B2 22 2D 22 20 A7 20 49 B2 4E AB 31 3A |(I)."-" . I.N.1:|
000010C0: 89 20 31 33 31 30 00 DE 18 14 05 53 24 28 49 29 |. 1310.....S$(I)|
000010D0: B2 53 24 28 49 AA 31 29 3A 8D 20 32 31 30 00 F6 |.S$(I.1):. 210..|
000010E0: 18 1E 05 82 20 49 3A 53 24 28 4E 29 B2 22 2D 22 |.... I:S$(N)."-"|
000010F0: 3A 89 20 34 35 30 00 07 19 28 05 8F 20 41 46 44 |:. 450...(.. AFD|
00001100: 52 55 4B 4B 45 4E 2E 00 3D 19 32 05 99 20 43 4C |RUKKEN..=.2.. CL|
00001110: 24 52 49 24 22 48 41 52 44 20 43 4F 50 59 3F 20 |$RI$"HARD COPY? |
00001120: 59 2F 4E 22 44 4E 24 3A 8D 20 31 38 30 3A 8B 20 |Y/N"DN$:. 180:. |
00001130: 41 24 B3 B1 22 59 22 20 A7 20 34 35 30 00 5F 19 |A$.."Y" . 450._.|
00001140: 3C 05 99 20 44 4E 24 52 49 24 22 45 4E 54 49 52 |<.. DN$RI$"ENTIR|
00001150: 45 20 46 49 4C 45 3F 20 59 2F 4E 22 44 4E 24 00 |E FILE? Y/N"DN$.|
00001160: 83 19 41 05 8D 20 31 38 30 3A 8B 20 41 24 B2 22 |..A.. 180:. A$."|
00001170: 59 22 20 A7 20 46 B2 30 3A 4D B2 4E 3A 89 20 31 |Y" . F.0:M.N:. 1|
00001180: 33 38 30 00 9B 19 46 05 99 20 22 53 54 41 52 54 |380...F.. "START|
00001190: 49 4E 47 22 4C 24 3A 8D 20 35 30 00 BA 19 50 05 |ING"L$:. 50...P.|
000011A0: 46 B2 C5 28 41 24 29 3A 8B 20 46 B3 30 20 B0 20 |F..(A$):. F.0 . |
000011B0: 46 B1 4E 20 A7 20 31 33 33 30 00 F1 19 5A 05 99 |F.N . 1330...Z..|
000011C0: 20 22 45 4E 44 49 4E 47 22 4C 24 3A 8D 20 35 30 | "ENDING"L$:. 50|
000011D0: 3A 4D B2 C5 28 41 24 29 3A 8B 20 4D B3 30 20 B0 |:M..(A$):. M.0 .|
000011E0: 20 4D B1 4E 20 B0 20 4D B3 46 20 A7 20 31 33 33 | M.N . M.F . 133|
000011F0: 30 00 FA 19 64 05 9F 34 2C 34 00 13 1A 6E 05 98 |0...d..4,4...n..|
00001200: 34 2C 22 20 20 20 20 46 49 4C 45 3A 20 22 48 24 |4," FILE: "H$|
00001210: 3A 98 34 00 3E 1A 78 05 4C 4C B2 34 3A 81 20 49 |:.4.>.x.LL.4:. I|
00001220: B2 46 20 A4 20 4D 3A 8B 20 C8 28 53 24 28 49 29 |.F . M:. .(S$(I)|
00001230: 2C 31 29 B2 52 49 24 20 A7 20 31 34 33 30 00 68 |,1).RI$ . 1430.h|
00001240: 1A 82 05 8B 20 53 24 28 49 29 B3 B1 22 2D 22 20 |.... S$(I).."-" |
00001250: A7 20 98 34 2C 22 20 20 20 20 22 53 24 28 49 29 |. .4," "S$(I)|
00001260: 3A 4C 4C B2 4C 4C AA 32 00 73 1A 8C 05 89 20 31 |:LL.LL.2.s.... 1|
00001270: 34 35 30 00 87 1A 96 05 98 34 2C 22 20 20 20 20 |450......4," |
00001280: 2A 22 53 24 28 49 29 00 93 1A A0 05 4C 4C B2 4C |*"S$(I).....LL.L|
00001290: 4C AA 34 00 A5 1A AA 05 82 20 49 3A A0 20 34 3A |L.4...... I:. 4:|
000012A0: 89 20 34 35 30 00 BE 1A B4 05 8F 20 43 4F 52 52 |. 450...... CORR|
000012B0: 45 43 54 49 45 20 47 45 47 45 56 45 4E 2E 00 D2 |ECTIE GEGEVEN...|
000012C0: 1A BE 05 8B 20 41 24 B2 22 41 22 20 A7 20 31 35 |.... A$."A" . 15|
000012D0: 35 30 00 F7 1A C8 05 41 24 B2 22 2D 31 22 3A 99 |50.....A$."-1":.|
000012E0: 20 44 4E 24 44 4E 24 22 52 45 43 54 49 46 59 22 | DN$DN$"RECTIFY"|
000012F0: 4C 24 3A 8D 20 35 30 00 15 1B CD 05 4A B2 C5 28 |L$:. 50.....J..(|
00001300: 41 24 29 3A 8D 31 35 30 3A 8B 20 41 B3 B1 30 20 |A$):.150:. A..0 |
00001310: A7 20 34 35 30 00 3C 1B D2 05 8B 20 4A B3 30 20 |. 450.<.... J.0 |
00001320: B0 20 4A B1 B5 28 58 29 AC 31 30 AA 31 20 A7 20 |. J..(X).10.1 . |
00001330: 99 20 55 35 24 3A 89 20 31 34 38 30 00 5E 1B DC |. U5$:. 1480.^..|
00001340: 05 99 20 53 24 28 4A 29 3A 85 20 41 24 3A 8D 20 |.. S$(J):. A$:. |
00001350: 31 35 30 3A 8B 20 41 B3 B1 30 A7 34 35 30 00 6B |150:. A..0.450.k|
00001360: 1B E6 05 53 24 28 4A 29 B2 41 24 00 A0 1B F0 05 |...S$(J).A$.....|
00001370: 8B 20 C8 28 53 24 28 4A 29 2C 31 29 B2 22 2A 22 |. .(S$(J),1)."*"|
00001380: 20 A7 20 53 24 28 4A 29 B2 52 49 24 AA C9 28 53 | . S$(J).RI$..(S|
00001390: 24 28 4A 29 2C C3 28 53 24 28 4A 29 29 AB 31 29 |$(J),.(S$(J)).1)|
000013A0: 00 AB 1B FA 05 89 20 31 34 35 30 00 BD 1B 04 06 |...... 1450.....|
000013B0: 8F 20 41 55 54 4F 20 45 4E 54 45 52 2E 00 FA 1B |. AUTO ENTER....|
000013C0: 0E 06 41 24 B2 22 2D 31 22 3A 99 44 4E 24 44 4E |..A$."-1":.DN$DN|
000013D0: 24 22 45 4E 54 45 52 22 4C 24 3A 8D 20 35 30 3A |$"ENTER"L$:. 50:|
000013E0: 4A B2 C5 28 41 24 29 3A 8D 20 31 35 30 3A 8B 20 |J..(A$):. 150:. |
000013F0: 41 B3 B1 30 20 A7 20 34 35 30 00 21 1C 18 06 8B |A..0 . 450.!....|
00001400: 20 4A B3 30 20 B0 20 4A B1 B5 28 58 29 AC 31 30 | J.0 . J..(X).10|
00001410: AA 31 20 A7 20 99 20 55 35 24 3A 89 20 31 35 35 |.1 . . U5$:. 155|
00001420: 30 00 4D 1C 22 06 41 24 B2 22 22 3A 99 20 22 45 |0.M.".A$."":. "E|
00001430: 4E 54 52 59 22 3A 8D 20 35 30 3A 8D 20 31 35 30 |NTRY":. 50:. 150|
00001440: 3A 8B 20 41 B3 B1 30 20 A7 20 34 35 30 00 8A 1C |:. A..0 . 450...|
00001450: 2C 06 53 24 28 4A 29 B2 41 24 3A 8B 20 C8 28 53 |,.S$(J).A$:. .(S|
00001460: 24 28 4A 29 2C 31 29 B2 22 2A 22 A7 20 53 24 28 |$(J),1)."*". S$(|
00001470: 4A 29 B2 52 49 24 AA C9 28 53 24 28 4A 29 2C C3 |J).RI$..(S$(J),.|
00001480: 28 53 24 28 4A 29 29 AB 31 29 00 9A 1C 36 06 50 |(S$(J)).1)...6.P|
00001490: B2 B5 28 4A AD 31 30 29 AA 31 00 DA 1C 40 06 99 |..(J.10).1...@..|
000014A0: 20 43 4C 24 52 49 24 22 50 41 47 45 22 50 3B 48 | CL$RI$"PAGE"P;H|
000014B0: 24 3A 81 20 49 B2 30 20 A4 20 39 3A 4C B2 28 50 |$:. I.0 . 9:L.(P|
000014C0: AB 31 29 AC 31 30 AA 49 3A 99 20 42 53 24 3B 4C |.1).10.I:. BS$;L|
000014D0: 3B 53 24 28 4C 29 3A 82 20 49 00 F7 1C 4A 06 4A |;S$(L):. I...J.J|
000014E0: B2 4A AA 31 3A 8B 20 4A B1 B5 28 58 29 AC 31 30 |.J.1:. J..(X).10|
000014F0: AB 31 20 A7 4A B2 30 00 1B 1D 54 06 99 20 44 4E |.1 .J.0...T.. DN|
00001500: 24 44 4E 24 22 45 4E 54 45 52 22 4C 24 3B 4A 3A |$DN$"ENTER"L$;J:|
00001510: 41 24 B2 22 22 3A 89 31 35 37 30 00 30 1D 5E 06 |A$."":.1570.0.^.|
00001520: 8F 20 5A 4F 45 4B 20 47 45 47 45 56 45 4E 53 2E |. ZOEK GEGEVENS.|
00001530: 00 60 1D 68 06 99 20 44 4E 24 44 4E 24 22 47 45 |.`.h.. DN$DN$"GE|
00001540: 54 20 45 4E 54 52 59 22 3A 8D 20 35 30 3A 8D 20 |T ENTRY":. 50:. |
00001550: 31 35 30 3A 8B 20 41 B3 B1 30 20 A7 20 34 35 30 |150:. A..0 . 450|
00001560: 00 89 1D 72 06 8B 20 C8 28 41 24 2C 31 29 B2 22 |...r.. .(A$,1)."|
00001570: 2A 22 20 A7 20 41 24 B2 52 49 24 AA C9 28 41 24 |*" . A$.RI$..(A$|
00001580: 2C C3 28 41 24 29 AB 31 29 00 B1 1D 7C 06 54 B2 |,.(A$).1)...|.T.|
00001590: AB 31 3A 81 20 49 B2 30 20 A4 20 4E 3A 8B 20 53 |.1:. I.0 . N:. S|
000015A0: 24 28 49 29 B2 41 24 20 A7 20 54 B2 49 3A 49 B2 |$(I).A$ . T.I:I.|
000015B0: 4E 00 B9 1D 86 06 82 20 49 00 E6 1D 90 06 8B 20 |N...... I...... |
000015C0: 54 B2 AB 31 20 A7 20 99 20 44 4E 24 52 49 24 22 |T..1 . . DN$RI$"|
000015D0: 4E 4F 54 20 46 4F 55 4E 44 22 3A 8D 20 31 38 30 |NOT FOUND":. 180|
000015E0: 3A 89 20 34 35 30 00 FC 1D 9A 06 50 B2 B5 28 54 |:. 450.....P..(T|
000015F0: AD 31 30 29 AA 31 3A 89 20 34 35 30 00 10 1E A4 |.10).1:. 450....|
00001600: 06 8F 20 41 4C 46 41 42 45 54 49 53 45 45 52 2E |.. ALFABETISEER.|
00001610: 00 1D 1E AE 06 8F 20 4B 45 55 5A 45 2E 00 4F 1E |...... KEUZE..O.|
00001620: B8 06 99 20 43 4C 24 52 49 24 22 41 4C 50 48 41 |... CL$RI$"ALPHA|
00001630: 42 45 54 49 5A 45 20 43 48 41 50 54 45 52 20 45 |BETIZE CHAPTER E|
00001640: 4E 54 52 49 45 53 20 59 2F 4E 3F 22 44 4E 24 00 |NTRIES Y/N?"DN$.|
00001650: 68 1E BD 06 8D 20 31 38 30 3A 8B 20 41 24 B2 22 |h.... 180:. A$."|
00001660: 59 22 A7 20 31 39 30 30 00 7B 1E C2 06 8B 20 41 |Y". 1900.{.... A|
00001670: 24 B2 22 4E 22 20 A7 20 34 35 30 00 8C 1E CC 06 |$."N" . 450.....|
00001680: 8F 20 50 45 52 20 47 52 4F 45 50 2E 00 B0 1E D6 |. PER GROEP.....|
00001690: 06 99 20 22 41 4C 50 48 41 42 45 54 49 5A 45 20 |.. "ALPHABETIZE |
000016A0: 53 54 41 52 54 49 4E 47 22 4C 24 3A 8D 20 35 30 |STARTING"L$:. 50|
000016B0: 00 CF 1E DB 06 55 B2 C5 28 41 24 29 3A 8D 20 31 |.....U..(A$):. 1|
000016C0: 35 30 3A 8B 20 41 B3 B1 30 20 A7 20 34 35 30 00 |50:. A..0 . 450.|
000016D0: E5 1E E0 06 8B 20 55 B3 30 20 B0 20 55 B1 4E 20 |..... U.0 . U.N |
000016E0: A7 20 33 38 30 00 04 1F EA 06 8B 20 CA 28 53 24 |. 380...... .(S$|
000016F0: 28 55 29 2C 31 2C 31 29 B2 52 49 24 20 A7 20 55 |(U),1,1).RI$ . U|
00001700: B2 55 AA 31 00 36 1F F4 06 81 20 49 B2 4E 20 A4 |.U.1.6.... I.N .|
00001710: 20 30 20 A9 20 AB 31 3A 8B 20 53 24 28 49 29 B3 | 0 . .1:. S$(I).|
00001720: B1 22 2D 22 20 A7 20 4B 4B B2 49 3A 49 B2 30 3A |."-" . KK.I:I.0:|
00001730: 89 20 31 38 30 30 00 3F 1F FE 06 4B 4B B2 31 00 |. 1800.?...KK.1.|
00001740: 47 1F 08 07 82 20 49 00 7E 1F 12 07 4B B2 30 3A |G.... I.~...K.0:|
00001750: 81 20 49 B2 55 20 A4 20 4B 4B 3A 8B 20 C8 28 53 |. I.U . KK:. .(S|
00001760: 24 28 49 29 29 2C 31 29 B2 52 49 24 20 A7 20 4B |$(I)),1).RI$ . K|
00001770: B2 31 3A 4E 4E B2 49 AB 31 3A 49 B2 4B 4B 00 93 |.1:NN.I.1:I.KK..|
00001780: 1F 1C 07 82 20 49 3A 8B 20 4B B2 31 20 A7 20 31 |.... I:. K.1 . 1|
00001790: 38 34 30 00 9D 1F 26 07 4E 4E B2 4B 4B 00 A5 1F |840...&.NN.KK...|
000017A0: 30 07 49 B2 30 00 BC 1F 3A 07 4A B2 55 3A 8B 20 |0.I.0...:.J.U:. |
000017B0: 49 B2 4E 4E AB 55 20 A7 20 34 35 30 00 D0 1F 44 |I.NN.U . 450...D|
000017C0: 07 8B 20 4A B2 4E 4E AB 49 20 A7 20 31 38 39 30 |.. J.NN.I . 1890|
000017D0: 00 0A 20 4E 07 8B 20 53 24 28 4A 29 B1 53 24 28 |.. N.. S$(J).S$(|
000017E0: 4A AA 31 29 20 A7 20 54 50 24 B2 53 24 28 4A 29 |J.1) . TP$.S$(J)|
000017F0: 3A 53 24 28 4A 29 B2 53 24 28 4A AA 31 29 3A 53 |:S$(J).S$(J.1):S|
00001800: 24 28 4A AA 31 29 B2 54 50 24 00 1B 20 58 07 4A |$(J.1).TP$.. X.J|
00001810: B2 4A AA 31 3A 89 20 31 38 36 30 00 2C 20 62 07 |.J.1:. 1860., b.|
00001820: 49 B2 49 AA 31 3A 89 20 31 38 35 30 00 48 20 6C |I.I.1:. 1850.H l|
00001830: 07 8F 20 53 4F 52 54 45 45 52 20 48 4F 4F 46 44 |.. SORTEER HOOFD|
00001840: 47 52 4F 45 50 45 4E 2E 00 56 20 76 07 99 20 43 |GROEPEN..V v.. C|
00001850: 4C 24 44 4E 24 3B 00 77 20 7B 07 99 20 A6 39 29 |L$DN$;.w {.. .9)|
00001860: 52 49 24 22 20 20 20 20 2A 20 57 41 52 4E 49 4E |RI$" * WARNIN|
00001870: 47 20 2A 20 20 20 22 00 98 20 80 07 99 20 A6 39 |G * ".. ... .9|
00001880: 29 52 49 24 22 20 20 54 48 49 53 20 43 41 4E 20 |)RI$" THIS CAN |
00001890: 54 41 4B 45 20 41 20 22 00 B9 20 8A 07 99 20 A6 |TAKE A ".. ... .|
000018A0: 39 29 52 49 24 22 20 20 56 45 52 59 20 4C 4F 4E |9)RI$" VERY LON|
000018B0: 47 20 54 49 4D 45 21 20 22 00 C3 20 94 07 99 3A |G TIME! ".. ...:|
000018C0: 49 B2 4E 00 E2 20 9E 07 8B 20 53 24 28 49 29 B2 |I.N.. ... S$(I).|
000018D0: 22 2D 22 20 A7 20 49 B2 49 AB 31 3A 89 20 31 39 |"-" . I.I.1:. 19|
000018E0: 35 30 00 F8 20 A8 07 45 46 B2 49 AA 31 3A 53 24 |50.. ..EF.I.1:S$|
000018F0: 28 45 46 29 B2 45 45 24 00 0B 21 B2 07 49 B2 30 |(EF).EE$..!..I.0|
00001900: 3A 4A B2 30 3A 57 24 B2 45 45 24 00 3C 21 BC 07 |:J.0:W$.EE$.<!..|
00001910: 8F 20 5A 4F 45 4B 20 4B 4C 45 49 4E 53 54 45 20 |. ZOEK KLEINSTE |
00001920: 4E 49 45 54 20 47 45 53 4F 52 54 45 45 52 44 45 |NIET GESORTEERDE|
00001930: 20 48 4F 4F 46 44 47 52 4F 45 50 2E 00 5E 21 C6 | HOOFDGROEP..^!.|
00001940: 07 8B 20 C6 28 53 24 28 49 29 29 B3 B1 31 38 20 |.. .(S$(I))..18 |
00001950: A7 20 49 B2 49 AA 31 3A 89 20 31 39 39 30 00 70 |. I.I.1:. 1990.p|
00001960: 21 D0 07 8B 20 49 B2 45 46 20 A7 20 32 32 30 30 |!... I.EF . 2200|
00001970: 00 87 21 DA 07 57 24 B2 53 24 28 49 29 3A 54 B2 |..!..W$.S$(I):T.|
00001980: 49 3A 49 B2 49 AA 31 00 A9 21 E4 07 8B 20 C6 28 |I:I.I.1..!... .(|
00001990: 53 24 28 49 29 29 B3 B1 31 38 20 A7 20 49 B2 49 |S$(I))..18 . I.I|
000019A0: AA 31 3A 89 20 32 30 32 30 00 C7 21 EE 07 8B 20 |.1:. 2020..!... |
000019B0: 53 24 28 49 29 B3 57 24 20 A7 20 57 24 B2 53 24 |S$(I).W$ . W$.S$|
000019C0: 28 49 29 3A 54 B2 49 00 E0 21 F8 07 8B 20 49 B2 |(I):T.I..!... I.|
000019D0: 45 46 20 A7 20 99 20 57 24 3A 89 20 32 30 36 30 |EF . . W$:. 2060|
000019E0: 00 F1 21 02 08 49 B2 49 AA 31 3A 89 20 32 30 32 |..!..I.I.1:. 202|
000019F0: 30 00 08 22 0C 08 8B 20 57 24 B3 B1 53 24 28 4A |0.."... W$..S$(J|
00001A00: 29 20 A7 20 32 31 30 30 00 28 22 16 08 4A B2 4A |) . 2100.("..J.J|
00001A10: AA 31 3A 8B 20 C6 28 53 24 28 4A 29 29 B3 B1 31 |.1:. .(S$(J))..1|
00001A20: 38 20 A7 20 32 30 37 30 00 37 22 20 08 49 B2 4A |8 . 2070.7" .I.J|
00001A30: 3A 89 20 32 30 30 30 00 56 22 2A 08 8F 20 4B 49 |:. 2000.V"*.. KI|
00001A40: 4C 4C 20 48 4F 4F 46 44 47 52 4F 45 50 20 52 45 |LL HOOFDGROEP RE|
00001A50: 47 45 4C 20 54 2E 00 79 22 34 08 81 20 44 B2 54 |GEL T..y"4.. D.T|
00001A60: 20 A4 20 45 46 AB 31 3A 53 24 28 44 29 B2 53 24 | . EF.1:S$(D).S$|
00001A70: 28 44 AA 31 29 3A 82 20 44 00 9D 22 3E 08 8F 20 |(D.1):. D..">.. |
00001A80: 49 4E 53 45 52 54 20 48 4F 4F 46 44 47 52 4F 45 |INSERT HOOFDGROE|
00001A90: 50 20 4F 50 20 52 45 47 45 4C 20 4A 2E 00 CE 22 |P OP REGEL J..."|
00001AA0: 48 08 81 20 44 B2 45 46 20 A4 20 4A AA 31 20 A9 |H.. D.EF . J.1 .|
00001AB0: 20 AB 31 3A 53 24 28 44 29 B2 53 24 28 44 AB 31 | .1:S$(D).S$(D.1|
00001AC0: 29 3A 82 20 44 3A 53 24 28 4A 29 B2 57 24 00 E5 |):. D:S$(J).W$..|
00001AD0: 22 52 08 57 24 B2 45 45 24 3A 49 B2 54 AA 31 3A |"R.W$.EE$:I.T.1:|
00001AE0: 4A B2 4A AA 31 00 10 23 5C 08 8F 20 4F 56 45 52 |J.J.1..#\.. OVER|
00001AF0: 42 52 45 4E 47 45 4E 20 4F 4E 44 45 52 44 45 4C |BRENGEN ONDERDEL|
00001B00: 45 4E 20 48 4F 4F 46 44 47 52 4F 45 50 45 4E 2E |EN HOOFDGROEPEN.|
00001B10: 00 2F 23 66 08 8B 20 C6 28 53 24 28 49 29 29 B2 |./#f.. .(S$(I)).|
00001B20: 31 38 20 A7 20 49 B2 4A 3A 89 20 32 30 30 30 00 |18 . I.J:. 2000.|
00001B30: 3D 23 70 08 54 50 24 B2 53 24 28 49 29 00 60 23 |=#p.TP$.S$(I).`#|
00001B40: 7A 08 81 20 44 B2 49 20 A4 20 45 46 AB 31 3A 53 |z.. D.I . EF.1:S|
00001B50: 24 28 44 29 B2 53 24 28 44 AA 31 29 3A 82 20 44 |$(D).S$(D.1):. D|
00001B60: 00 92 23 84 08 81 20 44 B2 45 46 20 A4 20 4A AA |..#... D.EF . J.|
00001B70: 31 20 A9 20 AB 31 3A 53 24 28 44 29 B2 53 24 28 |1 . .1:S$(D).S$(|
00001B80: 44 AB 31 29 3A 82 20 44 3A 53 24 28 4A 29 B2 54 |D.1):. D:S$(J).T|
00001B90: 50 24 00 A9 23 8E 08 49 B2 49 AA 31 3A 4A B2 4A |P$..#..I.I.1:J.J|
00001BA0: AA 31 3A 89 20 32 31 35 30 00 BE 23 98 08 53 24 |.1:. 2150..#..S$|
00001BB0: 28 45 46 29 B2 22 2D 22 3A 89 20 34 35 30 00 DC |(EF)."-":. 450..|
00001BC0: 23 A2 08 99 20 52 49 24 4E 24 22 20 4E 4F 54 20 |#... RI$N$" NOT |
00001BD0: 46 4F 55 4E 44 22 3A 8D 20 31 38 30 00 EA 23 AC |FOUND":. 180..#.|
00001BE0: 08 A0 20 4A 3A 89 20 34 35 30 00 FD 23 CA 08 9F |.. J:. 450..#...|
00001BF0: 20 31 2C 31 2C 30 3A 89 20 31 30 34 30 00 11 24 | 1,1,0:. 1040..$|
00001C00: C4 09 45 24 B2 C7 28 30 32 37 29 3A 9F 20 34 2C |..E$..(027):. 4,|
00001C10: 34 00 25 24 C5 09 98 34 2C 20 45 24 22 4D 22 C7 |4.%$...4, E$"M".|
00001C20: 28 30 30 35 29 00 39 24 C6 09 98 34 2C 20 45 24 |(005).9$...4, E$|
00001C30: 22 42 22 C7 28 30 30 32 29 00 3F 24 C7 09 90 00 |"B".(002).?$....|
00001C40: 61 24 B8 0B 9F 20 35 2C 38 2C 31 35 2C 22 53 30 |a$... 5,8,15,"S0|
00001C50: 3A 44 41 54 41 42 41 53 45 2D 43 4F 52 52 2F 4F |:DATABASE-CORR/O|
00001C60: 22 00 8D 24 B9 0B 98 35 2C 22 52 30 3A 44 41 54 |"..$...5,"R0:DAT|
00001C70: 41 42 41 53 45 2D 43 4F 52 52 2F 4F 3D 30 3A 44 |ABASE-CORR/O=0:D|
00001C80: 41 54 41 42 41 53 45 2D 43 4F 52 52 22 00 AE 24 |ATABASE-CORR"..$|
00001C90: BA 0B 98 35 2C 22 52 30 3A 44 41 54 41 42 41 53 |...5,"R0:DATABAS|
00001CA0: 45 2D 43 4F 52 52 3D 30 3A 54 45 4D 50 22 00 B6 |E-CORR=0:TEMP"..|
00001CB0: 24 BB 0B A0 20 35 00 D1 24 BC 0B 99 3A 99 20 22 |$... 5..$...:. "|
00001CC0: 56 45 52 53 49 45 5A 45 54 20 4B 4C 41 41 52 2E |VERSIEZET KLAAR.|
00001CD0: 22 00 D7 24 BD 0B 80 00 00 00 |"..$...... |
....... NAAR HOOFDPROGRAMMA..I.... 53280
,0:. 53281,0:. G(155)G(014)G(008).....MA
$.G(166):RE$.G(013):BS$.G(157):FS$.G(029
):UP$.G(145).....DN$.G(017):CL$.G(147):H
M$.G(019):DL$.G(020):IS$.G(148).Y...RI$.
G(018):RO$.G(146).....XX$.G(191):U5$.UP$
.UP$.UP$.UP$.UP$:EE$.RI$."ZZZZZZZZZZ":.
260...... SUBROUTINES..A.(.. GET ROUTINE
..V.2.A$."":I.0:. MA$;.L.<.. G$:. G$.""
. 60...F.. G$.IS$ . G$.DN$ . G$.FS$ . G$
.BS$ . G$.UP$ . 60...P.. G$.DL$ . A$.""
. 60...Z.. G$.DL$ . . DL$DL$MA$;:I.I.1:A
$.H(A$,I):. 60...D.. G$..RE$ . A$.A$.G$:
I.I.1:. BS$G$MA$;:. 60.5.N.. A$.RE$ . A$
."":..D.X.. BS$" ":..Z.... FUNCTIE KIEZE
N..X.... DN$RI$Q$BS$UP$UP$:. 180.....A.0
:. I.1 . 15:. J(K$,I.2.1,1).A$ . A.I:I.1
7:.... .. I:..H.... WELKE TOETS....... A
$:. A$."" . 180.........H... ENTRYNUMMER
IN BEWERKING....R.. HM$.35)I:..%.... FI
LTER..J.... RI$"ARE YOU SURE? Y/N":. 180
:..`.... HOOFDPROGRAMMA..U.... INITIALIS
EREN....... CL$.11)G(142)RI$" D A T A B
A S E "...... .11)DN$" *JUST A MOMENT.*"
.....H$."C.B.M.":Q$.RI$."YOUR CHOICE ?
= HELP ".,...N..((.(0).(.(0).0).65536).
40):P.1:X.(N.1).10:N.10..(X).E.".. S$(N.
1):L$." LINE".A.,.. J.0 . N:S$(J)."-":.
J...6.. DN$" ".(X)"PAGES":. N"ENTRIES"..
.@.K$."C,P,E,I,N,S,L,H,K,A,?,R,F,D,G":.
380.L.J.. TOON HOOFDGROEPEN..T.T.K.0...^
.Q.0:. CL$RI$"CHAPTER CONTENTS FILE: "H$
:."PAGE".+.H.. J.K . N:. F(S$(J))..18 .
370.X.M.. BS$;.(J.10.1);S$(J):Q.Q.1:. Q.
19 . 380.`.R.. J.V.|.. 140:. A.0 . 380.B
.... A . 340,430,1550,540,690,870,930,13
30,1270,1720,730,1470,510,730,1640.Z....
J.N.1 . K.J:. 350...... 340...... BLADZ
IJDE../...A$."-":. UP$UP$"PAGE":. 50:P.E
(A$):. 150:. A..0 . 390.P.... P.1 . P..(
X) . . U5$:. 430.G.B.. CL$RI$"PAGE"P;H$.
..G..:. I.0 . 9:L.(P.1).10.I:. BS$;L;S$(
L):. I...L.. 140:. A.0 . 460...V.. A..16
. 390.T...P.P.1:. P.X . P.1...... 450..
.... BESTANDSNAAM....... CL$"FILENAME":.
50:H$.A$...... 450.+.... INVOEGEN..J...
A$."-1":. UP$UP$"INSERT"L$.N.!.. 50:J.E(
A$):. 150:. A..0 . 450...&.. J.0 . J..(X
).10.1 . . U5$:. 540...0.A$."":. "ENTRY"
:. 50:. 150:. A..0 . 450...:.. "INSERTIN
G":. R.N . 450...D.KK.N:. I.J . N:. S$(I
)."-" . KK.I:I.N...X.. I.G.B.. I.KK . J.
1 . .1:S$(I).S$(I.1):. 210:. I:S$(J).A$.
|.L.. H(S$(J),1)."*" . S$(J).RI$.I(S$(J)
,C(S$(J)).1)...V.P..(J.10).1.L.... CL$RI
$"PAGE"P;H$:. I.0 . 9:L.(P.1).10.I:. BS$
;L;S$(L):. I.....J.J.1:. J..(X).10.1 . J
.0...... DN$DN$"INSERT"L$;J:A$."":. 560.
..... 450...... NIEUW BESTAND..Q.... DN$
DN$:. 230:. A$.."Y" . 450.U.... DN$"NEW
FILE NAME":. 50:H$.A$...F.. J.0 . N:S$(J
)."-":. J:. 450...P.. MENU....Z.. CL$RI$
.15)" M E N U "......:. RI$"P"RO$"AGE".2
0)RI$"N"RO$"EW FILE"......:. RI$"C"RO$"H
APTER".20)RI$"F"RO$"ILE NAME".M....:. RI
$"G"RO$"ET ENTRY".20)RI$"K"RO$"ILL"L$..
...:. RI$"E"RO$"NTER"L$;.20)RI$"H"RO$"AR
D COPY"......:. RI$"A"RO$"LPHABETIZE".20
)RI$"I"RO$"NSERT"L$......:. RI$"R"RO$"EC
TIFY"L$.20)RI$"D"RO$"EFINITIONS".-. ..:.
RI$"S"RO$"AVE TO TAPE/DISK".20)RI$"L"RO
$"OAD FROM TAPE/DISK".8.4..:. Q$.N.>.. 1
80:. CL$:. 150.^.H.. A.0 . 730.H.R.. 390
.Y.\.. SAVE-INFO....F.. CL$RI$"SAVE"DN$:
. 230:. A.."Y" . 450.Y.P.. DN$RI$"DISK O
R TAPE? D/T":. 180:. A$."T" . 910...Z..
A$.."D" . 450.(.... 15,8,15,"I": 15:. 2
,8,2,"@0:".H$." ,S,W":J.2:. 1000.D....:.
1,1,1,H$:J.1:. 1000.U.... LOAD INFO....
... CL$RI$"LOAD"RO$DN$:. 230:. A$.."Y".
450...... DN$RI$"DISK OR TAPE? D/T":. 18
0:. A$."T" . 980.L.... A$.."D" . 450....
.. 1080:. UP$"FILE NAME?!":. 50:N$.A$:.
N$."" . 450.=.J.. 15,8,15,"I": 15:. 2,8
,2,"0:".N$." ,S,R":J.2:. 1040.Y.T..:. 1,
1,0,H$:J.1:. 1040.R.... SAVE/LOAD VERVOL
G....... I.N . 0 . .1:. S$.."-" . K.I:I.
0...... I:K.K.1.D....J,H$.XX$:.J,K:. I.0
. K......J,S$(I):. 210:. I: J:. 450...
...J,N$:. I(N$,1)..XX$ . 2210.8...H$.N$:
H$.H(H$,C(H$).1):. UP$RI$"FOUND "H$:.J,K
.C.$.. I.0 . K:.J,S$(I):. 210:. I: J:.
450..... OVERZICHT DISK-FILES....8.. CL
$RI$"DISC FILE LISTING? Y/N":. 180:. A$.
."Y" . ..T.B.. CL$"SCANNING DISC"CD$...L
.. 1,8,0,"$0"...V..#1,A$,B$...`..#1,A$,B
$...J..#1,A$,B$./.~.C.F(A$.G(0)).256.F(B
$.G(0)).K...D$.D$.RI$.J(D(C),2).RO$.H...
.#1,B$:. ST..0 . 1:.:...... B$..G(34)
. 1180......#1,B$:. B$..G(34) . D$.D$.B
$:. 1200.E....#1,B$:. B$.G(32) . 1210.O.
D.C$.""...N.C$.C$.B$:.#1,B$:. B$.."" . 1
230...X.. I(D$,1).XX$ . . D$.....D$."":.
1120.7.... VERWIJDER GEGEVENS..T...A$."
-1":. DN$DN$"KILL"L$:. 50:J.E(A$):. 150:
. A..0 . 450...... J.0 . J..(X).10.1 . .
U5$:. 1270.F.... I.J . N.1:. S$(I)."-"
. I.N.1:. 1310.....S$(I).S$(I.1):. 210..
.... I:S$(N)."-":. 450...(.. AFDRUKKEN..
=.2.. CL$RI$"HARD COPY? Y/N"DN$:. 180:.
A$.."Y" . 450._.<.. DN$RI$"ENTIRE FILE?
Y/N"DN$...A.. 180:. A$."Y" . F.0:M.N:. 1
380...F.. "STARTING"L$:. 50...P.F.E(A$):
. F.0 . F.N . 1330...Z.. "ENDING"L$:. 50
:M.E(A$):. M.0 . M.N . M.F . 1330...D..4
,4...N..4," FILE: "H$:.4.>.X.LL.4:. I
.F . M:. H(S$(I),1).RI$ . 1430.H.... S$(
I).."-" . .4," "S$(I):LL.LL.2.S.... 1
450......4," *"S$(I)... .LL.LL.4.....
. I: 4:. 450...... CORRECTIE GEGEVEN..R
.... A$."A" . 1550...H.A$."-1":. DN$DN$"
RECTIFY"L$:. 50...M.J.E(A$):.150:. A..0
. 450.<.R.. J.0 . J..(X).10.1 . . U5$:.
1480.^.... S$(J):. A$:. 150:. A..0.450.K
...S$(J).A$. .... H(S$(J),1)."*" . S$(J)
.RI$.I(S$(J),C(S$(J)).1)...... 1450.....
. AUTO ENTER......A$."-1":.DN$DN$"ENTER"
L$:. 50:J.E(A$):. 150:. A..0 . 450.!....
J.0 . J..(X).10.1 . . U5$:. 1550.M.".A$
."":. "ENTRY":. 50:. 150:. A..0 . 450...
,.S$(J).A$:. H(S$(J),1)."*". S$(J).RI$.I
(S$(J),C(S$(J)).1)...6.P..(J.10).1.Z.@..
CL$RI$"PAGE"P;H$:. I.0 . 9:L.(P.1).10.I
:. BS$;L;S$(L):. I...J.J.J.1:. J..(X).10
.1 .J.0...T.. DN$DN$"ENTER"L$;J:A$."":.1
570.0.^.. ZOEK GEGEVENS..`.H.. DN$DN$"GE
T ENTRY":. 50:. 150:. A..0 . 450...R.. H
(A$,1)."*" . A$.RI$.I(A$,C(A$).1)...|.T.
.1:. I.0 . N:. S$(I).A$ . T.I:I.N......
I...... T..1 . . DN$RI$"NOT FOUND":. 180
:. 450.....P..(T.10).1:. 450...... ALFAB
ETISEER....... KEUZE..O.... CL$RI$"ALPHA
BETIZE CHAPTER ENTRIES Y/N?"DN$.H.... 18
0:. A$."Y". 1900.{.B.. A$."N" . 450...L.
. PER GROEP....V.. "ALPHABETIZE STARTING
"L$:. 50.O...U.E(A$):. 150:. A..0 . 450.
..... U.0 . U.N . 380...... J(S$(U),1,1)
.RI$ . U.U.1.6.... I.N . 0 . .1:. S$(I).
."-" . KK.I:I.0:. 1800.?...KK.1.G.... I.
~...K.0:. I.U . KK:. H(S$(I)),1).RI$ . K
.1:NN.I.1:I.KK...... I:. K.1 . 1840...&.
NN.KK...0.I.0...:.J.U:. I.NN.U . 450.P.D
.. J.NN.I . 1890.. N.. S$(J).S$(J.1) . T
P$.S$(J):S$(J).S$(J.1):S$(J.1).TP$.. X.J
.J.1:. 1860., B.I.I.1:. 1850.H L.. SORTE
ER HOOFDGROEPEN..V V.. CL$DN$;.W {.. .9)
RI$" * WARNING * ".. ... .9)RI$" T
HIS CAN TAKE A ".. ... .9)RI$" VERY LON
G TIME! ".C ...:I.N.. ... S$(I)."-" . I.
I.1:. 1950.. ..EF.I.1:S$(EF).EE$..!..I.0
:J.0:W$.EE$.<!... ZOEK KLEINSTE NIET GES
ORTEERDE HOOFDGROEP..^!F.. F(S$(I))..18
. I.I.1:. 1990.P!P.. I.EF . 2200..!Z.W$.
S$(I):T.I:I.I.1..!... F(S$(I))..18 . I.I
.1:. 2020.G!... S$(I).W$ . W$.S$(I):T.I.
.!... I.EF . . W$:. 2060..!..I.I.1:. 202
0.."... W$..S$(J) . 2100.("..J.J.1:. F(S
$(J))..18 . 2070.7" .I.J:. 2000.V"*.. KI
LL HOOFDGROEP REGEL T..Y"4.. D.T . EF.1:
S$(D).S$(D.1):. D..">.. INSERT HOOFDGROE
P OP REGEL J..N"H.. D.EF . J.1 . .1:S$(D
).S$(D.1):. D:S$(J).W$.."R.W$.EE$:I.T.1:
J.J.1..#\.. OVERBRENGEN ONDERDELEN HOOFD
GROEPEN../#F.. F(S$(I)).18 . I.J:. 2000.
=#P.TP$.S$(I).`#Z.. D.I . EF.1:S$(D).S$(
D.1):. D..#... D.EF . J.1 . .1:S$(D).S$(
D.1):. D:S$(J).TP$..#..I.I.1:J.J.1:. 215
0..#..S$(EF)."-":. 450..#... RI$N$" NOT
FOUND":. 180..#.. J:. 450..#J.. 1,1,0:.
1040..$D.E$.G(027):. 4,4.%$E..4, E$"M"G
(005).9$F..4, E$"B"G(002).?$G...A$... 5,
8,15,"S0:DATABASE-CORR/O"..$...5,"R0:DAT
ABASE-CORR/O=0:DATABASE-CORR"..$...5,"R0
:DATABASE-CORR=0:TEMP"..$.. 5.Q$...:. "
VERSIEZET KLAAR.".W$......
> CLICK IMAGE PREVIEW FOR FULL MODAL