CP/M

home *** CD-ROM | disk | FTP | other *** search

/ CP/M / CPM_CDROM.iso / mbug / mbug107.arc / RETRIEVE.LBR / RETRIEVE.DQC / retrieve.doc

Wrap

Text File | 1979-12-31 | 51KB | 1,352 lines

.OP ****************** R+E+T+R+I+E+V+E **************** A REFERENCE ARTICLE CITATION FILING AND RETRIEVAL SYSTEM USING THE dBASE II* RELATIONAL DATABASE MANAGEMENT SYSTEM ******** USER'S MANUAL ***** D. A. Lathrop, Ph.D. CARDIAC ELECTROPHYSIOLOGY LABORATORY CHILDREN'S HOSPITAL RESEARCH FOUNDATION CINCINNATI, OHIO 45229 (513) 559-4482 -- COPYRIGHTED (C) 1983 -- PLACED WITHIN THE PUBLIC DOMAIN 01/01/85 -------------------- * dBASE II* was developed and is distributed by, Ashton-Tate, Culver City, California .PAè.pn 1 .fo <R+E+T+R+I+E+V+E, Version 1.1> p. # R + E + T + R + I + E + V + E DESCRIPTION: R+E+T+R+I+E+V+E i≤ ß collectioε oµ dBAS┼ II¬ commanΣ file≤ whicΦ allo≈ ì creatioεá oµá ßá referencσ articlσ citatioε databasσ fo≥á retrieva∞á b∙á aε ì assigneΣ referencσ number¼á author¼ title¼ source¼ o≥ ke∙ word« Thσ systeφ ì i≤á supplieΣá oε tw∩ diskette≤ (eithe≥ ╡ 1/4ó fo≥ APPL┼ ]█á CP/═á operatinτ ì systeφá o≥ 8ó standarΣ IB═ systeφ 3┤ single-sided¼á single-densit∙á format⌐ ì anΣá ma∙ bσ useΣ oε an∙ CP/═ persona∞ compute≥ system«á T∩ usσ thσ system¼ ì yo⌡á mus⌠ posses≤ ß versioε oµ thσ dBAS┼ II¬á assembly-languagσá relationa∞ ì databasσá managemen⌠á system«á R+E+T+R+I+E+V+┼ wa≤ originall∙á writteεá t∩ ì operatσá oε aε APPL┼ ][½ witΦ ß 1╢ ╦ RA═ card¼á Z-8░ microproccesso≥ board¼ ì 80-columε vide∩ displa∙ board¼ tw∩ ╡ 1/4-incΦ APPL┼ disδ drives¼ tw∩ 8-incΦ ì double-sideΣ disδ drives¼á anΣ ß Diabl∩ 63░ lette≥ qualit∙ printer«á Sincσ ì it≤ development¼ R+E+T+R+I+E+V+┼ ha≤ beeε installeΣ oε BASI╙ 108¼ LOBO¼ andì HEATHKIT/ZENIT╚á system≤ witΦ variou≤ printe≥ anΣ disδ drivσ configuration≤ ì anΣ ha≤ functioneΣ properly. Thσ R+E+T+R+I+E+V+┼ systeφ allow≤ thσ use≥ t∩ storσ referencσá articlσ ì citation≤á b∙ authors¼á title¼á source¼á ke∙ word≤ anΣ ß codσ t∩ bσ useΣ iε ì filinτá thσ origina∞ article«á Thi≤ i≤ donσ b∙ allowinτ thσ use≥ t∩á inpu⌠ ì record≤ int∩ ß dBAS┼ II¬ databasσ filσ nameΣ REFS.DB╞ havinτ thσá followinτ ì structure: FLD NAME TYPE WIDTH 001 REF:NO C 005 002 AUTHORS C 080 003 TITLE C 160 004 SOURCE C 080 005 KWORDS C 080 Thσá firs⌠ diskettσ supplieΣ witΦ thσ systeφ contain≤ thσ eigh⌠á dBAS┼ ì I╔á commanΣá file≤á whicΦ arσ requireΣ fo≥ thσá systeφá t∩á function«á Thσ ì directory of this diskette is: A: RETRIEVE CMD : NEWENTRY CMD : AUTONUMB CMD : FIND CMD A: FASTFIND CMD : INDEX CMD : LABEL CMD : EDIT CMD Thσá seconΣ diskettσ contain≤ ß samplσ datß basσ containinτ 2┤ record≤ ì anΣ it≤ inde° files« Thσ director∙ oµ thi≤ diskettσ is: B: REFS DBF : AUTHORS NDX : SOURCE NDX : KWORDS NDX .paèINSTALLATION: T∩á creatσ ß workinτ R+E+T+R+I+E+V+┼ systeφ diskettσ follo≈ thσá seveε ì step≤ outlined below: (1⌐ Forma⌠ ß ne≈ diskette«á Iε ß normal¼ ▓ disδ drivσ systeφ thi≤ i≤ ì áááááááááádonσá b∙á insertinτ you≥ MASTE╥ CP/═ SYSTE═ diskettσ iε drivσá A║ ì ááááááááááanΣ typinτ FORMA╘ B║ ááááá(2) Cop∙á you≥ CP/═ operatinτ systeφ t∩ thσ newl∙ formatteΣá diskettσ ì ááááááááááiεá drivσá B:«á PI╨á thσá filσ PIP.CO═ t∩á thσá newl∙á formatteΣ ì áááááááááádiskettσ iε drivσ B:« Removσ you≥ MASTE╥ CP/═ SYSTE═ diskettσ iε ì áááááááááádrivσá A║á anΣ replacσ i⌠ witΦ thσ newl∙ formatteΣá diskettσá no≈ ì áááááááááácontaininτá you≥á CP/═ operatinτ systeφ anΣ PIP.COM«á Placσá thσ ì ááááááááááfirs⌠á supplieΣá diskettσá (thσá onσá labelled¼áá R+E+T+R+I+E+V+E ì ááááááááááCOMMAN─ FILES⌐ iε drivσ B║ anΣ typσ <CTRL>C. ááááá(3) PI╨á al∞ thσ R+E+T+R+I+E+V+┼ commanΣ file≤ t∩ thσ ne≈ diskettσ iε ì áááááááááádrivσ A:. ááááááááA> PIP A:=B:*.* ááááááááA> DIR ááááááááA: RETRIEVE CMD : NEWENTRY CMD : AUTONUMB CMD : FIND CMD ááááááááA: FASTFIND CMD : INDEX CMD : LABEL CMD : EDIT CMD ááááááááA: PIP COM ááá ááááá(4)á Removσá thσ origina∞ R+E+T+R+I+E+V+E COMMAN─ FILE╙ diskettσá froφ ì áááááááááádrivσá B║á anΣ replacσ i⌠ witΦ ß cop∙ oµ you≥ dBASE II* operatinτ ì áááááááááásysteφ diskette«á Typσ <CTRL>├. áááááááááá ááááá(5)ááTransfe≥ááá thσáá followinτáá file≤áá DBASE.COM¼ááá DBASEMSG.COM¼ ì ááááááááááDBASEAPP.OVR¼áááá DBASEMSC.OVR¼ááá DBASEJOI.OVR¼ááá DBASETTL.OVR¼ ì ááááááááááDBASEUPD.OVR¼áááá DBASESRT.OVR¼ááá DBASEBRO.OVR¼ááá DBASEMAI.OVR¼ ì ááááááááááDBASERPG.OVR¼á anΣ DBASEMOD.OV╥ oε you≥ dBAS┼ II¬ systeφ diskettσ ì áááááááááá(iεá drivσá B:⌐á t∩ thσ ne≈ diskettσ (iεá drivσá A:)¼á usinτá thσ ì ááááááááááfollowinτ PI╨ commands: áááááá A> PIP A:=B:DBASE???.* ááááááááA> DIR ááááááááA: RETRIEVE CMD : NEWENTRY CMD : AUTONUMB CMD : FIND CMD ááááááááA: FASTFIND CMD : INDEX CMD : LABEL CMD : EDIT CMD áá ááááA: DBASE COM : DBASEMSG COM : DBASEAPP OVR : DBASEMSC OVR ááááA: DBASEJOI OVR : DBASETTL OVR : DBASEUPD OVR : DBASESRT OVR ááááááA: DBASEBRO OVR : DBASEMAI OVR : DBASERPG OVR : DBASEMOD OVR ááááááááA: PIP COM ááááá(6) Renamσá DBASE.CO═ t∩ DO.CO═ oε thσ A║á drivσ usinτ thσá followinτ ì áááááááááácommand: ááááááá A> REN A:DO.COM=DBASE.COM ááááááááA> DIR .paèááááááááA: RETRIEVE CMD : NEWENTRY CMD : AUTONUMB CMD : FIND CMD ááááááááA: FASTFIND CMD : INDEX CMD : LABEL CMD : EDIT CMD áá ááááA: DO COM : DBASEMSG COM : DBASEAPP OVR : DBASEMSC OVR ááááááA: DBASEJOI OVR : DBASETTL OVR : DBASEUPD OVR : DBASESRT OVR ááááááA: DBASEBRO OVR : DBASEMAI OVR : DBASERPG OVR : DBASEMOD OVR ááááááááA: PIP COM ááááá(7) Remove PIP.COM from the new diskette. ááááááááA> ERA PIP.* ááááááááA> DIR áááááááááá A: RETRIEVE CMD : NEWENTRY CMD : AUTONUMB CMD : FIND CMD ááááááááA: FASTFIND CMD : INDEX CMD : LABEL CMD : EDIT CMD áá ááááA: DO COM : DBASEMSG COM : DBASEAPP OVR : DBASEMSC OVR ááááA: DBASEJOI OVR : DBASETTL OVR : DBASEUPD OVR : DBASESRT OVR A║ DBASEBR╧ OV╥ ║ DBASEMA╔ OV╥ ║ DBASERP╟ OV╥ ║ DBASEMO─ OVR R+E+T+R+I+E+V+E i≤ no≈ read∙ t∩ operateí Removσ thσ diskettσ iε drivσ ì B:¼á replacσ i⌠ witΦ thσ seconΣ supplieΣ diskettσ (R+E+T+R+I+E+V+┼á STORAG┼ ì DISKETTE⌐á anΣá typσá <CTRL>C.é No≈ typσ D╧ RETRIEVEé anΣ thσá prograφá wil∞ ì begin. OPERATION: Oncσ yo⌡ havσ typeΣ 'D╧ RETRIEVE'é thσ monito≥ screeε wil∞ blanδ anΣá ß ì messagσ wil∞ appea≥ askinτ you¼á thσ user¼á t∩ ente≥ thσ date«á Afte≥á yo⌡ ì havσá donσ so¼á anothe≥ messagσ wil∞ appea≥ askinτ iε whicΦ disδ drivσá yo⌡ ì havσá placeΣá you≥ R+E+T+R+I+E+V+┼ systeφ storagσ diskette«á Iµá yo⌡á havσ ì followeΣá thσ step≤ iε thσ INSTALLATIO╬ section¼á ente≥ 'B'é iε responsσá t∩ ì thi≤ promp⌠ anΣ thσ maiε R+E+T+R+I+E+V+┼ prograφ men⌡ wil∞ appear. *** REPRINT FILE MENU *** 0 - EXIT PROGRAM 1 - ENTER NEW ARTICLES 2 - ENTER NEW ARTICLES WITH (AUTOMATIC REFERENCE NUMBERING) 3 - FIND ARTICLES 4 - QUICKLY FIND ARTICLES (BY FIRST AUTHOR, FIRST KEY WORD, OR FIRST 20 LTRS OF SOURCE) 5 - RE-INDEX FILES 6 - MAKE LABELS FOR ARTICLES 7 - EDIT DATA BASE RECORDS ENTER DESIRED ACTION WAITINGèOPTION 0 - EXIT Iµá yo⌡ no≈ typσ '0'¼á thσ prograφ wil∞ exi⌠ t∩ thσ CP/═ promp⌠á afte≥ ì firs⌠á displayinτá ßá messagσ tellinτ yo⌡ ho≈ man∙á record≤á arσá presentl∙ ì containeΣ iε thσ datß basσ (REFS.DBF). *** REFS.DBF CONTAINS 1043 RECORDS *** *** END RUN dBASE II *** A> ** NOTE ** To re-renter R+E+T+R+I+E+V+E type 'DO RETRIEVE'. OPTION 1 - ENTER NEW ARTICLES: Iµá yo⌡ haΣ entereΣ '1'¼á thσ prograφ woulΣ havσ beeε directeΣ t∩á thσ ì commanΣá filσá NEWENTRY.CM─á anΣ afte≥ answerinτ thσ prompt¼á '*¬á WAN╘á T╧ ì CONTINUE┐ (Y/N⌐ **º b∙ typinτ 'Y'¼ thσ followinτ inpu⌠ forφ woulΣ appea≥ oε ì you≥ monitor: REPRINT INFORMATION ENTRY FORM REF. NO. : : AUTHORS : : : : TITLE : : : : : : : : : : SOURCE : : : : KEY WORDS : : : : Thi≤á inpu⌠á forma⌠ allow≤ fivσ character≤ fo≥ aεá alpha-numeriπá codσ ì unde≥á whicΦá t∩á filσá thσ article¼á 8░ character≤ t∩á ente≥á thσá author≤ ì name(s)¼á 16░á character≤ fo≥ thσ titlσ oµ thσ article¼á 8░ character≤á fo≥ ì itsº source¼ anΣ 8░ character≤ fo≥ ke∙ indexinτ words« è Thσ systeφ wa≤ designeΣ s∩ tha⌠ article≤ arσ assigneΣ code≤ consistinτ ì oµá thσ firs⌠ lette≥ oµ thσ firs⌠ author'≤ las⌠ namσ followeΣ b∙ ßá number« ì Thσ numbe≥ simpl∙ tell≤ iµ thσ articlσ i≤ thσ 1¼á 2¼ 3¼ ...nthö articlσ witΦ ì firs⌠á author≤á whosσá las⌠ namesº begiε witΦ ß particula≥á lette≥á iεá thσ ì owner'≤á referencσ file«á Thi≤ numbe≥ i≤ incrementeΣ b∙ onσ eacΦ timσá thσ ì filσá owne≥á receive≤ ß ne≈ articlσ whosσ firs⌠ author'≤ las⌠á namσá begin≤ ì witΦ thσ samσ letter« Thi≤ codinτ systeφ allow≤ thσ filσ owne≥ t∩ maintaiε ì ßá filσ witΦ u≡ t∩ 259,97┤ seperatσ citations«á An∙ codinτ systeφ usinτá ╡ ì characte≥ alpha-numerics¼á however¼á ma∙ bσ used«á *¬á IMPORTAN╘á *¬ Thσ firs⌠ author'≤ namσ mustô bσ entereΣá last-name-ì firs⌠ iε orde≥ fo≥ optioε ┤ (QUICKL┘ FIN─ ARTICLES⌐ t∩ functioεá correctly« ì Aε articlσ b∙ DaviΣ A« Lathro≡ anΣ Johε Doe¼ therefore¼ woulΣ bσ entereΣ a≤ ì 'Lathrop¼ D.A.¼ Doe¼ J.'« Aε examplσ oµ ß completeΣ inpu⌠ i≤ showε below: REPRINT INFORMATION ENTRY FORM REF. NO. :L0003: AUTHORS :Lathrop, D.A., Bailey, J.C. : : : TITLE :The high resistance junction between the : :canine left bundle branch and adjacent : :ventricular septal muscle. : : : : : SOURCE :Clin. Res. 23(4):472A, 1975 : : : KEY WORDS :electrotonus - left bundle branch : : : .paèOPTION 2 - ENTER ARTICLE WITH AUTOMATIC REFERENCE NUMBERING: Thi≤á optioε i≤ simila≥ t∩ optioε 1¼á excep⌠ tha⌠ thσá R+E+T+R+I+E+V+┼ ì prograφá wil∞á searcΦ thσ databasσ filσ (REFS.DBF⌐ fo≥ thσá las⌠á referencσ ì numbe≥á entereΣá fo≥ ß particula≥ letter¼á increment≤ thi≤ numbe≥ b∙ ▒á anΣ ì assign≤á t∩ thσ ne≈ citatioε ß codσ consistinτ oµ thσ firs⌠ lette≥á oµá thσ ì firs⌠á author'≤á las⌠ namσ plu≤ thσ number«á *¬á IMPORTAN╘á *¬á Usσ oµ thi≤ optioε assume≤ thσ usσá oµá thσá codinτ ì systeφá suggesteΣá unde≥á optioε 1íá Thσ followinτ show≤ aε examplσá oµá ß ì completeΣá optioε ▓ inpu⌠ forφ anΣ thσ resultinτ referencσ numbe≥á assigneΣ ì to the article by the program: REPRINT INFORMATION ENTRY FORM AUTHORS :Lathrop, D.A., Elharrar, V., Foster, P.R.: :Bailey, J.C., Zipes, D.P. : TITLE :Suppression of barium induced automa- : :ticity with manganese and verapamil. : : : : : : : SOURCE :Clin. Res. 23(4):472A, 1975 : : : KEY WORDS :barium - manganese - verapamil - calcium : : : REF. NO. :L0004: .paè OPTION 3 - FIND ARTICLES Thi≤á optioε allow≤ thσ use≥ t∩ locatσ record≤ withiε thσ datß basσ b∙ ì matchinτá u≡á t∩á threσ substring≤ founΣ iε u≡ t∩á threσá differen⌠á recorΣ ì fields«á Thσ substring≤ ma∙ bσ entereΣ iε eithe≥ UPPE╥ o≥ lowe≥ caseí Thσ ì outpu⌠á oµá thi≤á optioεá ma∙ bσ displayeΣ eithe≥ oεá thσá monito≥á o≥á thσ ì printer«á *¬á NOT┼á *¬á Thi≤á optioε ma∙ bσ useΣ t∩ lis⌠ allôá oµá thσá citation≤ ì containeΣá withiε thσ databasσ b∙ enterinτ '3º fo≥ thσ 1s⌠ FIEL─ T╧á SEARC╚ ì ON¼ `<SPACE>º fo≥ thσ SUBSTRIN╟ T╧ LOCATE¼ anΣ defaultinτ (i.e.ô '<RETUNR>'⌐ ì througΦ thσ remaininτ SEARC╚ INFORMATIONé prompts. Thσá followinτá show≤á aεá examplσ oµ thσá monito≥á inpu⌠á informatioε ì screen¼á thσ user'≤ responses¼ anΣ thσ firs⌠ printeΣ resul⌠ obtaineΣ durinτ ì usσ oµ optioε 3: *** REFS.DBF CONTAINS 1043 RECORDS *** EACH RECORD CONSISTS OF 5 FIELDS: (1) REF:NO (4) SOURCE (2) AUTHORS (5) KWORDS (3) TITLE _________________________________________ ** ENTER SEARCH INFORMATION ** 1st FIELD TO SEARCH ON (1-5) :2: SUBSTRING TO LOCATE :LATHROP : 2nd FIELD TO SEARCH ON (1-5) :3: SUBSTRING TO LOCATE :HUMAN : 3rd FIELD TO SEARCH ON (1-5) :5: SUBSTRING TO LOCATE :DILTIAZEM : DO YOU WANT RESULTS PRINTED? (Y/N) :y: -------------------- REF. NO. : L0002 AUTHOR(S) : Lathrop, D.A., Valle, R., Gaum, W.E. Schwartz, A., Kaplan, S. TITLE : The effect of diltiazem and nisoldipine on spontaneously active human atrial tissue. SOURCE : J. Molec. Cell. Cardiol. 13(1):111-115, 1981 KEY WORDS : diltiazem - nisoldipine - human atrium - calcium blockers .paèOPTION 4 - QUICKLY FIND ARTICLES Thi≤á optioεá i≤ simila≥ t∩ optioε 3«á It≤ majo≥ advantagσ i≤á speed« ì Optioε 4¼á however¼á ha≤ somσ disadvantage≤ ove≥ optioε 3«á Thesσ arσ tha⌠ ì optioεá ┤á wil∞ onlyô finΣ article≤ wherσ thσá entereΣá author'≤á name¼á ke∙ ì word,orôá thσá firs⌠ 2░ character≤ oµ thσ sourcσ arσ firstô iεá thσá databasσ ì filσá records«á Iµ thσ use≥ want≤ t∩ looδ fo≥ article≤ wherσ ßá particula≥ ì autho≥á i≤á thσá firs⌠á autho≥ thi≤ optioε wil∞ bσ u≡ t∩á 1░á time≤á fasterô ì (dependinτá oε thσ sizσ oµ thσ database⌐ thaε optioε threσ iεá findinτá thσ ì citations«á Thσ othe≥ disadvantagσ oµ thi≤ optioε i≤ tha⌠ i⌠ require≤ tha⌠ ì thσá databasσ bσ indexeΣ oε authors¼á source¼á anΣ ke∙ words«á Creatioε oµ ì thesσá inde°á file≤ require≤ usσ oµ disδ storagσ spacσ whicΦ iεá turεá wil∞ ì limi⌠á thσá sizσ oµ thσ databasσ tha⌠ thσ use≥ i≤ ablσ t∩á create«á A≤á aε ì example¼áá a⌠áá thσá timσá oµá thi≤á manual'≤á preparatioεáá thσáá origina∞ ì R+E+T+R+I+E+V+┼ databasσ containeΣ 104│ record≤ whicΦ requireΣ 159╦ oµ disδ ì storagσá anΣá eacΦá oµá thσá inde°á file≤á (AUTHORS.NDX¼áá SOURCE.NDX¼á anΣ ì KWORDS.NDX⌐ requireΣ approximatel∙ 150╦ oµ disδ space«á Therefore¼á iµ thσ ì inde°á file≤á werσ eliminateΣ REFS.DB╞ coulΣ bσ increaseΣ b∙á approximatel∙ ì 300░á record≤á anΣá occup∙á thσá samσá amoun⌠á oµá spacσá oεá thσá origina∞ ì R+E+T+R+I+E+V+┼ storagσ diskettσ (whicΦ wa≤ ß double-sided¼á double-densit∙ ì 8-incΦá diskettσ providinτ onσ mega-bytσ oµ storage)«á Thσ followinτ show≤ ì aε examplσ: ì *** REFS.DBF CONTAINS 1043 RECORDS *** *** WARNING: This program finds only EXACT matches to the substring entered *** * Files are indexed by first author, first 20 chrs of source, first key word * * Therefore, this program will only find records where an author is the * * first author, or where a key word is the first key word, etc.!!!! * POSSIBLE FIELDS TO SEARCH ON: (1) AUTHORS (3) KEY WORDS (2) SOURCE _____________________________________________ ** ENTER SEARCH INFORMATION ** FIELD TO SEARCH ON (1-3) :1: SUBSTRING TO LOCATE :Lathrop : DO YOU WANT RESULTS PRINTED? (Y/N) :y: ----------------------- REF. NO. : L0001 AUTHOR(S) : Lathrop, D.A., Bailey, J.C. TITLE : Lack of electrical interaction between proximal bundle branches and subjacent muscle. SOURCE : J. Appl. Physiol. 42(2):235-239, 1977 KEY WORDS : electrotonus - excitability - bundle of His - His-Purkinje systemèOPTION 5 - RE-INDEX ARTICLES Thi≤á optioε provide≤ aε eas∙ mean≤ t∩ re-inde° thσ datß basσ oε firs⌠ ì author'≤ name¼ source¼ anΣ firs⌠ ke∙ word« *¬ NOT┼ *¬ Re-indexinτ i≤ requireΣ wheε ne≈ citation≤ arσ addeΣ t∩ thσ ì databasσ iε orde≥ fo≥ optioε ┤ t∩ functioε correctly« *¬ IMPORTAN╘ *¬ Thi≤ optioε shoulΣ onl∙ bσ useΣ iµ thσ use≥ intend≤ t∩ ì usσ optioε ┤ (seσ explanatioε iε descriptioε oµ optioε 4). OPTION 6 - MAKE LABELS FOR ARTICLES Thi≤á optioε provide≤ thσ use≥ witΦ label≤ whicΦ ma∙ bσ affixeΣ t∩ thσ ì origina∞ referencσ articlσ fo≥ filinτ purposes«á EacΦ labe∞ wil∞á identif∙ ì thσ owne≥ oµ thσ article¼ thσ assigneΣ referencσ numbe≥ anΣ ke∙ word≤ unde≥ ì whicΦá thσá citatioεá i≤ fileΣ iε thσ databasσá (REFS.DBF)«á Belo≈á i≤á aε ì examplσ oµ thσ labels produced by use oµ thi≤ option: .paèOPTION 7 - EDIT DATABASE RECORDS Optioεá ╖ allow≤ thσ use≥ ß convenien⌠ wa∙ t∩ edi⌠á specifiπá databasσ ì record≤á afterôá the∙ havσ beeε entered«á ┴ specifiπ recorΣ ma∙ bσá locateΣ ì withiεá thσ databasσ b∙ searchinτ fo≥ i⌠ b∙ it≤á referencσá number¼á autho≥ ì string¼á titlσá string¼á o≥ sourcσ string«á Usuall∙ thσ use≥ wil∞ kno≈ thσ ì aggigneΣá referencσá numbe≥ oµ thσ databasσ recorΣ tha⌠ he/shσá desire≤á t∩ ì edit╗ therefore¼ thi≤ i≤ thσ program'≤ defaul⌠ modσ fo≥ locatinτ records. *¬ NOT┼ *¬ Iµ morσ thaε onσ recorΣ ha≤ thσ samσ referencσ number¼ al∞ ì oµ thesσ record≤ wil∞ bσ located. Oncσá locateΣá thσ recorΣ ma∙ bσ editeΣ o≥ markeΣá fo≥á deletion«á Iµ ì editeΣ thσ olΣ recorΣ wil∞ bσ writteε ove≥ witΦ thσ ne≈ information╗ i.e.ô ß ì ne≈ recorΣ wil∞ notô bσ appendeΣ t∩ thσ file«á Iµ thσ use≥ choose≤ t∩á marδ ì thσ recorΣ fo≥ deletion¼á thσ recorΣ wil∞ notô bσ permanentl∙ deleteΣá unti∞ ì thσ filσ i≤ PACKE─ (seσ your dBAS┼ II¬ user'≤ manual)« Finally¼á thσá prograφ wil∞ promp⌠ thσ use≥ witΦ ß questioε askinτá iµ ì he/shσ want≤ t∩ permanentl∙ removσ thσ markeΣ file≤ froφ thσ datß base« Iµ ì thσ use≥ answer≤ affirmativel∙ t∩ thi≤ questioε thσ filσ wil∞ bσ PACKE─ anΣ ì al∞ thσ record≤ markeΣ fo≥ deletioε wil∞ bσ removeΣ froφ thσ fileí *¬á IMPORTAN╘á *¬á Afte≥ thσ databasσ ha≤á beeεá PACKE─á thσá deleteΣ ì record≤ ma∙ neve≥ bσ recovered-- the∙ arσ goneí Bσ carefu∞ wheε usinτ thi≤ ì option. ********* ********** ********* ********* .paè ********* ********** ********* ********* Yo⌡á arσ no≈ read∙ t∩ experimen⌠ witΦ R+E+T+R+I+E+V+E«á Wσ hopσá tha⌠ ì yo⌡á wil∞á enjo∙ usinτ thσ systeφ anΣ tha⌠ i⌠ wil∞ hel≡ yo⌡ t∩á maintaiεá ß ì completσá filσá oµ you≥ referencσ articlσ citations¼á n∩ matte≥á wha⌠á you≥ ì area≤ oµ interestí Afte≥ you¼á thσ user¼á havσ haΣ aε opportunit∙ t∩ becomσ familia≥ witΦ ì thσá system¼á yo⌡ wil∞ probabl∙ wan⌠ t∩ deletσ al∞ thσ record≤ supplieΣá oε ì thσ samplσ databasσ diskettσ (diskettσ #2)« T∩ d∩ this¼ simpl∙ ente≥ dBAS┼ ì I╔á a≤á describeΣá iε you≥ dBAS┼ II¬ user'≤ manua∞ (typσ DOé wheεá thσá CP/═ ì promp⌠ A>é appear≤ oε you≥ monito≥ afte≥ exitinτ R+E+T+R+I+E+V+E⌐ anΣá ente≥ ì thσ followinτ dBAS┼ II¬ commands: .USE B:REFS .DELETE ALL .PACK Thesσ command≤ wil∞ deletσ allô thσ record≤ currentl∙ iε thσ databasσá whilσ ì maintaininτá thσá structurσ oµ thσ file«á Oµ course¼á al∞ othe≥ dBAS┼á II¬ ì direc⌠ command≤ (eg.ô LIST¼ DISPLAY¼ BROWSE¼ etc.⌐ ma∙ bσ useΣ t∩ revie≈ anΣ ì manipulatσ thσ reference article citation databasσ (REFS.DBF). *** A FINAL NOTE *** Thσá commanΣá file≤á havσá no⌠ beeε cop∙ protecteΣ iε an∙á wa∙á anΣá ß ì listinτ oµ eacΦ oµ thσ file≤ i≤ provideΣ iε thσ hopσ tha⌠ thσ use≥ ma∙ finΣ ì way≤á t∩á improvσ thσ systeφ fo≥ thei≥ specifiπ needs«á Wσ woulΣá likσá t∩ ì learεá oµá an∙á improvement≤á tha⌠á yo⌡ ma∙ develo≡á anΣá t∩á hea≥á oµá an∙ ì suggestion≤á tha⌠á yo⌡á carσá t∩á makσá abou⌠á R+E+T+R+I+E+V+E«á Comments¼ ì questions, suggestions regarding R+E+T+R+I+E+V+E may be addressed to: Dr. David A. Lathrop Children's Hospital Research Foundation Elland and Bethesda Avenues Cincinnati, Ohio 45229 or¼á lef⌠á oεá thσá Divisioε oµ Cardiology'≤ Publiπ IBM-P├á Bulletiεá BoarΣ ì System [(513) 559-8599] or RCP/M System [(513) 559-8191]. Iµ yo⌡ finΣ R+E+T+R+I+E+V+┼ useful¼á wσ hopσ tha⌠ yo⌡ wil∞ thinδ abou⌠ ì makinτ ß tax-deductablσ contributioε t∩ thσ Basiπ Cardiaπ Electrophysiolog∙ ì Laboratory¼á Children'≤ Hospita∞ ResearcΦ Foundation¼ Cincinnati¼ O╚ 45229« ì SucΦ donation≤ wil∞ hel≡ t∩ suppor⌠ researcΦ int∩ thσ cause≤ anΣ preventioε ì oµ childhooΣ diseases« .paèR+E+T+R+I+E+V+E COMMAND FILE LISTINGS: LISTING OF THE MAIN MENU PROGRAM: NOTE -dBASE II EXECUTIVE COMMAND FILE RETRIEVE.CMD ERASE SET TALK OFF STORE 'mm/dd/yy' TO M:DATE STORE T TO NODATE STORE ' ' TO DR @ 2,33 SAY 'R+E+T+R+I+E+V+E' @ 12,40 SAY 'BY' @ 14,29 SAY 'David A. Lathrop' @ 16,27 SAY '-- COPYRIGHTED (C) 1983 --' DO WHILE NODATE @ 5,24 SAY 'ENTER DATE (mm/dd/yy) ' GET M:DATE PICTURE '99/99/99' READ IF VAL($(M:DATE,1,2))<1; .OR. VAL($(M:DATE,1,2))>12; .OR. VAL($(M:DATE,4,2))<1; .OR. VAL($(M:DATE,4,2))>31; .OR. VAL($(M:DATE,7,2))<83 STORE 'mm/dd/yy' TO M:DATE @ 7,21 SAY '**** BAD DATE -- PLEASE RE-ENTER. ****' STORE T TO NODATE ELSE STORE F TO NODATE ENDIF ENDDO SET DATE TO &M:DATE @ 5,23 SAY ' ' @ 7,20 SAY ' ' @ 9,20 SAY 'ENTER STORAGE DISK DRIVE LETTER ' GET DR PICTURE 'A' READ STORE DR+':REFS' TO FILE1 DO WHILE T ERASE ? ? ' *** R+E+T+R+I+E+V+E MENU ***' ? ? ' 0 - EXIT' ? ' 1 - ENTER NEW ARTICLES' ? ' 2 - ENTER NEW ARTICLES WITH' ? ' (AUTOMATIC REFERENCE NUMBERING)' ? ' 3 - FIND ARTICLES' ? ' 4 - QUICKLY FIND ARTICLES' ? ' (BY FIRST AUTHOR, FIRST KEY WORD,' ? ' OR FIRST 20 LTRS OF SOURCE)' ? ' 5 - RE-INDEX FILES' ? ' 6 - MAKE LABELS FOR ARTICLES' ? ' 7 - EDIT DATA BASE RECORDS' ? ? ?è ? ? ? ? ? 'ENTER DESIRED ACTION' WAIT TO ACTION DO CASE CASE ACTION='0' ERASE USE &FILE1 GO BOTTOM STORE STR(#,6) TO REC:NO @ 2,19 SAY '*** REFS.DBF NOW CONTAINS '-REC:NO+' RECORDS ***' @ 16,1 SAY ' ' SET TALK ON QUIT CASE ACTION='1' DO NEWENTRY CASE ACTION='2' DO AUTONUMB CASE ACTION='3' DO FIND CASE ACTION='4' DO FASTFIND CASE ACTION='5' DO INDEX CASE ACTION='6' DO LABEL CASE ACTION='7' DO EDIT OTHERWISE ? '**** Invalid response, re-enter ****' ENDCASE ENDDO RETURN .paèLISTING OF OPTION 1 PROGRAM NOTE - EXTENDED COMMAND FILE NEWENTRY.CMD USE &FILE1 GO BOTTOM DO WHILE T STORE ' ' TO REF STORE ' ' TO AU1 STORE ' ' TO AU2 STORE ' ' TO TI1 STORE ' ' TO TI2 STORE ' ' TO TI3 STORE ' ' TO TI4 STORE ' ' TO SO1 STORE ' ' TO SO2 STORE ' ' TO KW1 STORE ' ' TO KW2 ERASE @ 3,25 SAY 'REPRINT INFORMATION ENTRY FORM' @ 5,26 SAY '** WANT TO CONTINUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RELEASE CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,; KW1,KW2,KW3 RETURN ENDIF @ 5,26 SAY ' ' @ 23,0 SAY ' ' @ 7,14 SAY 'REF. NO. ' GET REF PICTURE 'AX999' @ 9,15 SAY 'AUTHORS ' GET AU1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 10,22 SAY ' ' GET AU2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 12,17 SAY 'TITLE ' GET TI1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 13,22 SAY ' ' GET TI2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 14,22 SAY ' ' GET TI3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 15,22 SAY ' ' GET TI4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 17,16 SAY 'SOURCE ' GET SO1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 18,22 SAY ' ' GET SO2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 20,13 SAY 'KEY WORDS ' GET KW1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 21,22 SAY ' ' GET KW2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' READ STORE AU1+AU2 TO AU3 STORE TI1+TI2+TI3+TI4 TO TI5 STORE SO1+SO2 TO SO3 STORE KW1+KW2 TO KW3 APPEND BLANK REPLACE REF:NO WITH REF, AUTHORS WITH AU3, TITLE WITH TI5; SOURCE WITH SO3, KWORDS WITH KW3 ENDDO .PAèLISTING OF OPTION 2 PROGRAM NOTE - EXTENDED COMMAND FILE AUTONUMB.CMD ERASE @ 3,25 SAY 'REPRINT INFORMATION ENTRY FORM' @ 5,26 SAY '** WANT TO CONTINUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RELEASE CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,; KW1,KW2,KW3 RETURN ENDIF USE &FILE1 GO BOTTOM DO WHILE T STORE ' ' TO REF STORE ' ' TO AU1 STORE ' ' TO AU2 STORE ' ' TO TI1 STORE ' ' TO TI2 STORE ' ' TO TI3 STORE ' ' TO TI4 STORE ' ' TO SO1 STORE ' ' TO SO2 STORE ' ' TO KW1 STORE ' ' TO KW2 ERASE @ 3,25 SAY 'REPRINT INFORMATION ENTRY FORM' @ 7,15 SAY 'AUTHORS ' GET AU1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 8,22 SAY ' ' GET AU2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 10,17 SAY 'TITLE ' GET TI1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 11,22 SAY ' ' GET TI2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 12,22 SAY ' ' GET TI3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 13,22 SAY ' ' GET TI4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 15,16 SAY 'SOURCE ' GET SO1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 16,22 SAY ' ' GET SO2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 18,13 SAY 'KEY WORDS ' GET KW1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 19,22 SAY ' ' GET KW2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' READ STORE $(AU1,1,1) TO SEARCH STORE 1 TO NUMBER DO WHILE .NOT. EOF LOCATE FOR !(SEARCH)$AUTHORS .AND. NUMBER=VAL($(REF:NO,3,3)) STORE NUMBER+1 TO NUMBER ENDDO APPEND BLANK STORE NUMBER-1 TO NUMBER STORE SEARCH+STR(NUMBER,4) TO REF @ 21,14 SAY 'REF. NO. :'+REF+':' STORE AU1+AU2 TO AU3è STORE TI1+TI2+TI3+TI4 TO TI5 STORE SO1+SO2 TO SO3 STORE KW1+KW2 TO KW3 REPLACE REF:NO WITH REF, AUTHORS WITH AU3, TITLE WITH TI5; SOURCE WITH SO3, KWORDS WITH KW3 @ 23,26 SAY '** WANT TO CONTINUE? (Y/N) **' @ 23,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RELEASE CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,; KW1,KW2,KW3 RETURN ENDIF @ 23,0 SAY ' ' ENDDO .PAèLISTING OF OPTION 3 PROGRAM NOTE - EXTENDED COMMAND FILE FIND.CMD USE &FILE1 GO BOTTOM STORE STR(#,4) TO REC:NO STORE TRIM(REC:NO) TO REC:NO STORE '*** REFS.DBF CONTAINS '+REC:NO+' RECORDS ***' TO MESSAGE STORE 40-(LEN(MESSAGE)/2) TO COLUMN ERASE @ 4,COLUMN SAY MESSAGE @ 6,24 SAY 'EACH RECORD CONSISTS OF 5 FIELDS:' @ 8,28 SAY '(1) REF:NO (4) SOURCE' @ 9,28 SAY '(2) AUTHORS (5) KWORDS' @ 10,28 SAY '(3) TITLE' STORE ' ' TO FLD1 STORE ' ' TO FLD2 STORE ' ' TO FLD3 STORE ' ' TO SSTR1 STORE ' ' TO SSTR2 STORE ' ' TO SSTR3 STORE 'N' TO PRINT @ 12,20 SAY '________________________________________' @ 14,25 SAY '** ENTER SEARCH INFORMATION **' @ 16,6 SAY '1st FIELD TO SEARCH ON (1-5) ' GET FLD1 PICTURE '9' @ 16,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR1 PICTURE 'XXXXXXXXXXXXXXX' @ 17,6 SAY '2nd FIELD TO SEARCH ON (1-5) ' GET FLD2 PICTURE '9' @ 17,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR2 PICTURE 'XXXXXXXXXXXXXXX' @ 18,6 SAY '3rd FIELD TO SEARCH ON (1-5) ' GET FLD3 PICTURE '9' @ 18,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR3 PICTURE 'XXXXXXXXXXXXXXX' @ 20,22 SAY 'DO YOU WANT RESULTS PRINTED? (Y/N) ' GET PRINT PICTURE 'A' READ IF FLD1='1' STORE 'REF:NO' TO FLD1 ELSE IF FLD1='2' STORE 'AUTHORS' TO FLD1 ELSE IF FLD1='3' STORE 'TITLE' TO FLD1 ELSE IF FLD1='4' STORE 'SOURCE' TO FLD1 ELSE IF FLD1='5' STORE 'KWORDS' TO FLD1 ENDIF ENDIF ENDIF ENDIF ENDIF IF FLD2='1' STORE 'REF:NO' TO FLD2 ELSE IF FLD2='2'è STORE 'AUTHORS' TO FLD2 ELSE IF FLD2='3' STORE 'TITLE' TO FLD2 ELSE IF FLD2='4' STORE 'SOURCE' TO FLD2 ELSE IF FLD2='5' STORE 'KWORDS' TO FLD2 ENDIF ENDIF ENDIF ENDIF ENDIF IF FLD3='1' STORE 'REF:NO' TO FLD3 ELSE IF FLD3='2' STORE 'AUTHORS' TO FLD3 ELSE IF FLD3='3' STORE 'TITLE' TO FLD3 ELSE IF FLD3='4' STORE 'SOURCE' TO FLD3 ELSE IF FLD3='5' STORE 'KWORDS' TO FLD LABELS '; GET B:REF PICTURE 'X' READ @ 18,19 SAY 'ENTER NUMBER OF LAST '+!(B:REF)+'-ARTICLE LABELED ' GET REF; PICTURE '9999' READ @ 20,27 SAY '** PRINTER READY? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RETURN ENDIF @ 20,27 SAY ' ' @ 23,0 SAY ' ' @ 20,29 SAY '** LOCATING RECORDS **' LOCATE FOR !(B:REF)$REF:NO .AND. !(REF)$REF:NO SET FORMAT TO PRINT SET EJECT OFF DO WHILE .NOT. EOF STORE $(KWORDS,1,40) TO KW1 STORE $(KWORDS,41,40) TO KW2 @ LINE,17 SAY M:NAME USING 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' STORE LINE+2 TO LINE @ LINE,1 SAY 'REF. NO.: '+REF:NO USING 'XXXXXXXXXXXXXXX' STORE LINE+1 TO LINE @ LINE,1 SAY KW1 IF KW2<>' 'è STORE LINE+1 TO LINE @ LINE,1 SAY KW2 STORE LINE+5 TO LINE ENDIF IF KW2=' ' STORE LINE+6 TO LINE ENDIF CONTINUE ENDDO @ LINE+1,1 SAY ' ' RELEASE B:REF,REF,M:NAME,CONTINUE SET FORMAT TO SCREEN RETURN .PAèLISTING OF OPTION 4 PROGRAM NOTE - EXTENDED COMMAND FILE FASTFIND.CMD USE &FILE1 GO BOTTOM STORE STR(#,4) TO REC:NO STORE TRIM(REC:NO) TO REC:NO STORE '*** REFS.DBF CONTAINS '+REC:NO+' RECORDS ***' TO MESSAGE STORE 40-(LEN(MESSAGE)/2) TO COLUMN ERASE @ 1,COLUMN SAY MESSAGE @ 3,1 SAY; '*** WARNING: This program finds only EXACT matches to the substring entered ***' @ 4,1 SAY; '* Files are indexed by first author, first 20 chrs of source, first key word *' @ 5,1 SAY; '* Therefore, this program will only find records where an author is the *' @ 6,1 SAY; '* first author, or where a key word is the first key word!!!! *' @ 8,26 SAY '** WANT TO CONTINUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RETURN ENDIF @ 8,26 SAY ' ' @ 23,0 SAY ' ' @ 8,26 SAY 'POSSIBLE FIELDS TO SEARCH ON:' @ 10,27 SAY '(1) AUTHORS (3) KEY WORDS' @ 11,27 SAY '(2) SOURCE' STORE ' ' TO FLD STORE ' ' TO SSTR STORE 'N' TO PRINT @ 13,20 SAY '________________________________________' @ 15,25 SAY '** ENTER SEARCH INFORMATION **' @ 17,10 SAY 'FIELD TO SEARCH ON (1-3) ' GET FLD PICTURE '9' @ 19,10 SAY 'SUBSTRING TO LOCATE ' GET SSTR PICTURE ; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 21,22 SAY 'DO YOU WANT RESULTS PRINTED? (Y/N) ' GET PRINT PICTURE 'A' READ IF FLD='1' STORE 'AUTHORS' TO FLD ELSE IF FLD='2' STORE 'SOURCE' TO FLD ELSE IF FLD='3' STORE 'KWORDS' TO FLD ENDIF ENDIF ENDIF STORE DR+':'+FLD TO FLD1 STORE TRIM(SSTR) TO SSTR @ 21,22 SAY ' ' @ 21,27 SAY '*** LOCATING RECORD(S) ***'èUSE &FILE1 INDEX &FLD1 FIND &SSTR STORE T TO AGAIN IF !(PRINT)='Y' ERASE @ 11,23 SAY '*** MAKE SURE PRINTER IS READY ***' @ 13,24 SAY '*** PRESS ANY KEY TO CONTINUE ***' @ 22,1 SAY ' ' WAIT ERASE @ 12,31 SAY '**** SEARCHING ****' @ 22,1 SAY ' ' STORE 5 TO LINE SET FORMAT TO PRINT SET EJECT OFF DO WHILE AGAIN IF !(SSTR)$!(&FLD) STORE $(AUTHORS,1,40) TO AU1 STORE $(AUTHORS,41,40) TO AU2 STORE $(TITLE,1,40) TO TI1 STORE $(TITLE,41,40) TO TI2 STORE $(TITLE,81,40) TO TI3 STORE $(TITLE,121,40) TO TI4 STORE $(SOURCE,1,40) TO SO1 STORE $(SOURCE,41,40) TO SO2 STORE $(KWORDS,1,40) TO KW1 STORE $(KWORDS,41,40) TO KW2 @ LINE,14 SAY 'REF. NO.: '+REF:NO USING 'XXXXXXXXXXXXXXX' STORE LINE+1 TO LINE @ LINE,13 SAY 'AUTHOR(S): '+AU1 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' IF AU2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY AU2 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' ENDIF STORE LINE+1 TO LINE @ LINE,17 SAY 'TITLE: '+TI1 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' IF TI2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY TI2 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' IF TI3<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY TI3 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' IF TI4<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY TI4 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' ENDIF ENDIF ENDIF STORE LINE+1 TO LINEè @ LINE,16 SAY 'SOURCE: '+SO1 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' IF SO2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY SO2 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' ENDIF STORE LINE+1 TO LINE @ LINE,13 SAY 'KEY WORDS: '+KW1 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' IF KW2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY KW2 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' ENDIF STORE LINE+2 TO LINE IF LINE=55 .OR. LINE>55 SET EJECT ON EJECT STORE 5 TO LINE ENDIF ENDIF SKIP IF !(SSTR)$!(&FLD) STORE T TO AGAIN ELSE STORE F TO AGAIN ENDIF ENDDO @ 60,1 SAY ' ' SET FORMAT TO SCREEN ERASE @ 11,21 SAY '************** FINISHED ***************' @ 13,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***' @ 22,1 SAY ' ' WAIT RETURN ENDIF STORE 1 TO LINE DO WHILE AGAIN IF !(SSTR)$!(&FLD) STORE $(AUTHORS,1,40) TO AU1 STORE $(AUTHORS,41,40) TO AU2 STORE $(TITLE,1,40) TO TI1 STORE $(TITLE,41,40) TO TI2 STORE $(TITLE,81,40) TO TI3 STORE $(TITLE,121,40) TO TI4 STORE $(SOURCE,1,40) TO SO1 STORE $(SOURCE,41,40) TO SO2 STORE $(KWORDS,1,40) TO KW1 STORE $(KWORDS,41,40) TO KW2 ERASE @ LINE,14 SAY 'REF. NO.: '+REF:NO STORE LINE+1 TO LINE @ LINE,13 SAY 'AUTHOR(S): '+AU1è IF AU2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY AU2 ENDIF STORE LINE+1 TO LINE @ LINE,17 SAY 'TITLE: '+TI1 IF TI2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY TI2 IF TI3<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY TI3 IF TI4<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY TI4 ENDIF ENDIF ENDIF STORE LINE+1 TO LINE @ LINE,16 SAY 'SOURCE: '+SO1 IF SO2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY SO2 ENDIF STORE LINE+1 TO LINE @ LINE,13 SAY 'KEY WORDS: '+KW1 IF KW2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY KW2 ENDIF STORE LINE+2 TO LINE IF LINE=5 .OR. LINE>5 @ 14,26 SAY '** WANT TO CONTINUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RETURN ENDIF STORE 1 TO LINE ENDIF ENDIF ERASE @ 12,31 SAY '**** SEARCHING ****' SKIP IF !(SSTR)$!(&FLD) STORE T TO AGAIN ELSE STORE F TO AGAIN ENDIF ENDDO @ 20,21 SAY '************** FINISHED ***************' @ 21,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***' @ 22,1 SAY ' ' WAIT USEèRELEASE REC:NO,MESSAGE,COLUMN,FLD,SSTR,PRINT,CONTINUE,FLD1 RETURN .PAèLISTING OF OPTION 5 PROGRAM NOTE - EXTENDED COMMAND FILE INDEX.CMD USE &FILE1 GO BOTTOM STORE STR(#,6) TO REC:NO ERASE @ 3,15 SAY '*** REFS.DBF PRESENTLY CONTAINS '+REC:NO+' RECORDS ***' @ 5,15 SAY '____________________________________________________' @ 6,14 SAY '| |' @ 7,14 SAY '| *** IMPORTANT NOTE *** |' @ 8,14 SAY '| |' @ 9,14 SAY '| Re-indexing the reference file on authors, source, |' @ 10,14 SAY '| and key words requires serveral minutes. The |' @ 11,14 SAY '| indexed files are ONLY required for option 4 |' @ 12,14 SAY '| (QUICKLY FIND ARTICLES) to function. If you do |' @ 13,14 SAY '| not intend to use this option STOP now! This will |' @ 14,14 SAY '| save many sectors of disk storage disk space!!!!! |' @ 15,14 SAY '| |' @ 16,14 SAY '| ** WANT TO CONTINUE? (Y/N) ** |' @ 17,14 SAY '|____________________________________________________|' @ 22,1 SAY ' ' WAIT TO ANSWER IF !(ANSWER)='N' RELEASE REC:NO,ANSWER RETURN ENDIF ERASE @ 12,16 SAY "**** INDEXING AUTHOR'S NAME(S) TO AUTHOR.NDX ****" STORE DR+':AUTHORS' TO FILE INDEX ON AUTHORS TO &FILE USE &FILE1 ERASE @ 11,28 SAY'**** INDEX COMPLETE ****' @ 5,26 SAY '** WANT TO CONTIUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO ANSWER IF !(ANSWER)='N' RELEASE REC:NO,ANSWER RETURN ENDIF ERASE @ 12,19 SAY '**** INDEXING ON SOURCE TO SOURCE.NDX ****' STORE DR+':SOURCE' TO FILE INDEX ON SOURCE TO &FILE USE &FILE1 ERASE @ 11,28 SAY'**** INDEX COMPLETE ****' @ 5,26 SAY '** WANT TO CONTIUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO ANSWER IF !(ANSWER)='N' RELEASE REC:NO,ANSWER RETURN ENDIFèERASE @ 12,18 SAY '**** INDEXING ON KEY WORDS TO KWORDS.NDX ****' STORE DR+':KWORDS' TO FILE INDEX ON KWORDS TO &FILE USE ERASE @ 11,28 SAY'**** INDEX COMPLETE ****' @ 13,18 SAY '*** PRESS ANY KEY TO RETURN TO MAIN MENU ***' @ 22,1 SAY ' ' WAIT RELEASE REC:NO,ANSWER RETURN .PAèLISTING OF OPTION 6 PROGRAM NOTE -- EXTENDED COMMAND FILE LABEL.CMD USE &FILE1 GO TOP STORE 2 TO LINE STORE ' ' TO B:REF STORE 'Y' TO CONTINUE STORE ' ' TO M:NAME STORE ' ' TO REF ERASE @ 2,17 SAY "******************************************************" @ 3,17 SAY "* *" @ 4,17 SAY "* This program will type on 1 1/2 x 4 inch pregummed *" @ 5,17 SAY "* tractorfeed labels (1) the file owner's name, (2) *" @ 6,17 SAY "* the alphanumeric number under which the article is *" @ 7,17 SAY "* stored, and (3) the key words under which the *" @ 8,17 SAY "* article is referenced. *" @ 9,17 SAY "* *" @ 10,17 SAY "******************************************************" @ 14,22 SAY '** DO YOU WANT TO CONTINUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RETURN ENDIF @ 14,22 SAY ' ' @ 23,0 SAY ' ' @ 14,9 SAY "ENTER FILE OWNER'S NAME " GET M:NAME ; PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 16,11 SAY 'ENTER LETTER OF REFERENCE NUMBER FOR WHICH YOU WANT LABELS '; GET B:REF PICTURE 'X' READ @ 18,19 SAY 'ENTER NUMBER OF LAST '+!(B:REF)+'-ARTICLE LABELED ' GET REF; PICTURE '9999' READ @ 20,27 SAY '** PRINTER READY? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RETURN ENDIF @ 20,27 SAY ' ' @ 23,0 SAY ' ' @ 20,29 SAY '** LOCATING RECORDS **' LOCATE FOR !(B:REF)$REF:NO .AND. !(REF)$REF:NO SET FORMAT TO PRINT SET EJECT OFF DO WHILE .NOT. EOF STORE $(KWORDS,1,40) TO KW1 STORE $(KWORDS,41,40) TO KW2 @ LINE,17 SAY M:NAME USING 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' STORE LINE+2 TO LINE @ LINE,1 SAY 'REF. NO.: '+REF:NO USING 'XXXXXXXXXXXXXXX' STORE LINE+1 TO LINEè @ LINE,1 SAY KW1 IF KW2<>' ' STORE LINE+1 TO LINE @ LINE,1 SAY KW2 STORE LINE+5 TO LINE ENDIF IF KW2=' ' STORE LINE+6 TO LINE ENDIF CONTINUE ENDDO @ LINE+1,1 SAY ' ' RELEASE B:REF,REF,M:NAME,CONTINUE SET FORMAT TO SCREEN RETURN .PAèLISTING OF OPTION 7 PROGRAM NOTE - EXTENDED COMMAND FILE EDIT.CMD USE &FILE1 ERASE @ 3,26 SAY '** EDIT DATA BASE RECORDS **' @ 5,21 SAY 'EACH RECORD CONSISTS OF 406 CHARACTERS' @ 6,21 SAY 'DIVIDED INTO THE FOLLOWING FIVE FIELDS' @ 8,26 SAY 'FLD NAME TYPE WIDTH' @ 9,26 SAY '001 REF:NO C 005' @ 10,26 SAY '002 AUTHORS C 080' @ 11,26 SAY '003 TITLE C 160' @ 12,26 SAY '004 SOURCE C 080' @ 13,26 SAY '005 KWORDS C 080' @ 14,26 SAY '**TOTAL** 00406' @ 16,21 SAY 'ANY RECORD WITHIN THE DATA BASE MAY BE' @ 17,21 SAY 'LOCATED BY SEARCHING FOR IT BY ITS' @ 18,21 SAY 'REFERENCE NUMBER, AUTHOR(S), TITLE OR' @ 19,21 SAY 'SOURCE. ONCE LOCATED THE INFORMATION' @ 20,21 SAY 'MAY BE EDITED, OR THE ENTIRE RECORD MAY' @ 21,21 SAY 'BE DELETED. PRESS ANY KEY TO CONTINUE.' @ 22,1 SAY ' ' WAIT ERASE @ 1,14 SAY 'THE FOLLOWING CONTROL CHARACTERS ARE USED IN EDITING' @ 3,14 SAY '<CTRL>D - MOVE CURSOR RIGHT <CTRL>E - MOVE CURSOR UP' @ 4,14 SAY '<CTRL>S - MOVE CURSOR LEFT <CTRL>X - MOVE CURSOR DOWN' @ 5,14 SAY '<CTRL>G - DELETE CHARACTER <CTRL>Y - DLETETE LINE' @ 7,26 SAY '** WANT TO CONTINUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RELEASE CONTINUE RETURN ENDIF @ 7,26 SAY ' ' @ 23,0 SAY ' ' STORE '1' TO FLD STORE 'N' TO DEL STORE ' ' TO SSTR STORE ' ' TO SSTR1 STORE ' ' TO SSTR2 STORE ' ' TO SSTR3 STORE ' ' TO SSTR4 @ 7,19 SAY 'ENTER FIELD TO SEARCH ON (1,2,3, OR 4) ' GET FLD PICTURE '9' READ IF FLD='1' STORE 'REF:NO' TO FLD @ 7,17 SAY ' ' @ 7,25 SAY 'ENTER REFERENCE NUMBER ' GET SSTR PICTURE 'AX999' READ ELSE IF FLD='2' STORE 'AUTHORS' TO FLD @ 7,17 SAY ' 'è @ 7,27 SAY '** ENTER AUTHOR(S) NAME **' @ 9,20 GET SSTR1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 10,20 GET SSTR2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' READ STORE SSTR1+SSTR2 TO SSTR ELSE IF FLD='3' STORE 'TITLE' TO FLD @ 7,17 SAY ' ' @ 7,32 SAY '** ENTER TITLE **' @ 9,20 GET SSTR1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 10,20 GET SSTR2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 11,20 GET SSTR3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 12,20 GET SSTR4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' READ STORE SSTR1+SSTR2+SSTR3+SSTR4 TO SSTR ELSE IF FLD='4' STORE 'SOURCE' TO FLD @ 7,17 SAY ' ' @ 7,34 SAY '** SOURCE **' @ 9,20 GET SSTR1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 10,20 GET SSTR2 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' READ STORE SSTR1+SSTR2 TO SSTR ENDIF ENDIF ENDIF ENDIF @ 7,15 SAY ' ' @ 8,15 SAY ' ' @ 9,10 SAY ' ' @ 10,10 SAY ' ' @ 11,10 SAY ' ' @ 12,10 SAY ' ' @ 13,10 SAY ' ' @ 14,10 SAY ' ' @ 15,10 SAY ' ' @ 16,10 SAY ' ' @ 17,10 SAY ' ' @ 18,10 SAY ' ' @ 19,10 SAY ' ' @ 20,10 SAY ' ' @ 21,10 SAY ' ' @ 22,10 SAY ' ' @ 23,10 SAY ' ' @ 12,32 SAY '** SEARCHING **' ENDDO ERASE @ 20,8 SAY 'WANT REMOVE RECORDS MARKED FOR DELETION FROM THE DATA BASE? (Y/N)' WAIT TO ANSWER IF ANSWER='Y' PACKè @ 22,26 SAY '****** PACK COMPLETED ******' ENDIF ERASE @ 20,21 SAY '************** FINISHED ***************' @ 21,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***' @ 22,1 SAY ' ' WAIT RELEASE CONTINUE,DEL,REF,FLD,SSTR,SSTR1,SSTR2,SSTR3,SSTR4,AU1,AU2,AU3,; TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,KW1,KW2,KW3,RNUMB RETURN .PAèUSER NOTES: .PAè.PA