"?"*******************************l"* BY NICK 'ICEMAN' KOTZAMANIS * "* PLEASE READ MESSAGE FROM *!"* PROGRAMER!! THANK YOU. *""* NICE TRY ON THE LIST! * #"*******************************' $D ( **** TITLE SCREEN ****g )808,234:"{ 1"":(14)(8) 2N0$" AGAZINE RTICLE NDEXER 2.11 " 3" 4 7N1$" ICK OTZAMANIS " 8" 9 <L0(N0$) AL1(N1$) FC0(40L0)2' KC1(40L1)28 P I 1 L0W U53280,I:53281,I:646,I1k Z X 1 150:X d"":""C0)(N0$,I); n I x:19)"Y" I 1 L1 X 1 50:X "":""C1)(N1$,I); I X 1 2000 : X% ", : MA$(201)[ "*** CONTROL MODULE ***} 800 :"** READ SEQ ** 300 :"** MENU ** 450 :"** ARTICAL INPUT ** 700 :"** SAVE SEQ ** 2000 :"** SAVE REL ** 300 : * MENU *D 900 : ** GET RECORD NUMBER **\ 300 : * MENU * 1500 :"** SEARCH MAGAZINE ** 300 :"** MENU ** 3200 :"** MESSAGE ** 300 :"** MENU ** 3800 : * LIST ARTICALES * 300 : * MENU *2 ,"*** MENU ***? J""::P T18)"ENU"b ^17)"" h:7)"DD AGAZINE RTICLE" r7)"ǒET RTICLE ECORD UMBER" |7)"ӒEARCH FOR AGAZINE" ~7)"̒IST RTICLES TORED"7)"͚ESSAGE FROM PROGRAMMER"K" "{"LEASE TYPE IN LETTER OF YOUR CHOICE";A$ A$"A"A$""220 A$"G"A$""230 A$"S"A$""235 A$"M"A$""239 A$"L"A$""245 A$"STOP" "T:"Ġ! Š٠.":X12000:X^ 300"**** ADD MAGAZINE ARTICAL ****""9)"DD AGAZINE RTICLE"""RN0: RNRN1: MA$(RN)"EOF" 570: : RN 201 3700I: 500k:"NPUT AME OF AGAIZNE";NM$D"NPUT ONTH OF AGAIZNE";MM$N"NPUT EAR OF AGAIZNE";YMX"NPUT AGE THE RTICLE STARTS ON";PAb"NPUT AME OF RTICLE";MA$(RN))l::"HANK OU FOR THE NFORMATION."DvX0: X 1 1500: XJj"*** SAVE SEQ FILE ***v"}X0 8,8,8,"@0:DATA 1,S,W": XX1: X 201 760: MA$(X)"" 760: 8,MA$(X) 720MA$(X)"EOF"8,MA$(X)% 8:E "*** READ SEQ FILE ***Q!"X"x*""13)"OADING ATA"4 8,8,8,"0:DATA 1,S,R"9X0>: XX1: X 201 860H: 8,MA$(X)M: MA$(X)"EOF" 860O: ST0870R: 830\ 8:f15,8,152k15,E,E1$,E2,E3Ap E62885Su8:15: 3000{"*** ARTICAL RECORD NUMBER ***"""8)"ET RTICLE ECORD UMBER"""" OU WILL HAVE TO REMBER THE RECORD"?"NUMBER. O YOU CAN INPUT IT IN THE"e"EARCH FOR AGAZINE SUBROUINE."w"HANK OU.""""LEASE TYPE IN THE AGAZINE RTICLE""""";:M1$RN0 : RNRN1(: M1$MA$(RN) 1070C: RN 201 1210R: 1020i.""8"HE AGAZINE RTICLE IS: ";M1$B:"HE ECORD UMBER IS: ";RNL:"IT THE WHEN YOU HAVE THE ECORD UMBER."V HI$: HI$"" 1110!` HI$(32) ,j 1110D""g"AGAZINE RTICLE NOT FOUND.""AN YOU LEASE TRY AGAIN.""HANK OU."X12000:X217"*** GET MAGAZINE ***""11)"EARCH FOR AGAZINE"+""T"LEASE INPUT THE ECORD UMBER";RN  RN100"ĠҠϠ.Š.":1540:"HANK OU." X 1 1000: X"*** READ REL ***""":13)"OADING ATA",15,8,15:8,8,8,"0:DATA 2"<615,"P"(896)(RN)(0)(1)Q@8,MM$,YM,NM$,PA^E15,E,E$iJ8:15O"*******************T""^11)"EARCH FOR AGAZINE"h""r"AGAZINE RTICLE: ";MA$(RN)&|"AGAZINE ECORD UMBER: ";RNE"AME OF AGAZINE: ";NM$e"ONTH OF AGAZINE: ";MM$"EAR OF AGAZINE: ";YM"AGE THE RTICLE IS ON IS: ";PA::"RESS THE TO GO TO THE ENU.""HANK OU." AN$: AN$"" 1730 AN$(32)# 1620?"*** WRITE REL ***h 15,8,15:8,8,8,"0:DATA 2,L,"(72)15,"P"(896)(RN)(0)(1)RC$MM$(13)(YM)(13)NM$(13)(PA)8,RC$15,E,E$8:15  E51 :"Ϡ٠ӠΠŠ."&X11000:X: 217U  E52 :"ԠȠ͠ΠŠ."h*X11000:X: " *** NEW FILES STARTER *** 3400 "":9)"ETTING P EW ILES" "** OPEN REL FILE ** 15,8,15,"I" 8,8,8,"0:DATA 2,L,"(72)4 15,"P"(896)(201)(0)(1)A 8,"EOF"U 8:15,E,E$:15r " ** SET UP SEQ **& 8,8,8,"0:DATA 1,S,W"0 MA$(1)"EOF": 8,MA$(1)D 8N S "T  "*** MESSAGE FROM PROGRAMER ** ""! 9)"AGAZINE RTICLE NDEXER":( F 11)"Y ICK OTZAMANIS"v ""}  " I, THANK YOU FOR USING THIS PROGRAM." " " WOULD LIKE TO HERE FROM YOU. F YOU" "LIKE THIS PROGRAM AND SUPORT THE "Z "PROGRAMER PLEASE SEND $10.00 OR MORE, OR ANY THING YOU CAN AFFORD."u "F YOU DON'T LIKE "; "IT AM SORRY! F YOU HAVE"; " ANY QUESTIONS, COMMENTS, SUGGEST-"  "TIONS OR MONEY ON THIS PROGRAM OR ON WRIT"; "2 "TING OTHER PROGRAMS. LEASE WRITE TO:"9 K :"ICKOFT"R f "705 ERNWOOD"o " "ONESBORO, " "72401":"LL FUNDS WILL BE APPRECIATED!" "LEASE PASS THIS PROGRAM ON TO OTHERS! HANK OU!"  X115000:X * G "*** FASTLOAD INFO ***3 H "": M _ R 9)"AGAZINE RTICLE NDEXER":h W " \ 11)"Y ICK OTZAMANIS" f "" p :" HANK OU FOR USING THIS PROGRAM."!z " AM SORRY TO INFORM YOU, IF YOU ARE"