с:П┘ DBASES.BAS v 1.3 - Database management program for Tandy 600 & Heath ZP-150":П┘ Copyright 1986 - David Dunn Thomas - All rights reserved└:П┘ This program may NOT be submitted, published, or uploaded to other BBS, local or national, in any format without author's permission in writing. :П┘ Contact author at 2308 Chetwood Circle, #103; Timonium, MD; (301) 252-5379c :П┘ Program will be tailored to user's specifications on stipended request. └:╔ ▌:Х з Й ,:░(,)ъ(▀,),,BF:░(,d)ъ(▀,i),,BF:╩ ,:┐ :С" D A T A B A S E M A N A G E R ":┐:╩ ,:С"by David Dunn Thomas":╩ ,!:С"Copyright 1986":В Aч ╠ ╨:Гд н IъK:Ж R(Ї),I(Ї),N$(),N(),D$(),E$(),D(),FT():В Iч ╠ P:S$чS$щ" ":DA$чDA$щ"-":Г:BL$ч Г(S$,,)щ"":U$ч"$$####,.##"┴ ■к "DBCALLS.LIB":└:Й '╘ │ RNUMF(H,R):Оь Z$чЕ$():Zч Ф(Z$):О# ╩ ,<,:┐ :С"Press any key ->";:┐:С" ";:Н :ОпЛ Dч ═ PH$ч"("щ Б(D$(),)щ")"щ Г(D$(),,)щ"-"щ В(D$(),):D$()чPH$:PH$ч"("щ Б(D$(),)щ")"щ Г(D$(),,)щ"-"щ В(D$(),):D$()чPH$ўЛ Dч ═ DT$ч Б(D$(),)щ"/"щ Г(D$(),,)щ"/"щ В(D$(),):D$()чDT$¤ ОFН :В Iч ╠ Rъ:│ ROPEN(H,I):│ FGET(H,N(),I(Iщ)):│ RCLOSE(H):Г:О╔HP$ч" "щH$щ" Section ":└:╩ , Е((Pъ Т(HP$))ь),:┐ :С HP$:┐:╩ ,@:С"Date: "■Н:Л H ═ Н :╩ ,,:С R"records in "F$:О :б О, │ DBOPEN(F$,,H):Н :З NF:В Iч ╠ NF:З N$(I):│ FGID(H,N$(I),N(I)):│ FGTYPE(H,N(I),FT(I)):Г:О@ │ QSTART(H,R())Н Л FT(FS)ч ═ │ QFIELD(H,R(),N(FS),M,,Q) :б │ QFIELD(H,R(),N(FS),M,,Q$)ж │ QEND(H,R()):DFч:О┐ В Jч ╠ NF:D$(J)чBL$√ Л FT(J)ч ═ │ FGET(H,N(J),D(J)) :б │ FGET(H,N(J),D$(J))Г J:ОС:С ╬);:В Kч ╠ NFGЛ Dч ю Kч ═ С" Z ";N$(K)" ";:Й nС K;N$(K)" ";:Л С()чцA ═ С ╬);tГ┐┐ :С" 0 Exit":┐:╩ , :┐ :С"Selection?";:┐:С" ";:Л NFц ═ Е Z:Й ╔Н ЎЛ Zч ═ 4 :б Л Zш я ZцNF ═ :б О:ОН :В Iч ╠ Rъ$Л I(Iщ)чQ ═ О :б Г} С:С╬ )"Item/Number"Q" not on record in "F$"; use " Ц(")"4) Find" Ц("):Н :Й 4!С ╬ )"0) Equal to"╬)"1) Not equal to"╬2)"2) Less than":С ╬ )"3) Greater than"╬)"4) Less or equal"╬2)"5) Greater or equal"M"С ╬ )"6) Exit to Menu":╩ , ,:┐ :С"What kind of Match?";:┐:С" ";j#Н :Л Zч ═ 4 :б О:Оy$В Jч ╠ NF╡%Л FT(J)ч ═ │ FPUT(H,N(J),D(J)) :б │ FPUT(H,N(J),D$(J))╔&Г:│ RCLOSE(H):О'╩ ,,:┐ :С" D A T A B A S E M A N A G E R ":┐N(╩ ,:С"Your FILE section has the following available:":С ╬):■Б "*.DAT"л)╩ █щ, ,:Е"Type file desired, without extension: to Exit ";F$:Dч:Л F$ч"" ═ ■Г¤*В Iч ╠ Т(F$):Л Г(F$,I,)ч"." ═ С ╬)"No extension, please ...":Й ) :б Г[+В Iч ╠ Т(F$):Л Х( Г(F$,I,))ц` ю Х( Г(F$,I,))ш{ ═ Г(F$,I,)ч Ц( Х( Г(F$,I,))ъ )a,Гr-F$чF$щ".DAT"а.Л F$ч"CHECKS.DAT" ═ М Р:Dч:Н :Й 4╨/Л F$ч"PHONBOOK.DAT" ═ М С:Dч:Н :Й 4■0Л F$ч"ADRESS.DAT" ═ М Т:Dч:Н :Й 41:П┘ Reserved for future .DAT@2:П┘ Reserved for future .DATА3С:С ╬)"Sorry, no DATA statements for "F$"!":Н :└:Й 'н4H$ч"Database Manager: Master Menu":Н я5С:С ╬ )"1) Add new "F$" records"╬-)"5) Delete "F$" records"-6С:С ╬ )"2) Edit "F$" records"╬-)"6) Print "F$" records"m7С:С ╬ )"3) Sort "F$" records"╬-)"7) Change database file"е8С:С ╬ )"4) Find "F$" records"╬-)"8) Exit Program"╥9╩ , ,:┐ :С"Select number:";:┐:С" ";ю:Н :Л Zш я Zц ═ :;Х Z Й <,d,x,В,Ц,а,·, 7<H$ч"Add New Records":Н А=С:С ╬ )"Enter data for each field; at any field to quit.":СР>В IEч ╠ NF╔?С ╬);:┐ :С " "N$(IE);╬)":";:┐:С ╬);:░ Е E$(IE)▀@Л E$(IE)ч"" ═ 4AЛ Dч ю IEч ═ С" Ten digits only: aaabbbcccc"SBЛ Dч ю (IEч я IEч) ═ С " Ten digits only: aaabbbcccc"ДCЛ Dч ю IEч ═ С" Six digits only: mmddyy"КDГаEХ D Й F,G,HьFD()ч Ф(E$()):D$()чE$():D$()чE$():D$()чE$():D()ч Ф(E$()):Й I8GD()ч Ф(E$()):D$()чE$():D$()чE$():D$()чE$():D()ч Ф(E$()):Й I}HD()ч Ф(E$()):D( )ч Ф(E$( )):В IEч ╠ :D$(IE)чE$(IE):Г:Й IЪI│ RCREATE(H):Н $:Й <ЇdH$ч"Edit Files and Records":Н :Л Rч ═ ┼:С:С ╬ )"No records in "F$" to edit ... "BeС:С ╬ );:Е "Which Item/Number to change? to Exit ";Q:Л Qч ═ 4[fН :FSч:Mч:Н ЗgВ Iч ╠ Rъ:Л DF ═ │ RFIND(H,I,,R(),I)бhЛ I(Iщ)чQ ═ i :б Г▓i│ ROPEN(H,I)╝jН ╦kВ Iч ╠ NFўlС ╬);:┐ :С I;N$(I);╬)":";:┐:С ╬);mЛ FT(I)шц ═ СD$(I) :б СD(I) nГ I^oС ╬ )"Change which field number? to Exit ";:Е CH}pЛ CHч ═ │ RCLOSE(H):Й 4┴rС ╬ )"Enter new data for ";:┐ :С N$(CH)" :";:┐:░ Е " ";D$(CH)уtЛ FT(CH)ч ═ D(CH)ч Ф(D$(CH))vН $:┼:С╬ )D$(CH)" recorded for "N$(CH):Н :Й dzxH$ч"Sort Records":Н :Л Rч ═ ┼:С:С ╬ )"No records in "F$" to sort ... ";:Н :Й 4┴yС:С ╬ )"In which of these fields do you wish data to be sorted? "╦zН 8{╩ , :С"Sorting "F$" by "N$(Z)" field ....";:│ DBSORT(H,,N(Z)):С" -> SORTED!":┼:┼:В Aч ╠ ч:Г:Й 4ЦВH$ч"Find Records":Н :Л Rч ═ ┼:┼:С:С ╬ )"No records in "F$" to find ...";:Н :Й 4╤ГС:С ╬ )"Which of these fields do you wish to search?" ДН :FSчZ:С N$(Z)" field selected ...":Н !:M$чZ$:MчZJЕ╩ ,(:Е "Word/number to search for ";Q$:Qч Ф(Q$):Н КЖ└:С:С ╬);N$();╬);N$();╬);N$();╬*);N$();╬B);N$()жЗ░(,)ъ(▀,),,BF:С╥ИВ Iч ╠ Rъ:Л DF ═ │ RFIND(H,I,,R(),I)√Й│ ROPEN(H,I):Н :│ RCLOSE(H):Н КС ╬);:С ╫ "########";D();HЛС ╬);:Л FT()ч ═ С D(); :б С D$();tМС ╬);:Л FT()ч ═ С D(); :б С D$();аНС ╬*);:Л FT()ч ═ С D(); :б С D$();╧ОС ╬B);:Л FT()ч ═ С ╫ U$;D() :б С D$()ПЛ █чц ю IшRъ ═ Н :В J2ч ╠ :╩ J2,,:С S$;:Г J2:╩ ,,РГ I+СН :Й 4МЦH$ч"Delete Records":Н :Л Rч ═ ┼:С:С ╬ )"No records in "F$" to delete ... ";:Н :Й 4┘ЧС:С ╬);:Е"Which Item/Number to delete? to Exit ";Q:Л Qч ═ 4ЄШН :FSч:Mч:Н ЩВ Iч ╠ Rъ:Л DF ═ │ RFIND(H,I,,R(),I)8ЪЛ I(Iщ)чQ ═ Ы :б ГKЫ│ RDELETE(H,I)ЫЬС ╬)"Delete another record? [y/n] ";:Н :Л Z$ч"Y" я Z$ч"y" ═ Ч :б 4 аH$ч"Print Records & Mailing Labels":Н :Л Rч ═ ┼:С:С ╬ )"No records in "F$" to print ... ";:Н :Й 4 бЛ Dч ═ ╢\ вС:С╬ )"Do you wish to print ALL records from "F$"? [y/n] ";а гН :Л Z$ч"Y" я Z$ч"y" ═ д :б Л Z$ч"N" я Z$ч"n" ═ е :б г╖ дFSч:Qч:Mч:Й и¤ е╩ ,:С S$;:╩ ,:С"Which of these fields do you wish to select?"J!жН :FSчZ:СN$(Z)" field selected as printing criteria.":Н !:M$чZ$:MчZЙ!з╩ ,:Е "Word/number for printing criteria ";Q$:Qч Ф(Q$)Ш!иН :LCчў!йЭ ╬);N$();╬);N$();╬);N$();╬*);N$();╬B);N$():Э ╬); Г(DA$,,K):LCч:Л PG ═ │#"кВ Iч ╠ Rъ:Л DF ═ │ RFIND(H,I,,R(),I)L"л│ ROPEN(H,I):Н :│ RCLOSE(H):Н l"мЭ ╬);:Э ╫ "########";D();Ш"нЭ ╬);:Л FT()ч ═ Э D(); :б Э D$();─"оЭ ╬);:Л FT()ч ═ Э D(); :б Э D$();Ё"пЭ ╬*);:Л FT()ч ═ Э D(); :б Э D$();#░Э ╬B);:Л FT()ч ═ Э ╫ U$;D() :б Э D$()N#▒LCчLCщ:PGч:Л LCчц8 ═ LCч:Э Ц():PGчe#▓Л PG ю IшRъ ═ йm#│Г Iz#┤Э Ц()К#╡Н :Й 4┘#╢С:С ╬ )"1) Mailing Labels"╬)"2) Records Printing"╬4)"3) Exit to Menu";ї#╖Н :Л Zш я Zц ═ ╖$╕Х Z Й ╣,╩,4A$╣С:С╬ )"Mailing labels for ALL addresses? [y/n]";Ж$║Н : Л Z$ч"Y" я Z$ч"y" ═ ╗ :б Л Z$ч"N" я Z$ч"n" ═ ╝ :б ║г$╗FSч:Qч:Mч:Н :Й ┴╠$╝С╬ )"Select mailing area criteria:"%╜С ╬);:В Iч ╠ :С I;N$(Iщ)" ";:Г:┐ :С"0 Exit to Menu";:┐:С" ";>%╛Н :Л Zч ═ 4 :б Л Zш я Zц ═ ╛w%┐С ╬ )"Select "N$(Zщ)" for mailing ";:Е Q$:Qч Ф(Q$)М%└Mч:FSчZщ:Н ╕%┴В Iч ╠ Rъ:Л DF ═ │ RFIND(H,I,,R(),I)█%┬│ ROPEN(H,I):Н :│ RCLOSE(H)є%├Э ╬) D$()" "D$()&─Э ╬) D$()&┼Э ╬) D$()4&╞Э ╬) D$()", "D$()" "D( )<&╟Э:ЭD&╚Г IT&╔Н :Й 4|&╩С:С╬ )"Print ALL records? [y/n] ";└&╦Н :Л Z$ч"Y" я Z$ч"y" ═ ╠ :б Л Z$ч"N" я Z$ч"n" ═ ═ :б ╦▌&╠FSч:Qч:Mч:Н :Й ╥'═С╬ )"Record selection criteria:"J'╬С ╬);:В Iч ╠ :С I;N$(Iщ)" ";:Г:┐ :С"0 Exit to Menu";:┐:С" ";u'╧Н :Л Zч ═ 4 :б Л Zш я Zц ═ ╧п'╨С ╬ )"Select "N$(Zщ)" for printing ";:Е Q$:Qч Ф(Q$)╔'╤Mч:FSчZщ:Н :LCчї'╥В Iч ╠ Rъ:Л DF ═ │ RFIND(H,I,,R(),I)(╙│ ROPEN(H,I):Н :│ RCLOSE(H):Н I(╘Э ╬)N$()": "D();╬()N$()": "D$()v(╒Э ╬)N$()": "D$();╬()N$()": "D$()г(╓Э ╬)N$()": "D$();╬()N$()": "D$()╨(╫Э ╬)N$()": "D$();╬()N$()": "D$()■(╪Э ╬)N$()": "D$();╬()N$( )": "D( ))┘Э:Э:LCчLCщ+)┌Л LCчц8 ═ LCч:Э Ц()3)█Г I@)▄Э Ц()P)▌Н :Й 4o)·H$ч"Change Database":Н д)√С:С ╬)"About to close "F$" database files ..."ь)№╩ ,,:С "Are you sure you wish to close & switch files? [Y/N] ";0*¤Н :Л Z$ч"Y" я Z$ч"y" ═ ■ :б Л Z$ч"N" я Z$ч"n" ═ 4 :б ¤o*■│ DBCLOSE(H):■к ╗:С:С ╬);F$" file closed.":Н :└:Й №* ╩ ,:С S$;:╩ , :С"Closing all files ...":│ DBCLOSE(H):■к ╗:╩ , :С"Records, files, and DBCALLS library closed.";:В Cч ╠ ш:Г:■Г+,Л ╒ч^ ю ╘ч■ ═ и Г-+-Л ╒ч ю ╘ч ═ и Г[+.Л ╒шц[ ═ С"Error"╒"in line"╘:Н :Й 4l+/│ DBERROR(E)О+0Л Eч ю ╘ч ═ └:┼:┼:┼:и '╞+1Л EчB ю ╘чИ ═ С:С ╬)"No further records.":и Сс+2Л EчB ю ╘чк ═ и ┤№+3Л EчB ю ╘ч┴ ═ и ╔,4Л EчB ю ╘ч╥ ═ и ▄K,5С"Database Call Error #"E"in line"╘:Н :Й 4t,РД 5,Number,Date,Payee,Purpose,AmountЯ,СД 5,Item,Name,Number,Comments,Settingsї,ТД 10,Item,Last name,First name,Company,Office Phone,Home Phone,Street,City,ST,Zip