dBI0:CR$(13)"hBN$(100)/n15,8,15cqPG$(1)"**************************************"rPG$(2)"--------------------------------------"sPG$(3)"======================================"x1200 "APPY ING....." 15$ I13000::"":* +S "":53280,0:53281,0:646,1:(14)o ""15)" " 16)"ILE ENU" 15)" " 10)"O YOU WANT TO....." 12)"1. REATE A FILE" 12)"2. DIT A FILE" 12)"3. XIT THE ROGRAM"> 12)"^ NTER HOICE"Q X$:X$""460a X$"1"490q X$"2"700 X$"3"200 460 53281,11:"NTER ILE AME:" 20)"" ""20);:"";FG$ 53280,11:53281,0:646,11; "NTER THE INFO ASKED FOR AT EACH PROMPT."f ""11)(34)"^"(34)" = ND SECTION"r BIBI1 "OARD AME:" 20)"" ""20);:"";BN$(BI) BN$(BI)"^"BIBI1:650 "HONE UMBER:" 20)""1 ""20);:"";PN$(BI)H "YSOP AME :"f 20)"" #""20);:"";SN$(BI) &"ASSWORD :" )20)"" -""20);:"";PW$(BI) 0" UMBER:" 320)"" 7""20);:"";ID$(BI)5 :"AUD ATE :"S =20)""o A""20);:"";BR$(BI) D"OARD OURS:" G20)"" K""20);:"";BH$(BI) N"OARD YPE :" Q20)""U""20);:"";BT$(BI)4X10)"S INFO CORRECT (Y/N)"G[Y$:Y$""603W]Y$"Y"495p_Y$"N"BIBI1:495ya603"":53280,0:53281,0:646,9"SAVE INFO? (Y/N)";X$X$"N"400""15)"AVING INFO...."#2,8,2,"@0:"FG$",S,W":900-2,BI:BN1BIa2,BN$(BN);CR$;PN$(BN);CR$;SN$(BN)2,PW$(BN);CR$;ID$(BN);CR$;BR$(BN)2,BH$(BN);CR$;BT$(BN)240053281,11:"NTER ILE AME:"20)""""20);:"";FG$42,8,2,"@0:"FG$",S,R"=900G2,BITBN1BIs2,BN$(BN),PN$(BN),SN$(BN)2,PW$(BN),ID$(BN),BR$(BN)2,BH$(BN),BT$(BN)2800 "":53280,15:53281,0:646,1)""12)" "*13)"DIT ILE ENU"<+12)" "\412)"1. IEW TO CREEN}>12)"2. RINT ARD OPY"H12)"3. ACK TO EGINNING"R12)"^ NTER HOICE"\X$:X$""860_X$"1"1000aX$"2"1300cX$"3"400e860  ERROR CHECK515,EN,EM$,ET,ESiEN0""EN,EM$,ET,ES:I1400::2:4000o"":53281,12:53280,11:646,0"AS THERE ANY CHANGES OR ADDITIONS ?":15)"(Y/N)X$:X$""960X$"Y"650 X$"N"400(53280,11:53281,0:646,115BN1BIP""12)"OARD # "BNe"OARD AME:"20)""""20)"";BN$(BN)"HONE UMBER:"20)""""20)""PN$(BN)"YSOP AME :"20)""6""20)""SN$(BN)K"ASSWORD :"i 20)"" ""20)""PW$(BN)" UMBER:"20)""""20)""ID$(BN)"AUD ATE :"20)""""20)""BR$(BN)-$"OARD OURS:"K'20)""c)""20)""BH$(BN)y."OARD YPE :"120)""3""20)""BT$(BN)8"RESS "(34)"+"(34)" TO VIEW NEXT BOARD INFO"%:"RESS "(34)"-"(34)" TO VIEW PREVIOUS BOARD INFO"V;"RESS "(34)"\"(34)" TO EDIT THE INFO"j=X$:X$""1085{>X$"\"1100?X$"+":BNBI950@X$"-"BNBN1ABN0950BBN01003H1085L""Q"1. "BN$(BN)R2. "PN$(BN)S"3. "SN$(BN)$T"4. "PW$(BN)6U"5. "ID$(BN)HV"6. "BR$(BN)ZW"7. "BH$(BN)lX"8. "BT$(BN)`4)"NTER THE ITEM # TO BE CHANGED"eX$:X$""1125jX$"1""EW AME";BN$(BN):"":1140*kX$"2""EW UMBER";PN$(BN):"":1140glX$"3""EW YSOP ";PN$(BN):"":1140mX$"4""EW ASSWORD";PW$(BN):"":1140nX$"5""EW UMBER";ID$(BN):"":1140oX$"6""EW AUD ATE ";BR$(BN):"":1140TpX$"7""EW OARD OURS";BH$(BN):"":1140qX$"8""EW OARD YPE ";BH$(BN):"":1140t" NY OTHER CHANGES ? "uX$:X$""1141vX$"Y"1100wX$"N"1000x1141"":53281,0:53280,0:53272,21(""C14)" "^14)"ó ó "y14)" """4)"ղ ò ɲ "4)" ó ó "4)" ñ ʽ """712)"BY D.P. SEARLES"LI15500::400R`4,4,7:4ST0"ROBLEM WITH PRINTER":1305"RINTER IS ON-LINE & FINE":I13000::1500"RY AGAIN Y/N?"A$:A$""1306A$"N"400"1300,1303K(53280,11:53281,0:646,11X)BN1BIs+""12)"OARD # "BN-"OARD AME:"/20)""1""20)"";BN$(BN)2"HONE UMBER:"520)"" 7""20)""PN$(BN)#<"YSOP AME :"A?20)""YA""20)""SN$(BN)nF"ASSWORD :"I20)""K""20)""PW$(BN)P" UMBER:"S20)""U""20)""ID$(BN)Z"AUD ATE :""]20)"":_""20)""BR$(BN)Pd"OARD OURS:"ng20)""i""20)""BH$(BN)n"OARD YPE :"q20)""s""20)""BT$(BN)x10)"RINT THIS INFO ?"yX$:X$""1401zX$"Y"BNBI14503{X$"N"BNBII|X$"N"BNBI400S}1401o12)"RINTING......"z4,4,44:44,PG$(1)44,(14)BK4)BN$(BN)4,PG$(2)4,(14);04);"PHONE NUMBER:"PN$(BI) 4,(14);04);"SYSOP'S NAME:"SN$(BI); 4,(14);04);"PASSWORD :"PW$(BI)d 4,(14);04);"I D NUMBER :"ID$(BI) 4,(14);04);"BAUD RATE :"BR$(BI) 4,(14);04);"BOARD HOURS :"BH$(BI) 4,(14);04);"BOARD TYPE :"BT$(BI) 4:4:4 4,PG$(1)!4,(15)!12)"" !BN2!53281,0:""Q!13)" "h!15)"Ԡ"!13)" "!12)"1. RINT HOLE ILE"!12)"2. RINT NDIVIDUAL NFO"!12)"3. ND!12)"^ HOOSE""X$:X$""1525"X$"1"20000"X$"2"1320D"X$"3"4:400N"1525Y"4,4,4c"4:4q"4,PG$(1)"4,"HE FOLLOWING IS THE ENTIRE CONTENTS OF THE FILE....""4,""15)(14)FG$"4:4"4,PG$(3)"BK1BI"4 #4,(14)BK4)BN$(BK)#4,PG$(2)A#4,(14);04);"PHONE NUMBER:"PN$(BK)j#4,(14);04);"SYSOP'S NAME:"SN$(BK)#4,(14);04);"PASSWORD :"PW$(BK)#4,(14);04);"I D NUMBER :"ID$(BK)#4,(14);04);"BAUD RATE :"BR$(BK)$4,(14);04);"BOARD HOURS :"BH$(BK)7$4,(14);04);"BOARD TYPE :"BT$(BK)D$4:4:4R$4,PG$(1)X$e$4,(15)l$4u$ 400