?d65517:Z(781):Z4053281,0:I$"":V10:R$"":AR$(500)}nZ2236879,14:I$"":V5:R$"":Q$(13):AR$(750)xH$(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)1J$"ARTICLES BY"0H$(0)"MAGAZINE":H$(1)"DATE"[H$(2)"TITLE":H$(3)"CATEGORY"H$(4)"TITLE OF MAGAZINE":H$(5)"ISSUE DATE (MM/YY)"H$(6)"TITLE OF ARTICLE":H$(7)"ARTICLE CATEGORY""MAGAZINE INDEXER"0"1. LOAD ALL ARTICLES":"2. LIST ALL ARTICLES"n"3. ENTER NEW ARTICLES":"4. DELETE PREVIOUS"R$"ENTRIES""5. LIST "J$R$H$(0):"6. LIST "J$R$H$(1)"7. LIST "J$R$H$(2):"8. LIST "J$R$H$(3)"9. SAVE DATA AND END""SELECT CHOICE";C$:C(C$):C1C92602C$:I1750:]C700,420,290,640,510,510,510,510,700g"NN1,"";5)"NEW ENTRIES":5)"RECORD#"N6K03:""H$(K4);@J1T(K)3:" ";::J1T(K)3:"";::MG$(K)JK1(MG$(K),3,1)"/"MG$(K)"0"MG$(K)OTMG$(K)(MG$(K),T(K)):MG$(K)MG$(K)(BL$,T(K)(MG$(K))):Kv^AR$(N)MG$(0)MG$(1)MG$(2)MG$(3)hK03:MG$(K)"":r"PRESS RETURN FOR ADD'L ENTRIES":910|C$:C$""380C$(13)290C$(133)190 C$"":380; N0"NO ARTICLES ON FILE.":J11500::190C I1n LC0:HD$"LIST 'ARTICLES' FILE":850 LCLC1:870:880:II1:INLCV450 900 CH$:CH$""470 CH$(133)IN190 CH$(13)440 470 ""2)H$(C1):CC59 J1T(C)3:" ";::J1T(C)3:"";::MH$^ C1(MH$,3,1)"/"MH$"0"MH$ MH$(MH$,T(C)):MH$MH$(BL$,T(C)(MH$)) &I1 0LC0:HD$J$H$(C):850 :870:MH$MG$(C)880:LCLC1 DII1:INLCV570 N900 XC$:C$""600 bC$(133)IN1901 lC$(13)560: v600S "DELETE REC #";r " ";A$:A$""650 I(A$):IN"RECORD NOT ON FILE.";:690 AR$(I)"":"RECORD DELETED."; NN1:JIN:AR$(J)AR$(J1): I11000::190 "DISK OR CASSETTE (D/C)"D E$:(E$"D"E$"C")E$""710k E$"D"F$"@0:ARTICLES":D11:740 F$"ARTICLES":D10:G$"" C9780 D11G$",S,R" 1,17D1,8D1,F$G$:810 1,N:I1N:1,AR$(I)::810:1:810:190 D11G$",S,W") 1,17D1,17D1,F$G$:810T 1,N:I1N:1,AR$(I)::810:1:810:` *D10v 4O015,8,15:O1 >15,A,B$,C,D:AA,B$,C,D: H R""HD$::"REC# MAGAZINE "; \Q$"DATE ARTICLE TITLE":fK03:MG$(K)(AR$(I),B(K),T(K))::@pX0((I)):X1$("***",4X0)((I),X01)oz" "X1$" "MG$(0)" "Q$MG$(1)" "MG$(2)" ":IN"PRESS RETURN TO CONT""PRESS F1 FOR MENU";: