IMD 1.16: 1/06/2007 10:07:57 FOGCPM.175 --FOGCPM175DBSHOP30DOC/ADDITEM CMD( ADDSTORECMDAISLE1 NDXCHANGE CMDCLEAR CMDGBASE DBF8GETGRO CMDGRAPHICSEPS GRAPHICSMEM!GROCERY1DBF8"#$%&'(INSTALL CMDt)*+,-./01234567ITEM1 NDX(89:;<MAINMENUCMD)=>?@ABMAINMENUEPS(CDEFGPURCHASECMDHIREMSTORECMD JKREPORT CMDLMNSTANDARDFRMOSTORES DBFPNEWLEADSDOCQNEWLEADSCMD RSNEWLEADSDBF TUPROSPECTDOCVWXADDNEW CMDYZ[AGENTS DBF\INITIALSNDX]LAST NDX^LETTER ZIP_`MODIFY CMD abVI-MAIN CMDcdefVI-EDIT CMD ghVI-FRAMECMDiVI-GETS CMDjVI-LIST CMD klVI-LOCATCMD#mnopqVI-PACK CMD rsVI-POSN CMDtuVI-SOME CMDvVIDEOLOGADD wxVIDEOLOGDBFyVIDEOLOGNDX8z{|}~VIDEOLOGOLDHVIDLABELCMD VIDLOG20DOC VIDTAPE CMDVIDTAPE NDX VIDTITLECMDVIDTITLENDXT-04-00 87 -CPM175 DOC&This is the disk name.  DOCUMENTATION FOR dBASE SHOPPER by Bob Stephens DATE: March, 1986 SUMMARY: dBase Shopper is designed to help ease the pain of grocery shopping. It allows: o Easy selection of items to purchase from a list. o Print out of purchase selections by grocery aisle. o Comment and coupon fields for notes and reminders of savings. o Up to 26 different stores to work with. o Easy changes to database. NOTICE: This software is fully copyrighted. However it may be copied freely and distributed to anyone for non-profit purposes. CREDITS: The idea for dBase Shopper comes directly from a series of programs released into the Public Domain by Dom Bastello 10 Floral Dr. E. Plainview, N.Y. 11803 While I did not use a line of his code, the basic concepts belong to Dom. I merely was challenged to make the idea "user-friendly" enough for my wife to use. FILES NEEDED: MAINMENU.CMD start running the program with this one. PURCHASE.CMD \ REPORT.CMD \ ADDITEM.CMD \ ADDSTORE.CMD \ these make everything happen CHANGE.CMD / CLEAR.CMD / GETGRO.CMD / REMSTORE.CMD / GBASE.DBF the basic grocery list lifted from Dom. STORES.DBF the list of stores you create STANDARD.FRM the standard report form GRAPHICS.MEM the memory file for graphics attributes and such (see INSTALL below) any number of files like: GROCERYA.DBF ITEMA.NDX AISLEA.NDX you may also have INSTALL.CMD which sets up the graphics memory variables OPERATION: dBase Shopper is completely menu driven and self explanatory. There is no requirement to use any dBase commands or any command not shown on the screen. If the program seems to stop as though it is waiting for something, it probably is. Go ahead and enter the response to the question or any key to get it moving again. In other words, when in doubt, press something. You probably won't hurt anything. GETTING STARTED: The first thing that should be done with dBase Shopper is set up a store and try it out. From the main menu, select "changes" and follow the prompts to name a store. You will want to input the aisle numbers as you use the program. dBase Shopper is designed to make a few changes each time you use it. If you want to have a marathon aisle naming session, dBase's BROWSE or EDIT commands may be better. HOW IT WORKS: Each store has a database file with the name "GROCERY_". Two index files exist for each store: "ITEM_" and "AISLE_". The program will properly add or delete stores and their associated files. The basic list of items in the store comes from the file GBASE.DBF. This may certainly be changed to suit your taste if you feel can use the dBase commands Whe addin store th progra wil promp fo anothe fil t cop th list from if GBASE cannot be found. As the user marks items for purchase, he/she is given the opportunity to add COMMENTS or COUPON information. Also, this information can be changed later with the change option. When the purchase selections are completed, the REPORT option allows reporting (either to screen or printer) of either the purchased items or all items in either alphabetical order or by aisle. INSTALLING THE GRAPHICS: dBase Shopper is distributed with a rather "plain" set of graphics characters. These are the default graphics that will work on any machine. The graphics characters dress up the program's screens. The naming convention for graphics memory files is simple. The filename is always GRAPHICS and the extent is a three letter abbreviation of the computer type. For example, GRAPHICS.EPS contains the memory variables to produce graphics on my Epson QX-10's screens. Hopefully, you can find one that works for your machine. If not, you can run INSTALL and produce your own. You will need a lot of technical information about your computer to properly install the graphics. All prompts for codes in INSTALL require ASCII code responses in DECIMAL. (For example, ESC is 27.) You will also need to know how your machine produces graphic characters and what your graphic character set looks like. WARNING: The program spits back a "naked" CHR(XXX) of whatever you put in, even if it is a control code that zaps your screen or worse. Be careful and be warned. NOTE: The file MAINMENU.EPS is for Epson QX-10's (or QX-16's) running CP/M B2.25 or 2.26 or 2.27. It gets the date automatically from the Epson's internal clock. Of course, you must delete or rename the existing CMD file and rename this one MAINMENU.CMD Further note: I have a simple little command file on my dBase disk that I have named IT.CMD. It contains two major lines: SET DEFAULT TO B DO MAINMENU I have renamed DBASE.COM to DO.COM so that when my wife wants to run this program, all she has to do is put the right disks in the right slots and type "do it" at the A> prompt. All of my other dBase applications also have a file called MAINMENU so IT works with everything. CONTACT: The sysop would not mind if you left notes for me on Poor Man's RCPM (817) 283-9167 or write Bob Stephens 1411 Rambler Arlington, TX 76014 I might add that the best contact you can make in this life is the Lord Jesus Christ. I know that from the Bible (1 Peter 3:18) and from personal experience. I would be happy to share both with you if you are interested. d rename this one MAINMENU.CMD Further note: I have a simple little command file on my dBase disk that I have named IT.CM* ADDITEM.CMD * RLS * MAR 1986 USE grocery&gs INDEX item&gs STORE t TO noquit STORE f TO flag SET COLON ON DO WHILE noquit STORE t TO notready ERASE SET INTENSITY OFF RESTORE FROM GRAPHICS ADDITIVE @ 1,1 SAY gr:on @ 3, 1 SAY gr:ltc + gr:line @ 4, 1 SAY gr:vert @ 5, 1 SAY gr:vert @ 6, 1 SAY gr:vert @ 7, 1 SAY gr:vert @ 8, 1 SAY gr:vert @ 9, 1 SAY gr:lmid + gr:line @ 10, 1 SAY gr:vert @ 11, 1 SAY gr:vert @ 12, 1 SAY gr:vert @ 13, 1 SAY gr:vert @ 14, 1 SAY gr:vert @ 15, 1 SAY gr:vert @ 16, 1 SAY gr:vert @ 17, 1 SAY gr:vert @ 18, 1 SAY gr:vert @ 19, 1 SAY gr:vert @ 20, 1 SAY gr:vert @ 21, 1 SAY gr:lbc + gr:line @ 9,30 SAY gr:umid @ 10,30 SAY gr:vert @ 11,30 SAY gr:vert @ 12,30 SAY gr:vert @ 13,30 SAY gr:vert @ 14,30 SAY gr:vert @ 15,30 SAY gr:vert @ 16,30 SAY gr:vert @ 17,30 SAY gr:vert @ 18,30 SAY gr:vert @ 19,30 SAY gr:vert @ 20,30 SAY gr:vert @ 21,30 SAY gr:bmid @ 21,79 SAY gr:rbc @ 20,79 SAY gr:vert @ 19,79 SAY gr:vert @ 18,79 SAY gr:vert @ 17,79 SAY gr:vert @ 16,79 SAY gr:vert @ 15,79 SAY gr:vert @ 14,79 SAY gr:vert @ 13,79 SAY gr:vert @ 12,79 SAY gr:vert @ 11,79 SAY gr:vert @ 10,79 SAY gr:vert @ 9,79 SAY gr:rmid @ 8,79 SAY gr:vert @ 7,79 SAY gr:vert @ 6,79 SAY gr:vert @ 5,79 SAY gr:vert @ 4,79 SAY gr:vert @ 3,79 SAY gr:rtc @ 22,1 SAY gr:off RELEASE ALL LIKE gr:* @ 6,8 SAY "d B A S E S H O P P E R : A D D O R D E L E T E I T E M S" DO WHILE notready STORE " " TO mfunction SET INTENSITY ON @ 11,5 SAY " Function" SET INTENSITY OFF @ 11,33 GET mfunction PICTURE "!" SET INTENSITY ON @ 11,40 SAY "dd or elete or uit" SET INTENSITY OFF READ CLEAR GETS IF mfunction $"ADQ" STORE f TO notready ELSE @ 22,10 SAY "Your selection was not acceptable. Try again." SET CONSOLE OFF WAIT SET CONSOLE ON @ 22,0 ENDIF ENDDO notready DO CASE CASE mfunction = "Q" IF flag @ 22,0 @ 22,10 SAY " WORKING " PACK ?? ". . ." REINDEX ?? ". . ." USE grocery&gs INDEX aisle&gs ?? ". . . Almost done!" REINDEX ENDIF SET COLON OFF RELEASE notready, mfunction, mquit, maisle, mitem, mcoupon, mcomments, ans RETURN CASE mfunction = "A" STORE t TO nothru DO WHILE nothru STORE t TO noitem DO WHILE noitem STORE " " TO mitem @ 13,5 SAY " Item name" @ 13,33 GET mitem PICTURE "!!!!!!!!!!!!!!!!!!!!" READ FIND &mitem IF # # 0 @ 22,10 SAY "Your item is already on the list. uit or ry again." SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans)="Q" STORE f TO nothru,noitem ENDIF @ 22,0 ELSE STORE f TO noitem ENDIF ENDDO noitem IF nothru STORE " " TO maisle STORE " " TO mcomments STORE " " TO mcoupon @ 15,5 SAY " Aisle" @ 16,5 SAY " Comments" @ 17,5 SAY " Coupon" @ 15,33 GET maisle @ 16,33 GET mcomments @ 17,33 GET mcoupon READ CLEAR GETS APPEND BLANK REPLACE item WITH mitem, aisle WITH maisle, comments WITH mcomments REPLACE coupon WITH mcoupon STORE t TO flag @ 22,10 SAY " Add another item or quit? " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON @ 22,0 IF !(ans) = "Q" STORE f TO nothru ELSE STORE " " TO blank @ 15,5 SAY blank @ 16,5 SAY blank @ 17,5 SAY blank @ 17,33 SAY blank @ 16,33 SAY blank @ 15,33 SAY blank ENDIF ENDIF nothru ENDDO nothru CASE mfunction = "D" STORE t TO nothru DO WHILE nothru STORE t TO noitem DO WHILE noitem STORE " " TO mitem @ 13,5 SAY " Item name" @ 13,33 GET mitem PICTURE "!!!!!!!!!!!!!!!!!!!!" READ FIND &mitem IF # = 0 @ 22,10 SAY "Your item is not on the list. uit or ry again." SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans)="Q" STORE f TO nothru,noitem ENDIF @ 22,0 ELSE STORE f TO noitem ENDIF ENDDO noitem IF nothru STORE aisle TO maisle STORE comments TO mcomments STORE coupon TO mcoupon @ 15,5 SAY " Aisle" @ 16,5 SAY " Comments" @ 17,5 SAY " Coupon" @ 15,33 SAY maisle @ 16,33 SAY mcomments @ 17,33 SAY mcoupon @ 22, 10 SAY "Delete this item? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" DELETE STORE t TO flag ENDIF @ 22,0 @ 22,10 SAY "Delete another item or quit? / " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON @ 22,0 IF !(ans) = "Q" STORE f TO nothru ELSE STORE " " TO blank @ 15,5 SAY blank @ 16,5 SAY blank @ 17,5 SAY blank @ 17,33 SAY blank @ 16,33 SAY blank @ 15,33 SAY blank ENDIF ENDIF nothru ENDDO nothru ENDCASE ENDDO noquit * ADDSTORE.CMD * RLS * MAR 1986 USE stores ERASE RESTORE FROM graphics ADDITIVE @ 1,0 SAY gr:on @ 1,1 SAY gr:ltc + gr:line @ 2,1 SAY gr:vert @ 3,1 SAY gr:vert @ 4,1 SAY gr:vert @ 5,1 SAY gr:vert @ 6,1 SAY gr:vert @ 7,1 SAY gr:lbc+gr:line @ 7,79 SAY gr:rbc @ 6,79 SAY gr:vert @ 5,79 SAY gr:vert @ 4,79 SAY gr:vert @ 3,79 SAY gr:vert @ 2,79 SAY gr:vert @ 1,79 SAY gr:rtc @ 8,1 SAY gr:off RELEASE ALL LIKE gr:* @ 4, 12 SAY "d B A S E S H O P P E R: A D D A S T O R E " @ 9, 10 SAY "List of currents stores: " STORE 12 TO cntr GOTO TOP DO WHILE .NOT. EOF @ cntr, 10 SAY storeno + " " + storename SKIP @ $+1,0 STORE 1 + cntr TO cntr IF cntr > 22 STORE 12 TO cntr ENDIF ENDDO eof SET CONSOLE OFF WAIT SET CONSOLE ON STORE t TO nocode STORE " " TO mstoreno STORE " " TO mstorename DO WHILE nocode ERASE @ 10,5 SAY "Enter a one digit store code and the name of the new store:" @ 12,10 SAY "Store code " GET mstoreno PICTURE '!' @ 14,10 SAY "Store name " GET mstorename READ IF FILE("grocery&mstoreno.dbf") @ 17,10 SAY "That code is already in use. Please select another." SET CONSOLE OFF WAIT SET CONSOLE ON ELSE APPEND BLANK REPLACE storeno WITH mstoreno REPLACE storename WITH mstorename STORE "gbase" TO gname IF .NOT. FILE("gbase.dbf") @ 17, 1 SAY "File GBASE.DBF was not found." ACCEPT " Enter a valid grocery filename " TO gname ENDIF USE &gname @ 20,10 SAY " WORKING . . ." COPY TO grocery&mstoreno USE grocery&mstoreno @ 20,0 @ 20,10 SAY " halfway . . ." INDEX ON item TO item&mstoreno @ 20,0 @ 20,10 SAY "Almost done . . ." INDEX ON aisle TO aisle&mstoreno STORE f TO nocode ENDIF ENDDO RELEASE gname, nocode, mstoreno, mstorename RETURN  @ 10,5 SAY "Enter a one digit store code and the name of the new store:" @ 12,10 SAY "Store code " GET mstoreno PICTURE '!Haisle:r\Q{!zK(!d"`!z"`~ xP"^`p+kP"f` ~*^` VkP>2`NP*`6-#*^`V;*f`V;65"`kP*^` ~NJP*`6)#*^`V;6#61#*f`V;65"`kP*`6)#*^`V;61#*f`V;65"`kP*`"`O:% J ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I % & ' ( ) *%                          ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I %& ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n % J ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I :K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  1 ` a b c d e f g h i j k l m n % J ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I * CHANGE.CMD * RLS * MAR 1986 STORE t TO nothru ERASE USE grocery&gs INDEX item&gs RESTORE FROM GRAPHICS ADDITIVE @ 1,0 SAY gr:on @ 1,1 SAY gr:ltc + gr:line @ 2,1 SAY gr:vert @ 3,1 SAY gr:vert @ 4,1 SAY gr:vert @ 5,1 SAY gr:vert @ 6,1 SAY gr:vert @ 7,1 SAY gr:lbc+gr:line @ 7,79 SAY gr:rbc @ 6,79 SAY gr:vert @ 5,79 SAY gr:vert @ 4,79 SAY gr:vert @ 3,79 SAY gr:vert @ 2,79 SAY gr:vert @ 1,79 SAY gr:rtc @ 8,1 SAY gr:off RELEASE ALL LIKE gr:* @ 4,20 SAY "d B A S E S H O P P E R : C H A N G E S " DO WHILE nothru STORE t TO noitem STORE " " TO mitem DO WHILE noitem @ 10,10 SAY "Enter the NAME of the item in the list. " @ 12,15 GET mitem PICTURE "!!!!!!!!!!!!!!!!!!!!" READ FIND &mitem IF # = 0 @ 15,10 SAY " Your entry could not be found. Please try again." SET CONSOLE OFF WAIT SET CONSOLE ON ELSE STORE f TO noitem ENDIF @ 15,0 @ 12,0 @ 10,0 ENDDO noitem STORE t TO notrite DO WHILE notrite STORE aisle TO maisle STORE item TO mitem STORE comments TO mcomments STORE coupon TO mcoupon @ 10, 10 SAY " Please enter the changes: " SET INTENSITY ON @ 12, 5 SAY "Aisle" @ 12, 12 SAY "Item" @ 12, 45 SAY "Comments" @ 12, 70 SAY "Coupons" @ 13,1 SAY "________________________________________" @ 13,40 SAY "_______________________________________" SET INTENSITY OFF @ 15,5 GET maisle @ 15,12 GET mitem @ 15,45 GET mcomments @ 15,70 GET mcoupon READ CLEAR GETS @ 17,10 SAY "Are the above entries correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans)#"Y" @ 10,0 @ 12,0 @ 13,0 @ 15,0 @ 17,0 ELSE REPLACE aisle WITH maisle, item WITH mitem, comments WITH mcomments REPLACE coupon WITH mcoupon STORE f TO notrite ENDIF ENDDO notrite @ 17,0 @ 17,10 SAY " Change another item? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "N" STORE f TO nothru @ 17,0 @ 17, 10 SAY "Working . . ." REINDEX @ 17, 10 SAY "Almost done . . ." USE grocery&gs INDEX aisle&gs REINDEX RELEASE notrite, noitem, ans, maisle, mitem, mcomments, mcoupon,nothru RETURN ELSE @ 10,0 @ 12,0 @ 13,0 @ 15,0 @ 17,0 ENDIF ENDDO FF @ 15,5 GET maisle @ 15,12 GET mitem @ 15,45 GET mcomments @ 15,70 GET mcoupon READ CLEAR GETS @ 17,10 SAY "Are the above entries correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans)#"Y" @ 10,0 @ 12,0 @ 13,0 @ 15,0 @ 17,0 ELSE REPLACE aisle WITH maisle, item WITH mitem, comments WITH mcomments REPLACE coupon WITH mcoupon STORE f TO notrite ENDIF ENDDO notrite @ 17,0 @ 17,10 SAY " Change another item? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "N" STORE * CLEAR.CMD * RLS * MAR 1986 ERASE RESTORE FROM GRAPHICS ADDITIVE @ 1,1 SAY gr:on @ 10,20 SAY gr:ltc + $(gr:line,1,39) @ 11,20 SAY gr:vert @ 12,20 SAY gr:vert @ 13,20 SAY gr:vert @ 14,20 SAY gr:lbc + $(gr:line,1,39) @ 14,60 SAY gr:rbc @ 13,60 SAY gr:vert @ 12,60 SAY gr:vert @ 11,60 SAY gr:vert @ 10,60 SAY gr:rtc @ 15,1 SAY gr:off RELEASE ALL LIKE gr:* @ 12,33 SAY "W A R N I N G !" @ 16,10 SAY " This program removes all previous purchases " USE grocery&gs @ 17,10 SAY " Do you want to proceed? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) # "Y" RELEASE ans RETURN ELSE @ 16,0 @ 17,0 @ 16,10 SAY " WORKING . . ." REPLACE ALL buy WITH f ENDIF RELEASE ans RETURN 2ITEMC|COMMENTSC|AISLEC+|COUPONC.|BUYL3| APPLES F APPLESAUCE F ARTICHOKES F ASPARAGUS F BACON F BANANAS F BAKED BEANS F STRING BEANS F CORNED BEEF F FILET MIGNON F HAMBURGERS F RIB ROAST F ROAST BEEF F SIRLOIN STEAK F BEEF STEW F BOLOGNA F BEEF BOUILLON F CHICKEN BOUILLON F BREAD F BROCCOLI F BRUSSEL SPROUTS F BUTTER F CHEESE CAKE F AMERICAN CHEESE F CANTALOUPE F CARROTS F CATSUP F CAVIAR F CELERY F CHEDDAR CHEESE F COTTAGE CHEESE  F CREAM CHEESE F BLUE CHEESE F CHERRIES F CHICKEN BREASTS F CHICKEN CUTLETS F CANDY F CHOCOLATE MILK F MILK F CINNAMON F COFFEE F SODA F COOKIES F CORN ON THE COB F CORN, CANNED F CUCUMBERS F EGGS F FRANKFURTERS F GRAPEFRUIT F GREEN PEPPERS F HAM, CANNED F HONEY F ICE CREAM F LEMON F LEMON JUICE F LETTUCE F LIME F MAYONNAISE F MUSHROOMS F OLIVES F ORANGES F PANCAKE MIX F PEACHES F PARSLEY F PEANUT BUTTER F ONIONS F PICKLES F POPCORN F POTATOS F POTATO CHIPS F RICE F SPAGHETTI  F SPINACH F CREAMED SPINACH F SPARERIBS F SUGAR F SALT F TEA F TOMATOS F TUNA FISH F YOGURT F PLASTIC WRAP F FLOUR F PANCAKE SYRUP F GRAVY F GRAVY MASTER F SODA F BEEFARONI F GLASS CLEANER F SOAP F TOOTH PASTE F COOKING OIL F PASTRAMI F MUSTARD F LONDON BROIL F PORK CHOPS F PORK CHOPS F DEODORANT F ALUMINUM FOIL F WAXED PAPER F CRACKERS F PAPER TOWELS F TOILET TISSUE F NAPKINS F DETERGENT F BLEACH F DISHWASHER SOAP F LIQUID DETERGENT F CLEANSERS F LIQUID CLEANER F FLOOR CLEANER F RAVIOLI F SANDWICH BAGS  F PAPER BAGS F COTTON BALLS F FROZEN VEGGIES F FISH FILLETS F FISH STICKS F GARLIC F GRANOLA BARS F GRAPEFRUIT JUICE F MARGARINE F BREAD CRUMB - PORK F OIL F OLIVE OIL F ORANGE JUICE F PEPPERONI F PORK CUTLETS F TURKEY BREAST F VINEGAR F APRICOTES FOTH PASTE F COOKING OIL  * GETGRO.CMD * command file to select a grocery store * RLS - March 1986 STORE t TO nogro DO WHILE nogro ERASE USE stores RESTORE FROM GRAPHICS ADDITIVE @ 1,0 SAY gr:on @ 1,1 SAY gr:ltc + gr:line @ 2,1 SAY gr:vert @ 3,1 SAY gr:vert @ 4,1 SAY gr:vert @ 5,1 SAY gr:lbc + gr:line @ 5,79 SAY gr:rbc @ 4,79 SAY gr:vert @ 3,79 SAY gr:vert @ 2,79 SAY gr:vert @ 1,79 SAY gr:rtc @ 6,1 SAY gr:off RELEASE ALL LIKE gr:* @ 3, 15 SAY " CHOOSE A STORE: " SET INTENSITY ON @ 7, 15 SAY " -choose -next -backup -skip " SET INTENSITY OFF SET COLON ON STORE 10 TO cntr STORE ' ' TO choice DO WHILE choice # 'X' @ cntr, 10 SAY storeno @ cntr, 20 SAY storename @ cntr, 55 GET choice PICTURE '!' @ $+1,0 READ CLEAR GETS DO CASE CASE choice = 'B' SKIP -1  STORE ' ' TO choice CASE choice = 'X' STORE storeno TO gs STORE storename TO mstrname STORE f TO nogro CASE choice = 'S' @ cntr, 79 ACCEPT ' how many? ' TO sno SKIP &sno RELEASE sno STORE ' ' TO choice OTHERWISE SKIP ENDCASE STORE 1 + cntr TO cntr IF cntr > 21 STORE 10 TO cntr ENDIF IF EOF STORE 1 + cntr TO cntr GOTO TOP ENDIF ENDDO choice ENDDO nogro SET COLON OFF RETURN  READ CLEAR GETS DO CASE CASE choice = 'B' SKIP -1 GR:ONKoGR:OFFNoGR:LTCQoGR:VERTToGR:LBCWoGR:RMIDZoGR:RTC]oGR:LMID`oGR:RBCcoGR:UMIDfoGR:BMIDioGR:TEEloGR:BONoo^GR:BOFFsoqGR:RVONwojGR:RVOFF{okGR:LINEOoO 7F10/25/85 + T CHECK #"+STR(x:chk&bb,4,0) STORE x:chk&bb+1 TO mchkno STORE " " TGR:ONnGR:OFFnGR:RVONoGR:VERTQo|GR:LBCTo+GR:RMIDWo|GR:RTCZo+GR:LTC]o+GR:RBC`o+GR:LMIDco|GR:UMIDfo+GR:BMIDio+GR:TEElo+GR:LINEOoO------------------------------------------------------------------------------ GR:RVOFFo4Joe Falkner 59.37F10/25/85 + T CHECK #"+STR(x:chk&bb,4,0) STORE x:chk&bb+1 TO mchkno STORE " " TW2ITEMC|COMMENTSC|AISLEC+|COUPONC.|BUYL3| APPLES F APPLESAUCE F ARTICHOKES F ASPARAGUS F BACON F BANANAS F BAKED BEANS F STRING BEANS F CORNED BEEF F FILET MIGNON F HA MBURGERS F RIB ROAST F ROAST BEEF F SIRLOIN STEAK F BEEF STEW F BOLOGNA F BEEF BOUILLON F CHICKEN BOUILLON F BREAD F BROCCOLI F BRUSSEL SPROUTS F BUTTER F CHEESE CAKE F AMERICAN CHEESE F CANTALOUPE F CARROTS F CATSUP F CAVIAR F CELERY F CHEDDAR CHEESE F COTTAGE CHEESE  F CREAM CHEESE F BLUE CHEESE F CHERRIES F CHICKEN BREASTS F CHICKEN CUTLETS F CANDY F CHOCOLATE MILK F MILK F CINNAMON F COFFEE F SODA F COOKIES F CORN ON THE COB F CORN, CANNED F CUCUMBERS F EGGS F FRANKFURTERS F GRAPEFRUIT F GREEN PEPPERS F HAM, CANNED F HONEY F ICE CREAM F LEMON F LEMON JUICE F LETTUCE F LIME F MAYONNAISE F MUSHROOMS F OLIVES F ORANGES F PANCAKE MIX F PEACHES F PARSLEY F PEANUT BUTTER F ONIONS F PICKLES F POPCORN F POTATOS F POTATO CHIPS F RICE F SPAGHETTI  F SPINACH F CREAMED SPINACH F SPARERIBS F SUGAR F SALT F TEA F TOMATOS F TUNA FISH F YOGURT F PLASTIC WRAP F FLOUR F PANCAKE SYRUP F GRAVY F GRAVY MASTER F SODA F BEEFARONI F GLASS CLEANER F SOAP F TOOTH PASTE F COOKING OIL F PASTRAMI F MUSTARD F LONDON BROIL F PORK CHOPS F PORK CHOPS F DEODORANT F ALUMINUM FOIL F WAXED PAPER F CRACKERS F PAPER TOWELS F TOILET TISSUE F NAPKINS F DETERGENT F BLEACH F DISHWASHER SOAP F LIQUID DETERGENT F CLEANSERS F LIQUID CLEANER F FLOOR CLEANER F RAVIOLI F SANDWICH BAGS   F PAPER BAGS F COTTON BALLS F FROZEN VEGGIES F FISH FILLETS F FISH STICKS F GARLIC F GRANOLA BARS F GRAPEFRUIT JUICE F MARGARINE F BREAD CRUMB - PORK F OIL F OLIVE OIL F ORANGE JUICE F PEPPERONI F PORK CUTLETS F TURKEY BREAST F VINEGAR F APRICOTES F IVORY SOAP 1 OKING OIL * INSTALL.CMD * RLS * MAR 1986 * copyright this date; all rights reserved ERASE SET TALK OFF SET INTENSITY OFF RESTORE FROM GRAPHICS ADDITIVE @ 1,0 SAY gr:on @ 1,1 SAY gr:ltc + gr:line @ 2,1 SAY gr:vert @ 3,1 SAY gr:vert @ 4,1 SAY gr:vert @ 5,1 SAY gr:vert @ 6,1 SAY gr:vert @ 7,1 SAY gr:lbc+gr:line @ 7,79 SAY gr:rbc @ 6,79 SAY gr:vert @ 5,79 SAY gr:vert @ 4,79 SAY gr:vert @ 3,79 SAY gr:vert @ 2,79 SAY gr:vert @ 1,79 SAY gr:rtc @ 8,1 SAY gr:off RELEASE ALL LIKE gr:* @ 4,14 SAY "d B A S E G R A P H I C S I N S T A L L A T I O N " STORE t TO nothru DO WHILE nothru @ 10,5 SAY "This module replaces the default graphics characters with the " @ 11,5 SAY "characters you specify. You will need the technical information" @ 12,5 SAY "about your computer's graphics commands to complete the " @ 13,5 SAY "installation. " @ 14,5 SAY " Are you ready to proceed? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = 'N' RELEASE nothru, ans RETURN ENDIF @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 14,0 @ 10,5 SAY "This program makes very few assumptions about your terminal." @ 11,5 SAY "It builds the proper sequence of strings from your input." @ 12,5 SAY "Entering a carriage return will end the string." @ 13,5 SAY "If your terminal does not support a particular attribute," @ 14,5 SAY "please enter a DECIMAL 0 for that prompt." SET CONSOLE OFF WAIT SET CONSOLE ON @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 14,0 STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,5 SAY "For your terminal to turn on REVERSE VIDEO: " @ 11,5 SAY "enter the DECIMAL ASCII of the first character " @ 12,20 GET decimal PICTURE "###" READ CLEAR GETS STORE "CHR(&decimal)" TO mrvon STORE t TO nofinish DO WHILE nofinish STORE " " TO decimal @ 11,0 @ 12,0 @ 13,0 @ 11,5 SAY "enter the DECIMAL ASCII of the next character " @ 12,20 GET decimal PICTURE "###" READ CLEAR GETS IF decimal = " " STORE f TO nofinish ELSE STORE mrvon+"+ CHR(&decimal)" TO mrvon ENDIF ENDDO nofinish @ 11,0 @ 12,0 @ 11,20 SAY mrvon @ 12,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE &mrvon TO gr:rvon STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 ENDIF ENDDO @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 14,0 STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,5 SAY "For your terminal to turn off REVERSE VIDEO: " @ 11,5 SAY "enter the DECIMAL ASCII of the first character " @ 12,20 GET decimal PICTURE "###" READ CLEAR GETS STORE "CHR(&decimal)" TO mrvoff STORE t TO nofinish DO WHILE nofinish STORE " " TO decimal @ 11,0 @ 12,0 @ 11,5 SAY "enter the DECIMAL ASCII of the next character " @ 12,20 GET decimal PICTURE "###" READ CLEAR GETS IF decimal = " " STORE f TO nofinish ELSE STORE mrvoff+"+ CHR(&decimal)" TO mrvoff ENDIF ENDDO nofinish @ 11,0 @ 12,0 @ 11,20 SAY mrvoff @ 12,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE &mrvoff TO gr:rvoff STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 ENDIF ENDDO @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 14,0 STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,5 SAY "For your terminal to turn on BLINKING" @ 11,5 SAY "enter the DECIMAL ASCII of the first character " @ 12,20 GET decimal PICTURE "###" READ CLEAR GETS STORE "CHR(&decimal)" TO mbon STORE t TO nofinish DO WHILE nofinish STORE " " TO decimal @ 11,0 @ 12,0 @ 11,5 SAY "enter the DECIMAL ASCII of the next character " @ 12,20 GET decimal PICTURE "###" READ CLEAR GETS IF decimal = " " STORE f TO nofinish ELSE STORE mbon+"+ CHR(&decimal)" TO mbon ENDIF ENDDO nofinish @ 11,0 @ 12,0 @ 11,20 SAY mbon @ 12,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON  IF !(ans) = "Y" STORE &mbon TO gr:bon STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 ENDIF ENDDO @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 14,0 STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,5 SAY "For your terminal to turn off BLINKING" @ 11,5 SAY "enter the DECIMAL ASCII of the first character " @ 12,20 GET decimal PICTURE "###" READ CLEAR GETS STORE "CHR(&decimal)" TO mboff STORE t TO nofinish DO WHILE nofinish STORE " " TO decimal @ 11,0 @ 12,0 @ 11,5 SAY "enter the DECIMAL ASCII of the next character " @ 12,20 GET decimal PICTURE "###" READ CLEAR GETS IF decimal = " " STORE f TO nofinish ELSE STORE mboff+"+ CHR(&decimal)" TO mboff ENDIF ENDDO nofinish @ 11,0 @ 12,0 @ 11,20 SAY mboff @ 12,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE &mboff TO gr:boff STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 ENDIF ENDDO @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 14,0 STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,5 SAY "For your terminal to turn on GRAPHICS MODE" @ 11,5 SAY "enter the DECIMAL ASCII of the first character " @ 12,20 GET decimal PICTURE "###" READ CLEAR GETS STORE "CHR(&decimal)" TO mon STORE t TO nofinish DO WHILE nofinish STORE " " TO decimal @ 11,0 @ 12,0 @ 11,5 SAY "enter the DECIMAL ASCII of the next character " @ 12,20 GET decimal PICTURE "###" READ CLEAR GETS IF decimal = " " STORE f TO nofinish ELSE STORE mon+"+ CHR(&decimal)" TO mon ENDIF ENDDO nofinish @ 11,0 @ 12,0 @ 11,20 SAY mon @ 12,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE &mon TO gr:on STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 ENDIF ENDDO @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 14,0 STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,5 SAY "For your terminal to turn off GRAPHICS MODE" @ 11,5 SAY "enter the DECIMAL ASCII of the first character " @ 12,20 GET decimal PICTURE "###" READ CLEAR GETS STORE "CHR(&decimal)" TO moff STORE t TO nofinish DO WHILE nofinish STORE " " TO decimal @ 11,0 @ 12,0 @ 11,5 SAY "enter the DECIMAL ASCII of the next character " @ 12,20 GET decimal PICTURE "###" READ CLEAR GETS IF decimal = " " STORE f TO nofinish ELSE STORE moff+"+ CHR(&decimal)" TO moff ENDIF ENDDO nofinish @ 11,0 @ 12,0 @ 11,20 SAY moff @ 12,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE &moff TO gr:off STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 ENDIF ENDDO @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 10,5 SAY "The rest of the installation deals with specific characters" @ 11,5 SAY "displayed in graphics mode. Only one character is requested." SET CONSOLE OFF WAIT SET CONSOLE ON STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,0 @ 11,0 @ 12,0 @ 10,5 SAY "Enter the character to make a HORIZONTAL LINE: " @ 11,20 GET decimal PICTURE "###" READ CLEAR GETS STORE ' ' TO grstring DO WHILE LEN(grstring) < 79 STORE CHR(&decimal)+grstring TO grstring ENDDO @ 10,1 SAY gr:on @ 11,1 SAY grstring @ 12,1 SAY gr:off @ 13,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE grstring TO gr:line RELEASE grstring STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 @ 13,0 ENDIF ENDDO notrite STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 10,5 SAY "Enter the character to make a VERTICAL LINE: " @ 11,20 GET decimal PICTURE "###" READ CLEAR GETS STORE CHR(&decimal) TO mvert @ 10,0 @ 11,0 @ 10,1 SAY gr:on @ 11,5 SAY mvert @ 12,1 SAY gr:off @ 13,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE mvert TO gr:vert STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 @ 13,0 ENDIF ENDDO notrite STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 10,5 SAY "Enter the character to make an UPPPER LEFT CORNER: " @ 11,20 GET decimal PICTURE "###" READ CLEAR GETS STORE CHR(&decimal) TO mltc @ 10,0 @ 11,0 @ 10,1 SAY gr:on @ 11,5 SAY mltc @ 12,1 SAY gr:off @ 13,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE mltc TO gr:ltc STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 @ 13,0 ENDIF ENDDO notrite STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 10,5  SAY "Enter the character to make an UPPPER RIGHT CORNER: " @ 11,20 GET decimal PICTURE "###" READ CLEAR GETS STORE CHR(&decimal) TO mrtc @ 10,0 @ 11,0 @ 10,1 SAY gr:on @ 11,5 SAY mrtc @ 12,1 SAY gr:off @ 13,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE mrtc TO gr:rtc STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 @ 13,0 ENDIF ENDDO notrite STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 10,5 SAY "Enter the character to make a LOWER RIGHT CORNER: " @ 11,20 GET decimal PICTURE "###" READ CLEAR GETS STORE CHR(&decimal) TO mrbc @ 10,0 @ 11,0 @ 10,1 SAY gr:on @ 11,5 SAY mrbc @ 12,1 SAY gr:off @ 13,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE mrbc TO gr:rbc STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 @ 13,0 ENDIF ENDDO notrite STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 10,5 SAY "Enter the character to make a LOWER LEFT CORNER: " @ 11,20 GET decimal PICTURE "###" READ CLEAR GETS STORE CHR(&decimal) TO mlbc @ 10,0 @ 11,0 @ 10,1 SAY gr:on @ 11,5 SAY mlbc @ 12,1 SAY gr:off @ 13,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE mlbc TO gr:lbc STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 @ 13,0 ENDIF ENDDO notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 10,5 SAY "The last section of questions deals with TEES, those places " @ 11,5 SAY "that lines connect. Aside from the full cross, the direction " @ 12,5 SAY "mentioned refers to the direction of the odd connector." @ 13,5 SAY "For example, the letter 'T' points down." SET CONSOLE OFF WAIT SET CONSOLE ON STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 10,5 SAY "Enter the character to make a FULL CROSS:" @ 11,20 GET decimal PICTURE "###" READ CLEAR GETS STORE CHR(&decimal) TO mtee @ 10,0 @ 11,0 @ 10,1 SAY gr:on @ 11,5 SAY mtee @ 12,1 SAY gr:off @ 13,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE mtee TO gr:tee STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 @ 13,0 ENDIF ENDDO notrite STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 10,5 SAY "Enter the character to make a DOWNWARD TEE" @ 11,20 GET decimal PICTURE "###" READ CLEAR GETS STORE CHR(&decimal) TO mumid @ 10,0 @ 11,0 @ 10,1 SAY gr:on @ 11,5 SAY mumid @ 12,1 SAY gr:off @ 13,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON  IF !(ans) = "Y" STORE mumid TO gr:umid STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 @ 13,0 ENDIF ENDDO notrite STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 10,5 SAY "Enter the character to make an UPWARD TEE" @ 11,20 GET decimal PICTURE "###" READ CLEAR GETS STORE CHR(&decimal) TO mbmid @ 10,0 @ 11,0 @ 10,1 SAY gr:on @ 11,5 SAY mbmid @ 12,1 SAY gr:off @ 13,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE mbmid TO gr:bmid STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 @ 13,0 ENDIF ENDDO notrite STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 10,5 SAY "Enter the character to make a LEFTWARD TEE" @ 11,20 GET decimal PICTURE "###" READ CLEAR GETS STORE CHR(&decimal) TO mrmid @ 10,0 @ 11,0 @ 10,1 SAY gr:on @ 11,5 SAY mrmid @ 12,1 SAY gr:off @ 13,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE mrmid TO gr:rmid STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 @ 13,0 ENDIF ENDDO notrite STORE " " TO decimal STORE t TO notrite DO WHILE notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 10,5 SAY "Enter the character to make a RIGHTWARD TEE" @ 11,20 GET decimal PICTURE "###" READ CLEAR GETS STORE CHR(&decimal) TO mlmid @ 10,0 @ 11,0 @ 10,1 SAY gr:on @ 11,5 SAY mlmid @ 12,1 SAY gr:off @ 13,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE mlmid TO gr:lmid STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 @ 13,0 ENDIF ENDDO notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 14,0 @ 10,5 SAY "That is all there is!" @ 12,5 SAY "To save your work, please enter a three letter abbreviation" @ 13,5 SAY "for your computer type. (Ex.: OSB = Osborne)" STORE " " TO gr:ext DO WHILE gr:ext = " " @ 14,20 GET gr:ext PICTURE "!!!" READ ENDDO * now clean up this mess! RELEASE ALL EXCEPT gr:* SAVE TO graphics.&gr:ext @ 15,5 SAY "Renaming the file just created to GRAPHICS.MEM" @ 16,5 SAY "will allow it to be used by the dBase II program. " SET CONSOLE OFF WAIT SET CONSOLE ON RETURN RE "###" READ CLEAR GETS STORE CHR(&decimal) TO mlmid @ 10,0 @ 11,0 @ 10,1 SAY gr:on @ 11,5 SAY mlmid @ 12,1 SAY gr:off @ 13,5 SAY "Is this correct? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans) = "Y" STORE mlmid TO gr:lmid STORE f TO notrite ELSE @ 10,0 @ 11,0 @ 12,0 @ 13,0 ENDIF ENDDO notrite @ 10,0 @ 11,0 @ 12,0 @ 13,0 @ 14,0 @ 10,5 SAY "That is all there is!" @ 12,5 SAY "To save your  item/:r\Q{!zK(!d"`!z"`~ xP"^`p+kP"f` ~*^` VkP>2`NP*`6-#*^`V;*f`V;65"`kP*^` ~NJP*`6)#*^`V;6#61#*f`V;65"`kP*`6)#*^`V;61#*f`V;65"`kP*`"`O:BREAD "CHERRIES COTTAGE CHEESE oFLOOR CLEANER 5ICE CREAM >PANCAKE MIX MSALT  RIB ROAST ROAST BEEF SIRLOIN STEAK STRING BEANS BROCCOLI cALUMINUM FOIL AMERICAN CHEESE APPLES APPLESAUCE APRICOTES ARTICHOKES ASPARAGUS BACON BAKED BEANS BANANAS BEEF BOUILLON BEEF STEW XBEEFARONI jBLEACH !BLUE CHEESE BOLOGNA BREAD HAMBURGERS RIB ROAST ROAST BEEF SIRLOIN STEAK STR {BREAD CRUMB - PORK BROCCOLI BRUSSEL SPROUTS BUTTER %CANDY CANTALOUPE CARROTS CATSUP CAVIAR CELERY CHEDDAR CHEESE CHEESE CAKE "CHERRIES CORNED BEEF COTTAGE CHEESE CREAM CHEESE FILET MIGNON HAMBURGERS RIB ROAST ROAST BEEF SIRLOIN STEAK STRBREAD "CHERRIES COTTAGE CHEESE oFLOOR CLEANER 5ICE CREAM >PANCAKE MIX MSALT  RIB ROAST ROAST BEEF SIRLOIN STEAK STRING BEANS BROCCOLI BRUSSEL SPROUTS BUTTER CHICKEN BOUILLON CORNED BEEF FILET MIGNON HAMBURGERS RIB ROAST ROAST BEEF SIRLOIN STEAK STR CHICKEN BOUILLON #CHICKEN BREASTS $CHICKEN CUTLETS &CHOCOLATE MILK (CINNAMON mCLEANSERS )COFFEE +COOKIES \COOKING OIL ,CORN ON THE COB -CORN, CANNED CORNED BEEF COTTAGE CHEESE /EGGS FILET MIGNON HAMBURGERS 'MILK RIB ROAST ROAST BEEF SIRLOIN STEAK *SODA STR sCOTTON BALLS eCRACKERS CREAM CHEESE JCREAMED SPINACH .CUCUMBERS bDEODORANT iDETERGENT kDISHWASHER SOAP /EGGS FILET MIGNON uFISH FILLETS vFISH STICKS oFLOOR CLEANER YGLASS CLEANER 1GRAPEFRUIT UGRAVY VGRAVY MASTER 2GREEN PEPPERS 3HAM, CANNED HAMBURGERS 4HONEY 5ICEIVORY SOAP 6LEMON 7LEMON JUICE 8LETTUCE 9LIME nLIQUID CLEANER lLIQUID DETERGENT _LONDON BROIL zMARGARINE :MAYONNAISE 'MILK ;MUSHROOMS ^MUSTARD hNAPKINS |OIL }OLIVE OIL <OLIVES BONIONS ~ORANGE JUICE =ORANGES >PANCAKE MIX STRTPANCAKE SYRUP rPAPER BAGS fPAPER TOWELS @PARSLEY ]PASTRAMI ?PEACHES APEANUT BUTTER PEPPERONI CPICKLES RPLASTIC WRAP DPOPCORN `PORK CHOPS aPORK CHOPS PORK CUTLETS FPOTATO CHIPS EPOTATOS pRAVIOLI RIB ROAST GRICE ROAST BEEF MSALT QYOGqSANDWICH BAGS SIRLOIN STEAK ZSOAP *SODA WSODA HSPAGHETTI KSPARERIBS ISPINACH STRING BEANS LSUGAR NTEA gTOILET TISSUE OTOMATOS [TOOTH PASTE PTUNA FISH TURKEY BREAST VINEGAR dWAXED PAPER QYOGURT OTOMATOS PTUNA FISH QYOGSFLOUR 0FRANKFURTERS tFROZEN VEGGIES wGARLIC YGLASS CLEANER xGRANOLA BARS 1GRAPEFRUIT yGRAPEFRUIT JUICE UGRAVY VGRAVY MASTER 2GREEN PEPPERS 3HAM, CANNED HAMBURGERS 4HONEY 5ICE CREAM UGRAVY VGRAVY MASTER 2GREEN PEPPERS 3HAM, CANNED HAMBURGERS 4HONEY 5ICE * Program..: MAINMENU.CMD * Author...: Bob Stephens * Date.....: March 1986 * Notes....: the dBASE SHOPPER is copyrighted material. It may be freely * copied and distributed for non-profit purposes. * Reserved.: select, selectnum * SET COLON OFF RESTORE FROM GRAPHICS ADDITIVE SET TALK OFF SET INTENSITY OFF ERASE TEXT o--o \ dBASE SHOPPER |---+---+---+---+---+---+ | | | | | | | |---+---+---+---+---+---+ | | | | | | | |-----------------------+ | | | +---+---+---+---+---+---+ @@ @@ @ @ @ @ @@ @@ ENDTEXT @ 2,47 SAY gr:rvoff @ 2,30 SAY gr:rvon @ 20,30 SAY "Enter Today's Date:" @ 21,46 SAY gr:rvoff @ 21,32 SAY gr:rvon store T to NODATE do while NODATE store ' ' to date:rep @ 21,36 get date:rep picture '99/99/99' read clear gets store VAL($(date:rep,1,2)) to MMONTH store VAL($(date:rep,4,2)) to MDAY store VAL($(date:rep,7,2)) to MYEAR if '.'$date:rep .OR. ' '$date:rep .OR. '+'$date:rep .OR. '-'; $date:rep .OR. MMONTH < 1 .OR. MMONTH > 12 .OR. MDAY <1 .OR.; MDAY >31 .OR. MYEAR < 85 @ 22, 10 say ' Your entry was not a valid date. Please try again.' SET CONSOLE OFF wait SET CONSOLE ON @ 22,0 else store date:rep to TDATE set DATE to &TDATE store F to NODATE endif enddo @ 22,0 STORE 1 TO CNTR DO WHILE cntr < 5 @ 12, 1 SAY " @ @ " @ 13, 1 SAY " @ @ @ @ " @ 14, 1 SAY " @@ @@ " @ 15,1 @ 12, 1 SAY " @@ @@ " @ 13, 1 SAY " @ @ @ @" @ 14, 1 SAY " @@ @@" @ 15, 1 STORE 1 + cntr TO cntr ENDDO cntr @ 8,38 SAY "by" @ 9,33 SAY "Bob Stephens" @ 22,1 SET CONSOLE OFF WAIT SET CONSOLE ON RELEASE date:rep, mmonth, mday, myear, nodate, m1, m2, d1,d2,y1,y2 DO WHILE T RESTORE FROM GRAPHICS ADDITIVE ERASE @ 1,0 SAY GR:ON @ 1, 0 SAY GR:LTC+GR:LINE @ 1,79 SAY GR:RTC @ 2, 0 SAY GR:VERT @ 2,79 SAY GR:VERT @ 3, 0 SAY GR:LMID+GR:LINE @ 3,79 SAY GR:RMID @ 4, 0 SAY GR:VERT @ 4,79 SAY GR:VERT @ 5, 0 SAY GR:VERT @ 5,79 SAY GR:VERT @ 6, 0 SAY GR:VERT @ 6,79 SAY GR:VERT @ 7, 0 SAY GR:VERT @ 7,79 SAY GR:VERT @ 8, 0 SAY GR:VERT @ 8,79 SAY GR:VERT @ 9, 0 SAY GR:VERT @ 9,79 SAY GR:VERT @ 10, 0 SAY GR:VERT @ 10,79 SAY GR:VERT @ 11, 0 SAY GR:LBC+GR:LINE @ 11,79 SAY GR:RBC @ 12,1 SAY gr:off @ 2,18 SAY "d B A S E S H O P P E R O P T I O N S" @ 5,25 SAY " 0. exit" @ 6,25 SAY " 1. select items to purchase" @ 7,25 SAY " 2. reports" @ 8,25 SAY " 3. changes" STORE 4 TO selectnum DO WHILE selectnum < 0 .OR. selectnum > 3 STORE " " TO select @ 11,33 SAY " select : : " @ 11,42 GET select PICTURE "#" RELEASE ALL LIKE GR:* READ STORE VAL(select) TO selectnum ENDDO DO CASE CASE selectnum= 0 SET COLON ON RETURN CASE selectnum= 1 DO getgro DO purchase CASE selectnum= 2 DO getgro DO report CASE selectnum= 3 STORE t TO mkchange SET COLON OFF DO WHILE mkchange RESTORE FROM GRAPHICS ADDITIVE ERASE @ 1,0 SAY gr:on @ 1, 0 SAY GR:LTC+gr:line @ 1,79 SAY GR:RTC @ 2, 0 SAY GR:VERT @ 2,79 SAY GR:VERT @ 3, 0 SAY GR:LMID+gr:line @ 3,79 SAY GR:RMID @ 4, 0 SAY GR:VERT @ 4,79 SAY GR:VERT @ 5, 0 SAY GR:VERT @ 5,79 SAY GR:VERT @ 6, 0 SAY GR:VERT @ 6,79 SAY GR:VERT @ 7, 0 SAY GR:VERT @ 7,79 SAY GR:VERT @ 8, 0 SAY GR:VERT @ 8,79 SAY GR:VERT @ 9, 0 SAY GR:VERT @ 9,79 SAY GR:VERT @ 10, 0 SAY GR:VERT @ 10,79 SAY GR:VERT @ 11, 0 SAY GR:VERT @ 11,79 SAY GR:VERT @ 12, 0 SAY GR:VERT @ 12,79 SAY GR:VERT @ 13, 0 SAY GR:LBC+gr:line @ 13,79 SAY GR:RBC @ 14,1 SAY gr:off @ 2,11 SAY "d B A S E S H O P P E R C H A N G E O P T I O N S" @ 5,25 SAY " 0. exit" @ 6,25 SAY " 1. clear previous purchases" @ 7,25 SAY " 2. change item/aisles/comments" @ 8,25 SAY " 3. add or delete an item" @ 9,25 SAY " 4. add a store" @ 10,25 SAY " 5. remove a store" STORE 6 TO selectnum DO WHILE selectnum < 0 .OR. selectnum > 5 STORE " " TO select @ 13,33 SAY " select : : " @ 13,42 GET select PICTURE "#" RELEASE ALL LIKE GR:* READ STORE VAL(select) TO selectnum ENDDO DO CASE CASE selectnum= 0 SET COLON ON STORE f TO mkchange CASE selectnum= 1 DO getgro DO clear CASE selectnum= 2 DO getgro DO change CASE selectnum= 3 DO getgro DO additem CASE selectnum= 4 DO addstore CASE selectnum= 5 DO getgro DO remstore ENDCASE ENDDO mkchange ENDCASE ENDDO T ne @ 13,79 SAY GR:RBC @ 14,1 SAY gr:off @ 2,11 SAY "d B A S E S H O P P E R C H A N G E O P T I O N S" @ 5,25 SAY " 0. exit" @ 6,25 SAY " 1. clear previous purchases" @ 7,25 SAY " 2. change item/aisles/comments" @ 8,25 SAY " 3. add or delete an item" @ 9,25 SAY " 4. add a store" @ 10,25 SAY " 5. remove a store" STORE 6 TO selectnum DO WHILE selectnum < 0 .OR. selectnum > 5 STORE " " TO select @ 13,33 SAY " select : : " @ 13,42 GET select PICTURE "#" RELEASE ALL LIKE GR:* READ STORE VAL(select) TO selectnum ENDDO DO CASE CASE selectnum= 0 SET COLON ON STORE f TO mkchange CASE selectnum= 1 DO getgro DO clear CASE selectnum= 2 DO getgro DO change CASE selectnum= 3 DO getgro DO additem CASE selectnum= 4 DO addstore CASE selectnum= 5 DO getgro * Program..: MAINMENU.CMD * Author...: Bob Stephens * Date.....: March 1986 * Notes....: dBASE SHOPPER for EPSON QX-10 with CP/M B2.25 * COPYRIGHTED THIS DATE; DISTRIBUTE FREE FOR NON-PROFIT PURPOSES * SET COLON OFF RESTORE FROM GRAPHICS ADDITIVE SET TALK OFF SET INTENSITY OFF ERASE TEXT o--o \ dBASE SHOPPER |---+---+---+---+---+---+ | | | | | | | |---+---+---+---+---+---+ | | | | | | | |-----------------------+ | | | +---+---+---+---+---+---+ @@ @@ @ @ @ @ @@ @@ ENDTEXT @ 2,47 SAY gr:rvoff @ 2,30 SAY gr:rvon @ 20,33 SAY "Today's Date:" @ 21,46 SAY gr:rvoff @ 21,32 SAY gr:rvon SET CALL TO 41995 POKE 41995,0,14,8,17,1,164,205,90,240,201,156,0,0,0,0,0,0,0,0,0,0 CALL STORE PEEK(41986) TO mmonth STORE PEEK(41987) TO mday STORE PEEK(41988) TO myear STORE mmonth/16 TO M1 STORE mmonth-(INT(m1)*16) to m2 STORE mday/16 TO d1 STORE mday-INT(d1)*16 TO d2 STORE myear/16 TO y1 STORE myear -INT(y1)*16 TO y2 STORE STR(m1,1)+STR(m2,1)+'/'+STR(d1,1)+STR(d2,1)+'/'+STR(y1,1)+STR(y2,1) TO tdate SET DATE TO &TDATE @ 21,35 SAY tdate @ 22,0 STORE 1 TO CNTR DO WHILE cntr < 5 @ 12, 1 SAY " @ @ " @ 13, 1 SAY " @ @ @ @ " @ 14, 1 SAY " @@ @@ " @ 15,1 *STORE 1 TO tic *DO WHILE tic < 3 * STORE 1 + tic TO tic *ENDDO @ 12, 1 SAY " @@ @@ " @ 13, 1 SAY " @ @ @ @" @ 14, 1 SAY " @@  @@" @ 15, 1 *STORE 1 TO tic *DO WHILE tic < 3 * STORE 1 + tic TO tic *ENDDO STORE 1 + cntr TO cntr ENDDO cntr @ 8,38 SAY "by" @ 9,33 SAY "Bob Stephens" @ 22,1 SET CONSOLE OFF WAIT SET CONSOLE ON RELEASE date:rep, mmonth, mday, myear, nodate, m1, m2, d1,d2,y1,y2 DO WHILE T RESTORE FROM GRAPHICS ADDITIVE ERASE @ 1, 0 SAY GR:LTC+GR:LINE @ 1,79 SAY GR:RTC @ 2, 0 SAY GR:VERT @ 2,18 SAY "D B A S E S H O P P E R O P T I O N S" @ 2,79 SAY GR:VERT @ 3, 0 SAY GR:LMID+GR:LINE @ 3,79 SAY GR:RMID @ 4, 0 SAY GR:VERT @ 4,79 SAY GR:VERT @ 5, 0 SAY GR:VERT @ 5,79 SAY GR:VERT @ 6, 0 SAY GR:VERT @ 6,79 SAY GR:VERT @ 7, 0 SAY GR:VERT @ 7,79 SAY GR:VERT @ 8, 0 SAY GR:VERT @ 8,79 SAY GR:VERT @ 9, 0 SAY GR:VERT @ 9,79 SAY GR:VERT @ 10, 0 SAY GR:VERT @ 10,79 SAY GR:VERT @ 11, 0 SAY GR:LBC+GR:LINE @ 11,79 SAY GR:RBC @ 5,25 SAY " 0. exit" @ 6,25 SAY " 1. select items to purchase" @ 7,25 SAY " 2. reports" @ 8,25 SAY " 3. changes" STORE 4 TO selectnum DO WHILE selectnum < 0 .OR. selectnum > 3 STORE " " TO select @ 11,33 SAY " select : : " @ 11,42 GET select PICTURE "#" RELEASE ALL LIKE GR:* READ STORE VAL(select) TO selectnum ENDDO DO CASE CASE selectnum= 0 SET COLON ON RETURN CASE selectnum= 1 DO getgro DO purchase CASE selectnum= 2 DO getgro DO report CASE selectnum= 3 STORE t TO mkchange SET COLON OFF DO WHILE mkchange RESTORE FROM GRAPHICS ADDITIVE ERASE @ 1, 0 SAY GR:LTC+gr:line @ 1,79 SAY GR:RTC @ 2, 0 SAY GR:VERT @ 2,11 SAY "D B A S E S H O P P E R C H A N G E O P T I O N S" @ 2,79 SAY GR:VERT @ 3, 0 SAY GR:LMID+gr:line @ 3,79 SAY GR:RMID @ 4, 0 SAY GR:VERT @ 4,79 SAY GR:VERT @ 5, 0 SAY GR:VERT @ 5,79 SAY GR:VERT @ 6, 0 SAY GR:VERT @ 6,79 SAY GR:VERT @ 7, 0 SAY GR:VERT @ 7,79 SAY GR:VERT @ 8, 0 SAY GR:VERT @ 8,79 SAY GR:VERT @ 9, 0 SAY GR:VERT @ 9,79 SAY GR:VERT @ 10, 0 SAY GR:VERT @ 10,79 SAY GR:VERT @ 11, 0 SAY GR:VERT @ 11,79 SAY GR:VERT @ 12, 0 SAY GR:VERT @ 12,79 SAY GR:VERT @ 13, 0 SAY GR:LBC+gr:line @ 13,79 SAY GR:RBC @ 5,25 SAY " 0. exit" @ 6,25 SAY " 1. clear previous purchases" @ 7,25 SAY " 2. change item/aisles/comments" @ 8,25 SAY " 3. add or delete an item" @ 9,25 SAY " 4. add a store" @ 10,25 SAY " 5. remove a store" STORE 6 TO selectnum DO WHILE selectnum < 0 .OR. selectnum > 5 STORE " " TO select @ 13,33 SAY " select : : " @ 13,42 GET select PICTURE "#" RELEASE ALL LIKE GR:* READ STORE VAL(select) TO selectnum ENDDO DO CASE CASE selectnum= 0 SET COLON ON STORE f TO mkchange CASE selectnum= 1 DO getgro DO clear CASE selectnum= 2 DO getgro DO change CASE selectnum= 3 DO getgro DO additem CASE selectnum= 4 DO addstore CASE selectnum= 5 DO getgro DO remstore ENDCASE ENDDO mkchange ENDCASE ENDDO T * EOF: MAINMENU.CMD * PURCHASE.CMD * RLS * MARCH 1986 ERASE SET COLON ON USE grocery&gs INDEX item&gs RESTORE FROM GRAPHICS ADDITIVE @ 1,0 SAY gr:on @ 1,1 SAY gr:ltc + gr:line @ 2,1 SAY gr:vert @ 3,1 SAY gr:vert @ 4,1 SAY gr:vert @ 5,1 SAY gr:vert @ 6,1 SAY gr:vert @ 7,1 SAY gr:lbc+gr:line @ 7,79 SAY gr:rbc @ 6,79 SAY gr:vert @ 5,79 SAY gr:vert @ 4,79 SAY gr:vert @ 3,79 SAY gr:vert @ 2,79 SAY gr:vert @ 1,79 SAY gr:rtc @ 8,1 SAY gr:off RELEASE ALL LIKE gr:* @ 3,10 SAY " SELECT THE ITEMS YOU WISH TO PURCHASE FROM " @ 5,30 SAY mstrname SET INTENSITY ON @ 8, 15 SAY "-choose -next -backup -skip uit" @ 10,7 SAY "Item" @ 10,30 SAY "Comments" @ 10,70 SAY "Coupons" @ 11,1 SAY "________________________________________" @ 11,40 SAY "_______________________________________" SET INTENSITY OFF STORE 12 TO cntr STORE ' ' TO choice DO WHILE choice # 'Q' @ cntr, 7 SAY item @ cntr, 30 SAY comments IF buy STORE "X" TO choice ENDIF @ cntr, 3 GET choice PICTURE '!' @ $+1,0 READ CLEAR GETS DO CASE CASE choice = 'B' SKIP -1 STORE ' ' TO choice CASE choice = 'X' STORE " " TO choice REPLACE buy WITH t STORE comments TO mcomment STORE coupon TO mcoupon @ cntr, 30 GET mcomment @ cntr, 70 GET mcoupon READ REPLACE comments WITH mcomment REPLACE coupon WITH mcoupon SKIP CASE choice = 'S' @ cntr, 79 ACCEPT ' how many? ' TO sno SKIP &sno RELEASE sno STORE ' ' TO choice OTHERWISE SKIP ENDCASE STORE 1 + cntr TO cntr IF cntr > 21 STORE 12 TO cntr ENDIF IF EOF GOTO TOP STORE 1 + cntr TO cntr ENDIF ENDDO choice RELEASE choice, cntr SET COLON OFF RETURN * REMSTORE.CMD * RLS * MAR 1986 ERASE RESTORE FROM GRAPHICS ADDITIVE @ 1,0 SAY gr:on @ 1,1 SAY gr:ltc + gr:line @ 2,1 SAY gr:vert @ 3,1 SAY gr:vert @ 4,1 SAY gr:vert @ 5,1 SAY gr:vert @ 6,1 SAY gr:vert @ 7,1 SAY gr:lbc+gr:line @ 7,79 SAY gr:rbc @ 6,79 SAY gr:vert @ 5,79 SAY gr:vert @ 4,79 SAY gr:vert @ 3,79 SAY gr:vert @ 2,79 SAY gr:vert @ 1,79 SAY gr:rtc @ 8,1 SAY gr:off RELEASE ALL LIKE gr:* @ 4,15 SAY "d B A S E S H O P P E R : S T O R E R E M O V A L" @ 10,10 SAY "This program removes "+TRIM("&mstrname")+" from the list " @ 11,10 SAY " PERMANENTLY " @ 12,10 SAY " Do you want to proceed? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans)#"Y" RELEASE ans RETURN ELSE @ 15,1 ?? " Working " USE stores LOCATE FOR storeno = "&gs" DELETE PACK ?? "." STORE "GROCERY&gs"+".DBF" TO gonefile DELETE FILE &gonefile ?? "." STORE "AISLE&gs"+".NDX" TO gonefile DELETE FILE &gonefile ?? "." STORE "ITEM&gs"+".NDX" TO gonefile DELETE FILE &gonefile ?? "Through " ENDIF RETURN  gr:vert @ 3,1 SAY gr:vert @ 4,1 SAY gr:vert @ 5,1 SAY gr:vert @ 6,1 SAY gr:vert @ 7,1 SAY gr:lbc+gr:line @ 7,79 SAY gr:rbc @ 6,79 SAY gr:vert @ 5,79 SAY gr:vert @ 4,79 SAY gr:vert @ 3,79 SAY gr:vert @ 2,79 SAY gr:vert @ 1,79 SAY gr:rtc @ 8,1 SAY gr:off RELEASE ALL LIKE gr:* @ 4,15 SAY "d B A S E S H O P P E R : S T O R E R E M O V A L" @ 10,10 SAY "This program removes "+TRIM("&mstrname")+" from the list " @ 11,10 SAY " PERMANENTLY " @ 12,10 SAY " Do you want to proceed? es/o " SET CONSOLE OFF WAIT TO ans SET CONSOLE ON IF !(ans)#"Y" RELEASE ans RETURN ELSE @ 15,1 ?? " Working " USE stores LOCATE FOR storeno = "&gs" DELETE PACK ?? "." STORE "GROCERY&gs"+".DBF" TO gonefile DELETE FILE &gonefile ?? "." STORE "AISLE&gs"+".NDX" TO gonefile DELETE FILE &gonefile ?? "." STORE "ITEM&gs"+* REPORT.CMD * RLS * MAR 86 * dBASE SHOPPER SET TALK OFF SET EJECT OFF STORE 'N' TO op:quit DO WHILE op:quit = 'N' STORE t TO notready DO WHILE notready ERASE SET INTENSITY OFF RESTORE FROM GRAPHICS ADDITIVE @ 2,1 SAY gr:on @ 3, 1 SAY gr:ltc + gr:line @ 4, 1 SAY gr:vert @ 5, 1 SAY gr:vert @ 6, 1 SAY gr:vert @ 7, 1 SAY gr:vert @ 8, 1 SAY gr:vert @ 9, 1 SAY gr:lmid + gr:line @ 10, 1 SAY gr:vert @ 11, 1 SAY gr:vert @ 12, 1 SAY gr:vert @ 13, 1 SAY gr:vert @ 14, 1 SAY gr:vert @ 15, 1 SAY gr:vert @ 16, 1 SAY gr:vert @ 17, 1 SAY gr:vert @ 18, 1 SAY gr:vert @ 19, 1 SAY gr:vert @ 20, 1 SAY gr:vert @ 21, 1 SAY gr:lbc + gr:line @ 9,30 SAY gr:umid @ 10,30 SAY gr:vert @ 11,30 SAY gr:vert @ 12,30 SAY gr:vert @ 13,30 SAY gr:vert @ 14,30 SAY gr:vert @ 15,30 SAY gr:vert @ 16,30 SAY gr:vert @ 17,30 SAY gr:vert @ 18,30 SAY gr:vert @ 19,30 SAY gr:vert @ 20,30 SAY gr:vert @ 21,30 SAY gr:bmid @ 21,79 SAY gr:rbc @ 20,79 SAY gr:vert @ 19,79 SAY gr:vert @ 18,79 SAY gr:vert @ 17,79 SAY gr:vert @ 16,79 SAY gr:vert @ 15,79 SAY gr:vert @ 14,79 SAY gr:vert @ 13,79 SAY gr:vert @ 12,79 SAY gr:vert @ 11,79 SAY gr:vert @ 10,79 SAY gr:vert @ 9,79 SAY gr:rmid @ 8,79 SAY gr:vert @ 7,79 SAY gr:vert @ 6,79 SAY gr:vert @ 5,79 SAY gr:vert @ 4,79 SAY gr:vert @ 3,79 SAY gr:rtc @ 22,1 SAY gr:off RELEASE ALL LIKE gr:* @ 6,10 SAY " d B A S E S H O P P E R R E P O R T O P T I O N S" STORE "S" TO op:out STORE " " TO op:title STORE "Y" TO op:kind STORE "P" TO op:scope SET INTENSITY ON @ 11,5 SAY "OUTPUT:" @ 13,5 SAY " To" @ 15,5 SAY " Title" @ 16,5 SAY " Scope" @ 17,5 SAY " By aisle" @ 20,5 SAY " QUIT" SET INTENSITY OFF @ 13,33 GET op:out PICTURE "!" @ 15,33 GET op:title @ 16,33 GET op:scope PICTURE "!" @ 17,33 GET op:kind PICTURE "!" @ 20,33 GET op:quit PICTURE "!" SET INTENSITY ON @ 13,40 SAY "

rinter or creen" @ 16,40 SAY "

urchase items or verything" @ 17,40 SAY "es or o" @ 20,40 SAY "es or o" SET INTENSITY OFF READ CLEAR GETS IF op:quit # 'N' RELEASE ALL LIKE op:* RELEASE notready, m:rep, m:delim RETURN ENDIF IF op:scope = "P" .OR. op:scope = "E" IF op:out = "P" .OR. op:out = "S" IF op:kind = "Y" .OR. op:kind = "N" STORE f TO notready ELSE LOOP ENDIF ELSE LOOP ENDIF ENDIF ENDDO notready STORE "REPORT FORM STANDARD PLAIN " TO m:rep STORE "FOR " TO m:delim IF op:scope = "P" STORE m:rep + " FOR BUY " TO m:rep ENDIF IF op:kind = "Y" USE grocery&gs INDEX aisle&gs ELSE USE grocery&gs INDEX item&gs ENDIF IF op:out = "P" ERASE @ 10, 10 SAY "GET PRINTER READY" WAIT SET PRINT ON ENDIF SET EJECT OFF SET EXACT OFF ERASE ? ? " &op:title " ? " &mstrname" + " "+tdate ? ? &M:REP SET PRINT OFF SET CONSOLE OFF WAIT SET CONSOLE ON ENDDO RETURN W=65 y dBASE SHOPPER ; G R O C E R Y L I S T N N 7,AISLE AISLE;===== 20,ITEM ?@ABMAINMENUEPS(CDEFGPURCHASECMDHIREMSTORECMD JKREPORT CMDLMNSTANDARD$$$W STORENOC|STORENAMEC| 1Safeway BKrogers *CGreen's Produce *DGoofy's EStandby FHarvey's GFawleys AMinyards rase @ 10,10 say ' Please remember to backup your working disk.' @ 11,0 @ 12,10 say ' Instructions for making a backup copy:' @ 13,0 @ 14,10 say ' 1-At the A> prompt, remove system disk' @ 15,10 say ' from drive A and inserNEWLEADS.DOC This should be a ready to run dBASE II command file using ver 2.43. Remove the * before the SET FORMAT TO PRINT and SET FORMAT TO SCREEN commands and the letters should be sent to the printer. Use ZIP that is supplied with dBASE to edit the text of your response letters. A little file doctoring and you should be on your way. Where you will have to do most of the work is in the address areas. Use TRIM(TITLE)+' '+TRIM(FIRST)+' '+LAST to get a neat print out like this: Mr. Sam Smith NULU was used to combine the files into a library for transmission speed. get a neat print out like this: Mr. SSTORES DBFPNEWLEADS$$$***NEWLEADS.CMD ***Generate letters to prospective clients SET TALK OFF SET DEFA TO B DO WHILE T ERASE STORE ' ' TO CHOICE * MENU.FMT @ 1,19 SAY "New Sales Leads" @ 4, 0 SAY "+-------------------------------------------------" @ 4,50 SAY "+" @ 5, 0 SAY "." @ 5,50 SAY "." @ 6, 0 SAY ". 1..Add new prospects, send letter" @ 6,50 SAY "." @ 7, 0 SAY "." @ 7,50 SAY "." @ 8, 0 SAY ". 2..Modify old records" @ 8,50 SAY "." @ 9, 0 SAY "." @ 9,50 SAY "." @ 10, 0 SAY ". 3..Exit" @ 10,50 SAY "." @ 11, 0 SAY "." @ 11,50 SAY "." @ 12, 0 SAY "+-------------------------------------------------" @ 12,50 SAY "+" @ 13, 1 SAY "Choose one of the above" @ 13,25 GET choice PICTURE '!' READ DO CASE CASE choice = '1' ERASE REMARK Enter the date of the letter STORE ' ' TO MDATE @ 5,10 GET MDATE PICTURE '99/99/99' READ SET DATE TO &MDATE DO ADDNEW.CMD CASE choice = '2' DO MODIFY.CMD CASE choice = '3' ERASE REMARK Exit to ystem base ? REMARK Any other key returns you to the menu WAIT TO ok DO CASE CASE !(ok) = 'S' QUIT CASE !(ok) = 'D' CANCEL ENDCASE OTHERWISE LOOP ENDCASE ENDDO T TO ok DO CASE CASE !(ok) = 'S' QUIT CASE !(ok) = 'D' @ 5, 0 SAY "." @ 5,50 SAY "." @ 6, 0 SAY ". 1..Add new prospects, send letter" @ 6,50 SAY "." @ 7, 0 SAY "." @ 7,50 SAY "." @ 8, 0 SAY ". 2..Modify old records" @ 8,50 SAY "." @ 9, 0 SAY "." @ 9,50 SAY "." @ 10, 0 SAY ". 3..Exit" @ 10,50 SAY "." @ 11, 0 SAY "." @ 11,50 SAY "." @ 12, 0 SAY "+-------------------------------------------------" @ 12,50 SAY "+" @ 13, 1 SAY "Choose one of the above" @ 13,25 GET choice PICTURE '!' READ DO CASE CASE choice = '1' ERASE REMARK Enter the date of the letter STORE ' ' TO MDATE @ 5,10 GET MDATE PICTURE '99/99/99' READ SET DATE TO &MDATE DO ADDNEW.CMD CASE choice = '2' DO MODIFY.CMD CASE choice = '3' ERASE REMARK Exit to ystem AGENTC|TITLEC|FIRSTC |LASTC|BUS:NAMEC#'|ADDRC#J|CITYCm|STATEC|ZIPC |PHONEC |SEND:LTRL| JRSMr. Sammy Little New Products Limited 1234 Avenue B Hampton TX77375 713/321-0000t*JRSMr. Sam Silver Sam's 321 South Ave Dime Box TX77999 409/832-4455t*DGSMs. Ellen Allan Central Station 987 Ave B Santa Ynez CA87569 805/443-4567t*JRSMr. Don Alford The Spoke Shop  765 Post Oak Lane Conroe TX77356 409/345-0000t*JRSMr. Allen Alton Alton's Business Machines Rt 1 Dime Box TX77890 409/123-9999t City |#city State |#state Zip |#zip JRSMr. Sammy Little New Products Limited 1234 Avenue B Hampton TX77375 713/321-0000t*JRSMr. Sam Silver Sam's 321 South Ave Dime Box TX77999 409/832-4455t*DGSMs. Ellen Allan Central Station 987 Ave B Santa Ynez CA87569 805/443-4567t*JRSMr. Don Alford The Spoke Shop Submitted by: Wayne Campbell 1006 Hickory Post Tomball, Tx 77375 Thi i on o th man problem tha hav sucessfull conqere i th yea tha hav bee integratin computer int ou office hop tha th idea presente her ca hel yo formulat you ow progra specificall fo you application. Advertising Campaign Response Blues Heav nationa advertisin bring i severa hundre inquire fro prospectiv customer fo ou produc i year' time W wan t respon wit professiona lookin lette an brochure informin th prospectiv clien o ou produc an o th fiel representativ tha ha bee assigne t provid the wit servic an equipment Ok tha i simpl enough However w nee t contac th fiel representativ an infor hi o th prospectiv customer Thi mean tw letters eac lette havin th nam o th fiel re an o th prospectiv customer lo o typin i don manually! Th Solution! Here' wha worke fo me databas o ou fiel agent wit names addresses an phon number wa established specifie fiel i th databas wa use t identif tha particula agent The th databas wa indexe b tha field databas containin al th pertinen informatio o ou prospectiv client wa the created. Th Execution! Comman file wer the writte t gathe th nam an addres o eac ne prospectiv client Th progra prompt yo fo th uniqu agen identifie an ask yo i yo wan t typ th letter o not I th operato resopond yes th progra send th tex o th lette t th printe addressin i fro th dat tha yo hav jus entere o you primar fil (ne clients an include th agent addres fro you secondar fil a th botto o th letter. Success At Last! Thi syste work sucessfull fo m i th creatio o abou 110 leads I onl require typin th nam an addres o th prospectiv clien on tim int th compute system hug saving i tim effor an mone ha bee realized. A th en o eac advertisin seaso th dat i analyze t hel u determin wher t spen ou advertisin dollar W als hav mean o followin u wit th agen t se i h i actuall contactin th prospectiv client an t determin ho successfu ou advertisin campaig was.  se i h i actuall contactin th prospectiv client an t det yo fo th uniqu agen identifie an ask yo i yo wan t typ th letter o not I th operato resopond yes th progra send th tex o th lette t th printe addressin i fro th dat tha yo hav jus entere o you primar fil (ne clients an include th agent addres fro you secondar fil a th botto o th letter. Success At Last! Thi syste work sucessfull fo m i th creatio o abou 110 leads I onl require typin th nam an addr*****ADDNEW.CMD *****Add new prospective clients and send letter SELECT PRIMARY USE NEWLEADS INDEX LAST SELECT SECONDARY USE AGENTS INDEX INITIALS STORE T TO OS DO WHILE OS SELECT SECONDARY ERASE REMARK Enter the initials of the agent assigned STORE ' ' TO MAGENT @ 5,15 GET MAGENT PICTURE '!!!' READ IF MAGENT = ' ' STORE F TO OS SELECT PRIMARY USE SELECT SECONDARY USE RETURN ENDIF STORE TRIM(MAGENT) TO MAGENT FIND &MAGENT IF # = 0 TEXT That agent is not on my list But here is a list to choose from Ndx Agent ---- ------------------------------------------ ENDTEXT DISP ALL OFF S.AGENT,TRIM(S.FIRST)+' 'S.LAST WAIT LOOP ENDIF @ 10,5 SAY S.AGENT @ 11,5 SAY S.BUS:NAME @ 12,5 SAY TRIM(S.TITLE)+' '+TRIM(S.FIRST)+' '+S.LAST @ 13,5 SAY S.ADDR @ 14,5 SAY TRIM(S.CITY)+', '+S.STATE REMARK Is this the correct one? WAIT TO ok IF !(ok) = 'N' LOOP ENDIF ERASE REMARK Adding new blank record SELECT PRIMARY APPEND BLANK REPLACE P.AGENT WITH MAGENT * NEWLEAD.FMT @ 1,17 SAY "New Sales Lead Data" @ 4, 0 SAY "Agent assigned for service" @ 4,27 SAY agent @ 6, 6 SAY "Business Name " @ 6,20 GET bus:name @ 8, 0 SAY "Title (Mr. Ms. Dr.) " @ 8,20 GET title @ 9, 8 SAY "First Name " @ 9,20 GET first @ 10, 9 SAY "Last Name " @ 10,20 GET last @ 11,11 SAY "Address " @ 11,20 GET addr @ 12,14 SAY "City " @ 12,20 GET city @ 13,13 SAY "State " @ 13,20 GET state @ 14,15 SAY "Zip " @ 14,20 GET zip @ 15, 6 SAY "Phone number " @ 15,20 GET phone @ 18, 0 SAY "Do you wish to send the letter" @ 18,31 GET send:ltr READ IF SEND:LTR ERASE * SET FORMT TO PRINT * LETTER.FMT @ 0,21 SAY "ABC Company" @ 1,20 SAY "123 Anystreet" @ 2,18 SAY "Houston, Tx 77777" @ 5,40 SAY DATE() @ 8, 0 SAY P.BUS:NAME @ 9, 0 SAY TRIM(P.FIRST)+' '+P.LAST @ 10, 0 SAY P.ADDR @ 11, 0 SAY TRIM(P.CITY)+', '+P.STATE+' '+P.ZIP @ 13, 0 SAY "Dear" @ 13, 6 SAY TRIM(P.TITLE)+' '+TRIM(P.LAST)+',' @ 15,15 SAY "Body of response letter" @ 17, 0 SAY "Local area reprsentative:" @ 18, 0 SAY S.BUS:NAME @ 19, 0 SAY TRIM(S.FIRST)+' '+S.LAST @ 20, 0 SAY S.ADDR @ 21, 0 SAY TRIM(S.CITY)+', '+S.STATE+' '+S.ZIP @ 22, 0 SAY S.PHONE WAIT ERASE *EJECT * LETTER.FMT @ 0,21 SAY "ABC Company" @ 1,20 SAY "123 Anystreet" @ 2,18 SAY "Houston, Tx 77777" @ 5,40 SAY DATE() @ 8, 0 SAY S.BUS:NAME @ 9, 0 SAY TRIM(S.TITLE)+' '+TRIM(S.FIRST)+' '+S.LAST @ 10, 0 SAY S.ADDR @ 11, 0 SAY TRIM(S.CITY)+', '+S.STATE+' '+S.ZIP @ 13, 0 SAY "Dear" @ 13, 6 SAY TRIM(S.FIRST)+',' @ 15,15 SAY "Body of letter to agent" @ 18, 0 SAY P.BUS:NAME @ 19, 0 SAY TRIM(P.TITLE)+' '+TRIM(P.FIRST)+' '+P.LAST @ 20, 0 SAY P.ADDR @ 21, 0 SAY TRIM(P.CITY)+', '+P.STATE+' '+P.ZIP @ 22, 0 SAY P.PHONE *EJECT *SET FORMAT TO SCREEN WAIT ENDIF ENDDO DDR @ 21, 0 SAY TRIM(P.CITY)+', '+P.STATE+' '+P.ZIP @ 22, 0 SAY P.PHONE *EJECT *SET FORMAT TO SCREEN3, 0 SAY "Dear" @ 13, 6 SAY TRIM(P.TITLE)+' '+TRIM(P.LAST)+',' @ 15,15 SAY "Body of response letter" @ 17, 0 SAY "AGENTC|TITLEC|FIRSTC |LASTC|BUS:NAMEC#'|ADDRC#J|CITYCm|STATEC|ZIPC |PHONEC | JRSMr. James R. Smith Smith & Sons Limited 4321 South Bend Ave Anycity TX77777-4321713/999-0000*BRHMr. Bob R. Hamilton Hamilton's Repair 1234 Avenue H Dallas TX77240-1234214/432-0000*DGSMs. Donna G. Smith 987 Tall Pines San Luis Obispo CA99999-1234805/688-0000 SAY "." @ 9,50 SAY "." @ 10, 0 SAY ". 3..ExHagent 1..Add new prospects, send letter . . A@@@@@@@@@@@@@@'@@@@@@@@A@@@BRHDGSJRS . . . 3..Exit . . . +-------------------BRHDGSJRS . . . 3..Exit . . . +-------------------------------------------------+ Choose one of the above @choice last Business Name|#bus:name A@@@@@@@@@@@@@@'@@@@@@@@A@@@Alford Allan Alton Little Silver Last Name |#last Address |#addr City |Alford Allan Alton Little Silver Last Name |#last Address |#addr City |#city State |#state Zip |#zip  ABC Company 123 Anystreet Houston, Tx 77777 @mdate @BUS:NAME @FIRSTLAST @ADDR @CITYSTZIP  Dear @TITLELAST Body of response letter Local area reprsentative: @BUS:NAME @FIRSTLAST @ADDR @CITYSTZIP @PHONE  ******MODIFY.CMD ******Modify data in prospective customer list ERASE USE NEWLEADS INDEX LAST REMARK Enter the last name of the new customer ACCEPT TO MLAST STORE TRIM(MLAST) TO MLAST FIND &MLAST TEXT The following records match Rec Name ------- ------------------------------------------- ENDTEXT LIST TRIM(FIRST)+' '+TRIM(LAST) WHILE LAST = MLAST ? IF # = 0 REMARK No matching entries WAIT RETURN ENDIF REMARK Enter the record number to edit or 0 to abort INPUT TO REC IF REC = 0 RETURN ENDIF GOTO REC * NEWLEAD.FMT @ 1,17 SAY "New Sales Lead Data" @ 4, 0 SAY "Agent assigned for service" @ 4,27 SAY agent @ 6, 6 SAY "Business Name " @ 6,20 GET bus:name @ 8, 0 SAY "Title (Mr. Ms. Dr.) " @ 8,20 GET title @ 9, 8 SAY "First Name " @ 9,20 GET first @ 10, 9 SAY "Last Name " @ 10,20 GET last @ 11,11 SAY "Address " @ 11,20 GET addr @ 12,14 SAY "City " @ 12,20 GET city @ 13,13 SAY "State " @ 13,20 GET state @ 14,15 SAY "Zip " @ 14,20 GET zip @ 15, 6 SAY "Phone number " @ 15,20 GET phone READ RETURN e " @ 13,20 GET state @ 14,15 SAY "Zip " @ 14,20 GET zip @ 15, 6 Sf the new customer ACCEPT TO MLAST STORE TRIM(MLAST) TO MLAST FIND &MLAST TEXT The following records match Rec Name ------- ------------------------------------------- ENDTEXT LIST TRIM(FIRST)+' '+TRIM(LAST) WHILE LAST = MLAST ? IF # = 0 REMARK No matching entries WAIT RETURN ENDIF REMARK Enter the record number to edit or 0 to abort INPUT TO REC IF REC = 0 RETURN ENDIF GOTO REC * NEWLEAD.FMT @ 1,17 SAY "New Sales Lead Data" @ 4, 0 SAY "Agent assigned for service" @ 4,27 SAY agent @ 6, 6 SAY "Business Name " @ 6,20 GET bus:name @ 8, 0 SAY "Title (Mr. Ms. Dr.) " @ 8,20 GET title @ 9, 8 SAY "First Name " @ 9,20 GET first @ 10, 9 SAY "Last Name " @ 10,20 GET last @ 11,11 SAY "Address " @ 11,20 GET addr @ 12,14 SAY "City " @ 12,20 GET city @ 13,13 SAY "State " @ 13,20 GET state @ 14,15 SAY "Zip " @ 14,20 GET zip @ 15, 6 S * Program..: VI-MAIN.CMD * Author...: Lyle Burks * Date.....: 06/07/85 * Notice...: Copyright 1985, All Rights Reserved * Reserved.: select, selectnum, editchoice, poschoice, * error, findkey, expression, string, is:eof * clearline, addchoice, is:some, lastrecord * SET TALK OFF SET BELL OFF SET COLON OFF * ---Use blanks to clear-to-end-of-line. STORE $(STR(0,81),1,80) TO clearline DO WHILE T ERASE @ 1, 0 SAY "========================================" @ 1,40 SAY "========================================" @ 2, 0 SAY "||" @ 2,21 SAY "V I D E O L O G M A I N M E N U" @ 2,78 SAY "||" @ 3, 0 SAY "========================================" @ 3,40 SAY "========================================" @ 4, 0 SAY "||" @ 4,78 SAY "||" @ 5, 0 SAY "||" @ 5,78 SAY "||" @ 6, 0 SAY "||" @ 6,78 SAY "||" @ 7, 0 SAY "||" @ 7,78 SAY "||" @ 8, 0 SAY "||" @ 8,78 SAY "||" @ 9, 0 SAY "||" @ 9,78 SAY "||" @ 10, 0 SAY "||" @ 10,78 SAY "||" @ 11, 0 SAY "||" @ 11,78 SAY "||" @ 12, 0 SAY "========================================" @ 12,40 SAY "========================================" @ 5,35 SAY " 0. exit" @ 6,35 SAY " 1. view" @ 7,35 SAY " 2. add" @ 8,35 SAY " 3. edit" @ 9,35 SAY " 4. pack" @ 10,35 SAY " 5. list" @ 11,35 SAY " 6. labels" STORE 7 TO selectnum DO WHILE selectnum < 0 .OR. selectnum > 6 STORE " " TO select @ 14,33 SAY " select : : " @ 14,42 GET select PICTURE "#" READ STORE VAL(select) TO selectnum ENDDO DO CASE CASE selectnum= 0 CLEAR SET COLON ON SET BELL ON SET TALK ON RETURN CASE selectnum= 1 * DO view USE VIDEOLOG INDEX VIDTITLE ERASE @ 1, 0 SAY "V I E W V I D E O L O G" @ 1,72 SAY DATE() DO VI-frame IF # = 0 * ---The data file is empty. STORE " " TO select @ 14,0 SAY "EMPTY DATA FILE" @ 15,0 SAY "Strike any key to continue..."; GET select READ NOUPDATE ELSE * ---The data file contains records. DO VI-gets CLEAR GETS STORE "X" TO poschoice DO WHILE poschoice <> " " DO VI-posn ENDDO ENDIF USE CASE selectnum= 2 * DO add USE VIDEOLOG INDEX VIDTITLE COPY STRUCTURE TO VIDEOLOG.add SELECT SECONDARY USE VIDEOLOG.add ERASE @ 1, 0 SAY "A D D V I D E O L O G" @ 1,72 SAY DATE() DO VI-frame @ 14,0 SAY "Press to exit" STORE "X" TO addchoice DO WHILE addchoice <> " " APPEND BLANK DO VI-gets READ * ---TITLE cannot be blank. STORE TRIM( TITLE ) TO addchoice ENDDO DELETE USE SELECT PRIMARY APPEND FROM VIDEOLOG.add USE CASE selectnum= 3 * DO edit USE VIDEOLOG INDEX VIDTITLE ERASE @ 1, 0 SAY "E D I T V I D E O L O G" @ 1,72 SAY DATE() DO VI-frame IF # = 0 * ---The data file is empty. STORE " " TO select @ 14,0 SAY "EMPTY DATA FILE" @ 15,0 SAY "Strike any key to continue..."; GET select READ NOUPDATE ELSE * ---The data file contains records. DO VI-gets CLEAR GETS DO VI-edit ENDIF USE CASE selectnum= 4 * DO pack DO VI-pack CASE selectnum=5 * DO list DO VI-list CASE selectnum=6 * DO labels DO vidlabel ENDCASE ENDDO T * EOF: VI-MAIN.CMD  DO VI-gets READ * ---TITLE cannot be blank. STORE TRIM( TITLE ) TO addchoice ENDDO DELETE USE SELECT PRIMARY APPEND FROM VIDEOLOG.add USE CASE selectnum= 3 * DO edit USE VIDEOLOG INDEX VIDTITLE ERASE @ 1, 0 SAY "E D I T V I D E O L O G" @ 1,72 SAY DATE() DO VI-fr * Program..: VI-EDIT.CMD * Author...: Lyle Burks * Date.....: 06/07/85 * Notice...: Copyright 1985, All Rights Reserved * DO WHILE T STORE " " TO editchoice @ 14,0 SAY "COMMAND: (E)dit, (D)elete, (U)ndelete, "+; "(C)ontinue, (P)osition "; GET editchoice PICTURE "!" READ NOUPDATE CLEAR GETS @ 14,0 SAY clearline DO CASE CASE editchoice = " " * ---Exit. RETURN CASE editchoice = "P" * ---(P)osition STORE "X" TO poschoice DO WHILE poschoice <> " " DO VI-posn ENDDO CASE editchoice = "D" * ---(D)elete DELETE @ 1,55 SAY "DELETED" CASE editchoice = "U" * ---(U)ndelete RECALL @ 1,55 SAY " " CASE editchoice = "E" * ---(E)dit @ 14,0 SAY "Press to exit" IF # <> 0 DO VI-some READ ENDIF CASE editchoice = "C" * ---(C)ontinue to the next record. STORE # TO lastrecord CONTINUE * ---Check for END-OF-FILE. IF .NOT. EOF DO VI-gets CLEAR GETS ELSE * ---EOF encountered. GOTO lastrecord @ 14,0 SAY clearline @ 14,0 SAY "END-OF-FILE encountered" STORE " " TO select @ 15,0 SAY "Strike any key to continue..."; GET select READ NOUPDATE @ 14,0 SAY clearline @ 15,0 SAY clearline ENDIF ENDCASE ENDDO * EOF: VI-EDIT.CMD ---(D)elete DELETE @ 1,55 SAY "DELETED" CASE editchoice = "U" * ---(U)ndelete RECALL @ 1,55 SAY " " CASE editchoice = "E" * ---(E)dit @ 14,0 SAY "Press to exit" IF # <> 0 DO VI-some READ ENDIF CASE editchoice = "C" * ---(C)ontin * Program..: VI-FRAME.CMD * Author...: Lyle Burks * Date.....: 06/07/85 * Notice...: Copyright 1985, All Rights Reserved * @ 2, 0 SAY "----------------------------------------" @ 2,40 SAY "----------------------------------------" @ 4, 0 SAY "Tape......:" @ 5, 0 SAY "Title.....:" @ 6, 0 SAY "Hrs.......:" @ 7, 0 SAY "Min.......:" @ 8, 0 SAY "Indexstrt.:" @ 9, 0 SAY "Indexend..:" @ 10, 0 SAY "Timeleft..:" @ 13, 0 SAY "----------------------------------------" @ 13,40 SAY "----------------------------------------" RETURN * EOF: VI-FRAME.CMD  * Program..: VI-GETS.CMD * Author...: Lyle Burks * Date.....: 06/07/85 * Notice...: Copyright 1985, All Rights Reserved * IF * @ 1,55 SAY "DELETED" ELSE @ 1,55 SAY " " ENDIF @ 4,11 GET Tape @ 5,11 GET Title @ 6,11 GET Hrs @ 7,11 GET Min @ 8,11 GET Indexstrt @ 9,11 GET Indexend @ 10,11 GET Timeleft RETURN * EOF: VI-GETS.CMD  * Program..: VI-LIST.CMD * Author...: Lyle Burks * Date.....: June 7, 1985 * Notice...: Copyright 1985, All Rights Reserved * Notes....: * Reserved.: select, selectnum * SET TALK OFF SET BELL OFF SET COLON OFF DO WHILE T ERASE @ 1, 0 SAY "========================================" @ 1,40 SAY "========================================" @ 2, 0 SAY "||" @ 2,14 SAY "L I S T G E N E R A T O R F O R M O V I E S" @ 2,78 SAY "||" @ 3, 0 SAY "========================================" @ 3,40 SAY "========================================" @ 4, 0 SAY "||" @ 4,78 SAY "||" @ 5, 0 SAY "||" @ 5,78 SAY "||" @ 6, 0 SAY "||" @ 6,78 SAY "||" @ 7, 0 SAY "||" @ 7,78 SAY "||" @ 8, 0 SAY "||" @ 8,78 SAY "||" @ 9, 0 SAY "||" @ 9,78 SAY "||" @ 10, 0 SAY "========================================" @ 10,40 SAY "========================================" @ 5,28 SAY " 0. exit" @ 6,28 SAY " 1. list by title" @ 7,28 SAY " 2. list by tape number" STORE 3 TO selectnum DO WHILE selectnum < 0 .OR. selectnum > 2 STORE " " TO select @ 10,33 SAY " select : : " @ 10,42 GET select PICTURE "#" READ STORE VAL(select) TO selectnum ENDDO DO CASE CASE selectnum= 0 SET COLON ON SET BELL ON SET TALK ON CLEAR RETURN CASE selectnum= 1 * DO list by title DO vidtitle CASE selectnum= 2 * DO list by tape number DO vidtape ENDCASE ENDDO T * EOF: VI-LIST.CMD ===" @ 3,40 SAY "========================================" @ 4, 0 SAY "||" @ 4,78 SAY "||" @ 5, 0 SAY "||" @ 5,78 SAY "||" @ 6, 0 SAY "||" @ 6,78 SAY "||" @ 7, 0 SAY "||" @ 7,78 SAY "||" @ 8, 0 SAY "||" @ 8,78 SAY "||" @ 9, 0 SAY "||" @ 9,78 SAY "||" @ 10, 0 SAY "========================================" @ 10,40 SAY "========================================" @ 5,28 SAY " 0. exit" @ 6,28 SAY " 1. list by title" @ 7,28 SAY " 2. list by tape number" STORE 3 TO selectnum DO  * Program..: VI-LOCAT.CMD * Author...: Lyle Burks * Date.....: June 7, 1985 * Notice...: Copyright 1985, All Rights Reserved * STORE " " TO expression,string * ---LOCATE section. DO WHILE expression = " " @ 12,0 SAY 'EXAMPLE :STATE="CA"' @ 14,0 SAY clearline * @ 13,0 SAY "-" ACCEPT "Enter LOCATE expression " TO expression @ 12,0 SAY clearline STORE TRIM(expression) TO expression DO CASE CASE expression = " " * ---Exit. RETURN CASE 0 = TEST(&expression) * ---INVALID EXPRESSION. @ 15,0 SAY clearline STORE " " TO select @ 15,0 SAY "INVALID EXPRESSION: "+; "Strike any key to continue... "; GET select READ NOUPDATE @ 15,0 SAY clearline STORE " " TO expression OTHERWISE * ---LOCATE the record. * ---Close index file for a faster LOCATE. SET INDEX TO LOCATE FOR &expression IF .NOT. EOF  * ---Found a matching record. STORE # TO lastrecord * ---Reopen index file. SET INDEX TO VIDTITLE GOTO lastrecord ELSE * ---Reopen index file and * ---reset EOF marker to true (.T.). SET INDEX TO VIDTITLE GO BOTTOM SKIP ENDIF ENDCASE ENDDO IF poschoice = "L" * ---Return to calling program if only the LOCATE was desired. RETURN ENDIF * * ---DISPLAY section. STORE " " TO string DO WHILE string = " " @ 12,0 SAY "EXAMPLE :NAME+ADDRESS" @ 14,0 SAY "E" ACCEPT "Enter DISPLAY string " TO string @ 12,0 SAY clearline STORE TRIM(string) TO string DO CASE CASE string = " " * ---Exit. @ 14,0 SAY clearline @ 15,0 SAY clearline RETURN CASE 0 = TEST(&string) * ---INVALID EXPRESSION. @ 15,0 SAY clearline STORE " " TO select @ 15,0 SAY "INVALID DISPLAY EXPRESSION: "+; "Strike any key to continue... "; GET select READ NOUPDATE @ 15,0 SAY clearline STORE " " TO string ENDCASE ENDDO * ---Now, DISPLAY the expression. STORE F TO is:eof,is:some DO WHILE .NOT. is:eof * ---The following set of dBASE II commands are to * ---clear-to-end-of-screen. If you have an IBM-PC, * ---you can replace these commands with the single * ---command, @ 4,0 ERASE * @ 4,0 SAY clearline @ 5,0 SAY clearline @ 6,0 SAY clearline @ 7,0 SAY clearline @ 8,0 SAY clearline @ 9,0 SAY clearline @ 10,0 SAY clearline @ 11,0 SAY clearline @ 12,0 SAY clearline @ 13,0 SAY clearline @ 14,0 SAY clearline @ 15,0 SAY clearline @ 16,0 SAY clearline @ 17,0 SAY clearline @ 18,0 SAY clearline @ 19,0 SAY clearline @ 20,0 SAY clearline @ 21,0 SAY clearline @ 22,0 SAY clearline @ 20, 0 SAY "----------------------------------------" @ 20,40 SAY "----------------------------------------" STORE 4 TO row DO WHILE .NOT. EOF .AND. row-3 <= 15 STORE T TO is:some @ row,0 SAY &string STORE row + 1 TO row CONTINUE ENDDO * ---A logical memory variable is used to detect the * ---end-of-file. The EOF function cannot be used since * ---it is reset by the READ statement below. STORE EOF TO is:eof IF .NOT. is:some * ---No matching records. @ 4,0 SAY "*** NO MATCHING RECORDS ***" ENDIF STORE " " TO select @ 21,0 SAY "Strike any key to continue... "; GET select READ NOUPDATE @ 21,0 SAY clearline ENDDO * ---The following set of dBASE II commands are to * ---clear-to-end-of-screen. If you have an IBM-PC, * ---you can replace these commands with the single * ---command, @ 4,0 ERASE * @ 4,0 SAY clearline @ 5,0 SAY clearline @ 6,0 SAY clearline @ 7,0 SAY clearline @ 8,0 SAY clearline @ 9,0 SAY clearline @ 10,0 SAY clearline @ 11,0 SAY clearline @ 12,0 SAY clearline @ 13,0 SAY clearline @ 14,0 SAY clearline @ 15,0 SAY clearline @ 16,0 SAY clearline @ 17,0 SAY clearline @ 18,0 SAY clearline @ 19,0 SAY clearline @ 20,0 SAY clearline @ 21,0 SAY clearline @ 22,0 SAY clearline GO TOP RETURN * EOF: VI-LOCAT.CMD ment below. STORE EOF TO is:eof IF .NOT. is:some * ---No matching records. @ 4,0 SAY "*** NO MATCHING RECORDS ***" ENDIF STORE " " TO select @ 21,0 SAY "Strike any key to continue... "; GET select READ NOUPDATE @ 21,0 SAY clearline ENDDO * ---The following set of dBASE II commands are to * ---clear-to-end-of-screen. If you have an IBM-PC, * ---you can replace these commands with the single * ---command, @ 4,0 ERASE * @ 4,0 SAY clearline @ 5,0 SAY clearline @ 6,0 SAY clearline @ 7,0 SAY clearline @ 8,0 SAY clearline @ 9,0 SAY clearline @ 10,0 SAY clearline @  * Program..: VI-PACK.CMD * Author...: Lyle Burks * Date.....: 06/07/85 * Notice...: Copyright 1985, All Rights Reserved * ERASE @ 2, 0 SAY "P A C K V I D E O L O G" @ 2,72 SAY DATE() @ 3, 0 SAY "========================================" @ 3,40 SAY "========================================" STORE "NO " TO select @ 5,0 SAY "PACK the entire file? [YES/NO] "; GET select PICTURE "!!!" READ NOUPDATE IF select <> "YES" RETURN ENDIF @ 6,0 SAY "VIDEOLOG.OLD will be your backup data file." IF FILE( "VIDEOLOG.OLD" ) STORE " " TO select @ $+1,0 SAY "Delete the old backup file? (Y/N) "; GET select PICTURE "!" READ NOUPDATE IF select <> "Y" RETURN ENDIF DELETE FILE VIDEOLOG.OLD ENDIF USE RENAME VIDEOLOG.DBF TO VIDEOLOG.OLD @ $+1,0 SAY " " * USE VIDEOLOG.OLD SET TALK ON SET ECHO ON COPY TO VIDEOLOG USE USE VIDEOLOG * ---Recreate index file. INDEX ON TITLE TO VIDTITLE USE USE VIDEOLOG INDEX VIDTITLE INDEX ON TAPE TO VIDTAPE USE SET ECHO OFF SET TALK OFF STORE " " TO select ERASE @ 22,0 SAY "Strike any key to continue..."; GET select READ NOUPDATE RETURN * EOF: VI-PACK.CMD 0 SAY "========================================" STORE "NO " TO select @ 5,0 SAY "PACK the entire file? [YES/NO] "; GET select PICTURE "!!!" READ NOUPDATE IF select <> "YES" RETURN ENDIF @ 6,0 SAY "VIDEOLOG.OLD will be your backup data file." IF FILE( "VIDEOLOG.OLD" ) STORE " " TO select @ $+1,0 SAY "Delete the old backup file? (Y/N) "; GET select PICTURE "!" READ NOUPDATE IF select <> "Y" RETURN ENDIF DELETE FILE VIDEOLOG.OLD ENDIF USE RENAME VIDEOLOG.DBF TO VIDEOLOG.OLD @ $+1,0 SAY " " * USE VIDEOLOG.OLD SET TALK ON SET ECHO ON COPY TO VIDEOLOG USE USE VIDEOLOG * ---Recreate index file. INDEX ON TITLE TO VIDTITLE USE USE VIDEOLOG INDEX VIDTITLE INDEX ON TAPE TO VIDTAPE USE SET E * Program..: VI-POSN.CMD * Author...: Lyle Burks * Date.....: June 7, 1985 * Notice...: Copyright 1985, All Rights Reserved * STORE " " TO poschoice @ 14,0 SAY clearline @ 14,0 SAY "COMMAND: (D)isplay, (F)ind, "+; "(L)ocate, (C)ontinue, (S)kip "; GET poschoice PICTURE "!" READ NOUPDATE CLEAR GETS @ 14,0 SAY clearline IF .NOT. (poschoice $ "DFLCS") RETURN ENDIF IF poschoice = "F" * ---(F)ind @ 13,0 SAY "-" ACCEPT "Enter TITLE " TO findkey @ 14,0 SAY clearline STORE TRIM(findkey) TO findkey IF findkey = " " RETURN ENDIF STORE # TO lastrecord FIND &findkey IF (# <> 0) DO VI-gets CLEAR GETS ELSE * ---NO FIND. GOTO lastrecord @ 14,0 SAY clearline @ 14,0 SAY '"'+findkey+'"'+" not in index" STORE " " TO select @ 15,0 SAY "Strike any key to continue..."; GET select READ NOUPDATE @ 14,0 SAY clearline @ 15,0 SAY clearline ENDIF ELSE  * ---(S)kip, (C)ontinue, (D)isplay, or (L)ocate STORE # TO lastrecord DO CASE CASE poschoice = "S" * ---(S)kip. SKIP CASE poschoice = "C" * ---(C)ontinue. CONTINUE OTHERWISE * ---(D)isplay or (L)ocate DO VI-locat IF expression = " " RETURN ENDIF IF poschoice = "D" IF string = " " RETURN ENDIF DO VI-frame ENDIF ENDCASE * ---Check for END-OF-FILE. IF .NOT. EOF DO VI-gets CLEAR GETS ELSE * ---EOF encountered. GOTO lastrecord @ 14,0 SAY clearline @ 14,0 SAY "END-OF-FILE encountered" STORE " " TO select @ 15,0 SAY "Strike any key to continue..."; GET select READ NOUPDATE @ 14,0 SAY clearline @ 15,0 SAY clearline ENDIF ENDIF RETURN * EOF: VI-POSN.CMD  * Program..: VI-SOME.CMD * Author...: Lyle Burks * Date.....: June 7, 1985 * Notice...: Copyright 1985, All Rights Reserved * IF * @ 1,55 SAY "DELETED" ELSE @ 1,55 SAY " " ENDIF @ 4,11 GET Tape @ 5,11 SAY Title @ 6,11 GET Hrs @ 7,11 GET Min @ 8,11 GET Indexstrt @ 9,11 GET Indexend @ 10,11 GET Timeleft RETURN * EOF: VI-SOME.CMD 3TAPENTITLECHRSCMINCINDEXSTRTCINDEXENDCTIMELEFTC! *  82TROLL 1 22 1/30 82King Solomon's Mines 1 39 83To Live and Die in LA 1 59 2/31 84House 1 33 1/23 80Cat's Eye 1 48 81Time Machine ? ? 84Something Wicked This Way Come1 34 85White Nights 2 16 2/14 * 0   0 .....: 06/07/85 * Notice...: Copyright 1985, All Rights Reserved * IF * @ 1,55 SAY "DELETED" ELSE @ 1,55 SAY " " ENDIF @ 4,11 GET Tape @ 5,11 GET Title @ 6,11 GET Hrs @ 7,11 GET Min @ 8,11 GET Indexstrt @ 9,11 GET Indexend @ 10,11 GET Timeleft RETURN * EOF: VI-GETS.CMD *  82TROLL 1 22 1/30 82King Solomon's Mines 1 39 83To Live and Die in LA 1 59 2/31 84House 1 33 1/23 80Cat's Eye 1 48 81Time Machine ? ? 84Something Wicked This Way Come1 34 85White Nights 2 16 2/14 * 0 3TAPEN|TITLEC|HRSC$|MINC&|INDEXSTRTC(|INDEXENDC,|TIMELEFTC0| ss to exit" STORE "X" TO addchoice DO WHILE addchoice <> " " APPEND BLANK DO VI-gets READ * ---TITLE cannot be blank. STORE TRIM( TITLE ) TO addchoice ENDDO DELETE USE SELECT PRIMARY APPEND FROM VIDEOLOG.add USE CASE selectnum= 3 * DO edit USE VIDEOLOG INDEX VIDTITLE ERASE @ 1, 0 SAY "E D I T V I D E O L O G" @ 1,72 SAY DATE() DO VI-fr "TITLELASTNAMBBBBBBBBBBBBBBBBBBBBBBBBB 2Annie 3Dumbo Heaven Can Wait SLove of the Wilderness 'Nine to Five Shipwreck Star Wars Swiss Family Robinson The Clash of th v ^Abbott-Costello Meet FrankenstMAbsence of Malice AAcross the Great Divide -Adven. of Wilderness Family II6Adventures of Ikabod Crane BAdventures of Wilderness FamlyAirplane dAlice in Wonderland Alien =Amityville Horror 2Annie Close Encounters of 3rd Kind JDeathtrap 3Dumbo  0Sinbad Eye of the Tiger RSix Pack LSomewhere in Time XSpace Movie pSplash Star Trek - The Motion PictureNStar Trek II,Wrath of Khan BII,Star Trek III Search for SpockStar Wars DStartrek the Motion Picture B2@Super Fuzz /Superman II (Beta II) KSuperman III Superman the Motion Picture Swiss Family Robinson 2Annie 3Dumbo Heaven Can Wait SLove of the Wilderness 'Nine to Five Shipwreck Star Wars Swiss Family Robinson The Clash of the Titans 8The Miracle of Life (Beta II) The Wizard of OZ The 3 Worlds of Gulliver The Black Hole The Man from Snowy River The War of the Worlds  _High Road to China Hopscotch mInvasion of the Body SnatcherssKarate Kid Kramer VS Kramer jKrull Lee Ann's Wedding (9-18-82) 1Lord of the Rings ;Love Bug SLove of the Wilderness HMissing [Never Ending Story hNever Say Never INight Crossing 'Nine to Five PThe Day the Earth Stood Still 5The Devil and Max Devlin The Electric Horseman #The Enforcer OThe Ewok Adventure &The Final Countdown The Incredible Shrinking WomanThe Jazz Singer rThe Last Starfighter >The Man Who Saw Tommorrow The Man from Snowy River 8The Miracle of Life (Beta II) Victor Victoria Victory <Winnie the Pooh  nEmpire Strikes Back (Beta II) Empire Strikes Back Spec EffxsFlash Gordon UFollow Me Boys For Your Eyes Only ]Ghandi bGoldfinger qGorky Park *Gullivers Travels Hanger 18 !Hansel & Gretel ?Heartbeeps Heaven Can Wait !Hansel & Gretel Heaven Can Wait %The Muppet Movie tThe Natural uThe Philadelphia Experiment EThe Private Eyes YThe Secret of Nimh FThe Thief of Baghdad The War of the Worlds The Wizard of OZ oThree Lives of Thomasina )Time Bandits eTootsie Victor Victoria Victory fWar Games <Winnie the Pooh  $TRON +Tale of the Frog Prince lTank "Taps The 3 Worlds of Gulliver The Black Hole VThe Blob The Cat from Outer Space The Clash of the Titans +Tale of the Frog Prince "Taps The 3 Worlds of Gulliver The Black Hole The Cat from Outer Space The Clash of the Titans Outland .People That Time Forgot Pete's Dragon 7Poltergeist (Beta II) QPolyanna aRaiders of the Lost Ark BII (Rapunzal kRomancing the Stone GRumpelstiltskin gSavannah Smiles TShaggy Dog Shipwreck (Rapunzal GRumpelstiltskin Shipwreck  4Bedknobs and Broomsticks WBlue Thunder Candleshoe 9Chariotts of Fire :China Syndrome \Cloak and Daggar Close Encounters of 3rd Kind cDark Crystal JDeathtrap `Diamonds are Forever 3Dumbo :China Syndrome Close Encounters of 3rd Kind JDeathtrap 3Dumbo CStar Wars (Beta II) DStartrek the Motion Picture B2ZSummer Magic @Super Fuzz /Superman II (Beta II) KSuperman III Superman the Motion Picture Swiss Family Robinson CStar Wars (Beta II) DStartrek the Motion Picture B2@Super Fuzz /Superman II (Beta II) KSuperman III Superman the Motion Picture Swiss Family Robinson iMaking of Raiders of Lost Ark Mary Poppins HMissing [Never Ending Story hNever Say Never INight Crossing 'Nine to Five SLove of the Wilderness iMaking of Raiders of Lost Ark Mary Poppins HMissing [Never Ending Story hNever Say Never INight Crossing 'Nine to Five oThree Lives of Thomasina )Time Bandits eTootsie Victor Victoria Victory fWar Games <Winnie the Pooh The Wizard of OZ oThree Lives of Thomasina )Time Bandits eTootsie Victor Victoria Victory fWar Games <Winnie the Pooh 3TAPENsTITLECsHRSCsMINCsINDEXSTRTCsINDEXENDCtTIMELEFTCt  2Mary Poppins 2 190 763 0/30 * 2Shipwreck 1 41763 1149 * 3The War of the Worlds 1 22931 12253/08 * 4Candleshoe 1 410 590 0/33 * 4The Man from Snowy River 1 46590 1012 * 4Lee Ann's Wedding (9-18-82) 0 3110671173 * 6Close Encounters of 3rd Kind 2 190 764 0/25 * 6Outland 1 47764 1173 * 7The Black Hole 1 350 564 0/4 * 7The 3 Worlds of Gulliver 1 33564 960 * 7Hanger 18 1 15960 1260 * 8The Cat from Outer Space 1 430 606 0 * 33Star Trek-Motion Picture BII 2 10 1/15 * 33Empire Strikes Back Spec Effxs0 45 * 9The Incredible Shrinking Woman1 290 532 1/4 * 9The Clash of the Titans 1 57532 1026 * 10Kramer VS Kramer 2 0 0 603 0/48 * 10Heaven Can Wait 1 42603 1015 * 11Alien 1 560 1/07 * 11Airplane 1 27 * 12Victory 1 550 674 0/26 * 12For Your Eyes Only 2 9 675 1169 * 13Hopscotch 1 450 612 0/55 * 13Flash Gordon 1 50612 1059 * 14The Jazz Singer 1 5650 660 1/00 * 14The Wizard of OZ 1 38660 1055 * 15The Electric Horseman 1 520 677 0/23 * 15Victor Victoria 2 15677 1196 * 17TRON 1 360 782 * 17The Muppet Movie 782 1140  * 18The Final Countdown 1 360 560 0/5 * 18Nine to Five 1 49560 1014 * 18Rapunzal 1 0 1014 * 19Time Bandits 1 550 660 0/20 * 19Gullivers Travels 1 20660 988 * 19Tale of the Frog Prince 0 55988 * 20Star Trek III Search for Spock 0 * 21Adven. of Wilderness Family II1 450 613 * 21People That Time Forgot 613 992 * 22Superman II (Beta II) 2 8 0 971 1/18 * 23Sinbad Eye of the Tiger 1 520 891 * 23Lord of the Rings 891 * 24Annie 2 8 0 704 0/28 * 24Dumbo 1 4 704 965 * 25Bedknobs and Broomsticks 1 540 635 0/10 * 25The Devil and Max Devlin 1 37635 1021 * 25Adventures of Ikabod Crane 0 4010211149 * 26Poltergeist (Beta II) 1 550 903 0 * 26The Miracle of Life (Beta II) 1 9 903 1191 * 27Chariotts of Fire 2 4 0 697 0/24 * 27China Syndrome 2 2 697 1160 * 28Love Bug 1 470 615 0/91 * 28Winnie the Pooh 1 14615 918 * 29Amityville Horror 1 470 653 * 29The Man Who Saw Tommorrow 1 27653 1007 * 31Across the Great Divide 1 400 595 1/10 * 31Adventures of Wilderness Famly1 40595 1004 * 32Star Wars (Beta II) 1 590 10930 * 34The Private Eyes 1 300 549 0/18 * 35Missing 2 2 0 691 0/41 * 35Night Crossing 1 47691 * 36Deathtrap 1 560 662 0/30 * 36Superman III 2 5 693 1175 * 37Somewhere in Time 1 430 605 0/51 * 37Absence of Malice 1 56605 1075 * 38Star Trek II,Wrath of Khan BII1 530 886 0 * 38The Ewok Adventure 1 45886 end * 39The Day the Earth Stood Still 1 320 550 0/44 * 39Polyanna 2 14550 1075 * 40Six Pack 1 370 624 1/21 * 40Love of the Wilderness 1 32624 * 41Shaggy Dog 1 440 600 0/38 * 41Follow Me Boys 2 8 600 1083 * 42The Blob 1 230 503 0 * 42Blue Thunder 1 49503 973 * 42Space Movie 1 18973 1248 * 43The Secret of Nimh 1 230 522 1/19 * 43Summer Magic 1 480 522 * 44Never Ending Story 1 340 560 1/15 * 44Cloak and Daggar 1 41562 991 * 45Ghandi 3 8 0 958 0 * 45Abbott-Costello Meet Frankenst1 23958 1248 * 46High Road to China 1 450 612 0/45 * 46Diamonds are Forever 2 0 612 1098 * 47Raiders of the Lost Ark BII 1 550 0 * 47Goldfinger 1 30906 1250 * 48Dark Crystal 2 0 0 624 1/15 * 48Alice in Wonderland 1 15625 939 * 49Tootsie 1 550 662 0/43 * 49War Games 1 52662 1105 * 50Savannah Smiles 1 450 608 1/15 * 51Never Say Never 2 140 734 1/18 * 51Making of Raiders of Lost Ark 0 58734 961 * 52Krull 2 1 0 680 45 * 53Romancing the Stone 1 460 0/51 * 53Tank 1 53 * 54Invasion of the Body Snatchers1 450 659 1/10 * 55Empire Strikes Back (Beta II) 2 5 0 960 1/20 * 56Three Lives of Thomasina 1 400 586 0/53 * 56Splash 1 57586 1049 * 57Gorky Park 2 7 0/27 * 58The Last Starfighter 1 410 596 43 * 58Karate Kid 2 6 596 1111 * 59The Natural 2 170 0/30 * 59The Philadelphia Experiment 1 42 * 60Robin Hood 1 240 509 1/26 * 61Pete's Dragon 2 8 0 723 1/12 * 52Beat Street 1 46666 1088 * 63The Sword and the Stone 1 200 483 0 * 64Starman 1 570 658 30 * 64Ladyhawk  2 1 658 1144 * 60Willie Wonka & Choc. Factory 1 40509 ? * 65Amadeus 2 400 ? 0/10 * 62Ghostbusters 1 42907 end 0 * 622010 (Beta II) 1 560 907 * 24Thumbelina 0 50704 * 32Pinochio 1 271093end * 61Pippi Longstocking 1 40723 * 65Brewster's Millions 1 41? * 67Ewoks - Battle for Endor 1 330 1/20 * 68Alice in Wonderland 2 550 0 * 69A View to a Kill 2 110 0/45 * 1Superman the Motion Picture 2 160 750 0/7 * 1Swiss Family Robinson 2 8 750 1215 * 5Explorer's 1 460 1/00 * 34A Christmas Carol 1 400 * 50Mr Mom 1 30 * 68Fletch 1 35 * 54Muppet's Take Manhattan 1 35 * 63D.A.R.Y.L. 1 40 * 57Pale Rider  1 56 * 63Baby-Secret of Lost Legend 1 32483 * 66Breakin II-Electric Bugallo 1 34 3/0 * 72Bill Cosby Routine 1 44 2/45 * 67My Science Project 1 36 * 5Gremlins 1 46 * 70Apple Dumpling Gang 1 45 1/15 * 70Apple Dump. Gang, Rides Again 1 30 * 69Teen Wolf 1 32 * 71Star Wars-Return of Jedi BII 2 11 1/15 * 0Blank Record 0 0 0 0 0 * 30The Ice Pirates 1 34 2/56 * 16Man w/One Red Shoe 1 32 2/58 * 73The Goonies 1 54 1/10 * 74The Lion, Witch, Wardrobe 1 33 0 * 74The Last Unicorn 1 22 * 74The Water Babies 1 25 * 75Witness 1 52 1/02 * 75Protocol 1 36 * 76Cocoon BII 1 57 0 * 76Silver Bullet  1 35 * 77Chorus Line 1 58 0/45 * 77Jagged Edge 1 48 * 78Back to the Future ???? ?? * 79Murphy's Romance 1 47 1/0 * 79Jewell of the Nile 1 46 * 73The Omega Man 1 39 * 80Enemy Mine 1 48 0/54 * 81Where the Red Fern Grow's 1 36 ?? * 82TROLL 1 22 1/30 * 82King Solomon's Mines 1 39 * 83To Live and Die in LA 1 59 2/31 * 84House 1 33 1/23 * 80Cat's Eye 1 48 * 81Time Machine ? ? * 84Something Wicked This Way Come1 34 * 85White Nights 2 16 2/14  68Fletch 1 35 54Muppet's Take Manhattan 1 35 63D.A.R.Y.L. 1 40 57Pale Rider  * Program..: VIDLABEL.CMD * Author...: Your Name * Date.....: 05/27/85 * Notice...: Copyright 1985, All Rights Reserved * Reserved.: select, condition, extra * SET TALK OFF SET BELL OFF STORE " " TO select USE VIDEOLOG ERASE @ 2, 0 SAY "V I D E O L O G M A I L I N G L A B E L S" @ 2,72 SAY DATE() @ 3, 0 SAY "========================================" @ 3,40 SAY "========================================" STORE " " TO select @ 5,0 SAY "Output to the screen or printer? [S/P] "; GET select PICTURE "!" READ DO CASE CASE select = "S" ERASE CASE select = "P" SET CONSOLE OFF SET PRINT ON OTHERWISE ERASE SET BELL ON SET TALK ON RETURN ENDCASE * ---Enter FOR for the labels, such as, * ---STORE "STATE = 'CA'" TO condition STORE " " TO condition DO WHILE .NOT. EOF IF condition <> " " IF .NOT. (&condition) SKIP LOOP ENDIF ENDIF STORE 0 TO extra ? tape ? title  ? hrs+", "+min ? indexstrt+"-"+indexend ? ? DO WHILE extra > 0 ? STORE extra - 1 TO extra ENDDO SKIP ENDDO * SET PRINT OFF SET CONSOLE ON ? ? "THAT'S ALL FOLKS..." CLEAR SET TALK ON SET BELL ON RETURN * EOF: VIDLABEL.CMD condition exists. IF condition <> " " IF .NOT. (&condition) SKIP LOOP ENDIF ENDIF * * ---Print detail line. @ line, 0 SAY $(title,1, 30) @ line, 33 SAY $(STR(tape,3,0)1, 4) T select PICTURE "!" READ DO CASE CASE select = "S" ERASE CASE select = "P" SET CONSOLE OFF SET PRINT ON OTHERWISE ERASE SET BELL ON SET TALK ON RETURN ENDCASE * ---Enter FOR for the labels, such as, * ---STORE "STATE = 'CA'" TO condition STORE " " TO condition DO WHILE .NOT. EOF IF condition <> " " IF .NOT. (&condition) SKIP LOOP ENDIF ENDIF STORE 0 TO extra ? tape ? title  VIDLOG20.DOC Author: Lyle Burks Date: June 8, 1985, Reconstructed: August 30, 1986 Legal: This set of dBase command files may be given, copies, taken, shared, modified, or whatever. You may not sell any part or the whole. All rights are reserved, and are Copyrighted 1985. Purpose: The sole reason for generating this program is to provide an easy method of maintaining a simple log of your video tapes. Requirements: The only requirements for this program is that you own dBase II, and that you can type. The output requires that if you want a hard copy of the sorted listings, that you have a printer. Getting Started: Get dBase II up and running, and at the "." prompt you type .do vi-main. From that point on it is self explanatory. Modifications: If these command (.cmd) files can be streamlined by anyone that is proficient at dBase II, then have at it. Comments: Comments or suggestions may be left on the BAKUP bulletin board at 415-223-2237. Any critical remarks may not be made. Enjoy! Note: This library was originally named VIDEOLOG.LBR. Two members had been damaged and are replaced in this library. To avoid confusion, the library has been renamed to VIDLOG20.LBR. e an easy method of maintaining a simple log of your video tapes. Requirements: The only requirements for this program is that you own dBase II, and that you can type. The output requires that if you want a hard copy of the sorted listings, that you have a printer. Getting Started: Get dBase II up and running, and at the "." prompt you type .do vi-main. From that point on it is self explanatory. Modifications: If these command (.cmd) files can be streamlined by anyone that is proficient at dBase II, then have at it. Comments: Comments or suggestions may  * Program..: VIDTAPE.CMD * Author...: Lyle Burks * Date.....: 05/27/85 * Notice...: Copyright 1985, All Rights Reserved * Reserved.: pagenum, line, pagehdg, col:hdg, condition, * lastrec * SET TALK OFF SET BELL OFF SET MARGIN TO 5 STORE 1 TO pagenum STORE 254 TO line STORE "Videolog Listing by Tape No." TO pagehdg STORE (80-LEN(pagehdg))/2 TO col:hdg * * ---Open the datafile and print the report. USE VIDEOLOG INDEX VIDTAPE ERASE @ 2, 0 SAY pagehdg @ 2,72 SAY DATE() @ 3, 0 SAY "========================================" @ 3,40 SAY "========================================" STORE " " TO select @ 5,0 SAY "Output to the screen or printer? [S/P] "; GET select PICTURE "!" READ DO CASE CASE select = "S" ERASE STORE 22 TO pagelen CASE select = "P" SET FORMAT TO PRINT STORE 60 TO pagelen OTHERWISE ERASE SET BELL ON SET TALK ON RETURN ENDCASE * ---Enter FOR for the report, such as, * ---STORE "STATE = 'CA'" TO condition STORE " " TO condition DO WHILE .NOT. EOF IF line > pagelen IF select = "S" ERASE ELSE EJECT ENDIF @ 0,0 SAY "PAGE NO." @ 0,9 SAY STR(pagenum,3) @ 2,col:hdg SAY pagehdg * * ---Generate column headings. @ 4, 0 SAY "No." @ 4, 6 SAY "Title" @ 4, 39 SAY "Time" @ 4, 47 SAY "Hr" @ 4, 52 SAY "Mn" @ 4, 57 SAY "1st" @ 4, 64 SAY "End" @ 5, 0 SAY "===" @ 5, 6 SAY "==============================" @ 5, 39 SAY "=====" @ 5, 47 SAY "==" @ 5, 52 SAY "==" @ 5, 57 SAY "====" @ 5, 64 SAY "====" STORE pagenum+1 TO pagenum STORE 7 TO line ENDIF * ---Test to see if the condition exists. IF condition <> " " IF .NOT. (&condition) SKIP LOOP ENDIF ENDIF * * ---Print detail line. @ line, 0 SAY $(STR(tape,3,0),1, 3) @ line, 6 SAY $(title,1, 30)  @ line, 39 SAY $(timeleft,1, 5) @ line, 47 SAY $(hrs,1, 2) @ line, 52 SAY $(min,1, 2) @ line, 57 SAY $(indexstrt,1, 4) @ line, 64 SAY $(indexend,1, 4) STORE line+1 TO line SKIP ENDDO @ line+1,0 SAY " " SET FORMAT TO SCREEN RELEASE ALL SET TALK ON SET BELL ON RETURN * EOF: VIDTAPE.CMD  STORE 60 TO pagelen OTHERWISE ERASE SET BELL ON SET TALK ON RETURN ENDCASE * ---Enter FOR for the report, such as, * ---STORE @ 5, 6 SAY "==============================" @ 5, 39 SAY "=====" @ 5, 47 SAY "==" @ 5, 52 SAY "==" @ 5, 57 SAY "====" @ 5, 64 SAY "====" STORE pagenum+1 TO pagenum STORE 7 TO line ENDIF * ---Test to see if the condition exists. IF condition <> " " IF .NOT. (&condition) SKIP LOOP ENDIF ENDIF * * ---Print detail line. @ line, 0 SAY $(STR(tape,3,0),1, 3) @ line, 6 SAY $(title,1, 30)   2TAPE 6,0 SAY clearline @ 7,0 SAY clearline @ 8,0 SAY clearline @ 9,0 SAY clearline=AU{|S:]`AUAUAU{*`-;2;IU"`TR> *`+|QU!T/*2ͩ)(>% @ʹ<\_\_>A/0AY clearline @ 15,0 SAY clearline @ 16,0 SAY clearline @ 17,0 SAY clearline @ 18,0 SAY clearline @ 19,0 SAY clearline @ 20,0 SAY clearline @ 21,0 SAY clearline @ 22,0 SAY clearline @ 20, 0 SAY "----------------------------------------" @ 20,40 SAY "AY clearline @ 15,0 SAY clearline @ 16,0 SAY clearline @ 17,0 SAY clearline @ 18,0 SAY clearline @ 19,0 SAY clearline @ 20,0 SAY clearline @ 21,0 SAY clearline @ 22,0 SAY clearline @ 20, 0 SAY "----------------------------------------" @ 20,40 SAY "----------------------------------------" STORE 4 TO row DO WHILE .NOT. EOF .AND. row-3 <= 15 STORE T TO is:some @ row,0 SAY &string STORE row + 1 TO row CONTINUE ENDDO * ---A AAAA A!A"A#A$A%A &A!'A!(A")A#*A#+A$,A$tA$-A%.A%/A%0A&1A&2A'3A'4A(5A(6A)9A1:A2 A3A3;A4<A5=A5>A6?A6@A7AA7BA8CA8DA9EA9FA@GA@HAAIAAJABKABLABMACA6A)NACeAWApA#A$A%A &A!'A!(A")A#*A#+A$,A$-A%.A%/A%0A&1A&2A'3A' A3A3AAAA A!A"A#A$A%A &A!'A!(A")A#*A#+A$,A$-A%.A%/A%0A&1A&2A'3A' A3A37A)A08A19A1:A2uA2 A3A3;A4~A4<A5=A5>A6?A6@A7AA7BA8CA8DA9EA9FA@GA@HAAIAAJABKABLABMACNACRAESAFTAFUAGVAGWAHXAHYAIZAI[AP\AQ]AQ^AR_AS`ASaATbAUcAVdAVeAWfAXgAXOADPADQAERAESAFTAFUAGVAGWAHXAHYAIZAI[APAP\AQ]AQ^ARlAR_AS`ASaATATbAUcAVdAVeAWAWfAXgAXhAYiAYjA`pA`kAavAarAbsAbmAcAcAcnAdoAdqAewAeAfxAgAgyAhAhzAiArAWfAXgAXhAYiAYjA`pA`kAavAarAbsAbmAcAcAcnAdoAdqAewAeAfxAgAgyAhAhzAiAiApApAqArAsAsAtAtAtAuAuAvAvAwAwAxAyAyAAAAAAAAApAqArAsAsAtAtAtAuAuAvAvAwAwAxAyAyAAAAAAAAAAAqArAsAsAtAtAtAuAuAvAvAwAwAxAyAyAAAAAAAA * Program..: VIDTITLE.CMD * Author...: Your Name * Date.....: 05/27/85 * Notice...: Copyright 1985, All Rights Reserved * Reserved.: pagenum, line, pagehdg, col:hdg, condition, * lastrec * SET TALK OFF SET BELL OFF SET MARGIN TO 5 STORE 1 TO pagenum STORE 254 TO line STORE "Videolog Listing by Title" TO pagehdg STORE (80-LEN(pagehdg))/2 TO col:hdg * * ---Open the datafile and print the report. USE VIDEOLOG INDEX VIDTITLE ERASE @ 2, 0 SAY pagehdg @ 2,72 SAY DATE() @ 3, 0 SAY "========================================" @ 3,40 SAY "========================================" STORE " " TO select @ 5,0 SAY "Output to the screen or printer? [S/P] "; GET select PICTURE "!" READ DO CASE CASE select = "S" ERASE STORE 22 TO pagelen CASE select = "P" SET FORMAT TO PRINT STORE 60 TO pagelen OTHERWISE ERASE SET BELL ON SET TALK ON RETURN ENDCASE * ---Enter FOR for the report, such as, * ---STORE "S!TATE = 'CA'" TO condition STORE " " TO condition DO WHILE .NOT. EOF IF line > pagelen IF select = "S" ERASE ELSE EJECT ENDIF @ 0,0 SAY "PAGE NO." @ 0,9 SAY STR(pagenum,3) @ 2,col:hdg SAY pagehdg * * ---Generate column headings. @ 4, 0 SAY "Title" @ 4, 33 SAY "Tape" @ 4, 40 SAY "Hr" @ 4, 45 SAY "Mn" @ 4, 50 SAY "Star" @ 4, 57 SAY "End" @ 4, 64 SAY "Time" @ 5, 0 SAY "==============================" @ 5, 33 SAY "====" @ 5, 40 SAY "==" @ 5, 45 SAY "==" @ 5, 50 SAY "====" @ 5, 57 SAY "====" @ 5, 64 SAY "=====" STORE pagenum+1 TO pagenum STORE 7 TO line ENDIF * ---Test to see if the condition exists. IF condition <> " " IF .NOT. (&condition) SKIP LOOP ENDIF ENDIF * * ---Print detail line. @ line, 0 SAY $(title,1, 30) @ line, 33 SAY $(STR(tape,3,0),1, 3)  @ line, 40 SAY $(hrs,1, 2) @ line, 45 SAY $(min,1, 2) @ line, 50 SAY $(indexstrt,1, 4) @ line, 57 SAY $(indexend,1, 4) @ line, 64 SAY $(timeleft,1, 5) STORE line+1 TO line SKIP ENDDO @ line+1,0 SAY " " SET FORMAT TO SCREEN RELEASE ALL SET TALK ON SET BELL ON RETURN * EOF: VIDTITLE.CMD  STORE 60 TO pagelen OTHERWISE ERASE SET BELL ON SET TALK ON RETURN ENDCASE * ---Enter FOR for the report, such as, * ---STORE "S==========================" @ 5, 33 SAY "====" @ 5, 40 SAY "==" @ 5, 45 SAY "==" @ 5, 50 SAY "====" @ 5, 57 SAY "====" @ 5, 64 SAY "=====" STORE pagenum+1 TO pagenum STORE 7 TO line ENDIF * ---Test to see if the condition exists. IF condition <> " " IF .NOT. (&condition) SKIP LOOP ENDIF ENDIF * * ---Print detail line. @ line, 0 SAY $(title,1, 30) @ line, 33 SAY $(STR(tape,3,0),1, 3)  "TITLE 6,0 SAY clearline @ 7,0 SAY clearline @ 8,0 SAY clearline @ 9,0 SAY clearline=AU{|S:]`AUAUAU{*`-;2;IU"`TR> *`+|QU!T/*2ͩ)(>% @ʹ<\_\_>A/0 SAY clearline @ 15,0 SAY clearline @ 16,0 SAY clearline @ 17,0 SAY clearline @ 18,0 SAY clearline @ 19,0 SAY clearline @ 20,0 SAY clearline @ 21,0 SAY clearline @ 22,0 SAY clearline @ 20, 0 SAY "----------------------------------------" @ 20,40 SAY "AY clearline @ 15,0 SAY clearline @ 16,0 SAY clearline @ 17,0 SAY clearline @ 18,0 SAY clearline @ 19,0 SAY clearline @ 20,0 SAY clearline @ 21,0 SAY clearline @ 22,0 SAY clearline @ 20, 0 SAY "----------------------------------------" @ 20,40 SAY "----------------------------------------" STORE 4 TO row DO WHILE .NOT. EOF .AND. row-3 <= 15 STORE T TO is:some @ row,0 SAY &string STORE row + 1 TO row CONTINUE ENDDO * ---A  Silver Bullet )Sinbad Eye of the Tiger FSix Pack Something Wicked This Way Come@Somewhere in Time LSpace Movie dSplash BStar Trek II,Wrath of Khan BII%Star Trek III Search for Spock Star Trek-Motion Picture BII :Star Wars (Beta II) TRON $Tale of the Frog Prince `Tank The 3 Worlds of Gulliver XAlice in Wonderland lBeat Street 2Chariotts of Fire Empire Strikes Back Spec Effxs Hanger 18 oLadyhawk <Missing Outland EPolyanna Shipwreck :Star Wars (Beta II) The 3 Worlds of Gulliver The Incredible Shrinking WomanThe Muppet Movie The War of the Worlds  Heaven Can Wait SHigh Road to China Hopscotch House aInvasion of the Body SnatchersJagged Edge Jewell of the Nile gKarate Kid King Solomon's Mines Kramer VS Kramer ^Krull oLadyhawk ]Making of Raiders of Lost Ark Mary Poppins <Missing The Jazz Singer fThe Last Starfighter The Last Unicorn The Lion, Witch, Wardrobe 7The Man Who Saw Tommorrow The Man from Snowy River 1The Miracle of Life (Beta II) The Muppet Movie hThe Natural The Omega Man iThe Philadelphia Experiment ;The Private Eyes MThe Secret of Nimh mThe Sword and the Stone The War of the Worlds " 3China Syndrome Chorus Line PCloak and Daggar Close Encounters of 3rd Kind Cocoon BII D.A.R.Y.L. WDark Crystal >Deathtrap TDiamonds are Forever ,Dumbo bEmpire Strikes Back (Beta II) Empire Strikes Back Spec EffxsVGoldfinger #Gullivers Travels Hanger 18 The Black Hole JThe Blob The Cat from Outer Space The Clash of the Titans DThe Day the Earth Stood Still .The Devil and Max Devlin The Electric Horseman CThe Ewok Adventure The Final Countdown The Goonies The Ice Pirates The Incredible Shrinking WomanThe Electric Horseman The Final Countdown The Incredible Shrinking Woman Mr Mom Muppet's Take Manhattan Murphy's Romance My Science Project ONever Ending Story \Never Say Never =Night Crossing Nine to Five Outland 'People That Time Forgot kPete's Dragon uPinochio vPippi Longstocking 0Poltergeist (Beta II) EPolyanna Enemy Mine xEwoks - Battle for Endor }Explorer's Flash Gordon Fletch IFollow Me Boys For Your Eyes Only QGhandi rGhostbusters VGoldfinger eGorky Park Gremlins #Gullivers Travels Hanger 18 Hanger 18  yAlice in Wonderland Alien qAmadeus 6Amityville Horror +Annie Apple Dump. Gang, Rides Again Apple Dumpling Gang Baby-Secret of Lost Legend Back to the Future lBeat Street KBlue Thunder Breakin II-Electric Bugallo wBrewster's Millions Candleshoe 2Chariotts of Fire The Water Babies The Wizard of OZ cThree Lives of Thomasina tThumbelina "Time Bandits Time Machine To Live and Die in LA YTootsie Victor Victoria Victory ZWar Games Where the Red Fern Grow's pWillie Wonka & Choc. Factory 5Winnie the Pooh Witness  Star Wars-Return of Jedi BII nStarman NSummer Magic (Superman II (Beta II) ?Superman III {Superman the Motion Picture |Swiss Family Robinson TROLL TRON $Tale of the Frog Prince `Tank Teen Wolf The 3 Worlds of Gulliver `Tank The 3 Worlds of Gulliver Protocol URaiders of the Lost Ark BII !Rapunzal jRobin Hood _Romancing the Stone [Savannah Smiles HShaggy Dog Shipwreck URaiders of the Lost Ark BII !Rapunzal jRobin Hood _Romancing the Stone [Savannah Smiles HShaggy Dog Shipwreck Lee Ann's Wedding (9-18-82) *Lord of the Rings 4Love Bug GLove of the Wilderness ]Making of Raiders of Lost Ark Man w/One Red Shoe Mary Poppins <Missing Lee Ann's Wedding (9-18-82) *Lord of the Rings 4Love Bug GLove of the Wilderness ]Making of Raiders of Lost Ark Mary Poppins <Missing Pale Rider 'People That Time Forgot kPete's Dragon uPinochio vPippi Longstocking 0Poltergeist (Beta II) EPolyanna Outland Pale Rider 'People That Time Forgot kPete's Dragon uPinochio vPippi Longstocking 0Poltergeist (Beta II) EPolyanna # -Bedknobs and Broomsticks Bill Cosby Routine Blank Record KBlue Thunder Breakin II-Electric Bugallo wBrewster's Millions Candleshoe Cat's Eye 2Chariotts of Fire Bill Cosby Routine KBlue Thunder Breakin II-Electric Bugallo wBrewster's Millions Candleshoe 2Chariotts of Fire hThe Natural The Omega Man iThe Philadelphia Experiment ;The Private Eyes MThe Secret of Nimh mThe Sword and the Stone The War of the Worlds The Muppet Movie hThe Natural The Omega Man iThe Philadelphia Experiment ;The Private Eyes MThe Secret of Nimh mThe Sword and the Stone The War of the Worlds EPolyanna Shipwreck :Star Wars (Beta II) The 3 Worlds of Gulliver The Incredible Shrinking WomanThe Muppet Movie The War of the Worlds YTootsie 5Winnie the Pooh Shipwreck :Star Wars (Beta II) The 3 Worlds of Gulliver The Incredible Shrinking WomanThe Muppet Movie The War of the Worlds Outland Shipwreck :Star Wars (Beta II) The 3 Worlds of Gulliver The Incredible Shrinking WomanThe Muppet Movie The War of the Worlds Outland EPolyanna Shipwreck :Star Wars (Beta II) The 3 Worlds of Gulliver The Incredible Shrinking WomanThe Muppet Movie The War of the Worlds Victor Victoria Victory ZWar Games Where the Red Fern Grow's White Nights pWillie Wonka & Choc. Factory 5Winnie the Pooh Witness Victor Victoria Victory ZWar Games Where the Red Fern Grow's pWillie Wonka & Choc. Factory 5Winnie the Pooh Witness Outland Shipwreck :Star Wars (Beta II) The 3 Worlds of Gulliver The Incredible Shrinking WomanThe Muppet Movie The War of the Worlds Outland EPolyanna Shipwreck :Star Wars (Beta II) The 3 Worlds of Gulliver The Incredible Shrinking WomanThe Muppet Movie The War of the Worlds  This is the release date of the disk. CLAS6 FON {4FLETTERS u[*CFONT EXE \)$fCONVPRF EXE `$fDELFONTSHP Pn $DOWNLOADEXE %t^'BDSKSPACEEXE h,l%EFONT EXE \,JFANCFONTPRO tou(FFCONFIGEXE ]e@ as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. dBASE II programs. Filename Description -04-00 .87 This is the release date of the disk. -CPM175 .DOC Thi$s is the description of the disk contents. DBSHOP30.DOC F8F9 6K ver. 3.0 [dBASE Shopper 1 of 20] Maintains grocery lists, tracks coupons, prints aisle lists for purchases, etc. Two versions (one for most terminals, the other for the Epson QX-10 graphics) are included. dBASE 2.4x is required. ADDITEM .CMD 0FBC 5K ver. 3.0 [dBASE Shopper 2 of 20] ADDSTORE.CMD 2783 2K ver. 3.0 [dBASE Shopper 3 of 20] AISLE1 .NDX 512A 3K ver. 3.0 [dBASE Shopper 4 of 20] CHANGE .CMD 66BA 3K ver. 3.0 [dBASE Shopper 5 of 20] CLEAR .CMD 1B5B 1K ver. 3.0 [dBASE Shopper 6 of 20] GBASE .DBF 7538 7K ver. 3.0 [dBASE Shopper 7 of 20] GETGRO .CMD 5AFE 2K ver. 3.0 [dBASE Shopper 8 of 20] GRAPHICS.EPS C32E 1K ver. 3.0 [dBASE Shopper 9 of 20] GRAPHICS.MEM AD61 1K ver. 3.0 [dBASE Shopper 10 of 20] GROCERY1.DBF C728 7K ver. 3.0 [dBASE Shopper 11 of 20] INSTALL .CMD 44D3 15K ver. 3.0 [dBASE Shopper 12 of 20] ITEM1 .NDX 19B9 5K ver. 3.0 [dBASE Shopper 13 of 20] MAINMENU.CMD C02E 6K ver. 3.0 [dBASE Shopper 14 of 20] MAINMENU.EPS 0DF1 5K ver. 3.0 [dBASE Shopper 15 of 20] PURCHASE.CMD 1CAB 2K ver. 3.0 [dBASE Shopper 16 of 20] REMSTORE.CMD 6A5D 2K ver. 3.0 [dBASE Shopper 17 of 20] REPORT .CMD 0F0E 3K ver. 3.0 [dBASE Shopper 18 of 20] STANDARD.FRM 3792 1K ver. 3.0 [dBASE Shopper 19 of 20] STORES .DBF 6009 1K ver. 3.0 [dBASE Shopper 20 of 20] NEWLEADS.DOC 9A81 1K [Newleads/Prospects 1 of 10] dBASE II (ver 2.4x) program for keeping track of prospects generated by national advertising campaigns. Allows follow up letters to be generated with local sales representatives being notified of correspondence. NEWLEADS.CMD 34A8 2K [Newleads/Prospects 2 of 10] NEWLEADS.DBF 7C28 2K [Newleads/Prospects 3 of 10] PROSPECT.DOC 72BC 3K [Newleads/Prospects 4 of 10] ADDNEW .CMD 82CB 3K [Newleads/Prospects 5 of 10] AGENTS .DBF 37A3 1K [Newleads/Prospects 6 of 10] INITIALS.NDX 9957 1K [Newleads/Prospects 7 of 10] LAST .NDX DED2 1K [Newleads/Prospects 8 of 10] LETTER .ZIP BC10 2K [Newleads/Prospects 9 of 10] MODIFY .CMD 63F8 2K [Newleads/Prospects 10 of 10] VI-MAIN .CMD C709 4K [Video Library 1 of 19] dBASE II video tape library organizer program. Prints labels and lists by title, subject, etc. VI-EDIT .CMD 370E 2K [Video Library 2 of 19] VI-FRAME.CMD 9958 1K [Video Library 3 of 19] VI-GETS .CMD BCC5 1K [Video Library 4 of 19] VI-LIST .CMD 4692 2K [Video Library 5 of 19] VI-LOCAT.CMD E563 5K [Video Library 6 of 19] VI-PACK .CMD 99DB 2K [Video Library 7 of 19] VI-POSN .CMD 5D3A 2K [Video Library 8 of 19] VI-SOME .CMD 923B 1K [Video Library 9 of 19] VIDEOLOG.ADD DDD4 2K [Video Library 10 of 19] VIDEOLOG.DBF 8F22 1K [Video Library 11 of 19] VIDEOLOG.NDX 952E 7K [Video Library 12 of 19] VIDEOLOG.OLD E316 9K [Video Library 13 of 19] VIDLABEL.CMD 1119 2K [Video Library 14 of 19] VIDLOG20.DOC 7C9F 2K [Video Library 15 of 19] VIDTAPE .CMD 169B 3K [Video Library 16 of 19] VIDTAPE .NDX EA66 4K [Video Library 17 of 19] VIDTITLE.CMD E1FD 3K [Video Library 18 of 19] VIDTITLE.NDX 44FB 11K [Video Library 19 of 19]  [Newleads/Prospects 7 of 10] LAST .NDX DED2 1K [Newleads/Prospects 8 of 10] LETTER .ZIP BC10 2K [Newleads/Prospects 9 of 10] MODIFY .CMD 63F8 2K [Newleads/Prospects 10 of 10] VI-MAIN .CMD C709 4K [Video Library 1 of 19] dBASE II video tape library or%&'