MAG INDEX.C
FILE INFORMATION
FILENAME(S): MAG INDEX.C
FILE TYPE(S): PRG
FILE SIZE: 8.2K
FIRST SEEN: 2025-11-30 21:07:09
APPEARS ON: 4 disk(s)
FILE HASH
bdb2a194d1c9103cc9c3701740ae64864d2cc62ef8a8494170a3e00d0f1d4e1c
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MORE MARCH 1 C | MAG INDEX.C | PRG | DuncanTwain | 16 | 1 | DOWNLOAD FILE |
| CCS64 4 KOPIA | MAG INDEX.C | PRG | hedning, Mattias H00r | 12 | 5 | DOWNLOAD FILE |
| CCS 64 4 | MAG INDEX.C | PRG | hedning, Mattias H00r | 12 | 5 | DOWNLOAD FILE |
| C64 4 | MAG INDEX.C | PRG | hedning, Mattias H00r | 12 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 00 00 97 35 33 32 38 30 2C 30 3A 97 |..#....53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 22 93 05 22 3B C7 28 |53281,0:."..";.(|
00000020: 31 34 29 00 4E 08 01 00 99 22 20 20 20 20 20 2A |14).N...." *|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 79 |**************.y|
00000050: 08 02 00 99 22 20 20 20 20 20 2A 20 20 20 20 20 |...." * |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 20 20 20 2A 00 A6 08 03 00 99 22 | *......"|
00000080: 20 20 20 20 20 2A 20 20 20 20 12 CD C1 C7 C1 DA | * ......|
00000090: C9 CE C5 20 C6 C9 CC C5 20 C9 CE C4 C5 D8 92 20 |... .... ...... |
000000A0: 20 20 20 20 20 2A 00 D1 08 04 00 99 22 20 20 20 | *......" |
000000B0: 20 20 2A 20 20 20 20 C6 4F 52 20 54 48 45 20 C3 | * .OR THE .|
000000C0: 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 20 20 20 20 |OMMODORE 64 |
000000D0: 2A 00 FC 08 05 00 99 22 20 20 20 20 20 2A 20 20 |*......" * |
000000E0: 20 20 41 4E 44 20 44 49 53 4B 20 44 52 49 56 45 | AND DISK DRIVE|
000000F0: 2E 20 20 20 20 20 20 20 20 20 20 2A 00 27 09 06 |. *.'..|
00000100: 00 99 22 20 20 20 20 20 2A 20 20 20 20 20 20 20 |.." * |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 20 20 2A 00 52 09 07 00 99 22 20 20 | *.R...." |
00000130: 20 20 20 2A 20 C4 4F 4E 20 D7 48 49 54 45 20 20 | * .ON .HITE |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 2A 00 7D 09 08 00 99 22 20 20 20 20 20 2A 20 | *.}...." * |
00000160: 34 37 20 C1 52 49 45 4C 20 C3 4F 55 52 54 20 20 |47 .RIEL .OURT |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 A8 09 | *...|
00000180: 09 00 99 22 20 20 20 20 20 2A 20 CE 45 50 45 41 |..." * .EPEA|
00000190: 4E 2C 20 CF 4E 54 41 52 49 4F 20 20 20 20 20 20 |N, .NTARIO |
000001A0: 20 20 20 20 20 20 20 2A 00 D3 09 0A 00 99 22 20 | *......" |
000001B0: 20 20 20 20 2A 20 CB 32 C8 20 38 CA 31 20 20 20 | * .2. 8.1 |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 2A 00 FE 09 0B 00 99 22 20 20 20 20 20 2A | *......" *|
000001E0: 20 36 31 33 2D 38 32 39 2D 32 30 38 32 20 20 20 | 613-829-2082 |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 29 | *.)|
00000200: 0A 0C 00 99 22 20 20 20 20 20 2A 20 20 20 20 20 |...." * |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 20 20 20 20 2A 00 54 0A 0D 00 99 22 | *.T...."|
00000230: 20 20 20 20 20 2A 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 2A 00 7F 0A 0E 00 99 22 20 20 20 20 20 | *......" |
00000260: 2A 20 20 20 20 D2 45 56 49 53 45 44 3A 20 30 33 |* .EVISED: 03|
00000270: 20 C6 45 42 2E 20 38 34 20 20 20 20 20 20 2A 00 | .EB. 84 *.|
00000280: AA 0A 0F 00 99 22 20 20 20 20 20 2A 20 20 20 20 |....." * |
00000290: D0 52 49 4E 54 45 52 20 C6 55 4E 43 54 49 4F 4E |.RINTER .UNCTION|
000002A0: 20 C1 44 44 45 44 20 20 20 2A 00 D5 0A 10 00 99 | .DDED *......|
000002B0: 22 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 |" * |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002D0: 20 20 20 20 2A 00 00 0B 11 00 99 22 20 20 20 20 | *......" |
000002E0: 20 2A 20 CA 41 4D 45 53 20 CB 2E 20 C6 4F 53 54 | * .AMES .. .OST|
000002F0: 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 2A |ER *|
00000300: 00 2B 0B 12 00 99 22 20 20 20 20 20 2A 20 C2 4F |.+...." * .O|
00000310: 58 20 31 38 35 20 20 20 20 20 20 20 20 20 20 20 |X 185 |
00000320: 20 20 20 20 20 20 20 20 20 20 2A 00 56 0B 13 00 | *.V...|
00000330: 99 22 20 20 20 20 20 2A 20 C2 45 4C 4C 41 20 C3 |." * .ELLA .|
00000340: 4F 4F 4C 41 2C 20 C2 2E C3 2E 20 20 20 20 20 20 |OOLA, .... |
00000350: 20 20 20 20 20 2A 00 81 0B 14 00 99 22 20 20 20 | *......" |
00000360: 20 20 2A 20 D6 30 D4 20 31 C3 30 20 20 20 20 20 | * .0. 1.0 |
00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000380: 2A 00 AC 0B 15 00 99 22 20 20 20 20 20 2A 20 20 |*......" * |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 D7 0B 16 | *....|
000003B0: 00 99 22 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A |.." ********|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003D0: 2A 2A 2A 2A 2A 2A 2A 00 DD 0B 17 00 99 00 E7 0B |*******.........|
000003E0: 18 00 8D 20 34 36 38 00 F3 0B 22 00 86 4D 24 28 |... 468..."..M$(|
000003F0: 32 30 29 00 15 0C 24 00 4D 24 28 31 29 B2 22 36 |20)...$.M$(1)."6|
00000400: 35 58 58 20 CD 41 43 48 49 4E 45 20 CC 41 4E 47 |5XX .ACHINE .ANG|
00000410: 55 41 47 45 22 00 31 0C 26 00 4D 24 28 32 29 B2 |UAGE".1.&.M$(2).|
00000420: 22 36 35 58 58 20 D4 45 43 48 4E 49 51 55 45 53 |"65XX .ECHNIQUES|
00000430: 22 00 4A 0C 28 00 4D 24 28 33 29 B2 22 C3 36 34 |".J.(.M$(3).".64|
00000440: 20 D0 52 4F 47 52 41 4D 53 22 00 65 0C 2A 00 4D | .ROGRAMS".e.*.M|
00000450: 24 28 34 29 B2 22 C3 36 34 20 D4 45 43 48 4E 49 |$(4).".64 .ECHNI|
00000460: 51 55 45 53 22 00 77 0C 2C 00 4D 24 28 35 29 B2 |QUES".w.,.M$(5).|
00000470: 22 C7 41 4D 45 53 22 00 8C 0C 2E 00 4D 24 28 36 |".AMES".....M$(6|
00000480: 29 B2 22 C7 52 41 50 48 49 43 53 22 00 A4 0C 30 |).".RAPHICS"...0|
00000490: 00 4D 24 28 37 29 B2 22 CD 41 54 48 45 4D 41 54 |.M$(7).".ATHEMAT|
000004A0: 49 43 53 22 00 B9 0C 32 00 4D 24 28 38 29 B2 22 |ICS"...2.M$(8)."|
000004B0: C2 55 53 49 4E 45 53 53 22 00 D7 0C 34 00 4D 24 |.USINESS"...4.M$|
000004C0: 28 39 29 B2 22 C2 41 53 49 43 20 D0 52 4F 47 52 |(9).".ASIC .ROGR|
000004D0: 41 4D 4D 49 4E 47 22 00 F3 0C 36 00 4D 24 28 31 |AMMING"...6.M$(1|
000004E0: 30 29 B2 22 C3 4F 4D 4D 55 4E 49 43 41 54 49 4F |0).".OMMUNICATIO|
000004F0: 4E 53 22 00 09 0D 38 00 4D 24 28 31 31 29 B2 22 |NS"...8.M$(11)."|
00000500: C8 41 52 44 57 41 52 45 22 00 1F 0D 3A 00 4D 24 |.ARDWARE"...:.M$|
00000510: 28 31 32 29 B2 22 D3 4F 46 54 57 41 52 45 22 00 |(12).".OFTWARE".|
00000520: 36 0D 3C 00 4D 24 28 31 33 29 B2 22 CC 41 4E 47 |6.<.M$(13).".ANG|
00000530: 55 41 47 45 53 22 00 4D 0D 3E 00 4D 24 28 31 34 |UAGES".M.>.M$(14|
00000540: 29 B2 22 D5 54 49 4C 49 54 49 45 53 22 00 66 0D |).".TILITIES".f.|
00000550: 40 00 4D 24 28 31 35 29 B2 22 D3 49 4D 55 4C 41 |@.M$(15).".IMULA|
00000560: 54 49 4F 4E 53 22 00 81 0D 42 00 4D 24 28 31 36 |TIONS"...B.M$(16|
00000570: 29 B2 22 CD 49 53 43 45 4C 4C 41 4E 45 4F 55 53 |).".ISCELLANEOUS|
00000580: 22 00 9B 0D 44 00 4D 24 28 31 37 29 B2 22 C1 50 |"...D.M$(17).".P|
00000590: 50 4C 49 43 41 54 49 4F 4E 53 22 00 AE 0D 46 00 |PLICATIONS"...F.|
000005A0: 4D 24 28 31 38 29 B2 22 CD 55 53 49 43 22 00 C5 |M$(18).".USIC"..|
000005B0: 0D 48 00 4D 24 28 31 39 29 B2 22 C5 44 55 43 41 |.H.M$(19).".DUCA|
000005C0: 54 49 4F 4E 22 00 D8 0D 4A 00 4D 24 28 32 30 29 |TION"...J.M$(20)|
000005D0: B2 22 D0 2D 35 30 30 22 00 DE 0D 4C 00 8F 00 E7 |.".-500"...L....|
000005E0: 0D 4E 00 89 33 33 32 00 ED 0D 50 00 8F 00 0F 0E |.N..332...P.....|
000005F0: 52 00 8F 20 2A 2A 2A 2A 20 49 4E 44 45 58 20 46 |R.. **** INDEX F|
00000600: 49 4C 45 20 53 45 41 52 43 48 20 2A 2A 2A 2A 00 |ILE SEARCH ****.|
00000610: 15 0E 54 00 8F 00 1D 0E 56 00 4C B2 30 00 43 0E |..T.....V.L.0.C.|
00000620: 58 00 99 A3 35 29 22 93 9E C3 41 54 45 47 4F 52 |X...5)"...ATEGOR|
00000630: 49 45 53 20 41 4E 44 20 43 4F 44 45 53 20 41 52 |IES AND CODES AR|
00000640: 45 3A 11 00 4F 0E 5A 00 81 49 B2 31 A4 32 30 00 |E:..O.Z..I.1.20.|
00000650: 5F 0E 5C 00 49 24 B2 22 20 22 AA C4 28 49 29 00 |_.\.I$." "..(I).|
00000660: 84 0E 5E 00 99 A3 35 29 C7 28 33 30 29 C9 28 49 |..^...5).(30).(I|
00000670: 24 2C 32 29 22 2E 20 20 22 C7 28 31 35 38 29 4D |$,2)". ".(158)M|
00000680: 24 28 49 29 00 8A 0E 60 00 82 00 B5 0E 62 00 85 |$(I)...`.....b..|
00000690: 22 11 12 1E D7 48 49 43 48 20 43 41 54 45 47 4F |"....HICH CATEGO|
000006A0: 52 59 92 20 20 A0 9D 9D 9D 22 3B 49 24 3A 49 B2 |RY. ....";I$:I.|
000006B0: C5 28 49 24 29 00 CE 0E 64 00 8B 49 B3 31 B0 49 |.(I$)...d..I.1.I|
000006C0: B1 32 30 A7 99 22 91 91 91 22 3A 89 39 38 00 E6 |.20.."...":.98..|
000006D0: 0E 65 00 8B 4A 46 B3 B1 31 A7 99 22 93 11 11 11 |.e..JF..1.."....|
000006E0: 22 3A 8D 36 30 30 00 FA 0E 66 00 8B 53 53 B2 31 |":.600...f..SS.1|
000006F0: A7 53 53 B2 30 3A 8D 36 36 35 00 13 0F 67 00 8D |.SS.0:.665...g..|
00000700: 31 33 38 3A 8F 20 46 4F 52 4D 41 54 20 53 43 52 |138:. FORMAT SCR|
00000710: 45 45 4E 00 1D 0F 68 00 8C 3A 87 20 4E 00 32 0F |EEN...h..:. N.2.|
00000720: 6A 00 8D 31 31 38 3A 8F 20 52 45 41 44 20 44 41 |j..118:. READ DA|
00000730: 54 41 00 4D 0F 6C 00 8B C8 28 5A 5A 24 2C 31 29 |TA.M.l...(ZZ$,1)|
00000740: B2 22 59 22 A7 8D 37 30 30 3A 89 38 32 00 59 0F |."Y"..700:.82.Y.|
00000750: 6D 00 A0 34 3A 4A 46 B2 30 00 62 0F 6E 00 89 33 |m..4:JF.0.b.n..3|
00000760: 33 32 00 68 0F 70 00 8F 00 88 0F 72 00 8F 20 20 |32.h.p.....r.. |
00000770: 20 2A 2A 2A 2A 2A 2A 20 52 45 41 44 20 44 41 54 | ****** READ DAT|
00000780: 41 20 2A 2A 2A 2A 2A 2A 00 8E 0F 74 00 8F 00 A8 |A ******...t....|
00000790: 0F 76 00 87 43 31 2C 43 32 2C 43 33 2C 41 24 2C |.v..C1,C2,C3,A$,|
000007A0: 42 24 2C 43 24 2C 44 24 00 B7 0F 78 00 8B 41 24 |B$,C$,D$...x..A$|
000007B0: B2 22 22 A7 31 33 30 00 C0 0F 79 00 8D 38 30 30 |."".130...y..800|
000007C0: 00 F6 0F 7A 00 41 24 B2 C8 28 41 24 2C 32 32 29 |...z.A$..(A$,22)|
000007D0: 3A 8F 20 4D 41 4B 45 20 53 55 52 45 20 53 54 52 |:. MAKE SURE STR|
000007E0: 49 4E 47 20 46 49 54 53 20 53 43 52 45 45 4E 20 |ING FITS SCREEN |
000007F0: 46 4F 52 4D 41 54 00 26 10 7C 00 8B 43 31 B2 49 |FORMAT.&.|..C1.I|
00000800: B0 43 32 B2 49 B0 43 33 B2 49 A7 99 41 24 A3 32 |.C2.I.C3.I..A$.2|
00000810: 33 29 42 24 A3 33 30 29 43 24 A3 33 35 29 44 24 |3)B$.30)C$.35)D$|
00000820: 3A 4C B2 4C AA 31 00 3D 10 7E 00 8B 4C B2 31 37 |:L.L.1.=.~..L.17|
00000830: A7 8D 31 36 34 3A 8F 20 50 41 55 53 45 00 46 10 |..164:. PAUSE.F.|
00000840: 80 00 89 31 31 38 00 60 10 82 00 99 22 11 12 96 |...118.`...."...|
00000850: C1 4E 4F 54 48 45 52 20 43 41 54 45 47 4F 52 59 |.NOTHER CATEGORY|
00000860: 00 7D 10 84 00 85 22 12 28 59 20 4F 52 20 4E 29 |.}....".(Y OR N)|
00000870: 92 20 20 9E 59 9D 9D 9D 22 3B 5A 5A 24 00 83 10 |. .Y...";ZZ$...|
00000880: 86 00 8E 00 89 10 88 00 8F 00 A8 10 8A 00 8F 20 |............... |
00000890: 20 2A 2A 2A 2A 20 46 4F 52 4D 41 54 20 53 43 52 | **** FORMAT SCR|
000008A0: 45 45 4E 20 2A 2A 2A 2A 00 AE 10 8C 00 8F 00 DC |EEN ****........|
000008B0: 10 8E 00 99 22 93 1D 1D 1D 1D 1D 1D 1E C3 41 54 |....".........AT|
000008C0: 45 47 4F 52 59 3A 22 A3 31 35 29 C7 28 31 35 38 |EGORY:".15).(158|
000008D0: 29 22 12 22 4D 24 28 49 29 22 92 22 00 0B 11 90 |)"."M$(I)"."....|
000008E0: 00 99 22 1E C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..".............|
000008F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B2 C0 C0 C0 C0 C0 |................|
00000900: C0 B2 C0 C0 C0 C0 B2 C0 C0 C0 AE 00 3B 11 92 00 |............;...|
00000910: 99 22 13 11 11 D3 D5 C2 CA C5 C3 D4 22 A3 32 33 |."..........".23|
00000920: 29 22 D3 CF D5 D2 C3 C5 22 A3 33 30 29 22 C4 C1 |)"......".30)"..|
00000930: D4 C5 22 A3 33 35 29 22 D0 C7 23 00 4F 11 94 00 |..".35)"..#.O...|
00000940: 81 4A B2 30 A4 33 38 3A 99 22 C0 22 3B 3A 82 00 |.J.0.38:.".";:..|
00000950: 59 11 96 00 99 22 13 11 22 00 7B 11 98 00 99 A3 |Y...."..".{.....|
00000960: 32 32 29 22 DD 22 A3 32 39 29 22 DD 22 A3 33 34 |22)".".29)".".34|
00000970: 29 22 DD 22 A3 33 38 29 22 DD 22 00 A1 11 9A 00 |)".".38)".".....|
00000980: 99 A3 32 32 29 22 DB 22 A3 32 39 29 22 DB 22 A3 |..22)".".29)".".|
00000990: 33 34 29 22 DB 22 A3 33 38 29 22 B3 22 3A 99 22 |34)".".38)".":."|
000009A0: 91 00 CD 11 9C 00 81 4A B2 31 A4 32 30 3A 99 A3 |.......J.1.20:..|
000009B0: 32 32 29 22 DD 22 A3 32 39 29 22 DD 22 A3 33 34 |22)".".29)".".34|
000009C0: 29 22 DD 22 A3 33 38 29 22 DD 22 3A 82 00 FE 11 |)".".38)".":....|
000009D0: 9E 00 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..."............|
000009E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 |................|
000009F0: C0 B1 C0 C0 C0 C0 B1 C0 C0 C0 BD 9B 22 3B 00 0C |............";..|
00000A00: 12 A0 00 99 22 13 11 11 11 22 3A 8E 00 12 12 A2 |...."....":.....|
00000A10: 00 8F 00 32 12 A4 00 8F 20 20 2A 2A 2A 2A 2A 20 |...2.... ***** |
00000A20: 43 4C 45 41 52 20 46 4F 52 4D 41 54 20 2A 2A 2A |CLEAR FORMAT ***|
00000A30: 2A 2A 00 38 12 A6 00 8F 00 6D 12 A8 00 99 22 11 |**.8.....m....".|
00000A40: 96 D0 52 45 53 53 20 12 53 50 41 43 45 92 20 54 |..RESS .SPACE. T|
00000A50: 4F 20 43 4F 4E 2D 22 3A 99 22 54 49 4E 55 45 2C |O CON-":."TINUE,|
00000A60: 20 12 40 92 20 54 4F 20 45 58 49 54 2E 00 82 12 | .@. TO EXIT....|
00000A70: AA 00 A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 31 |...ZZ$:.ZZ$."".1|
00000A80: 37 30 00 93 12 AC 00 8B 5A 5A 24 B2 22 40 22 A7 |70......ZZ$."@".|
00000A90: 33 33 38 00 9F 12 AE 00 99 22 13 11 11 11 22 00 |338......"....".|
00000AA0: AB 12 B0 00 81 4A B2 31 A4 32 30 00 DD 12 B2 00 |.....J.1.20.....|
00000AB0: 99 22 1E 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000AC0: 20 20 20 20 20 20 20 20 20 DD 20 20 20 20 20 20 | . |
00000AD0: DD 20 20 20 20 DD 20 20 20 9B 22 3A 82 00 EF 12 |. . .":....|
00000AE0: B4 00 4C B2 30 3A 99 22 13 11 11 11 22 3A 8E 00 |..L.0:."....":..|
00000AF0: F5 12 B6 00 8F 00 16 13 B8 00 8F 20 20 2A 2A 2A |........... ***|
00000B00: 2A 2A 20 4D 41 47 41 5A 49 4E 45 20 43 4F 44 45 |** MAGAZINE CODE|
00000B10: 20 2A 2A 2A 2A 2A 00 1C 13 BA 00 8F 00 3B 13 BC | *****.......;..|
00000B20: 00 99 22 93 22 A3 31 33 29 22 12 9E CD C1 C7 C1 |..".".13)"......|
00000B30: DA C9 CE C5 20 C3 CF C4 C5 D3 9B 00 83 13 BE 00 |.... ...........|
00000B40: 99 22 11 11 11 20 20 20 C3 C3 20 20 20 20 20 20 |."... .. |
00000B50: C3 52 45 41 54 49 56 45 20 C3 4F 4D 50 55 54 49 |.REATIVE .OMPUTI|
00000B60: 4E 47 22 3A 99 22 20 20 20 D0 C3 20 20 20 20 20 |NG":." .. |
00000B70: 20 D0 45 52 53 4F 4E 41 4C 20 C3 4F 4D 50 55 54 | .ERSONAL .OMPUT|
00000B80: 49 4E 47 00 BF 13 C0 00 99 22 20 20 20 CB C2 20 |ING......" .. |
00000B90: 20 20 20 20 20 CB 49 4C 4F 42 41 55 44 20 CD 49 | .ILOBAUD .I|
00000BA0: 43 52 4F 43 4F 4D 50 55 54 49 4E 47 22 3A 99 22 |CROCOMPUTING":."|
00000BB0: 20 20 20 C2 D9 D4 C5 20 20 20 20 C2 D9 D4 C5 00 | .... .....|
00000BC0: EF 13 C2 00 99 22 20 20 20 CD C9 C3 D2 CF 20 20 |....." ..... |
00000BD0: 20 CD C9 C3 D2 CF 22 3A 99 22 20 20 20 D4 D2 C1 | .....":." ...|
00000BE0: CE D3 20 20 20 D4 52 41 4E 53 41 43 54 4F 52 00 |.. .RANSACTOR.|
00000BF0: 0F 14 C4 00 99 22 20 20 20 C9 CE D4 C1 C7 C5 20 |....." ...... |
00000C00: 20 C9 4E 54 45 52 46 41 43 45 20 C1 47 45 22 00 | .NTERFACE .GE".|
00000C10: 29 14 C6 00 99 22 20 20 20 C3 CF CD D0 20 20 20 |)...." .... |
00000C20: 20 C3 CF CD D0 D5 D4 C5 21 00 32 14 C8 00 8D 34 | .......!.2....4|
00000C30: 36 32 00 3B 14 CA 00 89 33 33 32 00 41 14 CC 00 |62.;....332.A...|
00000C40: 8F 00 5D 14 CE 00 8F 20 20 2A 2A 2A 20 41 44 44 |..].... *** ADD|
00000C50: 20 4D 41 54 45 52 49 41 4C 20 2A 2A 2A 00 63 14 | MATERIAL ***.c.|
00000C60: D0 00 8F 00 88 14 D2 00 99 22 93 22 A3 31 31 29 |.........".".11)|
00000C70: 22 9E 2A 2A 2A 20 12 C3 D2 C5 C1 D4 C5 20 C4 C1 |".*** ....... ..|
00000C80: D4 C1 92 20 2A 2A 2A 22 00 B6 14 D4 00 8F 20 50 |... ***"...... P|
00000C90: 52 49 4E 54 22 11 11 22 54 41 42 28 39 29 22 12 |RINT".."TAB(9)".|
00000CA0: CF 50 20 4D 4F 44 45 53 20 26 20 45 4E 54 52 59 |.P MODES & ENTRY|
00000CB0: 20 43 4F 44 45 53 00 DB 14 D6 00 99 22 11 11 22 | CODES......".."|
00000CC0: A3 31 31 29 22 1E C5 4E 54 45 52 20 4E 45 57 20 |.11)"..NTER NEW |
00000CD0: 44 41 54 41 9E 20 20 20 20 45 22 00 FF 14 D8 00 |DATA. E".....|
00000CE0: 99 22 11 22 A3 31 31 29 22 1E C8 45 4C 50 9E 20 |.".".11)"..ELP. |
00000CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 48 22 00 | H".|
00000D00: 23 15 DA 00 99 22 11 22 A3 31 31 29 22 1E C5 58 |#....".".11)"..X|
00000D10: 49 54 9E 20 20 20 20 20 20 20 20 20 20 20 20 20 |IT. |
00000D20: 20 5C 22 00 49 15 DC 00 99 3A 99 3A 99 22 1E 20 | \".I....:.:.". |
00000D30: 20 20 20 20 20 20 20 20 20 20 20 D9 4F 55 52 20 | .OUR |
00000D40: 43 48 4F 49 43 45 20 3F 22 00 6E 15 DE 00 A1 41 |CHOICE ?".n....A|
00000D50: 24 3A 8B 41 24 B3 B1 22 45 22 AF 41 24 B3 B1 22 |$:.A$.."E".A$.."|
00000D60: 48 22 AF 41 24 B3 B1 22 5C 22 A7 32 32 32 00 7E |H".A$.."\".222.~|
00000D70: 15 E0 00 8B 41 24 B2 22 45 22 A7 32 33 32 00 8E |....A$."E".232..|
00000D80: 15 E2 00 8B 41 24 B2 22 48 22 A7 33 36 34 00 97 |....A$."H".364..|
00000D90: 15 E4 00 89 33 33 38 00 9D 15 E6 00 8F 00 B7 15 |....338.........|
00000DA0: E8 00 8F 20 20 2A 2A 2A 20 45 4E 54 45 52 20 44 |... *** ENTER D|
00000DB0: 41 54 41 20 2A 2A 2A 00 BD 15 EA 00 8F 00 D4 15 |ATA ***.........|
00000DC0: EB 00 44 4E 24 B2 22 13 11 11 11 11 11 11 11 11 |..DN$.".........|
00000DD0: 11 11 11 22 00 F1 15 EC 00 58 B2 B8 28 30 29 3A |...".....X..(0):|
00000DE0: 8B 58 B3 30 A7 58 B2 36 35 35 33 35 AA B8 28 30 |.X.0.X.65535..(0|
00000DF0: 29 00 23 16 EE 00 99 22 93 9E 12 C4 41 54 41 20 |).#...."....ATA |
00000E00: 45 4E 54 52 59 20 4D 4F 44 45 92 20 2D 22 58 22 |ENTRY MODE. -"X"|
00000E10: 42 59 54 45 53 20 46 52 45 45 22 3A 99 44 4E 24 |BYTES FREE":.DN$|
00000E20: 22 A4 22 00 61 16 F0 00 99 22 11 11 22 A3 34 29 |".".a...."..".4)|
00000E30: 22 1E 12 43 31 2C 43 32 2C 43 33 2C 22 C7 28 33 |"..C1,C2,C3,".(3|
00000E40: 34 29 22 54 49 54 4C 45 22 C7 28 33 34 29 22 2C |4)"TITLE".(34)",|
00000E50: 22 C7 28 33 34 29 22 52 45 46 22 C7 28 33 34 29 |".(34)"REF".(34)|
00000E60: 3B 00 74 16 F2 00 99 22 12 2C 44 41 54 45 2C 50 |;.t....".,DATE,P|
00000E70: 41 47 45 22 00 B6 16 F4 00 99 22 13 11 11 11 11 |AGE"......".....|
00000E80: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000E90: 11 11 22 A3 37 29 22 12 96 D0 52 45 53 53 20 27 |..".7)"...RESS '|
00000EA0: 5C 27 20 54 4F 20 45 58 49 54 20 54 48 49 53 20 |\' TO EXIT THIS |
00000EB0: 4D 4F 44 45 9E 22 00 C9 16 F6 00 A1 41 24 3A 8B |MODE."......A$:.|
00000EC0: 41 24 B2 22 22 A7 32 34 36 00 E3 16 F8 00 8B 41 |A$."".246......A|
00000ED0: 24 B2 C7 28 32 30 29 AF C3 28 52 24 29 B2 30 A7 |$..(20)..(R$).0.|
00000EE0: 32 34 36 00 19 17 FA 00 8B 41 24 B2 C7 28 32 30 |246......A$..(20|
00000EF0: 29 AF C3 28 52 24 29 B1 30 A7 52 24 B2 C8 28 52 |)..(R$).0.R$..(R|
00000F00: 24 2C C3 28 52 24 29 AB 31 29 3A 99 44 4E 24 52 |$,.(R$).1):.DN$R|
00000F10: 24 41 24 3A 41 24 B2 22 22 00 2C 17 FC 00 8B 20 |$A$:A$."".,.... |
00000F20: 41 24 B2 C7 28 31 33 29 A7 32 37 30 00 3A 17 FE |A$..(13).270.:..|
00000F30: 00 8B 41 24 B2 22 5C 22 A7 8A 00 55 17 00 01 52 |..A$."\"...U...R|
00000F40: 24 B2 52 24 AA 41 24 3A 8B C3 28 52 24 29 B3 36 |$.R$.A$:..(R$).6|
00000F50: 35 A7 32 36 38 00 5E 17 02 01 99 44 4E 24 00 8F |5.268.^....DN$..|
00000F60: 17 04 01 99 22 11 20 20 12 C4 C1 D4 C1 20 45 4E |....". ..... EN|
00000F70: 54 52 59 20 48 41 53 20 45 58 43 45 45 44 45 44 |TRY HAS EXCEEDED|
00000F80: 20 36 35 20 43 48 41 52 41 43 54 45 52 53 2E 00 | 65 CHARACTERS..|
00000F90: B4 17 06 01 99 22 11 20 20 20 20 20 20 20 20 D0 |.....". .|
00000FA0: 4C 45 41 53 45 20 52 45 2D 45 4E 54 45 52 20 44 |LEASE RE-ENTER D|
00000FB0: 41 54 41 22 00 BD 17 08 01 8D 34 36 32 00 CC 17 |ATA"......462...|
00000FC0: 0A 01 52 24 B2 22 22 3A 89 32 33 38 00 DF 17 0C |..R$."":.238....|
00000FD0: 01 99 44 4E 24 52 24 22 A4 22 3A 89 32 34 36 00 |..DN$R$".":.246.|
00000FE0: F8 17 0E 01 8C 3A 87 4E 3A 4E B2 4E AA 31 3A 4C |.....:.N:N.N.1:L|
00000FF0: 4E B2 31 30 30 30 AA 4E 00 0F 18 10 01 99 22 13 |N.1000.N......".|
00001000: 11 11 11 22 4C 4E 22 44 41 54 41 20 22 52 24 00 |..."LN"DATA "R$.|
00001010: 22 18 12 01 99 22 31 30 30 30 20 44 41 54 41 20 |"...."1000 DATA |
00001020: 22 4E 00 35 18 14 01 99 22 47 4F 54 4F 32 33 32 |"N.5...."GOTO232|
00001030: 22 3A 99 22 13 00 58 18 16 01 97 31 39 38 2C 33 |":."..X....198,3|
00001040: 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 |:.631,13:.632,13|
00001050: 3A 97 36 33 33 2C 31 33 00 5E 18 18 01 80 00 7B |:.633,13.^.....{|
00001060: 18 1A 01 8F 20 20 20 20 2A 2A 2A 2A 20 53 41 56 |.... **** SAV|
00001070: 45 20 46 49 4C 45 20 2A 2A 2A 2A 00 81 18 1C 01 |E FILE ****.....|
00001080: 8F 00 B9 18 1E 01 85 22 93 9E C1 52 45 20 59 4F |......."...RE YO|
00001090: 55 20 52 45 50 4C 41 43 49 4E 47 20 41 20 50 52 |U REPLACING A PR|
000010A0: 45 56 49 4F 55 53 20 56 45 52 53 49 4F 4E 20 20 |EVIOUS VERSION |
000010B0: 59 9D 9D 9D 22 3B 5A 5A 24 00 F2 18 20 01 85 22 |Y...";ZZ$... .."|
000010C0: 13 11 11 11 11 C6 49 4C 45 20 4E 41 4D 45 20 20 |......ILE NAME |
000010D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9D 9D | ..|
000010E0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B |..............";|
000010F0: 46 24 00 02 19 22 01 8B 46 24 B2 22 A0 22 A7 32 |F$..."..F$.".".2|
00001100: 38 38 00 2A 19 24 01 85 22 13 11 11 11 11 11 11 |88.*.$..".......|
00001110: 11 C9 53 20 54 48 49 53 20 43 4F 52 52 45 43 54 |..S THIS CORRECT|
00001120: A0 A0 59 9D 9D 9D 22 3B 41 24 00 3B 19 26 01 8B |..Y...";A$.;.&..|
00001130: 41 24 B3 B1 22 59 22 A7 32 38 38 00 61 19 28 01 |A$.."Y".288.a.(.|
00001140: 85 22 11 11 D7 48 49 43 48 20 44 52 49 56 45 20 |."...HICH DRIVE |
00001150: 20 30 9D 9D 9D 22 3B 44 24 3A 44 B2 C5 28 44 24 | 0...";D$:D..(D$|
00001160: 29 00 7A 19 2A 01 8B 44 B3 30 B0 44 B1 31 A7 99 |).z.*..D.0.D.1..|
00001170: 22 91 91 91 22 3A 89 32 39 36 00 92 19 2C 01 9F |"...":.296...,..|
00001180: 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 49 22 AA |15,8,15:.15,"I".|
00001190: 44 24 00 A4 19 2E 01 8B 5A 5A 24 B3 B1 22 59 22 |D$......ZZ$.."Y"|
000011A0: A7 33 30 38 00 BF 19 30 01 98 31 35 2C 22 52 22 |.308...0..15,"R"|
000011B0: AA 44 24 AA 22 3A 54 45 4D 50 3D 22 AA 46 24 00 |.D$.":TEMP=".F$.|
000011C0: D2 19 31 01 84 31 35 2C 45 2C 45 24 2C 45 31 2C |..1..15,E,E$,E1,|
000011D0: 45 32 00 03 1A 32 01 8B 45 B1 31 39 A7 99 22 11 |E2...2..E.19..".|
000011E0: 11 12 22 45 24 3A 99 22 11 11 C6 49 4C 45 20 4E |.."E$:."...ILE N|
000011F0: 4F 54 20 53 41 56 45 44 22 3A 8D 34 36 32 3A 89 |OT SAVED":.462:.|
00001200: 33 31 38 00 14 1A 34 01 94 44 24 AA 22 3A 22 AA |318...4..D$.":".|
00001210: 46 24 2C 38 00 2C 1A 36 01 99 22 11 11 12 D6 45 |F$,8.,.6.."....E|
00001220: 52 49 46 59 49 4E 47 92 20 22 46 24 00 37 1A 38 |RIFYING. "F$.7.8|
00001230: 01 95 22 2A 22 2C 38 00 49 1A 3A 01 8B 53 54 B3 |.."*",8.I.:..ST.|
00001240: B1 36 34 A7 A0 31 35 3A 80 00 69 1A 3C 01 8B 5A |.64..15:..i.<..Z|
00001250: 5A 24 B2 22 59 22 A7 98 31 35 2C 22 53 22 AA 44 |Z$."Y"..15,"S".D|
00001260: 24 AA 22 3A 54 45 4D 50 22 00 76 1A 3E 01 A0 31 |$.":TEMP".v.>..1|
00001270: 35 3A 89 33 33 32 00 7C 1A 40 01 8F 00 94 1A 42 |5:.332.|.@.....B|
00001280: 01 8F 20 2A 2A 2A 2A 2A 2A 20 45 58 49 54 20 2A |.. ****** EXIT *|
00001290: 2A 2A 2A 2A 00 9A 1A 44 01 8F 00 A2 1A 46 01 99 |****...D.....F..|
000012A0: 22 93 00 A8 1A 48 01 80 00 AE 1A 4A 01 8F 00 CF |"....H.....J....|
000012B0: 1A 4C 01 8F 20 2A 2A 2A 20 4D 41 49 4E 20 50 52 |.L.. *** MAIN PR|
000012C0: 4F 47 52 41 4D 20 42 4C 4F 43 4B 20 2A 2A 2A 00 |OGRAM BLOCK ***.|
000012D0: E5 1A 4D 01 97 35 33 32 38 30 2C 30 3A 97 35 33 |..M..53280,0:.53|
000012E0: 32 38 31 2C 30 00 EB 1A 4E 01 8F 00 F6 1A 50 01 |281,0...N.....P.|
000012F0: 99 C7 28 31 34 29 00 1F 1B 52 01 99 22 93 22 A3 |..(14)...R..".".|
00001300: 39 29 22 9E 2A 2A 2A 20 12 CD C1 C7 C1 DA C9 CE |9)".*** ........|
00001310: C5 20 C9 CE C4 C5 D8 92 20 2A 2A 2A 11 11 22 00 |. ...... ***..".|
00001320: 3B 1B 54 01 99 A3 39 29 22 1E 31 2E 9E 20 20 D3 |;.T...9)".1.. .|
00001330: 45 41 52 43 48 20 46 49 4C 45 22 00 5D 1B 56 01 |EARCH FILE".].V.|
00001340: 99 A3 39 29 22 1E 32 2E 9E 20 20 CC 49 53 54 20 |..9)".2.. .IST |
00001350: 4D 41 47 41 5A 49 4E 45 20 43 4F 44 45 00 79 1B |MAGAZINE CODE.y.|
00001360: 58 01 99 A3 39 29 22 1E 33 2E 9E 20 20 C1 44 44 |X...9)".3.. .DD|
00001370: 20 4D 41 54 45 52 49 41 4C 00 92 1B 5A 01 99 A3 | MATERIAL...Z...|
00001380: 39 29 22 1E 34 2E 9E 20 20 D3 41 56 45 20 46 49 |9)".4.. .AVE FI|
00001390: 4C 45 00 AE 1B 5C 01 99 A3 39 29 22 1E 35 2E 9E |LE...\...9)".5..|
000013A0: 20 20 C9 4E 53 54 52 55 43 54 49 4F 4E 53 00 D0 | .NSTRUCTIONS..|
000013B0: 1B 5E 01 99 A3 39 29 22 1E 36 2E 9E 20 20 CC 4F |.^...9)".6.. .O|
000013C0: 41 44 20 41 4E 4F 54 48 45 52 20 49 4E 44 45 58 |AD ANOTHER INDEX|
000013D0: 00 EC 1B 60 01 99 A3 39 29 22 1E 37 2E 9E 20 20 |...`...9)".7.. |
000013E0: C5 58 49 54 20 50 52 4F 47 52 41 4D 00 0A 1C 62 |.XIT PROGRAM...b|
000013F0: 01 99 A3 35 29 22 11 11 20 20 20 20 1E D9 4F 55 |...5)".. ..OU|
00001400: 52 20 43 48 4F 49 43 45 20 3F 00 1F 1C 64 01 A1 |R CHOICE ?...d..|
00001410: 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 33 35 36 00 |ZZ$:.ZZ$."".356.|
00001420: 45 1C 66 01 5A 5A B2 C5 28 5A 5A 24 29 3A 8B 5A |E.f.ZZ..(ZZ$):.Z|
00001430: 5A B3 31 B0 5A 5A B1 37 A7 99 22 91 91 91 22 3B |Z.1.ZZ.7.."...";|
00001440: 3A 89 33 35 34 00 68 1C 68 01 91 5A 5A 89 38 32 |:.354.h.h..ZZ.82|
00001450: 2C 31 38 34 2C 32 30 36 2C 32 38 32 2C 34 30 34 |,184,206,282,404|
00001460: 2C 34 37 36 2C 33 32 32 00 6E 1C 6A 01 8F 00 8E |,476,322.n.j....|
00001470: 1C 6C 01 8F 20 20 2A 2A 2A 2A 20 20 48 45 4C 50 |.l.. **** HELP|
00001480: 20 46 55 4E 43 54 49 4F 4E 20 2A 2A 2A 2A 00 94 | FUNCTION ****..|
00001490: 1C 6E 01 8F 00 BA 1C 70 01 99 22 93 22 A3 31 30 |.n.....p..".".10|
000014A0: 29 22 9E 2A 2A 2A 20 12 C9 CE D3 D4 D2 D5 C3 D4 |)".*** .........|
000014B0: C9 CF CE D3 92 20 2A 2A 2A 22 00 EA 1C 72 01 99 |..... ***"...r..|
000014C0: 22 9B 11 20 20 D4 48 45 20 44 41 54 41 20 4D 55 |".. .HE DATA MU|
000014D0: 53 54 20 42 45 20 45 4E 54 45 52 45 44 20 49 4E |ST BE ENTERED IN|
000014E0: 20 37 20 46 49 45 4C 44 53 2E 00 0E 1D 74 01 99 | 7 FIELDS....t..|
000014F0: 22 D4 48 45 20 46 4F 52 4D 41 54 20 46 4F 52 20 |".HE FORMAT FOR |
00001500: 54 48 45 20 46 49 45 4C 44 53 20 49 53 3A 00 49 |THE FIELDS IS:.I|
00001510: 1D 76 01 99 22 9E 11 20 20 20 12 43 31 2C 43 32 |.v..".. .C1,C2|
00001520: 2C 43 33 2C 22 C7 28 33 34 29 22 54 49 54 4C 45 |,C3,".(34)"TITLE|
00001530: 22 C7 28 33 34 29 22 2C 22 C7 28 33 34 29 22 52 |".(34)",".(34)"R|
00001540: 45 46 22 C7 28 33 34 29 3B 00 5C 1D 78 01 99 22 |EF".(34);.\.x.."|
00001550: 12 2C 44 41 54 45 2C 50 41 47 45 22 00 87 1D 7A |.,DATE,PAGE"...z|
00001560: 01 99 22 11 9B 57 48 45 52 45 20 43 31 2C 43 32 |.."..WHERE C1,C2|
00001570: 2C 43 33 20 41 52 45 20 43 52 4F 53 53 20 52 45 |,C3 ARE CROSS RE|
00001580: 46 45 52 45 4E 43 45 00 AE 1D 7C 01 99 22 56 41 |FERENCE...|.."VA|
00001590: 4C 55 45 53 20 41 53 20 50 45 52 20 54 48 45 20 |LUES AS PER THE |
000015A0: 43 41 54 45 47 4F 52 59 20 4C 49 53 54 2E 00 C4 |CATEGORY LIST...|
000015B0: 1D 7E 01 99 22 11 C1 53 20 41 4E 20 45 58 41 4D |.~.."..S AN EXAM|
000015C0: 50 4C 45 3A 00 F3 1D 80 01 99 22 9E 11 20 20 20 |PLE:......".. |
000015D0: 12 31 2C 34 2C 30 2C 22 C7 28 33 34 29 22 D0 45 |.1,4,0,".(34)".E|
000015E0: 54 42 55 47 22 C7 28 33 34 29 22 2C 22 C7 28 33 |TBUG".(34)",".(3|
000015F0: 34 29 3B 00 0F 1E 82 01 99 22 C3 CF CD D0 22 C7 |4);......"....".|
00001600: 28 33 34 29 22 2C 38 31 30 37 2C 31 33 32 22 00 |(34)",8107,132".|
00001610: 3E 1E 84 01 99 22 9B 11 C5 41 43 48 20 46 49 45 |>...."...ACH FIE|
00001620: 4C 44 20 4D 55 53 54 20 42 45 20 46 4F 4C 4C 4F |LD MUST BE FOLLO|
00001630: 57 45 44 20 42 59 20 41 20 43 4F 4D 4D 41 00 6C |WED BY A COMMA.l|
00001640: 1E 86 01 99 22 41 4E 44 20 54 48 45 20 C1 52 54 |...."AND THE .RT|
00001650: 49 43 4C 45 20 41 4E 44 20 CD 41 47 41 5A 49 4E |ICLE AND .AGAZIN|
00001660: 45 20 4E 41 4D 45 53 20 4D 55 53 54 00 99 1E 88 |E NAMES MUST....|
00001670: 01 99 22 42 45 20 50 52 45 43 45 45 44 45 44 20 |.."BE PRECEEDED |
00001680: 41 4E 44 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 |AND FOLLOWED BY |
00001690: 51 55 4F 54 41 54 49 4F 4E 00 A6 1E 8A 01 99 22 |QUOTATION......"|
000016A0: 4D 41 52 4B 53 2E 00 D1 1E 8C 01 99 22 11 D5 53 |MARKS......."..S|
000016B0: 45 20 27 30 27 20 46 4F 52 20 4E 55 4C 4C 20 43 |E '0' FOR NULL C|
000016C0: 52 4F 53 53 2D 52 45 46 45 52 45 4E 43 45 53 2E |ROSS-REFERENCES.|
000016D0: 22 00 DB 1E 8E 01 8D 20 34 36 32 00 E4 1E 90 01 |"...... 462.....|
000016E0: 89 32 30 36 00 EA 1E 92 01 8F 00 0E 1F 94 01 8F |.206............|
000016F0: 20 20 2A 2A 2A 20 47 45 4E 45 52 41 4C 20 49 4E | *** GENERAL IN|
00001700: 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 2A 00 14 |STRUCTIONS ***..|
00001710: 1F 96 01 8F 00 3A 1F 98 01 99 22 93 22 A3 31 30 |.....:....".".10|
00001720: 29 22 9E 2A 2A 2A 20 12 C9 CE D3 D4 D2 D5 C3 D4 |)".*** .........|
00001730: C9 CF CE D3 92 20 2A 2A 2A 22 00 69 1F 9A 01 99 |..... ***".i....|
00001740: 22 9B 11 11 D4 48 49 53 20 50 52 4F 47 52 41 4D |"....HIS PROGRAM|
00001750: 20 41 4C 4C 4F 57 53 20 54 48 45 20 55 53 45 52 | ALLOWS THE USER|
00001760: 20 54 4F 20 53 54 4F 52 45 00 90 1F 9C 01 99 22 | TO STORE......"|
00001770: 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 52 45 4C 41 |INFORMATION RELA|
00001780: 54 49 4E 47 20 54 4F 20 4D 41 47 41 5A 49 4E 45 |TING TO MAGAZINE|
00001790: 00 BD 1F 9E 01 99 22 41 52 54 49 43 4C 45 53 20 |......"ARTICLES |
000017A0: 49 4E 20 C4 C1 D4 C1 20 53 54 41 54 45 4D 45 4E |IN .... STATEMEN|
000017B0: 54 53 20 57 49 54 48 49 4E 20 54 48 45 00 E8 1F |TS WITHIN THE...|
000017C0: A0 01 99 22 50 52 4F 47 52 41 4D 2E 20 C5 41 43 |..."PROGRAM. .AC|
000017D0: 48 20 41 52 54 49 43 4C 45 20 43 41 4E 20 48 41 |H ARTICLE CAN HA|
000017E0: 56 45 20 55 50 20 54 4F 00 14 20 A2 01 99 22 33 |VE UP TO.. ..."3|
000017F0: 20 20 43 52 4F 53 53 2D 52 45 46 45 52 45 4E 43 | CROSS-REFERENC|
00001800: 45 53 2E 20 D4 48 45 20 43 52 4F 53 53 2D 52 45 |ES. .HE CROSS-RE|
00001810: 46 45 52 2D 00 41 20 A4 01 99 22 45 4E 43 45 20 |FER-.A ..."ENCE |
00001820: 43 41 54 45 47 4F 52 49 45 53 20 57 49 4C 4C 20 |CATEGORIES WILL |
00001830: 42 45 20 44 49 53 50 4C 41 59 45 44 20 57 48 45 |BE DISPLAYED WHE|
00001840: 4E 00 6B 20 A6 01 99 22 CF 50 54 49 4F 4E 20 31 |N.k ...".PTION 1|
00001850: 20 49 4E 20 54 48 45 20 CD 45 4E 55 20 49 53 20 | IN THE .ENU IS |
00001860: 43 48 4F 53 45 4E 2E 20 D4 48 45 00 96 20 A8 01 |CHOSEN. .HE.. ..|
00001870: 99 22 43 52 4F 53 53 2D 52 45 46 45 52 45 4E 43 |."CROSS-REFERENC|
00001880: 45 20 54 49 54 4C 45 53 20 41 52 45 20 53 54 4F |E TITLES ARE STO|
00001890: 52 45 44 20 41 54 00 C4 20 AA 01 99 22 54 48 45 |RED AT.. ..."THE|
000018A0: 20 42 45 47 49 4E 4E 49 4E 47 20 4F 46 20 54 48 | BEGINNING OF TH|
000018B0: 45 20 50 52 4F 47 52 41 4D 20 41 4E 44 20 43 41 |E PROGRAM AND CA|
000018C0: 4E 20 42 45 00 EC 20 AC 01 99 22 45 41 53 49 4C |N BE.. ..."EASIL|
000018D0: 59 20 4D 4F 44 49 46 49 45 44 20 54 4F 20 53 55 |Y MODIFIED TO SU|
000018E0: 49 54 20 54 48 45 20 55 53 45 52 2E 00 1A 21 AE |IT THE USER...!.|
000018F0: 01 99 22 11 CE 45 57 20 C4 C1 D4 C1 20 53 54 41 |.."..EW .... STA|
00001900: 54 45 4D 45 4E 54 53 20 41 52 45 20 43 52 45 41 |TEMENTS ARE CREA|
00001910: 54 45 44 20 49 4E 20 54 48 45 00 43 21 B0 01 99 |TED IN THE.C!...|
00001920: 22 50 52 4F 47 52 41 4D 20 42 59 20 53 45 4C 45 |"PROGRAM BY SELE|
00001930: 43 54 49 4E 47 20 CF 50 54 49 4F 4E 20 33 2E 20 |CTING .PTION 3. |
00001940: D4 48 45 00 6C 21 B2 01 99 22 49 4E 53 54 52 55 |.HE.l!..."INSTRU|
00001950: 43 54 49 4F 4E 53 20 46 4F 52 20 43 52 45 41 54 |CTIONS FOR CREAT|
00001960: 49 4E 47 20 54 48 45 20 C4 41 54 41 00 9A 21 B4 |ING THE .ATA..!.|
00001970: 01 99 22 C2 41 53 45 20 43 41 4E 20 42 45 20 41 |..".ASE CAN BE A|
00001980: 43 43 45 53 53 45 44 20 46 52 4F 4D 20 54 48 41 |CCESSED FROM THA|
00001990: 54 20 52 4F 55 54 49 4E 45 2E 00 A3 21 B6 01 8D |T ROUTINE...!...|
000019A0: 34 36 32 00 C9 21 B8 01 99 22 93 22 A3 31 30 29 |462..!...".".10)|
000019B0: 22 9E 2A 2A 2A 20 12 C9 CE D3 D4 D2 D5 C3 D4 C9 |".*** ..........|
000019C0: CF CE D3 92 20 2A 2A 2A 22 00 F6 21 BA 01 99 22 |.... ***"..!..."|
000019D0: 9B 11 CF 4E 43 45 20 4D 4F 44 49 46 49 43 41 54 |...NCE MODIFICAT|
000019E0: 49 4F 4E 53 20 48 41 56 45 20 42 45 45 4E 20 4D |IONS HAVE BEEN M|
000019F0: 41 44 45 20 49 4E 00 21 22 BC 01 99 22 54 48 45 |ADE IN.!"..."THE|
00001A00: 20 C4 C1 D4 C1 20 53 54 41 54 45 4D 45 4E 54 53 | .... STATEMENTS|
00001A10: 2C 20 54 48 45 20 50 52 4F 47 52 41 4D 20 43 41 |, THE PROGRAM CA|
00001A20: 4E 00 4B 22 BE 01 99 22 54 48 45 4E 20 53 41 56 |N.K"..."THEN SAV|
00001A30: 45 20 41 20 43 4F 50 59 20 4F 46 20 49 54 53 45 |E A COPY OF ITSE|
00001A40: 4C 46 20 54 4F 20 44 49 53 4B 2E 00 77 22 C0 01 |LF TO DISK..w"..|
00001A50: 99 22 C9 46 20 59 4F 55 20 57 49 53 48 2C 20 54 |.".F YOU WISH, T|
00001A60: 48 45 20 50 52 45 56 49 4F 55 53 20 43 4F 50 59 |HE PREVIOUS COPY|
00001A70: 20 4F 46 20 54 48 45 00 A1 22 C2 01 99 22 50 52 | OF THE.."..."PR|
00001A80: 4F 47 52 41 4D 20 57 49 4C 4C 20 42 45 20 52 45 |OGRAM WILL BE RE|
00001A90: 4E 41 4D 45 44 2C 20 41 20 4E 45 57 20 43 4F 50 |NAMED, A NEW COP|
00001AA0: 59 00 CC 22 C4 01 99 22 53 41 56 45 44 20 41 4E |Y.."..."SAVED AN|
00001AB0: 44 20 56 45 52 49 46 49 45 44 2C 20 41 4E 44 20 |D VERIFIED, AND |
00001AC0: 54 48 45 20 4F 4C 44 20 43 4F 50 59 00 DD 22 C6 |THE OLD COPY..".|
00001AD0: 01 99 22 53 43 52 41 54 43 48 45 44 2E 00 E6 22 |.."SCRATCHED..."|
00001AE0: C7 01 8D 35 30 30 00 EF 22 C8 01 8D 34 36 32 00 |...500.."...462.|
00001AF0: F8 22 CA 01 89 33 33 32 00 FE 22 CC 01 8F 00 17 |."...332..".....|
00001B00: 23 CE 01 8F 20 2A 2A 2A 2A 2A 20 50 52 4F 4D 50 |#... ***** PROMP|
00001B10: 54 20 2A 2A 2A 2A 2A 00 1D 23 D0 01 8F 00 3A 23 |T *****..#....:#|
00001B20: D2 01 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
00001B30: 11 11 11 11 11 11 11 11 11 11 00 5F 23 D4 01 99 |..........._#...|
00001B40: A3 35 29 22 96 D0 52 45 53 53 20 12 D2 C5 D4 D5 |.5)"..RESS .....|
00001B50: D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 00 |... TO CONTINUE.|
00001B60: 78 23 D6 01 A1 5A 5A 24 3A 8B 5A 5A 24 B3 B1 C7 |x#...ZZ$:.ZZ$...|
00001B70: 28 31 33 29 A7 34 37 30 00 7E 23 D8 01 8E 00 84 |(13).470.~#.....|
00001B80: 23 DA 01 8F 00 A5 23 DC 01 8F 20 2A 2A 2A 20 4C |#.....#... *** L|
00001B90: 4F 41 44 20 41 4E 4F 54 48 45 52 20 49 4E 44 45 |OAD ANOTHER INDE|
00001BA0: 58 20 2A 2A 2A 00 AB 23 DE 01 8F 00 ED 23 E0 01 |X ***..#.....#..|
00001BB0: 85 22 93 11 11 9E C9 4E 44 45 58 20 59 45 41 52 |.".....NDEX YEAR|
00001BC0: 20 54 4F 20 42 45 20 4C 4F 41 44 45 44 20 20 2A | TO BE LOADED *|
00001BD0: 20 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D | .....|
00001BE0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 46 24 00 FD 23 |.........";F$..#|
00001BF0: E2 01 8B 46 24 B2 22 2A 22 A7 34 38 30 00 20 24 |...F$."*".480. $|
00001C00: E4 01 85 22 11 11 49 53 20 54 48 49 53 20 43 4F |..."..IS THIS CO|
00001C10: 52 52 45 43 54 A0 A0 59 9D 9D 9D 22 3B 5A 5A 24 |RRECT..Y...";ZZ$|
00001C20: 00 32 24 E6 01 8B 5A 5A 24 B3 B1 22 59 22 A7 34 |.2$...ZZ$.."Y".4|
00001C30: 38 30 00 56 24 E8 01 99 22 93 11 11 11 4C 4F 41 |80.V$..."....LOA|
00001C40: 44 22 3B C7 28 33 34 29 3B 46 24 3B C7 28 33 34 |D";.(34);F$;.(34|
00001C50: 29 3B 22 2C 38 22 00 66 24 EA 01 99 22 11 11 11 |);",8".f$..."...|
00001C60: 11 52 55 4E 13 22 00 81 24 EC 01 97 31 39 38 2C |.RUN."..$...198,|
00001C70: 32 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 |2:.631,13:.632,1|
00001C80: 33 00 87 24 EE 01 80 00 8D 24 F4 01 8F 00 B5 24 |3..$.....$.....$|
00001C90: F9 01 8F 20 2A 2A 2A 20 CD 4F 52 45 20 47 45 4E |... *** .ORE GEN|
00001CA0: 45 52 41 4C 20 49 4E 53 54 52 55 43 54 49 4F 4E |ERAL INSTRUCTION|
00001CB0: 53 20 2A 2A 2A 00 BB 24 FE 01 8F 00 06 25 03 02 |S ***..$.....%..|
00001CC0: 99 22 11 CD 41 47 41 5A 49 4E 45 20 C3 4F 44 45 |."..AGAZINE .ODE|
00001CD0: 20 CC 49 53 54 20 52 45 46 45 52 45 44 20 54 4F | .IST REFERED TO|
00001CE0: 20 49 4E 22 3A 99 22 49 54 45 4D 20 32 2C 20 43 | IN":."ITEM 2, C|
00001CF0: 41 4E 20 42 45 20 55 53 45 52 20 4D 4F 44 49 46 |AN BE USER MODIF|
00001D00: 49 45 44 20 42 59 00 36 25 08 02 99 22 43 48 41 |IED BY.6%..."CHA|
00001D10: 4E 47 49 4E 47 20 54 48 45 20 50 52 4F 47 52 41 |NGING THE PROGRA|
00001D20: 4D 20 49 4E 20 4C 49 4E 45 53 20 31 39 30 2D 31 |M IN LINES 190-1|
00001D30: 39 38 2E 22 3A 8E 00 61 25 58 02 99 22 C8 41 52 |98.":..a%X..".AR|
00001D40: 44 20 C3 4F 50 59 20 D2 45 51 55 49 52 45 44 3F |D .OPY .EQUIRED?|
00001D50: 20 20 28 C5 4E 54 45 52 20 59 20 4F 52 20 4E 29 | (.NTER Y OR N)|
00001D60: 22 00 76 25 62 02 A1 4A 46 24 3A 8B 4A 46 24 B2 |".v%b..JF$:.JF$.|
00001D70: 22 22 A7 36 31 30 00 86 25 67 02 8B 4A 46 24 B3 |"".610..%g..JF$.|
00001D80: B1 22 59 22 A7 8E 00 9C 25 6C 02 99 22 11 D0 52 |."Y"....%l.."..R|
00001D90: 49 4E 54 45 52 20 52 45 41 44 59 3F 00 B1 25 71 |INTER READY?..%q|
00001DA0: 02 A1 4A 46 24 3A 8B 4A 46 24 B2 22 22 A7 36 32 |..JF$:.JF$."".62|
00001DB0: 35 00 C8 25 76 02 8B 4A 46 24 B2 22 59 22 A7 4A |5..%v..JF$."Y".J|
00001DC0: 46 B2 31 3A 89 36 36 30 00 00 26 7B 02 99 22 93 |F.1:.660..&{..".|
00001DD0: C5 4E 54 45 52 20 12 59 92 20 49 46 20 50 52 49 |.NTER .Y. IF PRI|
00001DE0: 4E 54 45 52 20 52 45 41 44 59 2C 22 3A 99 22 4F |NTER READY,":."O|
00001DF0: 52 20 12 52 92 20 54 4F 20 52 45 54 55 52 4E 2E |R .R. TO RETURN.|
00001E00: 00 15 26 80 02 A1 4A 46 24 3A 8B 4A 46 24 B2 22 |..&...JF$:.JF$."|
00001E10: 22 A7 36 34 30 00 25 26 85 02 8B 4A 46 24 B2 22 |".640.%&...JF$."|
00001E20: 52 22 A7 20 8E 00 3C 26 8A 02 8B 4A 46 24 B2 22 |R". ..<&...JF$."|
00001E30: 59 22 A7 4A 46 B2 31 3A 89 36 36 30 00 45 26 8F |Y".JF.1:.660.E&.|
00001E40: 02 89 36 33 35 00 50 26 94 02 9F 34 2C 34 2C 37 |..635.P&...4,4,7|
00001E50: 00 57 26 98 02 98 34 00 88 26 99 02 98 34 2C C7 |.W&...4..&...4,.|
00001E60: 28 31 34 29 3B A3 37 29 22 2A 2A 2A 20 CD C1 C7 |(14);.7)"*** ...|
00001E70: C1 DA C9 CE C5 20 C6 C9 CC C5 20 C9 CE C4 C5 D8 |..... .... .....|
00001E80: 20 2A 2A 2A 22 3A 98 34 00 A1 26 9B 02 98 34 2C | ***":.4..&...4,|
00001E90: C7 28 32 37 29 3B C7 28 34 35 29 3B C7 28 31 29 |.(27);.(45);.(1)|
00001EA0: 3B 00 CA 26 9E 02 98 34 2C 22 20 20 20 20 C3 C1 |;..&...4," ..|
00001EB0: D4 C1 C7 CF D2 D9 3A 20 20 22 3B 49 3B 22 20 20 |......: ";I;" |
00001EC0: 22 3B 4D 24 28 49 29 3A 98 34 00 04 27 A3 02 98 |";M$(I):.4..'...|
00001ED0: 34 2C 22 20 20 20 20 D3 D5 C2 CA C5 C3 D4 22 3B |4," .......";|
00001EE0: A3 32 39 29 22 D3 CF D5 D2 C3 C5 22 3B A3 34 29 |.29)"......";.4)|
00001EF0: 22 C9 D3 D3 D5 C5 22 3B A3 33 29 22 D0 C1 C7 C5 |".....";.3)"....|
00001F00: 20 23 22 3B 00 1E 27 A5 02 98 34 2C 22 22 3B A3 | #";..'...4,"";.|
00001F10: 34 29 22 C3 D2 CF D3 D3 20 D2 C5 C6 2E 22 00 3D |4)"..... ....".=|
00001F20: 27 A8 02 98 34 2C C7 28 32 37 29 3B C7 28 34 35 |'...4,.(27);.(45|
00001F30: 29 3B C7 28 30 29 3A 41 46 B2 37 3A 8E 00 65 27 |);.(0):AF.7:..e'|
00001F40: BC 02 8B 4A 46 B2 31 A7 53 46 B2 36 36 AB 41 46 |...JF.1.SF.66.AF|
00001F50: 3A 81 43 48 B2 30 A4 53 46 3A 98 34 3A 82 43 48 |:.CH.0.SF:.4:.CH|
00001F60: 3A 53 53 B2 31 00 6B 27 C6 02 8E 00 79 27 20 03 |:SS.1.k'....y' .|
00001F70: 8B 4A 46 B3 B1 31 A7 20 8E 00 9E 27 25 03 58 28 |.JF..1. ...'%.X(|
00001F80: 32 29 B2 C3 28 42 24 29 3A 58 28 33 29 B2 C3 28 |2)..(B$):X(3)..(|
00001F90: 43 24 29 3A 58 28 34 29 B2 C3 28 44 24 29 00 C2 |C$):X(4)..(D$)..|
00001FA0: 27 2A 03 58 28 31 29 B2 C3 28 41 24 29 3A 8B 58 |'*.X(1)..(A$):.X|
00001FB0: 28 31 29 B1 33 35 A7 41 24 B2 C8 28 41 24 2C 33 |(1).35.A$..(A$,3|
00001FC0: 35 29 00 DA 27 34 03 8B 43 31 B2 49 B0 43 32 B2 |5)..'4..C1.I.C2.|
00001FD0: 49 B0 43 33 B2 49 A7 38 33 35 00 E0 27 3E 03 8E |I.C3.I.835..'>..|
00001FE0: 00 1E 28 43 03 41 46 B2 41 46 AA 31 3A 98 34 2C |..(C.AF.AF.1:.4,|
00001FF0: 22 20 20 20 20 22 3B 41 24 3B A3 33 36 AB 58 28 |" ";A$;.36.X(|
00002000: 31 29 29 42 24 3B A3 31 30 AB 58 28 32 29 29 43 |1))B$;.10.X(2))C|
00002010: 24 3B A3 31 30 AB 58 28 33 29 29 44 24 3B 00 41 |$;.10.X(3))D$;.A|
00002020: 28 48 03 98 34 2C 22 22 3B A3 36 AB 58 28 34 29 |(H..4,"";.6.X(4)|
00002030: 29 43 31 3B 22 20 22 3B 43 32 3B 22 20 22 3B 43 |)C1;" ";C2;" ";C|
00002040: 33 00 50 28 4D 03 8B 41 46 B2 36 32 A7 38 35 35 |3.P(M..AF.62.855|
00002050: 00 56 28 52 03 8E 00 69 28 57 03 81 43 46 B2 30 |.V(R...i(W..CF.0|
00002060: A4 33 3A 98 34 3A 82 43 46 00 72 28 5C 03 8D 36 |.3:.4:.CF.r(\..6|
00002070: 36 35 00 78 28 61 03 8E 00 7E 28 DE 03 8F 00 9F |65.x(a...~(.....|
00002080: 28 E1 03 8F 20 2A 2A 2A 2A 20 44 41 54 41 20 53 |(... **** DATA S|
00002090: 54 41 52 54 53 20 48 45 52 45 20 2A 2A 2A 2A 00 |TARTS HERE ****.|
000020A0: A5 28 E4 03 8F 00 AE 28 E8 03 83 20 20 30 00 D4 |.(.....(... 0..|
000020B0: 28 0F 27 83 20 30 2C 30 2C 30 2C 22 22 2C 22 22 |(.'. 0,0,0,"",""|
000020C0: 2C 22 22 2C 22 22 3A 8F 20 45 4E 44 20 4F 46 20 |,"","":. END OF |
000020D0: 46 49 4C 45 00 00 00 |FILE... |
..#....53280,0:.53281,0:."..";G(14).N...
." *******************************.Y
...." *
*......" * .MAGAZINE FILE INDEX.
*.Q...." * FOR THE COMMODORE
64 *......" * AND DISK DRIVE
. *.'...." *
*.R...." * DON WHITE
*.}...." * 47 ARIEL
COURT *......" * NEPEA
N, ONTARIO *.S...." * K2
H 8J1 *......" *
613-829-2082 *.)...."
* *.T...."
* *...
.." * REVISED: 03 FEB. 84 *.
....." * PRINTER FUNCTION ADDED
*.U...." *
*......" * JAMES K. FOSTER
*.+...." * BOX 185
*.V...." * BELLA COOLA, B.
C. *......" * V0T 1C0
*......" *
*.W...." ********
***********************............ 468.
.."..M$(20)...$.M$(1)."65XX MACHINE LANG
UAGE".1.&.M$(2)."65XX TECHNIQUES".J.(.M$
(3)."C64 PROGRAMS".E.*.M$(4)."C64 TECHNI
QUES".W.,.M$(5)."GAMES".....M$(6)."GRAPH
ICS"...0.M$(7)."MATHEMATICS"...2.M$(8)."
BUSINESS".W.4.M$(9)."BASIC PROGRAMMING".
..6.M$(10)."COMMUNICATIONS"...8.M$(11)."
HARDWARE"...:.M$(12)."SOFTWARE".6.<.M$(1
3)."LANGUAGES".M.>.M$(14)."UTILITIES".F.
@.M$(15)."SIMULATIONS"...B.M$(16)."MISCE
LLANEOUS"...D.M$(17)."APPLICATIONS"...F.
M$(18)."MUSIC".E.H.M$(19)."EDUCATION".X.
J.M$(20)."P-500"...L.....N..332...P.....
R.. **** INDEX FILE SEARCH ****...T.....
V.L.0.C.X...5)"..CATEGORIES AND CODES AR
E:..O.Z..I.1.20._.\.I$." ".D(I)...^...5)
G(30)I(I$,2)". "G(158)M$(I)...`.....B..
"...WHICH CATEGORY. ...";I$:I.E(I$).N.
D..I.1.I.20.."...":.98...E..JF..1.."....
":.600...F..SS.1.SS.0:.665...G..138:. FO
RMAT SCREEN...H..:. N.2.J..118:. READ DA
TA.M.L..H(ZZ$,1)."Y"..700:.82.Y.M. 4:JF.
0.B.N..332.H.P.....R.. ****** READ DAT
A ******...T.....V..C1,C2,C3,A$,B$,C$,D$
...X..A$."".130...Y..800...Z.A$.H(A$,22)
:. MAKE SURE STRING FITS SCREEN FORMAT.&
.|..C1.I.C2.I.C3.I..A$.23)B$.30)C$.35)D$
:L.L.1.=.~..L.17..164:. PAUSE.F....118.`
...."...ANOTHER CATEGORY.}....".(Y OR N)
. .Y...";ZZ$.................. **** FO
RMAT SCREEN ****............"........CAT
EGORY:".15)G(158)"."M$(I)"."......".....
....................................;...
."...SUBJECT".23)"SOURCE".30)"DATE".35)"
PG#.O....J.0.38:.".";:..Y...."..".{.....
22)".".29)".".34)".".38)".".......22)"."
.29)".".34)".".38)".":."..M....J.1.20:..
22)".".29)".".34)".".38)".":......."....
....................................";..
. .."....":........2.... ***** CLEAR FO
RMAT *****.8.....M...."..PRESS .SPACE. T
O CON-":."TINUE, .@. TO EXIT.......ZZ$:.
ZZ$."".170......ZZ$."@".338......"....".
.....J.1.20......".
. . . .":......L.0:."....":..
........... ***** MAGAZINE CODE *****..
.....;....".".13)"..MAGAZINE CODES......
."... CC CREATIVE COMPUTING":."
PC PERSONAL COMPUTING......" KB
KILOBAUD MICROCOMPUTING":." BYTE
BYTE...B.." MICRO MICRO":." TRA
NS TRANSACTOR...D.." INTAGE INTERFA
CE AGE".).F.." COMP COMPUTE!.2.H..4
62.;.J..332.A.L...].N.. *** ADD MATERIA
L ***.C.P.....R..".".11)".*** .CREATE DA
TA. ***"...T.. PRINT".."TAB(9)".OP MODES
& ENTRY CODES...V.."..".11)".ENTER NEW
DATA. E"...X..".".11)".HELP.
H".#.Z..".".11)".EXIT.
\".I....:.:.". YOUR CHOICE ?
".N....A$:.A$.."E".A$.."H".A$.."\".222.~
....A$."E".232......A$."H".364......338.
........... *** ENTER DATA ***.......T.
..DN$."............".....X..(0):.X.0.X.6
5535..(0).#...."...DATA ENTRY MODE. -"X"
BYTES FREE":.DN$".".A...."..".4)"..C1,C2
,C3,"G(34)"TITLE"G(34)","G(34)"REF"G(34)
;.T....".,DATE,PAGE"......".............
..........".7)"..PRESS '\' TO EXIT THIS
MODE.".I....A$:.A$."".246......A$.G(20).
C(R$).0.246......A$.G(20).C(R$).0.R$.H(R
$,C(R$).1):.DN$R$A$:A$."".,.... A$.G(13)
.270.:....A$."\"...U...R$.R$.A$:.C(R$).6
5.268.^....DN$......". .DATA ENTRY HAS
EXCEEDED 65 CHARACTERS.......". P
LEASE RE-ENTER DATA"......462.L...R$."":
.238......DN$R$".":.246......:.N:N.N.1:L
N.1000.N......"...."LN"DATA "R$."...."10
00 DATA "N.5...."GOTO232":."..X....198,3
:.631,13:.632,13:.633,13.^.....{....
**** SAVE FILE ****............"..ARE YO
U REPLACING A PREVIOUS VERSION Y...";ZZ
$... ..".....FILE NAME ..
..............";F$..."..F$." ".288.*.$..
"........IS THIS CORRECT Y...";A$.;.&..
A$.."Y".288.A.(.."..WHICH DRIVE 0...";D
$:D.E(D$).Z.*..D.0.D.1.."...":.296...,..
15,8,15:.15,"I".D$......ZZ$.."Y".308...0
..15,"R".D$.":TEMP=".F$.R.1..15,E,E$,E1,
E2...2..E.19.."..."E$:."..FILE NOT SAVED
":.462:.318...4..D$.":".F$,8.,.6.."...VE
RIFYING. "F$.7.8.."*",8.I.:..ST..64. 15:
..I.<..ZZ$."Y"..15,"S".D$.":TEMP".V.>. 1
5:.332.|.@.....B.. ****** EXIT *****...D
.....F.."....H.....J...O.L.. *** MAIN PR
OGRAM BLOCK ***...M..53280,0:.53281,0...
N.....P..G(14)...R..".".9)".*** .MAGAZIN
E INDEX. ***..".;.T...9)".1.. SEARCH FI
LE".].V...9)".2.. LIST MAGAZINE CODE.Y.
X...9)".3.. ADD MATERIAL...Z...9)".4..
SAVE FILE...\...9)".5.. INSTRUCTIONS.P
.^...9)".6.. LOAD ANOTHER INDEX...`...9
)".7.. EXIT PROGRAM...B...5)".. .YOU
R CHOICE ?...D..ZZ$:.ZZ$."".356.E.F.ZZ.E
(ZZ$):.ZZ.1.ZZ.7.."...";:.354.H.H..ZZ.82
,184,206,282,404,476,322.N.J.....L.. **
** HELP FUNCTION ****...N.....P..".".10
)".*** .INSTRUCTIONS. ***"...R..".. THE
DATA MUST BE ENTERED IN 7 FIELDS....T..
"THE FORMAT FOR THE FIELDS IS:.I.V.."..
.C1,C2,C3,"G(34)"TITLE"G(34)","G(34)"R
EF"G(34);.\.X..".,DATE,PAGE"...Z.."..WHE
RE C1,C2,C3 ARE CROSS REFERENCE...|.."VA
LUES AS PER THE CATEGORY LIST..D.~..".AS
AN EXAMPLE:......".. .1,4,0,"G(34)"PE
TBUG"G(34)","G(34);......"COMP"G(34)",81
07,132".>...."..EACH FIELD MUST BE FOLLO
WED BY A COMMA.L...."AND THE ARTICLE AND
MAGAZINE NAMES MUST......"BE PRECEEDED
AND FOLLOWED BY QUOTATION......"MARKS..Q
....".USE '0' FOR NULL CROSS-REFERENCES.
"...... 462......206............ *** GE
NERAL INSTRUCTIONS ***.......:....".".10
)".*** .INSTRUCTIONS. ***".I...."...THIS
PROGRAM ALLOWS THE USER TO STORE......"
INFORMATION RELATING TO MAGAZINE......"A
RTICLES IN DATA STATEMENTS WITHIN THE...
.."PROGRAM. EACH ARTICLE CAN HAVE UP TO
.. ..."3 CROSS-REFERENCES. THE CROSS-RE
FER-.A ..."ENCE CATEGORIES WILL BE DISPL
AYED WHEN.K ..."OPTION 1 IN THE MENU IS
CHOSEN. THE.. ..."CROSS-REFERENCE TITLES
ARE STORED AT.D ..."THE BEGINNING OF TH
E PROGRAM AND CAN BE.. ..."EASILY MODIFI
ED TO SUIT THE USER...!...".NEW DATA STA
TEMENTS ARE CREATED IN THE.C!..."PROGRAM
BY SELECTING OPTION 3. THE.L!..."INSTRU
CTIONS FOR CREATING THE DATA..!..."BASE
CAN BE ACCESSED FROM THAT ROUTINE...!...
462.I!...".".10)".*** .INSTRUCTIONS. ***
"..!..."..ONCE MODIFICATIONS HAVE BEEN M
ADE IN.!"..."THE DATA STATEMENTS, THE PR
OGRAM CAN.K"..."THEN SAVE A COPY OF ITSE
LF TO DISK..W"..."IF YOU WISH, THE PREVI
OUS COPY OF THE.."B.."PROGRAM WILL BE RE
NAMED, A NEW COPY.L"D.."SAVED AND VERIFI
ED, AND THE OLD COPY.."F.."SCRATCHED..."
G..500.."H..462.."J..332.."L....#N.. ***
** PROMPT *****..#P...:#R.."............
..........._#T...5)".PRESS .RETURN. TO C
ONTINUE.X#V..ZZ$:.ZZ$..G(13).470.~#X....
#Z....#... *** LOAD ANOTHER INDEX ***..#
.....#..."....INDEX YEAR TO BE LOADED *
..............";F$..#...F$."*
".480. $..."..IS THIS CORRECT Y...";ZZ$
.2$...ZZ$.."Y".480.V$..."....LOAD";G(34)
;F$;G(34);",8".F$..."....RUN."..$...198,
2:.631,13:.632,13..$.....$.....$... ***
MORE GENERAL INSTRUCTIONS ***..$.....%..
.".MAGAZINE CODE LIST REFERED TO IN":."I
TEM 2, CAN BE USER MODIFIED BY.6%..."CHA
NGING THE PROGRAM IN LINES 190-198.":..A
%X.."HARD COPY REQUIRED? (ENTER Y OR N)
".V%B..JF$:.JF$."".610..%G..JF$.."Y"....
%L..".PRINTER READY?..%Q..JF$:.JF$."".62
5.H%V..JF$."Y".JF.1:.660..&{..".ENTER .Y
. IF PRINTER READY,":."OR .R. TO RETURN.
..&...JF$:.JF$."".640.%&...JF$."R". ..<&
...JF$."Y".JF.1:.660.E&...635.P&...4,4,7
.W&...4..&...4,G(14);.7)"*** MAGAZINE FI
LE INDEX ***":.4..&...4,G(27);G(45);G(1)
;.J&...4," CATAGORY: ";I;" ";M$(I):
.4..'...4," SUBJECT";.29)"SOURCE";.4)
"ISSUE";.3)"PAGE #";..'...4,"";.4)"CROSS
REF.".='...4,G(27);G(45);G(0):AF.7:..E'
...JF.1.SF.66.AF:.CH.0.SF:.4:.CH:SS.1.K'
F...Y' ..JF..1. ...'%.X(2).C(B$):X(3).C(
C$):X(4).C(D$).B'*.X(1).C(A$):.X(1).35.A
$.H(A$,35).Z'4..C1.I.C2.I.C3.I.835..'>..
..(C.AF.AF.1:.4," ";A$;.36.X(1))B$;.1
0.X(2))C$;.10.X(3))D$;.A(H..4,"";.6.X(4)
)C1;" ";C2;" ";C3.P(M..AF.62.855.V(R...I
(W..CF.0.3:.4:.CF.R(\..665.X(A...~(.....
(... **** DATA STARTS HERE ****..(.....(
... 0.T(.'. 0,0,0,"","","","":. END OF
FILE...
> CLICK IMAGE PREVIEW FOR FULL MODAL