IMD 1.16: 29/05/2007 19:07:02 FOGCPM.091 --FOGCPM091ARTICLESDOCARTICLESDBF ARTICLESDBF(-07-00 86 ARTICLESTXT !"#$%&'()*ARTICLESTXT+,--CPM091 DOC&DB-CHECKDOC ./ARCHIVE CMD012ARHELP CMD 34BACKUP CMD567BAL CMD8BUSINESSDBF9BUSINESSNDX:CANCEL CMD ;<CATA CMD/=>?@ABCHECKNO FRMCCHREPORTFRMDDCANCEL CMD EFDEPO FRMGDEPOSIT CMD HIHELP CMDJIND CMDKINDBUSNONDXLINDPERNONDXMMENU CMD+NOPQRSOSSIGN CMDTUVPERSONALDBFWPERSONALNDXXPROMPTS MEMYPURGE CMD/Z[\]^_REGSIGN CMD `aREPORT CMD)bcdefgRESTORE CMD,hijklmSETUP CMD%nopqrYEAR CMD stFBSTRT uvwFB0 DOC xyFB1 CMD z{FB2 CMD |}FB3 CMD~FB4 CMD FB5 CMDFB6 CMDFB7 CMDFB8 FRMPHONEDEXCMD$PHONEDEXTXT!EDIT CMDENTER CMD$KEY NDXKEYWORD CMDLAST NDXNAMES DBFPRINT CMDThis is the disk name.  ARTICLES.DOC B Ro Forsythe "Articles i compilin o thos article fro th Portabl Companio an Foghor whic though t b o particula interest. Th informatio i sorte accordin t program hav pu 17 article i thi index howeve ther i certainl roo fo expansion. Th informatio i ARTICLE i divide b program catagory volume date an misc information. I include informatio fro THŠ PORTABL COMPANION Aug/Sept 8 t Oct 83 an TH FOGHORN Ma 8 t Sept 83. I compilin th data use dBAS II Th dBAS I versio i labele "ARTICLES.DBF" I yo hav dBAS thi i th preferre version particularl fo addin additiona information Th dBASŠ I version is ARTICLES.DBF. Fo th benefi o thos wh don' ow dBAS II hav include Wordsta version ARTICLES.TX read fo printing Th Wordsta versio i alread sorte b progra an catagory T loa th dBASŠ version inser th dBAS progra dis i driv an boo up Typ i th dat (o return an a th do promp typ SE DEFAULԠ TϠ B A th nex promp typ US ARTICLES You nex comman wil depen o wha functio yo wis t perform I yo ar lookin fo article relatin t specifi progra the you entr ma b somethin like: DISPLA FO PROGRA 'WORDSTAR' I yo wan t mak th databas mor efficient us th conditiona replacemen commands woul sugges renamin PORT COMPANIO t P an FOGHOR t FH Th comman sequenc t accomplis thi i a follows. REPLACŠ SOURCŠ WITȠ 'PC FOҠ SOURCŠ 'PORT COMPANION' REPLACŠ SOURCŠ WIT 'FH FO SOURC 'FOGHORN COP T TEMP MODIF STRUCTURE (modif SOURC fiel siz t 2 APPEN FRO TEMP DELET FIL TEMP Yo ma wis t creat a inde fil t pu th informatio i orde o progra AN catagory T accomplis this type: INDE O PROGRA CATAGOR T PROCAT US ARTICLE INDE PROCAT Wordsta user ca refe t th printou t searc fo specifi data o us Wordstar' ^Q (find command T searc fo article relatin t Supercal you entr woul b ^Q栠 SUPERCAL , Thi woul tak yo t th firs recor whic pertain t Supercalc A th databas堠 i alread sorte b progra an catagory th article followin woul b th remainde o thos applyin t tha field. Som o th heading ma no b specifi enoug fo som users I'v classifie broa rang o item unde CP͠ tha yo ma b mor accurat unde different mor specifi progra heading Th informatio i easil altere t sui you ow tastes. An question o comment pleas writ t me Ro Forsythe P.O Bo 1011 Fairfield Ca 94533. SrPROGRAMC lCATAGORYClSOURCEClVOLUMECmPAGECmMISCC7 m AMCALL TOGGLE ON/OFF PRINTER FOGHORN 5/83 6 COMM-PAC'S MODEM SOFTWARE CBASIC PROGRAMMING TIPS PORT. COMPANION9/83 26 USING W/S FUNCTION KEYS CBASIC VALUE OF CBASIC PORT. COMPANION12/8248 LEARNING THE VALUE OF CBASIC CHARTECH SOFTWARE REVIEW FOGHORN 6/83 13 COMM-PAC MODEM PORT. COMPANION12/8230 AMCALL AND OSBORNE MODEM COMM-PAC CORRECTION TO USER MANUALFOGHORN 8/83 9 CORRECTED INSTRUCTIONS TO ACCESS THE SOURCE COMPU CHEFSOFTWARE REVIEW PORT. COMPANION9/83 68 COMPUTER CHEF PROGRAM CPM BDOS ERROR BAD SECTOR PORT. COMPANION8/82 30 SALVAGING FILES LOST TO BAD SECTOR CPM ASCII CHARACTER CODES PORT. COMPANION8/82 84 ASCII CHARACTER CODE CHARTS CPM GRAPHICS SCREEN DUMP PORT. COMPANION9/83 31 ASSEMBLY LANGUAGE SCREEN DUMP UTILITY CPM BDOS ERROR PORT. COMPANION10/8358 HANDLING BDOS ERRORS CPM SQUEEZED FILES PORT. COMPANION7/83 52 PRINTING SQUEEZED FILES CPM DISK SNOOPING PORT. COMPANION12/8350 ASSEMBLY LANGUAGE UTILITY CPM XDIR FOR DISK DIRECTORY PORT. COMPANION12/8367 W/S COMPATIBLE DISK FILE CPM DISK LABEL PORT. COMPANION12/8268 DATA IDENTIFIER FOR DISK DIR. CPM USING DDT PORT. COMPANION2/83 62 MODIFYING AUTOST CPM DDT & FUNCTION KEYS PORT. COMPANION4/83 61 INSTALLING HEX VALUES INTO FUNCTION KEYS CPM DDT - RECOVER LOST FILES PORT. COMPANION4/83 74 FOR W/S & MBASIC CPM PIP TO MERGE FILES PORT. COMPANION4/83 79 MERGING SEVERAL SHORT FILES INTO 1 FILE CPM XDIR - DIR ON DISK TRACK PORT. COMPANION6/83 8 CPM BREAK KEY PORT. COMPANION6/83 67 ADAPTER INFORMATION CPM SEMICOLON FOR COMMENTS FOGHORN 5/83 6 USEFUL IN SUBMIT FILES CPM MODIFY DUMP.COM FOGHORN 8/83 12 DOWNLOADING TO DATA I/O EPROM PROGRAMMER CPM GUIDE BOOK REVIEW PORT. COMPANION7/83 80 OSBORNE CP/M USER GUIDE DATASTAR PRINTOUT MODIFICATION FOGHORN 5/83 16 DDT TO MODIFY DEFAULT FOR PRINTOUTS DBASE B: DRIVE SETUP PORT. COMPANION10/8250 COMMAND FILE "IT" - B:DISK OPERATION DBASE MODIFY STRUCTURE PORT. COMPANION10/8250 COMMAND FILE "SWITCH" - MODIFY STRUC., RESTORE DATA DBASE MAILING LABELS PORT. COMPANION8/82 62 COMPATIBLE WITH WORDSTAR AND MAILMERGE DBASE SQUARE ROOTS PORT. COMPANION8/83 47 SQUARE ROOT SUBROUTINE DBASE MAILING LABELS PORT. COMPANION8/83 49 DBASE OPENING FILES PORT. COMPANION9/83 59 3 COMMAND FILES FOR FILE OPENING, DEFAULT DRIVE DBASE TRAVEL EXPENSE RECORDS PORT. COMPANION12/8282 DBASICS DBASE EDITING PORT. COMPANION2/83 92 DBASICS - DATE ENTRY PROGRAM DBASE INVENTORY PROGRAM PORT. COMPANION4/83 102DBASICS: 2 COMMAND FILES DBASE FUNCTION KEYS PORT. COMPANION6/83 36 DBASE COMMAND FILE - MAILLIST FOGHORN 5/83 10 MICROSUBSTITUTION, LOOPS DBASE SQUARE ROOTS FOGHORN 5/83 16 SQUARE ROOT PROGRAM DBASE BOOTING WITH B: DEFAULT FOGHORN 6/83 8 MODIFYING COMMAND 'IT' DBASE DDT TO MODIFY AUTOST FOGHORN 6/83 8 MODIFICATION FOR LOADING 'DO IT' DBASE MODIFY COMMAND INFO FOGHORN 9/83 11 ERROR INFO DISK DR. SOFTWARE REVIEW PORT. COMPANION7/83 83 DISK DOCTOR FOR REBUILDING FILES DU-V77 DISK UTILITY INSTRUCTIONSFOGHORN 9/83 14 USING DU-V77 EASYWRITERSOFTWARE REVIEW PORT. COMPANION10/8272 THESAURUS PROGRAM FILER SOFTWARE REVIEW PORT. COMPANION9/83 67 FOR ARCHIVING AND CATALOGING FILES GAMES SOFTWARE REVIEW PORT. COMPANION8/83 85 ACID RAIN,OZZYMAN,CATACOMB,SURVIVOR,VALOR,TRAPPER GAMES SOFTWARE REVIEW PORT. COMPANION8/83 86 SPACE RAIDERS GRAFIXWRTRSOFTWARE REVIEW PORT. COMPANION7/83 82 GRAFIXWRITER. WORKS WITH MBASIC HELIX HD HARDWARE REVIEW PORT. COMPANION7/83 80 HELIX HARD DISK INFO DEDUCT COMPUTER EXPENSES PORT. COMPANION12/8350 INFO TRAVELING TIPS PORT. COMPANION8/83 23 DO'S AND DON'TS OF TRAVELING WITH OSBORNE INFO UPGRADE-PAC PORT. COMPANION4/83 106DESCRIBES W/S 3.4, S/C 1.12, CBASIC 2.38, CPM 4.1 INFO VARIOUS MODEM PROGRAMS FOGHORN 5/83 7 MODEM714,OSMODN,MODEM73,MDM70S,OSBMDM76 INFO KEY FUNCTIONS FOGHORN 6/83 6 SPECIAL FUNCTIONS OF ,.=/?[ AND ARROW KEYS INFO MBASIC VS. DBASE FOGHORN 6/83 10 COMPARISON OF ADVANTAGES INFO SINGLE PURPOSE DISK FOGHORN 7/83 7 MAKING DISKS FOR SPECIFIC TASKS INFO UPS, LINE CONDITIONERS FOGHORN 7/83 10 UNINTERRUPTABLE POWER SUPPLYS (UPS) & LINE CONDITIONERS KAYPRO COMPUTER REVIEW PORT. COMPANION2/83 81 MAILMERGE SORTING NOTES PORT. COMPANION2/83 28 MAILMERGE DOT COMMANDS-FILE MERGE  PORT. COMPANION4/83 82 USING .AV COMMAND MAILMERGE TYPEWRITER USING .AV FOGHORN 5/83 15 TYPE FOR LIMITED KEYBOARD ENTRY WITHOUT WORDSTAR MAILMERGE MAKING MM ASK QUESTIONS FOGHORN 7/83 15 .AV TO BUILD FILE WITH SCREEN PROMPTS MAILMERGE PRINTING SERIES OF FILES PORT. COMPANION10/8272 DOT COMMANDS. ALLOWS DISK SWAPS MBASIC PROTECTED CODE WORDS PORT. COMPANION10/8216 ROUTINE USING INKEY$ MBASIC BELL CONTROL PORT. COMPANION10/8226 PROGRAM TO CONTROL BELL AND DURATION OF BEEP MBASIC DRAWING CARDS PORT. COMPANION8/82 47 PROGRAM FOR DRAWING PLAYING CARDS MBASIC HEXADECIMAL CONVERSION PORT. COMPANION8/83 49 PROGRAM FOR HEXADECIMAL TO DECIMAL CONVERSION MBASIC CORRESPONDENCE PORT. COMPANION8/83 28 ROUTINE FOR SIMPLE LETTERS MBASIC RANDOM NUMBER GENERATOR PORT. COMPANION9/83 36 SEED FOR RANDOM NUMBERS MBASIC LOGARITHMS / ANTILOGS PORT. COMPANION9/83 40 LOGARITHMS AND ANTILOGARITHIMS PROGRAM MBASIC LOAN TABLE PORT. COMPANION10/8335 AMORTABL.BAS SOURCE CODE MBASIC TRS-80 PRINT @ STATEMENT PORT. COMPANION7/83 32 CONVERTING TRS-80'S PRINT @ STATEMENT MBASIC SCREEN DUMP PORT. COMPANION12/8242 SCREEN DUMP FOR EPSON PRINTER MBASIC PROGRAM - REACT PORT. COMPANION2/83 43 A PROGRAM TO TEST REACTION TIME MBASIC SALARY COMPARISON PORT. COMPANION2/83 52 RANDOM ACCESS FILES MBASIC CREATING PRINT STATEMENTSPORT. COMPANION2/83 65 WRINST MBASIC RENUM LINES PORT. COMPANION4/83 15 RENUMBERING SPECIFIC LINES MBASIC SCREEN GRAPHICS  PORT. COMPANION4/83 53 DRAW AND STORE SCREEN GRAPHICS MBASIC GAME - DUCKS PORT. COMPANION4/83 53 MOVING GRAPHICS MBASIC PRINTER SUBROUTINE PORT. COMPANION6/83 22 MBASIC MATHEMATICAL CONVERSIONS PORT. COMPANION6/83 37 MBASIC EQUIVALENTS OF CERTAIN ADV. MATH FUNCTIONS MBASIC PROGRAM - 3D BAR GRAPH PORT. COMPANION6/83 44 CORRESPONDING PRINTER ROUTINE IN 9/83 ISSUE MBASIC SYSTEM DATE FACILITY PORT. COMPANION6/83 48 A DATE PROGRAM - WORKS ON AUTOST MBASIC RANDOMIZE, RANDOM NUMBERSPORT. COMPANION6/83 50 INKEY$ LOOP TO SET RANDOM NUMBERS MBASIC DIRECT CURSOR ADDRESSING PORT. COMPANION6/83 50 MBASIC RANDOM ACCESS PROBLEMS PORT. COMPANION6/83 51 INITIALIZING FOR OPENING UP TO 15 FILES MBASIC FIELD STATEMENT  PORT. COMPANION6/83 51 BUFFER SPACE MBASIC LINEFEED,GARBAGE PROBLEMSPORT. COMPANION6/83 52 DIRECT CURSOR ADDRESSING OR UNDERLINING MBASIC CHR$(9) PORT. COMPANION6/83 53 POKE FOR A LITERAL CHR$(9) MBASIC TRS80'S PRINT @(Y,X) FOGHORN 5/83 5 CURSOR ADDRESSING ROUTINE CONVERSION MBASIC POKE TO PRINTER FOGHORN 5/83 8 MBASIC LINE #'S TO THE PRINTER FOGHORN 5/83 17 DEBUGGING AID MBASIC AUTO PROGRAM EXECUTION FOGHORN 5/83 6 AUTOMATIC PROGRAM EXECUTION FROM COLD START MBASIC RELOCATING LINES FOGHORN 7/83 13 ^A FUNCTION TO DELETE LINE # & RENUMBER MBASIC RANDOM NUMBERS FOGHORN 7/83 18 SUBROUTINE FOR RANDOM NUMBER SEEDING MBASIC GRAPHICS SUBROUTINE FOGHORN 8/83 19 MBASIC PRINTER SUBROUTINE FOGHORN 9/83 22 MBASIC GRAPHICS SCREEN DUMP FOGHORN 9/83 24 FOR EPSON MICRO LINKACCESSING MAINFRAMES PORT. COMPANION12/8243 COMMUNICATING BETWEEN OSBORNE AND MAINFRAMES MODEM ELECTRONIC BULLETIN BOARDPORT. COMPANION12/8237 MODEM7 PROGRAM INSTRUCTIONS PORT. COMPANION8/82 20 MONEYMSTR0SOFTWARE REVIEW PORT. COMPANION8/83 87 MONEY MAESTRO, FINANCE PACKAGE OLIVE80 HARDWARE REVIEW FOGHORN 9/83 18 OSBAUD HARDWARE REVIEW FOGHORN 6/83 11 OSBAUD HARDWARE REVIEW PORT. COMPANION7/83 85 BAUD RATE GENERATOR OSBOARD1 SOFTWARE REVIEW PORT. COMPANION2/83 78 PROGRAMS FOR HIGH RES. GRAPHICS OSMOS 1 HARDWARE REVIEW, REBUTTALFOGHORN 8/83 13 REBUTTAL TO 6/83 REVIEW OSMOS 1 HARDWARE REVIEW FOGHORN 6/83 11 DD UPGRADE OTERM4 SOFTWARE REVIEW FOGHORN 9/83 19 TERMINAL EMULATION PROGRAM PIP ADDING TO A WORDSTAR FILEFOGHORN 5/83 6 USING PIP TO ADD SHORT NOTES TO A TEXT FILE PIP DISK WRITE ERROR FOGHORN 5/83 6 REDUCING A FILE TO ZERO WITHOUT LEAVING PIP POWER SOFTWARE REVIEW FOGHORN 6/83 14 CPM UTILITIES PROGRAM PRINTER DIABLO 630 INSTALL PORT. COMPANION10/8256 CONNECTING THE DIABLE 630 PRINTER PRINTER C.ITOH F10-40 PRINTER PORT. COMPANION12/8213 CONNECTING THE C.ITOH F10-40 PRINTER OLYMPIA ES105 FOGHORN 7/83 6 ENABLE/DISABLE CERTAIN FUNCTIONS PRINTER GEMINI 15 FOGHORN 9/83 6 DIP SWITCH, ROM INFO PRINTER GEMINI 10 FOGHORN 9/83 6 INSTALL INSTRUCTIONS PRINTER OLYMPIA ESW 103 FOGHORN 9/83 23 INSTALLING W/S PRINTER STAR GEMINI 10 FOGHORN 9/83 24 INSTALLING W/S PRINTER CENTRONICS 739 PORT. COMPANION10/8254 INSTALL INSTRUCTIONS PRINTERS TECHNICAL INFO RE:INSTALLPORT. COMPANION4/83 66 PRINTER REQUIREMENTS AND W/S INSTALLATION PRINTERS IEEE DEVICE ADDRESS PORT. COMPANION6/83 37 COMMUNICATING WITH PRINTERS THAT USE DEVICE ADDRESSES PSNL PEARLSOFTWARE REVIEW FOGHORN 8/83 16 SPELL SOFTWARE REVIEW FOGHORN 5/83 12 SUPERCALC INSTALLS CONDENSED PRINT PORT. COMPANION10/8284 CONDENSED PRINT MODE SUPERCALC LINEAR REGRESSION PORT. COMPANION10/8287 WORKSHEET FOR STATISTICAL CALCULATIONS SUPERCALC BORDERLESS PRINTOUTS PORT. COMPANION8/82 30 REMOVING BORDERS FROM REPORT SUPERCALC DEPRECIATION RATE PORT. COMPANION8/82 72 CALCAID: DEPRECIATION RATE SUPERCALC INSULATION COST PORT. COMPANION8/83 75 PROGRAM COST EFFECTIVENESS OF HOME INSULATION SUPERCALC MAILING LABELS PORT. COMPANION10/8354 SUPERCALC THE "IF" FUNCTION PORT. COMPANION10/8362 CALCAID SUPERCALC PERSONAL BUDGET PORT. COMPANION7/83 74 CALCAID: WORKSHEET FOR A PERSONAL BUDGET SUPERCALC CREATING A CALENDAR PORT. COMPANION12/8288 CALCAID SUPERCALC FILE NOT LOADABLE ERROR PORT. COMPANION2/83 22 SUPERCALC SALES REPORT SUMMARY PORT. COMPANION2/83 85 CALCAID - VALUE AND BAR GRAPH SUPERCALC INTEGRATING FILES WITH WSPORT. COMPANION4/83 83 WS REPORTS WITH SUPERCALC SPREADSHEETS SUPERCALC TRANSFER BETWEEN FILES PORT. COMPANION4/83 98 'BROUGHT FORWARD' AND 'ACCUMULATOR' COLUMNS SUPERCALC BOWLING SCOREKEEPER PORT. COMPANION6/83 76 CALCAID SUPERCALC BOOK REVIEW FOGHORN 9/83 21 SUPERCALC: THE BOOK SUPERFILE SOFTWARE REVIEW PORT. COMPANION2/83 80 DBMS TECHNICAL INSIDE OSBORNE 1 PORT. COMPANION8/82 42 TECHNICAL IEEE-488 PORT PORT. COMPANION7/83 36 INTERFACE PROGRAM IN MBASIC TECHNICAL IEEE-488 PORT PORT. COMPANION7/83 42 INTERFACING EXTERNAL DEVICES IE. ATARI JOYSTICK TECHNICAL IEEE-488 PORT PORT. COMPANION12/8244 PARALLEL INTERFACES TECHNICAL PROGRAMMING SERIAL PORT PORT. COMPANION6/83 54 MODIFYING DATA WORD LENGHT, STOP BITS, PARITY SETTING TECHNICAL BDOS/BAD SECTOR INFO FOGHORN 9/83 9 SOME FIXES TECHNICAL INSTALLING A FAN FOGHORN 9/83 12 TECHNICAL MODIFYING SCREEN SIZE FOGHORN 9/83 13 SUBROUTINE USING DDT & SETUP FOR 80,52 COLUMN SCREEN TECHNICAL EPSON PRINT MODES FOGHORN 9/83 23 COND.,ELITE,EMPHA.,DBL SIZE,ITALICS,PROPORTIONAL, ETC TECHNICAL PRINTER TOGGLING FOGHORN 9/83 24 CALL INSTRUCTION TECHNICAL 80 COL. EXTERNAL CRT PORT. COMPANION7/83 85 CONNECTING A REMOTE TERMINAL WITH 80 COL. 12" DISPLAY TOUCHTYP SOFTWARE REVIEW PORT. COMPANION8/83 84 TYPING TUTOR PROGRAM TRANSTR130HARDWARE REVIEW FOGHORN 9/83 16 TRANSTAR 130 DAISYWHEEL PRINTER TRANSTR130HARDWARE REVIEW PORT. COMPANION9/83 83 PRINTER REVIEW TRANSTAR 130 TRANTOR HDHARDWARE REVIEW PORT. COMPANION2/83 78 WORD PLUS SOFTWARE REVIEW FOGHORN 5/83 12 SPELLING CHECKER WORDSTAR MAILING LABELS-3 ACROSS PORT. COMPANION10/8228 WS FILE FOR 3 ACROSS MAILING LABELS WORDSTAR COMFYL PORT. COMPANION8/83 44 KEYBOARD ENTRY FILE WITHOUT EDITING, SAVING WORDSTAR CORRESPONDENCE DISK PORT. COMPANION10/8331 FORMAT FILE FOR CORRESPONDENCE AND ENVELOPE WORDSTAR INSTALL.SUB VS. .COM PORT. COMPANION10/8349 INSTALL.COM VS. INSTALL.SUB WORDSTAR SOFTWARE PRINTER SPOOLER PORT. COMPANION10/8352 SOFTWARE PRINTER SPOOLER (ADV. MODIFICATION) WORDSTAR INSTALL PORT. COMPANION12/8284 CUSTOMIZING WORDSTAR WORDSTAR TERM PAPERS, THESES PORT. COMPANION2/83 34 FUNCTION KEYS AND COMMON WS COMMANDS WORDSTAR PREPRINTED FORMS PORT. COMPANION2/83 37 MAKING A FILL-IN FILE WORDSTAR PRACTICAL EDITING PORT. COMPANION4/83 47 REFINING A MANUSCRIPT WORDSTAR SMOOTH SCROLLING PORT. COMPANION4/83 106MODIFYING W/S (CORRECTED VERSION) WORDSTAR PRINT PROBLEMS PORT. COMPANION6/83 25 COMMON PROBLEMS, DO'S AND DON'TS WORDSTAR SELF PUBLISHING PORT. COMPANION6/83 32 COMPILING A BOOK - CALCULATING TYPING AREA WORDSTAR COLUMNS PORT. COMPANION6/83 37 ^OD TO TURN OFF PRINT CONTROL CHARACTER DISPLAY WORDSTAR PRACTICAL EDITING PORT. COMPANION6/83 58 SORTING AND INTERFILE EDITING TECHNIQUES WORDSTAR INFORMAL OUTLINES PORT. COMPANION6/83 64 AUTOMATIC OUTLINE FORMAT WORDSTAR GRAPHICS PORT. COMPANION6/83 66 REQUIRES PRINTER WITH DOT ADDRESSABLE WIDTH/HEIGHT CNTL WORDSTAR SPELL CHECKERS PORT. COMPANION6/83 71 INS AND OUTS OF SPELLING CHECKERS WORDSTAR LOADING WS AND OTHER TIPSFOGHORN 6/83 7 WORDSTAR TIPS MENU, MARGIN RELEASEFOGHORN 7/83 14 ^KE FOR ONE-LINE MENU, ^OX FOR WORD BREAK ASSISTANCE WORDSTAR ARROW KEY MODIFICATION FOGHORN 8/83 19 DU-V77 WORDSTAR BOOT-UP MODIFICATION FOGHORN 9/83 8 ALTERNATE METHOD TO BOOT-UP ZORBA COMPUTER REVIEW FOGHORN 8/83 14 WORDSTAR BOOT-UP MODIFICATION FOGHORN 9/83 8 ALTERNATE METHOD TO BOOT-UP ZORBA COMPUTER REVIEW FOGHORN 8/83 14 STANCE WORDSTAR ARROW KEY MODIFICATION FOGHORN 8/83 19 DU-V77 WORDSTAR BOOT-UP MODIFICATION FOGHORN 9/83 8 ALTERNATE METHOD TO BOOT-UP ZORBA COMPUTER REVIEW FOGHORN 8/83 14 T. COMPANION10/8352 SOFTWARE PRINTER SPOOLER (ADV. MODIFICATION) WORDSTAR INSTALL PORT. COMPANION12/8284 CUSTOMIZING WORDSTAR WORDSTAR TERM PAPERS, T.HEPROGRAM CATAGORY SOURCE DATE PAGE AMCALL TOGGLE ON/OFF PRINTER FOGHORN 5/83 6 MISC: COMM-PAC'S MODEM SOFTWARE CBASIC PROGRAMMING TIPS PORT. COMPANION 9/83 26 MISC: USING W/S FUNCTION KEYS CBASIC VALUE OF CBASIC PORT. COMPANION 12/82 48 MISC: LEARNING THE VALUE OF CBASIC CHARTECH SOFTWARE REVIEW FOGHORN 6/83 13 COMM-PAC CORRECTION TO USER MANUAL FOGHORN 8/83 9 MISC: CORRECTED INSTRUCTIONS TO ACCESS THE SOURCE COMM-PAC MODEM PORT. COMPANION 12/82 30 MISC: AMCALL AND OSBORNE MODEM COMPU CHEF SOFTWARE REVIEW PORT. COMPANION 9/83 68 MISC: COMPUTER CHEF PROGRAM CPM ASCII CHARACTER CODES PORT. COMPANION 8/82 84 MISC: ASCII CHARACTER CODE CHARTS CPM BDOS ERROR PORT. COMPANION 10/83 58 MISC: HANDLING BDOS ERRORS CPM BDOS ERROR BAD SECTOR  PORT. COMPANION 8/82 30 MISC: SALVAGING FILES LOST TO BAD SECTOR CPM BREAK KEY PORT. COMPANION 6/83 67 MISC: ADAPTER INFORMATION CPM DDT & FUNCTION KEYS PORT. COMPANION 4/83 61 MISC: INSTALLING HEX VALUES INTO FUNCTION KEYS CPM DDT - RECOVER LOST FILES PORT. COMPANION 4/83 74 MISC: FOR W/S & MBASIC CPM DISK LABEL PORT. COMPANION 12/82 68 MISC: DATA IDENTIFIER FOR DISK DIR. CPM DISK SNOOPING PORT. COMPANION 12/83 50 MISC: ASSEMBLY LANGUAGE UTILITY CPM GRAPHICS SCREEN DUMP PORT. COMPANION 9/83 31 MISC: ASSEMBLY LANGUAGE SCREEN DUMP UTILITY CPM MODIFY DUMP.COM FOGHORN 8/83 12 MISC: DOWNLOADING TO DATA I/O EPROM PROGRAMMER CPM PIP TO MERGE FILES PORT. COMPANION 4/83 79 MISC: MERGING SEVERAL SHORT FILES INTO 1 FILE CPM SEMICOLON FOR COMMENTS FOGHORN 5/83 6 MISC: USEFUL IN SUBMIT FILES CPM SQUEEZED FILES PORT. COMPANION 7/83 52 MISC: PRINTING SQUEEZED FILES CPM USING DDT PORT. COMPANION 2/83 62 MISC: MODIFYING AUTOST CPM XDIR - DIR ON DISK TRACK PORT. COMPANION 6/83 8 CPM XDIR FOR DISK DIRECTORY PORT. COMPANION 12/83 67 MISC: W/S COMPATIBLE DISK FILE CPM GUIDE BOOK REVIEW PORT. COMPANION 7/83 80 MISC: OSBORNE CP/M USER GUIDE DATASTAR PRINTOUT MODIFICATION FOGHORN 5/83 16 MISC: DDT TO MODIFY DEFAULT FOR PRINTOUTS DBASE B: DRIVE SETUP PORT. COMPANION 10/82 50 MISC: COMMAND FILE "IT" - B:DISK OPERATION DBASE BOOTING WITH B: DEFAULT FOGHORN 6/83 8 MISC: MODIFYING COMMAND 'IT' DBASE COMMAND FILE - MAILLIST FOGHORN 5/83 10 MISC: MICROSUBSTITUTION, LOOPS DBASE DDT TO MODIFY AUTOST FOGHORN 6/83 8 MISC: MODIFICATION  FOR LOADING 'DO IT' DBASE EDITING PORT. COMPANION 2/83 92 MISC: DBASICS - DATE ENTRY PROGRAM DBASE FUNCTION KEYS PORT. COMPANION 6/83 36 DBASE INVENTORY PROGRAM PORT. COMPANION 4/83 102 MISC: DBASICS: 2 COMMAND FILES DBASE MAILING LABELS PORT. COMPANION 8/82 62 MISC: COMPATIBLE WITH WORDSTAR AND MAILMERGE DBASE MAILING LABELS PORT. COMPANION 8/83 49 DBASE MODIFY COMMAND INFO FOGHORN 9/83 11 MISC: ERROR INFO DBASE MODIFY STRUCTURE PORT. COMPANION 10/82 50 MISC: COMMAND FILE "SWITCH" - MODIFY STRUC., RESTORE DATA DBASE OPENING FILES PORT. COMPANION 9/83 59 MISC: 3 COMMAND FILES FOR FILE OPENING, DEFAULT DRIVE DBASE SQUARE ROOTS PORT. COMPANION 8/83 47 MISC: SQUARE ROOT SUBROUTINE DBASE SQUARE ROOTS FOGHORN 5/83 16 SQUARE ROOT PROGRAM DBASE TRAVEL EXPENSE RECORDS PORT. COMPANION 12/82 82 MISC: DBASICS DISK DR. SOFTWARE REVIEW PORT. COMPANION 7/83 83 MISC: DISK DOCTOR FOR REBUILDING FILES DU-V77 DISK UTILITY INSTRUCTIONS FOGHORN 9/83 14 MISC: USING DV-V77 EASYWRITER SOFTWARE REVIEW PORT. COMPANION 10/82 72 MISC: THESAURUS PROGRAM FILER SOFTWARE REVIEW PORT. COMPANION 9/83 67 MISC: FOR ARCHIVING AND CATALOGING FILES GAMES SOFTWARE REVIEW PORT. COMPANION 8/83 85 MISC: ACID RAIN,OZZYMAN,CATACOMB,SURVIVOR,VALOR,TRAPPER GAMES SOFTWARE REVIEW PORT. COMPANION 8/83 86 MISC: SPACE RAIDERS GRAFIXWRTR SOFTWARE REVIEW PORT. COMPANION 7/83 82 MISC: GRAFIXWRITER. WORKS WITH MBASIC HELIX HD HARDWARE REVIEW PORT. COMPANION 7/83 80 MISC: HELIX HARD DISK INFO KEY FUNCTIONS FOGHORN 6/83 6 MISC: SPECIAL FUNCTIONS OF ,.=/?[ AND ARROW KEYS INFO DEDUCT COMPUTER EXPENSES PORT. COMPANION 12/83 50 INFO MBASIC VS. DBASE FOGHORN 6/83 10 MISC: COMPARISON OF ADVANTAGES INFO SINGLE PURPOSE DISK FOGHORN 7/83 7 MISC: MAKING DISKS FOR SPECIFIC TASKS INFO TRAVELING TIPS PORT. COMPANION 8/83 23 MISC: DO'S AND DON'TS OF TRAVELING WITH OSBORNE INFO UPGRADE-PAC PORT. COMPANION 4/83 106 MISC: DESCRIBES W/S 3.4, S/C 1.12, CBASIC 2.38, CPM 4.1 INFO UPS, LINE CONDITIONERS FOGHORN 7/83 10 MISC: UNINTERRUPTABLE POWER SUPPLYS (UPS) & LINE CONDITIONERS INFO VARIOUS MODEM PROGRAMS FOGHORN 5/83 7 MISC: MODEM714,OSMODN,MODEM73,MDM70S,OSBMDM76 KAYPRO COMPUTER REVIEW PORT. COMPANION 2/83 81 MAILMERGE DOT COMMANDS-FILE MERGE PORT. COMPANION 4/83 82 MISC: USING .AV COMMAND MAILMERGE MAKING MM ASK QUESTIONS  FOGHORN 7/83 15 MISC: .AV TO BUILD FILE WITH SCREEN PROMPTS MAILMERGE PRINTING SERIES OF FILES PORT. COMPANION 10/82 72 MISC: DOT COMMANDS. ALLOWS DISK SWAPS MAILMERGE SORTING NOTES PORT. COMPANION 2/83 28 MAILMERGE TYPEWRITER USING .AV FOGHORN 5/83 15 MISC: TYPE FOR LIMITED KEYBOARD ENTRY WITHOUT WORDSTAR MBASIC AUTO PROGRAM EXECUTION FOGHORN 5/83 6 MISC: AUTOMATIC PROGRAM EXECUTION FROM COLD START MBASIC BELL CONTROL PORT. COMPANION 10/82 26 MISC: PROGRAM TO CONTROL BELL AND DURATION OF BEEP MBASIC CHR$(9) PORT. COMPANION 6/83 53 MISC: POKE FOR A LITERAL CHR$(9) MBASIC CORRESPONDENCE PORT. COMPANION 8/83 28 MISC: ROUTINE FOR SIMPLE LETTERS MBASIC CREATING PRINT STATEMENTS PORT. COMPANION 2/83 65 MISC: WRINST MBASIC DIRECT CURSOR ADDRESSING PORT. COMPANION 6/83 50 MBASIC DRAWING CARDS PORT. COMPANION 8/82 47 MISC: PROGRAM FOR DRAWING PLAYING CARDS MBASIC FIELD STATEMENT PORT. COMPANION 6/83 51 MISC: BUFFER SPACE MBASIC GAME - DUCKS PORT. COMPANION 4/83 53 MISC: MOVING GRAPHICS MBASIC GRAPHICS SCREEN DUMP FOGHORN 9/83 24 MISC: FOR EPSON MBASIC GRAPHICS SUBROUTINE FOGHORN 8/83 19 MBASIC HEXADECIMAL CONVERSION PORT. COMPANION 8/83 49 MISC: PROGRAM FOR HEXADECIMAL TO DECIMAL CONVERSION MBASIC LINE #'S TO THE PRINTER FOGHORN 5/83 17 MISC: DEBUGGING AID MBASIC LINEFEED,GARBAGE PROBLEMS PORT. COMPANION 6/83 52 MISC: DIRECT CURSOR ADDRESSING OR UNDERLINING MBASIC LOAN TABLE PORT. COMPANION 10/83 35 MISC: AMORTABL.BAS SOURCE CODE MBASIC LOGARITHMS / ANTILOGS PORT. COMPANION 9/83 40 MISC: LOGARITHMS AND ANTILOGARITHIMS PROGRAM MBASIC MATHEMA TICAL CONVERSIONS PORT. COMPANION 6/83 37 MISC: MBASIC EQUIVALENTS OF CERTAIN ADV. MATH FUNCTIONS MBASIC POKE TO PRINTER FOGHORN 5/83 8 MBASIC PRINTER SUBROUTINE PORT. COMPANION 6/83 22 MBASIC PRINTER SUBROUTINE FOGHORN 9/83 22 MBASIC PROGRAM - 3D BAR GRAPH PORT. COMPANION 6/83 44 MISC: CORRESPONDING PRINTER ROUTINE IN 9/83 ISSUE MBASIC PROGRAM - REACT PORT. COMPANION 2/83 43 MISC: A PROGRAM TO TEST REACTION TIME MBASIC PROTECTED CODE WORDS PORT. COMPANION 10/82 16 MISC: ROUTINE USING INKEY$ MBASIC RANDOM ACCESS PROBLEMS PORT. COMPANION 6/83 51 MISC: INITIALIZING FOR OPENING UP TO 15 FILES MBASIC RANDOM NUMBER GENERATOR PORT. COMPANION 9/83 36 MISC: SEED FOR RANDOM NUMBERS MBASIC RANDOM NUMBERS FOGHORN 7/83 18 MISC: SUBROUTINE FOR RANDOM NUMBER SEEDING MBASIC RANDOMIZE, RANDOM NUMBERS PORT. COMPANION 6/83 50 MISC: INKEY$ LOOP TO SET RANDOM NUMBERS MBASIC RELOCATING LINES FOGHORN 7/83 13 MISC: ^A FUNCTION TO DELETE LINE # & RENUMBER MBASIC RENUM LINES PORT. COMPANION 4/83 15 MISC: RENUMBERING SPECIFIC LINES MBASIC SALARY COMPARISON PORT. COMPANION 2/83 52 MISC: RANDOM ACCESS FILES MBASIC SCREEN DUMP PORT. COMPANION 12/82 42 MISC: SCREEN DUMP FOR EPSON PRINTER MBASIC SCREEN GRAPHICS PORT. COMPANION 4/83 53 MISC: DRAW AND STORE SCREEN GRAPHICS MBASIC SYSTEM DATE FACILITY PORT. COMPANION 6/83 48 MISC: A DATE PROGRAM - WORKS ON AUTOST MBASIC TRS-80 PRINT @ STATEMENT PORT. COMPANION 7/83 32 MISC: CONVERTING TRS-80'S PRINT @ STATEMENT MBASIC TRS80'S PRINT @(Y,X) FOGHORN 5/83 5 MISC: CURSOR ADDRESSING ROUTINE CONVERSION MICRO LINK ACCESSING MAINFRAMES PORT. COMPANION 12/82 43 MISC: COMMUNICATING BETWEEN OSBORNE AND MAINFRAMES MODEM ELECTRONIC BULLETIN BOARD PORT. COMPANION 12/82 37 MODEM7 PROGRAM INSTRUCTIONS PORT. COMPANION 8/82 20 MONEYMSTR0 SOFTWARE REVIEW PORT. COMPANION 8/83 87 MISC: MONEY MAESTRO, FINANCE PACKAGE OLIVE80 HARDWARE REVIEW FOGHORN 9/83 18 OSBAUD HARDWARE REVIEW PORT. COMPANION 7/83 85 MISC: BAUD RATE GENERATOR OSBAUD HARDWARE REVIEW FOGHORN 6/83 11 OSBOARD1 SOFTWARE REVIEW PORT. COMPANION 2/83 78 MISC: PROGRAMS FOR HIGH RES. GRAPHICS OSMOS 1 HARDWARE REVIEW FOGHORN 6/83 11 MISC: DD UPGRADE OSMOS 1 HARDWARE REVIEW, REBUTTAL FOGHORN 8/83 13 MISC: REBUTTAL TO 6/83 REVIEW OTERM4 SOFTWARE REVIEW FOGHORN 9/83 19 MISC: TERMINAL EMULATION PROGRAM PIP ADDING TO A WORDSTAR FILE FOGHORN 5/83 6 MISC: USING PIP TO ADD SHORT NOTES TO A TEXT FILE PIP DISK WRITE ERROR FOGHORN 5/83 6 MISC: REDUCING A FILE TO ZERO WITHOUT LEAVING PIP POWER SOFTWARE REVIEW FOGHORN 6/83 14 MISC: CPM UTILITIES PROGRAM PRINTER C.ITOH F10-40 PRINTER PORT. COMPANION 12/82 13 MISC: CONNECTING THE C.ITOH F10-40 PRINTER CENTRONICS 739 PORT. COMPANION 10/82 54 MISC: INSTALL INSTRUCTIONS PRINTER DIABLO 630 INSTALL PORT. COMPANION 10/82 56 MISC: CONNECTING THE DIABLE 630 PRINTER PRINTER GEMINI 10 FOGHORN 9/83 6 MISC: INSTALL INSTRUCTIONS PRINTER GEMINI 15 FOGHORN 9/83 6 MISC: DIP SWITCH, ROM INFO PRINTER OLYMPIA ES105 FOGHORN 7/83 6 MISC: ENABLE/DISABLE CERTAIN FUNCTIONS PRINTER OLYMPIA ESW 103 FOGHORN 9/83 23 MISC: INSTALLING W/S  PRINTER STAR GEMINI 10 FOGHORN 9/83 24 MISC: INSTALLING W/S PRINTERS IEEE DEVICE ADDRESS PORT. COMPANION 6/83 37 MISC: COMMUNICATING WITH PRINTERS THAT USE DEVICE ADDRESSES PRINTERS TECHNICAL INFO RE:INSTALL PORT. COMPANION 4/83 66 MISC: PRINTER REQUIREMENTS AND W/S INSTALLATION PSNL PEARL SOFTWARE REVIEW FOGHORN 8/83 16 SPELL SOFTWARE REVIEW FOGHORN 5/83 12 SUPERCALC BOOK REVIEW FOGHORN 9/83 21 MISC: SUPERCALC: THE BOOK SUPERCALC BORDERLESS PRINTOUTS PORT. COMPANION 8/82 30 MISC: REMOVING BORDERS FROM REPORT SUPERCALC BOWLING SCOREKEEPER PORT. COMPANION 6/83 76 MISC: CALCAID SUPERCALC CREATING A CALENDAR PORT. COMPANION 12/82 88 MISC: CALCAID SUPERCALC DEPRECIATION RATE PORT. COMPANION 8/82 72 MISC: CALCAID: DEPRECIATION RATE SUPERCALC FILE NOT LOADABLE ERROR PORT. CO MPANION 2/83 22 SUPERCALC INSTALLS CONDENSED PRINT PORT. COMPANION 10/82 84 MISC: CONDENSED PRINT MODE SUPERCALC INSULATION COST PORT. COMPANION 8/83 75 MISC: PROGRAM COST EFFECTIVENESS OF HOME INSULATION SUPERCALC INTEGRATING FILES WITH WS PORT. COMPANION 4/83 83 MISC: WS REPORTS WITH SUPERCALC SPREADSHEETS SUPERCALC LINEAR REGRESSION PORT. COMPANION 10/82 87 MISC: WORKSHEET FOR STATISTICAL CALCULATIONS SUPERCALC MAILING LABELS PORT. COMPANION 10/83 54 SUPERCALC PERSONAL BUDGET PORT. COMPANION 7/83 74 MISC: CALCAID: WORKSHEET FOR A PERSONAL BUDGET SUPERCALC SALES REPORT SUMMARY PORT. COMPANION 2/83 85 MISC: CALCAID - VALUE AND BAR GRAPH SUPERCALC THE "IF" FUNCTION PORT. COMPANION 10/83 62 MISC: CALCAID SUPERCALC TRANSFER BETWEEN FILES PORT. COMPANION 4/83 98 MISC: 'BROUGHT FORWARD AND 'ACCUMULATOR' COLUMNS SUPERFILE SOFTWARE REVIEW  PORT. COMPANION 2/83 80 MISC: DBMS TECHNICAL 80 COL. EXTERNAL CRT PORT. COMPANION 7/83 85 MISC: CONNECTING A REMOTE TERMINAL WITH 80 COL. 12" DISPLAY TECHNICAL BDOS/BAD SECTOR INFO FOGHORN 9/83 9 MISC: SOME FIXES TECHNICAL EPSON PRINT MODES FOGHORN 9/83 23 MISC: COND.,ELITE,EMPHA.,DBL SIZE,ITALICS,PROPORTIONAL, ETC TECHNICAL IEEE-488 PORT PORT. COMPANION 7/83 36 MISC: INTERFACE PROGRAM IN MBASIC TECHNICAL IEEE-488 PORT PORT. COMPANION 7/83 42 MISC: INTERFACING EXTERNAL DEVICES IE. ATARI JOYSTICK TECHNICAL IEEE-488 PORT PORT. COMPANION 12/82 44 MISC: PARALLEL INTERFACES TECHNICAL INSIDE OSBORNE 1 PORT. COMPANION 8/82 42 TECHNICAL INSTALLING A FAN FOGHORN 9/83 12 TECHNICAL MODIFYING SCREEN SIZE FOGHORN 9/83 13 MISC: SUBROUTINE USING DDT & SETUP FOR 80,52 COLUMN SCREEN TECHNICAL PRINTER TOGGLING FOGHORN 9/83 24 MISC: CALL INSTRUCTION TECHNICAL PROGRAMMING SERIAL PORT PORT. COMPANION 6/83 54 MISC: MODIFYING DATA WORD LENGTH, STOP BITS, PARITY SETTING TOUCHTYP SOFTWARE REVIEW PORT. COMPANION 8/83 84 MISC: TYPING TUTOR PROGRAM TRANSTR130 HARDWARE REVIEW FOGHORN 9/83 16 MISC: TRANSTAR 130 DAISYWHEEL PRINTER TRANSTR130 HARDWARE REVIEW PORT. COMPANION 9/83 83 MISC: PRINTER REVIEW TRANSTAR 130 TRANTOR HD HARDWARE REVIEW PORT. COMPANION 2/83 78 WORD PLUS SOFTWARE REVIEW FOGHORN 5/83 12 MISC: SPELLING CHECKER WORDSTAR ARROW KEY MODIFICATION FOGHORN 8/83 19 MISC: DU-V77 WORDSTAR BOOT-UP MODIFICATION FOGHORN 9/83 8 MISC: ALTERNATE METHOD TO BOOT-UP WORDSTAR COLUMNS PORT. COMPANION 6/83 37 MISC: ^OD TO TURN OFF PRINT CONTROL CHARACTER DISPLAY WORDSTAR COMFYL  PORT. COMPANION 8/83 44 MISC: KEYBOARD ENTRY FILE WITHOUT EDITING, SAVING WORDSTAR CORRESPONDENCE DISK PORT. COMPANION 10/83 31 MISC: FORMAT FILE FOR CORRESPONDENCE AND ENVELOPE WORDSTAR GRAPHICS PORT. COMPANION 6/83 66 MISC: REQUIRES PRINTER WITH DOT ADDRESSABLE WIDTH/HEIGHT CNTL WORDSTAR INFORMAL OUTLINES PORT. COMPANION 6/83 64 MISC: AUTOMATIC OUTLINE FORMAT WORDSTAR INSTALL PORT. COMPANION 12/82 84 MISC: CUSTOMIZING WORDSTAR WORDSTAR INSTALL.SUB VS. .COM PORT. COMPANION 10/83 49 MISC: INSTALL.COM VS. INSTALL.SUB WORDSTAR LOADING WS AND OTHER TIPS FOGHORN 6/83 7 WORDSTAR MAILING LABELS-3 ACROSS PORT. COMPANION 10/82 28 MISC: WS FILE FOR 3 ACROSS MAILING LABELS WORDSTAR PRACTICAL EDITING PORT. COMPANION 4/83 47 MISC: REFINING A MANUSCRIPT WORDSTAR PRACTICAL EDITING PORT. COMPANION 6/83 58 MISC: SORTING AND INTERFILE EDITING TECHNIQUES WORDSTAR PREPRINTED FORMS PORT. COMPANION 2/83 37 MISC: MAKING A FILL-IN FILE WORDSTAR PRINT PROBLEMS PORT. COMPANION 6/83 25 MISC: COMMON PROBLEMS, DO'S AND DON'TS WORDSTAR SELF PUBLISHING PORT. COMPANION 6/83 32 MISC: COMPILING A BOOK - CALCULATING TYPING AREA WORDSTAR SMOOTH SCROLLING PORT. COMPANION 4/83 106 MISC: MODIFYING W/S (CORRECTED VERSION) WORDSTAR SOFTWARE PRINTER SPOOLER PORT. COMPANION 10/83 52 MISC: SOFTWARE PRINTER SPOOLER (ADV. MODIFICATION) WORDSTAR SPELL CHECKERS PORT. COMPANION 6/83 71 MISC: INS AND OUTS OF SPELLING CHECKERS WORDSTAR TERM PAPERS, THESES PORT. COMPANION 2/83 34 MISC: FUNCTION KEYS AND COMMON WS COMMANDS WORDSTAR TIPS MENU, MARGIN RELEASE FOGHORN 7/83 14 MISC: ^KE FOR ONE-LINE MENU, ^OX FOR WORD BREAK ASSISTANCE ZORBA COMPUTER REVIEW FOGHORN   8/83 14 ILL-IN FILE WORDSTAR PRINT PROBLEMS PORT. COMPANION 6/83 25 MISC: COMMON PROBLEMS, DO'S AND DON'TS WORDSTAR SELF PUBLISHING PORT. COMPANION 6/83 32 MISC: COMPILING A BOOK - CALCULATING TYPING AREA WORDSTAR SMOOTH SCROLLING PORT. COMPANION 4/83 106 MISC: MODIFYING W/S (CORRECTED VERSION) WORDSTAR SOFTWARE PRINTER SPOOLER PORT. COMPANION 10/83 52 MISC: SOFTWARE PRINTER SPOOLER (ADV. MODIFICATION) WORDSTAR SPELL CHECKERS PORT. COMPANION 6/83 71 MISC: INS AND OUTS OF SPELLING CHECKERS WORDSTAR TERM PAPERS, THESES PORT. COMPANION 2/83 34 MISC: FUNCTION KEYS AND COMMON WS COMMANDS WORDSTAR TIPS MENU, MARGIN RELEASE FOGHORN 7/83 14 MISC: ^KE FOR ONE-LINE MENU, ^OX FOR WORD BREAK ASSISTANCE ZORBA COMPUTER REVIEW FOGHORN  MICHAEL LYNN 221 S. Washington Street Ypsilanti, Mi. 48197 (313)-484-4297 DBASE II CHECK BOOK SYSTEM ++++++++++++++++++++++++++ Once it has been set up, the use of this program should be self-explanatory. DBASE.COM must be renamed to DB.COM and be on the A: drive. Begin by placing all the files from this .LBR on drive B:, call up dbase and run SETUP.CMD (do B:setup). When selecting the Archive section from the main menu, please make sure you have enough room on whatever disk you will be copying to--DISK FULL errors and database files don't mix well. *** Keep backups of all files.*** SYSTEM CAPABILITIES: * Allows the use of two checkbooks - PERSONAL & BUSINESS * Keeps track of all checks by user defined categories * Accepts deposits, interest payments, and service charges * Check cancelation, as well as deposit and interest payment verification * Current balance displayed at all times when entering checks, etc. * Many different report options * Archiving of out-of-date records * Restoration of archive files * Many "personalized" features * Limited on-line help chiving of out-of-date records * Restoration of archive files * Many "personalized" features * Limnatory. DBASE.COM must be renamed to DB.COM and be on the A: drive. Begin by placing all the files from this .LBR on drive B:, call up dbase and run SETUP.CMD (do B:setup). When selecting the Archive section from the main menu, please make sure you have enough room on whatever disk you will be copying to--DISK FULL errors and database files don't mix well. *** Keep backups of all files.*** SYSTEM CAPABILITIES: * Allows the use of two checkbooks - PERSONAL & BUSINESS * Keeps track of all checks by user defined categories * Accepts deposits, interest payments, and service charges * Check cancelation, as well* ARCHIVE.CMD * M. Lynn * VERSION 1.6 ERASE SET INTENSITY OFF STORE 2 TO maxdrive STORE $(DATE(),7,2) TO year STORE T TO ok DO WHILE ok @ 15, 0 SAY '-------------------------------------------------------------------' @ 16, 0 SAY '| |' @ 17, 0 SAY '| |' @ 18, 0 SAY '| |' @ 19, 0 SAY '| |' @ 20, 0 SAY '| |' @ 21, 0 SAY '-------------------------------------------------------------------' @ 16, 3 SAY 'Enter a number that indicates the maximum number of drives' @ 17, 3 SAY 'in use on your system -- if you ask for files to be copied' @ 18, 3 SAY 'to a drive that is not really available, nasty things can' @ 19, 3 SAY 'happen to your .dbf files! --- ' GET maxdrive PICTURE '9' READ IF maxdrive < 2 .OR. maxdrive > 5 @ 16, 0 SAY '| |' @ 17, 0 SAY '| |' @ 18, 0 SAY '| |' @ 19, 0 SAY '| |' @ 16, 5 SAY 'NO SUCH LUCK, PLEASE TRY A NUMBER BETWEEN 2 AND 5' @ 20, 5 SAY 'ENTER ANY CHARACTER: ' SET CONSOLE OFF WAIT SET CONSOLE ON ERASE LOOP ELSE STORE F TO ok ENDDO DO WHILE T ERASE @ 5, 3 SAY ' ' @ 7, 3 SAY ' ' @ 9, 3 SAY ' ' @ 11, 3 SAY ' ' @ 15, 0 SAY '-------------------------------------------------------------------' @ 16, 0 SAY '| |' @ 17, 0 SAY '| |' @ 18, 0 SAY '| |' @ 19, 0 SAY '|   |' @ 20, 0 SAY '| |' @ 21, 0 SAY '-------------------------------------------------------------------' @ 1, 20 SAY 'CHECKBOOK ARCHIVE MENU' @ 2, 20 SAY '========= ======= ====' @ 3, 5 SAY '1- Archive files' @ 5, 5 SAY '2- Restore archived files' @ 7, 5 SAY '3- Perform backups' @ 9, 5 SAY '4- Check for out-of-date records' @ 11, 5 SAY '5- Help information <--- read before using the above utilities' @ 13, 5 SAY '6- Return to Main Menu' SET CONSOLE OFF WAIT TO which SET CONSOLE ON DO CASE CASE which = '1' @ 3, 3 SAY '*' DO PURGE CASE which = '2' @ 5, 3 SAY '*' DO RESTORE CASE which = '3' @ 7, 3 SAY '*' DO BACKUP CASE which = '4' @ 9, 3 SAY '*' DO YEAR CASE which = '5' @ 11, 3 SAY '*' DO ARHELP CASE which = '6' @ 13, 3 SAY '*' ERASE RELEASE ok RETURN ENDCASE # which ENDDO # T ' @ 11, 3 SAY '*' DO ARHELP CASE which = '6' @ 13, 3 SAY '*' ERASE RELEASE ok * ARHELP.CMD * M. Lynn * Version 1.6 ERASE SET INTENSITY OFF @ 1, 0 SAY 'If you choose to archive old records or restore previously' @ 2, 0 SAY 'archived records, please note that the current balance stored' @ 3, 0 SAY 'for each checkbook will be changed, if you run selection' @ 4, 0 SAY '6 (BALANCE) from the main menu.' @ 6, 0 SAY 'If, for instance, it is now 1985 and you wish to archive your' @ 7, 0 SAY 'entries for 1984, make a note of the balance of your account' @ 8, 0 SAY 'as of the last entry for 1984. (you do keep a check register' @ 9, 0 SAY "on paper as well--don't you) Now enter 4 from the ARCHIVE" @ 10, 0 SAY 'menu to make sure that no entries exist for 1983 or 1948 etc.' @ 11, 0 SAY 'When you feel certain that the entries remaining in the account' @ 12, 0 SAY 'are those you wish to have there, exit to dbase and run SETUP.CMD' @ 13, 0 SAY 'which you used initially to set up your account information.' @ 14, 0 SAY 'When asked, Do you want to change your account information?--' @ 15, 0 SAY 'answer Y. At this point you should change the value for the' @ 16, 0 SAY 'starting balance of your account to be that of the starting' @ 17, 0 SAY 'balance for 1985. The current balance will then be updated' @ 18, 0 SAY 'automatically.' SET INTENSITY ON @ 22, 0 SAY 'PRESS ANY CHARACTER TO CONTINUE' SET CONSOLE OFF WAIT SET CONSOLE ON SET INTENSITY OFF RETURN INTENSITY ON @ 22, 0 SAY 'PRESS ANY CHARACTER TO CONTINUE' SET CONSOLE OFF WAIT SET CONSOLE ON SET INTENSITY OFF RETURN try for 1984. (you do keep a check register' @ 9, 0 SAY "on paper as well--don't you) Now enter 4 from the ARCHIVE" @ 10, 0 SAY 'menu to make sure that no entries exist for 1983 or 1948 etc.' @ 11, 0 SAY 'When you feel certain that the entries remaining in the account' @ 12, 0 SAY 'are those you wish to have there, exit to dbase and run SETUP.CMD' @ 13, 0 SAY 'which you used initially to set up your account information.' @ 14, 0 SAY 'When asked, Do you want to change your account information?--' @ 1* BACKUP.CMD * M. Lynn ERASE DO WHILE T @ 5, 5 SAY 'Which databases to you wish to backup?' @ 7, 5 SAY '1- BUSINESS' @ 9, 5 SAY '2- PERSONAL' @ 11, 5 SAY '3- BOTH' @ 13, 5 SAY '4- RETURN TO PREVIOUS MENU' @ 20, 0 SAY '-------------------------------------------------------------------------' @ 21, 0 SAY '| |' @ 22, 0 SAY '-------------------------------------------------------------------------' SET CONSOLE OFF WAIT TO next SET CONSOLE ON DO CASE CASE next = '1' @ 7, 3 SAY '*' @ 21, 3 SAY 'Enter a single letter for the drive where the copies should go: ' SET CONSOLE OFF WAIT TO drive SET CONSOLE ON @ 21, 0 SAY '| |' STORE drive+':BUS-BACK' TO dbf @ 21, 3 SAY 'COPYING BUSINESS TO '+dbf USE BUSINESS COPY TO &dbf @ 7, 3 SAY ' ' @ 21, 0 SAY '| |' CASE next = '2' @ 9, 3 SAY '*' @ 21, 3 SAY 'Enter a single letter for the drive where the copies should go: ' SET CONSOLE OFF WAIT TO drive SET CONSOLE ON @ 21, 0 SAY '| |' STORE drive+':PER-BACK' TO dbf @ 21, 3 SAY 'COPYING PERSONAL TO '+dbf USE PERSONAL COPY TO &dbf @ 9, 3 SAY ' ' @ 21, 0 SAY '| |' CASE next = '3' @ 11, 3 SAY '*' @ 21, 3 SAY 'Enter a single letter for the drive where the copies should go: ' SET CONSOLE OFF WAIT TO drive SET CONSOLE ON @ 21, 0 SAY '| |' STORE drive+':BUS-BACK' TO dbf @ 21, 3 SAY 'COPYING BUSINESS TO '+dbf USE BUSINESS COPY TO &dbf @ 21, 0 SAY '| |' STORE drive+':PER-BACK' TO dbf @ 21, 3 SAY 'COPYING PERSONAL TO '+dbf USE PERSONAL COPY TO &dbf @ 11, 3 SAY ' ' @ 21, 0 SAY '|  |' OTHERWISE @ 13, 3 SAY '*' @ 21, 3 SAY 'RETURNING TO MENU' IF file = '1' USE PERSONAL ELSE USE BUSINESS RETURN ENDCASE ENDDO  @ 13, 3 SAY '*' @ 21, 3 SAY 'RETURNING TO MBACK' TO dbf @ 21, 3 SAY 'COPYING PERSONAL TO '+dbf USE PERSONAL COPY TO &dbf @ 9, 3 SAY ' ' @ 21, 0 SAY '| |' CASE next = '3' @ 11, 3 SAY '*' @ 21, 3 SAY 'Enter a single letter for the drive where the copies should go: ' SET CONSOLE OFF WAIT TO drive SET CONSOLE ON @ 21, 0 SAY '| |' STORE drive+':BUS-BACK' TO dbf @ 21, 3 SAY 'COPYING BUSINESS TO '+dbf USE BUSINESS COPY TO &dbf @ 21, 0 SAY '| |' STORE drive+':PER-BACK' TO dbf @ 21, 3 SAY 'COPYING PERSONAL TO '+dbf USE PERSONAL COPY TO &dbf @ 11, 3 SAY ' ' @ 21, 0 SAY '| * BAL.CMD * M. LYNN * Version 1.6 ERASE IF file = '1' STORE startper TO startbal ELSE STORE startbus TO startbal ENDIF GO TOP DO WHILE .NOT. EOF IF number = 0 .AND. to = 'DEPOSIT' .OR. to = 'INTEREST PAYMENT' STORE startbal + amount TO startbal ELSE STORE startbal - amount TO startbal ENDIF SKIP ENDDO IF file = '1' STORE startbal TO perbal ELSE STORE startbal TO busbal ENDIF SET INTENSITY OFF @ 9, 0 SAY 'The current balance is: ' @ 9, 26 SAY startbal RELEASE startbal SAVE TO INFO SET INTENSITY ON @ 22, 0 SAY 'PRESS ANY KEY TO CONTINUE' SET CONSOLE OFF WAIT SET CONSOLE ON RETURN tiNUMBERNlTOClAMOUNTN lCANCELEDLlDATEClMEMOCmCOMMENTC2m 3N 390S. Lynn 15.00F12/17/83N 391R. Lynn 40.00F12/17/83N 392NB&T 336.13F12/25/83X 393NB&T 231.20F01/03/84N 394ITT eMEMOR 353MI Bell 94.52F09/10/83T 354Amoco 54.50F10/01/83Z B6@ B6P!B6`"B6p#B6$B6%B7&B7'B7 (B70)B7@*B7P+B7`,B7p-B7.B7/B80B81B8 2B803B8@4B8P5B8`6B8p7B88B89B9:B9;B9 B6@ B6P!B6`"B6p#B6$B6%B7&B7'B7 (B70)B7@*B7P+B7`,B7p-B7.B7/B80B81B8 2B803B8@4B8P5B8`6B8p7B88B89B9:B9;B9 <B90=B9@>B9P?B9`@B9pAB9BB9CB@DB@EB@ FB@0GB@@HB@PIB@`JB@pKB@LB@MBANBA 5B8`6B8p7B8* CANCEL.CMD * M. LYNN * Verson 1.6 ERASE IF file = '2' SET INDEX TO INDBUSNO ELSE SET INDEX TO INDPERNO ENDIF LOCATE FOR number > 1 .AND. $(date,7,2)= year .AND. .NOT. canceled IF EOF @ 10, 5 SAY 'All checks for 19'+year+' have been canceled.' @ 22, 5 SAY 'PRESS ANY KEY TO CONTINUE' SET CONSOLE OFF WAIT SET CONSOLE ON SET INDEX TO RETURN ELSE STORE # TO recnum STORE number TO c:num SET INTENSITY ON @ 1,0 SAY 'SYSTEM DATE: '+date()+' ACCOUNT: '+maccount+' RECORD #:' @ 2, 0 SAY 'ACCOUNT NUMBER: '+ac:no @ 1,65 SAY recnum SET INTENSITY OFF @ 4, 0 SAY 'STARTING AT FIRST UNCANCELED CHECK - ENTER CHECK NUMBER OF 0 TO EXIT' DO WHILE T @ 6, 0 SAY 'ENTER CANCELLED CHECK NO' GET c:num PICTURE '9999' READ IF c:num = 0 SET INDEX TO RELEASE recnum, c:num, x:can, answer RETURN ENDIF STORE STR(c:num,4) TO x:can FIND &x:can IF # = 0 @ 16, 0 SAY 'Check '+STR(c:num,4)+' cannot be found' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 ELSE STORE # TO recnum @ 1,65 SAY recnum IF canceled @ 15, 0 SAY '*** Check is already canceled ***' ENDIF @ 10, 0 SAY 'Paid to '+TRIM(to)+' on '+date @ 12, 0 SAY 'Amount of check is '+STR(amount,10,2) @ 13, 0 SAY 'Is this the one? (Y/N)' SET CONSOLE OFF WAIT TO answer SET CONSOLE ON @ 15, 0 @ 10, 0 @ 12, 0 @ 13, 0 IF !(answer) ='Y' REPLACE canceled WITH T ENDIF ENDIF STORE c:num + 1 to c:num ENDDO ENDIF  IF !(answer) ='Y' REPLACE cance2, 0 SAY 'ACCOUNT NUMBER: '+ac:no @ 1,65 SAY recnum SET INTENSITY OFF @ 4, 0 SAY 'STARTING AT FIRST UNCANCELED CHECK - ENTER CHECK NUMBER OF 0 TO EXIT' DO WHILE T @ 6, 0 SAY 'ENTER CANCELLED CHECK NO' GET c:num PICTURE '9999' READ IF c:num = 0 SET INDEX TO RELEASE recnum, c:num, x:can, answer RETURN ENDIF STORE STR(c:num,4) TO x:can FIND &x:can IF # = 0 @ 16, 0 SAY 'Check '+STR(c:num,4)+' cannot be found' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 ELSE STORE # TO* CATA.CMD * M. Lynn * Version 1.6 ERASE SET TALK OFF IF FILE ("B:CATA.MEM") RESTORE FROM B:CATA ELSE STORE ' ' TO amemo, bmemo, cmemo, dmemo, ememo, fmemo, gmemo, hmemo STORE ' ' TO imemo, jmemo, kmemo, lmemo, mmemo, nmemo, omemo, pmemo STORE ' ' TO qmemo, rmemo, smemo, tmemo, umemo, vmemo, wmemo, xmemo STORE ' ' TO ymemo, zmemo ENDIF SET INTENSITY OFF @ 4, 0 SAY 'This system allows the user to make up to 26 different Categories to help' @ 5, 0 SAY 'with accounting for tax purposes. Each Category is refered to by a single' @ 6, 0 SAY 'letter, such as B- Books, E- Entertainment, U- Utilities, etc. If you do' @ 7, 0 SAY 'not wish to use a particular letter simply enter a return when you get to it.' @ 8, 0 SAY 'Should you wish to add or change Categories in the future simply re-run this' @ 9, 0 SAY 'SETUP program.' SET INTENSITY ON @ 20, 0 SAY 'PRESS ANY KEY TO CONTINUE' SET CONSOLE OFF WAIT SET CONSOLE ON ERASE @ 1, 1 SAY 'Category A: ' GET amemo PICTURE '!!!!!!!!!!!!!!!!' @ 2, 1 SAY 'Category B: ' GET bmemo PICTURE '!!!!!!!!!!!!!!!!' @ 3, 1 SAY 'Category C: ' GET cmemo PICTURE '!!!!!!!!!!!!!!!!' @ 4, 1 SAY 'Category D: ' GET dmemo PICTURE '!!!!!!!!!!!!!!!!' @ 5, 1 SAY 'Category E: ' GET ememo PICTURE '!!!!!!!!!!!!!!!!' @ 6, 1 SAY 'Category F: ' GET fmemo PICTURE '!!!!!!!!!!!!!!!!' @ 7, 1 SAY 'Category G: ' GET gmemo PICTURE '!!!!!!!!!!!!!!!!' @ 8, 1 SAY 'Category H: ' GET hmemo PICTURE '!!!!!!!!!!!!!!!!' @ 9, 1 SAY 'Category I: ' GET imemo PICTURE '!!!!!!!!!!!!!!!!' @ 10, 1 SAY 'Category J: ' GET jmemo PICTURE '!!!!!!!!!!!!!!!!' @ 11, 1 SAY 'Category K: ' GET kmemo PICTURE '!!!!!!!!!!!!!!!!' @ 12, 1 SAY 'Category L: ' GET lmemo PICTURE '!!!!!!!!!!!!!!!!' @ 13, 1 SAY 'Category M: ' GET mmemo PICTURE '!!!!!!!!!!!!!!!!' @ 14, 1 SAY 'Category N: ' GET nmemo PICTURE '!!!!!!!!!!!!!!!!' @ 15, 1 SAY 'Category O: ' GET omemo PICTURE '!!!!!!!!!!!!!!!!' @ 16, 1 SAY 'Category P: ' GET pmemo PICTURE '!!!!!!!!!!!!!!!!' @ 17, 1 SAY 'Category Q: ' GET qmemo PICTURE '!!!!!!!!!!!!!!!!' @ 18, 1 SAY 'Category R: ' GET rmemo PICTURE '!!!!!!!!!!!!!!!!' @ 19, 1 SAY 'Category S: ' GET smemo PICTURE '!!!!!!!!!!!!!!!!' @ 20, 1 SAY 'Category T: ' GET tmemo PICTURE '!!!!!!!!!!!!!!!!' @ 21, 1 SAY 'Category U: ' GET umemo PICTURE '!!!!!!!!!!!!!!!!' @ 22, 1 SAY 'Category V: ' GET vmemo PICTURE '!!!!!!!!!!!!!!!!' READ ERASE @ 1, 1 SAY 'Category W: ' GET wmemo PICTURE '!!!!!!!!!!!!!!!!' @ 2, 1 SAY 'Category X: ' GET xmemo PICTURE '!!!!!!!!!!!!!!!!' @ 3, 1 SAY 'Category Y: ' GET ymemo PICTURE '!!!!!!!!!!!!!!!!' @ 4, 1 SAY 'Category Z: ' GET zmemo PICTURE '!!!!!!!!!!!!!!!!' READ SAVE TO B:CATA @ 10, 1 SAY 'HOLD ON WHILE I PROCESS THIS INFORMATION' STORE 1 TO x DO WHILE x < 100 STORE x + 1 TO x ENDDO ERASE SET CONSOLE OFF SET ALTERNATE TO B:ENT SET ALTERNATE ON ? "* ENTER.CMD" ? "* M. LYNN" ? "* Version 1.6" ? "ERASE" ? "IF file = '1'" ? "SET INDEX TO INDPERNO" ? "STORE perbal TO curbal" ? "ELSE" ? "SET INDEX TO INDBUSNO" ? "STORE busbal TO curbal" ? "ENDIF" ? ? "GO BOTTOM" ? "STORE NUMBER TO m:no" ? "STORE date TO c:dat" ? "STORE # + 1 TO recnum" ? ? "IF file = '1'" ? "SET INDEX TO PERSONAL,INDPERNO" ? "ELSE" ? "SET INDEX TO BUSINESS,INDBUSNO" ? "ENDIF" ? ? "@ 1,0 SAY 'SYSTEM DATE: '+date()+' ACCOUNT: '+maccount+' RECORD #:'" ? "@ 2, 0 SAY 'ACCOUNT NUMBER: '+ac:no+' CURRENT BALANCE '" ? "@ 1, 65 SAY recnum" ? "@ 2, 65 SAY curbal" ? ? "DO WHILE T" ? "@ 2, 65 SAY curbal" ? "SET INTENSITY ON" ? "STORE ' ' TO ch:to" ? "STORE 0.00 TO m:amt" ? "STORE ' ' TO ch:memo" ? "STORE m:no+1 TO m:no" ? "STORE ' ' TO mcomment" ? "@ 4,0 SAY 'ENTER A RETURN, A NEW CHECK NUMBER, OR A 0 TO EXIT'" ? "SET INTENSITY OFF" ? "@ 7,0 SAY 'CHECK NUMBER ' GET m:no" ? "READ" ? " IF m:no = 0 " ? " IF file = '1'" ? " STORE curbal TO perbal" ? " ELSE" ? " STORE curbal TO busbal" ? " ENDIF" ? " SET INDEX TO" ? " RELEASE m:no, c:dat, recnum, ch:to, m:amt, ch:memo, mcomment" ? " RETURN" ? " ENDIF" ? "APPEND BLANK" ? "STORE # TO recnum" ? "@ 1, 65 SAY recnum" ? "@ 8,0 SAY 'PAY TO THE ORDER OF ' GET ch:to" ? "@ 9,0 SAY 'AMOUNT OF CHECK ' GET m:amt" ? "@ 10,0 SAY 'DATE WRITTEN ' GET c:dat PICTURE '99/99/99'" ? "@ 11,0 SAY 'PURPOSE OF CHECK'" ? "@ 13,0 SAY 'A- &amemo B- &bmemo C- &cmemo D- &dmemo '" ? "@ 14,0 SAY 'E- &ememo F- &fmemo G- &gmemo H- &hmemo '" ? "@ 15,0 SAY 'I- &imemo J- &jmemo K- &kmemo L- &lmemo '" ? "@ 16,0 SAY 'M- &mmemo N- &nmemo O- &omemo P- &pmemo '" ? "@ 17,0 SAY 'Q- &qmemo R- &rmemo S- &smemo T- &tmemo '" ? "@ 18,0 SAY 'U- &umemo V- &vmemo W- &wmemo X- &xmemo '" ? "@ 19,0 SAY 'Y- &ymemo Z- &zmemo '" ? "@ 21,0 SAY 'ENTER CATEGORY LETTER' GET ch:memo PICTURE '!'" ? "@ 22,0 SAY 'ENTER COMMENTS' GET mcomment" ? "READ" ? ? "REPLACE number WITH m:no,to WITH ch:to,amount WITH m:amt,date WITH c:dat" ? "REPLACE canceled WITH F,memo WITH ch:memo,comment WITH mcomment" ? "STORE curbal - amount TO curbal" ? "CLEAR GETS" ? ? "ENDDO" SET ALTERNATE OFF SET ALTERNATE TO B:Category SET ALTERNATE ON ? "* MEMO.FMT" ? "* M. Lynn" ? ? "@ 11,0 SAY 'AVAILABLE Categories'" ? "@ 13,0 SAY 'A- &amemo B- &bmemo C- &cmemo D- &dmemo '" ? "@ 14,0 SAY 'E- &ememo F- &fmemo G- &gmemo H- &hmemo '" ? "@ 15,0 SAY 'I- &imemo J- &jmemo K- &kmemo L- &lmemo '" ? "@ 16,0 SAY 'M- &mmemo N- &nmemo O- &omemo P- &pmemo '" ? "@ 17,0 SAY 'Q- &qmemo R- &rmemo S- &smemo T- &tmemo '" ? "@ 18,0 SAY 'U- &umemo V- &vmemo W- &wmemo X- &xmemo '" ? "@ 19,0 SAY 'Y- &ymemo Z- &zmemo '" SET ALTERNATE OFF IF FILE ("B:MEMO.FMT") DELETE FILE B:MEMO.FMT ENDIF IF FILE ("B:ENTER.CMD") DELETE FILE B:ENTER.CMD ENDIF QUIT TO 'REN B:MEMO.FMT=B:Category.TXT','REN B:ENTER.CMD=B:ENT.TXT','A:DB B:MENU' TH m:no,to WITH ch:to,amount WITH m:amt,date WITH c:dat" ? "REPLACE canceled WITH F,memo WITH ch:memo,comment WITH mcomment" ? y CHECK LISTING BY NUMBER n n 6,NUMBER NUMBER====== 30, TO PAY TO THE ORDER OF;=== == === ===== == 8,DATE DATE;==== 10,AMOUNT >AMOUNT;====== 20,COMMENT COMMENTS;========  30, TO PAY TO THE ORDER OF;=== == === ===== == 8,DATE DATE;==== ARHELP CMD 34BACKUP CMD567BAL CMD8BUSINESSDBF9BUSINESSNDX:CANCEL CMD ;<CATA CMD/=>?@ABCHECKNO $$$ Y CHECKS SUBTOTALED BY CATEGORY n y y MEMO N N Check type : 6,NUMBER NUMBER====== N 30,TO PAY TO THE ORDER OF;=== == === ===== == 8,date DATE;==== 10,AMOUNT >AMOUNT;====== Y 20,comment COMMENTS;======== 0,TO PAY TO THE ORDER OF;===ARHELP CMD 34BACKUP CMD567BAL CMD8BUSINESSDBF9BUSINESSNDX:CANCEL CMD ;<CATA CMD/=>?@ABCHECKNO FRMCCHREPORT$$$* DCANCEL.CMD * M. Lynn * Version 1.6 ERASE GO TOP STORE 0 TO recnum SET INDEX TO DO WHILE T SET INTENSITY ON @ 1,0 SAY 'SYSTEM DATE: '+date()+' ACCOUNT: '+maccount+' RECORD #:' @ 2, 0 SAY 'ACCOUNT NUMBER: '+ac:no LOCATE FOR number = 0 .AND. .NOT. canceled NEXT 65535 STORE # TO recnum @ 1,60 SAY recnum SET INTENSITY OFF IF .NOT.EOF @ 5, 0 SAY 'Transaction type: '+TRIM(to)+' on '+date+' for $' @ 5, 45 SAY amount PICTURE '99999.99' @ 7, 0 SAY 'Has this been verified? (Y/N)' SET CONSOLE OFF WAIT TO answer SET CONSOLE ON IF !(answer) ='Y' REPLACE canceled WITH T ENDIF ELSE @ 10, 0 @ 11, 0 SAY '**** No more unverified deposits or interest payments' @ 13, 0 SAY 'Enter any character to return to the main menu' SET CONSOLE OFF WAIT SET CONSOLE ON RETURN ENDIF @ 10, 0 SAY 'Any more transactions to verify? (Y/N)' SET CONSOLE OFF WAIT TO answer SET CONSOLE ON IF !(answer) ='N' RELEASE answer RETURN ELSE CONTINUE ENDIF ENDDO RETURN wer SET CONSOLE ON IF !(answer) ='N' RELEASE SAY 'SYSTEM DATE: '+date()+' ACCOUNT: '+maccount+' RECORD #:' @ 2, 0 SAY 'ACCOUNT NUMBER: '+ac:no LOCATE FOR number = 0 .AND. .NOT. canceled NEXT 65535 STORE # TO recnum @ 1,60 SAY recnum SET INTENSITY OFF IF .NOT.EOF @ 5, 0 SAY 'Transaction type: '+TRIM(to)+' on '+date+' for $' @ 5, 45 SAY amount PICTURE '99999.99' @ 7, 0 SAY 'Has this been verified? (Y/N)' SET CONSOLE OFF WAIT TO answer SET CONSOLE ON IF !(answer) ='Y' REPLACE canceled WITH T ENDIF ELSE @ 10, 0 @ 11, 0 SAY '**** No more unverified deposits or interest payments' @ 13, 0 SAY 'Enter any character to return to the main menu' SET CONSOLE OFF WAIT SET CONSOLE ON RETURN ENDIF @ 10, 0 SAY 'Any more transactions to verify? (Y/N)' SET CONSOLE OFF WAIT TO answer SET CONSOLE ON IF !(answer) ='N' RELEASE  y DEPOSITS & INTEREST PAID n y n 20,TO Transaction Type;----------- ---- 8,DATE Date;---- 10,AMOUNT Amount;------ y 20,COMMENT Comments;--------------- 0,TO Transaction Type;----------- ---- 8,DATE Date;---- 10,AMOUNT Amount;------ yARHELP CMD 34BACKUP CMD567BAL CMD8BUSINESSDBF9BUSINESSNDX:CANCEL CMD ;<CATA CMD/=>?@ABCHECKNO FRMCCHREPORTFRMDDCANCEL CMD EFDEPO $$$* DEPOSIT.CMD * M. Lynn * Version 1.6 ERASE IF file = '2' SET INDEX TO INDBUSNO, BUSINESS STORE busbal TO curbal ELSE SET INDEX TO INDPERNO, PERSONAL STORE perbal TO curbal ENDIF STORE 'D' TO mtype STORE 0 TO recnum STORE 0 TO c:amt STORE date() TO c:dat SET INTENSITY ON @ 1,0 SAY 'SYSTEM DATE: '+date()+' ACCOUNT: '+maccount+' RECORD #:' @ 2, 0 SAY 'ACCOUNT NUMBER: '+ac:no+' CURRENT BALANCE' @ 1,65 SAY recnum @ 2, 65 SAY curbal DO WHILE T @ 2, 65 SAY curbal STORE ' ' TO mcomment STORE 0.00 TO c:amt SET INTENSITY ON @ 4, 0 SAY 'ENTER AMOUNT OF 0 TO EXIT' SET INTENSITY OFF @ 6, 0 SAY 'ENTER AMOUNT OF TRANSACTION $' GET c:amt READ IF c:amt = 0 SET INDEX TO RELEASE recnum, c:amt, c:dat, mtype, mcomment IF file = '2' STORE curbal TO busbal ELSE STORE curbal TO perbal ENDIF RETURN ENDIF APPEND BLANK STORE # TO recnum @ 1,65 SAY recnum @ 7, 0 SAY 'DATE OF TRANSACTION:' GET c:dat PICTURE '99/99/99' @ 9, 0 SAY 'D - Deposit, I - Interest, S - Service Charge: ' GET mtype PICTURE '!' @ 11, 0 SAY 'Enter Comments: ' GET mcomment READ DO CASE CASE mtype = 'D' REPLACE to WITH 'DEPOSIT', number WITH 0 STORE c:amt + curbal TO curbal CASE mtype = 'I' REPLACE to WITH 'INTEREST PAYMENT', number WITH 0 STORE c:amt + curbal TO curbal CASE mtype = 'S' REPLACE to WITH 'SERVICE CHARGE', number WITH 1 STORE curbal - c:amt TO curbal OTHERWISE REPLACE to WITH '?????' ENDCASE REPLACE amount WITH c:amt, date WITH c:dat, canceled WITH F, comment WITH mcomment, memo WITH '-' ENDDO ???' ENDCASE REPLACE amount ENSITY OFF @ 6, 0 SAY 'ENTER AMOUNT OF TRANSACTION $' GET c:amt READ IF c:amt = 0 SET INDEX TO RELEASE recnum, c:amt, c:dat, mtype, mcomment IF file = '2' STORE curbal TO busbal ELSE STORE curbal TO perbal ENDIF RETURN ENDIF APPEND BLANK STORE # TO recnum @ 1,65 SAY recnum @ 7, 0 SAY 'DATE OF TRANSACTION:' GET c:dat PICTURE '99/99/99' @ 9, 0 SAY* HELP.CMD * M. LYNN * Version 1.6 ERASE SET INTENSITY OFF @ 3, 0 SAY 'This system uses 2 checking account databases, BUSINESS and PERSONAL.' @ 4, 0 SAY 'The database now in use is: '+maccount @ 5, 0 SAY 'To change to the other database or to change the system date (necessary' @ 6, 0 SAY 'if one wants information regarding checks from another year) enter a 7' @ 7, 0 SAY 'from the main menu.' @ 9, 0 SAY 'For further information call '+TRIM(mbank)+' at '+mphone @ 10, 0 SAY 'If the programs blows up completely - call: '+help @ 12, 0 SAY 'The account number of the BUSINESS account is: '+bus:no @ 13, 0 SAY 'The account number of the PERSONAL account is: '+per:no @ 16, 0 SAY 'GOOD LUCK '+mname SET INTENSITY ON SET CONSOLE OFF WAIT SET CONSOLE ON RETURN ONAL account is: '+per:no @ 16, 0 SAY 'GOOD LUCK '+mname SET INTENSITY ON SET CONSOLE OFF WAIT SET CONSOLE ON * IND.CMD * M. Lynn * Version 1.6 * Should your index files become trashed, try running this program to * re-make them SET TALK ON USE B:PERSONAL PACK INDEX ON MEMO TO B:PERSONAL INDEX ON NUMBER TO B:INDPERNO USE B:BUSINESS PACK INDEX ON MEMO TO B:BUSINESS INDEX ON NUMBER TO B:INDBUSNO O B:PERSONAL INDEX ON NUMBER TO B:INDPERNO USE B:BUSINESS PACK INDEX ON MEMO TBUSINESSNDX:CANCEL CMD ;<CATA CMD/=>?@ABCHECKNO FRMCCHREPORTFRMDDCANCEL CMD EFDEPO FRMGDEPOSIT CMD HIHELP CMDJIND $$$ 2NUMBER 353MI Bell 94.52F09/10/83T 354Amoco 54.50F10/01/83Z B6@ B6P!B6`"B6p#B6$B6%B7&B7'B7 (B70)B7@*B7P+B7`,B7p-B7.B7/B80B81B8 2B803B8@4B8P5B8`6B8p7B88B89B9:B9;B9 B6@ B6P!B6`"B6p#B6$B6%B7&B7'B7 (B70)B7@*B7P+B7`,B7p-B7.B7/B80B81B8 2B803B8@4B8P5B8`6B8p7B88B89B9:B9;B9 <B90=B9@>B9P?B9`@B9pAB9BB9CB@DB@EB@ FB@0GB@@HB@PIB@`JB@pKB@LB@MBANBA 5B8`6B8p7B8 2NUMBER 353MI Bell 94.52F09/10/83T 354Amoco 54.50F10/01/83Z B6@ B6P!B6`"B6p#B6$B6%B7&B7'B7 (B70)B7@*B7P+B7`,B7p-B7.B7/B80B81B8 2B803B8@4B8P5B8`6B8p7B88B89B9:B9;B9 B6@ B6P!B6`"B6p#B6$B6%B7&B7'B7 (B70)B7@*B7P+B7`,B7p-B7.B7/B80B81B8 2B803B8@4B8P5B8`6B8p7B88B89B9:B9;B9 <B90=B9@>B9P?B9`@B9pAB9BB9CB@DB@EB@ FB@0GB@@HB@PIB@`JB@pKB@LB@MBANBA 5B8`6B8p7B8********************************************************************* * * * DBASEII CHECKBOOK SYSTEM * * Michael Lynn * * 221 S. Washington Street * * Ypsilanti, Mi. 48197 * * (313)-484-4297 * * * * This program may be used and modified freely. This notice * * must be retained, and use of this program for profit, other than * * by its author is forbidden. * * * ********************************************************************* * MENU.CMD * * M. Lynn  * * Version 1.6 * ********************************************************************* SET TALK OFF SET ESCAPE OFF SET INTENSITY OFF SET DEFAULT TO B RESTORE FROM B:INFO DO B:SIGN ERASE STORE T TO go DO WHILE go STORE ' ' to mdate @ 13, 19 SAY 'ENTER DATE' GET mdate PICTURE '99/99/99' READ IF VAL($(mdate,7,2))<80; .OR. VAL($(mdate,1,2))<1 .OR. VAL($(mdate,1,2))>12; .OR. VAL($(mdate,4,2))<1 .OR. VAL($(mdate,4,2))>31; .OR. (VAL($(mdate,1,2))=2 .AND. VAL($(mdate,4,2))>29) @ 15,19 SAY 'INCORRECT DATE - PLEASE TRY AGAIN' STORE 0 TO X DO WHILE X < 55 STORE X+1 TO X ENDDO @ 15, 0 @ 13, 0 LOOP ELSE SET DATE TO &mdate RELE mdate STORE F TO go ENDIF ENDDO STORE $(date(),7,2) TO year ERASE @ 10, 10 SAY 'SELECT CHECK BOOK' @ 12, 10 SAY '1 - Personal Account' @ 14, 10 SAY '2 - Business Account' SET CONSOLE OFF WAIT TO file SET CONSOLE ON IF file = '1' USE PERSONAL STORE 'PERSONAL' TO maccount STORE perbal TO curbal STORE per:no TO ac:no ELSE USE BUSINESS STORE 'BUSINESS' TO maccount STORE busbal TO curbal STORE bus:no TO ac:no ENDIF DO WHILE t ERASE SET INTENSITY OFF @ 4, 30 SAY 'CHECK BOOK MENU' @ 5, 30 SAY '===== ==== ====' @ 8, 10 SAY '0 - EXIT TO DBASE' @ 9, 10 SAY '1 - ENTER NEW CHECKS' @ 10, 10 SAY '2 - ENTER DEPOSIT, INTEREST PAYMENT OR SERVICE CHARGE' @ 11, 10 SAY '3 - CANCEL CHECKS' @ 12, 10 SAY '4 - VERIFY DEPOSITS' @ 13, 10 SAY '5 - REPORTS MENU' @ 14, 10 SAY '6 - BALANCE' @ 15, 10 SAY '7 - SWITCH TO OTHER CHECKBOOK OR CHANGE SYSTEM DATE' @ 16, 10 SAY '8 - HELP AND BANK INFORMATION' @ 17, 10 SAY '9 - ARCHIVE MENU' @ 18, 10 SAY 'x - EXIT TO CPM' @ 20, 0 SET CONSOLE OFF WAIT TO go SET CONSOLE ON SET INTENSITY ON DO CASE CASE go='0' @ 8, 8 SAY '*' @ 20, 0 RELEASE which, recnum, maccount, next, drive, dbf, ; maxdrive, year, fyear, ac:no, go IF file = '1' STORE curbal TO perbal  ELSE STORE curbal TO busbal ENDIF RELEASE curbal, file SAVE TO INFO SET TALK ON SET ESCAPE ON CANCEL CASE go='1' @ 9, 8 SAY '*' @ 20, 0 DO ENTER CASE go='2' @ 10, 8 SAY '*' @ 20, 0 DO DEPOSIT CASE go='3' @ 11, 8 SAY '*' @ 20, 0 DO CANCEL CASE go='4' @ 12, 8 SAY '*' @ 20, 0 DO DCANCEL CASE go='5' @ 13, 8 SAY '*' @ 20, 0 DO REPORT CASE go='6' @ 14, 8 SAY '*' @ 20, 0 DO BAL CASE go='7' @ 15, 8 SAY '*' @ 20, 0 ERASE @ 5, 0 SAY 'ENTER A Y TO CHANGE SYSTEM DATE FROM :'+DATE() SET CONSOLE OFF WAIT TO change SET CONSOLE ON IF !(change) = 'Y' ERASE STORE T TO go DO WHILE go STORE ' ' to mdate @ 13, 19 SAY 'ENTER DATE' GET mdate PICTURE '99/99/99' READ IF VAL($(mdate,7,2))<80; .OR. VAL($(mdate,1,2))<1 .OR. VAL($(mdate,1,2))>12; .OR. VAL($(mdate,4,2))<1 .OR. VAL($(mdate,4,2))>31; .OR. (VAL($(mdate,1,2))=2 .AND. VAL($(mdate,4,2))>29) @ 15,19 SAY 'INCORRECT DATE - PLEASE TRY AGAIN' STORE 0 TO X DO WHILE X < 55 STORE X+1 TO X ENDDO @ 15, 0 @ 13, 0 LOOP ELSE SET DATE TO &mdate RELE mdate STORE F TO go ENDIF ENDDO STORE $(date(),7,2) TO year ENDIF @ 7, 0 SAY 'ENTER A Y TO CHANGE TO OTHER CHECKBOOK' @ 8, 0 SAY 'CHECKBOOK IS CURRENTLY :'+maccount SET CONSOLE OFF WAIT TO change SET CONSOLE ON IF !(change) = 'Y' ERASE @ 10, 10 SAY 'SELECT CHECK BOOK' @ 12, 10 SAY '1 - Personal Account' @ 14, 10 SAY '2 - Business Account' SET CONSOLE OFF WAIT TO file SET CONSOLE ON IF file = '1' USE PERSONAL STORE 'PERSONAL' TO maccount STORE per:no TO ac:no STORE curbal TO busbal STORE perbal TO curbal ELSE USE BUSINESS STORE 'BUSINESS' TO maccount STORE bus:no TO ac:no STORE curbal TO perbal STORE busbal TO curbal ENDIF ENDIF RELEASE change CASE go='8' @ 16, 8 SAY '*' @ 20, 0 DO B:HELP CASE go='9' @ 17, 8 SAY '*' @ 20, 0 DO B:ARCHIVE CASE !(go)='X' @ 18, 8 SAY '*' @ 20, 0 RELEASE which, recnum, maccount, go, next, drive, dbf, maxdrive, ; year, fyear, ac:no IF file = '1' STORE curbal TO perbal ELSE STORE curbal TO busbal ENDIF RELEASE curbal, file SAVE TO INFO QUIT ENDCASE ENDDO curbal TO perbal ELSE STORE curbal TO busbal ENDIF RELEASE curLE ON IF !(change) = 'Y' ERASE @ 10, 10 SAY 'SELECT CHECK BOOK' @ 12, 10 SAY '1 - Personal Account' @ 14, 10 SAY '2 - Business Account' SET CONSOLE OFF WAIT TO file SET CONSOLE ON IF file = '1' USE PERSONAL STORE 'PERSONAL' TO maccount STORE per:no TO ac:no STORE curbal TO busbal STORE perbal TO curbal ELSE USE BUSINESS STORE 'BUSINESS' TO maccount STORE bus:no TO ac:no STORE curbal TO perbal STORE busbal TO curbal ENDIF ENDIF RELEASE change CASE go='8' @ 16, 8 SAY '*' @ 20, 0 DO B:HELP CASE go='9' @ 17, 8 SAY '*' @ * OSSIGN.CMD * M. LYNN * Version 1.6 ERASE SET INTENSITY OFF SET TALK OFF ? CHR(27)+'g' @ 8, 20 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 8, 27 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 8, 34 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 8, 41 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 8, 48 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 8, 55 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 9, 20 SAY CHR(24) @ 10, 20 SAY CHR(24) @ 11, 20 SAY CHR(24) @ 12, 20 SAY CHR(24) @ 13, 20 SAY CHR(24) @ 14, 20 SAY CHR(24) @ 15, 20 SAY CHR(24) @ 16, 20 SAY CHR(24) @ 17, 20 SAY CHR(24) @ 9, 61 SAY CHR(24) @ 10, 61 SAY CHR(24) @ 11, 61 SAY CHR(24) @ 12, 61 SAY CHR(24) @ 13, 61 SAY CHR(24) @ 14, 61 SAY CHR(24) @ 15, 61 SAY CHR(24) @ 16, 61 SAY CHR(24) @ 17, 61 SAY CHR(24) @ 10, 32 SAY 'CHECK BOOK SYSTEM' SET INTENSITY ON @ 12, 25 SAY '***HIGH-TECH DataBase Systems***' SET INTENSITY OFF @ 13, 26 SAY CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160) @ 13, 34 SAY CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160) @ 13, 41 SAY CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160) @ 13, 48 SAY CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160) SET INTENSITY ON @ 15, 30 SAY '--- Michael Lynn ---' @ 17, 26 SAY '1984, YPSILANTI, MI. ver. 1.6' SET INTENSITY OFF @ 18, 20 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 18, 27 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 18, 34 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 18, 41 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 18, 48 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 18, 55 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 19, 1 SAY CHR(27)+'G' STORE 1 TO c DO WHILE c < 120 STORE c+1 TO c ENDDO RELEASE c RETURN R(155)+CHR(155)+CHR(155) @ 19, 1 SAY CHR(27)+'G' STORE 1 TO c DO WHILE c < 120 STORE c+1 TO c ENDDO R@ 13, 34 SAY CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160) @ 13, 41 SAY CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160) @ 13, 48 SAY CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160)+CHR(160) SET INTENSITY ON @ 15, 30 SAY '--- Michael Lynn ---' @ 17, 26 SAY '1984, YPSILANTI, MI. ver. 1.6' SET INTENSITY OFF @ 18, 20 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 18, 27 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 18, 34 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 18, 41 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 18, 48 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 18, 55 SAY CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155)+CHR(155) @ 19, 1 SAY CHR(27)+'G' STORE 1 TO c DO WHILE c < 120 STORE c+1 TO c ENDDO RiNUMBERNlTOClAMOUNTN lCANCELEDLlDATEClMEMOCmCOMMENTC2m  370Mundus & Mundus 225.00F11/02/83J 371Hudsons 125.80F11/02/83Y 372Tile Stop 412.99F11/05/83H 373Kroger 14.62F11/06/83N 374U. Cellar 24.96F11/21/83N eMEMOR 353MI Bell 94.52F09/10/83T 354Amoco 54.50F10/01/83Z 0B6@ B6P!B6`"B6p#B6$B6%B7&B7'B7 (B70)B7@*B7P+B7`,B7p-B7.B7/B80B81B8 2B803B8@4B8P5B8`6B8p7B88B89B9:B9;B9 B6@ B6P!B6`"B6p#B6$B6%B7&B7'B7 (B70)B7@*B7P+B7`,B7p-B7.B7/B80B81B8 2B803B8@4B8P5B8`6B8p7B88B89B9:B9;B9 <B90=B9@>B9P?B9`@B9pAB9BB9CB@DB@EB@ FB@0GB@@HB@PIB@`JB@pKB@LB@MBANBA 5B8`6B8p7B8FUNdPROMPT1EKdEF)OREWARD 1 RECORD S)EARCH FOR ANOTHER NAME E)NTER NEW RECORDPROMPT2HdHB)ACKWARD 1 RECORD K)EYWORD SEARCH D)ELETE/EDIT RECORDSPROMPT3CdCQ)UIT TO CP/M A)DDRESS LABELSBdCHOICE d?ACTION d?RE 'B)ACKWARD 1 RECORD K)EYWORD SEARCH ; D)ELETE/EDIT RECORDS' TO PROMPT2 STORE 'Q)UIT TO CP/M ; A)DDRESS LABELS' TO PROMCHREPORTFRMDDCANCEL CMD EFDEPO FRMGDEPOSIT CMD HIHELP CMDJIND CMDKINDBUSNONDXLINDPERNONDXMMENU CMD+NOPQRSOSSIGN CMDTUVPERSONALDBFWPERSONALNDXXPROMPTS $$$* PURGE.CMD * M. Lynn * Version 1.6 STORE T TO ok STORE '80' TO myear IF file = '1' STORE 'PER' TO macc ELSE STORE 'BUS' TO macc ENDIF DO WHILE OK @ 16, 3 SAY 'For what year would you like to archive entries in' @ 17, 3 SAY 'the '+maccount+' Checkbook?' @ 18, 3 SAY 'Enter 00 to abort this command ----' GET myear PICTURE '99' READ @ 16, 0 SAY '| |' @ 17, 0 SAY '| |' @ 18, 0 SAY '| |' IF myear = '00' RELEASE ok, macc, myear, drive, dbf, more RETURN ELSE IF myear = year @ 16, 3 SAY 'It looks to me as if you want to archive the checks for the' @ 17, 3 SAY 'currrent year, which is not something I really want to do.' @ 18, 3 SAY 'If however you really do want to do that, go back to the' @ 19, 3 SAY 'main menu and change the system date to some other year.' @ 20, 3 SAY 'Please try again. -- Enter any character -- ' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 SAY '| |' @ 17, 0 SAY '| |' @ 18, 0 SAY '| |' @ 19, 0 SAY '| |' @ 20, 0 SAY '| |' LOOP ENDIF ENDIF LOCATE FOR $(date,7,2) = myear IF EOF @ 16, 3 SAY 'There are no records in the database from' @ 17, 3 SAY 'that year. Enter any character to continue' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 SAY '| |' @ 17, 0 SAY '| |' LOOP ENDIF @ 16, 3 SAY 'Enter a single letter for the drive you wish to use to store' @ 17, 3 SAY 'this a database: ' SET CONSOLE OFF WAIT TO drive SET CONSOLE ON @ 16, 0 SAY '| |' @ 17, 0 SAY '| |' DO CASE CASE !(drive) = 'A' CASE !(drive) = 'B' IF maxdrive < 2 @ 16, 3 SAY 'That is an ilegal drive' @ 18, 3 SAY 'Enter any character to try again' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 SAY '| |' @ 18, 0 SAY '| |' LOOP ENDIF CASE !(drive) = 'C' IF maxdrive < 3 @ 16, 3 SAY 'That is an ilegal drive' @ 18, 3 SAY 'Enter any character to try again' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 SAY '| |' @ 18, 0 SAY '| |' LOOP ENDIF CASE !(drive) = 'D' IF maxdrive < 4 @ 16, 3 SAY 'That is an ilegal drive' @ 18, 3 SAY 'Enter any character to try again' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 SAY '| |' @ 18, 0 SAY '| |' LOOP ENDIF CASE !(drive) = 'E' IF maxdrive < 5 @ 16, 3 SAY 'That is an ilegal drive' @ 18, 3 SAY 'Enter any character to try again' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 SAY '| |' @ 18, 0 SAY '| |' LOOP ENDIF OTHERWISE @ 16, 3 SAY 'That is an illegal drive' @ 18, 3 SAY 'Enter any character to try again' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 SAY '| |' @ 18, 0 SAY '| |' LOOP ENDCASE # drive STORE drive+':'+myear+macc TO dbf  IF FILE (dbf) @ 16, 3 SAY 'File '+dbf+' already exisits' @ 17, 3 SAY 'This operation will overwrite '+dbf @ 18, 3 SAY 'Enter a Y to continue or any other character to abort: (Y/N)' SET CONSOLE OFF WAIT TO more SET CONSOLE ON @ 16, 0 SAY '| |' @ 17, 0 SAY '| |' @ 18, 0 SAY '| |' IF !(more) # 'Y' RELEASE ok, macc, myear, drive, dbf, more RETURN ENDIF ENDIF @ 16, 3 SAY 'Copying records for 19'+myear+' to '+dbf COPY TO &dbf FOR $(date,7,2) = myear USE &maccount @ 16, 0 SAY '| |' @ 16, 3 SAY 'Deleting records for 19'+myear+' from '+maccount DELETE ALL FOR $(date,7,2) = myear @ 16, 0 SAY '| |' @ 16, 3 SAY 'Packing '+maccount PACK IF file = '1' @ 16, 0 SAY '| |' @ 16, 3 SAY 'Indexing '+maccount+' on the memo field' INDEX ON MEMO TO PERSONAL @ 16, 0 SAY '| |' @ 16, 3 SAY 'Indexing '+maccount+' on the number field' INDEX ON NUMBER TO INDPERNO ELSE @ 16, 0 SAY '| |' @ 16, 3 SAY 'Indexing '+maccount+' on the memo field' INDEX ON MEMO TO BUSINESS @ 16, 0 SAY '| |' @ 16, 3 SAY 'Indexing '+maccount+' on the number field' INDEX ON NUMBER TO INDBUSNO ENDIF STORE F TO ok ENDDO # ok RELEASE ok, macc, myear, drive, dbf, more RETURN field' INDEX ON NUMBER TO INDBUSNO ENDIF STORE F TO ok ENDDO # ok RELEASE ok, macc, myear, drive, dbf, more RETUR |' @ 16, 3 SAY 'Packing '+maccount PACK IF file = '1' @ 16* REGSIGN.CMD M.Lynn * Version 1.6 ERASE SET INTENSITY OFF @ 6, 11 SAY '*=========================================================*' @ 7, 11 SAY '| |' @ 8, 11 SAY '| Y O U R M O N E Y |' @ 9, 11 SAY '| ********************* |' @ 10, 11 SAY '| |' @ 11, 11 SAY '| WHERE DID IT ALL GO |' @ 12, 11 SAY '| ----- --- -- --- -- |' @ 13, 11 SAY '| |' @ 14, 11 SAY '| check register v. 1.6 |' @ 15, 11 SAY '| MICHAEL LYNN, YPSILANTI, MI. |' @ 16, 11 SAY '| 1984 |' @ 17, 11 SAY '*=========================================================*' @ 19, 0 STORE 1 TO counter DO WHILE counter < 110 STORE counter + 1 TO counter ENDDO RELEASE counter SET INTENSITY ON RETURN 0 STORE 1 TO counter DO WHILE counter < 110========*' @ 7, 11 SAY '| |' @ 8, 11 SAY '| Y O U R M O N E Y |' @ 9, 11 SAY '| ********************* |' @ 10, 11 SAY '| |' @ 11, 11 SAY '| WHERE DID IT ALL GO |' @ 12, 11 SAY '| ----- --- -- --- -- |' @ 13, 11 SAY '| |' @ 14, 11 SAY '| check register v. 1.6 |' @ 15, 11 SAY '| MICHAEL LYNN, YPSILANTI, MI. |' @ 16, 11 SAY '| 1984 |' @ 17, 11 SAY '*=========================================================*' @ 19, 0 STORE 1 TO counter DO WHILE counter < 110* REPORT.CMD * M. Lynn * Version 1.6 ERASE STORE $(date(),7,2) TO year STORE $(date(),1,2) TO mmonth IF file = '1' SET INDEX TO PERSONAL ELSE SET INDEX TO BUSINESS ENDIF DO WHILE T ERASE SET INTENSITY OFF @ 1, 0 SAY '-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-' @ 3, 0 SAY ' ***CHECKING ACCOUNT REPORTS (for current year)***' @ 5, 0 SAY ' 1 REPORT ARRANGED BY CATEGORY' @ 7, 0 SAY ' 2 COMPLETE ACCOUNT LISTING (no deposits, includes other years)' @ 9, 0 SAY ' 3 REPORT FOR A PARTICULAR CATEGORY' @ 11, 0 SAY ' 4 REPORT BY CHECK NUMBER' @ 13, 0 SAY ' 5 REPORT FOR PARTICULAR MONTH' @ 15, 0 SAY ' 6 REPORT FOR DEPOSIT & INTEREST PAYMENT' @ 17, 0 SAY ' 7 REPORT OF UNCANCELED CHECKS AND UNVERIFIED DEPOSITS' @ 19, 0 SAY ' 8 EXIT TO MAIN MENU' @ 21, 0 SAY '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=' @ 22, 0 SET INTENSITY ON SET CONSOLE OFF WAIT TO go SET CONSOLE ON ERASE IF go < '8' @ 21, 4 SAY 'ENTER A Y TO GET A PRINTED COPY' SET CONSOLE OFF WAIT TO print SET CONSOLE ON ERASE SET EJECT OFF ENDIF DO CASE CASE go ='1' IF !(print) ='Y' SET PRINT ON ENDIF ERASE SET HEAD TO REPORT FOR CHECKING ACCOUNT :19&year REPORT FORM B:CHREPORT FOR number # 0 .and. $(date,7,2) = year @ 22, 5 SAY 'PRESS ANY KEY TO CONTINUE' SET HEAD TO EJECT SET PRINT OFF SET CONSOLE OFF WAIT SET CONSOLE ON ERASE CASE go ='2' IF !(print) ='Y' SET PRINT ON ENDIF SET HEAD TO COMPLETE CHECKING ACCOUNT LISTING REPORT FORM B:CHREPORT FOR number # 0 @ 22, 5 SAY 'PRESS ANY KEY TO CONTINUE' SET HEAD TO EJECT SET PRINT OFF SET CONSOLE OFF WAIT SET CONSOLE ON ERASE CASE go ='3' @ 4, 3 SAY 'ENTER SPECIFIC CATEGORY FOR REPORT - ? FOR HELP: ' SET CONSOLE OFF WAIT TO mcata SET CONSOLE ON IF !(print) ='Y' SET PRINT ON ENDIF IF mcata = '?' SET INTENSITY OFF SET FORMAT TO MEMO READ SET FORMAT TO SCREEN @ 21,0 SAY 'ENTER CATEGORY LETTER' GET mcata PICTURE '!' READ SET INTENSITY ON ENDIF LOCATE FOR $(date,7,2) = year .AND. memo = mcata IF EOF SET PRINT OFF ERASE @ 10, 5 SAY 'There are no checks for category: '+mcata @ 22, 5 SAY 'PRESS ANY KEY TO CONTINUE' SET CONSOLE OFF WAIT SET CONSOLE ON ELSE SET HEAD TO REPORT FOR CATEGORY &mcata ERASE REPORT FORM B:CHREPORT FOR memo = !(mcata) .AND. $(date,7,2) = year @ 22, 5 SAY 'PRESS ANY KEY TO CONTINUE' SET HEAD TO EJECT SET PRINT OFF SET CONSOLE OFF WAIT SET CONSOLE ON ENDIF ERASE CASE go ='4' IF !(print) ='Y' SET PRINT ON ENDIF IF file = '2' SET INDEX TO INDBUSNO ELSE SET INDEX TO INDPERNO ENDIF SET HEAD TO LISTING FOR 19&year REPORT FORM B:CHECKNO FOR $(date,7,2) = year .AND. number # 0 EJECT SET PRINT OFF @ 22, 5 SAY 'PRESS ANY KEY TO CONTINUE' SET HEAD TO SET CONSOLE OFF WAIT SET CONSOLE ON SET HEAD TO ERASE IF file = '2' SET INDEX TO BUSINESS ELSE SET INDEX TO PERSONAL ENDIF CASE go ='5' @ 4, 1 SAY 'ENTER THE MONTH FOR REPORT AS A 2 DIGIT NUMBER' @ 5, 1 SAY 'REPORT WILL BE FOR 19&year ONLY' GET mmonth PICTURE '99' READ IF !(print) ='Y' SET PRINT ON ENDIF ERASE LOCATE FOR $(date,1,2) = mmonth .AND. $(date,7,2) = year .AND. number # 0 IF EOF ERASE SET PRINT OFF @ 10, 5 SAY 'There are no checks for month: '+mmonth @ 22, 5 SAY 'PRESS ANY KEY TO CONTINUE' SET CONSOLE OFF WAIT SET CONSOLE ON ELSE SET HEAD TO REPORT FOR MONTH: *&mmonth* ONLY REPORT FORM B:CHREPORT FOR $(date,1,2) = mmonth .and. $(date,7,2) = year; .AND. number # 0 EJECT SET PRINT OFF @ 22, 5 SAY 'PRESS ANY KEY TO CONTINUE' SET HEAD TO SET CONSOLE OFF WAIT SET CONSOLE ON ENDIF ERASE CASE go = '6' IF !(print) ='Y' SET PRINT ON ENDIF SET INDEX TO SET HEAD TO ACCOUNT: &maccount - YEAR 19&year REPORT FORM B:DEPO FOR $(date,7,2) = year .AND. number = 0 .AND. ; to # 'SERVICE CHARGE' EJECT SET PRINT OFF @ 22, 5 SAY 'PRESS ANY KEY TO CONTINUE' SET CONSOLE OFF WAIT SET CONSOLE ON SET HEAD TO ERASE IF file = '2' SET INDEX TO BUSINESS ELSE SET INDEX TO PERSONAL ENDIF CASE go = '7' IF !(print) ='Y' SET PRINT ON ENDIF IF file = '2' SET INDEX TO INDBUSNO ELSE SET INDEX TO INDPERNO ENDIF LOCATE FOR $(date,7,2) = year .AND. number # 1 .AND. .NOT. canceled IF EOF ERASE SET PRINT OFF @ 10, 5 SAY 'All checks have been canceled' @ 22, 0 SAY 'PRESS ANY KEY TO CONTINUE' SET CONSOLE OFF WAIT SET CONSOLE ON ELSE SET HEAD TO LISTING OF UNCANCELED CHECKS AND UNVERIFIED DEPOSITS FOR 19&year REPORT FORM B:CHECKNO FOR $(date,7,2) = year .AND. number # 1 .AND.; .NOT. canceled EJECT SET PRINT OFF @ 22, 5 SAY 'PRESS ANY KEY TO CONTINUE' SET HEAD TO SET CONSOLE OFF WAIT SET CONSOLE ON SET HEAD TO ENDIF ERASE IF file = '2' SET INDEX TO BUSINESS ELSE SET INDEX TO PERSONAL ENDIF CASE go ='8' SET INDEX TO RELEASE mmonth, go, print, mcata RETURN ENDCASE ENDDO E SET INDEX TO PERSONAL ENDIF CASE go ='8' SET INDEX TO RELEASE mmonth, go, print, mcatEX TO PERSONAL ENDIF CASE go = '7' IF !(print) ='Y' SET PRINT ON ENDIF IF file = '2' SET INDEX TO INDBUSNO ELSE SET INDEX TO INDPERNO ENDIF LOCATE FOR $(date,7,2) = year .AND. number # 1 .AND. .NOT. canceled IF EOF ERASE SET PRINT OFF @ 10, 5 SAY 'All checks have been canceled' @ 22, 0 SAY 'PRESS ANY KEY TO CONTINUE' SET CONSOLE OFF WAIT SET CONSOLE ON ELSE SET HEAD TO LISTING OF UNCANCELED CHECKS AND UNVERIFIED DEPOSITS FOR 19&year REPORT FORM B:CHECKNO FOR $(date,7,2) = year .AND. number # 1 .AND.; .NOT. canceled EJECT SET PRINT OFF @ 22, 5 SAY 'PRESS ANY KEY TO CONTINUE' SET HEAD TO SET CONSOLE OFF WAIT SET CONSOLE ON SET HEAD TO ENDIF ERASE IF file = '2' SET INDEX TO BUSINESS ELSE SET INDEX TO PERSONAL ENDIF CASE go ='8' SET INDEX TO RELEASE mmonth, go, print, mcat* RESTORE.CMD * M. Lynn * Version 1.6 STORE T TO ok STORE '80' TO myear IF file = '1' STORE 'PER' TO macc ELSE STORE 'BUS' TO macc ENDIF DO WHILE OK @ 16, 3 SAY 'For what year would you like to restore the archived entries in' @ 17, 3 SAY 'the '+maccount+' Checkbook' @ 18, 3 SAY 'Enter 00 to abort this command ---- ' GET myear PICTURE '99' READ @ 16, 0 SAY '| |' @ 17, 0 SAY '| |' @ 18, 0 SAY '| |' IF myear = '00' RELEASE ok, macc, myear, go, drive, dbf, try, del RETURN ELSE LOCATE FOR $(date,7,2) = myear IF .NOT. EOF @ 16, 3 SAY '*** WARNING - there are already entries in '+maccount+' for the' @ 17, 3 SAY 'year '+myear+' -- these new records will be added to the database' @ 18, 3 SAY 'and could result in duplicated entries if any are the same as' @ 19, 3 SAY 'the entries in the archived database.' @ 20, 3 SAY 'Do you wish to continue? (Y/N)' SET CONSOLE OFF WAIT TO go SET CONSOLE ON @ 16, 0 SAY '| |' @ 17, 0 SAY '| |' @ 18, 0 SAY '| |' @ 19, 0 SAY '| |' @ 20, 0 SAY '| |' IF !(go) # 'Y' RELEASE ok, macc, myear, go, drive, dbf, try, del RETURN ENDIF ENDIF ENDIF @ 16, 3 SAY 'Enter a single letter for the drive containing the' @ 17, 3 SAY 'archived database: ' SET CONSOLE OFF WAIT TO drive SET CONSOLE ON @ 16, 0 SAY '| |' @ 17, 0 SAY '| |' DO CASE CASE !(drive) = 'A' CASE !(drive) = 'B' IF maxdrive < 2 @ 16, 3 SAY 'That is an ilegal drive' @ 18, 3 SAY 'Enter any character to try again' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 SAY '| |' @ 18, 0 SAY '| |' LOOP ENDIF CASE !(drive) = 'C' IF maxdrive < 3 @ 16, 3 SAY 'That is an ilegal drive' @ 18, 3 SAY 'Enter any character to try again' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 SAY '| |' @ 18, 0 SAY '| |' LOOP ENDIF CASE !(drive) = 'D' IF maxdrive < 4 @ 16, 3 SAY 'That is an ilegal drive' @ 18, 3 SAY 'Enter any character to try again' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 SAY '| |' @ 18, 0 SAY '|  |' LOOP ENDIF CASE !(drive) = 'E' IF maxdrive < 5 @ 16, 3 SAY 'That is an ilegal drive' @ 18, 3 SAY 'Enter any character to try again' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 SAY '| |' @ 18, 0 SAY '| |' LOOP ENDIF OTHERWISE @ 16, 3 SAY 'That is an illegal drive' @ 18, 3 SAY 'Enter any character to try again' SET CONSOLE OFF WAIT SET CONSOLE ON @ 16, 0 SAY '| |' @ 18, 0 SAY '| |' LOOP ENDCASE STORE drive+':'+myear+macc TO dbf IF FILE (dbf) @ 16, 3 SAY 'File '+dbf+' located--' @ 17, 3 SAY 'Appending to '+maccount+'.dbf' ELSE @ 16, 3 SAY 'FILE '+dbf+' NOT FOUND' @ 17, 3 SAY 'Enter a Y to try again' SET CONSOLE OFF WAIT TO try SET CONSOLE ON @ 16, 0 SAY '|  |' @ 17, 0 SAY '| |' IF !(try) = 'Y' LOOP ELSE RELEASE ok, macc, myear, go, drive, dbf, try, del RETURN ENDIF ENDIF @ 16, 0 SAY '| |' USE &maccount APPEND FROM &dbf FOR $(date,7,2) = myear IF file = '1' @ 16, 3 SAY 're-indexing PERSONAL.DBF on the memo field' INDEX ON MEMO TO PERSONAL @ 16, 0 SAY '| |' @ 16, 3 SAY 're-indexing PERSONAL.DBF on the number field' INDEX ON NUMBER TO INDPERNO ELSE @ 16, 0 SAY '| |' @ 16, 3 SAY 're-indexing BUSINESS.DBF on the memo field' INDEX ON MEMO TO BUSINESS @ 16, 0 SAY '| |' @ 16, 3 SAY 're-indexing the BUSINESS.DBF on the number field' INDEX ON NUMBER TO INDBUSNO ENDIF @ 16, 0 SAY '| |' @ 16, 3 SAY 'Do you wish to delete the archive file '+dbf+' (Y/N)' SET CONSOLE OFF WAIT TO del SET CONSOLE ON @ 16, 0 SAY '| |' IF !(del) = 'Y' DELETE FILE &dbf ENDIF STORE F TO ok ENDDO # ok RELEASE ok, macc, myear, go, drive, dbf, try, del RETURN el) = 'Y' DELETE FILE &dbf ENDIF STORE F TO ok ENDDO # ok RELEASE SAY '| |' @ 16, 3 SAY 're-indexing PERSONAL.DBF on the number field' INDEX ON NUMBER TO INDPERNO ELSE @ 16, 0 SAY '| |' @ 16, 3 SAY 're-indexing BUSINESS.DBF on the memo field' INDEX ON MEMO TO BUSINESS @ 16, 0 SAY '| |' @ 16, 3 SAY 're-indexing the BUSINESS.DBF on the number field' INDEX ON NUMBER TO* SETUP.CMD * M. LYNN * Version 1.6 * Configuration file for CHECKBOOK SYSTEM SET TALK OFF SET DEFAULT TO B: SET INTENSITY OFF RELEASE ALL ERASE STORE 'Michael Lynn (313)-484-4297' TO help STORE ' ' TO mname STORE ' ' TO bus:no STORE ' ' TO per:no STORE ' ' TO mbank STORE '000-0000' TO mphone IF FILE ("B:SIGN.CMD") IF .NOT. FILE ("B:OSSIGN.CMD") STORE 'os' TO machine @ 8, 0 SAY 'System is currently installed as an Osborne I' @ 9, 0 SAY 'Do you wish to re-install as non-Osborne I (Y/N)' ELSE STORE 'non' TO machine @ 8, 0 SAY 'System is currently installed as non-Osborne I' @ 9, 0 SAY 'Do you wish to re-install as an Osborne I (Y/N)' ENDIF SET CONSOLE OFF WAIT TO proceed SET CONSOLE ON IF !(proceed) = 'Y' IF machine = 'os' @ 12, 0 SAY 'Re-installing for non-Osborne I' RENAME B:SIGN.CMD TO B:OSSIGN.CMD RENAME B:REGSIGN.CMD TO B:SIGN.CMD ELSE  @ 12, 0 SAY 'Re-installing for Osborne I' RENAME B:SIGN.CMD TO B:REGSIGN.CMD RENAME B:OSSIGN.CMD TO B:SIGN.CMD ENDIF ENDIF ELSE IF .NOT. FILE ("B:REGSIGN.CMD") .OR. .NOT. FILE ("B:OSSIGN.CMD") @ 8, 0 SAY 'THE NECESSARY FILES - REGSIGN.CMD AND OSSIGN.CMD ARE NOT ON' @ 9, 0 SAY 'THE B: DRIVE - RUN THIS PROGRAM AGAIN WHEN THEY ARE THERE' CANCEL ENDIF ERASE @ 3, 0 SAY 'Are you running this program on an Osborne I computer ?' @ 4, 0 SAY 'If so, please enter a Y -- enter any other character if' @ 5, 0 SAY 'you are not using an Osborne I.' SET CONSOLE OFF WAIT TO osborne SET CONSOLE ON IF !(osborne) = 'Y' RENAME B:OSSIGN.CMD TO B:SIGN.CMD ELSE RENAME B:REGSIGN.CMD TO B:SIGN.CMD ENDIF ENDIF RELEASE osborne, proceed, machine ERASE IF FILE ("B:INFO.MEM") RESTORE FROM B:INFO @ 8, 0 SAY 'Do you wish to re-install your account information? (Y/N): ' SET CONSOLE OFF WAIT TO go SET CONSOLE ON IF !(go) = 'Y' ERASE @ 3, 0 SAY 'This checking account system will keep records for two different' @ 4, 0 SAY 'accounts - they are assigned the names BUSINESS and PERSONAL.' @ 5, 0 SAY 'Please enter the following information.' @ 7, 0 SAY 'Your name' GET mname @ 8, 0 SAY 'The account number of your BUSINESS account' GET bus:no @ 9, 0 SAY ' The account number of your PERSONAL account' GET per:no @ 10, 0 SAY 'The name of your bank' GET mbank @ 11, 0 SAY 'The bank phone number' GET mphone PICTURE '999-9999' @ 12, 0 SAY 'If you change the values below, your current balance' @ 13, 0 SAY 'also change!' @ 14, 0 SAY 'Enter the begining balance of the PERSONAL account ' @ 14, 52 GET startper @ 15, 0 SAY 'Enter the begining balance of the BUSINESS account ' @ 15, 52 GET startbus READ STORE startper TO perbal STORE startbus TO busbal ENDIF ELSE ERASE STORE 00.00 TO startper STORE 00.00 TO startbus @ 3, 0 SAY 'This checking account system will keep records for two different' @ 4, 0 SAY 'accounts - they are assigned the names BUSINESS and PERSONAL.' @ 5, 0 SAY 'Please enter the following information.' @ 7, 0 SAY 'Your name' GET mname @ 8, 0 SAY 'The account number of your BUSINESS account' GET bus:no @ 9, 0 SAY ' The account number of your PERSONAL account' GET per:no @ 10, 0 SAY 'The name of your bank' GET mbank @ 11, 0 SAY 'The bank phone number' GET mphone PICTURE '999-9999' @ 12, 0 SAY 'Enter the begining balance of the PERSONAL account ' @ 12, 52 GET startper @ 13, 0 SAY 'Enter the begining balance of the BUSINESS account ' @ 13, 52 GET startbus READ STORE startper TO perbal STORE startbus TO busbal ENDIF USE PERSONAL STORE startper TO startbal GO TOP DO WHILE .NOT. EOF IF number = 0 .AND. to = 'DEPOSIT' .OR. to = 'INTEREST PAYMENT' STORE startbal + amount TO startbal ELSE STORE startbal - amount TO startbal ENDIF SKIP ENDDO STORE startbal to perbal USE BUSINESS STORE 0 TO startbal STORE startbus TO startbal GO TOP DO WHILE .NOT. EOF IF number = 0 .AND. to = 'DEPOSIT' .OR. to = 'INTEREST PAYMENT' STORE startbal + amount TO startbal ELSE STORE startbal - amount TO startbal ENDIF SKIP ENDDO STORE startbal TO busbal RELEASE go, startbal SAVE TO INFO RELEASE mname, bus:no, per:no, mbank, mphone, help, startper, startbus, ; perbal, busbal ERASE IF FILE ("B:MEMO.FMT") @ 8, 0 SAY 'Do you wish to re-install your MEMO categories? (Y/N): ' SET CONSOLE OFF WAIT TO go SET CONSOLE ON IF !(go) = 'Y' DO B:CATA ELSE SET CONSOLE OFF QUIT TO 'A:DB B:MENU' ENDIF ELSE DO B:CATA ENDIF  SET CONSOLE ON IF !(go) = 'Y' DO B:CATA ELSE SET CONSOLE OFF QUIT TO 'A:DB B:MENU' ENDIFartbal GO TOP DO WHILE .NOT. EOF IF number = 0 .AND. to = 'DEPOSIT' .OR. to = 'INTEREST PAYMENT' STORE startbal + amount TO startbal ELSE STORE startbal - amount TO startbal ENDIF SKIP ENDDO STORE startbal to perbal USE BUSINESS STORE 0 TO startbal STORE startbus TO startbal GO TOP DO WHILE .NOT. EOF IF number = 0 .AND. to = 'DEPOSIT' .OR. to = '* YEAR.CMD * M. Lynn * Version 1.6 ERASE SET INDEX TO SET INTENSITY OFF LOCATE FOR $(date,7,2) # year IF EOF @ 5, 0 SAY 'All records in the '+maccount+' database are for 19'+year @ 22, 0 SAY 'Enter any character to return to menu' SET CONSOLE OFF WAIT SET CONSOLE ON RELEASE c, line, newyear RETURN ELSE @ 5, 0 SAY 'The '+maccount+' database contains records from years other than 19'+year @ 6, 0 SAY 'They are as follows: ' STORE 1 TO c DO WHILE c < 5 STORE STR(c+10, 2) TO line STORE STR(VAL(year)-c, 2) TO newyear GO TOP LOCATE FOR $(date,7,2) = newyear IF EOF @ &line, 0 SAY 'no records for 19'+newyear ELSE @ &line, 0 SAY 'There are records in the database from 19'+newyear ENDIF STORE c + 1 TO c ENDDO # c LOCATE FOR VAL($(date,7,2)) < VAL(year)-4 .OR. VAL($(date,7,2)) > VAL(year) IF .NOT. EOF @ 16, 0 SAY 'These records may be incorrect -- please archive' @ 17, 0 SAY 'or delete them' ? 'NUMBER -- DATE -- AMOUNT' ? '--------------------------' LIST OFF number, date, amount FOR VAL($(date,7,2)) < VAL(year)-4; .OR. VAL($(date,7,2)) > VAL(year) ? 'ENTER ANY CHARACTER TO CONTINUE' SET CONSOLE OFF WAIT SET CONSOLE ON RELEASE c, line, newyear RETURN ELSE @ 22, 0 SAY 'ENTER ANY CHARACTER TO RETURN TO THE MENU' SET CONSOLE OFF WAIT SET CONSOLE ON ENDIF RELEASE c, line, newyear RETURN ENDIF # EOF RELEASE c, line, newyear RETURN SOLE OFF WAIT SET CONSOLE ON ENDIF RELEASE c, line, newyear RETURN ENDIF TORE STR(VAL(year)-c, 2) TO newyear GO TOP LOCATE FOR $(date,7,2) = newyear IF EOF @ &line, 0 SAY 'no records for 19'+newyear ELSE @ &line, 0 SAY 'There are records in the database from 19'+newyear ENDIF STORE c + 1 TO c ENDDO # c LOCATE FOR VAL($(date,7,2)) < VAL(year)-4 .OR. VAL($(date,7,2)) > VAL(year) IF .NOT. EOF @ 16, 0 SAY 'These records may be incorrect -- please archive' @ 17, 0 SAY 'or delete them' ? 'NUMBER -- DATE -- AMOUNT' ? '--------------------------'erase ?'******************************************' ?'* FONE BOOK - FBSTRT *' ?'* *' ?'* This program was written and placed *' ?'* in the public domain by Don Mankin *' ?'* MICRO-BASE (916-971-1395) 300/1200 *' ?'* Copyright (c) 1983 Donald L Mankin *' ?'* Please do not remove this notice *' ?'* *' ?'******************************************' ? wait to q release q STORE ' 'TO Q DO WHILE.NOT.Q='X' ERASE ?'Will you be using: <1> PC-DOS, MS-DOS or CP/M-86' ?' <2> CP/M-80' ? WAIT TO TYPE STORE !(TYPE) TO TYPE IF TYPE='1' STORE 'PRG'TO EXT STORE 'X'TO Q ENDIF IF TYPE='2' STORE 'CMD'TO EXT STORE 'X'TO Q ENDIF ENDDO ERASE ?'The following files are necessary:' ? ?'FBSTRT (this file)' ?'FB0.DOC becomes FONEBOOK.DOC (documentation)' ?'FB1.CMD becomes FBINIT.'-ext,' (initializes structure)' ?'FB2.CMD becomes FBCONFIG.'-ext,'(configures variables)' ?'FB3.CMD becomes FBMENU.'-ext,' (menu program)' ?'FB4.CMD becomes FBADDREC.'-ext,'(adds records)' ?'FB5.CMD becomes FBDSPREC.'-ext,'(displays records' ?'FB6.CMD becomes FBLSTREC.'-ext,'(lists records)' ?'FB7.CMD becomes FBPRTLBL.'-ext,'(prints labels)' ?'FB8.FRM becomes FBLPRINT.FRM (report form)' ? ?'If you have all the files on the left,' ?'Press C and the renaming will start.' ? wait to q store !(q) to q if q<>'C' release q,on,off,type,prefix,ext,rename return endif erase STORE'RENAME FB0.DOC TO FONEBOOK.DOC'TO REN0 STORE'RENAME FB1.CMD TO FBINIT.'TO PREFIX STORE PREFIX+EXT TO REN1 STORE'RENAME FB2.CMD TO FBCONFIG.'TO PREFIX STORE PREFIX+EXT TO REN2 STORE'RENAME FB3.CMD TO FBMENU.'TO PREFIX STORE PREFIX+EXT TO REN3 STORE'RENAME FB4.CMD TO FBADDREC.'TO PREFIX STORE PREFIX+EXT TO REN4 STORE'RENAME FB5.CMD TO FBDSPREC.'TO PREFIX STORE PREFIX+EXT TO REN5 STORE'RENAME FB6.CMD TO FBLSTREC.'TO PREFIX STORE PREFIX+EXT TO REN6 STORE'RENAME FB7.CMD TO FBPRTLBL.'TO PREFIX STORE PREFIX+EXT TO REN7 STORE'RENAME FB8.FRM TO FBLPRINT.FRM'TO REN8 ERASE ? REN0 &REN0 ? REN1 &REN1 ? REN2 &REN2 ? REN3 &REN3 ? REN4 &REN4 ? REN5 &REN5 ? REN6 &REN6 ? REN7 &REN7 ? REN8 &REN8 erase ?'If you want ever want to re-initialize,' ?'just kill FBINDEX.NDX and DO FBMENU.' ? ?'You may also change your search variables' ?'by killing VARIABLE.MEM and DO FBMENU.' ? WAIT TO Q release all do fbmenu ?'You may also change ,type,prefix,ext,rename return endif erase STORE'RENAME FB0.DOC TO FONEBOOK.DOC'TO REN0 STORE'RENAME FB1.CMD TO FBINIT.'TO PREFIX STORE PREFIX+EXT TO REN1 STORE'RENAME FB2.CMD TO FBCONFIG.'TO PREFIX STORE PREFIX+EXT TO REN2 STORE'RENAME FB3.CMD TO FBMENU.'TO PREFIX STORE PREFIX+EXT TO REN3 STORE'RENAME FB4.CMD TO FBADDREC.'TO PREFIX STORE PREFIX+EXT TO REN4 STORE'RENAME FB5.CMD TO FBDSPREC.'TO PREFIX STORE PREFIX+EXT TO REN5 STORE'RENAME FB6.CMD TO FBLSTREC.'TO PREFIX STORE PREFIX+EXT T FONE BOOK - DOCUMENTATION This program was written and placed in the public domain by Don Mankin MICRO-BASE (916-971-1395) 300/1200 Copyright (c) 1983 Donald L Mankin Please do not remove this notice 70370,124 ------------------------------------------------------------------------------- FONE BOOK consists of the following files - FBSTRT, FB0.DOC, FB1.CMD, FB2.CMD, FB3.CMD, FB4.CMD, FB5.CMD, FB6.CMD, FB7.CMD, & FB8.FRM. The first which must be done is to execute FBSTRT. From dBASE, type 'DO FBSTRT.' The period is necessary and there is no extension. FBSTRT will rename the files and provide proper extensions depending upon the computer you will be using. The next program will then initialize the data base. You will then be asked to specify 5 catagories. These catagories will be used later for selective searches. If later you decide to change these fields then kill FBVAR.MEM. The report was written to provide 132 columns on the Epson MX-80 but can be easily modified. If you have any questions you may leave me EMAIL or call my service at the above mentioned number. - DON - ified. If you have any questions you ma 70370,124 ------------------------------------------------------------------------------- FONE BOOK consists of the following files - FBSTRT, FB0.DOC, FB1.CMD, FB2.CMD, FB3.CMD, FB4.CMD, FB5.CMD, FB6.CMD, FB7.CMD, & FB8.FRM. The first which must be done is to execute FBSTRT. From dBASE, type 'DO FBSTRT.' The period is necessary and there is no extension. FBSTRT will rename the files and provide proper extensions depending upon the computer you will be using. The next program will then initialize the data base. You will then be asked to specify 5 catagories. These cerase ?'******************************************' ?'* FONE BOOK - FBINIT *' ?'* *' ?'* This program was written and placed *' ?'* in the public domain by Don Mankin *' ?'* MICRO-BASE (916-971-1395) 300/1200 *' ?'* Copyright (c) 1983 Donald L Mankin *' ?'* Please do not remove this notice *' ?'* *' ?'******************************************' ? wait to q release q erase ?'In this section you will create the structure. You will be shown what to' ?'enter when prompted. It is important to answer the questions EXACTLY as' ?'instructed.' ? WAIT TO Q release q erase ?'ENTER RECORD STRUCTURE AS FOLLOWS:' ?' FIELD NAME,TYPE,WIDTH,DECIMAL PLACES' ?' 001 FIRST,C,12' ?' 002 LAST,C,12' ?' 003 ADDRESS,C,25' ?' 004 CITY,C,18' ?' 005 STATE,C,2' ?' 006 ZIP,C,9' ?' 007 PHONE,C,25' ?' 008 CODE1,C,1' ?' 009 CODE2,C,1' ?' 010 CODE3,C,1' ?' 011 CODE4,C,1' ?' 012 CODE5,C,1' ?' 013 (Now press RETURN)' ?'INPUT DATA NOW?N' ? create fbdata use fbdata index on last to fbindex return  CODE5,C,1' ?' 013 (Now press RETURN)' ?'INPUT DATA NOW?N' ? create fbdata use fbdata E (916-971-1395) 300/1200 *' ?'* Copyright (c) 1983 Donald L Mankin *' ?'* Please do not remove this notice *' ?'* *' ?'******************************************' ? wait to q release q erase ?'In this section you will create the structure. You will be shown what to' ?'enter when prompted. It is important to answer the questions EXACTLY as' ?'instructed.' ? WAIT TO Q release q erase ?'ENTER RECORD STRUCTURE AS FOLLOWS:' ?' FIELD NAME,TYPE,WIDTH,DECIMAL PLACES' ?' 001 FIRST,C,12' ?' 002 LAST,C,12' ?' 003 ADDRESS,C,25' ?' 004 CITY,C,18' ?' 005 STATE,C,2' ?' 006 ZIP,C,9' ?' 007 PHONE,C,25' ?' 008 CODE1,C,1' ?' 009 CODE2,C,1' ?' 010 CODE3,C,1erase ?'******************************************' ?'* FONE BOOK - FBCONFIG *' ?'* *' ?'* This program was written and placed *' ?'* in the public domain by Don Mankin *' ?'* MICRO-BASE (916-971-1395) 300/1200 *' ?'* Copyright (c) 1983 Donald L Mankin *' ?'* Please do not remove this notice *' ?'* *' ?'******************************************' ? wait to q release q do while t erase ?'This section allows you to name 5 fields' ?'to be used for searches or printing labels.' ?'YOU MUST ENTER ALL 5 FIELDS' ? ?'Examples:' ? ?'1:Friend' ?'2:Relative' ?'3:Computer Addict' ?'4:Foostball Addict' ?'5:Christmas Card List' ? accept'1'to var1 accept'2'to var2 accept'3'to var3 accept'4'to var4 accept'5'to var5 erase @ 1,0 say'1'get var1 @ 2,0 say'2'get var2 @ 3,0 say'3'get var3 @ 4,0 say'4'get var4 @ 5,0 say'5'get var5 ? accept'Is this correct?'to q if !(q)='Y'  erase ?'Upon entering the main menu type dd Records to begin.' ? wait to q release q save to fbvar release all return endif enddo d Records to begin.' ? wait to q release q save to E (916-971-1395) 300/1200 *' ?'* Copyright (c) 1983 Donald L Mankin *' ?'* Please do not remove this notice *' ?'* *' ?'******************************************' ? wait to q release q do while t erase ?'This section allows you to name 5 fields' ?'to be used for searches or printing labels.' ?'YOU MUST ENTER ALL 5 FIELDS' ? ?'Examples:' ? ?'1:Friend' ?'2:Relative' ?'3:Computer Addict' ?'4:Foostball Addict' ?'5:Christmas Card List' ? accept'1'to var1 accept'2'to var2 accept'3'to var3 accept'4'to var4 accept'5'to var5 erase @ 1,0 say'1'get var1 @ 2,0 say'2'get var2 @ 3,0 say'3'get var3 @ 4,0 say'4'get var4 @ 5,0 say'5'get var5 ? accept'Is this correct?'to q if !(q)='Y' ****************************************** * FONE BOOK - FBMENU * * * * This program was written and placed * * in the public domain by Don Mankin * * MICRO-BASE (916-971-1395) 300/1200 * * Copyright (c) 1983 Donald L Mankin * * Please do not remove this notice * * * ****************************************** SELECT PRIMARY SET FORMAT TO SCREEN SET INTENSITY ON SET CONSOLE ON SET TALK OFF SET PRINT OFF SET BELL OFF IF.NOT.FILE('FBINDEX.NDX') DO FBINIT ENDIF USE FBDATA INDEX FBINDEX IF.NOT.FILE('FBVAR.MEM') DO FBCONFIG ENDIF RESTORE FROM FBVAR STORE '? CHR(7)' TO BEEP DO WHILE T GOTO TOP ERASE ?'*** FONE BOOK ***' ? ?'dd records' ?'isplay records' ?'ist by field' ?'ailing Labels' ?'

ack records' ?'uit program' ?'eport to print' ?'ort records' ? ?'Select your option' ?'( USE UPPER CASE )' ? STORE ' 'TO TYPE ACCEPT TO TYPE STORE !(TYPE) TO TYPE DO CASE CASE TYPE='A' DO FBADDREC CASE TYPE='D' DO FBDSPREC CASE TYPE='L' DO FBLSTREC CASE TYPE='M' DO FBPRTLBL CASE TYPE='R' ERASE ?'*** PRINTING ***' SET PRINT ON SET CONSOLE OFF ? CHR(15) REPORT FORM FBLPRINT EJECT ? CHR(18) SET CONSOLE ON CASE TYPE='P' ERASE ?'*** PACKING RECORDS ***' ? PACK CASE TYPE='S' ERASE ?'*** SORTING BY LAST NAME ***' SORT ON LAST TO FBBACK USE FBBACK COPY ALL TO FBDATA USE FBDATA ?'*** INDEXING RECORDS ***' INDEX ON LAST TO FBINDEX CASE TYPE='Q' SET TALK ON ERASE QUIT OTHERWISE &BEEP ?'** Invalid Entry **' STORE 1 TO XX DO WHILE XX<35 STORE XX+1 TO XX ENDDO WHILE XX<35 ENDCASE ENDDO WHILE T  DO WHILE XX<35 STORE XX+1 TO XX ENDDO WHILE XX<35 ENDCASE ENDDO WR(15) REPORT FORM FBLPRINT EJECT ? CHR(18) SET CONSOLE ON CASE TYPE='P' ERASE ?'*** PACKING RECORDS ***' ? PACK CASE TYPE='S' ERASE ?'*** SORTING BY LAST NAME ***' SORT ON LAST TO FBBACK USE FBBACK COPY ALL TO FBDATA USE FBDATA ?'*** INDEXING RECOR****************************************** * FONE BOOK - FBADDREC * * * * This program was written and placed * * in the public domain by Don Mankin * * MICRO-BASE (916-971-1395) 300/1200 * * Copyright (c) 1983 Donald L Mankin * * Please do not remove this notice * * * ****************************************** store ' 'to q do while.not.q='Q' append blank erase @ 1,0 say'First ' get first @ 2,0 say'Last ' get last @ 3,0 say'Address ' get address @ 4,0 say'City ' get city @ 5,0 say'State ' get state @ 6,0 say'Zip ' get zip @ 7,0 say'Phone ' get phone @ 9,0 say var1 get code1 @ 10,0 say var2 get code2 @ 11,0 say var3 get code3 @ 12,0 say var4 get code4 @ 13,0 say var5 get code5 read @ 15,0 say'uit or Return to Continue' ? accept to q store !(q) to q ENDDO ERASE ?'*** INDEXING RECORDS ***' INDEX ON LAST TO FBINDEX RELEASE q RETURN  ? accept to q store !(q) to q ENDDO ERASE ?'*** INDEXING RECORDS ***' INDEX ON LAST TO F * * This program was written and placed * * in the public domain by Don Mankin * * MICRO-BASE (916-971-1395) 300/1200 * * Copyright (c) 1983 Donald L Mankin * * Please do not remove this notice * * * ****************************************** store ' 'to q do while.not.q='Q' append blank erase @ 1,0 say'First ' get first @ 2,0 say'Last ' get last @ 3,0 say'Address ' get address @ 4,0 say'City ' get city @ 5,0 say'State ' get state @ 6,0 say'Zip ' get zip @ 7,0 say'Phone ' get phone @ 9,0 say var1 get code1 @ 10,0 say var2 get code2 @ 11,0 say var3 get code3 @ 12,0 say var4 get code4 @ 13,0 say var5 get code5 read @ 15,0 say'uit or Return to Continue' ? accept to q store !(q) to q ENDDO ERASE ?'*** INDEXING RECORDS ***' INDEX ON LAST TO F****************************************** * FONE BOOK - FBDSPREC * * * * This program was written and placed * * in the public domain by Don Mankin * * MICRO-BASE (916-971-1395) 300/1200 * * Copyright (c) 1983 Donald L Mankin * * Please do not remove this notice * * * ****************************************** do while t goto top erase clear gets store ' 'to answer ?'*** DISPLAY RECORDS ***' ? ?'Enter Last Name or uit' ? accept to search store !(search) to search if search='Q' release answer,search,prevrec return endif find &search if #=0 &beep ?'** Name not found **' store 1 to xx do while xx<35 store xx+1 to xx enddo while xx<35 enddo while t endif do while.not.answer='Q' erase @ 1,0 say'First ' get first @ 2,0 say'Last ' get last @ 3,0 say'Address ' get address @ 4,0 say'City ' get city @ 5,0 say'State ' get state @ 6,0 say'Zip ' get zip @ 7,0 say'Phone ' get phone @ 9,0 say var1 get code1 @ 10,0 say var2 get code2 @ 11,0 say var3 get code3 @ 12,0 say var4 get code4 @ 13,0 say var5 get code5 ? ?'dit, elete, ecall' ?'orward, ackward, uit' ? accept to answer store !(answer) to answer do case case answer='E' read case answer='D' delete ? ?'** Record deleted **' store 1 to xx do while xx<35 store xx+1 to xx enddo while xx<35 case answer='R' recall ? ?'** Record recalled **' store 1 to xx do while xx<35 store xx+1 to xx enddo while xx<35 case answer='F' store # to prevrec skip if #=prevrec &beep ?'** Record not found **' store 1 to xx do while xx<35 store xx+1 to xx enddo while xx<35 enddo while.not.answer='Q' endif case answer='B' store # to prevrec skip -1 if #=prevrec &beep ?'** Record not found **' store 1 to xx do while xx<35 store xx+1 to xx enddo while xx<35 enddo while.not.answer='Q' endif case answer='Q' enddo while.not.answer='Q' enddo while t otherwise &beep ?'** Invalid Entry **' store 1 to xx do while xx<35 store xx+1 to xx enddo while xx<35 endcase enddo while.not.answer='Q' enddo while t  do while xx<35 store xx+1 to xx enddo while xx<35 endcase enddo whil to xx do while xx<35 store xx+1 to xx enddo while xx<35 case answer='F' store # to prevrec skip if #=prevrec &beep ?'** Record not found **' store 1 to xx do while xx<35 store xx+1 to xx enddo while xx<35 enddo while.not.answer='Q' endif case answer='B****************************************** * FONE BOOK - FBLSTREC * * * * This program was written and placed * * in the public domain by Don Mankin * * MICRO-BASE (916-971-1395) 300/1200 * * Copyright (c) 1983 Donald L Mankin * * Please do not remove this notice * * * ****************************************** do while T goto top erase ?'*** LIST RECORDS ***' ? ?'List by:' ? ?'irst name' ?'ast name' ?'ddress' ?'ity' ?'tate' ?'ip' ?'

hone' ?'<1>',var1 ?'<2>',var2 ?'<3>',var3 ?'<4>',var4 ?'<5>',var5 ?' Deleted records' ?'uit program' ? ?'Select your option' ? accept to answer store !(answer) to answer do case case answer='Q' release q,search return case answer='F' ERASE ?'Enter First Name' ? accept to search ERASE ?'*** LIST SELECTIVE FIRST ***' locate for FIRST=search case answer='L' erase ?'Enter Last Name' ? accept to search erase ?'*** LIST SELECTIVE LAST ***' locate for last=search case answer='A' erase ?'Enter Address' ? accept to search ERASE ?'*** LIST SELECTIVE ADDRESS ***' ? locate for address=search case answer='C' erase ?'Enter city' ? accept to search ERASE ?'*** LIST SELECTIVE CITY ***' ? locate for city=search case answer='S' erase ?'Enter State' ? accept to search ERASE ?'*** LIST SELECTIVE STATE ***' ? locate for state=search case answer='Z' erase ?'Enter Zip' ? accept to search ERASE ?'*** LIST SELECTIVE ZIP ***' ? locate for zip=search case answer='P' erase ?'Enter Phone' ? accept to search ERASE ?'*** LIST SELECTIVE PHONE ***' ? locate for phone=search case answer='1' erase ? var1 ? ?'Enter 1 Character For Search' ? accept to search erase ?'*** LIST BY',var1,'***' locate for code1=search case answer='2' erase ? var2 ? ?'Enter 1 Character for Search' ? accept to search erase ?'*** LIST BY',var2,'***' locate for code2=search case answer='3' erase ? var3 ? ?'Enter 1 Character for Search' ? accept to search erase ?'*** LIST BY',var3,'***' locate for code3=search case answer='4' erase ? var4 ? ?'Enter 1 Character for Search' ? accept to search erase ?'*** LIST BY',var4,'***' locate for code4=search case answer='5' erase ? var5 ? ?'Enter 1 Character for Search' ? accept to search erase ?'*** LIST BY',var5,'***' locate for code5=search case answer='DEL' erase ?'*** LIST DELETED RECORDS ***' ? locate for * otherwise &beep ?'** Invalid Entry **' store 1 to xx do while xx<35 store xx+1 to xx enddo while xx<35 enddo while t endcase store ' 'to q do while .not. eof .and. .not. !(q)='Q' erase @ 1,0 say'First 'get first @ 2,0 say'Last 'get last @ 3,0 say'Address 'get address @ 4,0 say'City 'get city @ 5,0 say'State 'get state @ 6,0 say'Zip 'get zip @ 7,0 say'Phone 'get phone @ 9,0 say var1 get code1 @ 10,0 say var2 get code2 @ 11,0 say var3 get code3 @ 12,0 say var4 get code4 @ 13,0 say var5 get code5 ? ?'uit or Return to Continue' ? accept to q continue enddo enddo  get code4 @ 13,0 say var5 get code5 ? ?'uit or Return to Continue' rase ? var5 ? ?'Enter 1 Character for Search' ? accept to search erase ?'*** LIST BY',var5,'***' locate for code5=search case answer='DEL' erase ?'*** LIST DELETED RECORDS ***' ? loca****************************************** * FONE BOOK - FBPRTLBL * * * * This program was written and placed * * in the public domain by Don Mankin * * MICRO-BASE (916-971-1395) 300/1200 * * Copyright (c) 1983 Donald L Mankin * * Please do not remove this notice * * * ****************************************** erase ?'Want an Alignment Label?' ? accept to q do while !(q)='Y' erase set print on ? 'First, Last' ? 'Address..........' ? 'City, State. Zip' ? ? ? set print off erase ?'Want an alignment label?' ? accept to q enddo do while T release q,search store 'continue'to next goto top erase ?'*** PRINT LABELS ***' ? ?'Select by:' ? ?'irst name' ?'ast name' ?'ddress' ?'ity' ?'tate' ?'ip' ?'

hone' ?'<1>',var1 ?'<2>',var2 ?'<3>',var3 ?'<4>',var4 ?'<5>',var5 ?'<*> all records' ?'uit program' ? ?'Select your option' ? accept to q store !(q) to q do case case q='Q' release q,search,next return case q='F' ERASE ?'Enter First Name' ? accept to search ERASE ?'*** PRINT SELECTIVE FIRST ***' locate for FIRST=Search case q='L' erase ?'Enter Last Name' ? accept to search erase ?'*** PRINT SELECTIVE LAST ***' locate for last=search case q='A' erase ?'Enter Address' ? accept to search ERASE ?'*** PRINT SELECTIVE ADDRESS ***' ? locate for address=search case q='C' erase ?'Enter City' ? accept to search ERASE ?'*** PRINT SELECTIVE CITY ***' ? locate for city=search case q='S' erase ?'Enter State' ? accept to search ERASE ?'*** PRINT SELECTIVE STATE ***' ? locate for state=search case q='Z' erase ?'Enter Zip' ? accept to search ERASE ?'*** PRINT SELECTIVE ZIP ***' ? locate for zip=search case q='P' erase ?'Enter Phone' ? accept to search ERASE ?'*** PRINT SELECTIVE PHONE ***' ? locate for phone=search case q='1' erase ? var1 ? ?'Enter 1 Character for Search' ? accept to search erase ?'*** PRINT BY',var1,'***' locate for code1=search case q='2' erase ? var2 ? ?'Enter 1 Character For Search' ? accept to search erase ?'*** PRINT BY',var2,'***' locate for code2=search case q='3' erase ? var3 ? ?'Enter 1 Character for Search' ? accept to search erase ?'*** PRINT BY',var3,'***' locate for code3=search case q='4' erase ? var4 ? ?'Enter 1 Character for Search' ? accept to search erase ?'*** PRINT BY',var4,'***' locate for code4=search case q='5' erase ? var5 ? ?'Enter 1 Character for Search' ? accept to search erase ?'*** PRINT BY',var5,'***' locate for code5=search case q='*' store 'skip'to next erase ?'*** PRINT ALL RECORDS ***' ? goto top otherwise &beep ?'** Invalid Entry **' store 1 to xx do while xx<35 store xx+1 to xx enddo while xx<35 enddo while t endcase ? ? ? do while.not.eof set print on ? trim(first),last ? address ? trim(city)-',',state-'.',zip ? ? ? &next enddo while.not.eof set print off enddo while t m(first),last ? address ? trim(city)-',',state-'.',zip er 1 Character for Search' ? accept to search erase ?'*** PRINT BY',var3,'***' locate for code3=search case q='4' erase ? var4 ? ?'Enter 1 Character for Search' ? accept to search erase ?'*** PRINT BY',var4,'***' locate for code4=search case q='5' erase ? var5 ? ?'Enter 1 CM=10 N N N 12,LAST LAST NAME 12,FIRST FIRST NAME 25,ADDRESS ADDRESS 18,CITY CITY 5,STATE STATE 9,ZIP ZIP 25,PHONE PHONE 1,CODE1 1 1,CODE2 2 1,CODE3 3 1,CODE4 4 1,CODE5 5 DRESS 18,CITY CITY 5,STATE STATE 9,ZIP ZIP 25,PHONFB4 CMD FB5 CMDFB6 CMDFB7 CMDFB8 $$$ ** PHONEDEX.CMD VER 1.0 * SET VARIABLES SET talk OFF SET colon OFF STORE t TO fun * PRIMARY LOOP DO WHILE fun * SELECT DATABASE AND INDEX USE NAMES USE NAMES INDEX LAST * ESTABLISH SCREEN DISPLAY AND ACTION VARIABLES STORE 'F)OREWARD 1 RECORD S)EARCH FOR ANOTHER NAME; E)NTER NEW RECORD' TO PROMPT1 STORE 'B)ACKWARD 1 RECORD K)EYWORD SEARCH ; D)ELETE/EDIT RECORDS' TO PROMPT2 STORE 'Q)UIT TO CP/M ; A)DDRESS LABELS' TO PROMPT3 STORE CHR(31) TO B STORE '?' TO CHOICE STORE '?' TO ACTION * SAVE SCREEN DISPLAY AND ACTION VARIABLES SAVE TO PROMPTS STORE 'PHONEDEX' TO MODE ERASE * ASK WHAT RECORD TO SEARCH FOR ? ? ? ? ACCEPT 'PLEASE ENTER THE LAST NAME TO SEARCH FOR' TO NAMEM * TRIM AND SET RECORD POINTER STORE TRIM(!(namem)) TO namem FIND &namem * IF RECORD IS NOT FOUND GIVE USER INFORMATION * AND SOMETHING TO DO. IF # = 0 ? ? ? ? ? ' THAT NAME IS NOT IN PHONEDEX' ? ? ' PRESS X TO QUIT,' ? ' PRESS C TO LOOK FOR ANOTHER NAME' WAIT TO choice DO CASE * IF USER IS TOTALLY CONFUSED AND WANTS TO QUIT. CASE !(choice) = 'X' QUIT * IF USER WANTS TO TAKE ANOTHER HACK AT IT. CASE !(choice) = 'C' LOOP * IF USER CAN'T HIT RIGHT KEY OTHERWISE LOOP ENDCASE ENDIF * SCREEN LOOP DO WHILE action <> 'Q' * CLEAR AND PRESENT SCREEN ERASE @ 1, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 1,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 1,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 2, 0 SAY "&B" @ 2,36 SAY mode @ 2,78 SAY "&B" @ 3, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 3,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 3,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 4, 0 SAY "&B" @ 4,78 SAY "&B" @ 5, 0 SAY "&B" @ 5, 6 SAY TRIM(FIRST) + ' ' + LAST @  5,78 SAY "&B" @ 6, 0 SAY "&B" @ 6,78 SAY "&B" @ 7, 0 SAY "&B" @ 7, 6 SAY address @ 7,61 SAY ACODE @ 7,78 SAY "&B" @ 8, 0 SAY "&B" @ 8,78 SAY "&B" @ 9, 0 SAY "&B" @ 9, 6 SAY TRIM(CITY) + ', ' + STATE @ 9,51 SAY "HOME PHONE" @ 9,62 SAY phone1 @ 9,78 SAY "&B" @ 10, 0 SAY "&B" @ 10,78 SAY "&B" @ 11, 0 SAY "&B" @ 11, 6 SAY zip @ 11,49 SAY "OFFICE PHONE" @ 11,62 SAY PHONE2 @ 11,78 SAY "&B" @ 12, 0 SAY "&B" @ 12,78 SAY "&B" @ 13, 0 SAY "&B KEYWORD" @ 13,14 SAY keyword @ 13,78 SAY "&B" @ 14, 0 SAY "&B" @ 14,78 SAY "&B" @ 15, 0 SAY "&B ************************************************" @ 15,50 SAY "*************************** &B" @ 16, 0 SAY "&B" @ 16, 3 SAY prompt1 @ 16,78 SAY "&B" @ 17, 0 SAY "&B" @ 17, 3 SAY prompt2 @ 17,78 SAY "&B" @ 18, 0 SAY "&B" @ 18, 3 SAY prompt3 @ 18,78 SAY "&B" @ 19, 0 SAY "&B" @ 19,21 SAY "WHAT WOULD YOU LIKE TO DO NEXT" @ 19,52 GET ACTION @ 19,78 SAY "&B" @ 20, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 20,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 20,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" READ DO CASE * move foreward 1 record CASE !(action) = 'F' SKIP STORE '?' TO action LOOP * move backward 1 record CASE !(action) = 'B' STORE '?' TO action SKIP -1 LOOP * print labelS CASE !(action) = 'A' STORE '?' TO ACTION DO PRINT * EDIT OR DELETE RECORDS CASE !(action) = 'D' STORE '?' TO action DO EDIT * quit to CP/M CASE !(action) = 'Q' QUIT * SEARCH FOR A DIFFERENT NAME CASE !(action) = 'S' STORE 'Q' TO action LOOP * enter new records CASE !(ACTION) = 'E' STORE '?' TO ACTION DO ENTER * SEARCH BY KEYWORD CASE !(ACTION) = 'K' STORE '?' TO ACTION DO KEYWORD * IF USER SCREWS UP AND HITS SOMETHING ELSE  OTHERWISE STORE '?' TO ACTION ENDCASE ENDDO WHILE ACTION ENDDO WHILE FUN E STORE '?' TO ACTION ENDCASE ENDDO WHILE ACTION ENDDO WHILE FUN S SOMETHING ELSE OTHERWISE STORE '?' TO ACTION ENDCASE enddo WHILE ACTION ENDDO WHILE FUN  WHILE FUN choice DO CASE CASE !(choice) = 'X' QUIT CASE !(choice) = 'C' LOOP OTHERWISE LOOP ENDCASE endif DO WHILE action <> 'Q' ERASE @ 1, 0 TION DO PRINT * EDIT OR DELETE RECORDS CASE !(action) = 'D' STORE '?' TO action DO EDIT * quit to CP/M CASE !(action) = 'Q' QUIT * SEARCH FOR A DIFFERENT NAME CASE !(action) = 'S' STORE 'Q' TO action LOOP * enter new records CASE !(ACTION) = 'E' STORE '?' TO ACTION DO ENTER * SEARCH BY KEYWORD CASE !(ACTION) = 'K' STORE '?' TO ACTION DO KEYWORD * IF USER SCREWS UP AND HITS SOMETHING ELSE  DOCUMENTATION FOR PHONEDEX by Randy Gable Sunryder Enterprises PHONEDEX i simpl replacemen fo th des ROLODEؠ yo probabl hav now I i no intende t b mailin lis program thoug th databas file wil interchang wit severa mailin lis program fo you Christma an Arbo da car needs. PHONEDEؠ i writte i th DBASEI application languag an use tw indice cleverl name LAST.NDX an KEY.ND whic bot contai thre fak name s tha yo ma easil star th progra running. INSTRUCTIONS You firs mov i t plac al o th file i PHONEDEX.LB o disk the ad DBASE.CO an DBASEOVR.COM Don' dispai becaus yo hav s littl spac left 10 record take onl abou 14 o spac leavin 81 free thi wil giv yo enoug roo t stor th record o abou 578 o so intimat friends I thi doesn' see t b enoug room plac th DBASE.CO͠ an th DBASEOVR.CO file o dis A an th res o th file o B: se th defaul t B: an sen m th dat an tim o you next party. I yo typ DBAS PHONEDE yo wil b aske wha nam t searc for Th progra begin thi wa s tha yo ca QUICKL٠ fin th informatio yo need Yo nee onl ente th numbe o letter i take t discriminat th recor yo wan fro al th others I yo typ a "A yo wil ge th firs record on o thre fak record plac s thi woul work Yo wil als notic men a th bottom F)OREWAR RECOR an B)ACKWARĠ RECOR ar fairl self-explainatory S)EARCȠ FO ANOTHEҠ NAMŠ shouldn' kee yo u night either K)EYWOR SEARCȠ i searc fo record usin th keywor yo craftil ente whe yo ente records Yo ca us an numbe o keyword !suc a 'party o 'bozo an th keywor searc wil brin yo t th firs recor wit tha keyword Yo ca the g F)OREWAR RECOR t se th rest A lon a th wor KEYWOR i a th to o th display yo ar usein th keywor inde unti yo S)EARCH FOR A DIFFERENT NAME. Th P)RINԠ LABEL optio print a addres labe fo th recor o display hav you printe read firs o i wil prin it on your fingers. E)NTEҠ NE RECORD i probabl th firs comman yo wil nee an wil provid hour o fu an excitin dat entr fo th whol family Yo mus ente busines name unde "las name in order for the search command to find it. D)ELETE/EDI i obviousl th "eraser fo you PHONEDEX fo thos wh don' mak mistakes yo ca us i t delet th name of the people who move to get away from you. I yo fin som ne an craft wa t improv o thi program pleas b sur yo starte wit th newes version an sen you enhancement bac t m inclusion Th mos recen versio wil b poste o THŠ LOSԠ DUTCHMA RCP/M (602) 848-6708. So far, this is it. USER SUPPORTED SOFTWARE Thi i a interestin ne concep i softwar marketin tha allow th custome t tr th produc an decid i i wil b o us befor puttin ou an cash Thi marketin practic als assume tha th user wil hav som appreciatio fo th programmer' tim an mone investmen i bringin thi softwar t them I yo fin thi progra o som use donatio (suggest $25.00) to the author would be appreciated. M thank t Ashton-Tat fo creatin DBASŠ II t KAYPRϠ fo makin suc fu toy an t Ji Grone fo instruction and continual help in my play. Randy Gable Sunryder Enterprises 925 West 14 Street Tempe, Arizona 85281 Pleas sen cash check mone orders complaints suggestions bu reports o anythin o valu tha doesn' ea t th abov address.DUTCHMA RCP/M (602) 848-6708. So far, this is it. USER SUPPORTED SOFTWARE Thi i a interestin ne concep i softwar marketin tha allow th custome t tr th produc an decid i i wil b o us befor puttin ou an cash Thi marketin practic als assume tha th user wil hav som appreciatio fo th programmer' tim an mone investmen i bringin thi softwar t them I yo fin thi progra o som use donatio (suggest $25.00) to the author would be appreciated. M thank t Ashton-Tat fo creatin DBASŠ II t KAYPRϠ fo makin suc fu toy an t Ji Grone fo instruction and continual help in my play. Randy Gable Sunryder Enterprises 925 West 14 Street Tempe, Arizona 85281 Pleas sen cash ** EDIT.cmd * SET UP STORE first TO firstm STORE last TO lastm STORE address TO addressm STORE city TO citym STORE state TO statem STORE zip TO zipm STORE acode TO acodem STORE phone1 TO phone1m STORE phone2 TO phone2m STORE keyWORD TO keym STORE '?' TO CHOICE STORE 'DO YOU WANT TO D)ELETE OR E)DIT THIS RECORD ?' TO PROMPT1 STORE '** WARNING!!! DELETE PERMANENTLY ERASES THIS RECORD!!! **' TO PROMPT2 STORE 'PRESS RETURN TO GO BACK TO PHONEDEX' TO PROMPT3 * Clear and present screen ERASE @ 1, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 1,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 1,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 2, 0 SAY "&B" @ 2,30 SAY "EDIT RECORDS" @ 2,78 SAY "&B" @ 3, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 3,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 3,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 4, 0 SAY "&B" @ 4,78 SAY "&B" @ 5, 0 SAY "&B FIRST NAME" @ 5,15 GET firstm PICTURE '!!!!!!!!!!!!!!!!!!!!' @ 5,40 SAY "LAST NAME" @ 5,51 GET lastm PICTURE '!!!!!!!!!!!!!!!!!!!!' @ 5,78 SAY "&B" @ 6, 0 SAY "&B" @ 6,78 SAY "&B" @ 7, 0 SAY "&B ADDRESS" @ 7,13 GET addressm PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' @ 7,52 SAY "AREA CODE" @ 7,63 GET acodem PICTURE '(999)' @ 7,78 SAY "&B" @ 8, 0 SAY "&B" @ 8,78 SAY "&B" @ 9, 0 SAY "&B CITY" @ 9,10 GET citym PICTURE '!!!!!!!!!!!!!!!' @ 9,28 SAY "STATE" @ 9,34 GET statem PICTURE '!!!!' @ 9,51 SAY "HOME PHONE" @ 9,62 GET phone1m PICTURE '999-9999' @ 9,78 SAY "&B" @ 10, 0 SAY "&B" @ 10,78 SAY "&B" @ 11, 0 SAY "&B ZIP" @ 11, 9 GET zipm PICTURE '99999' @ 11,49 SAY "OFFICE PHONE" @ 11,62 GET phone2m PICTURE '999-9999' @ 11,78 SAY "&B" @ 12, 0 SAY "&B" @ 12,78 SAY "&B" @ 13, 0 SAY "&B KEYWORD" @ 13,13 GET keym PICTURE '!!!!!!!!!!' @ 13,78 SAY "&B" @ 14, 0 SAY "&B" @ 14,78 SAY "&B" @ 15, 0 SAY "&B ************************************************" @ 15,50 SAY "**************"************* &B" @ 16, 0 SAY "&B" @ 16, 3 SAY PROMPT1 @ 16,78 SAY "&B" @ 17, 0 SAY "&B" @ 17, 3 SAY PROMPT2 @ 17,78 SAY "&B" @ 18, 0 SAY "&B" @ 18, 3 SAY PROMPT3 @ 18,78 SAY "&B" @ 19, 0 SAY "&B" @ 19,78 SAY "&B" @ 20, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 20,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 20,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" * FIND OUT IF USER WANTS TO DELETE OR EDIT SET CONSOLE OFF WAIT TO CHOICE SET CONSOLE ON DO CASE * IF USER WANTS TO DELETE CASE !(CHOICE) = 'D' @ 19, 5 SAY '*********WORKING***************' DELETE PACK RELEASE ALL RESTORE FROM PROMPTS STORE 'PHONEDEX' to mode LOOP * IF USER WANTS TO EDIT CASE !(CHOICE) = 'E' READ REPLACE first WITH firstm REPLACE last WITH lastm REPLACE keyword WITH keym REPLACE address WITH addressm REPLACE city WITH citym REPLACE state WITH statem REPLACE zip WITH zipm REPLACE acode WITH acodem REPLACE phone1 WITH phone1m REPLACE phone2 WITH phone2m RELEASE ALL RESTORE FROM PROMPTS STORE 'PHONEDEX' TO mode LOOP * IF USER WANTS TO BAIL OUT OTHERWISE RELEASE ALL RESTORE FROM PROMPTS STORE 'PHONEDEX' TO mode LOOP ENDCASE rstm REPLACE last WITH lastm REPLACE keyword WITH keym REPLACE address WITH addressm REPLACE city WITH citym REPLACE state WITH statem REPLACE zip WITH zipm REPLA CONSOLE ON DO CASE * IF USER WANTS TO DELETE CASE !(CHOICE) = 'D' @ 19, 5 SAY '*********WORKING***************' DELETE PACK RELEASE ALL RESTORE FROM PROMPTS STORE 'PHONEDEX' to mode LOOP * IF USER WANTS TO EDIT CASE !(CHOICE) = 'E' READ REPLACE first WITH firstm REPLACE last WITH lastm REPLACE keyword WITH keym REPLACE address WITH addressm REPLACE city WITH citym REPLACE state WITH statem REPLACE zip WITH zipm REP ** ENTER CMD * SET UP SET INDEX TO LAST,KEY STORE t TO SILLY DO WHILE SILLY STORE 'ENTER BUSINESS NAMES UNDER "LAST NAME"' TO prompt1 STORE ' ' TO firstm STORE ' ' TO lastm STORE ' ' TO addressm STORE ' ' TO citym STORE 'ARIZ' TO statem STORE ' ' TO zipm STORE '(602)' TO acodem STORE ' ' TO phone1m STORE ' ' TO phone2m STORE ' ' TO keym STORE '?' TO choice STORE chr(31) TO b * CLEAR AND PRESENT SCREEN ERASE @ 1, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 1,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 1,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 2, 0 SAY "&B" @ 2,30 SAY "ENTER RECORDS" @ 2,78 SAY "&B" @ 3, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 3,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 3,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 4, 0 SAY "&B"  @ 4,78 SAY "&B" @ 5, 0 SAY "&B FIRST NAME" @ 5,15 GET firstm PICTURE '!!!!!!!!!!!!!!!!!!!!' @ 5,40 SAY "LAST NAME" @ 5,51 GET lastm PICTURE '!!!!!!!!!!!!!!!!!!!!' @ 5,78 SAY "&B" @ 6, 0 SAY "&B" @ 6,78 SAY "&B" @ 7, 0 SAY "&B ADDRESS" @ 7,13 GET addressm PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' @ 7,52 SAY "AREA CODE" @ 7,63 GET acodem PICTURE '(999)' @ 7,78 SAY "&B" @ 8, 0 SAY "&B" @ 8,78 SAY "&B" @ 9, 0 SAY "&B CITY" @ 9,10 GET citym PICTURE '!!!!!!!!!!!!!!!' @ 9,28 SAY "STATE" @ 9,34 GET statem PICTURE '!!!!' @ 9,51 SAY "HOME PHONE" @ 9,62 GET phone1m PICTURE '999-9999' @ 9,78 SAY "&B" @ 10, 0 SAY "&B" @ 10,78 SAY "&B" @ 11, 0 SAY "&B ZIP" @ 11, 9 GET zipm PICTURE '99999' @ 11,49 SAY "OFFICE PHONE" @ 11,62 GET phone2m PICTURE '999-9999' @ 11,78 SAY "&B" @ 12, 0 SAY "&B" @ 12,78 SAY "&B" @ 13, 0 SAY "&B KEYWORD" @ 13,13 GET keym PICTURE '!!!!!!!!!!' @ 13,78 SAY "&B" @ 14, 0 SAY "&B" @ 14,78 SAY "&B" @ 15, 0 SAY "&B ************************************************" @ 15,50 SAY "*************************** &B" @ 16, 0 SAY "&B" @ 16, 3 SAY prompt1 @ 16,78 SAY "&B" @ 17, 0 SAY "&B" @ 17,78 SAY "&B" @ 18, 0 SAY "&B" @ 18,78 SAY "&B" @ 19, 0 SAY "&B" @ 19,78 SAY "&B" @ 20, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 20,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 20,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" READ * MAKE SURE USER DIDN"N SCREW UP @ 16,3 SAY 'IS THIS ALL CORRECT ? y/n ' SET console OFF WAIT TO choice SET console ON * IF USER BLEW IT, START OVER AGAIN IF !(choice) = 'N' STORE '?' TO choice RELEASE FIRSTM RELEASE LASTM RELEASE ADDRESSM RELEASE CITYM RELEASE STATEM RELEASE ZIPM RELEASE ACODEM RELEASE PHONE1M RELEASE PHONE2M RELEASE KEYM * GIVE USER A CHANCE TO BAIL OUT @ 18,3 SAY 'PRESS X TO EXIT, RETURN TO CONTINUE' SET console OFF WAIT TO choice SET console ON IF !(choice) = 'X' USE NAMES INDEX LAST RELEA#SE ALL RESTORE FROM PROMPTS STORE 'PHONEDEX' TO MODE STORE F TO SILLY LOOP ELSE LOOP ENDIF !(choice) = 'X' ENDIF !(choice) = 'N' IF !(choice) = 'Y' ERASE @ 10,5 SAY 'PLACING NEW FILE IN DATABASE' STORE '?' TO choice APPEND BLANK REPLACE first WITH firstm REPLACE last WITH lastm REPLACE keyword WITH keym REPLACE address WITH addressm REPLACE city WITH citym REPLACE state WITH statem REPLACE zip WITH zipm REPLACE acode WITH acodem REPLACE phone1 WITH phone1m REPLACE phone2 WITH phone2m * SEE IF USER HAS MORE RECORDS TO ENTER @ 18,3 SAY 'X TO EXIT, RETURN TO CONTINUE' SET console OFF WAIT TO choice SET console ON * IF NOT, RELEASE, AND RETURN IF !(choice) = 'X' ERASE RELEASE ALL RESTORE FROM PROMPTS USE NAMES INDEX LAST STORE 'PHONEDEX' TO MODE STORE F TO SILLY LOOP * CONTINUE IF USER HAS MORE TO ENTER ELSE LOOP ENDIF !(choice) = 'X' ENDIF !(choice) = 'Y' ENDDO WHILE fun  ce) = 'X' ENDIF !(choice) = 'Y' ENDDO WHILE fun ce) = 'X' ENDIF !(choice) = 'Y' ENDDO WHILE fun ' ' TO firstm STORE ' ' TO lastm STORE ' ' TO addressm STORE ' ' TO citym STORE 'ARIZ' TO statem STORE ' ' TO zipm STORE '(602)' TO acodem STORE ' ' TO phone1m STORE ' ' TO phone2m STORE ' ' TO keym STORE '?' TO choice STORE chr(31) TO b ERASE phone1 WITH phone1m REPLACE phone2 WITH phone2m * SEE IF USER HAS MORE RECORDS TO ENTER @ 18,3 SAY 'X TO EXIT, RETURN TO CONTINUE' SET console OFF WAIT TO choice SET console ON * IF NOT, RELEASE, AND RETURN IF !(choice) = 'X' ERASE RELEASE ALL RESTORE FROM PROMPTS USE NAMES INDEX LAST STORE 'PHONEDEX' TO MODE STORE F TO SILLY LOOP * CONTINUE IF USER HAS MORE TO ENTER ELSE LOOP ENDIF !(choice) = 'X' ENDIF !(choice) = 'Y' ENDDO  $KEYWORDr+s~#foNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNADAMS BOSEWELL CHARLSON NNNNNNNNNNNNNNNNNNNNNBOZO PARTY PUTZ CHARLSON NNNNNNNNNNNNNNNNNNNNN* KEYWORD.CMD * SET UP USE NAMES INDEX KEY STORE 'KEYWORD ' TO MODE STORE ' ' TO KEYN * FIND OUT WHAT KEYWORD USER WANTS ERASE ? ? ? ? @ 10,10 SAY 'PLEASE ENTER KEYWORD TO SEARCH FOR' @ 10,46 GET KEYN PICTURE '!!!!!!!!!!' READ STORE TRIM(KEYN) TO KEYN * FIND KEYWORD FIND &KEYN * IF KEYWORD DOESN'T EXIST, SHUT DOWN AND GO BACK IF # = 0 ERASE ? ? ? ? ?' THAT KEYWORD HAS NOT BEEN USED' RELEASE ALL RESTORE FROM PROMPTS STORE 'PHONEDEX' TO MODE STORE '?' TO CHOICE USE NAMES INDEX LAST LOOP ENDIF # = 0 * IF IT DOES, SHOW IT. INDEX IS STILL KEYWORD LOOP "&B" @ 17,78 SAY "&B" @ 18, 0 SAY "&B" @ 18,78 SAY "&B" @ 19, 0 SAY "&B" @ 19,78 SAY "&B" @ 20, 0 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 20,30 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" @ 20,50 SAY "&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B&B" READ * MAKE SURE USER DIDN"N SCREW UP @ 16,3 SAY 'IS THIS ALL CORRECT ? y/n LASTr+s~#foNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNADAMS BOSEWELL CHARLSON NNNNNNNNNNNNNNNNNNNNNADAMS BOSEWELL CHARLSON NNNNNNNNNNNNNNNNNNNNN$~LASTCpFIRSTCpKEYWORDC pADDRESSCpCITYC qSTATECqZIPCqACODEC!qPHONE1C&qPHONE2C.q ADAMS ARNOLD A. BOZO 999 N. 9 ST ABCHISON ARK 99999(999)999-9999999-9991 BOSEWELL BOLIVER B. PARTY 888 N. 88 LN. BOSTON MASS88888(888)888-8888888-8888 CHARLSON CHARLEY PUTZ 777 N. 7 ST. CHARLSTON N.C.77777(777)777-7777777-7777"OFFICE PHONE" @ 11,62 SAY PHONE2 @ 11,78 SAY "&B" @ 12, 0 SAY "&B" @ 12,78 SAY "&B" @ 13, 0 SAY "&B KEYW* PRINT.CMD * CLEAR SCREEN ERASE * TURN ON PRINTER AND STORE PRESENT RECORD SET PRINT ON STORE TRIM(FIRST) TO FIRSTM STORE TRIM(LAST) TO LASTM STORE TRIM(ADDRESS) TO ADDRESSM STORE TRIM(CITY) TO CITYM STORE STATE TO STATEM STORE ZIP TO ZIPM * PRINT STUFF IN STORAGE ? ' '+FIRSTM+' '+LASTM ? ' '+ADDRESSM ? ' '+CITYM+' '+STATEM+' '+ZIPM ? ? * CLEAR SCREEN AND TURN OFF PRINTER ERASE SET PRINT OFF * RELEASE MEMORY VARIABLES RELEASE ALL * GET PROMPTS BACK RESTORE FROM PROMPTS STORE 'PHONEDEX' TO MODE * GO BACK TO SCREEN SCREEN LOOP LOOP B" @ 7, 6 SAY address @ 7,61 SAY ACODE @ 7,78 SAY "&B" @ 8, 0 SAY "&B" @ 8,78 SAY "&B" @ 9, 0 SAY "&B" @ 9, 6 SAY TRIM(CITY) + ', ' + STATE @ 9,51 SAY "HOME PHONE" @ 9,62 SAY phone1 @ 9,78 SAY "&B" @ 10, 0 SAY "&B" @ 10,78 SAY "&B" @ 11, 0 SAY "&B" @ 11, 6 SAY zip @ 11,49 SAY "OFFICE PHONE" @ 11,62 SAY PHONE2 @ 11,78 SAY "&B" @ 12, 0 SAY "&B" @ 12,78 SAY "&B" @ 13, 0 SAY "&B KE This is the release date of the disk. CHREPORTFRM DDCANCEL CMD EDEPO FRM GDEPOSIT CMD HHELP CMD JIND CMD KINDBUSNONDX LINDPERNONDX MMENU CMD NOSSIGN CMD TPERSONALDBF WPERSONALNDX XPROMPTS MEM YPURGE CMD ZBUSINESS.NDX 48 79 1024 8 CANCEL .CMD 3A 54 1536 12 CATA .CMD 6F 46 6016 47 CHECKNO .FRM 2F 78 256 2 CHREPORT.FRM 7F 23 256 2 DCANCEL .CMD C8 1F 1152 9 DEPO .FRM EE 7B 256 2 DEPOSIT .CMD 31 E0 1664 13 HELP .CMD 1D D6 896 7 IND .CMD AA 02 384 3 INDBUSNO.NDX 8D 1F 1024 8 INDPERNO.NDX 8D 1F 1024 8 MENU  Fog Library Disk FOG-CPM.091 Copyright (1986) by Fog International Computer Users Group to the extent not copyrighted by the original author for the exclusive use and enjoyment of its members. Any reproduction or distribution for profit or personal gain is strictly forbidden. For information, contact FOG, P. O. Box 3474, Daly City, CA. 94015-0474. 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 -07-00 .86 This is the release date of the disk. -CPM091 .DOC This is the description of the disk contents. ARTICLES.DOC 360D 3K [Articles Index 1 of 3] A dBASE II data file of interesting topics covered in the Portable Companion (Aug/Sep 82 to Oct 83) and the FOGHORN (May 83 to Sept 83). The same data is in a WordStar text file ARTICLES.DBF ACBF 21K [Articles Index 2 of 3] ARTICLES.TXT 092C 19K [Articles Index 3 of 3] DB-CHECK.DOC A1D2 2K ver. 1.6 [dBASE Check Book 1 of 29] A checkbook register program (requires dBASE II) for business and personal checks. ARCHIVE .CMD 4FA8 3K ver. 1.6 [dBASE Check Book 2 of 29] ARHELP .CMD CD08 2K ver. 1.6 [dBASE Check Book 3 of 29] BACKUP .CMD 1DAF 3K ver. 1.6 [dBASE Check Book 4 of 29] BAL .CMD 0C0B 1K ver. 1.6 [dBASE Check Book 5 of 29] BUSINESS.DBF AEF2 1K ver. 1.6 [dBASE Check Book 6 of 29] BUSINESS.NDX 4879 1K ver. 1.6 [dBASE Check Book 7 of 29] CANCEL .CMD 3A54 % 2K ver. 1.6 [dBASE Check Book 8 of 29] CATA .CMD 6F46 6K ver. 1.6 [dBASE Check Book 9 of 29] CHECKNO .FRM 2F78 1K ver. 1.6 [dBASE Check Book 10 of 29] CHREPORT.FRM 7F23 1K ver. 1.6 [dBASE Check Book 11 of 29] DCANCEL .CMD C81F 2K ver. 1.6 [dBASE Check Book 12 of 29] DEPO .FRM EE7B 1K ver. 1.6 [dBASE Check Book 13 of 29] DEPOSIT .CMD 31E0 2K ver. 1.6 [dBASE Check Book 14 of 29] HELP .CMD 1DD6 1K ver. 1.6 [dBASE Check Book 15 of 29] IND .CMD AA02 1K ver. 1.6 [dBASE Check Book 16 of 29] INDBUSNO.NDX 8D1F 1K ver. 1.6 [dBASE Check Book 17 of 29] INDPERNO.NDX 8D1F 1K ver. 1.6 [dBASE Check Book 18 of 29] MENU .CMD 0B73 6K ver. 1.6 [dBASE Check Book 19 of 29] OSSIGN .CMD B0A0 3K ver. 1.6 [dBASE Check Book 20 of 29] PERSONAL.DBF F03B 1K ver. 1.6 [dBASE Check Book 21 of 29] PERSONAL.NDX A8BD 1K ver. 1.6 [dBASE Check Book 22 of 29] PROMPTS .MEM 1133 1K ver. 1.6 [dBASE Check Book 23 of 29] PURGE .CMD 39AA 6K ver. 1.6 [dBASE Check Book 24 of 29] REGSIGN .CMD D024 2K ver. 1.6 [dBASE Check Book 25 of 29] REPORT .CMD C96A 6K ver. 1.6 [dBASE Check Book 26 of 29] RESTORE .CMD EE7F 6K ver. 1.6 [dBASE Check Book 27 of 29] SETUP .CMD 02ED 5K ver. 1.6 [dBASE Check Book 28 of 29] YEAR .CMD E917 2K ver. 1.6 [dBASE Check Book 29 of 29] FBSTRT . 8DAF 3K [FONE BOOK 1 of 10] An electronic phone list (for dBASE II users). The FBSTRT is an initialization program to get you started. FB0 .DOC 72A8 2K [FONE BOOK 2 of 10] FB1 .CMD 7118 2K [FONE BOOK 3 of 10] FB2 .CMD A7C4 2K [FONE BOOK 4 of 10] FB3 .CMD AFE4 3K [FONE BOOK 5 of 10] FB4 .CMD 296C 2K [FONE BOOK 6 of 10] FB5 .CMD 02BC 3K [FONE BOOK 7 of 10] FB6 .CMD 6D37 4K [FONE BOOK 8 of 10] FB7 .CMD DA3F 4K [FONE BOOK 9 of 10] FB8 .FRM A0A3 1K [FONE BOOK 10 of 10] PHONEDEX.CMD 5461 5K ver. 1.0 [Phone/Rolodex 1 of 9] A Rolodex type program in dBASE II. PHONEDEX.TXT D86C 5K ver. 1.0 [Phone/Rolodex 2 of 9] EDIT .CMD 124F 4K ver. 1.0 [Phone/Rolodex 3 of 9] ENTER .CMD D843 5K ver. 1.0 [Phone/Rolodex 4 of 9] KEY .NDX 285F 1K ver. 1.0 [Phone/Rolodex 5 of 9] KEYWORD .CMD 88E9 1K ver. 1.0 [Phone/Rolodex 6 of 9] LAST .NDX 0F57 1K ver. 1.0 [Phone/Rolodex 7 of 9] NAMES .DBF 409D 1K ver. 1.0 [Phone/Rolodex 8 of 9] PRINT .CMD 2E87 1K ver. 1.0 [Phone/Rolodex 9 of 9]  [FONE BOOK 3 of 10] FB2 .CMD A7C4 2K [FONE BOOK 4 of 10] FB3 .CMD AFE4 3K [FONE BOOK 5 of 10] FB4 .CMD 296C 2K [FONE BOOK 6 of 10] FB5 .CMD 02BC 3K [FONE BOOK 7 of 10] FB6 .CMD 6D37 4K [FONE BOOK 8 of 10] FB7 .CMD DA3F 4K [FONE BOOK &'