MAG INDEX

00000000: 01 10 0A 10 0A 00 99 22  93 22 00 48 10 64 00 9E  |.......".".H.d..|
00000010: 36 35 35 31 37 3A 5A B2  C2 28 37 38 31 29 3A 8B  |65517:Z..(781):.|
00000020: 5A B2 34 30 A7 97 35 33  32 38 31 2C 30 3A 49 24  |Z.40..53281,0:I$|
00000030: B2 22 22 3A 56 B2 31 30  3A 52 24 B2 22 22 3A 86  |."":V.10:R$."":.|
00000040: 41 52 24 28 35 30 30 29  00 85 10 6E 00 8B 5A B2  |AR$(500)...n..Z.|
00000050: 32 32 A7 97 33 36 38 37  39 2C 31 34 3A 49 24 B2  |22..36879,14:I$.|
00000060: 22 11 11 22 3A 56 B2 35  3A 52 24 B2 22 1D 1D 1D  |"..":V.5:R$."...|
00000070: 1D 1D 22 3A 51 24 B2 C7  28 31 33 29 3A 86 41 52  |..":Q$..(13):.AR|
00000080: 24 28 35 30 29 00 B9 10  78 00 86 20 48 24 28 37  |$(50)...x.. H$(7|
00000090: 29 2C 42 28 33 29 2C 54  28 33 29 2C 4D 47 24 28  |),B(3),T(3),MG$(|
000000A0: 33 29 3A 42 4C 24 B2 22  20 20 20 20 20 20 20 20  |3):BL$."        |
000000B0: 20 20 20 20 20 20 20 20  22 00 FA 10 82 00 42 28  |        ".....B(|
000000C0: 30 29 B2 31 3A 42 28 31  29 B2 31 31 3A 42 28 32  |0).1:B(1).11:B(2|
000000D0: 29 B2 31 36 3A 42 28 33  29 B2 33 31 3A 54 28 30  |).16:B(3).31:T(0|
000000E0: 29 B2 31 30 3A 54 28 31  29 B2 35 3A 54 28 32 29  |).10:T(1).5:T(2)|
000000F0: B2 31 35 3A 54 28 33 29  B2 31 00 10 11 8C 00 4A  |.15:T(3).1.....J|
00000100: 24 B2 22 41 52 54 49 43  4C 45 53 20 42 59 20 22  |$."ARTICLES BY "|
00000110: 00 3A 11 96 00 48 24 28  30 29 B2 22 12 9E 4D 41  |.:...H$(0)."..MA|
00000120: 47 41 5A 49 4E 45 92 05  22 3A 48 24 28 31 29 B2  |GAZINE..":H$(1).|
00000130: 22 12 9F 44 41 54 45 92  05 22 00 65 11 A0 00 48  |"..DATE..".e...H|
00000140: 24 28 32 29 B2 22 12 9C  54 49 54 4C 45 92 05 22  |$(2)."..TITLE.."|
00000150: 3A 48 24 28 33 29 B2 22  12 1C 43 41 54 45 47 4F  |:H$(3)."..CATEGO|
00000160: 52 59 92 05 22 00 A4 11  AA 00 48 24 28 34 29 B2  |RY..".....H$(4).|
00000170: 22 54 49 54 4C 45 20 4F  46 20 12 9E 4D 41 47 41  |"TITLE OF ..MAGA|
00000180: 5A 49 4E 45 92 22 3A 48  24 28 35 29 B2 22 49 53  |ZINE.":H$(5)."IS|
00000190: 53 55 45 20 44 41 54 45  20 12 9F 28 4D 4D 2F 59  |SUE DATE ..(MM/Y|
000001A0: 59 29 92 22 00 E0 11 B4  00 48 24 28 36 29 B2 22  |Y).".....H$(6)."|
000001B0: 54 49 54 4C 45 20 4F 46  20 12 9C 41 52 54 49 43  |TITLE OF ..ARTIC|
000001C0: 4C 45 92 22 3A 48 24 28  37 29 B2 22 41 52 54 49  |LE.":H$(7)."ARTI|
000001D0: 43 4C 45 20 12 1C 43 41  54 45 47 4F 52 59 92 22  |CLE ..CATEGORY."|
000001E0: 00 06 12 BE 00 99 22 93  11 1D 1D 1D 05 12 9F 4D  |......"........M|
000001F0: 41 47 41 5A 49 4E 45 92  20 12 49 4E 44 45 58 45  |AGAZINE. .INDEXE|
00000200: 52 05 92 11 11 22 00 3A  12 C8 00 99 22 31 2E 20  |R....".:...."1. |
00000210: 4C 4F 41 44 20 41 4C 4C  20 41 52 54 49 43 4C 45  |LOAD ALL ARTICLE|
00000220: 53 22 3A 99 22 32 2E 20  4C 49 53 54 20 41 4C 4C  |S":."2. LIST ALL|
00000230: 20 41 52 54 49 43 4C 45  53 22 00 7A 12 D2 00 99  | ARTICLES".z....|
00000240: 22 33 2E 20 45 4E 54 45  52 20 4E 45 57 20 41 52  |"3. ENTER NEW AR|
00000250: 54 49 43 4C 45 53 22 3A  99 22 34 2E 20 44 45 4C  |TICLES":."4. DEL|
00000260: 45 54 45 20 50 52 45 56  49 4F 55 53 20 22 52 24  |ETE PREVIOUS "R$|
00000270: 22 20 45 4E 54 52 49 45  53 22 00 A8 12 DC 00 99  |" ENTRIES"......|
00000280: 22 35 2E 20 4C 49 53 54  20 22 4A 24 52 24 48 24  |"5. LIST "J$R$H$|
00000290: 28 30 29 3A 99 22 36 2E  20 4C 49 53 54 20 22 4A  |(0):."6. LIST "J|
000002A0: 24 52 24 48 24 28 31 29  00 D6 12 E6 00 99 22 37  |$R$H$(1)......"7|
000002B0: 2E 20 4C 49 53 54 20 22  4A 24 52 24 48 24 28 32  |. LIST "J$R$H$(2|
000002C0: 29 3A 99 22 38 2E 20 4C  49 53 54 20 22 4A 24 52  |):."8. LIST "J$R|
000002D0: 24 48 24 28 33 29 00 F2  12 F0 00 99 22 39 2E 20  |$H$(3)......"9. |
000002E0: 53 41 56 45 20 44 41 54  41 20 41 4E 44 20 45 4E  |SAVE DATA AND EN|
000002F0: 44 22 00 0F 13 FA 00 99  22 11 1D 1D 1D 12 53 45  |D"......".....SE|
00000300: 4C 45 43 54 20 43 48 4F  49 43 45 92 20 22 3B 00  |LECT CHOICE. ";.|
00000310: 2C 13 04 01 A1 43 24 3A  43 B2 C5 28 43 24 29 3A  |,....C$:C..(C$):|
00000320: 8B 43 B3 31 B0 43 B1 39  A7 32 36 30 00 3F 13 0E  |.C.1.C.9.260.?..|
00000330: 01 99 43 24 3A 81 49 B2  31 A4 37 35 30 3A 82 00  |..C$:.I.1.750:..|
00000340: 6A 13 18 01 91 43 89 37  30 30 2C 34 32 30 2C 32  |j....C.700,420,2|
00000350: 39 30 2C 36 34 30 2C 35  31 30 2C 35 31 30 2C 35  |90,640,510,510,5|
00000360: 31 30 2C 35 31 30 2C 37  30 30 00 74 13 22 01 4E  |10,510,700.t.".N|
00000370: B2 4E AA 31 00 A0 13 2C  01 99 22 93 22 3B A3 35  |.N.1...,..".";.5|
00000380: 29 22 12 4E 45 57 20 45  4E 54 52 49 45 53 11 22  |)".NEW ENTRIES."|
00000390: 3A 99 A3 35 29 22 52 45  43 4F 52 44 20 23 22 4E  |:..5)"RECORD #"N|
000003A0: 00 B8 13 36 01 81 4B B2  30 A4 33 3A 99 22 11 22  |...6..K.0.3:."."|
000003B0: 48 24 28 4B AA 34 29 3B  00 EE 13 40 01 81 4A B2  |H$(K.4);...@..J.|
000003C0: 31 A4 54 28 4B 29 AA 33  3A 99 22 12 05 20 22 3B  |1.T(K).3:.".. ";|
000003D0: 3A 82 3A 81 4A B2 31 A4  54 28 4B 29 AA 33 3A 99  |:.:.J.1.T(K).3:.|
000003E0: 22 9D 22 3B 3A 82 3A 85  4D 47 24 28 4B 29 00 1C  |".";:.:.MG$(K)..|
000003F0: 14 4A 01 8B 4B B2 31 AF  CA 28 4D 47 24 28 4B 29  |.J..K.1..(MG$(K)|
00000400: 2C 33 2C 31 29 B3 B1 22  2F 22 A7 4D 47 24 28 4B  |,3,1).."/".MG$(K|
00000410: 29 B2 22 30 22 AA 4D 47  24 28 4B 29 00 5D 14 54  |)."0".MG$(K).].T|
00000420: 01 4D 47 24 28 4B 29 B2  C8 28 4D 47 24 28 4B 29  |.MG$(K)..(MG$(K)|
00000430: 2C 54 28 4B 29 29 3A 4D  47 24 28 4B 29 B2 4D 47  |,T(K)):MG$(K).MG|
00000440: 24 28 4B 29 AA C8 28 42  4C 24 2C 54 28 4B 29 AB  |$(K)..(BL$,T(K).|
00000450: C3 28 4D 47 24 28 4B 29  29 29 3A 82 4B 00 84 14  |.(MG$(K))):.K...|
00000460: 5E 01 41 52 24 28 4E 29  B2 4D 47 24 28 30 29 AA  |^.AR$(N).MG$(0).|
00000470: 4D 47 24 28 31 29 AA 4D  47 24 28 32 29 AA 4D 47  |MG$(1).MG$(2).MG|
00000480: 24 28 33 29 00 9B 14 68  01 81 4B B2 30 A4 33 3A  |$(3)...h..K.0.3:|
00000490: 4D 47 24 28 4B 29 B2 22  22 3A 82 00 CD 14 72 01  |MG$(K)."":....r.|
000004A0: 99 22 11 11 11 11 11 50  52 45 53 53 20 12 52 45  |.".....PRESS .RE|
000004B0: 54 55 52 4E 92 20 46 4F  52 20 41 44 44 27 4C 20  |TURN. FOR ADD'L |
000004C0: 45 4E 54 52 49 45 53 22  3A 8D 39 31 30 00 E0 14  |ENTRIES":.910...|
000004D0: 7C 01 A1 43 24 3A 8B 43  24 B2 22 22 A7 33 38 30  ||..C$:.C$."".380|
000004E0: 00 F2 14 86 01 8B 43 24  B2 C7 28 31 33 29 A7 32  |......C$..(13).2|
000004F0: 39 30 00 02 15 90 01 8B  43 24 B2 22 85 22 A7 31  |90......C$.".".1|
00000500: 39 30 00 11 15 9A 01 43  24 B2 22 22 3A 89 33 38  |90.....C$."":.38|
00000510: 30 00 46 15 A4 01 8B 4E  B2 30 A7 99 22 11 12 9E  |0.F....N.0.."...|
00000520: 4E 4F 20 41 52 54 49 43  4C 45 53 20 4F 4E 20 46  |NO ARTICLES ON F|
00000530: 49 4C 45 2E 22 3A 81 4A  B2 31 A4 31 35 30 30 3A  |ILE.":.J.1.1500:|
00000540: 82 3A 89 31 39 30 00 4E  15 AE 01 49 B2 31 00 79  |.:.190.N...I.1.y|
00000550: 15 B8 01 4C 43 B2 30 3A  48 44 24 B2 22 12 4C 49  |...LC.0:HD$.".LI|
00000560: 53 54 20 27 41 52 54 49  43 4C 45 53 27 20 46 49  |ST 'ARTICLES' FI|
00000570: 4C 45 92 22 3A 8D 38 35  30 00 A5 15 C2 01 4C 43  |LE.":.850.....LC|
00000580: B2 4C 43 AA 31 3A 8D 38  37 30 3A 8D 38 38 30 3A  |.LC.1:.870:.880:|
00000590: 49 B2 49 AA 31 3A 8B 49  B3 B2 4E AF 4C 43 B3 B1  |I.I.1:.I..N.LC..|
000005A0: 56 A7 34 35 30 00 AE 15  CC 01 8D 39 30 30 00 C3  |V.450......900..|
000005B0: 15 D6 01 A1 43 48 24 3A  8B 43 48 24 B2 22 22 A7  |....CH$:.CH$."".|
000005C0: 34 37 30 00 D4 15 E0 01  8B 43 48 24 B2 22 85 22  |470......CH$."."|
000005D0: A7 31 39 30 00 E7 15 EA  01 8B 43 48 24 B2 C7 28  |.190......CH$..(|
000005E0: 31 33 29 A7 34 34 30 00  F0 15 F4 01 89 34 37 30  |13).440......470|
000005F0: 00 0A 16 FE 01 99 22 11  05 22 A3 32 29 48 24 28  |......"..".2)H$(|
00000600: 43 AB 31 29 3A 43 B2 43  AB 35 00 3D 16 08 02 81  |C.1):C.C.5.=....|
00000610: 4A B2 31 A4 54 28 43 29  AA 33 3A 99 22 12 05 20  |J.1.T(C).3:.".. |
00000620: 22 3B 3A 82 3A 81 4A B2  31 A4 54 28 43 29 AA 33  |";:.:.J.1.T(C).3|
00000630: 3A 99 22 9D 22 3B 3A 82  3A 85 4D 48 24 00 62 16  |:.".";:.:.MH$.b.|
00000640: 12 02 8B 43 B2 31 AF CA  28 4D 48 24 2C 33 2C 31  |...C.1..(MH$,3,1|
00000650: 29 B3 B1 22 2F 22 A7 4D  48 24 B2 22 30 22 AA 4D  |).."/".MH$."0".M|
00000660: 48 24 00 91 16 1C 02 4D  48 24 B2 C8 28 4D 48 24  |H$.....MH$..(MH$|
00000670: 2C 54 28 43 29 29 3A 4D  48 24 B2 4D 48 24 AA C8  |,T(C)):MH$.MH$..|
00000680: 28 42 4C 24 2C 54 28 43  29 AB C3 28 4D 48 24 29  |(BL$,T(C)..(MH$)|
00000690: 29 00 99 16 26 02 49 B2  31 00 B4 16 30 02 4C 43  |)...&.I.1...0.LC|
000006A0: B2 30 3A 48 44 24 B2 4A  24 AA 48 24 28 43 29 3A  |.0:HD$.J$.H$(C):|
000006B0: 8D 38 35 30 00 D6 16 3A  02 8D 38 37 30 3A 8B 4D  |.850...:..870:.M|
000006C0: 48 24 B2 4D 47 24 28 43  29 A7 8D 38 38 30 3A 4C  |H$.MG$(C)..880:L|
000006D0: 43 B2 4C 43 AA 31 00 F0  16 44 02 49 B2 49 AA 31  |C.LC.1...D.I.I.1|
000006E0: 3A 8B 49 B3 B2 4E AF 4C  43 B3 B1 56 A7 35 37 30  |:.I..N.LC..V.570|
000006F0: 00 F9 16 4E 02 8D 39 30  30 00 0C 17 58 02 A1 43  |...N..900...X..C|
00000700: 24 3A 8B 43 24 B2 22 22  A7 36 30 30 00 20 17 62  |$:.C$."".600. .b|
00000710: 02 8B 43 24 B2 22 85 22  B0 49 B1 4E A7 31 39 30  |..C$.".".I.N.190|
00000720: 00 32 17 6C 02 8B 43 24  B2 C7 28 31 33 29 A7 35  |.2.l..C$..(13).5|
00000730: 36 30 00 3B 17 76 02 89  36 30 30 00 54 17 80 02  |60.;.v..600.T...|
00000740: 99 22 11 05 1D 1D 44 45  4C 45 54 45 20 52 45 43  |."....DELETE REC|
00000750: 20 23 22 3B 00 74 17 8A  02 85 22 20 12 05 20 20  | #";.t...." ..  |
00000760: 20 9D 9D 9D 9F 22 3B 41  24 3A 8B 41 24 B2 22 22  | ....";A$:.A$.""|
00000770: A7 36 35 30 00 A4 17 94  02 49 B2 C5 28 41 24 29  |.650.....I..(A$)|
00000780: 3A 8B 49 B1 4E A7 99 22  12 9E 52 45 43 4F 52 44  |:.I.N.."..RECORD|
00000790: 20 4E 4F 54 20 4F 4E 20  46 49 4C 45 2E 22 3B 3A  | NOT ON FILE.";:|
000007A0: 89 36 39 30 00 CA 17 9E  02 41 52 24 28 49 29 B2  |.690.....AR$(I).|
000007B0: 22 22 3A 99 22 1D 1D 12  9E 52 45 43 4F 52 44 20  |"":."....RECORD |
000007C0: 44 45 4C 45 54 45 44 2E  22 3B 00 ED 17 A8 02 4E  |DELETED.";.....N|
000007D0: B2 4E AB 31 3A 81 4A B2  49 A4 4E 3A 41 52 24 28  |.N.1:.J.I.N:AR$(|
000007E0: 4A 29 B2 41 52 24 28 4A  AA 31 29 3A 82 00 02 18  |J).AR$(J.1):....|
000007F0: B2 02 81 49 B2 31 A4 31  30 30 30 3A 82 3A 89 31  |...I.1.1000:.:.1|
00000800: 39 30 00 23 18 BC 02 99  22 93 44 49 53 4B 20 4F  |90.#....".DISK O|
00000810: 52 20 43 41 53 53 45 54  54 45 20 28 44 2F 43 29  |R CASSETTE (D/C)|
00000820: 11 11 22 00 48 18 C6 02  A1 45 24 3A 8B 28 45 24  |..".H....E$:.(E$|
00000830: B3 B1 22 44 22 AF 45 24  B3 B1 22 43 22 29 B0 45  |.."D".E$.."C").E|
00000840: 24 B2 22 22 A7 37 31 30  00 6F 18 D0 02 8B 45 24  |$."".710.o....E$|
00000850: B2 22 44 22 A7 46 24 B2  22 40 30 3A 41 52 54 49  |."D".F$."@0:ARTI|
00000860: 43 4C 45 53 22 3A 44 31  B2 31 3A 89 37 34 30 00  |CLES":D1.1:.740.|
00000870: 8C 18 DA 02 46 24 B2 22  41 52 54 49 43 4C 45 53  |....F$."ARTICLES|
00000880: 22 3A 44 31 B2 30 3A 47  24 B2 22 22 00 99 18 E4  |":D1.0:G$.""....|
00000890: 02 8B 43 B2 39 A7 37 38  30 00 AD 18 EE 02 8B 44  |..C.9.780......D|
000008A0: 31 B2 31 A7 47 24 B2 22  2C 53 2C 52 22 00 CB 18  |1.1.G$.",S,R"...|
000008B0: F8 02 9F 31 2C 31 AA 37  AC 44 31 2C 38 AC 44 31  |...1,1.7.D1,8.D1|
000008C0: 2C 46 24 AA 47 24 3A 8D  38 31 30 00 F9 18 02 03  |,F$.G$:.810.....|
000008D0: 84 31 2C 4E 3A 81 49 B2  31 A4 4E 3A 84 31 2C 41  |.1,N:.I.1.N:.1,A|
000008E0: 52 24 28 49 29 3A 82 3A  8D 38 31 30 3A A0 31 3A  |R$(I):.:.810:.1:|
000008F0: 8D 38 31 30 3A 89 31 39  30 00 0D 19 0C 03 8B 44  |.810:.190......D|
00000900: 31 B2 31 A7 47 24 B2 22  2C 53 2C 57 22 00 2D 19  |1.1.G$.",S,W".-.|
00000910: 16 03 9F 31 2C 31 AA 37  AC 44 31 2C 31 AA 37 AC  |...1,1.7.D1,1.7.|
00000920: 44 31 2C 46 24 AA 47 24  3A 8D 38 31 30 00 58 19  |D1,F$.G$:.810.X.|
00000930: 20 03 98 31 2C 4E 3A 81  49 B2 31 A4 4E 3A 98 31  | ..1,N:.I.1.N:.1|
00000940: 2C 41 52 24 28 49 29 3A  82 3A 8D 38 31 30 3A A0  |,AR$(I):.:.810:.|
00000950: 31 3A 8D 38 31 30 3A 80  00 64 19 2A 03 8B 44 31  |1:.810:..d.*..D1|
00000960: B2 30 A7 8E 00 7A 19 34  03 8B 4F B2 30 A7 9F 31  |.0...z.4..O.0..1|
00000970: 35 2C 38 2C 31 35 3A 4F  B2 31 00 A4 19 3E 03 84  |5,8,15:O.1...>..|
00000980: 31 35 2C 41 2C 42 24 2C  43 2C 44 3A 8B 41 A7 99  |15,A,B$,C,D:.A..|
00000990: 41 3B 42 24 3B 43 3B 44  3A 81 49 B2 31 A4 33 30  |A;B$;C;D:.I.1.30|
000009A0: 30 30 3A 82 00 AA 19 48  03 8E 00 D3 19 52 03 99  |00:....H.....R..|
000009B0: 22 93 05 22 48 44 24 3A  99 3A 99 22 12 52 45 43  |".."HD$:.:.".REC|
000009C0: 23 92 20 20 12 4D 41 47  41 5A 49 4E 45 92 20 20  |#.  .MAGAZINE.  |
000009D0: 20 22 3B 00 F6 19 5C 03  99 51 24 22 12 44 41 54  | ";...\..Q$".DAT|
000009E0: 45 92 20 20 12 41 52 54  49 43 4C 45 20 54 49 54  |E.  .ARTICLE TIT|
000009F0: 4C 45 11 22 3A 8E 00 20  1A 66 03 81 4B B2 30 A4  |LE.":.. .f..K.0.|
00000A00: 33 3A 4D 47 24 28 4B 29  B2 CA 28 41 52 24 28 49  |3:MG$(K)..(AR$(I|
00000A10: 29 2C 42 28 4B 29 2C 54  28 4B 29 29 3A 82 3A 8E  |),B(K),T(K)):.:.|
00000A20: 00 4E 1A 70 03 58 30 B2  C3 28 C4 28 49 29 29 3A  |.N.p.X0..(.(I)):|
00000A30: 58 31 24 B2 C8 28 22 2A  2A 2A 22 2C 34 AB 58 30  |X1$..("***",4.X0|
00000A40: 29 AA C9 28 C4 28 49 29  2C 58 30 AB 31 29 00 7D  |)..(.(I),X0.1).}|
00000A50: 1A 7A 03 99 22 20 22 58  31 24 22 20 20 22 4D 47  |.z.." "X1$"  "MG|
00000A60: 24 28 30 29 22 20 22 51  24 4D 47 24 28 31 29 22  |$(0)" "Q$MG$(1)"|
00000A70: 20 22 4D 47 24 28 32 29  22 20 22 3A 8E 00 A4 1A  | "MG$(2)" ":....|
00000A80: 84 03 8B 49 B3 B2 4E A7  99 22 11 05 50 52 45 53  |...I..N.."..PRES|
00000A90: 53 20 12 52 45 54 55 52  4E 92 20 54 4F 20 43 4F  |S .RETURN. TO CO|
00000AA0: 4E 54 27 22 00 C3 1A 8E  03 99 22 05 50 52 45 53  |NT'"......".PRES|
00000AB0: 53 20 12 46 31 92 20 46  4F 52 20 4D 45 4E 55 22  |S .F1. FOR MENU"|
00000AC0: 3B 3A 8E 00 00 00                                 |;:....          |

.......".".H.D..65517:Z.B(781):.Z.40..53
281,0:I$."":V.10:R$."":.AR$(500)...N..Z.
22..36879,14:I$."..":V.5:R$.".....":Q$.G
(13):.AR$(50)...X.. H$(7),B(3),T(3),MG$(
3):BL$."                ".....B(0).1:B(1
).11:B(2).16:B(3).31:T(0).10:T(1).5:T(2)
.15:T(3).1.....J$."ARTICLES BY ".:...H$(
0)."..MAGAZINE..":H$(1)."..DATE..".E. .H
$(2)."..TITLE..":H$(3)."..CATEGORY.."...
..H$(4)."TITLE OF ..MAGAZINE.":H$(5)."IS
SUE DATE ..(MM/YY).".....H$(6)."TITLE OF
 ..ARTICLE.":H$(7)."ARTICLE ..CATEGORY."
......"........MAGAZINE. .INDEXER....".:
.H.."1. LOAD ALL ARTICLES":."2. LIST ALL
 ARTICLES".Z.R.."3. ENTER NEW ARTICLES":
."4. DELETE PREVIOUS "R$" ENTRIES"......
"5. LIST "J$R$H$(0):."6. LIST "J$R$H$(1)
.V...."7. LIST "J$R$H$(2):."8. LIST "J$R
$H$(3)......"9. SAVE DATA AND END"......
".....SELECT CHOICE. ";.,....C$:C.E(C$):
.C.1.C.9.260.?....C$:.I.1.750:..J....C.7
00,420,290,640,510,510,510,510,700.T.".N
.N.1. .,..".";.5)".NEW ENTRIES.":..5)"RE
CORD #"N...6..K.0.3:."."H$(K.4);...@..J.
1.T(K).3:.".. ";:.:.J.1.T(K).3:.".";:.:.
MG$(K)...J..K.1.J(MG$(K),3,1).."/".MG$(K
)."0".MG$(K).].T.MG$(K).H(MG$(K),T(K)):M
G$(K).MG$(K).H(BL$,T(K).C(MG$(K))):.K...
^.AR$(N).MG$(0).MG$(1).MG$(2).MG$(3)...H
..K.0.3:MG$(K)."":..M.R..".....PRESS .RE
TURN. FOR ADD'L ENTRIES":.910...|..C$:.C
$."".380......C$.G(13).290......C$.".".1
90.....C$."":.380.F....N.0.."...NO ARTIC
LES ON FILE.":.J.1.1500:.:.190.N...I.1.Y
...LC.0:HD$.".LIST 'ARTICLES' FILE.":.85
0...B.LC.LC.1:.870:.880:I.I.1:.I..N.LC..
V.450...L..900.C.V..CH$:.CH$."".470.T...
.CH$.".".190......CH$.G(13).440......470
......"..".2)H$(C.1):C.C.5.=....J.1.T(C)
.3:.".. ";:.:.J.1.T(C).3:.".";:.:.MH$.B.
...C.1.J(MH$,3,1).."/".MH$."0".MH$.....M
H$.H(MH$,T(C)):MH$.MH$.H(BL$,T(C).C(MH$)
)...&.I.1...0.LC.0:HD$.J$.H$(C):.850.V.:
..870:.MH$.MG$(C)..880:LC.LC.1...D.I.I.1
:.I..N.LC..V.570...N..900...X..C$:.C$.""
.600. .B..C$.".".I.N.190.2.L..C$.G(13).5
60.;.V..600.T...."....DELETE REC #";.T..
.." ..   ....";A$:.A$."".650.....I.E(A$)
:.I.N.."..RECORD NOT ON FILE.";:.690.J..
.AR$(I)."":."....RECORD DELETED.";.....N
.N.1:.J.I.N:AR$(J).AR$(J.1):.......I.1.1
000:.:.190.#....".DISK OR CASSETTE (D/C)
..".H.F..E$:.(E$.."D".E$.."C").E$."".710
.O.P..E$."D".F$."@0:ARTICLES":D1.1:.740.
..Z.F$."ARTICLES":D1.0:G$.""......C.9.78
0......D1.1.G$.",S,R".K....1,1.7.D1,8.D1
,F$.G$:.810......1,N:.I.1.N:.1,AR$(I):.:
.810: 1:.810:.190......D1.1.G$.",S,W".-.
...1,1.7.D1,1.7.D1,F$.G$:.810.X. ..1,N:.
I.1.N:.1,AR$(I):.:.810: 1:.810:..D.*..D1
.0...Z.4..O.0..15,8,15:O.1...>..15,A,B$,
C,D:.A..A;B$;C;D:.I.1.3000:....H...S.R..
".."HD$:.:.".REC#.  .MAGAZINE.   ";...\.
.Q$".DATE.  .ARTICLE TITLE.":.. .F..K.0.
3:MG$(K).J(AR$(I),B(K),T(K)):.:..N.P.X0.
C(D(I)):X1$.H("***",4.X0).I(D(I),X0.1).}
.Z.." "X1$"  "MG$(0)" "Q$MG$(1)" "MG$(2)
" ":.......I..N.."..PRESS .RETURN. TO CO
NT'".C....".PRESS .F1. FOR MENU";:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL