LLIST TEXT
FILE INFORMATION
FILENAME(S): LLIST TEXT
FILE TYPE(S): PRG
FILE SIZE: 7.8K
FIRST SEEN: 2025-10-19 22:49:33
APPEARS ON: 1 disk(s)
FILE HASH
9d83e955023c76764de491cc3e142cc7049b490f6d8f0a61abdf51f56fbabb3b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOLD DISK 9 | LLIST TEXT | PRG | Radd Maxx | 9 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 0A 00 8F 20 28 43 29 31 39 38 35 20 |....... (C)1985 | 00000010: 47 4F 4C 44 20 44 49 53 4B 20 49 4E 43 00 23 08 |GOLD DISK INC.#.| 00000020: 14 00 8F 00 34 08 1E 00 8F 20 4C 49 4E 4B 20 4C |....4.... LINK L| 00000030: 49 53 54 53 00 3A 08 28 00 8F 00 5B 08 32 00 8F |ISTS.:.(...[.2..| 00000040: 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 | PROGRAM STARTS | 00000050: 41 54 20 4C 49 4E 45 20 34 34 30 00 61 08 3C 00 |AT LINE 440.a.<.| 00000060: 8F 00 8B 08 46 00 99 22 93 22 3A 97 35 33 32 37 |....F..".":.5327| 00000070: 32 2C 32 33 3A 99 22 90 22 3A 97 35 33 32 38 31 |2,23:.".":.53281| 00000080: 2C 31 3A 97 35 33 32 38 30 2C 32 00 A3 08 50 00 |,1:.53280,2...P.| 00000090: 89 38 37 30 3A 8F 20 44 49 53 50 4C 41 59 20 54 |.870:. DISPLAY T| 000000A0: 45 58 54 00 AC 08 5A 00 99 22 93 22 00 C8 08 64 |EXT...Z.."."...d| 000000B0: 00 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 4C 49 |.. INITIALIZE LI| 000000C0: 4E 4B 20 41 52 52 41 59 00 ED 08 6E 00 81 49 B2 |NK ARRAY...n..I.| 000000D0: 30 A4 39 3A 4C 49 4E 4B 28 49 29 B2 49 AA 31 3A |0.9:LINK(I).I.1:| 000000E0: 44 41 54 24 28 49 29 B2 22 20 22 3A 82 00 05 09 |DAT$(I)." ":....| 000000F0: 78 00 4C 49 4E 4B 28 30 29 B2 30 3A 4C 49 4E 4B |x.LINK(0).0:LINK| 00000100: 28 39 29 B2 30 00 0B 09 82 00 8F 00 29 09 8C 00 |(9).0.......)...| 00000110: 8F 20 53 45 54 20 50 4F 49 4E 54 45 52 20 54 4F |. SET POINTER TO| 00000120: 20 53 54 41 52 54 20 4F 46 00 47 09 96 00 8F 20 | START OF.G.... | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 52 45 | FRE| 00000140: 45 20 53 50 41 43 45 00 53 09 A0 00 41 56 41 49 |E SPACE.S...AVAI| 00000150: 4C B2 31 00 6D 09 AA 00 89 20 37 33 30 3A 8F 20 |L.1.m.... 730:. | 00000160: 55 50 44 41 54 45 20 53 43 52 45 45 4E 00 82 09 |UPDATE SCREEN...| 00000170: B4 00 99 22 C5 4E 54 45 52 20 44 41 54 41 3A 20 |...".NTER DATA: | 00000180: 22 3B 00 90 09 BE 00 49 B2 31 3A 53 24 B2 22 22 |";.....I.1:S$.""| 00000190: 00 A3 09 C8 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".| 000001A0: 32 30 30 00 BC 09 D2 00 8B 41 24 B2 22 5E 22 A7 |200......A$."^".| 000001B0: 50 47 B2 50 47 AB 31 3A 89 38 38 30 00 CD 09 DC |PG.PG.1:.880....| 000001C0: 00 8B 41 24 B2 22 5F 22 A7 32 37 31 30 00 DF 09 |..A$."_".2710...| 000001D0: E6 00 8B 41 24 B2 C7 28 31 33 29 A7 33 36 30 00 |...A$..(13).360.| 000001E0: F2 09 F0 00 8B 41 24 B3 B1 C7 28 32 30 29 A7 33 |.....A$...(20).3| 000001F0: 31 30 00 0B 0A FA 00 8F 20 44 45 4C 45 54 45 20 |10...... DELETE | 00000200: 41 20 43 48 41 52 41 43 54 45 52 00 18 0A 04 01 |A CHARACTER.....| 00000210: 8B 49 B2 31 A7 32 30 30 00 33 0A 0E 01 53 24 B2 |.I.1.200.3...S$.| 00000220: C8 28 53 24 2C C3 28 53 24 29 AB 31 29 3A 49 B2 |.(S$,.(S$).1):I.| 00000230: 49 AB 31 00 3F 0A 18 01 99 22 9D 20 9D 22 3B 00 |I.1.?....". .";.| 00000240: 4C 0A 22 01 8B 49 B2 30 A7 31 39 30 00 55 0A 2C |L."..I.0.190.U.,| 00000250: 01 89 32 30 30 00 6F 0A 36 01 3A 8B 28 41 24 B3 |..200.o.6.:.(A$.| 00000260: 22 41 22 B0 41 24 B1 22 5A 22 29 A7 32 30 30 00 |"A".A$."Z").200.| 00000270: 7E 0A 40 01 3A 8B 49 B2 31 31 A7 32 30 30 00 94 |~.@.:.I.11.200..| 00000280: 0A 4A 01 8F 20 41 44 44 20 41 20 43 48 41 52 41 |.J.. ADD A CHARA| 00000290: 43 54 45 52 00 A6 0A 54 01 53 24 B2 53 24 AA 41 |CTER...T.S$.S$.A| 000002A0: 24 3A 99 41 24 3B 00 B5 0A 5E 01 49 B2 49 AA 31 |$:.A$;...^.I.I.1| 000002B0: 3A 89 32 30 30 00 C6 0A 68 01 8B C3 28 53 24 29 |:.200...h...(S$)| 000002C0: B2 30 A7 31 37 30 00 DD 0A 72 01 99 22 20 28 49 |.0.170...r.." (I| 000002D0: 29 4E 53 2F 28 44 29 45 4C 3F 20 22 3B 00 F0 0A |)NS/(D)EL? ";...| 000002E0: 7C 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 38 30 ||..A$:.A$."".380| 000002F0: 00 09 0B 86 01 8B 41 24 B2 22 5E 22 A7 50 47 B2 |......A$."^".PG.| 00000300: 50 47 AB 31 3A 89 38 38 30 00 1A 0B 90 01 8B 41 |PG.1:.880......A| 00000310: 24 B2 22 5F 22 A7 32 37 31 30 00 33 0B 9A 01 8B |$."_".2710.3....| 00000320: 41 24 B3 B1 22 49 22 AF 41 24 B3 B1 22 44 22 A7 |A$.."I".A$.."D".| 00000330: 33 38 30 00 3C 0B A4 01 99 41 24 3B 00 4C 0B AE |380.<....A$;.L..| 00000340: 01 8B 41 24 B2 22 44 22 A7 36 33 30 00 52 0B B8 |..A$."D".630.R..| 00000350: 01 8F 00 78 0B C2 01 8F 20 49 4E 53 45 52 54 20 |...x.... INSERT | 00000360: 41 20 53 54 52 49 4E 47 20 49 4E 54 4F 20 54 48 |A STRING INTO TH| 00000370: 45 20 4C 49 4E 4B 45 44 00 9C 0B CC 01 8F 20 20 |E LINKED...... | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000390: 20 20 20 20 20 20 20 20 4C 49 53 54 00 BA 0B D6 | LIST....| 000003A0: 01 8B 20 41 56 41 49 4C B2 30 20 A7 20 31 37 30 |.. AVAIL.0 . 170| 000003B0: 3A 8F 20 4E 4F 20 52 4F 4F 4D 00 DE 0B E0 01 4E |:. NO ROOM.....N| 000003C0: 4C 4E 4B B2 4C 49 4E 4B 28 30 29 3A 8F 20 47 45 |LNK.LINK(0):. GE| 000003D0: 54 20 48 45 41 44 20 4F 46 20 4C 49 53 54 00 E9 |T HEAD OF LIST..| 000003E0: 0B EA 01 4C 4C 4E 4B B2 30 00 FA 0B F4 01 8B 20 |...LLNK.0...... | 000003F0: 4E 4C 4E 4B B2 30 A7 35 35 30 00 11 0C FE 01 8B |NLNK.0.550......| 00000400: 53 24 B3 44 41 54 24 28 4E 4C 4E 4B 29 A7 35 35 |S$.DAT$(NLNK).55| 00000410: 30 00 28 0C 08 02 8B 53 24 B2 44 41 54 24 28 4E |0.(....S$.DAT$(N| 00000420: 4C 4E 4B 29 A7 31 37 30 00 46 0C 12 02 4C 4C 4E |LNK).170.F...LLN| 00000430: 4B B2 4E 4C 4E 4B 3A 4E 4C 4E 4B B2 4C 49 4E 4B |K.NLNK:NLNK.LINK| 00000440: 28 4E 4C 4E 4B 29 00 4F 0C 1C 02 89 35 30 30 00 |(NLNK).O....500.| 00000450: 70 0C 26 02 54 45 4D 50 B2 41 56 41 49 4C 3A 41 |p.&.TEMP.AVAIL:A| 00000460: 56 41 49 4C B2 4C 49 4E 4B 28 41 56 41 49 4C 29 |VAIL.LINK(AVAIL)| 00000470: 00 82 0C 30 02 44 41 54 24 28 54 45 4D 50 29 B2 |...0.DAT$(TEMP).| 00000480: 53 24 00 97 0C 3A 02 4C 49 4E 4B 28 54 45 4D 50 |S$...:.LINK(TEMP| 00000490: 29 B2 4E 4C 49 4E 4B 00 AB 0C 44 02 4C 49 4E 4B |).NLINK...D.LINK| 000004A0: 28 4C 4C 4E 4B 29 B2 54 45 4D 50 00 B4 0C 4E 02 |(LLNK).TEMP...N.| 000004B0: 89 31 37 30 00 BA 0C 58 02 8F 00 CF 0C 62 02 8F |.170...X.....b..| 000004C0: 20 44 45 4C 45 54 45 20 41 20 45 4E 54 52 59 00 | DELETE A ENTRY.| 000004D0: D5 0C 6C 02 8F 00 ED 0C 76 02 4E 4C 4E 4B B2 4C |..l.....v.NLNK.L| 000004E0: 49 4E 4B 28 30 29 3A 4C 4C 4E 4B B2 30 00 0A 0D |INK(0):LLNK.0...| 000004F0: 80 02 8B 4E 4C 4E 4B B2 30 A7 31 37 30 3A 8F 20 |...NLNK.0.170:. | 00000500: 4E 4F 20 53 54 52 49 4E 47 53 00 21 0D 8A 02 8B |NO STRINGS.!....| 00000510: 53 24 B2 44 41 54 24 28 4E 4C 4E 4B 29 A7 36 38 |S$.DAT$(NLNK).68| 00000520: 30 00 3F 0D 94 02 4C 4C 4E 4B B2 4E 4C 4E 4B 3A |0.?...LLNK.NLNK:| 00000530: 4E 4C 4E 4B B2 4C 49 4E 4B 28 4E 4C 4E 4B 29 00 |NLNK.LINK(NLNK).| 00000540: 48 0D 9E 02 89 36 34 30 00 73 0D A8 02 44 41 54 |H....640.s...DAT| 00000550: 24 28 4E 4C 4E 4B 29 B2 22 20 20 20 20 20 20 20 |$(NLNK)." | 00000560: 20 20 20 22 3A 8F 20 4E 4F 54 20 52 45 51 55 49 | ":. NOT REQUI| 00000570: 52 45 44 00 8D 0D B2 02 4C 49 4E 4B 28 4C 4C 4E |RED.....LINK(LLN| 00000580: 4B 29 B2 4C 49 4E 4B 28 4E 4C 4E 4B 29 00 A7 0D |K).LINK(NLNK)...| 00000590: BC 02 54 45 4D 50 B2 41 56 41 49 4C 3A 41 56 41 |..TEMP.AVAIL:AVA| 000005A0: 49 4C B2 4E 4C 4E 4B 00 BC 0D C6 02 4C 49 4E 4B |IL.NLNK.....LINK| 000005B0: 28 41 56 41 49 4C 29 B2 54 45 4D 50 00 C5 0D D0 |(AVAIL).TEMP....| 000005C0: 02 89 31 37 30 00 DF 0D DA 02 8F 20 44 49 53 50 |..170...... DISP| 000005D0: 4C 41 59 20 44 41 54 24 20 20 41 52 52 41 59 00 |LAY DAT$ ARRAY.| 000005E0: E9 0D E4 02 99 22 13 22 3B 00 1B 0E EE 02 99 22 |.....".";......"| 000005F0: 12 C9 CE C4 C5 D8 20 20 20 20 20 20 20 C4 C1 D4 |...... ...| 00000600: 24 28 CC C9 CE CB 29 20 20 20 20 CC C9 CE CB 28 |$(....) ....(| 00000610: C9 CE C4 C5 D8 29 20 20 20 92 22 00 26 0E F8 02 |.....) .".&...| 00000620: 81 49 B2 30 A4 39 00 2E 0E 02 03 99 49 3B 00 38 |.I.0.9......I;.8| 00000630: 0E 0C 03 99 A3 31 32 29 00 46 0E 16 03 99 44 41 |.....12).F....DA| 00000640: 54 24 28 49 29 3B 00 58 0E 20 03 99 A3 33 30 29 |T$(I);.X. ...30)| 00000650: 3B 4C 49 4E 4B 28 49 29 00 60 0E 2A 03 99 3A 82 |;LINK(I).`.*..:.| 00000660: 00 7E 0E 34 03 99 A3 32 30 29 22 20 20 20 20 12 |.~.4...20)" .| 00000670: 41 56 41 49 4C 92 20 22 3B 41 56 41 49 4C 00 AF |AVAIL. ";AVAIL..| 00000680: 0E 3E 03 99 22 20 20 20 20 20 20 20 20 20 20 20 |.>.." | 00000690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 | ";.| 000006B0: DD 0E 48 03 99 22 20 20 20 20 20 20 12 5E 92 20 |..H.." .^. | 000006C0: 50 52 45 56 20 50 47 20 20 12 5F 92 20 C7 4F 4C |PREV PG ._. .OL| 000006D0: 44 20 C4 49 53 4B 20 20 20 20 20 22 3B 00 08 0F |D .ISK ";...| 000006E0: 52 03 99 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |R.."............| 000006F0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................| 00000700: 9D 9D 9D 9D 9D 91 22 3B 00 11 0F 5C 03 89 31 38 |......";...\..18| 00000710: 30 00 1A 0F 66 03 50 47 B2 31 00 49 0F 70 03 91 |0...f.PG.1.I.p..| 00000720: 20 50 47 20 89 38 39 30 2C 31 31 38 30 2C 31 34 | PG .890,1180,14| 00000730: 33 30 2C 31 36 38 30 2C 31 39 33 30 2C 32 31 37 |30,1680,1930,217| 00000740: 30 2C 32 34 31 30 2C 39 30 00 70 0F 7A 03 99 22 |0,2410,90.p.z.."| 00000750: 93 20 20 20 20 20 20 20 20 20 20 20 CC C9 CE CB |. ....| 00000760: C5 C4 A0 CC C9 D3 D4 D3 20 20 20 20 20 20 20 22 |........ "| 00000770: 00 8E 0F 84 03 99 22 20 20 20 20 20 20 20 20 20 |......" | 00000780: 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 B9 | ..............| 00000790: 0F 8E 03 99 22 20 20 D3 55 50 50 4F 53 45 20 54 |...." .UPPOSE T| 000007A0: 48 41 54 20 59 4F 55 20 57 41 4E 54 45 44 20 54 |HAT YOU WANTED T| 000007B0: 4F 20 57 52 49 54 45 20 41 00 E5 0F 98 03 99 22 |O WRITE A......"| 000007C0: 20 50 52 4F 47 52 41 4D 20 54 4F 20 53 54 4F 52 | PROGRAM TO STOR| 000007D0: 45 20 41 20 4C 49 53 54 20 4F 46 20 57 4F 52 44 |E A LIST OF WORD| 000007E0: 53 2C 20 49 4E 00 12 10 A2 03 99 22 20 41 4C 50 |S, IN......" ALP| 000007F0: 48 41 42 45 54 49 43 41 4C 20 4F 52 44 45 52 2C |HABETICAL ORDER,| 00000800: 20 4F 4E 20 59 4F 55 52 20 43 4F 4D 50 55 54 45 | ON YOUR COMPUTE| 00000810: 52 2E 00 3D 10 AC 03 99 22 20 C9 46 20 54 48 49 |R..=...." .F THI| 00000820: 53 20 4C 49 53 54 20 57 45 52 45 20 53 55 42 4A |S LIST WERE SUBJ| 00000830: 45 43 54 20 54 4F 20 43 48 41 4E 47 45 00 68 10 |ECT TO CHANGE.h.| 00000840: B6 03 99 22 20 59 4F 55 20 57 4F 55 4C 44 20 57 |..." YOU WOULD W| 00000850: 41 4E 54 20 54 4F 20 42 45 20 41 42 4C 45 20 54 |ANT TO BE ABLE T| 00000860: 4F 20 41 44 44 20 4F 52 00 95 10 C0 03 99 22 20 |O ADD OR......" | 00000870: 44 45 4C 45 54 45 20 57 4F 52 44 53 20 46 52 4F |DELETE WORDS FRO| 00000880: 4D 20 49 54 2E 20 D4 48 45 20 4F 42 56 49 4F 55 |M IT. .HE OBVIOU| 00000890: 53 20 57 41 59 00 BF 10 CA 03 99 22 20 54 4F 20 |S WAY......" TO | 000008A0: 47 4F 20 41 42 4F 55 54 20 44 4F 49 4E 47 20 54 |GO ABOUT DOING T| 000008B0: 48 49 53 20 49 53 20 54 4F 20 53 54 4F 52 45 00 |HIS IS TO STORE.| 000008C0: EB 10 D4 03 99 22 20 45 41 43 48 20 57 4F 52 44 |....." EACH WORD| 000008D0: 20 49 4E 20 41 4E 20 45 4C 45 4D 45 4E 54 20 4F | IN AN ELEMENT O| 000008E0: 46 20 41 20 53 54 52 49 4E 47 22 00 13 11 DE 03 |F A STRING".....| 000008F0: 99 22 20 41 52 52 41 59 2E 20 D4 4F 20 53 45 41 |." ARRAY. .O SEA| 00000900: 52 43 48 20 46 4F 52 20 41 20 57 4F 52 44 2C 20 |RCH FOR A WORD, | 00000910: 54 48 45 00 3F 11 E8 03 99 22 20 50 52 4F 47 52 |THE.?...." PROGR| 00000920: 41 4D 20 57 4F 55 4C 44 20 53 54 45 50 20 54 48 |AM WOULD STEP TH| 00000930: 52 4F 55 47 48 20 54 48 45 20 41 52 52 41 59 00 |ROUGH THE ARRAY.| 00000940: 6C 11 F2 03 99 22 20 43 4F 4D 50 41 52 49 4E 47 |l...." COMPARING| 00000950: 20 45 41 43 48 20 45 4C 45 4D 45 4E 54 20 57 49 | EACH ELEMENT WI| 00000960: 54 48 20 54 48 45 20 47 49 56 45 4E 00 99 11 FC |TH THE GIVEN....| 00000970: 03 99 22 20 57 4F 52 44 20 55 4E 54 49 4C 20 49 |.." WORD UNTIL I| 00000980: 54 20 57 41 53 20 46 4F 55 4E 44 2E 20 D4 48 45 |T WAS FOUND. .HE| 00000990: 4E 2C 20 49 46 20 54 48 45 00 C7 11 06 04 99 22 |N, IF THE......"| 000009A0: 20 57 4F 52 44 20 57 45 52 45 20 54 4F 20 42 45 | WORD WERE TO BE| 000009B0: 20 44 45 4C 45 54 45 44 2C 20 54 48 45 20 52 45 | DELETED, THE RE| 000009C0: 4D 41 49 4E 49 4E 47 00 F1 11 10 04 99 22 20 57 |MAINING......" W| 000009D0: 4F 52 44 53 20 57 4F 55 4C 44 20 45 41 43 48 20 |ORDS WOULD EACH | 000009E0: 42 45 20 53 48 49 46 54 45 44 20 55 50 20 4F 4E |BE SHIFTED UP ON| 000009F0: 45 00 1B 12 1A 04 99 22 20 45 4C 45 4D 45 4E 54 |E......" ELEMENT| 00000A00: 20 49 4E 20 54 48 45 20 41 52 52 41 59 2E 20 C6 | IN THE ARRAY. .| 00000A10: 4F 52 20 45 58 41 4D 50 4C 45 2C 00 22 12 24 04 |OR EXAMPLE,.".$.| 00000A20: 99 22 00 3A 12 2E 04 99 22 20 31 30 20 20 C6 CF |.".:...." 10 ..| 00000A30: D2 20 C9 3D 31 D4 CF CD C1 D8 00 5D 12 38 04 99 |. .=1......].8..| 00000A40: 22 20 32 30 20 20 C9 C6 20 C4 C1 D4 24 28 C9 29 |" 20 .. ...$(.)| 00000A50: 3D D7 D2 C4 24 20 D4 C8 C5 CE 20 34 30 00 6E 12 |=...$ .... 40.n.| 00000A60: 42 04 99 22 20 33 30 A0 20 CE C5 D8 D4 C9 00 99 |B.." 30. .......| 00000A70: 12 4C 04 99 22 20 34 30 20 20 C6 CF D2 CA 3D C9 |.L.." 40 ....=.| 00000A80: D4 CF CD C1 D8 2D 31 3A C4 C1 D4 24 28 CA 29 3D |.....-1:...$(.)=| 00000A90: C4 C1 D4 24 28 CA 2B 31 29 00 AA 12 56 04 99 22 |...$(.+1)...V.."| 00000AA0: 20 35 30 20 20 CE C5 D8 D4 CA 00 B1 12 60 04 99 | 50 ........`..| 00000AB0: 22 00 D6 12 6A 04 99 22 20 12 D3 D0 C1 C3 C5 92 |"...j.." .......| 00000AC0: 20 4E 45 58 54 20 20 12 5F 92 20 C7 4F 4C 44 20 | NEXT ._. .OLD | 00000AD0: C4 49 53 4B 22 3B 00 EA 12 74 04 A1 41 24 3A 8B |.ISK";...t..A$:.| 00000AE0: 41 24 B2 22 22 A7 31 31 34 30 00 FB 12 7E 04 8B |A$."".1140...~..| 00000AF0: 41 24 B2 22 5F 22 A7 32 37 31 30 00 0D 13 88 04 |A$."_".2710.....| 00000B00: 8B 41 24 B3 B1 22 20 22 A7 31 31 34 30 00 1E 13 |.A$.." ".1140...| 00000B10: 92 04 50 47 B2 50 47 AA 31 3A 89 38 38 30 00 45 |..PG.PG.1:.880.E| 00000B20: 13 9C 04 99 22 93 20 20 20 20 20 20 20 20 20 20 |....". | 00000B30: 20 CC C9 CE CB C5 C4 A0 CC C9 D3 D4 D3 20 20 20 | ............ | 00000B40: 20 20 20 20 22 00 63 13 A6 04 99 22 20 20 20 20 | ".c...." | 00000B50: 20 20 20 20 20 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 | .........| 00000B60: A3 A3 A3 00 8F 13 B0 04 99 22 20 C9 4E 20 54 48 |........." .N TH| 00000B70: 49 53 20 45 58 41 4D 50 4C 45 2C 20 CD C1 D8 20 |IS EXAMPLE, ... | 00000B80: 49 53 20 54 48 45 20 49 4E 44 45 58 20 4F 46 00 |IS THE INDEX OF.| 00000B90: BA 13 BA 04 99 22 20 54 48 45 20 4C 41 53 54 20 |....." THE LAST | 00000BA0: 57 4F 52 44 20 4F 4E 20 54 48 45 20 4C 49 53 54 |WORD ON THE LIST| 00000BB0: 20 28 57 48 49 43 48 20 49 53 00 E4 13 C4 04 99 | (WHICH IS......| 00000BC0: 22 20 49 4E 20 54 48 45 20 41 52 52 41 59 20 C4 |" IN THE ARRAY .| 00000BD0: C1 D4 24 29 20 41 4E 44 20 D7 D2 C4 24 20 49 53 |..$) AND ...$ IS| 00000BE0: 20 54 48 45 00 10 14 CE 04 99 22 20 57 4F 52 44 | THE......" WORD| 00000BF0: 20 54 4F 20 42 45 20 44 45 4C 45 54 45 44 2E 20 | TO BE DELETED. | 00000C00: C9 4E 53 45 52 54 49 4E 47 20 41 20 57 4F 52 44 |.NSERTING A WORD| 00000C10: 00 3C 14 D8 04 99 22 20 49 4E 20 54 48 45 20 4C |.<...." IN THE L| 00000C20: 49 53 54 20 57 49 4C 4C 20 42 45 20 4C 45 46 54 |IST WILL BE LEFT| 00000C30: 20 41 53 20 41 4E 20 45 58 45 52 2D 00 68 14 E2 | AS AN EXER-.h..| 00000C40: 04 99 22 20 43 49 53 45 20 46 4F 52 20 59 4F 55 |.." CISE FOR YOU| 00000C50: 21 20 D4 48 49 53 20 4D 45 54 48 4F 44 20 4F 46 |! .HIS METHOD OF| 00000C60: 20 53 54 4F 52 49 4E 47 00 94 14 EC 04 99 22 20 | STORING......" | 00000C70: 54 48 45 20 4C 49 53 54 20 49 53 20 46 49 4E 45 |THE LIST IS FINE| 00000C80: 20 49 46 20 54 48 45 52 45 20 41 52 45 20 4F 4E | IF THERE ARE ON| 00000C90: 4C 59 20 41 00 C1 14 F6 04 99 22 20 46 45 57 20 |LY A......" FEW | 00000CA0: 57 4F 52 44 53 20 49 4E 20 49 54 2C 20 42 55 54 |WORDS IN IT, BUT| 00000CB0: 20 46 4F 52 20 4C 41 52 47 45 52 20 4C 49 53 54 | FOR LARGER LIST| 00000CC0: 53 00 ED 14 00 05 99 22 20 49 4E 53 45 52 54 49 |S......" INSERTI| 00000CD0: 4F 4E 2F 44 45 4C 45 54 49 4F 4E 20 57 49 4C 4C |ON/DELETION WILL| 00000CE0: 20 52 45 51 55 49 52 45 20 43 4F 4E 2D 00 19 15 | REQUIRE CON-...| 00000CF0: 0A 05 99 22 20 53 49 44 45 52 41 42 4C 45 20 43 |..." SIDERABLE C| 00000D00: 4F 4D 50 55 54 41 54 49 4F 4E 41 4C 20 45 46 46 |OMPUTATIONAL EFF| 00000D10: 4F 52 54 20 28 49 2E 45 2E 00 44 15 14 05 99 22 |ORT (I.E..D...."| 00000D20: 20 48 41 56 49 4E 47 20 54 4F 20 4D 4F 56 45 20 | HAVING TO MOVE | 00000D30: 4D 41 4E 59 20 45 4C 45 4D 45 4E 54 53 20 4F 46 |MANY ELEMENTS OF| 00000D40: 20 54 48 45 00 72 15 1E 05 99 22 20 41 52 52 41 | THE.r...." ARRA| 00000D50: 59 20 41 52 4F 55 4E 44 29 2E 20 C1 20 42 45 54 |Y AROUND). . BET| 00000D60: 54 45 52 20 57 41 59 20 4F 46 20 44 45 41 4C 49 |TER WAY OF DEALI| 00000D70: 4E 47 00 9C 15 28 05 99 22 20 57 49 54 48 20 54 |NG...(.." WITH T| 00000D80: 48 45 20 50 52 4F 42 4C 45 4D 20 49 53 20 54 4F |HE PROBLEM IS TO| 00000D90: 20 55 53 45 20 57 48 41 54 20 49 53 00 C7 15 32 | USE WHAT IS...2| 00000DA0: 05 99 22 20 4B 4E 4F 57 4E 20 41 53 20 41 20 12 |.." KNOWN AS A .| 00000DB0: 4C 49 4E 4B 45 44 20 4C 49 53 54 92 2E 20 D4 48 |LINKED LIST.. .H| 00000DC0: 45 20 42 41 53 49 43 00 F4 15 3C 05 99 22 20 49 |E BASIC...<.." I| 00000DD0: 44 45 41 20 49 53 20 54 48 41 54 20 45 41 43 48 |DEA IS THAT EACH| 00000DE0: 20 57 4F 52 44 20 48 41 53 20 41 53 53 4F 43 49 | WORD HAS ASSOCI| 00000DF0: 41 54 45 44 00 20 16 46 05 99 22 20 57 49 54 48 |ATED. .F.." WITH| 00000E00: 20 49 54 20 41 20 4C 49 4E 4B 20 57 48 49 43 48 | IT A LINK WHICH| 00000E10: 20 27 50 4F 49 4E 54 53 27 20 54 4F 20 54 48 45 | 'POINTS' TO THE| 00000E20: 00 4D 16 50 05 99 22 20 4E 45 58 54 20 57 4F 52 |.M.P.." NEXT WOR| 00000E30: 44 20 49 4E 20 54 48 45 20 4C 49 53 54 2E 20 D4 |D IN THE LIST. .| 00000E40: 48 45 20 57 4F 52 44 20 27 44 4F 47 27 00 53 16 |HE WORD 'DOG'.S.| 00000E50: 5A 05 99 00 81 16 64 05 99 22 20 2D 2D 3E 12 43 |Z.....d.." -->.C| 00000E60: 41 54 B6 20 4C 49 4E 4B 92 2D 2D 2D 3E 12 44 4F |AT. LINK.--->.DO| 00000E70: 47 B6 20 4C 49 4E 4B 92 2D 2D 2D 3E 20 2E 2E 2E |G. LINK.---> ...| 00000E80: 22 00 88 16 6E 05 99 22 00 B3 16 78 05 99 22 20 |"...n.."...x.." | 00000E90: 4E 45 45 44 20 4E 4F 54 20 42 45 20 54 48 45 20 |NEED NOT BE THE | 00000EA0: 4E 45 58 54 20 45 4C 45 4D 45 4E 54 20 49 4E 20 |NEXT ELEMENT IN | 00000EB0: 54 48 45 00 DF 16 82 05 99 22 20 41 52 52 41 59 |THE......" ARRAY| 00000EC0: 20 41 46 54 45 52 20 27 43 41 54 27 20 41 53 20 | AFTER 'CAT' AS | 00000ED0: 49 4E 20 54 48 45 20 50 52 45 56 49 4F 55 53 00 |IN THE PREVIOUS.| 00000EE0: E9 16 8C 05 89 32 36 36 30 00 10 17 96 05 99 22 |.....2660......"| 00000EF0: 93 20 20 20 20 20 20 20 20 20 20 20 CC C9 CE CB |. ....| 00000F00: C5 C4 A0 CC C9 D3 D4 D3 20 20 20 20 20 20 20 22 |........ "| 00000F10: 00 2E 17 A0 05 99 22 20 20 20 20 20 20 20 20 20 |......" | 00000F20: 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 56 | .............V| 00000F30: 17 AA 05 99 22 20 4D 45 54 48 4F 44 2E 20 D4 48 |...." METHOD. .H| 00000F40: 45 20 4C 49 4E 4B 20 41 53 53 4F 43 49 41 54 45 |E LINK ASSOCIATE| 00000F50: 44 20 57 49 54 48 00 83 17 B4 05 99 22 20 27 43 |D WITH......" 'C| 00000F60: 41 54 27 20 54 45 4C 4C 53 20 55 53 20 20 57 48 |AT' TELLS US WH| 00000F70: 45 52 45 20 49 4E 20 54 48 45 20 41 52 52 41 59 |ERE IN THE ARRAY| 00000F80: 20 57 45 00 B0 17 BE 05 99 22 20 43 41 4E 20 46 | WE......" CAN F| 00000F90: 49 4E 44 20 27 44 4F 47 27 2E 20 C5 41 43 48 20 |IND 'DOG'. .ACH | 00000FA0: 57 4F 52 44 20 4F 46 20 54 48 45 20 4C 49 53 54 |WORD OF THE LIST| 00000FB0: 00 DE 17 C8 05 99 22 20 4E 45 45 44 53 20 41 20 |......" NEEDS A | 00000FC0: 4C 49 4E 4B 2C 20 53 4F 20 57 45 20 4D 55 53 54 |LINK, SO WE MUST| 00000FD0: 20 55 53 45 20 41 20 4E 55 4D 45 52 49 43 00 0B | USE A NUMERIC..| 00000FE0: 18 D2 05 99 22 20 41 52 52 41 59 2C 20 CC C9 CE |...." ARRAY, ...| 00000FF0: CB 2C 20 4F 46 20 54 48 45 20 53 41 4D 45 20 44 |., OF THE SAME D| 00001000: 49 4D 45 4E 53 49 4F 4E 20 41 53 00 33 18 DC 05 |IMENSION AS.3...| 00001010: 99 22 20 54 48 45 20 41 52 52 41 59 20 C4 C1 D4 |." THE ARRAY ...| 00001020: 24 20 2E 20 CC 45 54 27 53 20 4C 4F 4F 4B 20 41 |$ . .ET'S LOOK A| 00001030: 54 20 41 00 5D 18 E6 05 99 22 20 53 49 4D 50 4C |T A.]...." SIMPL| 00001040: 45 20 45 58 41 4D 50 4C 45 2E 20 D3 55 50 50 4F |E EXAMPLE. .UPPO| 00001050: 53 45 20 4F 55 52 20 41 52 52 41 59 53 00 76 18 |SE OUR ARRAYS.v.| 00001060: F0 05 99 22 20 4C 4F 4F 4B 45 44 20 4C 49 4B 45 |..." LOOKED LIKE| 00001070: 20 54 48 49 53 2C 00 7C 18 FA 05 99 00 A0 18 04 | THIS,.|........| 00001080: 06 99 22 20 20 C9 20 20 20 20 20 20 C4 C1 D4 24 |.." . ...$| 00001090: 28 C9 29 20 20 20 20 20 20 CC C9 CE CB 28 C9 29 |(.) ....(.)| 000010A0: 00 C0 18 0E 06 99 22 20 20 30 20 20 20 20 20 20 |......" 0 | 000010B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 | 3| 000010C0: 00 E0 18 18 06 99 22 20 20 31 20 20 20 20 20 20 |......" 1 | 000010D0: 20 4D 4F 55 53 45 20 20 20 20 20 20 20 20 20 30 | MOUSE 0| 000010E0: 00 00 19 22 06 99 22 20 20 32 20 20 20 20 20 20 |...".." 2 | 000010F0: 20 44 4F 47 20 20 20 20 20 20 20 20 20 20 20 31 | DOG 1| 00001100: 00 20 19 2C 06 99 22 20 20 33 20 20 20 20 20 20 |. .,.." 3 | 00001110: 20 43 41 54 20 20 20 20 20 20 20 20 20 20 20 32 | CAT 2| 00001120: 00 40 19 36 06 99 22 20 20 34 20 20 20 20 20 20 |.@.6.." 4 | 00001130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 | 0| 00001140: 00 6E 19 40 06 99 22 20 CC C9 CE CB 28 30 29 20 |.n.@.." ....(0) | 00001150: 49 53 20 43 41 4C 4C 45 44 20 54 48 45 20 48 45 |IS CALLED THE HE| 00001160: 41 44 20 4F 46 20 54 48 45 20 4C 49 53 54 00 97 |AD OF THE LIST..| 00001170: 19 4A 06 99 22 20 57 48 49 4C 45 20 C4 C1 D4 24 |.J.." WHILE ...$| 00001180: 28 30 29 20 49 53 20 4E 4F 54 20 55 53 45 44 20 |(0) IS NOT USED | 00001190: 54 4F 20 48 4F 4C 44 00 C2 19 54 06 99 22 20 41 |TO HOLD...T.." A| 000011A0: 4E 59 54 48 49 4E 47 2E 20 C9 4E 20 54 48 49 53 |NYTHING. .N THIS| 000011B0: 20 43 41 53 45 20 CC C9 CE CB 28 30 29 3D 33 20 | CASE ....(0)=3 | 000011C0: 53 4F 00 EF 19 5E 06 99 22 20 57 45 20 46 49 4E |SO...^.." WE FIN| 000011D0: 44 20 54 48 45 20 46 49 52 53 54 20 57 4F 52 44 |D THE FIRST WORD| 000011E0: 20 49 4E 20 54 48 45 20 4C 49 53 54 20 49 53 00 | IN THE LIST IS.| 000011F0: 1D 1A 68 06 99 22 20 C4 C1 D4 24 28 33 29 2E 20 |..h.." ...$(3). | 00001200: CC C9 CE CB 28 33 29 3D 32 20 53 4F 20 54 48 45 |....(3)=2 SO THE| 00001210: 20 4E 45 58 54 20 57 4F 52 44 20 49 4E 00 4A 1A | NEXT WORD IN.J.| 00001220: 72 06 99 22 20 54 48 45 20 4C 49 53 54 20 49 53 |r.." THE LIST IS| 00001230: 20 C4 C1 D4 24 28 32 29 2E 20 CC C9 CE CB 28 32 | ...$(2). ....(2| 00001240: 29 3D 31 20 41 4E 44 20 4F 46 00 75 1A 7C 06 99 |)=1 AND OF.u.|..| 00001250: 22 20 43 4F 55 52 53 45 20 54 48 45 20 4E 45 58 |" COURSE THE NEX| 00001260: 54 20 57 4F 52 44 20 49 53 20 C4 C1 D4 24 28 31 |T WORD IS ...$(1| 00001270: 29 2E 20 D7 45 00 7F 1A 86 06 89 32 36 36 30 00 |). .E......2660.| 00001280: A6 1A 90 06 99 22 93 20 20 20 20 20 20 20 20 20 |.....". | 00001290: 20 20 CC C9 CE CB C5 C4 A0 CC C9 D3 D4 D3 20 20 | ............ | 000012A0: 20 20 20 20 20 22 00 C4 1A 9A 06 99 22 20 20 20 | "......" | 000012B0: 20 20 20 20 20 20 20 20 A3 A3 A3 A3 A3 A3 A3 A3 | ........| 000012C0: A3 A3 A3 A3 00 F2 1A A4 06 99 22 20 4B 4E 4F 57 |.........." KNOW| 000012D0: 20 54 48 41 54 20 54 48 49 53 20 49 53 20 54 48 | THAT THIS IS TH| 000012E0: 45 20 4C 41 53 54 20 57 4F 52 44 20 4F 46 20 54 |E LAST WORD OF T| 000012F0: 48 45 00 1F 1B AE 06 99 22 20 4C 49 53 54 20 42 |HE......" LIST B| 00001300: 45 43 41 55 53 45 20 CC C9 CE CB 28 31 29 3D 30 |ECAUSE ....(1)=0| 00001310: 20 28 52 45 4D 45 4D 42 45 52 20 54 48 41 54 00 | (REMEMBER THAT.| 00001320: 49 1B B8 06 99 22 20 C4 C1 D4 24 28 30 29 20 57 |I...." ...$(0) W| 00001330: 4F 4E 27 54 20 42 45 20 55 53 45 44 29 2E 20 D7 |ON'T BE USED). .| 00001340: 48 41 54 20 41 42 4F 55 54 00 77 1B C2 06 99 22 |HAT ABOUT.w...."| 00001350: 20 C4 C1 D4 24 28 34 29 20 41 4E 44 20 CC C9 CE | ...$(4) AND ...| 00001360: CB 28 34 29 3F 20 D4 48 49 53 20 45 4C 45 4D 45 |.(4)? .HIS ELEME| 00001370: 4E 54 20 52 45 50 2D 00 A3 1B CC 06 99 22 20 52 |NT REP-......" R| 00001380: 45 53 45 4E 54 53 20 57 48 41 54 20 41 56 41 49 |ESENTS WHAT AVAI| 00001390: 4C 41 42 4C 45 20 53 50 41 43 45 20 57 45 20 48 |LABLE SPACE WE H| 000013A0: 41 56 45 00 D0 1B D6 06 99 22 20 4C 45 46 54 2E |AVE......" LEFT.| 000013B0: 20 CC C9 CE CB 28 34 29 20 50 4F 49 4E 54 53 20 | ....(4) POINTS | 000013C0: 54 4F 20 54 48 45 20 4E 45 58 54 20 46 52 45 45 |TO THE NEXT FREE| 000013D0: 00 FD 1B E0 06 99 22 20 53 50 41 43 45 2C 20 42 |......" SPACE, B| 000013E0: 55 54 20 4F 46 20 43 4F 55 52 53 45 20 53 49 4E |UT OF COURSE SIN| 000013F0: 43 45 20 CC C9 CE CB 28 34 29 3D 30 2C 00 2A 1C |CE ....(4)=0,.*.| 00001400: EA 06 99 22 20 54 48 45 52 45 20 49 53 20 4F 4E |..." THERE IS ON| 00001410: 4C 59 20 C4 C1 D4 24 28 34 29 20 46 52 45 45 2E |LY ...$(4) FREE.| 00001420: 20 CC 45 54 27 53 20 53 45 54 00 56 1C F4 06 99 | .ET'S SET.V....| 00001430: 22 20 C1 D6 C1 C9 CC 3D 34 20 54 4F 20 50 4F 49 |" .....=4 TO POI| 00001440: 4E 54 20 54 4F 20 54 48 45 20 53 54 41 52 54 20 |NT TO THE START | 00001450: 4F 46 20 54 48 45 00 68 1C FE 06 99 22 20 46 52 |OF THE.h...." FR| 00001460: 45 45 20 4C 49 53 54 2E 00 79 1C 08 07 99 22 20 |EE LIST..y...." | 00001470: D3 C5 C1 D2 C3 C8 C9 CE C7 00 A5 1C 12 07 99 22 |..............."| 00001480: 20 D4 4F 20 4C 4F 43 41 54 45 20 41 20 57 4F 52 | .O LOCATE A WOR| 00001490: 44 20 49 4E 20 41 20 4C 49 4E 4B 45 44 20 4C 49 |D IN A LINKED LI| 000014A0: 53 54 20 49 53 00 D0 1C 1C 07 99 22 20 41 20 53 |ST IS......" A S| 000014B0: 54 52 41 49 47 48 54 46 4F 52 57 41 52 44 20 54 |TRAIGHTFORWARD T| 000014C0: 41 53 4B 2E 20 C8 45 52 45 27 53 20 57 48 41 54 |ASK. .ERE'S WHAT| 000014D0: 00 EC 1C 26 07 99 22 20 54 48 45 20 43 4F 44 45 |...&.." THE CODE| 000014E0: 20 4C 4F 4F 4B 53 20 4C 49 4B 45 2C 00 F3 1C 30 | LOOKS LIKE,...0| 000014F0: 07 99 22 00 0B 1D 3A 07 99 22 20 31 30 20 20 20 |.."...:.." 10 | 00001500: D0 D4 D2 3D CC C9 CE CB 28 30 29 00 2A 1D 44 07 |...=....(0).*.D.| 00001510: 99 22 20 32 30 20 20 20 C9 C6 20 D0 D4 D2 20 3D |." 20 .. ... =| 00001520: 20 30 20 D4 C8 C5 CE 20 37 30 00 50 1D 4E 07 99 | 0 .... 70.P.N..| 00001530: 22 20 33 30 20 20 20 C9 C6 20 C4 C1 D4 24 28 D0 |" 30 .. ...$(.| 00001540: D4 D2 29 3D D7 D2 C4 24 A0 D4 C8 C5 CE 20 36 30 |..)=...$..... 60| 00001550: 00 6A 1D 58 07 99 22 20 34 30 20 20 20 D0 D4 D2 |.j.X.." 40 ...| 00001560: 3D CC C9 CE CB 28 D0 D4 D2 29 00 7D 1D 62 07 99 |=....(...).}.b..| 00001570: 22 20 35 30 20 20 20 C7 CF D4 CF 32 30 00 9E 1D |" 50 ....20...| 00001580: 6C 07 99 22 20 36 30 20 20 20 D2 C5 CD 20 53 54 |l.." 60 ... ST| 00001590: 52 49 4E 47 20 46 4F 55 4E 44 3A C5 CE C4 00 BF |RING FOUND:.....| 000015A0: 1D 76 07 99 22 20 37 30 20 20 20 D2 C5 CD 20 53 |.v.." 70 ... S| 000015B0: 54 52 49 4E 47 20 4E 4F 54 20 46 4F 55 4E 44 00 |TRING NOT FOUND.| 000015C0: C9 1D 80 07 89 32 36 36 30 00 F0 1D 8A 07 99 22 |.....2660......"| 000015D0: 93 20 20 20 20 20 20 20 20 20 20 20 CC C9 CE CB |. ....| 000015E0: C5 C4 A0 CC C9 D3 D4 D3 20 20 20 20 20 20 20 22 |........ "| 000015F0: 00 0E 1E 94 07 99 22 20 20 20 20 20 20 20 20 20 |......" | 00001600: 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 28 | .............(| 00001610: 1E 9E 07 99 22 20 C9 CE D3 C5 D2 D4 C9 CF CE 2F |...." ........./| 00001620: C4 C5 CC C5 D4 C9 CF CE 00 42 1E A8 07 99 22 20 |.........B...." | 00001630: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00001640: A3 A3 00 70 1E B2 07 99 22 20 C9 4E 53 45 52 54 |...p...." .NSERT| 00001650: 49 4F 4E 20 52 45 51 55 49 52 45 53 20 41 20 4C |ION REQUIRES A L| 00001660: 49 54 54 4C 45 20 4D 4F 52 45 20 57 4F 52 4B 2E |ITTLE MORE WORK.| 00001670: 00 99 1E BC 07 99 22 20 D3 55 50 50 4F 53 45 20 |......" .UPPOSE | 00001680: 4F 55 52 20 4C 49 53 54 20 4C 4F 4F 4B 53 20 4C |OUR LIST LOOKS L| 00001690: 49 4B 45 20 54 48 49 53 2C 00 9F 1E C6 07 99 00 |IKE THIS,.......| 000016A0: C5 1E D0 07 99 22 20 20 20 12 20 A5 32 92 2D 2D |....." . .2.--| 000016B0: 3E 12 43 41 54 A5 35 92 2D 2D 3E 12 4D 4F 55 53 |>.CAT.5.-->.MOUS| 000016C0: 45 A5 30 92 22 00 CB 1E DA 07 99 00 EF 1E E4 07 |E.0."...........| 000016D0: 99 22 20 20 41 4E 44 20 20 20 C1 D6 C1 C9 CC 3D |." AND .....=| 000016E0: 31 3A CC C9 CE CB 28 C1 D6 C1 C9 CC 29 3D 33 00 |1:....(.....)=3.| 000016F0: F6 1E EE 07 99 22 00 23 1F F8 07 99 22 20 41 4E |.....".#...." AN| 00001700: 44 20 57 45 20 57 41 4E 54 20 54 4F 20 49 4E 53 |D WE WANT TO INS| 00001710: 45 52 54 20 54 48 45 20 57 4F 52 44 20 27 44 4F |ERT THE WORD 'DO| 00001720: 47 27 2E 00 3D 1F 02 08 99 22 20 D7 45 20 57 4F |G'..=...." .E WO| 00001730: 55 4C 44 20 4E 4F 57 20 48 41 56 45 2C 00 43 1F |ULD NOW HAVE,.C.| 00001740: 0C 08 99 00 73 1F 16 08 99 22 20 20 20 12 20 A5 |....s...." . .| 00001750: 32 92 2D 2D 3E 12 43 41 54 A5 31 92 2D 2D 3E 12 |2.-->.CAT.1.-->.| 00001760: 44 4F 47 A5 35 92 2D 2D 3E 12 4D 4F 55 53 45 A5 |DOG.5.-->.MOUSE.| 00001770: 30 92 22 00 79 1F 20 08 99 00 8E 1F 2A 08 99 22 |0.".y. .....*.."| 00001780: 20 20 20 41 4E 44 20 C1 D6 C1 C9 CC 3D 33 00 94 | AND .....=3..| 00001790: 1F 34 08 99 00 C0 1F 3E 08 99 22 20 C1 53 20 59 |.4.....>.." .S Y| 000017A0: 4F 55 20 43 41 4E 20 53 45 45 2C 20 41 4C 4C 20 |OU CAN SEE, ALL | 000017B0: 57 45 20 48 41 44 20 54 4F 20 44 4F 20 57 41 53 |WE HAD TO DO WAS| 000017C0: 00 EE 1F 48 08 99 22 20 4D 41 4B 45 20 54 48 45 |...H.." MAKE THE| 000017D0: 20 27 43 41 54 27 20 4C 49 4E 4B 20 45 51 55 41 | 'CAT' LINK EQUA| 000017E0: 4C 20 54 4F 20 C1 D6 C1 C9 CC 20 41 4E 44 00 1A |L TO ..... AND..| 000017F0: 20 52 08 99 22 20 4D 41 4B 45 20 54 48 45 20 4C | R.." MAKE THE L| 00001800: 49 4E 4B 20 46 4F 52 20 27 44 4F 47 27 20 45 51 |INK FOR 'DOG' EQ| 00001810: 55 41 4C 20 54 4F 20 54 48 45 00 31 20 5C 08 99 |UAL TO THE.1 \..| 00001820: 22 20 4F 4C 44 20 27 43 41 54 27 20 4C 49 4E 4B |" OLD 'CAT' LINK| 00001830: 2E 00 39 20 66 08 99 3A 99 00 43 20 70 08 89 32 |..9 f..:..C p..2| 00001840: 36 36 30 00 6A 20 7A 08 99 22 93 20 20 20 20 20 |660.j z..". | 00001850: 20 20 20 20 20 20 CC C9 CE CB C5 C4 A0 CC C9 D3 | ..........| 00001860: D4 D3 20 20 20 20 20 20 20 22 00 88 20 84 08 99 |.. ".. ...| 00001870: 22 20 20 20 20 20 20 20 20 20 20 20 A3 A3 A3 A3 |" ....| 00001880: A3 A3 A3 A3 A3 A3 A3 A3 00 B6 20 8E 08 99 22 20 |.......... ..." | 00001890: CE 4F 57 20 4C 45 54 27 53 20 44 45 4C 45 54 45 |.OW LET'S DELETE| 000018A0: 20 27 43 41 54 27 20 46 52 4F 4D 20 4F 55 52 20 | 'CAT' FROM OUR | 000018B0: 4C 49 53 54 2C 22 00 BC 20 98 08 99 00 EC 20 A2 |LIST,".. ..... .| 000018C0: 08 99 22 20 20 20 12 20 A5 32 92 2D 2D 3E 12 43 |.." . .2.-->.C| 000018D0: 41 54 A5 31 92 2D 2D 3E 12 44 4F 47 A5 35 92 2D |AT.1.-->.DOG.5.-| 000018E0: 2D 3E 12 4D 4F 55 53 45 A5 30 92 22 00 F2 20 AC |->.MOUSE.0.".. .| 000018F0: 08 99 00 03 21 B6 08 99 22 20 20 20 C1 D6 C1 C9 |....!..." ....| 00001900: CC 3D 33 00 09 21 C0 08 99 00 28 21 CA 08 99 22 |.=3..!....(!..."| 00001910: 20 C1 46 54 45 52 20 44 45 4C 45 54 49 4E 47 20 | .FTER DELETING | 00001920: 57 45 20 48 41 56 45 2C 00 2E 21 D4 08 99 00 54 |WE HAVE,..!....T| 00001930: 21 DE 08 99 22 20 20 20 12 20 A5 31 92 2D 2D 3E |!..." . .1.-->| 00001940: 12 44 4F 47 A5 35 92 2D 2D 3E 12 4D 4F 55 53 45 |.DOG.5.-->.MOUSE| 00001950: A5 30 92 22 00 5A 21 E8 08 99 00 7C 21 F2 08 99 |.0.".Z!....|!...| 00001960: 22 20 20 41 4E 44 20 C1 D6 C1 C9 CC 3D 32 3A CC |" AND .....=2:.| 00001970: C9 CE CB 28 C1 D6 C1 C9 CC 29 3D 33 00 82 21 FC |...(.....)=3..!.| 00001980: 08 99 00 AD 21 06 09 99 22 20 D9 4F 55 20 43 41 |....!..." .OU CA| 00001990: 4E 20 46 49 4E 44 20 54 48 45 20 43 4F 44 45 20 |N FIND THE CODE | 000019A0: 46 4F 52 20 49 4E 53 45 52 54 49 4E 47 00 D7 21 |FOR INSERTING..!| 000019B0: 10 09 99 22 20 41 4E 44 20 44 45 4C 45 54 49 4E |..." AND DELETIN| 000019C0: 47 20 46 52 4F 4D 20 41 20 4C 49 4E 4B 45 44 20 |G FROM A LINKED | 000019D0: 4C 49 53 54 20 49 4E 00 07 22 1A 09 99 22 20 54 |LIST IN.."..." T| 000019E0: 48 45 20 46 49 4C 45 20 27 CC CC C9 D3 D4 A0 D4 |HE FILE '.......| 000019F0: C5 D8 D4 27 20 4F 4E 20 54 48 45 20 C7 4F 4C 44 |...' ON THE .OLD| 00001A00: 20 C4 49 53 4B 2E 22 00 32 22 24 09 99 22 20 20 | .ISK.".2"$.." | 00001A10: 20 C5 56 45 4E 20 54 48 45 20 C3 4F 4D 4D 4F 44 | .VEN THE .OMMOD| 00001A20: 4F 52 45 20 36 34 20 55 53 45 53 20 4C 49 4E 4B |ORE 64 USES LINK| 00001A30: 45 44 00 5C 22 2E 09 99 22 20 4C 49 53 54 53 2E |ED.\"..." LISTS.| 00001A40: 20 20 D7 48 45 4E 20 59 4F 55 20 53 41 56 45 20 | .HEN YOU SAVE | 00001A50: 41 20 50 52 4F 47 52 41 4D 20 4F 4E 00 84 22 38 |A PROGRAM ON.."8| 00001A60: 09 99 22 20 44 49 53 4B 2C 20 49 54 20 49 53 20 |.." DISK, IT IS | 00001A70: 53 50 52 45 41 44 20 4F 55 54 20 4F 56 45 52 20 |SPREAD OUT OVER | 00001A80: 4D 41 4E 59 00 AF 22 42 09 99 22 20 54 52 41 43 |MANY.."B.." TRAC| 00001A90: 4B 53 20 41 4E 44 20 53 45 43 54 4F 52 53 20 28 |KS AND SECTORS (| 00001AA0: 41 20 53 45 43 54 4F 52 20 49 53 20 32 35 36 00 |A SECTOR IS 256.| 00001AB0: DA 22 4C 09 99 22 20 42 59 54 45 53 20 4F 46 20 |."L.." BYTES OF | 00001AC0: 44 49 53 4B 20 4D 45 4D 4F 52 59 20 41 4E 44 20 |DISK MEMORY AND | 00001AD0: 45 41 43 48 20 54 52 41 43 4B 00 E0 22 56 09 99 |EACH TRACK.."V..| 00001AE0: 00 EA 22 60 09 89 32 36 36 30 00 11 23 6A 09 99 |.."`..2660..#j..| 00001AF0: 22 93 20 20 20 20 20 20 20 20 20 20 20 CC C9 CE |". ...| 00001B00: CB C5 C4 A0 CC C9 D3 D4 D3 20 20 20 20 20 20 20 |......... | 00001B10: 22 00 2F 23 74 09 99 22 20 20 20 20 20 20 20 20 |"./#t.." | 00001B20: 20 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 | .............| 00001B30: 5D 23 7E 09 99 22 20 49 53 20 4D 41 44 45 20 55 |]#~.." IS MADE U| 00001B40: 50 20 4F 46 20 53 45 56 45 52 41 4C 20 53 45 43 |P OF SEVERAL SEC| 00001B50: 54 4F 52 53 29 2E 20 C1 54 20 54 48 45 00 8B 23 |TORS). .T THE..#| 00001B60: 88 09 99 22 20 42 45 47 49 4E 4E 49 4E 47 20 4F |..." BEGINNING O| 00001B70: 46 20 45 41 43 48 20 53 45 43 54 4F 52 20 55 53 |F EACH SECTOR US| 00001B80: 45 44 20 54 4F 20 53 54 4F 52 45 00 B6 23 92 09 |ED TO STORE..#..| 00001B90: 99 22 20 54 48 45 20 50 52 4F 47 52 41 4D 20 49 |." THE PROGRAM I| 00001BA0: 53 20 41 20 4C 49 4E 4B 20 54 4F 20 54 48 45 20 |S A LINK TO THE | 00001BB0: 53 45 43 54 4F 52 00 E3 23 9C 09 99 22 20 57 48 |SECTOR..#..." WH| 00001BC0: 45 52 45 20 54 48 45 20 4E 45 58 54 20 50 41 52 |ERE THE NEXT PAR| 00001BD0: 54 20 4F 46 20 54 48 45 20 50 52 4F 47 52 41 4D |T OF THE PROGRAM| 00001BE0: 20 49 53 00 F2 23 A6 09 99 22 20 53 54 4F 52 45 | IS..#..." STORE| 00001BF0: 44 2E 00 1E 24 B0 09 99 22 20 20 D3 4F 20 46 41 |D...$..." .O FA| 00001C00: 52 20 57 45 27 56 45 20 4F 4E 4C 59 20 54 41 4C |R WE'VE ONLY TAL| 00001C10: 4B 45 44 20 41 42 4F 55 54 20 57 48 41 54 00 4C |KED ABOUT WHAT.L| 00001C20: 24 BA 09 99 22 20 41 52 45 20 43 41 4C 4C 45 44 |$..." ARE CALLED| 00001C30: 20 53 49 4E 47 4C 59 20 4C 49 4E 4B 45 44 20 4C | SINGLY LINKED L| 00001C40: 49 53 54 53 2E 20 D7 45 20 43 41 4E 00 79 24 C4 |ISTS. .E CAN.y$.| 00001C50: 09 99 22 20 47 45 54 20 4D 4F 52 45 20 53 4F 50 |.." GET MORE SOP| 00001C60: 48 49 53 54 49 43 41 54 45 44 20 42 59 20 55 53 |HISTICATED BY US| 00001C70: 49 4E 47 20 4D 55 4C 54 2D 00 A4 24 CE 09 99 22 |ING MULT-..$..."| 00001C80: 20 49 50 4C 59 20 4C 49 4E 4B 45 44 20 4C 49 53 | IPLY LINKED LIS| 00001C90: 54 53 2C 20 57 48 45 52 45 20 45 41 43 48 20 45 |TS, WHERE EACH E| 00001CA0: 4E 54 52 59 00 D0 24 D8 09 99 22 20 4D 49 47 48 |NTRY..$..." MIGH| 00001CB0: 54 20 48 41 56 45 20 53 45 56 45 52 41 4C 20 4C |T HAVE SEVERAL L| 00001CC0: 49 4E 4B 53 2E 20 C1 4E 20 45 58 41 4D 50 4C 45 |INKS. .N EXAMPLE| 00001CD0: 00 FB 24 E2 09 99 22 20 57 4F 55 4C 44 20 42 45 |..$..." WOULD BE| 00001CE0: 20 41 20 4C 49 53 54 20 4F 46 20 4C 49 42 52 41 | A LIST OF LIBRA| 00001CF0: 52 59 20 55 53 45 52 53 20 49 4E 00 24 25 EC 09 |RY USERS IN.$%..| 00001D00: 99 22 20 41 4C 50 48 41 42 45 54 49 43 41 4C 20 |." ALPHABETICAL | 00001D10: 4F 52 44 45 52 20 57 49 54 48 20 45 41 43 48 20 |ORDER WITH EACH | 00001D20: 4E 41 4D 45 00 52 25 F6 09 99 22 20 48 41 56 49 |NAME.R%..." HAVI| 00001D30: 4E 47 20 41 20 50 4F 49 4E 54 45 52 20 54 4F 20 |NG A POINTER TO | 00001D40: 41 20 53 55 42 4C 49 53 54 20 4F 46 20 42 4F 4F |A SUBLIST OF BOO| 00001D50: 4B 53 00 80 25 00 0A 99 22 20 54 48 41 54 20 48 |KS..%..." THAT H| 00001D60: 45 2F 53 48 45 20 48 41 53 20 54 41 4B 45 4E 20 |E/SHE HAS TAKEN | 00001D70: 4F 55 54 20 41 4C 4F 4E 47 20 57 49 54 48 20 41 |OUT ALONG WITH A| 00001D80: 00 A1 25 0A 0A 99 22 20 50 4F 49 4E 54 45 52 20 |..%..." POINTER | 00001D90: 54 4F 20 54 48 45 20 4E 45 58 54 20 4E 41 4D 45 |TO THE NEXT NAME| 00001DA0: 2E 00 A7 25 14 0A 99 00 D5 25 1E 0A 99 22 20 20 |...%.....%..." | 00001DB0: CF 4E 20 54 48 45 20 4E 45 58 54 20 50 41 47 45 |.N THE NEXT PAGE| 00001DC0: 20 49 53 20 41 4E 20 49 4D 50 4C 45 4D 45 4E 54 | IS AN IMPLEMENT| 00001DD0: 41 54 49 4F 4E 00 03 26 28 0A 99 22 20 4F 46 20 |ATION..&(.." OF | 00001DE0: 4F 55 52 20 46 49 52 53 54 20 45 58 41 4D 50 4C |OUR FIRST EXAMPL| 00001DF0: 45 20 2D 20 41 20 4C 49 53 54 20 4F 46 20 57 4F |E - A LIST OF WO| 00001E00: 52 44 53 00 30 26 32 0A 99 22 20 49 4E 20 41 4C |RDS.0&2.." IN AL| 00001E10: 50 48 41 42 45 54 49 43 41 4C 20 4F 52 44 45 52 |PHABETICAL ORDER| 00001E20: 2E 20 D9 4F 55 20 43 41 4E 20 49 4E 53 45 52 54 |. .OU CAN INSERT| 00001E30: 00 5C 26 3C 0A 99 22 20 4F 52 20 44 45 4C 45 54 |.\&<.." OR DELET| 00001E40: 45 20 41 4E 20 45 4E 54 52 59 20 41 4E 44 20 57 |E AN ENTRY AND W| 00001E50: 41 54 43 48 20 48 4F 57 20 54 48 45 00 80 26 46 |ATCH HOW THE..&F| 00001E60: 0A 99 22 20 CC C9 CE CB 20 41 4E 44 20 C4 C1 D4 |.." .... AND ...| 00001E70: 24 20 41 52 52 41 59 53 20 43 48 41 4E 47 45 2E |$ ARRAYS CHANGE.| 00001E80: 00 86 26 50 0A 99 00 90 26 5A 0A 89 32 36 36 30 |..&P....&Z..2660| 00001E90: 00 BF 26 64 0A 99 22 20 12 D3 D0 C1 C3 C5 92 20 |..&d.." ....... | 00001EA0: CE 45 58 54 20 20 12 5E 92 20 C2 41 43 4B 20 20 |.EXT .^. .ACK | 00001EB0: 12 5F 92 20 C7 4F 4C 44 20 C4 49 53 4B 22 3B 00 |._. .OLD .ISK";.| 00001EC0: D3 26 6E 0A A1 41 24 3A 8B 41 24 B2 22 22 A7 32 |.&n..A$:.A$."".2| 00001ED0: 36 37 30 00 EC 26 78 0A 8B 41 24 B2 22 20 22 A7 |670..&x..A$." ".| 00001EE0: 50 47 B2 50 47 AA 31 3A 89 38 38 30 00 05 27 82 |PG.PG.1:.880..'.| 00001EF0: 0A 8B 41 24 B2 22 5E 22 A7 50 47 B2 50 47 AB 31 |..A$."^".PG.PG.1| 00001F00: 3A 89 38 38 30 00 16 27 8C 0A 8B 41 24 B2 22 5F |:.880..'...A$."_| 00001F10: 22 A7 32 37 31 30 00 26 27 96 0A 99 22 93 22 3A |".2710.&'...".":| 00001F20: 9E 34 39 31 35 32 00 56 27 A0 0A 99 22 20 20 12 |.49152.V'..." .| 00001F30: 57 4F 52 44 31 B6 20 4C 49 4E 4B 92 2D 2D 2D 3E |WORD1. LINK.--->| 00001F40: 12 57 4F 52 44 32 B6 20 4C 49 4E 4B 92 2D 2D 2D |.WORD2. LINK.---| 00001F50: 3E 20 2E 2E 2E 22 00 00 00 |> ..."... |
....... (C)1985 GOLD DISK INC.#.....4...
. LINK LISTS.:.(...[.2.. PROGRAM STARTS
AT LINE 440.A.<.....F..".":.53272,23:.".
":.53281,1:.53280,2...P..870:. DISPLAY T
EXT...Z..".".H.D.. INITIALIZE LINK ARRAY
...N..I.0.9:LINK(I).I.1:DAT$(I)." ":....
X.LINK(0).0:LINK(9).0.......).... SET PO
INTER TO START OF.G.... FRE
E SPACE.S. .AVAIL.1.M.... 730:. UPDATE S
CREEN......"ENTER DATA: ";.....I.1:S$.""
...H..A$:.A$."".200...R..A$."^".PG.PG.1:
.880.M....A$."_".2710......A$.G(13).360.
.....A$..G(20).310...... DELETE A CHARAC
TER......I.1.200.3...S$.H(S$,C(S$).1):I.
I.1.?....". .";.L."..I.0.190.U.,..200.O.
6.:.(A$."A".A$."Z").200.~.@.:.I.11.200..
.J.. ADD A CHARACTER...T.S$.S$.A$:.A$;..
.^.I.I.1:.200.F.H..C(S$).0.170...R.." (I
)NS/(D)EL? ";...|..A$:.A$."".380......A$
."^".PG.PG.1:.880......A$."_".2710.3....
A$.."I".A$.."D".380.<....A$;.L....A$."D"
.630.R.....X.B.. INSERT A STRING INTO TH
E LINKED...L..
LIST...V.. AVAIL.0 . 170:. NO ROOM.....N
LNK.LINK(0):. GET HEAD OF LIST.....LLNK.
0...... NLNK.0.550......S$.DAT$(NLNK).55
0.(....S$.DAT$(NLNK).170.F...LLNK.NLNK:N
LNK.LINK(NLNK).O....500.P.&.TEMP.AVAIL:A
VAIL.LINK(AVAIL)...0.DAT$(TEMP).S$...:.L
INK(TEMP).NLINK...D.LINK(LLNK).TEMP...N.
.170...X...O.B.. DELETE A ENTRY.U.L.....
V.NLNK.LINK(0):LLNK.0......NLNK.0.170:.
NO STRINGS.!....S$.DAT$(NLNK).680.?...LL
NK.NLNK:NLNK.LINK(NLNK).H....640.S...DAT
$(NLNK)." ":. NOT REQUIRED.....
LINK(LLNK).LINK(NLNK).....TEMP.AVAIL:AVA
IL.NLNK...F.LINK(AVAIL).TEMP.E.P..170...
Z.. DISPLAY DAT$ ARRAY......".";......"
.INDEX DAT$(LINK) LINK(INDEX)
.".&....I.0.9......I;.8.....12).F....DA
T$(I);.X. ...30);LINK(I).`.*..:..~.4...2
0)" .AVAIL. ";AVAIL...>.."
";...H.."
.^. PREV PG ._. GOLD DISK ";...
R.."..................................";
...\..180...F.PG.1.I.P.. PG .890,1180,14
30,1680,1930,2170,2410,90.P.Z..".
LINKED LISTS "......"
.................." SUPPOSE THAT YOU
WANTED TO WRITE A......" PROGRAM TO STOR
E A LIST OF WORDS, IN......" ALPHABETICA
L ORDER, ON YOUR COMPUTER..=...." IF THI
S LIST WERE SUBJECT TO CHANGE.H...." YOU
WOULD WANT TO BE ABLE TO ADD OR......"
DELETE WORDS FROM IT. THE OBVIOUS WAY...
J.." TO GO ABOUT DOING THIS IS TO STORE.
..T.." EACH WORD IN AN ELEMENT OF A STRI
NG"......" ARRAY. TO SEARCH FOR A WORD,
THE.?...." PROGRAM WOULD STEP THROUGH TH
E ARRAY.L...." COMPARING EACH ELEMENT WI
TH THE GIVEN......" WORD UNTIL IT WAS FO
UND. THEN, IF THE.G...." WORD WERE TO BE
DELETED, THE REMAINING......" WORDS WOU
LD EACH BE SHIFTED UP ONE......" ELEMENT
IN THE ARRAY. FOR EXAMPLE,.".$..".:....
" 10 FOR I=1TOMAX.].8.." 20 IF DAT$(I)
=WRD$ THEN 40.N.B.." 30 NEXTI...L.." 40
FORJ=ITOMAX-1:DAT$(J)=DAT$(J+1)...V.."
50 NEXTJ...`..".V.J.." .SPACE. NEXT .
_. GOLD DISK";...T..A$:.A$."".1140...~..
A$."_".2710......A$.." ".1140.....PG.PG.
1:.880.E....". LINKED LISTS
".C...." .................
." IN THIS EXAMPLE, MAX IS THE INDEX OF.
....." THE LAST WORD ON THE LIST (WHICH
IS...D.." IN THE ARRAY DAT$) AND WRD$ IS
THE...N.." WORD TO BE DELETED. INSERTIN
G A WORD.<.X.." IN THE LIST WILL BE LEFT
AS AN EXER-.H...." CISE FOR YOU! THIS M
ETHOD OF STORING......" THE LIST IS FINE
IF THERE ARE ONLY A.A...." FEW WORDS IN
IT, BUT FOR LARGER LISTS......" INSERTI
ON/DELETION WILL REQUIRE CON-......" SID
ERABLE COMPUTATIONAL EFFORT (I.E..D...."
HAVING TO MOVE MANY ELEMENTS OF THE.R..
.." ARRAY AROUND). A BETTER WAY OF DEALI
NG...(.." WITH THE PROBLEM IS TO USE WHA
T IS.G.2.." KNOWN AS A .LINKED LIST.. TH
E BASIC...<.." IDEA IS THAT EACH WORD HA
S ASSOCIATED. .F.." WITH IT A LINK WHICH
'POINTS' TO THE.M.P.." NEXT WORD IN THE
LIST. THE WORD 'DOG'.S.Z.....D.." -->.C
AT. LINK.--->.DOG. LINK.---> ..."...N.."
...X.." NEED NOT BE THE NEXT ELEMENT IN
THE......" ARRAY AFTER 'CAT' AS IN THE P
REVIOUS......2660......". LINK
ED LISTS "... .." ......
.......V...." METHOD. THE LINK ASSOCIATE
D WITH......" 'CAT' TELLS US WHERE IN T
HE ARRAY WE......" CAN FIND 'DOG'. EACH
WORD OF THE LIST...H.." NEEDS A LINK, SO
WE MUST USE A NUMERIC...R.." ARRAY, LIN
K, OF THE SAME DIMENSION AS.3...." THE A
RRAY DAT$ . LET'S LOOK AT A.]...." SIMPL
E EXAMPLE. SUPPOSE OUR ARRAYS.V...." LOO
KED LIKE THIS,.|..... ...." I DAT$
(I) LINK(I)......" 0
3......" 1 MOUSE 0
...".." 2 DOG 1. .,.."
3 CAT 2.@.6.." 4
0.N.@.." LINK(0) IS CALLE
D THE HEAD OF THE LIST...J.." WHILE DAT$
(0) IS NOT USED TO HOLD.B.T.." ANYTHING.
IN THIS CASE LINK(0)=3 SO...^.." WE FIN
D THE FIRST WORD IN THE LIST IS...H.." D
AT$(3). LINK(3)=2 SO THE NEXT WORD IN.J.
R.." THE LIST IS DAT$(2). LINK(2)=1 AND
OF.U.|.." COURSE THE NEXT WORD IS DAT$(1
). WE.....2660......". LINKED
LISTS ".D...." ........
.........." KNOW THAT THIS IS THE LAST W
ORD OF THE......" LIST BECAUSE LINK(1)=0
(REMEMBER THAT.I...." DAT$(0) WON'T BE
USED). WHAT ABOUT.W.B.." DAT$(4) AND LIN
K(4)? THIS ELEMENT REP-...L.." RESENTS W
HAT AVAILABLE SPACE WE HAVE.P.V.." LEFT.
LINK(4) POINTS TO THE NEXT FREE......"
SPACE, BUT OF COURSE SINCE LINK(4)=0,.*.
..." THERE IS ONLY DAT$(4) FREE. LET'S S
ET.V...." AVAIL=4 TO POINT TO THE START
OF THE.H...." FREE LIST..Y...." SEARCHIN
G......" TO LOCATE A WORD IN A LINKED LI
ST IS.P...." A STRAIGHTFORWARD TASK. HER
E'S WHAT...&.." THE CODE LOOKS LIKE,...0
.."...:.." 10 PTR=LINK(0).*.D.." 20
IF PTR = 0 THEN 70.P.N.." 30 IF DAT$(P
TR)=WRD$ THEN 60.J.X.." 40 PTR=LINK(PT
R).}.B.." 50 GOTO20...L.." 60 REM ST
RING FOUND:END...V.." 70 REM STRING NO
T FOUND.I....2660......". LINK
ED LISTS "......" ......
.......(...." INSERTION/DELETION.B...."
...................P...." INSERTION REQU
IRES A LITTLE MORE WORK......." SUPPOSE
OUR LIST LOOKS LIKE THIS,...F...E.P.."
. .2.-->.CAT.5.-->.MOUSE.0.".K.Z.......
." AND AVAIL=1:LINK(AVAIL)=3......".#
...." AND WE WANT TO INSERT THE WORD 'DO
G'..=...." WE WOULD NOW HAVE,.C.....S...
." . .2.-->.CAT.1.-->.DOG.5.-->.MOUSE.
0.".Y. .....*.." AND AVAIL=3...4.....>
.." AS YOU CAN SEE, ALL WE HAD TO DO WAS
...H.." MAKE THE 'CAT' LINK EQUAL TO AVA
IL AND.. R.." MAKE THE LINK FOR 'DOG' EQ
UAL TO THE.1 \.." OLD 'CAT' LINK..9 F..:
..C P..2660.J Z..". LINKED LIS
TS ".. ..." ............
.. ..." NOW LET'S DELETE 'CAT' FROM OUR
LIST,".. ..... ..." . .2.-->.CAT.1.-->
.DOG.5.-->.MOUSE.0.".. .....!..." AVAI
L=3..!....(!J.." AFTER DELETING WE HAVE,
..!T...T!..." . .1.-->.DOG.5.-->.MOUSE
.0.".Z!....|!..." AND AVAIL=2:LINK(AVAI
L)=3..!.....!..." YOU CAN FIND THE CODE
FOR INSERTING.W!..." AND DELETING FROM A
LINKED LIST IN.."..." THE FILE 'LLIST T
EXT' ON THE GOLD DISK.".2"$.." EVEN TH
E COMMODORE 64 USES LINKED.\"..." LISTS.
WHEN YOU SAVE A PROGRAM ON.."8.." DISK
, IT IS SPREAD OUT OVER MANY.."B.." TRAC
KS AND SECTORS (A SECTOR IS 256.Z"L.." B
YTES OF DISK MEMORY AND EACH TRACK.."V..
.."`..2660..#J..". LINKED LIST
S "./#T.." .............
]#~.." IS MADE UP OF SEVERAL SECTORS). A
T THE..#..." BEGINNING OF EACH SECTOR US
ED TO STORE..#..." THE PROGRAM IS A LINK
TO THE SECTOR..#..." WHERE THE NEXT PAR
T OF THE PROGRAM IS..#..." STORED...$...
" SO FAR WE'VE ONLY TALKED ABOUT WHAT.L
$..." ARE CALLED SINGLY LINKED LISTS. WE
CAN.Y$D.." GET MORE SOPHISTICATED BY US
ING MULT-..$N.." IPLY LINKED LISTS, WHER
E EACH ENTRY.P$X.." MIGHT HAVE SEVERAL L
INKS. AN EXAMPLE..$..." WOULD BE A LIST
OF LIBRARY USERS IN.$%..." ALPHABETICAL
ORDER WITH EACH NAME.R%..." HAVING A POI
NTER TO A SUBLIST OF BOOKS..%..." THAT H
E/SHE HAS TAKEN OUT ALONG WITH A..%..."
POINTER TO THE NEXT NAME...%....U%..."
ON THE NEXT PAGE IS AN IMPLEMENTATION..&
(.." OF OUR FIRST EXAMPLE - A LIST OF WO
RDS.0&2.." IN ALPHABETICAL ORDER. YOU CA
N INSERT.\&<.." OR DELETE AN ENTRY AND W
ATCH HOW THE..&F.." LINK AND DAT$ ARRAYS
CHANGE...&P....&Z..2660..&D.." .SPACE.
NEXT .^. BACK ._. GOLD DISK";.S&N..A$:
.A$."".2670..&X..A$." ".PG.PG.1:.880..'.
..A$."^".PG.PG.1:.880..'...A$."_".2710.&
'...".":.49152.V' .." .WORD1. LINK.--->
.WORD2. LINK.---> ..."...
> CLICK IMAGE PREVIEW FOR FULL MODAL