MAG INDEX.C
FILE INFORMATION
FILENAME(S): MAG INDEX.C
FILE TYPE(S): PRG
FILE SIZE: 6.9K
FIRST SEEN: 2025-10-20 14:31:52
APPEARS ON: 3 disk(s)
FILE HASH
4718e9a622409eb0dbf7248e62bbc245c3815677903d93edd1eb7d3461f45c0e
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | MAG INDEX.C | PRG | Treasure Chest - Klaus Der Suhler | 26 | 1 | DOWNLOAD FILE |
| A NWENDER | MAG INDEX.C | PRG | Treasure Chest - Wolfgang Rauprich | 7 | 9 | DOWNLOAD FILE |
| FREESOFT DISK NR | MAG INDEX.C | PRG | Treasure Chest - Wolfgang Rauprich | 7 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..'.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 08 0C 00 8F 20 2A 20 |*******.M.... * |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 73 08 | *.s.|
00000050: 0E 00 8F 20 2A 20 20 20 20 4D 41 47 41 5A 49 4E |... * MAGAZIN|
00000060: 45 20 49 4E 44 45 58 20 50 52 47 4D 20 20 20 20 |E INDEX PRGM |
00000070: 20 20 2A 00 99 08 0F 00 8F 20 2A 20 20 20 20 46 | *...... * F|
00000080: 4F 52 20 54 48 45 20 43 4F 4D 4D 4F 44 4F 52 45 |OR THE COMMODORE|
00000090: 20 36 34 20 20 20 20 20 2A 00 BF 08 10 00 8F 20 | 64 *...... |
000000A0: 2A 20 20 20 20 41 4E 44 20 44 49 53 4B 20 44 52 |* AND DISK DR|
000000B0: 49 56 45 2E 20 20 20 20 20 20 20 20 20 20 2A 00 |IVE. *.|
000000C0: E5 08 11 00 8F 20 2A 20 20 20 20 20 20 20 20 20 |..... * |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 20 20 2A 00 0B 09 12 00 8F 20 2A 20 44 4F | *...... * DO|
000000F0: 4E 20 57 48 49 54 45 20 20 20 20 20 20 20 20 20 |N WHITE |
00000100: 20 20 20 20 20 20 20 20 20 20 2A 00 31 09 14 00 | *.1...|
00000110: 8F 20 2A 20 34 37 20 41 52 49 45 4C 20 43 4F 55 |. * 47 ARIEL COU|
00000120: 52 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |RT |
00000130: 2A 00 57 09 16 00 8F 20 2A 20 4E 45 50 45 41 4E |*.W.... * NEPEAN|
00000140: 2C 20 4F 4E 54 41 52 49 4F 20 20 20 20 20 20 20 |, ONTARIO |
00000150: 20 20 20 20 20 20 2A 00 7D 09 18 00 8F 20 2A 20 | *.}.... * |
00000160: 4B 32 48 20 38 4A 31 20 20 20 20 20 20 20 20 20 |K2H 8J1 |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 A3 09 | *...|
00000180: 1A 00 8F 20 2A 20 36 31 33 2D 38 32 39 2D 32 30 |... * 613-829-20|
00000190: 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |82 |
000001A0: 20 20 2A 00 C9 09 1C 00 8F 20 2A 20 20 20 20 20 | *...... * |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 2A 00 EF 09 1E 00 8F 20 | *...... |
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000001F0: F5 09 20 00 8F 00 01 0A 22 00 86 4D 24 28 32 30 |.. ....."..M$(20|
00000200: 29 00 23 0A 24 00 4D 24 28 31 29 B2 22 36 35 58 |).#.$.M$(1)."65X|
00000210: 58 20 CD 41 43 48 49 4E 45 20 CC 41 4E 47 55 41 |X .ACHINE .ANGUA|
00000220: 47 45 22 00 3F 0A 26 00 4D 24 28 32 29 B2 22 36 |GE".?.&.M$(2)."6|
00000230: 35 58 58 20 D4 45 43 48 4E 49 51 55 45 53 22 00 |5XX .ECHNIQUES".|
00000240: 58 0A 28 00 4D 24 28 33 29 B2 22 C3 36 34 20 D0 |X.(.M$(3).".64 .|
00000250: 52 4F 47 52 41 4D 53 22 00 73 0A 2A 00 4D 24 28 |ROGRAMS".s.*.M$(|
00000260: 34 29 B2 22 C3 36 34 20 D4 45 43 48 4E 49 51 55 |4).".64 .ECHNIQU|
00000270: 45 53 22 00 85 0A 2C 00 4D 24 28 35 29 B2 22 C7 |ES"...,.M$(5).".|
00000280: 41 4D 45 53 22 00 9A 0A 2E 00 4D 24 28 36 29 B2 |AMES".....M$(6).|
00000290: 22 C7 52 41 50 48 49 43 53 22 00 B2 0A 30 00 4D |".RAPHICS"...0.M|
000002A0: 24 28 37 29 B2 22 CD 41 54 48 45 4D 41 54 49 43 |$(7).".ATHEMATIC|
000002B0: 53 22 00 C7 0A 32 00 4D 24 28 38 29 B2 22 C2 55 |S"...2.M$(8).".U|
000002C0: 53 49 4E 45 53 53 22 00 E5 0A 34 00 4D 24 28 39 |SINESS"...4.M$(9|
000002D0: 29 B2 22 C2 41 53 49 43 20 D0 52 4F 47 52 41 4D |).".ASIC .ROGRAM|
000002E0: 4D 49 4E 47 22 00 01 0B 36 00 4D 24 28 31 30 29 |MING"...6.M$(10)|
000002F0: B2 22 C3 4F 4D 4D 55 4E 49 43 41 54 49 4F 4E 53 |.".OMMUNICATIONS|
00000300: 22 00 17 0B 38 00 4D 24 28 31 31 29 B2 22 C8 41 |"...8.M$(11).".A|
00000310: 52 44 57 41 52 45 22 00 2D 0B 3A 00 4D 24 28 31 |RDWARE".-.:.M$(1|
00000320: 32 29 B2 22 D3 4F 46 54 57 41 52 45 22 00 44 0B |2).".OFTWARE".D.|
00000330: 3C 00 4D 24 28 31 33 29 B2 22 CC 41 4E 47 55 41 |<.M$(13).".ANGUA|
00000340: 47 45 53 22 00 5B 0B 3E 00 4D 24 28 31 34 29 B2 |GES".[.>.M$(14).|
00000350: 22 D5 54 49 4C 49 54 49 45 53 22 00 74 0B 40 00 |".TILITIES".t.@.|
00000360: 4D 24 28 31 35 29 B2 22 D3 49 4D 55 4C 41 54 49 |M$(15).".IMULATI|
00000370: 4F 4E 53 22 00 8F 0B 42 00 4D 24 28 31 36 29 B2 |ONS"...B.M$(16).|
00000380: 22 CD 49 53 43 45 4C 4C 41 4E 45 4F 55 53 22 00 |".ISCELLANEOUS".|
00000390: A9 0B 44 00 4D 24 28 31 37 29 B2 22 C1 50 50 4C |..D.M$(17).".PPL|
000003A0: 49 43 41 54 49 4F 4E 53 22 00 BC 0B 46 00 4D 24 |ICATIONS"...F.M$|
000003B0: 28 31 38 29 B2 22 CD 55 53 49 43 22 00 D3 0B 48 |(18).".USIC"...H|
000003C0: 00 4D 24 28 31 39 29 B2 22 C5 44 55 43 41 54 49 |.M$(19).".DUCATI|
000003D0: 4F 4E 22 00 E6 0B 4A 00 4D 24 28 32 30 29 B2 22 |ON"...J.M$(20)."|
000003E0: D0 2D 35 30 30 22 00 EC 0B 4C 00 8F 00 F5 0B 4E |.-500"...L.....N|
000003F0: 00 89 33 33 32 00 FB 0B 50 00 8F 00 1D 0C 52 00 |..332...P.....R.|
00000400: 8F 20 2A 2A 2A 2A 20 49 4E 44 45 58 20 46 49 4C |. **** INDEX FIL|
00000410: 45 20 53 45 41 52 43 48 20 2A 2A 2A 2A 00 23 0C |E SEARCH ****.#.|
00000420: 54 00 8F 00 2B 0C 56 00 4C B2 30 00 51 0C 58 00 |T...+.V.L.0.Q.X.|
00000430: 99 A3 35 29 22 93 9E C3 41 54 45 47 4F 52 49 45 |..5)"...ATEGORIE|
00000440: 53 20 41 4E 44 20 43 4F 44 45 53 20 41 52 45 3A |S AND CODES ARE:|
00000450: 11 00 5D 0C 5A 00 81 49 B2 31 A4 32 30 00 6D 0C |..].Z..I.1.20.m.|
00000460: 5C 00 49 24 B2 22 20 22 AA C4 28 49 29 00 92 0C |\.I$." "..(I)...|
00000470: 5E 00 99 A3 35 29 C7 28 33 30 29 C9 28 49 24 2C |^...5).(30).(I$,|
00000480: 32 29 22 2E 20 20 22 C7 28 31 35 38 29 4D 24 28 |2)". ".(158)M$(|
00000490: 49 29 00 98 0C 60 00 82 00 C3 0C 62 00 85 22 11 |I)...`.....b..".|
000004A0: 12 1E D7 48 49 43 48 20 43 41 54 45 47 4F 52 59 |...HICH CATEGORY|
000004B0: 92 20 20 A0 9D 9D 9D 22 3B 49 24 3A 49 B2 C5 28 |. ....";I$:I..(|
000004C0: 49 24 29 00 DC 0C 64 00 8B 49 B3 31 B0 49 B1 32 |I$)...d..I.1.I.2|
000004D0: 30 A7 99 22 91 91 91 22 3A 89 39 38 00 F5 0C 66 |0.."...":.98...f|
000004E0: 00 8D 31 33 38 3A 8F 20 46 4F 52 4D 41 54 20 53 |..138:. FORMAT S|
000004F0: 43 52 45 45 4E 00 FF 0C 68 00 8C 3A 87 20 4E 00 |CREEN...h..:. N.|
00000500: 14 0D 6A 00 8D 31 31 38 3A 8F 20 52 45 41 44 20 |..j..118:. READ |
00000510: 44 41 54 41 00 29 0D 6C 00 8B C8 28 5A 5A 24 2C |DATA.).l...(ZZ$,|
00000520: 31 29 B2 22 59 22 A7 38 32 00 32 0D 6E 00 89 33 |1)."Y".82.2.n..3|
00000530: 33 32 00 38 0D 70 00 8F 00 58 0D 72 00 8F 20 20 |32.8.p...X.r.. |
00000540: 20 2A 2A 2A 2A 2A 2A 20 52 45 41 44 20 44 41 54 | ****** READ DAT|
00000550: 41 20 2A 2A 2A 2A 2A 2A 00 5E 0D 74 00 8F 00 78 |A ******.^.t...x|
00000560: 0D 76 00 87 43 31 2C 43 32 2C 43 33 2C 41 24 2C |.v..C1,C2,C3,A$,|
00000570: 42 24 2C 43 24 2C 44 24 00 87 0D 78 00 8B 41 24 |B$,C$,D$...x..A$|
00000580: B2 22 22 A7 31 33 30 00 BD 0D 7A 00 41 24 B2 C8 |."".130...z.A$..|
00000590: 28 41 24 2C 32 32 29 3A 8F 20 4D 41 4B 45 20 53 |(A$,22):. MAKE S|
000005A0: 55 52 45 20 53 54 52 49 4E 47 20 46 49 54 53 20 |URE STRING FITS |
000005B0: 53 43 52 45 45 4E 20 46 4F 52 4D 41 54 00 ED 0D |SCREEN FORMAT...|
000005C0: 7C 00 8B 43 31 B2 49 B0 43 32 B2 49 B0 43 33 B2 ||..C1.I.C2.I.C3.|
000005D0: 49 A7 99 41 24 A3 32 33 29 42 24 A3 33 30 29 43 |I..A$.23)B$.30)C|
000005E0: 24 A3 33 35 29 44 24 3A 4C B2 4C AA 31 00 04 0E |$.35)D$:L.L.1...|
000005F0: 7E 00 8B 4C B2 31 37 A7 8D 31 36 34 3A 8F 20 50 |~..L.17..164:. P|
00000600: 41 55 53 45 00 0D 0E 80 00 89 31 31 38 00 27 0E |AUSE......118.'.|
00000610: 82 00 99 22 11 12 96 C1 4E 4F 54 48 45 52 20 43 |..."....NOTHER C|
00000620: 41 54 45 47 4F 52 59 00 44 0E 84 00 85 22 12 28 |ATEGORY.D....".(|
00000630: 59 20 4F 52 20 4E 29 92 20 20 9E 59 9D 9D 9D 22 |Y OR N). .Y..."|
00000640: 3B 5A 5A 24 00 4A 0E 86 00 8E 00 50 0E 88 00 8F |;ZZ$.J.....P....|
00000650: 00 6F 0E 8A 00 8F 20 20 2A 2A 2A 2A 20 46 4F 52 |.o.... **** FOR|
00000660: 4D 41 54 20 53 43 52 45 45 4E 20 2A 2A 2A 2A 00 |MAT SCREEN ****.|
00000670: 75 0E 8C 00 8F 00 A3 0E 8E 00 99 22 93 1D 1D 1D |u.........."....|
00000680: 1D 1D 1D 1E C3 41 54 45 47 4F 52 59 3A 22 A3 31 |.....ATEGORY:".1|
00000690: 35 29 C7 28 31 35 38 29 22 12 22 4D 24 28 49 29 |5).(158)"."M$(I)|
000006A0: 22 92 22 00 D2 0E 90 00 99 22 1E C0 C0 C0 C0 C0 |"."......"......|
000006B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000006C0: C0 B2 C0 C0 C0 C0 C0 C0 B2 C0 C0 C0 C0 B2 C0 C0 |................|
000006D0: C0 AE 00 02 0F 92 00 99 22 13 11 11 D3 D5 C2 CA |........".......|
000006E0: C5 C3 D4 22 A3 32 33 29 22 D3 CF D5 D2 C3 C5 22 |...".23)"......"|
000006F0: A3 33 30 29 22 C4 C1 D4 C5 22 A3 33 35 29 22 D0 |.30)"....".35)".|
00000700: C7 23 00 16 0F 94 00 81 4A B2 30 A4 33 38 3A 99 |.#......J.0.38:.|
00000710: 22 C0 22 3B 3A 82 00 20 0F 96 00 99 22 13 11 22 |".";:.. ....".."|
00000720: 00 42 0F 98 00 99 A3 32 32 29 22 DD 22 A3 32 39 |.B.....22)".".29|
00000730: 29 22 DD 22 A3 33 34 29 22 DD 22 A3 33 38 29 22 |)".".34)".".38)"|
00000740: DD 22 00 68 0F 9A 00 99 A3 32 32 29 22 DB 22 A3 |.".h.....22)".".|
00000750: 32 39 29 22 DB 22 A3 33 34 29 22 DB 22 A3 33 38 |29)".".34)".".38|
00000760: 29 22 B3 22 3A 99 22 91 00 94 0F 9C 00 81 4A B2 |)".":.".......J.|
00000770: 31 A4 32 30 3A 99 A3 32 32 29 22 DD 22 A3 32 39 |1.20:..22)".".29|
00000780: 29 22 DD 22 A3 33 34 29 22 DD 22 A3 33 38 29 22 |)".".34)".".38)"|
00000790: DD 22 3A 82 00 C5 0F 9E 00 99 22 C0 C0 C0 C0 C0 |.":.......".....|
000007A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000007B0: C0 B1 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 B1 C0 C0 |................|
000007C0: C0 BD 9B 22 3B 00 D3 0F A0 00 99 22 13 11 11 11 |...";......"....|
000007D0: 22 3A 8E 00 D9 0F A2 00 8F 00 F9 0F A4 00 8F 20 |":............. |
000007E0: 20 2A 2A 2A 2A 2A 20 43 4C 45 41 52 20 46 4F 52 | ***** CLEAR FOR|
000007F0: 4D 41 54 20 2A 2A 2A 2A 2A 00 FF 0F A6 00 8F 00 |MAT *****.......|
00000800: 34 10 A8 00 99 22 11 96 D0 52 45 53 53 20 12 53 |4...."...RESS .S|
00000810: 50 41 43 45 92 20 54 4F 20 43 4F 4E 2D 22 3A 99 |PACE. TO CON-":.|
00000820: 22 54 49 4E 55 45 2C 20 12 40 92 20 54 4F 20 45 |"TINUE, .@. TO E|
00000830: 58 49 54 2E 00 49 10 AA 00 A1 5A 5A 24 3A 8B 5A |XIT..I....ZZ$:.Z|
00000840: 5A 24 B2 22 22 A7 31 37 30 00 5A 10 AC 00 8B 5A |Z$."".170.Z....Z|
00000850: 5A 24 B2 22 40 22 A7 33 33 38 00 66 10 AE 00 99 |Z$."@".338.f....|
00000860: 22 13 11 11 11 22 00 72 10 B0 00 81 4A B2 31 A4 |"....".r....J.1.|
00000870: 32 30 00 A4 10 B2 00 99 22 1E 20 20 20 20 20 20 |20......". |
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000890: DD 20 20 20 20 20 20 DD 20 20 20 20 DD 20 20 20 |. . . |
000008A0: 9B 22 3A 82 00 B6 10 B4 00 4C B2 30 3A 99 22 13 |.":......L.0:.".|
000008B0: 11 11 11 22 3A 8E 00 BC 10 B6 00 8F 00 DD 10 B8 |...":...........|
000008C0: 00 8F 20 20 2A 2A 2A 2A 2A 20 4D 41 47 41 5A 49 |.. ***** MAGAZI|
000008D0: 4E 45 20 43 4F 44 45 20 2A 2A 2A 2A 2A 00 E3 10 |NE CODE *****...|
000008E0: BA 00 8F 00 02 11 BC 00 99 22 93 22 A3 31 33 29 |.........".".13)|
000008F0: 22 12 9E CD C1 C7 C1 DA C9 CE C5 20 C3 CF C4 C5 |".......... ....|
00000900: D3 9B 00 4A 11 BE 00 99 22 11 11 11 20 20 20 C3 |...J...."... .|
00000910: C3 20 20 20 20 20 20 C3 52 45 41 54 49 56 45 20 |. .REATIVE |
00000920: C3 4F 4D 50 55 54 49 4E 47 22 3A 99 22 20 20 20 |.OMPUTING":." |
00000930: D0 C3 20 20 20 20 20 20 D0 45 52 53 4F 4E 41 4C |.. .ERSONAL|
00000940: 20 C3 4F 4D 50 55 54 49 4E 47 00 86 11 C0 00 99 | .OMPUTING......|
00000950: 22 20 20 20 CB C2 20 20 20 20 20 20 CB 49 4C 4F |" .. .ILO|
00000960: 42 41 55 44 20 CD 49 43 52 4F 43 4F 4D 50 55 54 |BAUD .ICROCOMPUT|
00000970: 49 4E 47 22 3A 99 22 20 20 20 C2 D9 D4 C5 20 20 |ING":." .... |
00000980: 20 20 C2 D9 D4 C5 00 B6 11 C2 00 99 22 20 20 20 | .........." |
00000990: CD C9 C3 D2 CF 20 20 20 CD C9 C3 D2 CF 22 3A 99 |..... .....":.|
000009A0: 22 20 20 20 D4 D2 C1 CE D3 20 20 20 D4 52 41 4E |" ..... .RAN|
000009B0: 53 41 43 54 4F 52 00 D6 11 C4 00 99 22 20 20 20 |SACTOR......" |
000009C0: C9 CE D4 C1 C7 C5 20 20 C9 4E 54 45 52 46 41 43 |...... .NTERFAC|
000009D0: 45 20 C1 47 45 22 00 F0 11 C6 00 99 22 20 20 20 |E .GE"......" |
000009E0: C3 CF CD D0 20 20 20 20 C3 CF CD D0 D5 D4 C5 21 |.... .......!|
000009F0: 00 F9 11 C8 00 8D 34 36 32 00 02 12 CA 00 89 33 |......462......3|
00000A00: 33 32 00 08 12 CC 00 8F 00 24 12 CE 00 8F 20 20 |32.......$.... |
00000A10: 2A 2A 2A 20 41 44 44 20 4D 41 54 45 52 49 41 4C |*** ADD MATERIAL|
00000A20: 20 2A 2A 2A 00 2A 12 D0 00 8F 00 4F 12 D2 00 99 | ***.*.....O....|
00000A30: 22 93 22 A3 31 31 29 22 9E 2A 2A 2A 20 12 C3 D2 |".".11)".*** ...|
00000A40: C5 C1 D4 C5 20 C4 C1 D4 C1 92 20 2A 2A 2A 22 00 |.... ..... ***".|
00000A50: 7D 12 D4 00 8F 20 50 52 49 4E 54 22 11 11 22 54 |}.... PRINT".."T|
00000A60: 41 42 28 39 29 22 12 CF 50 20 4D 4F 44 45 53 20 |AB(9)"..P MODES |
00000A70: 26 20 45 4E 54 52 59 20 43 4F 44 45 53 00 A2 12 |& ENTRY CODES...|
00000A80: D6 00 99 22 11 11 22 A3 31 31 29 22 1E C5 4E 54 |..."..".11)"..NT|
00000A90: 45 52 20 4E 45 57 20 44 41 54 41 9E 20 20 20 20 |ER NEW DATA. |
00000AA0: 45 22 00 C6 12 D8 00 99 22 11 22 A3 31 31 29 22 |E"......".".11)"|
00000AB0: 1E C8 45 4C 50 9E 20 20 20 20 20 20 20 20 20 20 |..ELP. |
00000AC0: 20 20 20 20 48 22 00 EA 12 DA 00 99 22 11 22 A3 | H"......".".|
00000AD0: 31 31 29 22 1E C5 58 49 54 9E 20 20 20 20 20 20 |11)"..XIT. |
00000AE0: 20 20 20 20 20 20 20 20 5C 22 00 10 13 DC 00 99 | \"......|
00000AF0: 3A 99 3A 99 22 1E 20 20 20 20 20 20 20 20 20 20 |:.:.". |
00000B00: 20 20 D9 4F 55 52 20 43 48 4F 49 43 45 20 3F 22 | .OUR CHOICE ?"|
00000B10: 00 35 13 DE 00 A1 41 24 3A 8B 41 24 B3 B1 22 45 |.5....A$:.A$.."E|
00000B20: 22 AF 41 24 B3 B1 22 48 22 AF 41 24 B3 B1 22 5C |".A$.."H".A$.."\|
00000B30: 22 A7 32 32 32 00 45 13 E0 00 8B 41 24 B2 22 45 |".222.E....A$."E|
00000B40: 22 A7 32 33 32 00 55 13 E2 00 8B 41 24 B2 22 48 |".232.U....A$."H|
00000B50: 22 A7 33 36 34 00 5E 13 E4 00 89 33 33 38 00 64 |".364.^....338.d|
00000B60: 13 E6 00 8F 00 7E 13 E8 00 8F 20 20 2A 2A 2A 20 |.....~.... *** |
00000B70: 45 4E 54 45 52 20 44 41 54 41 20 2A 2A 2A 00 84 |ENTER DATA ***..|
00000B80: 13 EA 00 8F 00 9B 13 EB 00 44 4E 24 B2 22 13 11 |.........DN$."..|
00000B90: 11 11 11 11 11 11 11 11 11 11 22 00 B8 13 EC 00 |..........".....|
00000BA0: 58 B2 B8 28 30 29 3A 8B 58 B3 30 A7 58 B2 36 35 |X..(0):.X.0.X.65|
00000BB0: 35 33 35 AA B8 28 30 29 00 EA 13 EE 00 99 22 93 |535..(0)......".|
00000BC0: 9E 12 C4 41 54 41 20 45 4E 54 52 59 20 4D 4F 44 |...ATA ENTRY MOD|
00000BD0: 45 92 20 2D 22 58 22 42 59 54 45 53 20 46 52 45 |E. -"X"BYTES FRE|
00000BE0: 45 22 3A 99 44 4E 24 22 A4 22 00 28 14 F0 00 99 |E":.DN$".".(....|
00000BF0: 22 11 11 22 A3 34 29 22 1E 12 43 31 2C 43 32 2C |"..".4)"..C1,C2,|
00000C00: 43 33 2C 22 C7 28 33 34 29 22 54 49 54 4C 45 22 |C3,".(34)"TITLE"|
00000C10: C7 28 33 34 29 22 2C 22 C7 28 33 34 29 22 52 45 |.(34)",".(34)"RE|
00000C20: 46 22 C7 28 33 34 29 3B 00 3B 14 F2 00 99 22 12 |F".(34);.;....".|
00000C30: 2C 44 41 54 45 2C 50 41 47 45 22 00 7D 14 F4 00 |,DATE,PAGE".}...|
00000C40: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00000C50: 11 11 11 11 11 11 11 11 11 22 A3 37 29 22 12 96 |.........".7)"..|
00000C60: D0 52 45 53 53 20 27 5C 27 20 54 4F 20 45 58 49 |.RESS '\' TO EXI|
00000C70: 54 20 54 48 49 53 20 4D 4F 44 45 9E 22 00 90 14 |T THIS MODE."...|
00000C80: F6 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 34 36 |...A$:.A$."".246|
00000C90: 00 AA 14 F8 00 8B 41 24 B2 C7 28 32 30 29 AF C3 |......A$..(20)..|
00000CA0: 28 52 24 29 B2 30 A7 32 34 36 00 E0 14 FA 00 8B |(R$).0.246......|
00000CB0: 41 24 B2 C7 28 32 30 29 AF C3 28 52 24 29 B1 30 |A$..(20)..(R$).0|
00000CC0: A7 52 24 B2 C8 28 52 24 2C C3 28 52 24 29 AB 31 |.R$..(R$,.(R$).1|
00000CD0: 29 3A 99 44 4E 24 52 24 41 24 3A 41 24 B2 22 22 |):.DN$R$A$:A$.""|
00000CE0: 00 F3 14 FC 00 8B 20 41 24 B2 C7 28 31 33 29 A7 |...... A$..(13).|
00000CF0: 32 37 30 00 01 15 FE 00 8B 41 24 B2 22 5C 22 A7 |270......A$."\".|
00000D00: 8A 00 1C 15 00 01 52 24 B2 52 24 AA 41 24 3A 8B |......R$.R$.A$:.|
00000D10: C3 28 52 24 28 B3 36 35 A7 32 36 38 00 25 15 02 |.(R$(.65.268.%..|
00000D20: 01 99 44 4E 24 00 56 15 04 01 99 22 11 20 20 12 |..DN$.V....". .|
00000D30: C4 C1 D4 C1 20 45 4E 54 52 59 20 48 41 53 20 45 |.... ENTRY HAS E|
00000D40: 58 43 45 45 44 45 44 20 36 35 20 43 48 41 52 41 |XCEEDED 65 CHARA|
00000D50: 43 54 45 52 53 2E 00 7B 15 06 01 99 22 11 20 20 |CTERS..{....". |
00000D60: 20 20 20 20 20 20 D0 4C 45 41 53 45 20 52 45 2D | .LEASE RE-|
00000D70: 45 4E 54 45 52 20 44 41 54 41 22 00 84 15 08 01 |ENTER DATA".....|
00000D80: 8D 34 36 32 00 93 15 0A 01 52 24 B2 22 22 3A 89 |.462.....R$."":.|
00000D90: 32 33 38 00 A6 15 0C 01 99 44 4E 24 52 24 22 A4 |238......DN$R$".|
00000DA0: 22 3A 89 32 34 36 00 BF 15 0E 01 8C 3A 87 4E 3A |":.246......:.N:|
00000DB0: 4E B2 4E AA 31 3A 4C 4E B2 31 30 30 30 AA 4E 00 |N.N.1:LN.1000.N.|
00000DC0: D6 15 10 01 99 22 13 11 11 11 22 4C 4E 22 44 41 |....."...."LN"DA|
00000DD0: 54 41 20 22 52 24 00 E9 15 12 01 99 22 31 30 30 |TA "R$......"100|
00000DE0: 30 20 44 41 54 41 20 22 4E 00 FC 15 14 01 99 22 |0 DATA "N......"|
00000DF0: 47 4F 54 4F 32 33 32 22 3A 99 22 13 00 1F 16 16 |GOTO232":.".....|
00000E00: 01 97 31 39 38 2C 33 3A 97 36 33 31 2C 31 33 3A |..198,3:.631,13:|
00000E10: 97 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 33 00 |.632,13:.633,13.|
00000E20: 25 16 18 01 80 00 42 16 1A 01 8F 20 20 20 20 2A |%.....B.... *|
00000E30: 2A 2A 2A 20 53 41 56 45 20 46 49 4C 45 20 2A 2A |*** SAVE FILE **|
00000E40: 2A 2A 00 48 16 1C 01 8F 00 80 16 1E 01 85 22 93 |**.H..........".|
00000E50: 9E C1 52 45 20 59 4F 55 20 52 45 50 4C 41 43 49 |..RE YOU REPLACI|
00000E60: 4E 47 20 41 20 50 52 45 56 49 4F 55 53 20 56 45 |NG A PREVIOUS VE|
00000E70: 52 53 49 4F 4E 20 20 59 9D 9D 9D 22 3B 5A 5A 24 |RSION Y...";ZZ$|
00000E80: 00 B9 16 20 01 85 22 13 11 11 11 11 C6 49 4C 45 |... .."......ILE|
00000E90: 20 4E 41 4D 45 20 20 20 20 20 20 20 20 20 20 20 | NAME |
00000EA0: 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | ...........|
00000EB0: 9D 9D 9D 9D 9D 22 3B 46 24 00 C9 16 22 01 8B 46 |.....";F$..."..F|
00000EC0: 24 B2 22 A0 22 A7 32 38 38 00 F1 16 24 01 85 22 |$.".".288...$.."|
00000ED0: 13 11 11 11 11 11 11 11 C9 53 20 54 48 49 53 20 |.........S THIS |
00000EE0: 43 4F 52 52 45 43 54 A0 A0 59 9D 9D 9D 22 3B 41 |CORRECT..Y...";A|
00000EF0: 24 00 02 17 26 01 8B 41 24 B3 B1 22 59 22 A7 32 |$...&..A$.."Y".2|
00000F00: 38 38 00 28 17 28 01 85 22 11 11 D7 48 49 43 48 |88.(.(.."...HICH|
00000F10: 20 44 52 49 56 45 20 20 30 9D 9D 9D 22 3B 44 24 | DRIVE 0...";D$|
00000F20: 3A 44 B2 C5 28 44 24 29 00 41 17 2A 01 8B 44 B3 |:D..(D$).A.*..D.|
00000F30: 30 B0 44 B1 31 A7 99 22 91 91 91 22 3A 89 32 39 |0.D.1.."...":.29|
00000F40: 36 00 59 17 2C 01 9F 31 35 2C 38 2C 31 35 3A 98 |6.Y.,..15,8,15:.|
00000F50: 31 35 2C 22 49 22 AA 44 24 00 6B 17 2E 01 8B 5A |15,"I".D$.k....Z|
00000F60: 5A 24 B3 B1 22 59 22 A7 33 30 38 00 86 17 30 01 |Z$.."Y".308...0.|
00000F70: 98 31 35 2C 22 52 22 AA 44 24 AA 22 3A 54 45 4D |.15,"R".D$.":TEM|
00000F80: 50 3D 22 AA 46 24 00 99 17 31 01 84 31 35 2C 45 |P=".F$...1..15,E|
00000F90: 2C 45 24 2C 45 31 2C 45 32 00 CA 17 32 01 8B 45 |,E$,E1,E2...2..E|
00000FA0: B1 31 39 A7 99 22 11 11 12 22 45 24 3A 99 22 11 |.19.."..."E$:.".|
00000FB0: 11 C6 49 4C 45 20 4E 4F 54 20 53 41 56 45 44 22 |..ILE NOT SAVED"|
00000FC0: 3A 8D 34 36 32 3A 89 33 31 38 00 DB 17 34 01 94 |:.462:.318...4..|
00000FD0: 44 24 AA 22 3A 22 AA 46 24 2C 38 00 F3 17 36 01 |D$.":".F$,8...6.|
00000FE0: 99 22 11 11 12 D6 45 52 49 46 59 49 4E 47 92 20 |."....ERIFYING. |
00000FF0: 22 46 24 00 FE 17 38 01 95 22 2A 22 2C 38 00 10 |"F$...8.."*",8..|
00001000: 18 3A 01 8B 53 54 B3 B1 36 34 A7 A0 31 35 3A 80 |.:..ST..64..15:.|
00001010: 00 30 18 3C 01 8B 5A 5A 24 B2 22 59 22 A7 98 31 |.0.<..ZZ$."Y"..1|
00001020: 35 2C 22 53 22 AA 44 24 AA 22 3A 54 45 4D 50 22 |5,"S".D$.":TEMP"|
00001030: 00 3D 18 3E 01 A0 31 35 3A 89 33 33 32 00 43 18 |.=.>..15:.332.C.|
00001040: 40 01 8F 00 5B 18 42 01 8F 20 2A 2A 2A 2A 2A 2A |@...[.B.. ******|
00001050: 20 45 58 49 54 20 2A 2A 2A 2A 2A 00 61 18 44 01 | EXIT *****.a.D.|
00001060: 8F 00 69 18 46 01 99 22 93 00 6F 18 48 01 80 00 |..i.F.."..o.H...|
00001070: 75 18 4A 01 8F 00 96 18 4C 01 8F 20 2A 2A 2A 20 |u.J.....L.. *** |
00001080: 4D 41 49 4E 20 50 52 4F 47 52 41 4D 20 42 4C 4F |MAIN PROGRAM BLO|
00001090: 43 4B 20 2A 2A 2A 00 AC 18 4D 01 97 35 33 32 38 |CK ***...M..5328|
000010A0: 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 B2 18 4E |0,0:.53281,0...N|
000010B0: 01 8F 00 BD 18 50 01 99 C7 28 31 34 29 00 E6 18 |.....P...(14)...|
000010C0: 52 01 99 22 93 22 A3 39 29 22 9E 2A 2A 2A 20 12 |R..".".9)".*** .|
000010D0: CD C1 C7 C1 DA C9 CE C5 20 C9 CE C4 C5 D8 92 20 |........ ...... |
000010E0: 2A 2A 2A 11 11 22 00 02 19 54 01 99 A3 39 29 22 |***.."...T...9)"|
000010F0: 1E 31 2E 9E 20 20 D3 45 41 52 43 48 20 46 49 4C |.1.. .EARCH FIL|
00001100: 45 22 00 24 19 56 01 99 A3 39 29 22 1E 32 2E 9E |E".$.V...9)".2..|
00001110: 20 20 CC 49 53 54 20 4D 41 47 41 5A 49 4E 45 20 | .IST MAGAZINE |
00001120: 43 4F 44 45 00 40 19 58 01 99 A3 39 29 22 1E 33 |CODE.@.X...9)".3|
00001130: 2E 9E 20 20 C1 44 44 20 4D 41 54 45 52 49 41 4C |.. .DD MATERIAL|
00001140: 00 59 19 5A 01 99 A3 39 29 22 1E 34 2E 9E 20 20 |.Y.Z...9)".4.. |
00001150: D3 41 56 45 20 46 49 4C 45 00 75 19 5C 01 99 A3 |.AVE FILE.u.\...|
00001160: 39 29 22 1E 35 2E 9E 20 20 C9 4E 53 54 52 55 43 |9)".5.. .NSTRUC|
00001170: 54 49 4F 4E 53 00 97 19 5E 01 99 A3 39 29 22 1E |TIONS...^...9)".|
00001180: 36 2E 9E 20 20 CC 4F 41 44 20 41 4E 4F 54 48 45 |6.. .OAD ANOTHE|
00001190: 52 20 49 4E 44 45 58 00 B3 19 60 01 99 A3 39 29 |R INDEX...`...9)|
000011A0: 22 1E 37 2E 9E 20 20 C5 58 49 54 20 50 52 4F 47 |".7.. .XIT PROG|
000011B0: 52 41 4D 00 D1 19 62 01 99 A3 35 29 22 11 11 20 |RAM...b...5)".. |
000011C0: 20 20 20 1E D9 4F 55 52 20 43 48 4F 49 43 45 20 | ..OUR CHOICE |
000011D0: 3F 00 E6 19 64 01 A1 5A 5A 24 3A 8B 5A 5A 24 B2 |?...d..ZZ$:.ZZ$.|
000011E0: 22 22 A7 33 35 36 00 0C 1A 66 01 5A 5A B2 C5 28 |"".356...f.ZZ..(|
000011F0: 5A 5A 24 29 3A 8B 5A 5A B3 31 B0 5A 5A B1 37 A7 |ZZ$):.ZZ.1.ZZ.7.|
00001200: 99 22 91 91 91 22 3B 3A 89 33 35 34 00 2F 1A 68 |."...";:.354./.h|
00001210: 01 91 5A 5A 89 38 32 2C 31 38 34 2C 32 30 36 2C |..ZZ.82,184,206,|
00001220: 32 38 32 2C 34 30 34 2C 34 37 36 2C 33 32 32 00 |282,404,476,322.|
00001230: 35 1A 6A 01 8F 00 55 1A 6C 01 8F 20 20 2A 2A 2A |5.j...U.l.. ***|
00001240: 2A 20 20 48 45 4C 50 20 46 55 4E 43 54 49 4F 4E |* HELP FUNCTION|
00001250: 20 2A 2A 2A 2A 00 5B 1A 6E 01 8F 00 81 1A 70 01 | ****.[.n.....p.|
00001260: 99 22 93 22 A3 31 30 29 22 9E 2A 2A 2A 20 12 C9 |.".".10)".*** ..|
00001270: CE D3 D4 D2 D5 C3 D4 C9 CF CE D3 92 20 2A 2A 2A |............ ***|
00001280: 22 00 B1 1A 72 01 99 22 9B 11 20 20 D4 48 45 20 |"...r..".. .HE |
00001290: 44 41 54 41 20 4D 55 53 54 20 42 45 20 45 4E 54 |DATA MUST BE ENT|
000012A0: 45 52 45 44 20 49 4E 20 37 20 46 49 45 4C 44 53 |ERED IN 7 FIELDS|
000012B0: 2E 00 D5 1A 74 01 99 22 D4 48 45 20 46 4F 52 4D |....t..".HE FORM|
000012C0: 41 54 20 46 4F 52 20 54 48 45 20 46 49 45 4C 44 |AT FOR THE FIELD|
000012D0: 53 20 49 53 3A 00 10 1B 76 01 99 22 9E 11 20 20 |S IS:...v..".. |
000012E0: 20 12 43 31 2C 43 32 2C 43 33 2C 22 C7 28 33 34 | .C1,C2,C3,".(34|
000012F0: 29 22 54 49 54 4C 45 22 C7 28 33 34 29 22 2C 22 |)"TITLE".(34)","|
00001300: C7 28 33 34 29 22 52 45 46 22 C7 28 33 34 29 3B |.(34)"REF".(34);|
00001310: 00 23 1B 78 01 99 22 12 2C 44 41 54 45 2C 50 41 |.#.x..".,DATE,PA|
00001320: 47 45 22 00 4E 1B 7A 01 99 22 11 9B 57 48 45 52 |GE".N.z.."..WHER|
00001330: 45 20 43 31 2C 43 32 2C 43 33 20 41 52 45 20 43 |E C1,C2,C3 ARE C|
00001340: 52 4F 53 53 20 52 45 46 45 52 45 4E 43 45 00 75 |ROSS REFERENCE.u|
00001350: 1B 7C 01 99 22 56 41 4C 55 45 53 20 41 53 20 50 |.|.."VALUES AS P|
00001360: 45 52 20 54 48 45 20 43 41 54 45 47 4F 52 59 20 |ER THE CATEGORY |
00001370: 4C 49 53 54 2E 00 8B 1B 7E 01 99 22 11 C1 53 20 |LIST....~.."..S |
00001380: 41 4E 20 45 58 41 4D 50 4C 45 3A 00 BA 1B 80 01 |AN EXAMPLE:.....|
00001390: 99 22 9E 11 20 20 20 12 31 2C 34 2C 30 2C 22 C7 |.".. .1,4,0,".|
000013A0: 28 33 34 29 22 D0 45 54 42 55 47 22 C7 28 33 34 |(34)".ETBUG".(34|
000013B0: 29 22 2C 22 C7 28 33 34 29 3B 00 D6 1B 82 01 99 |)",".(34);......|
000013C0: 22 C3 CF CD D0 22 C7 28 33 34 29 22 2C 38 31 30 |"....".(34)",810|
000013D0: 37 2C 31 33 32 22 00 05 1C 84 01 99 22 9B 11 C5 |7,132"......"...|
000013E0: 41 43 48 20 46 49 45 4C 44 20 4D 55 53 54 20 42 |ACH FIELD MUST B|
000013F0: 45 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 41 20 |E FOLLOWED BY A |
00001400: 43 4F 4D 4D 41 00 33 1C 86 01 99 22 41 4E 44 20 |COMMA.3...."AND |
00001410: 54 48 45 20 C1 52 54 49 43 4C 45 20 41 4E 44 20 |THE .RTICLE AND |
00001420: CD 41 47 41 5A 49 4E 45 20 4E 41 4D 45 53 20 4D |.AGAZINE NAMES M|
00001430: 55 53 54 00 60 1C 88 01 99 22 42 45 20 50 52 45 |UST.`...."BE PRE|
00001440: 43 45 45 44 45 44 20 41 4E 44 20 46 4F 4C 4C 4F |CEEDED AND FOLLO|
00001450: 57 45 44 20 42 59 20 51 55 4F 54 41 54 49 4F 4E |WED BY QUOTATION|
00001460: 00 6D 1C 8A 01 99 22 4D 41 52 4B 53 2E 00 98 1C |.m...."MARKS....|
00001470: 8C 01 99 22 11 D5 53 45 20 27 30 27 20 46 4F 52 |..."..SE '0' FOR|
00001480: 20 4E 55 4C 4C 20 43 52 4F 53 53 2D 52 45 46 45 | NULL CROSS-REFE|
00001490: 52 45 4E 43 45 53 2E 22 00 A2 1C 8E 01 8D 20 34 |RENCES."...... 4|
000014A0: 36 32 00 AB 1C 90 01 89 32 30 36 00 B1 1C 92 01 |62......206.....|
000014B0: 8F 00 D5 1C 94 01 8F 20 20 2A 2A 2A 20 47 45 4E |....... *** GEN|
000014C0: 45 52 41 4C 20 49 4E 53 54 52 55 43 54 49 4F 4E |ERAL INSTRUCTION|
000014D0: 53 20 2A 2A 2A 00 DB 1C 96 01 8F 00 01 1D 98 01 |S ***...........|
000014E0: 99 22 93 22 A3 31 30 29 22 9E 2A 2A 2A 20 12 C9 |.".".10)".*** ..|
000014F0: CE D3 D4 D2 D5 C3 D4 C9 CF CE D3 92 20 2A 2A 2A |............ ***|
00001500: 22 00 30 1D 9A 01 99 22 9B 11 11 D4 48 49 53 20 |".0...."....HIS |
00001510: 50 52 4F 47 52 41 4D 20 41 4C 4C 4F 57 53 20 54 |PROGRAM ALLOWS T|
00001520: 48 45 20 55 53 45 52 20 54 4F 20 53 54 4F 52 45 |HE USER TO STORE|
00001530: 00 57 1D 9C 01 99 22 49 4E 46 4F 52 4D 41 54 49 |.W...."INFORMATI|
00001540: 4F 4E 20 52 45 4C 41 54 49 4E 47 20 54 4F 20 4D |ON RELATING TO M|
00001550: 41 47 41 5A 49 4E 45 00 84 1D 9E 01 99 22 41 52 |AGAZINE......"AR|
00001560: 54 49 43 4C 45 53 20 49 4E 20 C4 C1 D4 C1 20 53 |TICLES IN .... S|
00001570: 54 41 54 45 4D 45 4E 54 53 20 57 49 54 48 49 4E |TATEMENTS WITHIN|
00001580: 20 54 48 45 00 AF 1D A0 01 99 22 50 52 4F 47 52 | THE......"PROGR|
00001590: 41 4D 2E 20 C5 41 43 48 20 41 52 54 49 43 4C 45 |AM. .ACH ARTICLE|
000015A0: 20 43 41 4E 20 48 41 56 45 20 55 50 20 54 4F 00 | CAN HAVE UP TO.|
000015B0: DB 1D A2 01 99 22 33 20 20 43 52 4F 53 53 2D 52 |....."3 CROSS-R|
000015C0: 45 46 45 52 45 4E 43 45 53 2E 20 D4 48 45 20 43 |EFERENCES. .HE C|
000015D0: 52 4F 53 53 2D 52 45 46 45 52 2D 00 08 1E A4 01 |ROSS-REFER-.....|
000015E0: 99 22 45 4E 43 45 20 43 41 54 45 47 4F 52 49 45 |."ENCE CATEGORIE|
000015F0: 53 20 57 49 4C 4C 20 42 45 20 44 49 53 50 4C 41 |S WILL BE DISPLA|
00001600: 59 45 44 20 57 48 45 4E 00 32 1E A6 01 99 22 CF |YED WHEN.2....".|
00001610: 50 54 49 4F 4E 20 31 20 49 4E 20 54 48 45 20 CD |PTION 1 IN THE .|
00001620: 45 4E 55 20 49 53 20 43 48 4F 53 45 4E 2E 20 D4 |ENU IS CHOSEN. .|
00001630: 48 45 00 5D 1E A8 01 99 22 43 52 4F 53 53 2D 52 |HE.]...."CROSS-R|
00001640: 45 46 45 52 45 4E 43 45 20 54 49 54 4C 45 53 20 |EFERENCE TITLES |
00001650: 41 52 45 20 53 54 4F 52 45 44 20 41 54 00 8B 1E |ARE STORED AT...|
00001660: AA 01 99 22 54 48 45 20 42 45 47 49 4E 4E 49 4E |..."THE BEGINNIN|
00001670: 47 20 4F 46 20 54 48 45 20 50 52 4F 47 52 41 4D |G OF THE PROGRAM|
00001680: 20 41 4E 44 20 43 41 4E 20 42 45 00 B3 1E AC 01 | AND CAN BE.....|
00001690: 99 22 45 41 53 49 4C 59 20 4D 4F 44 49 46 49 45 |."EASILY MODIFIE|
000016A0: 44 20 54 4F 20 53 55 49 54 20 54 48 45 20 55 53 |D TO SUIT THE US|
000016B0: 45 52 2E 00 E1 1E AE 01 99 22 11 CE 45 57 20 C4 |ER......."..EW .|
000016C0: C1 D4 C1 20 53 54 41 54 45 4D 45 4E 54 53 20 41 |... STATEMENTS A|
000016D0: 52 45 20 43 52 45 41 54 45 44 20 49 4E 20 54 48 |RE CREATED IN TH|
000016E0: 45 00 0A 1F B0 01 99 22 50 52 4F 47 52 41 4D 20 |E......"PROGRAM |
000016F0: 42 59 20 53 45 4C 45 43 54 49 4E 47 20 CF 50 54 |BY SELECTING .PT|
00001700: 49 4F 4E 20 33 2E 20 D4 48 45 00 33 1F B2 01 99 |ION 3. .HE.3....|
00001710: 22 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 46 4F |"INSTRUCTIONS FO|
00001720: 52 20 43 52 45 41 54 49 4E 47 20 54 48 45 20 C4 |R CREATING THE .|
00001730: 41 54 41 00 61 1F B4 01 99 22 C2 41 53 45 20 43 |ATA.a....".ASE C|
00001740: 41 4E 20 42 45 20 41 43 43 45 53 53 45 44 20 46 |AN BE ACCESSED F|
00001750: 52 4F 4D 20 54 48 41 54 20 52 4F 55 54 49 4E 45 |ROM THAT ROUTINE|
00001760: 2E 00 6A 1F B6 01 8D 34 36 32 00 90 1F B8 01 99 |..j....462......|
00001770: 22 93 22 A3 31 30 29 22 9E 2A 2A 2A 20 12 C9 CE |".".10)".*** ...|
00001780: D3 D4 D2 D5 C3 D4 C9 CF CE D3 92 20 2A 2A 2A 22 |........... ***"|
00001790: 00 BD 1F BA 01 99 22 9B 11 CF 4E 43 45 20 4D 4F |......"...NCE MO|
000017A0: 44 49 46 49 43 41 54 49 4F 4E 53 20 48 41 56 45 |DIFICATIONS HAVE|
000017B0: 20 42 45 45 4E 20 4D 41 44 45 20 49 4E 00 E8 1F | BEEN MADE IN...|
000017C0: BC 01 99 22 54 48 45 20 C4 C1 D4 C1 20 53 54 41 |..."THE .... STA|
000017D0: 54 45 4D 45 4E 54 53 2C 20 54 48 45 20 50 52 4F |TEMENTS, THE PRO|
000017E0: 47 52 41 4D 20 43 41 4E 00 12 20 BE 01 99 22 54 |GRAM CAN.. ..."T|
000017F0: 48 45 4E 20 53 41 56 45 20 41 20 43 4F 50 59 20 |HEN SAVE A COPY |
00001800: 4F 46 20 49 54 53 45 4C 46 20 54 4F 20 44 49 53 |OF ITSELF TO DIS|
00001810: 4B 2E 00 3E 20 C0 01 99 22 C9 46 20 59 4F 55 20 |K..> ...".F YOU |
00001820: 57 49 53 48 2C 20 54 48 45 20 50 52 45 56 49 4F |WISH, THE PREVIO|
00001830: 55 53 20 43 4F 50 59 20 4F 46 20 54 48 45 00 68 |US COPY OF THE.h|
00001840: 20 C2 01 99 22 50 52 4F 47 52 41 4D 20 57 49 4C | ..."PROGRAM WIL|
00001850: 4C 20 42 45 20 52 45 4E 41 4D 45 44 2C 20 41 20 |L BE RENAMED, A |
00001860: 4E 45 57 20 43 4F 50 59 00 93 20 C4 01 99 22 53 |NEW COPY.. ..."S|
00001870: 41 56 45 44 20 41 4E 44 20 56 45 52 49 46 49 45 |AVED AND VERIFIE|
00001880: 44 2C 20 41 4E 44 20 54 48 45 20 4F 4C 44 20 43 |D, AND THE OLD C|
00001890: 4F 50 59 00 A4 20 C6 01 99 22 53 43 52 41 54 43 |OPY.. ..."SCRATC|
000018A0: 48 45 44 2E 00 AD 20 C8 01 8D 34 36 32 00 B6 20 |HED... ...462.. |
000018B0: CA 01 89 33 33 32 00 BC 20 CC 01 8F 00 D5 20 CE |...332.. ..... .|
000018C0: 01 8F 20 2A 2A 2A 2A 2A 20 50 52 4F 4D 50 54 20 |.. ***** PROMPT |
000018D0: 2A 2A 2A 2A 2A 00 DB 20 D0 01 8F 00 F8 20 D2 01 |*****.. ..... ..|
000018E0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000018F0: 11 11 11 11 11 11 11 11 00 1D 21 D4 00 99 A3 35 |..........!....5|
00001900: 29 22 96 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE |)"..RESS .......|
00001910: 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 00 36 21 |. TO CONTINUE.6!|
00001920: D6 01 A1 5A 5A 24 3A 8B 5A 5A 24 B3 B1 C7 28 31 |...ZZ$:.ZZ$...(1|
00001930: 33 29 A7 34 37 30 00 3C 21 D8 01 8E 00 42 21 DA |3).470.<!....B!.|
00001940: 01 8F 00 63 21 DC 01 8F 20 2A 2A 2A 20 4C 4F 41 |...c!... *** LOA|
00001950: 44 20 41 4E 4F 54 48 45 52 20 49 4E 44 45 58 20 |D ANOTHER INDEX |
00001960: 2A 2A 2A 00 69 21 DE 01 8F 00 AB 21 E0 01 85 22 |***.i!.....!..."|
00001970: 93 11 11 9E C9 4E 44 45 58 20 59 45 41 52 20 54 |.....NDEX YEAR T|
00001980: 4F 20 42 45 20 4C 4F 41 44 45 44 20 20 2A 20 20 |O BE LOADED * |
00001990: 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D | .......|
000019A0: 9D 9D 9D 9D 9D 9D 9D 22 3B 46 24 00 BB 21 E2 01 |.......";F$..!..|
000019B0: 8B 46 24 B2 22 2A 22 A7 34 38 30 00 DE 21 E4 01 |.F$."*".480..!..|
000019C0: 85 22 11 11 49 53 20 54 48 49 53 20 43 4F 52 52 |."..IS THIS CORR|
000019D0: 45 43 54 A0 A0 59 9D 9D 9D 22 3B 5A 5A 24 00 F0 |ECT..Y...";ZZ$..|
000019E0: 21 E6 01 8B 5A 5A 24 B3 B1 22 59 22 A7 34 38 30 |!...ZZ$.."Y".480|
000019F0: 00 14 22 E8 01 99 22 93 11 11 11 4C 4F 41 44 22 |.."..."....LOAD"|
00001A00: 3B C7 28 33 34 29 3B 46 24 3B C7 28 33 34 29 3B |;.(34);F$;.(34);|
00001A10: 22 2C 38 22 00 24 22 EA 01 99 22 11 11 11 11 52 |",8".$"..."....R|
00001A20: 55 4E 13 22 00 3F 22 EC 01 97 31 39 38 2C 32 3A |UN.".?"...198,2:|
00001A30: 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 00 |.631,13:.632,13.|
00001A40: 45 22 EE 01 80 00 4B 22 F0 01 8F 00 6C 22 F2 01 |E"....K"....l"..|
00001A50: 8F 20 2A 2A 2A 2A 20 44 41 54 41 20 53 54 41 52 |. **** DATA STAR|
00001A60: 54 53 20 48 45 52 45 20 2A 2A 2A 2A 00 72 22 F4 |TS HERE ****.r".|
00001A70: 01 8F 00 7B 22 E8 03 83 20 20 34 00 AA 22 E9 03 |...{"... 4.."..|
00001A80: 83 20 31 31 2C 31 36 2C 30 2C 22 C3 36 34 20 CD |. 11,16,0,".64 .|
00001A90: 45 4D 4F 52 59 20 CD 41 50 22 2C 22 C3 CF CD D0 |EMORY .AP","....|
00001AA0: 22 2C 38 32 31 30 2C 31 35 30 00 E1 22 EA 03 83 |",8210,150.."...|
00001AB0: 20 36 2C 31 34 2C 33 2C 22 D3 48 41 50 45 20 C7 | 6,14,3,".HAPE .|
00001AC0: 45 4E 45 52 41 54 4F 52 20 C6 4F 52 20 C3 36 34 |ENERATOR .OR .64|
00001AD0: 22 2C 22 C3 CF CD D0 22 2C 38 32 31 31 2C 31 36 |","....",8211,16|
00001AE0: 30 00 15 23 EB 03 83 20 31 31 2C 31 32 2C 31 36 |0..#... 11,12,16|
00001AF0: 2C 22 31 53 54 20 CC 4F 4F 4B 20 C1 54 20 D4 48 |,"1ST .OOK .T .H|
00001B00: 45 20 C3 36 34 22 2C 22 C3 CF CD D0 22 2C 38 32 |E .64","....",82|
00001B10: 30 38 2C 36 30 00 4C 23 EC 03 83 20 31 31 2C 36 |08,60.L#... 11,6|
00001B20: 2C 31 38 2C 22 D3 50 52 49 54 45 53 20 26 20 D3 |,18,".PRITES & .|
00001B30: 4F 55 4E 44 20 CF 4E 20 C3 36 34 22 2C 22 C3 CF |OUND .N .64","..|
00001B40: CD D0 22 2C 38 32 30 39 2C 31 30 36 00 72 23 0F |..",8209,106.r#.|
00001B50: 27 83 20 30 2C 30 2C 30 2C 22 22 2C 22 22 2C 22 |'. 0,0,0,"","","|
00001B60: 22 2C 22 22 3A 8F 20 45 4E 44 20 4F 46 20 46 49 |","":. END OF FI|
00001B70: 4C 45 00 00 00 |LE... |
..'.... *******************************.
M.... * *.S.
... * MAGAZINE INDEX PRGM *.....
. * FOR THE COMMODORE 64 *......
* AND DISK DRIVE. *...... *
*...... * DO
N WHITE *.1.... * 47 A
RIEL COURT *.W.... * NEPEAN
, ONTARIO *.}.... * K2H 8J1
*...... * 613-829-20
82 *.I.... *
*...... ****************
***************... ....."..M$(20).#.$.M$
(1)."65XX MACHINE LANGUAGE".?.&.M$(2)."6
5XX TECHNIQUES".X.(.M$(3)."C64 PROGRAMS"
.S.*.M$(4)."C64 TECHNIQUES"...,.M$(5)."G
AMES".....M$(6)."GRAPHICS"...0.M$(7)."MA
THEMATICS".G.2.M$(8)."BUSINESS"...4.M$(9
)."BASIC PROGRAMMING"...6.M$(10)."COMMUN
ICATIONS"...8.M$(11)."HARDWARE".-.:.M$(1
2)."SOFTWARE".D.<.M$(13)."LANGUAGES".[.>
.M$(14)."UTILITIES".T.@.M$(15)."SIMULATI
ONS"...B.M$(16)."MISCELLANEOUS"...D.M$(1
7)."APPLICATIONS"...F.M$(18)."MUSIC".S.H
.M$(19)."EDUCATION"...J.M$(20)."P-500"..
.L.....N..332...P.....R.. **** INDEX FIL
E SEARCH ****.#.T...+.V.L.0.Q.X...5)"..C
ATEGORIES AND CODES ARE:..].Z..I.1.20.M.
\.I$." ".D(I)...^...5)G(30)I(I$,2)". "G
(158)M$(I)...`...C.B.."...WHICH CATEGORY
. ...";I$:I.E(I$)...D..I.1.I.20.."..."
:.98...F..138:. FORMAT SCREEN...H..:. N.
..J..118:. READ DATA.).L..H(ZZ$,1)."Y".8
2.2.N..332.8.P...X.R.. ****** READ DAT
A ******.^.T...X.V..C1,C2,C3,A$,B$,C$,D$
...X..A$."".130...Z.A$.H(A$,22):. MAKE S
URE STRING FITS SCREEN FORMAT...|..C1.I.
C2.I.C3.I..A$.23)B$.30)C$.35)D$:L.L.1...
~..L.17..164:. PAUSE......118.'...."...A
NOTHER CATEGORY.D....".(Y OR N). .Y..."
;ZZ$.J.....P.....O.... **** FORMAT SCRE
EN ****.U.........."........CATEGORY:".1
5)G(158)"."M$(I)".".R...."..............
................................"...SUBJ
ECT".23)"SOURCE".30)"DATE".35)"PG#......
J.0.38:.".";:.. ...."..".B.....22)".".29
)".".34)".".38)".".H.....22)".".29)".".3
4)".".38)".":.".......J.1.20:..22)".".29
)".".34)".".38)".":..E....".............
...........................";.S. .."....
":..Y.......... ***** CLEAR FORMAT ****
*.......4...."..PRESS .SPACE. TO CON-":.
"TINUE, .@. TO EXIT..I....ZZ$:.ZZ$."".17
0.Z....ZZ$."@".338.F...."....".R....J.1.
20......". . .
. .":......L.0:."....":...........
.. ***** MAGAZINE CODE *****...........
.".".13)"..MAGAZINE CODES..J...."... C
C CREATIVE COMPUTING":." PC
PERSONAL COMPUTING......" KB KILO
BAUD MICROCOMPUTING":." BYTE BYTE..
.B.." MICRO MICRO":." TRANS TRAN
SACTOR.V.D.." INTAGE INTERFACE AGE"..
.F.." COMP COMPUTE!...H..462...J..3
32...L...$.N.. *** ADD MATERIAL ***.*.P
...O.R..".".11)".*** .CREATE DATA. ***".
}.T.. PRINT".."TAB(9)".OP MODES & ENTRY
CODES...V.."..".11)".ENTER NEW DATA.
E".F.X..".".11)".HELP. H"..
.Z..".".11)".EXIT. \"......
:.:.". YOUR CHOICE ?".5....A$
:.A$.."E".A$.."H".A$.."\".222.E....A$."E
".232.U....A$."H".364.^....338.D.....~..
.. *** ENTER DATA ***...........DN$."..
..........".....X..(0):.X.0.X.65535..(0)
......"...DATA ENTRY MODE. -"X"BYTES FRE
E":.DN$".".(...."..".4)"..C1,C2,C3,"G(34
)"TITLE"G(34)","G(34)"REF"G(34);.;....".
,DATE,PAGE".}...."......................
.".7)"..PRESS '\' TO EXIT THIS MODE."...
...A$:.A$."".246......A$.G(20).C(R$).0.2
46......A$.G(20).C(R$).0.R$.H(R$,C(R$).1
):.DN$R$A$:A$.""...... A$.G(13).270.....
.A$."\".......R$.R$.A$:.C(R$(.65.268.%..
..DN$.V....". .DATA ENTRY HAS EXCEEDED
65 CHARACTERS..{....". PLEASE RE-
ENTER DATA"......462.....R$."":.238.....
.DN$R$".":.246......:.N:N.N.1:LN.1000.N.
V...."...."LN"DATA "R$......"1000 DATA "
N......"GOTO232":.".......198,3:.631,13:
.632,13:.633,13.%.....B.... **** SAVE
FILE ****.H.........."..ARE YOU REPLACI
NG A PREVIOUS VERSION Y...";ZZ$... ..".
....FILE NAME ...........
.....";F$.I."..F$." ".288...$.."........
IS THIS CORRECT Y...";A$...&..A$.."Y".2
88.(.(.."..WHICH DRIVE 0...";D$:D.E(D$)
.A.*..D.0.D.1.."...":.296.Y.,..15,8,15:.
15,"I".D$.K....ZZ$.."Y".308...0..15,"R".
D$.":TEMP=".F$...1..15,E,E$,E1,E2.J.2..E
.19.."..."E$:."..FILE NOT SAVED":.462:.3
18...4..D$.":".F$,8...6.."...VERIFYING.
"F$...8.."*",8...:..ST..64. 15:..0.<..ZZ
$."Y"..15,"S".D$.":TEMP".=.>. 15:.332.C.
@...[.B.. ****** EXIT *****.A.D...I.F.."
..O.H...U.J.....L.. *** MAIN PROGRAM BLO
CK ***...M..53280,0:.53281,0...N.....P..
G(14)...R..".".9)".*** .MAGAZINE INDEX.
***.."...T...9)".1.. SEARCH FILE".$.V..
.9)".2.. LIST MAGAZINE CODE.@.X...9)".3
.. ADD MATERIAL.Y.Z...9)".4.. SAVE FIL
E.U.\...9)".5.. INSTRUCTIONS...^...9)".
6.. LOAD ANOTHER INDEX...`...9)".7.. E
XIT PROGRAM.Q.B...5)".. .YOUR CHOICE
?...D..ZZ$:.ZZ$."".356...F.ZZ.E(ZZ$):.ZZ
.1.ZZ.7.."...";:.354./.H..ZZ.82,184,206,
282,404,476,322.5.J...U.L.. **** HELP
FUNCTION ****.[.N.....P..".".10)".*** .I
NSTRUCTIONS. ***"...R..".. THE DATA MUS
T BE ENTERED IN 7 FIELDS..U.T.."THE FORM
AT FOR THE FIELDS IS:...V..".. .C1,C2,
C3,"G(34)"TITLE"G(34)","G(34)"REF"G(34);
.#.X..".,DATE,PAGE".N.Z.."..WHERE C1,C2,
C3 ARE CROSS REFERENCE.U.|.."VALUES AS P
ER THE CATEGORY LIST....~..".AS AN EXAMP
LE:......".. .1,4,0,"G(34)"PETBUG"G(34
)","G(34);.V...."COMP"G(34)",8107,132"..
...."..EACH FIELD MUST BE FOLLOWED BY A
COMMA.3...."AND THE ARTICLE AND MAGAZINE
NAMES MUST.`...."BE PRECEEDED AND FOLLO
WED BY QUOTATION.M...."MARKS.......".USE
'0' FOR NULL CROSS-REFERENCES."...... 4
62......206.......U.... *** GENERAL INS
TRUCTIONS ***............".".10)".*** .I
NSTRUCTIONS. ***".0...."...THIS PROGRAM
ALLOWS THE USER TO STORE.W...."INFORMATI
ON RELATING TO MAGAZINE......"ARTICLES I
N DATA STATEMENTS WITHIN THE... .."PROGR
AM. EACH ARTICLE CAN HAVE UP TO......"3
CROSS-REFERENCES. THE CROSS-REFER-.....
."ENCE CATEGORIES WILL BE DISPLAYED WHEN
.2...."OPTION 1 IN THE MENU IS CHOSEN. T
HE.]...."CROSS-REFERENCE TITLES ARE STOR
ED AT......"THE BEGINNING OF THE PROGRAM
AND CAN BE......"EASILY MODIFIED TO SUI
T THE USER.......".NEW DATA STATEMENTS A
RE CREATED IN THE......"PROGRAM BY SELEC
TING OPTION 3. THE.3...."INSTRUCTIONS FO
R CREATING THE DATA.A...."BASE CAN BE AC
CESSED FROM THAT ROUTINE..J....462......
".".10)".*** .INSTRUCTIONS. ***"......".
.ONCE MODIFICATIONS HAVE BEEN MADE IN...
..."THE DATA STATEMENTS, THE PROGRAM CAN
.. ..."THEN SAVE A COPY OF ITSELF TO DIS
K..> ..."IF YOU WISH, THE PREVIOUS COPY
OF THE.H B.."PROGRAM WILL BE RENAMED, A
NEW COPY.. D.."SAVED AND VERIFIED, AND T
HE OLD COPY.. F.."SCRATCHED... H..462..
J..332.. L...U N.. ***** PROMPT *****..
P.... R.."........................!T...5
)".PRESS .RETURN. TO CONTINUE.6!V..ZZ$:.
ZZ$..G(13).470.<!X...B!Z...C!... *** LOA
D ANOTHER INDEX ***.I!.....!..."....INDE
X YEAR TO BE LOADED * .......
.......";F$..!...F$."*".480..!..."..IS T
HIS CORRECT Y...";ZZ$..!...ZZ$.."Y".480
.."..."....LOAD";G(34);F$;G(34);",8".$".
.."....RUN.".?"...198,2:.631,13:.632,13.
E"....K"....L"... **** DATA STARTS HERE
****.R"....{"... 4.."... 11,16,0,"C64 M
EMORY MAP","COMP",8210,150.."... 6,14,3,
"SHAPE GENERATOR FOR C64","COMP",8211,16
0..#... 11,12,16,"1ST LOOK AT THE C64","
COMP",8208,60.L#... 11,6,18,"SPRITES & S
OUND ON C64","COMP",8209,106.R#.'. 0,0,0
,"","","","":. END OF FILE...
> CLICK IMAGE PREVIEW FOR FULL MODAL