GEN.FILE
FILE INFORMATION
FILENAME(S): GEN.FILE
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 21:23:03
APPEARS ON: 1 disk(s)
FILE HASH
dcd2ab828ec278d7520f2275c89f38d076cee25f16916024ed2d0d106b32d312
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 60 2 | GEN.FILE | PRG | DuncanTwain | 23 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000020: 3D 08 14 00 8F 20 2A 20 20 20 20 20 20 47 45 4E |=.... * GEN|
00000030: 2E 46 49 4C 45 20 20 20 20 20 20 20 2A 00 5B 08 |.FILE *.[.|
00000040: 19 00 8F 20 2A 20 20 20 20 20 43 52 45 41 54 45 |... * CREATE|
00000050: 44 20 42 59 20 20 20 20 20 20 2A 00 79 08 1A 00 |D BY *.y...|
00000060: 8F 20 2A 20 20 20 20 47 4F 52 44 20 48 49 4C 4C |. * GORD HILL|
00000070: 4D 41 4E 20 20 20 20 20 2A 00 97 08 1B 00 8F 20 |MAN *...... |
00000080: 2A 20 47 45 4E 45 41 4C 4F 47 59 20 53 4F 46 54 |* GENEALOGY SOFT|
00000090: 57 41 52 45 20 20 2A 00 B5 08 1E 00 8F 20 2A 2A |WARE *...... **|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000B0: 2A 2A 2A 2A 2A 00 EC 08 32 00 86 41 24 28 36 36 |*****...2..A$(66|
000000C0: 34 29 2C 49 24 28 36 36 34 29 3A 55 24 B2 22 2C |4),I$(664):U$.",|
000000D0: 22 3A 53 24 B2 22 20 20 20 20 20 20 20 20 20 20 |":S$." |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 22 00 0A 09 3C | "...<|
000000F0: 00 99 22 93 11 11 90 C6 C6 C6 C6 C6 C6 C6 C6 C6 |..".............|
00000100: C6 C6 C6 C6 C6 C6 C6 C6 C6 22 00 3A 09 41 00 99 |.........".:.A..|
00000110: 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 20 20 20 22 00 6A 09 46 00 99 | ".j.F..|
00000140: 22 12 50 4C 45 41 53 45 20 52 45 4D 4F 56 45 20 |".PLEASE REMOVE |
00000150: 54 48 45 20 50 52 4F 47 52 41 4D 20 44 49 53 4B |THE PROGRAM DISK|
00000160: 20 41 4E 44 20 20 20 20 20 22 00 9A 09 47 00 99 | AND "...G..|
00000170: 22 12 52 45 50 4C 41 43 45 20 49 54 20 57 49 54 |".REPLACE IT WIT|
00000180: 48 20 59 4F 55 52 20 44 41 54 41 20 46 49 4C 45 |H YOUR DATA FILE|
00000190: 20 44 49 53 4B 2E 20 20 20 22 00 CA 09 48 00 99 | DISK. "...H..|
000001A0: 22 12 54 48 45 20 44 41 54 41 20 44 49 53 4B 20 |".THE DATA DISK |
000001B0: 4D 55 53 54 20 42 45 20 46 4F 52 4D 41 54 54 45 |MUST BE FORMATTE|
000001C0: 44 2E 20 20 54 48 45 20 20 22 00 FA 09 49 00 99 |D. THE "...I..|
000001D0: 22 12 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 57 |".PROGRAM WILL W|
000001E0: 52 49 54 45 20 59 4F 55 52 20 49 4E 44 45 58 20 |RITE YOUR INDEX |
000001F0: 41 4E 44 20 4D 41 59 20 20 22 00 2A 0A 4A 00 99 |AND MAY ".*.J..|
00000200: 22 12 42 45 20 55 53 45 44 20 4C 41 54 45 52 20 |".BE USED LATER |
00000210: 54 4F 20 55 50 44 41 54 45 20 54 48 45 20 49 4E |TO UPDATE THE IN|
00000220: 44 45 58 2E 20 20 20 20 20 22 00 5A 0A 4B 00 99 |DEX. ".Z.K..|
00000230: 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000250: 20 20 20 20 20 20 20 20 20 22 00 74 0A 50 00 99 | ".t.P..|
00000260: 22 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |"...............|
00000270: C4 C4 C4 22 00 98 0A 5A 00 99 22 11 11 11 11 11 |..."...Z..".....|
00000280: 11 11 11 1D 1D 54 4F 20 53 54 41 52 54 20 50 52 |.....TO START PR|
00000290: 45 53 53 20 27 53 27 22 00 AD 0A 64 00 A1 50 24 |ESS 'S'"...d..P$|
000002A0: 3A 8B 50 24 B3 B1 22 53 22 A7 31 30 30 00 C9 0A |:.P$.."S".100...|
000002B0: 78 00 99 22 93 11 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |x.."............|
000002C0: C6 C6 C6 C6 C6 C6 C6 C6 22 00 E4 0A 82 00 99 22 |........"......"|
000002D0: 12 20 53 45 54 54 49 4E 47 20 55 50 20 49 4E 44 |. SETTING UP IND|
000002E0: 45 58 20 22 00 FE 0A 8C 00 99 22 C4 C4 C4 C4 C4 |EX "......".....|
000002F0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 06 |............."..|
00000300: 0B 96 00 99 22 22 00 3B 0B A0 00 99 22 11 49 53 |...."".;....".IS|
00000310: 20 54 48 45 52 45 20 41 4E 20 49 4E 44 45 58 20 | THERE AN INDEX |
00000320: 4F 4E 20 54 48 45 20 44 41 54 41 20 44 49 53 4B |ON THE DATA DISK|
00000330: 20 4E 4F 57 3F 20 28 59 2F 4E 29 00 4E 0B A1 00 | NOW? (Y/N).N...|
00000340: A1 4F 24 3A 8B 4F 24 B2 22 22 A7 31 36 31 00 5E |.O$:.O$."".161.^|
00000350: 0B A2 00 8B 4F 24 B2 22 4E 22 A7 34 34 30 00 6F |....O$."N".440.o|
00000360: 0B A3 00 8B 4F 24 B3 B1 22 59 22 A7 31 36 30 00 |....O$.."Y".160.|
00000370: 99 0B A5 00 85 22 57 48 41 54 20 49 53 20 54 48 |....."WHAT IS TH|
00000380: 45 20 4C 41 52 47 45 53 54 20 46 49 4C 45 20 4E |E LARGEST FILE N|
00000390: 55 4D 42 45 52 20 22 3B 4B 00 A2 0B B6 00 89 32 |UMBER ";K......2|
000003A0: 32 30 00 C6 0B DC 00 99 3A 9F 31 35 2C 38 2C 31 |20......:.15,8,1|
000003B0: 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 49 4E 44 45 |5:.5,8,5,"0:INDE|
000003C0: 58 2C 53 2C 52 22 00 DC 0B E1 00 99 22 93 20 52 |X,S,R"......". R|
000003D0: 45 41 44 49 4E 47 20 46 49 4C 45 22 00 0B 0C E6 |EADING FILE"....|
000003E0: 00 81 49 B2 31 A4 4B 3A 84 35 2C 49 24 28 49 29 |..I.1.K:.5,I$(I)|
000003F0: 2C 41 24 28 49 29 3A 8B 49 24 28 49 29 B2 22 2F |,A$(I):.I$(I)."/|
00000400: 22 A7 41 24 28 49 29 B2 22 2E 22 00 1E 0C E8 00 |".A$(I).".".....|
00000410: 8B 49 24 28 49 29 B2 22 2F 22 A7 32 34 32 00 30 |.I$(I)."/".242.0|
00000420: 0C EB 00 8B 49 24 28 49 29 B2 22 22 A7 32 34 32 |....I$(I)."".242|
00000430: 00 6F 0C F0 00 99 22 13 11 11 11 11 11 11 11 11 |.o....".........|
00000440: 50 4C 45 41 53 45 20 57 41 49 54 21 20 20 20 20 |PLEASE WAIT! |
00000450: 20 9D 9D 9D 9D 9D 22 49 3B 49 24 28 49 29 3B 55 | ....."I;I$(I);U|
00000460: 24 3B 41 24 28 49 29 3B 53 24 3A 89 32 35 30 00 |$;A$(I);S$:.250.|
00000470: A0 0C F2 00 99 22 13 11 11 11 11 11 11 11 11 50 |.....".........P|
00000480: 4C 45 41 53 45 20 57 41 49 54 21 20 20 20 20 20 |LEASE WAIT! |
00000490: 9D 9D 9D 9D 9D 22 49 3B 49 24 28 49 29 3B 53 24 |....."I;I$(I);S$|
000004A0: 00 A6 0C FA 00 82 00 B1 0C FF 00 A0 31 35 3A A0 |............15:.|
000004B0: 35 00 D1 0C B8 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |5...... ********|
000004C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004D0: 2A 00 F1 0C C2 01 8F 20 2A 20 43 52 45 41 54 45 |*...... * CREATE|
000004E0: 20 47 45 4E 45 41 4C 4F 47 59 20 46 49 4C 45 20 | GENEALOGY FILE |
000004F0: 2A 00 11 0D CC 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000510: 2A 00 32 0D D6 01 99 22 93 11 11 C6 C6 C6 C6 C6 |*.2...."........|
00000520: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
00000530: C6 22 00 51 0D E0 01 99 22 12 20 43 52 45 41 54 |.".Q....". CREAT|
00000540: 45 20 47 45 4E 45 41 4C 4F 47 59 20 46 49 4C 45 |E GENEALOGY FILE|
00000550: 22 00 6F 0D EA 01 99 22 C4 C4 C4 C4 C4 C4 C4 C4 |".o...."........|
00000560: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 |..............".|
00000570: 9E 0D EF 01 99 22 12 59 4F 55 20 57 49 4C 4C 20 |.....".YOU WILL |
00000580: 42 45 20 41 53 4B 45 44 20 46 4F 52 20 52 45 43 |BE ASKED FOR REC|
00000590: 4F 52 44 20 4E 55 4D 42 45 52 2C 20 20 22 00 CD |ORD NUMBER, "..|
000005A0: 0D F0 01 99 22 12 53 55 52 4E 41 4D 45 20 41 4E |....".SURNAME AN|
000005B0: 44 20 47 49 56 45 4E 20 4E 41 4D 45 2E 20 45 4E |D GIVEN NAME. EN|
000005C0: 54 45 52 20 44 41 54 41 20 46 4F 52 22 00 FC 0D |TER DATA FOR"...|
000005D0: F1 01 99 22 12 45 41 43 48 20 41 52 45 41 2E 20 |...".EACH AREA. |
000005E0: 20 45 4E 54 45 52 20 5A 45 52 4F 20 28 30 29 20 | ENTER ZERO (0) |
000005F0: 46 4F 52 20 52 45 43 4F 52 44 20 22 00 2B 0E F2 |FOR RECORD ".+..|
00000600: 01 99 22 12 4E 55 4D 42 45 52 20 54 4F 20 45 4E |..".NUMBER TO EN|
00000610: 44 20 54 48 45 20 49 4E 50 55 54 20 4F 46 20 49 |D THE INPUT OF I|
00000620: 4E 46 4F 52 4D 41 54 49 4F 4E 22 00 48 0E F4 01 |NFORMATION".H...|
00000630: 99 3A 85 22 52 45 43 4F 52 44 20 4E 4F 2E 20 3D |.:."RECORD NO. =|
00000640: 20 30 9D 9D 9D 22 3B 49 00 56 0E F6 01 8B 20 49 | 0...";I.V.... I|
00000650: B2 30 A7 36 38 30 00 6D 0E F9 01 99 3A 85 22 53 |.0.680.m....:."S|
00000660: 55 52 4E 41 4D 45 22 3B 49 24 28 49 29 00 87 0E |URNAME";I$(I)...|
00000670: FA 01 99 3A 85 22 47 49 56 45 4E 20 4E 41 4D 45 |...:."GIVEN NAME|
00000680: 22 3B 41 24 28 49 29 00 92 0E 9E 02 99 3A 89 35 |";A$(I)......:.5|
00000690: 30 30 00 B7 0E A8 02 85 22 57 48 41 54 20 49 53 |00......"WHAT IS|
000006A0: 20 59 4F 55 52 20 48 49 47 48 45 53 54 20 4E 55 | YOUR HIGHEST NU|
000006B0: 4D 42 45 52 22 3B 4B 00 DA 0E AD 02 9F 31 35 2C |MBER";K......15,|
000006C0: 38 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 40 30 3A |8,15:.5,8,5,"@0:|
000006D0: 49 4E 44 45 58 2C 53 2C 57 22 00 F3 0E AE 02 99 |INDEX,S,W"......|
000006E0: 22 93 57 52 49 54 49 4E 47 20 46 49 4C 45 22 3A |".WRITING FILE":|
000006F0: 99 3A 99 00 FE 0E B2 02 81 49 B2 31 A4 4B 00 20 |.:.......I.1.K. |
00000700: 0F B4 02 8B 49 24 28 49 29 B2 22 20 22 B0 49 24 |....I$(I)." ".I$|
00000710: 28 49 29 B2 22 22 A7 49 24 28 49 29 B2 22 2F 22 |(I)."".I$(I)."/"|
00000720: 00 39 0F B6 02 8B 49 24 28 49 29 B2 22 2F 22 A7 |.9....I$(I)."/".|
00000730: 41 24 28 49 29 B2 22 2E 22 00 59 0F B8 02 98 35 |A$(I).".".Y....5|
00000740: 2C 49 24 28 49 29 3B C7 28 31 33 29 3B 41 24 28 |,I$(I);.(13);A$(|
00000750: 49 29 3B C7 28 31 33 29 3B 00 94 0F BC 02 99 22 |I);.(13);......"|
00000760: 13 11 11 11 11 11 11 11 11 50 4C 45 41 53 45 20 |.........PLEASE |
00000770: 57 41 49 54 21 20 20 20 20 20 9D 9D 9D 9D 9D 22 |WAIT! ....."|
00000780: 49 3B 49 24 28 49 29 3B 22 2C 22 3B 41 24 28 49 |I;I$(I);",";A$(I|
00000790: 29 3B 53 24 00 9D 0F C6 02 82 3A A0 35 00 BD 0F |);S$......:.5...|
000007A0: D0 02 99 22 93 11 11 46 49 4E 49 53 48 45 44 20 |..."...FINISHED |
000007B0: 57 52 49 54 49 4E 47 20 46 49 4C 45 22 00 E2 0F |WRITING FILE"...|
000007C0: DA 02 99 3A 99 22 44 4F 20 59 4F 55 20 57 41 4E |...:."DO YOU WAN|
000007D0: 54 20 54 4F 20 52 45 56 49 45 57 20 49 4E 44 45 |T TO REVIEW INDE|
000007E0: 58 22 00 EA 0F E4 02 A1 58 24 00 FB 0F EE 02 8B |X"......X$......|
000007F0: 58 24 B2 22 4E 22 A7 31 34 33 30 00 0C 10 F8 02 |X$."N".1430.....|
00000800: 8B 58 24 B3 B1 22 59 22 A7 37 34 30 00 2D 10 FD |.X$.."Y".740.-..|
00000810: 02 99 3A 99 22 41 52 45 20 59 4F 55 20 55 53 49 |..:."ARE YOU USI|
00000820: 4E 47 20 41 20 50 52 49 4E 54 45 52 22 00 35 10 |NG A PRINTER".5.|
00000830: FE 02 A1 51 24 00 44 10 FF 02 8B 51 24 B2 22 22 |...Q$.D....Q$.""|
00000840: A7 37 36 36 00 58 10 00 03 8B 51 24 B2 22 59 22 |.766.X....Q$."Y"|
00000850: A7 9F 34 2C 34 3A 9D 34 00 70 10 01 03 99 22 49 |..4,4:.4.p...."I|
00000860: 4E 44 45 58 20 4F 46 20 4E 41 4D 45 53 22 3A 99 |NDEX OF NAMES":.|
00000870: 00 7B 10 02 03 81 49 B2 31 A4 4B 00 87 10 07 03 |.{....I.1.K.....|
00000880: 4C 24 B2 C4 28 49 29 00 AC 10 0C 03 99 C8 28 4C |L$..(I).......(L|
00000890: 24 AA 53 24 2C 35 29 3B C8 28 49 24 28 49 29 AA |$.S$,5);.(I$(I).|
000008A0: 53 24 2C 31 37 29 3B 41 24 28 49 29 00 C1 10 16 |S$,17);A$(I)....|
000008B0: 03 82 3A 8B 51 24 B2 22 59 22 A7 20 98 34 3A A0 |..:.Q$."Y". .4:.|
000008C0: 34 00 E2 10 1B 03 99 22 50 52 45 53 53 20 41 4E |4......"PRESS AN|
000008D0: 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |Y KEY TO CONTINU|
000008E0: 45 22 00 F5 10 1C 03 A1 51 24 3A 8B 51 24 B2 22 |E"......Q$:.Q$."|
000008F0: 22 A7 37 39 36 00 21 11 20 03 99 22 93 57 4F 55 |".796.!. ..".WOU|
00000900: 4C 44 20 59 4F 55 20 4C 49 4B 45 20 41 4E 20 41 |LD YOU LIKE AN A|
00000910: 4C 50 48 41 42 45 54 49 43 20 49 4E 44 45 58 3F |LPHABETIC INDEX?|
00000920: 22 00 34 11 2A 03 A1 51 24 3A 8B 51 24 B2 22 22 |".4.*..Q$:.Q$.""|
00000930: A7 38 31 30 00 45 11 34 03 8B 51 24 B2 22 4E 22 |.810.E.4..Q$."N"|
00000940: A7 31 34 33 30 00 68 11 E8 03 8F 20 2A 2A 2A 2A |.1430.h.... ****|
00000950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000960: 2A 2A 2A 2A 2A 2A 2A 2A 00 8B 11 F2 03 8F 20 2A |********...... *|
00000970: 20 20 20 20 20 20 20 41 4C 50 48 41 2E 47 45 4E | ALPHA.GEN|
00000980: 20 20 20 20 20 20 20 20 20 20 2A 00 AE 11 10 04 | *.....|
00000990: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B4 |**************..|
000009B0: 11 1A 04 8F 00 BD 11 2E 04 99 22 93 22 00 04 12 |.........."."...|
000009C0: 38 04 99 3A 99 22 20 20 20 44 4F 20 59 4F 55 20 |8..:." DO YOU |
000009D0: 57 49 53 48 20 41 20 50 52 49 4E 54 4F 55 54 20 |WISH A PRINTOUT |
000009E0: 28 50 29 20 4F 52 20 41 20 20 20 20 20 20 20 20 |(P) OR A |
000009F0: 20 53 43 52 45 45 4E 20 44 49 53 50 4C 41 59 20 | SCREEN DISPLAY |
00000A00: 28 53 29 22 00 21 12 42 04 99 3A 99 22 20 20 20 |(S)".!.B..:." |
00000A10: 45 4E 54 45 52 20 28 50 29 20 4F 52 20 28 53 29 |ENTER (P) OR (S)|
00000A20: 22 00 35 12 44 04 A1 52 24 3A 8B 52 24 B2 22 22 |".5.D..R$:.R$.""|
00000A30: A7 31 30 39 32 00 48 12 60 04 86 49 28 4B AC 32 |.1092.H.`..I(K.2|
00000A40: 29 2C 43 43 24 28 4B 29 00 5C 12 6A 04 8F 2A 2A |),CC$(K).\.j..**|
00000A50: 52 45 41 44 20 46 49 4C 45 2A 2A 2A 00 70 12 6F |READ FILE***.p.o|
00000A60: 04 8B 52 24 B2 22 50 22 A7 9F 34 2C 34 3A 9D 34 |..R$."P"..4,4:.4|
00000A70: 00 91 12 74 04 99 22 41 4C 50 48 41 42 45 54 49 |...t.."ALPHABETI|
00000A80: 43 20 49 4E 44 45 58 20 4F 46 20 4E 41 4D 45 53 |C INDEX OF NAMES|
00000A90: 22 00 9C 12 88 04 81 4A B2 31 A4 4B 00 B7 12 92 |"......J.1.K....|
00000AA0: 04 43 43 24 28 4A 29 B2 49 24 28 4A 29 AA 22 2C |.CC$(J).I$(J).",|
00000AB0: 22 AA 41 24 28 4A 29 00 BD 12 9C 04 82 00 F5 12 |".A$(J).........|
00000AC0: A6 04 8F 20 53 4F 52 54 20 53 54 41 52 54 53 20 |... SORT STARTS |
00000AD0: 48 45 52 45 2D 2D 49 4E 49 54 49 41 4C 20 53 43 |HERE--INITIAL SC|
00000AE0: 41 4E 20 46 49 4E 44 53 20 46 49 52 53 54 20 4E |AN FINDS FIRST N|
00000AF0: 55 4D 42 45 52 00 10 13 B0 04 42 B2 4B AB 31 3A |UMBER.....B.K.1:|
00000B00: 81 4A B2 30 A4 42 3A 49 28 4A 29 B2 4A 3A 82 4A |.J.0.B:I(J).J:.J|
00000B10: 00 21 13 BA 04 81 4A B2 30 A4 4B AC 32 AB 33 A9 |.!....J.0.K.2.3.|
00000B20: 32 00 3D 13 C4 04 42 B2 42 AA 31 3A 49 31 B2 49 |2.=...B.B.1:I1.I|
00000B30: 28 4A 29 3A 49 32 B2 49 28 4A AA 31 29 00 5D 13 |(J):I2.I(J.1).].|
00000B40: CE 04 8D 31 33 39 30 3A 20 8F 20 50 45 52 46 4F |...1390: . PERFO|
00000B50: 52 4D 20 43 4F 4D 50 41 52 49 53 4F 4E 00 6B 13 |RM COMPARISON.k.|
00000B60: D8 04 49 28 42 29 B2 49 3A 82 4A 00 8E 13 EC 04 |..I(B).I:.J.....|
00000B70: 8F 20 4D 41 49 4E 20 4C 4F 4F 50 2D 2D 4F 55 54 |. MAIN LOOP--OUT|
00000B80: 50 55 54 20 4E 45 58 54 20 56 41 4C 55 45 00 A9 |PUT NEXT VALUE..|
00000B90: 13 F6 04 58 B2 58 AB 31 3A 43 B2 49 28 42 29 3A |...X.X.1:C.I(B):|
00000BA0: 8B 43 B3 30 A7 31 34 32 30 00 E1 13 00 05 8F 20 |.C.0.1420...... |
00000BB0: 4F 55 54 50 55 54 20 49 54 45 4D 20 54 4F 20 53 |OUTPUT ITEM TO S|
00000BC0: 43 52 45 45 4E 2C 20 50 52 49 4E 54 45 52 2C 4F |CREEN, PRINTER,O|
00000BD0: 52 20 46 49 4C 45 20 41 53 20 44 45 53 49 52 45 |R FILE AS DESIRE|
00000BE0: 44 00 ED 13 0A 05 43 24 B2 C4 28 43 29 00 12 14 |D.....C$..(C)...|
00000BF0: 14 05 99 C8 28 43 24 AA 53 24 2C 35 29 3B C8 28 |....(C$.S$,5);.(|
00000C00: 49 24 28 43 29 AA 53 24 2C 31 35 29 3B 41 24 28 |I$(C).S$,15);A$(|
00000C10: 43 29 00 1D 14 1E 05 49 28 43 29 B2 58 00 40 14 |C).....I(C).X.@.|
00000C20: 28 05 8F 20 49 4E 4E 45 52 20 4C 4F 4F 50 20 54 |(.. INNER LOOP T|
00000C30: 4F 20 46 49 4E 44 20 4E 45 58 54 20 49 54 45 4D |O FIND NEXT ITEM|
00000C40: 00 63 14 32 05 43 25 B2 43 AD 32 3A 4A B2 43 25 |.c.2.C%.C.2:J.C%|
00000C50: AC 32 3A 43 B2 4B AA 43 25 3A 8B 43 B1 42 A7 31 |.2:C.K.C%:.C.B.1|
00000C60: 32 36 30 00 79 14 3C 05 49 31 B2 49 28 4A 29 3A |260.y.<.I1.I(J):|
00000C70: 49 32 B2 49 28 4A AA 31 29 00 8E 14 46 05 8B 49 |I2.I(J.1)...F..I|
00000C80: 31 B3 30 A7 49 B2 49 32 3A 89 31 33 38 30 00 A3 |1.0.I.I2:.1380..|
00000C90: 14 50 05 8B 49 32 B3 30 A7 49 B2 49 31 3A 89 31 |.P..I2.0.I.I1:.1|
00000CA0: 33 38 30 00 C3 14 5A 05 8D 31 33 39 30 3A 20 8F |380...Z..1390: .|
00000CB0: 20 50 45 52 46 4F 52 4D 20 43 4F 4D 50 41 52 49 | PERFORM COMPARI|
00000CC0: 53 4F 4E 00 D4 14 64 05 49 28 43 29 B2 49 3A 89 |SON...d.I(C).I:.|
00000CD0: 31 33 32 30 00 09 15 6E 05 8F 20 20 43 4F 4D 50 |1320...n.. COMP|
00000CE0: 41 52 45 20 54 57 4F 20 49 54 45 4D 53 20 2D 20 |ARE TWO ITEMS - |
00000CF0: 4D 4F 44 49 46 59 20 54 4F 20 46 49 54 20 41 50 |MODIFY TO FIT AP|
00000D00: 50 4C 49 43 41 54 49 4F 4E 00 28 15 78 05 49 B2 |PLICATION.(.x.I.|
00000D10: 49 31 3A 8B 43 43 24 28 49 32 29 B3 43 43 24 28 |I1:.CC$(I2).CC$(|
00000D20: 49 31 29 A7 49 B2 49 32 00 2E 15 82 05 8E 00 40 |I1).I.I2.......@|
00000D30: 15 8C 05 8B 52 24 B2 22 50 22 A7 98 34 3A A0 34 |....R$."P"..4:.4|
00000D40: 00 5C 15 96 05 99 22 11 11 11 50 52 4F 47 52 41 |.\...."...PROGRA|
00000D50: 4D 20 43 4F 4D 50 4C 45 54 45 44 22 00 89 15 A0 |M COMPLETED"....|
00000D60: 05 99 22 11 11 44 4F 20 59 4F 55 20 57 49 53 48 |.."..DO YOU WISH|
00000D70: 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 54 48 | TO RETURN TO TH|
00000D80: 45 20 43 4F 56 45 52 3F 22 00 9D 15 AA 05 A1 5A |E COVER?"......Z|
00000D90: 24 3A 8B 5A 24 B2 22 22 A7 31 34 35 30 00 AC 15 |$:.Z$."".1450...|
00000DA0: B4 05 8B 5A 24 B2 22 4E 22 A7 20 80 00 D8 15 BE |...Z$."N". .....|
00000DB0: 05 99 22 93 11 11 11 11 1D 1D 1D 1D 50 4C 41 43 |..".........PLAC|
00000DC0: 45 20 50 52 4F 47 52 41 4D 20 44 49 53 4B 20 49 |E PROGRAM DISK I|
00000DD0: 4E 20 44 52 49 56 45 22 00 00 16 C8 05 99 22 11 |N DRIVE"......".|
00000DE0: 11 20 20 20 20 20 50 52 45 53 53 20 41 4E 59 20 |. PRESS ANY |
00000DF0: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |KEY TO CONTINUE"|
00000E00: 00 14 16 D2 05 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 |......Z$:.Z$."".|
00000E10: 31 34 39 30 00 37 16 E6 05 99 22 93 11 11 11 11 |1490.7....".....|
00000E20: 11 11 11 11 11 11 1D 1D 1D 90 50 4C 45 41 53 45 |..........PLEASE|
00000E30: 20 57 41 49 54 21 22 00 58 16 F0 05 99 22 11 11 | WAIT!".X...."..|
00000E40: 1D 1D 4C 4F 41 44 49 4E 47 20 43 4F 56 45 52 20 |..LOADING COVER |
00000E50: 50 52 4F 47 52 41 4D 22 00 84 16 FA 05 99 C7 28 |PROGRAM".......(|
00000E60: 31 39 29 C7 28 31 37 29 22 9B 4C 4F 41 44 22 C7 |19).(17)".LOAD".|
00000E70: 28 33 34 29 22 43 4F 56 45 52 22 C7 28 33 34 29 |(34)"COVER".(34)|
00000E80: 22 2C 38 22 00 9C 16 04 06 99 3A 99 3A 99 3A 99 |",8"......:.:.:.|
00000E90: 3A 99 22 52 55 4E 22 C7 28 31 39 29 00 C4 16 0E |:."RUN".(19)....|
00000EA0: 06 97 31 39 38 2C 34 3A 97 36 33 31 2C 31 39 3A |..198,4:.631,19:|
00000EB0: 81 42 B2 31 A4 33 3A 97 36 33 31 AA 42 2C 31 33 |.B.1.3:.631.B,13|
00000EC0: 3A 82 3A 80 00 00 00 |:.:.... |
....... ***********************.=.... *
GEN.FILE *.[.... * CREATE
D BY *.Y.... * GORD HILLMAN
*...... * GENEALOGY SOFTWARE *...... **
*********************...2..A$(664),I$(66
4):U$.",":S$." "...<
.."....FFFFFFFFFFFFFFFFFF".:.A..".
".J.F..
".PLEASE REMOVE THE PROGRAM DISK AND
"...G..".REPLACE IT WITH YOUR DATA FILE
DISK. ".J.H..".THE DATA DISK MUST BE
FORMATTED. THE "...I..".PROGRAM WILL W
RITE YOUR INDEX AND MAY ".*.J..".BE USE
D LATER TO UPDATE THE INDEX. ".Z.K..
".
".T.P.."DDDDDDDDDDDDDDDDDD"...Z..".....
.....TO START PRESS 'S'"...D..P$:.P$.."S
".100.I.X.."..FFFFFFFFFFFFFFFFFF"......"
. SETTING UP INDEX "......"DDDDDDDDDDDDD
DDDDD"......"".;. ..".IS THERE AN INDEX
ON THE DATA DISK NOW? (Y/N).N....O$:.O$.
"".161.^....O$."N".440.O....O$.."Y".160.
....."WHAT IS THE LARGEST FILE NUMBER ";
K......220.F....:.15,8,15:.5,8,5,"0:INDE
X,S,R"......". READING FILE"......I.1.K:
.5,I$(I),A$(I):.I$(I)."/".A$(I).".".....
.I$(I)."/".242.0....I$(I)."".242.O....".
........PLEASE WAIT! ....."I;I$(I);U
$;A$(I);S$:.250. ....".........PLEASE WA
IT! ....."I;I$(I);S$........... 15:
5.Q.... *************************...B..
* CREATE GENEALOGY FILE *...L.. ********
*****************.2.V.."...FFFFFFFFFFFFF
FFFFFFFFF".Q....". CREATE GENEALOGY FILE
".O...."DDDDDDDDDDDDDDDDDDDDDD"......".Y
OU WILL BE ASKED FOR RECORD NUMBER, ".M
....".SURNAME AND GIVEN NAME. ENTER DATA
FOR"......".EACH AREA. ENTER ZERO (0)
FOR RECORD ".+....".NUMBER TO END THE IN
PUT OF INFORMATION".H....:."RECORD NO. =
0...";I.V.... I.0.680.M....:."SURNAME";
I$(I)......:."GIVEN NAME";A$(I)......:.5
00......"WHAT IS YOUR HIGHEST NUMBER";K.
Z....15,8,15:.5,8,5,"@0:INDEX,S,W"......
".WRITING FILE":.:.......I.1.K. ....I$(I
)." ".I$(I)."".I$(I)."/".9....I$(I)."/".
A$(I).".".Y....5,I$(I);G(13);A$(I);G(13)
;......".........PLEASE WAIT! ....."
I;I$(I);",";A$(I);S$...F..: 5...P.."...F
INISHED WRITING FILE"...Z..:."DO YOU WAN
T TO REVIEW INDEX"......X$......X$."N".1
430......X$.."Y".740.-....:."ARE YOU USI
NG A PRINTER".5....Q$.D....Q$."".766.X..
..Q$."Y"..4,4:.4.P...."INDEX OF NAMES":.
.{....I.1.K.....L$.D(I)......H(L$.S$,5);
H(I$(I).S$,17);A$(I).A....:.Q$."Y". .4:
4......"PRESS ANY KEY TO CONTINUE"......
Q$:.Q$."".796.!. ..".WOULD YOU LIKE AN A
LPHABETIC INDEX?".4.*..Q$:.Q$."".810.E.4
..Q$."N".1430.H.... ********************
********...... * ALPHA.GEN
*...... ****************************..
.........."."...8..:." DO YOU WISH A P
RINTOUT (P) OR A SCREEN DISPLAY
(S)".!.B..:." ENTER (P) OR (S)".5.D..R
$:.R$."".1092.H.`..I(K.2),CC$(K).\.J..**
READ FILE***.P.O..R$."P"..4,4:.4...T.."A
LPHABETIC INDEX OF NAMES"......J.1.K....
.CC$(J).I$(J).",".A$(J)............ SORT
STARTS HERE--INITIAL SCAN FINDS FIRST N
UMBER.....B.K.1:.J.0.B:I(J).J:.J.!....J.
0.K.2.3.2.=.D.B.B.1:I1.I(J):I2.I(J.1).].
N..1390: . PERFORM COMPARISON.K.X.I(B).I
:.J...... MAIN LOOP--OUTPUT NEXT VALUE..
...X.X.1:C.I(B):.C.0.1420...... OUTPUT I
TEM TO SCREEN, PRINTER,OR FILE AS DESIRE
D.....C$.D(C)......H(C$.S$,5);H(I$(C).S$
,15);A$(C).....I(C).X.@.(.. INNER LOOP T
O FIND NEXT ITEM.C.2.C%.C.2:J.C%.2:C.K.C
%:.C.B.1260.Y.<.I1.I(J):I2.I(J.1)...F..I
1.0.I.I2:.1380...P..I2.0.I.I1:.1380.C.Z.
.1390: . PERFORM COMPARISON.T.D.I(C).I:.
1320...N.. COMPARE TWO ITEMS - MODIFY T
O FIT APPLICATION.(.X.I.I1:.CC$(I2).CC$(
I1).I.I2.......@....R$."P"..4: 4.\....".
..PROGRAM COMPLETED"... .."..DO YOU WISH
TO RETURN TO THE COVER?"......Z$:.Z$.""
.1450......Z$."N". ..X....".........PLAC
E PROGRAM DISK IN DRIVE"...H..".. PR
ESS ANY KEY TO CONTINUE"...R..Z$:.Z$."".
1490.7...."...............PLEASE WAIT!".
X...."....LOADING COVER PROGRAM"......G(
19)G(17)".LOAD"G(34)"COVER"G(34)",8"....
..:.:.:.:."RUN"G(19).D....198,4:.631,19:
.B.1.3:.631.B,13:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL