DWB 3 CHAR LOADER P 312 CHR.80 P 4099 PHONE FIND P 31687  %"58,("D0")::30:90;"CHR.80",B1,P53248i(60:I0("2B"):X$:("0200")I,(X$):215:("0200"):< A9,20,8D,A2,02,A9,22,8D,A3,02,A9,02,8D,A4,02,20,62,FFF A9,AD,8D,A2,02,A9,00,8D,A3,02,A9,FF,8D,A4,02,60P A2,01,BD,F0,F7,AA,AD,00,FF,605Z58,("FF")::"PHONE FIND""NN@"$B~BBB|""<""|"@@@"x$"""$x~@@x@@~~@@x@@@"@NB"BBB~BBBD8BDHpHDB@@@@@@~BfZZBBBBbRJFBB$BBB$|BB|@@@$BBJ$|BB|HDBBBBBBB<BBB$$BBBZZfBBB$$BB"""~ @~< < <"|<<*  $$$$$~$~$$( <bd&F0HH0JD:  *>*>~ @80`0~~p  p>PPPP>T?UUUUUUݱ۽݃ݿۇݿ۽۽ý۽߿݃߀ہہٹϷϵ߿ýýϿýہ߿ýýýϟýÁ߿Áہ~۽~ý癙____UUUUUU?????????"NN@"<>B>@@|BBB|BBB>" p >BB>|@@xDDDDD8@@BDxDBBfZBBxDDDD8DDD8|BB|@@>BB>\b@@@<@<|| BBBB<BBB$BBZ$$B$$BBBB>|~ ~< < <"|<<*  $$$$$~$~$$( <bd&F0HH0JD:  *>*>~ @80`0~~p  pBBBBBB<BBB$$BBBZZfBBB$$BB"""~ @~PPPPUUUUmmmUUUUUUm۶m۶mHP`@ݱýýߏǿǻÿ۽߁݃߀ہہٹϷϵ߿ýýϿýہ߿ýýýϟý۽݃ݿۇݿ۽۽ý۽߿____UUUUI$I$IUUUUUUI$I$I????????  24302200G%:(27)"U";:(142);:(27)"F";:52639,1P8:P$"8":DR$"8":53280,0:53281,0: 1,"OT VAILABLE"21,32 600 :::::::::::::::::::::::::::: :: NAME ENTRY ::8 ::::::::::::::::::::::::::::Y (14):P(DR$):3500:(14) 1,30,1,"- ILE NTRY - AITING _ ":"": 52591:(27)"T" "NTER THE NAME YOU WISH TO LOG."' "...NTER THE LAST NAME IRST, THEN PACE, THEN IRST NAME."q ": EAGON ONALD":"":"FTER ENTERING THE NAME PRESS [].""RESS Λ ALONE TO ABORT OPERATION":1,40960,10:21,32"":A$A$"A" 600A$"" 60015:"": 500"":%:2220u15,"S0:"A$:"AVEING ";:(142);:"";:A$;:"";:(14);:" TO DATABASE STORAGE": 3:15P:P,P,P,A$",S,W":200P,A$P,B$P,C$P,D$P,E$ P 600+ , ::::::::::::::::::::::::::::. - :: READ SEQ FILE ::Q . :::::::::::::::::::::::::::: /(14):A$"":B$"":C$"":D$"":E$"":F$"" 0 3500:(14): 1,30,1,"- EARCH ODE -":""!4" LEASE ENTER THE NAME YOU WANT DISPLAYED.":{!5" NTER THE  NAME ԕ.":" NTER '' TO ABORT"!61,40960,10: ""!721,32!852591"9:" ";A$:A$"" "OT CCEPTABLE !": 1:A$""304":"":A$"A"600";3500:(14):1,30,1,"- EARCH ODE -":"":(27)"T":"EARCHING FOR ";:(142);:"";:A$:(14):"""<%"@P(P$):P: P,P,P,A$",S,R":(14):322"A"BP,A$,B$,C$,D$,E$,F$"CB$""629#DDS$"4"629>#E"": 3500:(14):1,28,1,"- ISPLAY CREEN -":#F(14);:"AME - ";:(142);:A$:(13);:(14);:"UMBER - ";:B$::"DDRESS - ";:C$:" ";:D$#G(13):" - OMMENTS -";:E$#HP:2245k$I(14):"":" ":" RESS RETURN WHEN READY":" OR '' TO DIT"~$JS$:S$""330$KS$"E"2311$M600$ ::::::::::::::::::::::::::::$ :: PHONE NO. ENTRY ::% ::::::::::::::::::::::::::::%"":1,40960,10<%"OW THE PHONE NUMBER FOR ";U%"";:A$;:".":""e%: B$:""k%% ::::::::::::::::::::::::::::% :: ADDRESS INPUT ::% ::::::::::::::::::::::::::::%""%""&"ND THE NUMBER AND STREET FOR ";^&"";:A$;:".":""::"F NO ADDRESS IS AVAILABLE THEN PRESS '1'"&: C$:"":C$(133)C$"NOT AVAILABLE"&""&"ND THE ITY TATE IP CODE FOR ";:(142);:"";:A$:(14)'':"F NO INFORMATION IS AVAILABLE PRESS '1'":""::D$:""K'D$(133) D$"NOT AVAILABLE"V' 2120\'/n'X"": 2450'e"":(142)'f1,40960,10'gZ$:Z$""615'hZ$"A""":9'iZ$"B"300'jZ$"C"2100'kZ$"D"662(lZ$"E" : 2010(mZ$"F" : 2060((nZ$"G" 9009(oZ$"@" 639K(pZ$"H" 2340](qZ$"I" 2370o(rZ$"^" 2495(sZ$"A"Z$"I"Z$"H"Z$"B"Z$"C"Z$"D"Z$"E"Z$"F"Z$"@"Z$"^" 2240)t ::::::: READ ERROR CHANNEL :::::::::&)u15:"": 15,P,159)v 15, E,E$,T,SJ)w E 20 2)x(14):" 'M SORRY BUT AM UNABLE TO LOCATE ";:A$:::" TATUS REPORT IS: ";: E$: *y"":P: 3,5000,90,2,3000,2000,1:L08:52684,L,23:X1150:X:L%*zA14000::B$""2+*{N*| ::::::::::::::::::::::::::::q*} :: SAVE MAIN PROGRAM ::*~ ::::::::::::::::::::::::::::*P(P$):%*"":A15:" "::(14)*"E-SAVEING AIN ROGRAM......" +:"TAND-Y.................")+%:"@0:PHONE FIND",P:6005+"": ;+a+ ::::::::::::::::::+ :: EXIT PROGRAM ::+ ::::::::::::::::::+%;,(14): " LEASE VERIFY THAT YOU WISH TO LOG OFF THIS PROGRAM.":" ES / O"C,R$R,R$""671h,R$"N""":600{,R$"N"4000,"":%,A$"F YOU NJOYED THIS PROGRAM, EEL REE TO SEND A DONATION:":,J1 (A$):(A$,J,1);:K15:K,J:(-A$" NTHONY AYOTTE"W-"":J1 (A$):(A$,J,1);:K15:K,J:-A$" 263 EST 6TH TREET"-J1 (A$):(A$,J,1);:K15:K,J:-A$" EER ARK 11729" .J1 (A$):(A$,J,1);:K15:K,JD.A$"- / ONY "l.J1 (A$):(A$,J,1);:K15:K,Jw."":. "":53280,0:53281,0.-%:2.. :::::::::::::::::::::::::::::::::::. :: SWITCH BETWEEN DRIVES 8 & 9 :: / :::::::::::::::::::::::::::::::::::+/(14)c/3500:(14):1,27,1,"- LOPPY RIVE ELECTION -"/::24)"RIVE ";:""P$;:" IS CURRENTLY ACCESSED."/"8] - - - ILL ACCESS FLOPPY DRIVE DEVICE # 8"90"9] - - - ILL ACCESS FLOPPY DRIVE DEVICE # 9"~0" HOOSE ONE OF THE ABOVE OPTIONS."0DR$0DR$"8"DR$"9"9101DR$"8"" 8] - - - ILL ACCESS FLOPPY DRIVE DEVICE # 8";:""[1DR$"9"" 9] - - - ILL ACCESS FLOPPY DRIVE DEVICE # 9";:""l1 30,3,31,4u1DR$1 2:P$DR$1""1600111L0100:52684,L,351X120:X: DELAY LOOP1L12::::::::::::::::::::::::::::::::::62:: HELP SCREEN ::^2::::::::::::::::::::::::::::::::::w2 SWITCH TO SCREEN 2}22%2"ϣ"53" OPTION RESULTS "3"============================================================================"3" A] WILL ALLOW YOU TO ENTER OR UPDATE A LISTING. TO UPDATE A LISTING, "?4" USE THE 'E'DIT OPTION. WILL ALSO ALLOW CORRECTIONS BEFORE STORAGE. "4"----------------------------------------------------------------------------"4" B] WILL PERFORM A SEARCH FOR THE NAME YOU ARE LOOKING FOR. "F5" IF FIRST & LAST NAMES ARE USED,ENTER NAMES IN THE FOLLOWING WAY. "5" EXAMPLE: REAGON RONALD - WILD CARDS ARE ACCEPTABLE (*) "5"----------------------------------------------------------------------------"T6" C] WILL DISPLAY THE DISK DIRECTORY OF DRIVE 8 OR 9. "6"----------------------------------------------------------------------------"7" D] WILL TERMINATE THIS PROGRAM. "Y7"----------------------------------------------------------------------------"7" E] WILL BRING YOU TO THIS HELP MENU. "8"----------------------------------------------------------------------------"c8" F] WILL ERASE ANY ENTRY FROM THE DISK DATABASE. USE CAUTION WITH "8" WITH THIS COMMAND. "9"----------------------------------------------------------------------------"n9" G] WILL TOGGLE YOUR ACCESS FROM DRIVE 8 TO DRIVE 9. "9"----------------------------------------------------------------------------":" H] WILL PERFORM A SEARCH FOR SPELLING BY ENTERING 1 OR MORE LETTERS. "s:"----------------------------------------------------------------------------":" I] WILL PRINT ANY FILE INFORMATION TO THE PRINTER. "K;"̤(PRESS ANY KEY TO RETURN)";:A$i; SWITCH BACK TO SCREEN 1r;"";52684,0,12:52684,8,20:2606,0:2607,8:6,1:"";;(27)"U":(27)"E":600; ::::::::::::::::::::::::::< :: DELETE ENTRY ::4<  ::::::::::::::::::::::::::e< 3500:(14):1,27,1,"- ELETE AN ENTRY -"< "":(15);"ǟ";(143):<"HIS COMMAND WILL ERASE AN ENTRY!!!"="RE YOU SURE YOU WANT TO CONTINUE ?":1,40960,10: 1:1,40960,10: 1:1,40960,10: 1:1,40960,10)= H$>=H$"Y" :600w=::"HAT IS THE NAME OF THE FILE TO BE ERASED ";X$="ELETING ";:(142);:"";:X$=P(P$):15: P:15,P,15:15,"S0:"X$= 3:(27)"E":P= 600> ::::::::::::::::::::::::::3> :: DISPLAY DIRECTORY ::W> ::::::::::::::::::::::::::]>c> >4 2239: 3500 : (14) :1,30,1,"- ISPLAY IRECTORY -"+?5(14):"LEASE SPECIFY WHICH DRIVE IS TO BE ACCESSED.":"EVICE # 8 OR 9 - '' TO ABORT - OR * FOR ETAILED IRECTORY"4?6S$E?7S$"8"2116V?8S$"9"2113g?9S$"A" 600w?:S$"" 600?;S$"*" 4600?>S$"8"S$"9"S$"A"S$"*" 6004@A&::"RESS 'O CROLL' O AUSE - UN/TOP TO BORT ":"RINTING IRECTORY FROM DEVICE # " ;:"";:S$;:"";n@B" ": 1@C24,6,59,24:"": D0,U9: 2:"":%:A$:2: ACCESS DEVICE # 99AD&::"RESS 'O CROLL' O AUSE - UN/TOP TO BORT ":"RINTING IRECTORY FROM DEVICE # " ;:"";:S$;:"";sAE" ": 1AF24,6,59,24:""AG : 2:"":%:A$:2AH(14):" - OMMENTS -"BI"OULD YOU LIKE TO MAKE A COMMENT ?"BJI$+BKI$"Y" E$"";BLI$"Y" _BM"LEASE ENTER YOUR COMMENT"oBO"";: E$uBRB\&:SI54272:W1SI4:W3SI18:VSI24:PWSI27:PESI28B^ISIPE:I,0:B`W11,17:W12,251:W31,187:W32,140CbV,143:W3,17Cd214,22::211,9*CfW33,15:W1,176ChW3,129YCjI1100:54273,(54299)73:nClV,0:W1,0:W3,0wCn%:C%: "":(142)C" D" \D" D" D" %E" mE" E" F(14):" (TM)";:(142)GF" F" F" 1G" G" G" H" iH" H" 5I" ":(14):"RITTEN Y: . AYOTTE";: 2:"":I"": 3500: 21,32:(14): 1,30,1,"- ERIFY NTRY -":""I"":(142);:15)A$:(14);:15)B$:15)C$:15)D$:: 15)E$EJ" S THIS THE CORRECT NFORMATION ?"::" ٕ=ES * Ε=O"}J:" '' TO ABORT"JX$JX$"A"X$"Y"X$"N"X$"Q"2224JX$"A" 600JX$"Y" 2330JX$"N"1,32,22,"''"K10,9,13,16K" ":" "K10,9,13,16K" ->":" ->":" ->":" ->":" ":" ->"K 12,4,79,51L"HOOSE THE LETTER NEXT TO THE INCORRECT INFORMATION.":21,32":" ->":" ->":" ->":" ":" ->"T  10,4,79,53U "HOOSE THE LETTER NEXT TO THE INCORRECT INFORMATION.">U 2250KU P(DR$)XU 15,P,15aU 22lU$ (14)U& 3500:(14):1,30,1,"- LIND EARCH -"U' 0,4,79,24,1U( "NTER ONE (1) OR MORE LETTERS FOR THE SEARCH."9V* " WILL DISPLAY ANY (S) WITH THE CORROSPONDING LETTER(S).tV+ "RESS 'Η' TWICE TO BORT THIS OPERATION."V, 21,32: :"EARCH PATTERN IS: ";I$V. I$""600V1 0,4,79,24,1V3 (I$)"*" W4 "EMEMBER THE CORRECT SPELLING FOR YOUR FILE SEARCH !"W5 0,21,79,22,1lW6 " RESS ANY KEY WHEN DONE VIEWING."uW7 S$W8 "":2340WB (14)WE 3500:(14):1,30,1,"- RINT ILE -"XH "NTER THE NAME OF THE FILE YOU WISH TO BE RINTED.",XI "RESS [ETURN] TWICE TO ABORT !"7XJ 21,32RXK "":"ILE AME:";A$aXN A$""600qXO A$"A"600XQ P(P$):P,P,P,A$",S,R":2388XS XT P,A$,B$,C$,D$,E$XW B$""629XZ DS$"4"629X^ 4,4,7 Y_ 4,"------------------------------------"%Y` 4," : ";A$AYc 4," : ";C$\Yf 4," ";D$wYi 4," : ";B$Yl 4," : ";E$Yn 4," # #"Yo 4,"------------------------------------"Yp " "Yr SA9:P:4:4Z{ "": 600Z~ 600@Z :::::::::::::::::::::::::::::::::::nZ :: MAIN MENU / REVISED 8-26-88 ::Z :::::::::::::::::::::::::::::::::::Z %:"":(142)Z 3500:(14)[ " ].......... NTER NEW NAME & NUMBER"C[ :" ].......... EARCH & DISPLAY"[ :" ].......... ISK DIRECTORY "[ :" ].......... XIT PROGRAM"[ :" ].......... ELP SCREEN"2\ :" ].......... ELETE AN ENTRY"m\ :" ].......... WITCH RIVES"\ :" ].......... LIND EARCH"\ :" ].......... ILE RINTOUT"] :" ^].......... UB ENU";D] 1,30,1,"- -":52639,1P] (142)`] 0,0,1,""p] "";: ;] ::::::::::::::::] :: SUB MENU ::] ::::::::::::::::^ 35008^ (14);:23)"].............. OS OMMANDS"r^ 23)"].............. OLLECT ISK - (LEAN P)"^ 23)"].............. HONE IND OCS"^ 23)"^].............. ETURN TO AIN ENU"_ 1,30,1,"- UB ENU - AITING _ ":52591-_ 1,40960,107_ SUB$I_ SUB$""2520\_ SUB$"A"2700o_ SUB$"B"2800_ SUB$"C"4700_ SUB$"^"600_( SUB$"A"SUB$"B"SUB$"C" 600_ :::::::::::::::::::::::::::::%` :: DOS COMMANDS ::Y` :::::::::::::::::::::::::::::s` "":3500:(27)"F"` (14);:23)"].............. NITIALIZE RIVE"` 23)"].............. ORMAT ISK"a 23)"].............. RROR TATUS"=a 23)"^].............. ETURN O REVIOUS ENU"a 1,30,1,"- OS OMMANDS - AITING _ " :52591a 1,40960,10a D$a D$""2715a D$"A"2740a D$"B"2721a D$"C"2760a D$"^"2495"b ::::::::::::::::::::::::::Rb :: FORMAT DISK ::b ::::::::::::::::::::::::::b 3500:(14)b 1,30,1,"- ORMAT DISKETTE -" c "";:(15);"! ! ! ! ! ! ";(143):c "EFORE GOING ANY FURTHER PLEASE ACKNOWLEDGE THAT YOU WANT TO FORMAT A DISKETTE.":"ٛ ES OR Λ O"c 52639,1: FO$c FO$""2728c FO$"Y"2732c FO$"Y"2700c 3500d (14):1,30,1,"- ISK ORMAT -"d "1] EMOVE DISK FROM DRIVE ": 1:"2] NSERT EW ISETTE"d 1:"3] RESS []": 1:"4] RESS 'A' TO ABORT"d MT$d MT$"A"27244e 15,8,15:15,"NO:PHONE FIND,P1":"ORMATING...."Be 15:2700re ::::::::::::::::::::::::::e :: INITIALIZE DRIVE ::e ::::::::::::::::::::::::::f 52639,1: 3500:(14);:"";:1,27,1,"- NITIALIZING RIVE -"jf "NITIALIZATION N ROGRESS.....": 1}f 1,P,15,"I":1f "NITIALIZATION OMPLETE ! ";: 2:2700f ::::::::::::::::::::::::: g :: ERROR STATUS ::Og :::::::::::::::::::::::::Ug gg 3500:(14)g 1,30,1,"- RROR TATUS -":52639,1g "";:DS$: 2:2700g :::::::::::::::::::::::'h :: COLLECT DISK ::Th :::::::::::::::::::::::Zh kh 3500:(14)h 1,29,1,"- OLLECT ISK - AITING _ " :52591h ""i "SE THIS COMMAND TO MAKE AVAILABLE ANY DISK SPACE THAT HAS BEEN ALLOCATED"fi "TO IMPROPERLY CLOSED (SPLAT) FILES, AND TO DELETE REFERENCES TO THESE FILES"i "FROM THE DIRECTORY. PLAT FILES ARE FILES THAT APPEAR ON THE DIRECTORY WITH"i "AN ASTERISK NEXT TO THEM."'j "O YOU WISH TO AT THIS TIME ? ES OR O"" O AND YOU WILL RETURN TO THE MAIN MENU. NSWER WITH A ES AND YOU WILL BE"v" ASKED FOR THE NAME OF THE FILE TO BE DELETED."" - '' ԛ"ňV$׈V$"A"4827"": 2495"" " WITCH RIVES:"$" "x" FTER ACCUMULATING A LARG NUMBER OF DISKS WITH YOUR PHONE NUMBERS ON THEM"Ή" YOU MAY WANT TO USE A SECOND DRIVE TO VIEW 2 DISKS AT A TIME. O DO SO JUST""" CHOOSE OPTION '' FROM THE MAIN MENU AND YOU WILL HAVE THE OPPORTUNITY TO"W" CHANGE THE ACCESS FROM DRIVE 8 TO DRIVE 9."o" LIND EARCH:"" "܊" O USE THE CHOOSE OPTION '' FROM THE MAIN MENU. OU WILL BE"0" ASKED TO ENTER ONE (1) OR MORE LETTERS TO PERFORM A SEARCH FOR A FILE OR "" FILES WITH THE FIRST LETTER OR LETTERS THAT YOU ENTERED. F YOU ENTER THE"؋" LETTER '' THE SYSTEM WILL LIST ALL THE FILES THAT START WITH THE LETTER "+" ''. F YOU ENTER THE LETTERS '' THE SYSTEM WILL LIST ALL THE FILES"" THAT START WITH ''. OTE THAT THE SYSTEM LOOKS FOR THE FIRST LETTERS"Ό" OF A FILE, SO, IF YOU ENTERED '' AS YOUR FILE TO SEARCH FOR THE"" SYSTEM WILL ALSO LIST THE NAME ''.H" - '' ԛ"QV$cV$"A"4851t"": 2495~""" LIND EARCH (CONT):" "" HIS FEATURE IS GOOD FOR WHEN YOU HAVE MORE THAN ONE RELATIVE WITH THE SAME"e" LAST NAME AND YOU FORGOT HOW YOU HAD ENTERED IT WHEN YOU LOGGED THE FILE."" ILE RINTOUT:"" "" HEN YOU CHOOSE OPTION '' FROM THE MAIN MENU ANY FILE YOU WANT DISPLAYED"&" WILL DO SO ON ANY , OR COMPATIBLE, PRINTER.";" UB ENU:"P" "" HOOSE OPTION '' FROM THE MAIN MENU AND YOU WILL BE BROUGHT TO THE SUB MENU"" OF THE PROGRAM. ERE YOU WILL HAVE THE OPTION TO USE THE DOS COMMANDS,"G" COLLECT A DISK OR READ THE DOCUMENTATION,(WHICH YOU ARE READING NOW)." - '' ԛ"V$V$"A"4870"": 2495Ð""ِ" OS OMMANDS:" ", " HOOSE AND YOU HAVE THE OPTION TO:"r " A] NITIALIZE A DRIVE" " B] ORMAT A DISKETTE " " C] EAD THE ERROR STATUS"T " A] NITIALIZE A DRIVE WILL CLOSE ALL CHANNELS TO THE DRIVE IF YOU HAVE "" ENCOUNTERED AN ERROR WHILE USEING THE SYSTEM. "" B] ORMAT A DRIVE WILL PREPAIR A DISKETTE TO USE FOR YOUR DATABASE. SE "0" DISKETTES WITH THIS COMMAND AS IT WILL ERASE ANY AND ALL "M" INFORMATION ON IT."" C] NY TIME YOU NOTICE THE DRIVE LIGHT FLASHING USE THIS OPTION TO FIND"œ" OUT WHAT THE PROBLEM IS." " - '' ԛ"V$&V$"A"48927"": 2495A""X" OLLECT ISK:"q" "Ȕ" SE THIS COMMAND TO MAKE AVAILABLE ANY DISK SPACE THAT HAS BEEN ALLOCATED TO" " IMPROPERLY CLOSED (SPLAT) FILES, AND TO DELETE REFERENCES TO THESE FILES"q!" FROM THE DIRECTORY. PLAT FILES ARE FILES THAT APPEAR ON THE DIRECTORY WITH""" AN ASTERISK NEXT TO THEM. "#"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"F$" HOPE HAVE NOT LEFT ANYTHING OUT. UT TIME WILL TELL AND SO WILL THE USERS"%" OF THIS PROGRAM. HOPE YOU ENJOY THIS PROGRAM AS MUCH AS HAVE IN MAKING IT."&" HIS PROGRAM HAS ONLY BEEN AUTHORIZED FOR DOWNLOAD ON UANTUM-INK BY THE"'" AUTHOR WHO IS NTHONY AYOTTE.e(" HIS PROGRAM IS RELEASED FOR PUBLIC DOMAIN BY THE AUTHOR.")" ՛"*V$ė+"":2495