IMD 1.16: 31/05/2007 20:40:29 FOGCPM.148 --FOGCPM148HANDY-10DOC HANDY-10DOC !"HANDY-10DOCB#$%&'()*+-09-00 86 -CPM148 DOC!ACTPLANSCMD,-ACTPLANSDBF.ACTPLANSNDX/ACTPLANSTXT0AGGENDASCMD123AGGENDASDBF4AGGENDASNDX567CALCULATCMD89:CHANGEOPCMD;DECISIONCMD<=>DECISIONDBF?DECISIONNDX@ERASTIMECMDAEXITWORKCMDBCEXPENSESCMDDEFEXPENSESDBFGEXPENSESFRMHEXPENSESNDXIFILECABSCMD'JKLMNFILECABSDBFOFILECABSNDXPFONEBOOKCMDQRSTFONEBOOKDBFUFONEBOOKNDXtVWXYZ[\]^_`abcdGETXTIMECMDefLIFETIMECMDgMILEAGESDBFhMILEAGESFRMiMILEAGESNDXjNEXTDATECMDkNOTEBOOKCMDlmNOTEBOOKDBFnNOTEBOOKNDXoNOTEBOOKTXTpNOTECARDCMDqrsPLANNINGCMD5tuvwxyzPLANNINGDBF{PLANNINGNDX|PRINTIMECMD}REMINDERCMD~REMINDERDBFREMINDERNDXSAYMONTHCMDSAYTODAYCMDSIXMONTHCMDTODOLISTCMDTODOLISTDBFTODOLISTNDXWORKMENUCMD WSTATIONCMDThis is the disk name. .op DOCUMENTATION FOR HANDY+ PERSONAL WORKSTATION Version 1.0 Peter C. Hawxhurst 15 October, 1984 HANDY+ PERSONAL WORK STATION Version 1.0 NOTICE AND DISCLAIMER Copyright (C) 1984 by Peter C. Hawxhurst, all rights reserved. HANDY+ may be freely copied and distributed as long as this notice and documentation accompany all copies, and as long as all distributed copies are in the original form as may be revised by the author. No sale or merchandising of HANDY+ is permitted without the consent of its author. The Author of HANDY+, Peter C. Hawxhurst, makes no warranties, either expressed or implied with respect to this documentation or to the software described herein, its quality, performance or fitness for any particular purpose. The entire risk as to HANDY+ quality or performance is with the user. The user assumes any incidental or consequential damages resulting from their use of the HANDY+ Personal Work Station System. In no event will the system's author be liable for direct, indirect incidental or consequential damages, even if the author has been advised of the possibility of such damages. If you are using this system and find it of value, your contribution ($25 suggested) for its continued maintenance, updating and support by the author will be appreciated. Peter C. Hawxhurst 705 Bayside Court Wheeling, Illinois 60090 312-398-6184 Regardless of whether you make a contribution, you are encouraged to copy and share this system. ACKNOWLEDGEMENTS Osborne Executive is a trademark of the Osborne Computer Corporation. dBASE II is a trademark owned by Ashton-Tate CP/M Plus and CBASIC are registered trademarks of Digital Research, Inc. IBM Personal Computer is a trademark of the IBM Corporation. SuperCalc is a registered trademark of Sorcim Corporation. WordStar is a registered trademark of MicroPro International Corporation. HANDY+ PERSONAL WORK STATION Version 1.0 DOCUMENTATION TABLE OF CONTENTS Introduction....................................................1 Installing and Invoking HANDY+..................................5 The Main System Menu............................................7 Subsystem Menus.................................................8 Commands from within Applications...............................8 Input Screens / Entry Panels....................................9 Entry Errors...................................................10 The Calculator.................................................10 Applications in General........................................11 Expense Account................................................11 Time Management................................................12 Action Planning................................................13 Not Book/Log..................................................13 Filin Cabinet.................................................14 Addres an Phon Book.........................................14 Decision Support Tool..........................................15 Specia Report an Utilities..................................16 Appendices: A. Modifying HANDY+ for Other Computers.................17 B. Using HANDY+ on an IBM PC............................18 C. A Handy PC tool......................................19 D. Combining files with VDO.............................20 E. List of HANDY+ Files.................................21 F. Updating of HANDY+...................................22 .pn INTRODUCTION HANDY+ is an advanced version of the HANDY System, a personal time management system written by the same author several years ago. The original HANDY was written in CBASIC. This version is written in dBASE II to be more portable between computers, provide a more versatile, accessable time management database and to facilitate distribution of source code for user modification according to their own needs. Although HANDY+ was written on an Osborne Executive Computer with a CP/M Plus Operating System and uses many of the features of each, including available licensed and public domain software, it should be readily adaptable to other computers that can run dBASE II. Users need only be able to modify a dBASE II command file and be familiar with a few nuances of their computer system (like getting the date and time from memory) in order to make HANDY+ operate effectively for them in their computing environment. This broadened version of the HANDY System is intended to be the corner stone for the development of a personal work station. With but a very few modifications to the main HANDY+ command file (WORKMENU.CMD) users can configure a work station that fulfills their own productivity needs. The more powerful their computer system, especially in regard to disk capacity, the more efficient a work station can be developed. The concept of a computer work station is a single tool with which creative professionals and administrators can directly produce most of their daily output moving smoothly and freely from one type of application to another often combining the data from a few into one. Studies at major corporations indicate a potential productivity improvement in the direct generation of documentation as opposed to turnaround required with clerical and other technical support personnel. For example, a design engineer could produce a brief report combined with some spreadsheet analysis and graphics generated from spreadsheet data possibly on one sheet of paper individually all on one work station. This would be in lieu of drafting a document for a secretary to type and a sketch for a drafter to draw up, passing them back and forth for revision and correction then cutting and pasting to produce the final document. Even with "hunt and peck" typists the former has been shown to have a faster turnaround time than the latter. I will not go into all the reasons for this as a part of this documentation, however. I should point out, though, that this phenomenon is even more pronounced when electronic mail potential is included as a part of the workstation. Suffice it to say there is the potential to work more efficiently with a number of applications packages bundled together that can be moved between with a few key strokes and a minimum of disk changes. HANDY+ with its built in "desk top" utilities is designed to be the control point for this movement. Some "workstation" software commercially available now allows the use of multiple applications on the computer screen concurrently in "windows" with the ability to move data from one window to another and create a combined document. The best employ a "mouse" along with the keyboard. HANDY+ will not do this, nor will it readily facilitate document combination (see Appendix D, however), but it is free and can act as a traffic cop for multiple applications on a single floppy disk. As indicated above, the more disk capacity, the greater potential multiple applications along side HANDY+ and greater potential productivity improvement. INSTALLING AND INVOKING HANDY+ HANDY+ is designed to operate as a two disk system. Most of the HANDY+ program (command) files reside on a disk in drive B of the computer along with database files and their respective indexes. dBASE II and other commercial or public domain productivity programs are intended to reside on a disk in drive A of the computer. The disk capacity of the OSBORNE (double density) computers does not allow space for the dBASE II version 2.4X ".MSG" file if all the features designed into HANDY+ are to be employed to the maximum. This does not affect the operation of dBASE II, only the ability to use the HELP feature in this later version. Computers with greater disk capacity may be able to include this file and, as stated in the Introduction, alternate productivity programs or files. To install HANDY+ one should first format a blank diskette and copy their computer's operating system onto this diskette if it is to be used for cold or warm booting. Such is recommended, although eliminating this file may add significant disk space on the drive A program disk for other purposes. The dBASE II program files and other files desired for maximum productivity should also be copied to this diskette. Some of these may have to be renamed for HANDY+ to recognize them or command lines in the HANDY+ routines may have to be changed (see the Modifying HANDY+ section in the Appendices of this documentation). The HANDY+ routine WSTATION.CMD should also be copied to the drive A program diskette along with the routine GETXTIME for an Osborne EXECUTIVE computer. All other HANDY+ routines, report form, database and index files should be copied to a blank formatted diskette for drive B. A typical configuration of HANDY+ on the Osborne EXECUTIVE computer would be as follows: DRIVE A DISKETTE: CP/M+ Operating System.  Osborne Executive DATE.COM program dBASE II program files. SuperCalc2 program files HANDY+ WSTATION.CMD and GETXTIME.CMD files. Public domain programs as follows: VDO text editor renamed TEXTEDIT.COM. EX-FNKEY.COM renamed SETFKEYS. EX-KEYS.COM renamed SHOWKEYS.COM. EXCLOCK.COM. DRIVE B DISKETTE: HANDY+ .DBF, .NDX, .FRM and .TXT files. HANDY+ .CMD files other than WSTATION.CMD & GETXTIME The above is as HANDY+ is configured to run as distributed in this version. Invoking HANDY+ is merely accomplished by typing "dBASE WSTATION" from the "A>" prompt (quotation marks not included). Alternatively a special function key may of course be set to do this. The HANDY+ Copyright Notice will follow the dBASE II notice and the user will be asked to insert their data/work station in drive B then press RETURN to begin. It is advisable to set the system clock with the DATE program before invoking HANDY+ as the date and time will be displayed after the Copyright Notice. However, such can also be done from within HANDY+ if desired. The HANDY+ screens have been designed to allow the date and time to be displayed continuously in the upper right hand corner of the CRT display if the user has a program to create such a window (like EXCLOCK). If not, the user can have the current date and time displayed from within HANDY+ as requested. THE MAIN SYSTEM MENU Once the user has inserted their data/work station diskette in drive B and pressed RETURN following the sign-on message, HANDY+ will display its Main System Menu: HANDY+ PERSONAL WORK STATION SYSTEM MAIN MENU Exit System.......................0 Calculator........................1 Expense Account...................2 Time Management...................3 Action Planning...................4 Notebook/Log......................5 Filing Cabinet....................6 Address & Phone Book..............7 Decision Support Tool.............8 Special Reports & Utilities.......9 Please enter an option number (0-9) The user may select an activity from this menu by simply pressing the number next to the desired activity. Each activity selection has its own submenu, including the "Exit System" selection. This selection is of particular importance: From the "Exit System" selection (option 0) the user may exit not only to the computer's operating system but to other programs, utilities, dBASE II direct command mode and to set the system date and time or display it. It is from within the routine that controls this activity that users will make most of their  personal/computer modifications of HANDY+. The Exit Work subsystem menu is as shown below: EXIT SYSTEM A - Exit to the operating system B - Exit to the database manager C - Exit to text editor & return D - Exit to spreadsheet & return E - Exit to another work station F - Exit to function key resetup G - Exit to disk control utility H - Exit to set the system clock R - Exit to the main system menu Option (0-9; A-H or R)? Another selection of importance is Option 9 - "Special Reports and Utilities." Nothing is included in HANDY+ for this selection. This is an area for the user to create their own applications and access them from the HANDY+ main routine. The other selections from the main menu should be self explanitory except for Option 8 - "Decision Support Tool" which will be discussed at length in a subsequent section of this documentation. SUBSYSTEM MENUS As mentioned in the previous section, a Main System Menu selection will, with the exception of the calculator and decision support tool options, bring up a subsystem menu for selection of a specific, related function. Subsystem option selections are single letters. Subsystem menus appear to the right of the Main System Menu with a blinking title. The purpose of having both menus appear on the screen at the same time is to permit the user to select a subsystem option or select an option from the Main System Menu instead. Either a Main System Menu option or a subsystem option may selected while viewing a subsystem menu. If the user simply wishes to return to the Main System Menu, the "R" option which appears on all subsystem menus may be selected. Selection of an option other than "R" from a subsystem menu starts an application function in HANDY+. When quitting a selected application the user is in most cases returned to the Main System Menu rather than the subsystem menu from which the application function was selected. COMMANDS FROM WITHIN APPLICATIONS Most subsystem applications have a command line at the bottom of the CRT display indicating to the user functions that may be performed respective to the application selected. Most of the command lines are identical and a typical one is as follows: ___________________________________________________ A)dd E)dit F)uture N)ext P)ast R)estart Q)uit WAITING The "WAITING" below the command information line indicates that the selected application is awaiting a command entry by the user. A command is the single letter to the left of the ")" inserted in the command word and may be entered in upper or lower case. The command information line above is typical of a time management  application. Note: A or Add Wil allo th use t mak ne entr o additio appropriat t th applicatio a hand. E or Edit Will allow the user to browse or edit previous application entries. F or Future Will allow the user to enter a future date and display application information for that date. N or Next Will take the user to the next day in a similar way as the F (Future) function. P or Past Does the opposite of the F (Future) function. R or Restart Takes the user back to the system's date (note the importance of setting this date). Q or Quit Takes the user out of the  application at hand back to the Main System Menu. Other functions that may appear on command information lines are P (Page) to go to the next page of an application; S (Select) to choose an application entry for more information/manipulation; and C (Change) to modify something in an application. INPUT SCREENS / ENTRY PANELS With but a few exceptions, fancy input screens or entry panels have not been designed into HANDY+. It is felt this would be redundant to dBASE II and its powerful features. Most data input and editing is done within standard dBASE II Append, Edit or Browse screen formats. Such speeds HANDY+ execution. It is further required that the dBASE II control commands be used to "on-screen" edit or manipulate data. For example, ^W (CTRL and W pressed simultaneously) will write new or edited data to an applications database file. Likewise, ^Q will leave an editing or browsing mode without writing new data to a database file. ^U will delete or undelete a database record and so on. While HANDY+ is very, very user friendly, it is important that users become intimately familiar with the dBASE II control functions for full screen editing. A word of caution on entering dates and times: In most cases the "/" for a date entry or the ":" for time entries will appear within the area designated for the particular type of input. Do not include them when making such entries. Dates should be entered in their complete form - MM/DD/YY (i.e. Month Month/Day Day/Year Year). January 1st, 1984 would be entered 01/01/84 with zeroes included for months or days less than 10. Similarly, times should be entered completely as HH:MM (i.e. Hour Hour:Minute Minute) with zeroes included for hours or minutes less than 10. One a.m. would be entered 01:01. ENTRY ERRORS In the original CBASIC HANDY System version the author went to great lengths to protect the user from bombing out of an application by entering a letter instead of a number, entering an erroneous date or formatting an entry incorrectly. This required many lengthy subroutines taking up perhaps 75-80% of the program code. Such is not the case in this version of HANDY; the author's philosophy has changed! The input required by HANDY+ while important to the user, is anything but complicated. It is believed users sophisticated enough to use dBASE II will soon learn how to avoid errors in using this system, and that it would be an insult to their intellegence to waste disk space with redundant program code. In any case dBASE II has many error checking features built into it, and employing its standard input screens as much as possible enhances entry error elimination. THE CALCULATOR ver simpl calculato routin ha bee include i HANDY fo simpl mathmatica function fro th user' "des top. I ma tak som gettin use to Th to o th calculato pictur display tw entr screens on marke "fcn t th righ an numeri entr scree t it left "fcn stand fo "function an on o th function liste o th calculato itsel i entere here Firs numbe mus b entere i th lef entr area The th RETUR o ENTE ke mus b presse t mov the curso t th fc inpu area An functio entr wil caus th curso t jum bac t th numeri entr area. The user may simply press RETURN or ENTER when the cursor is in the numeric entry area without entering a number to jump to the function input area. A number entered in the function input area will cause one of the options on the Main System Menu to be selected. This is why this menu remains on the screen with the calculator. The calculator has been designed for the potential of  two hand operation. The functions selectable ore in a small area of the left hand side of the computer's keyboard. The right hand can operate the numeric key pad and ENTER key while the left hand selects calculator functions. If something is placed into the calculator's single memory, a blinking "M" will appear above the function entry area to indicate such. The memory may of course be added to, subtracted from or cleared. The memory may also be recalled to the numeric entry area as input. dBASE II's full screen editing functions are usable with the calculator. APPLICATIONS IN GENERAL Most of the other HANDY+ applications are straight forward and require little explination. The menus for the various subsystems will be listed in following sections with a few notes as to particular nuances important to keep in mind relative to the applications in each subsystem. Additional notes/documentation will be entered in these sections as users identify needs or problems in using applications. EXPENSE ACCOUNT The subsystem menu for the Expense Account subsystem is as follows: EXPENSE ACCOUNT SUBSYSTEM A - Add/update an expense record B - Edit/browse expense database C - Expenses report per a period D - Summary of expenses for year E - Enter an auto mileage record F - Edit/browse mileage database G - Mileage expenses by a period H - Auto mileage expense summary R - Exit to the main system menu Option (0-9; A-G or R)? Notes: o Very simple and straight forward subsystem with standard dBASE II data entry, data entry and report form formats. o Essentially two databases: General expenses and mileage expenses are kept separately. TIME MANAGEMENT The subsystem menu for the Time Management subsystem is as follows: TIME MANAGEMENT SUBSYSTEM A - Daily appointment calendar B - Daily action planning list C - Monthly planning calendars D - Six month calendar display E - Monthly reminder notations R - Return to main system menu Option (0-9; A-E or R)? Notes: o The heart of the original HANDY system as those who used it will recognize. o Most applications very straight forward and easy to use. o The Monthly Planning Calendars allows blocking out of days for an activity in a standard calendar format. Activities may be up to seven days in duration (longer activities require multiple entries), and any day or series of days can only display one activity. o The Six Month Calendar Display does not require a database or user input other than than commands to move forward or backward in time. o Some of the routines driving these applications may seem to operate slowly, but it is expected that one will remain within the a particular application at length and operation within the application itself is speedy. ACTION PLANNING The subsystem menu for the Action Planning subsystem is as follows: ACTION PLANNING SUBSYSTEM A - Display action plan topics B - Make planning item entries C - Scan the planning database D - Display/edit a action plan E - Go to general action plans R - Return to main system menu Option (0-9; A-D or R)? Notes: o Actio plan ar kep i th for o 3x not cards Thi subsyste doe mak us o a inpu scree i tha format an dBASŠ Iɠ editin features are usable. Th "G t genera actio plans optio take th use t thei tex edito fo fre for o listin action plan entries. NOTEBOOK/LOG The subsystem menu for the Notebook/Log subsystem is as follows: NOTEBOOK/LOG SUBSYSTEM A - List notebook/log subjects B - Make notebook/log entries C - Scan the notebook database D - Display or edit a notation E - Go to the general notebook R - Return to main system menu Option (0-9; A-D or R)? Notes: o Thi subsyste operate identicall t th Actio Planning subsystem. o Th "G t genera notebook optio agai take th use t thei tex edito fo fre for not or log entries. FILING CABINET Th subsyste men fo th Filin Cabine subsyste i a follows: FILING CABINET SUBSYSTEM A - Log alternate disk/cabinet B - Display folders in cabinet C - Browse/edit files database D - Display the disk directory E - Delete file from directory R - Return to main system menu Option (0-9; A-E or R)? Notes: o Thi i ver simpl syste t organiz dis files into file folders as documents. o Som basi utilitie fo dis fil managemen ar also included. ADDRESS AND PHONE BOOK The subsystem menu for the Phone Book subsyste m is as follows: PHONE BOOK SUBSYSTEM A - Family telephone number list B - Acquaintances telephone list C - Office/co-workers phone list D - Business firm telephone list E - Shop/services telephone list F - Emergency phone numbers list G - Other telephone numbers list R - Exit to the main system menu Option (0-9; A-G or R)? Notes: o Selectin on o th option fro thi subsyste men wil displa name an䠠 phon堠 number respective of the category selected. o Thi subsyste act a a addres boo a well Selectin砠 th "S optio fro th堠 comman informatio lin allow th use t se th entir entr fo particula nam whe th recor numbe next to the name is entered on request. o Additionally i th use wishe t edi a entr the ma d s afte goin throug th Selec (S process. o Th "P optio allow th use t pag throug th phon boo fo th particula categor the ar in Th "R o restar optio take th use bac to the first "Page" of the category. DECISION SUPPORT TOOL Decisio Suppor Too doe no hav subsyste men an deserve some special explination. Th genera concep o thi applicatio i fo th use t ente numbe o consideration bearin o som decisio th use i making A a example let sa th use i contemplatin th purchas o a automobile fe consideration on migh ente are as follows: Cost Mileage Manufacturer Maintainability Style Model Power or engine size etc. Whe th use i don enterin consideration the ar aske t rat th importanc o each Thi i don o on o on basis on consideratio agains eac o th other individually Fo example: Which is more important - COST or MILEAGE. Which is more important - COST or MANUFACTURER Which is more important - COST or MAINTAINABILITY and so forth down to POWER OR ENGINE SIZE Then the query process starts again: Which is more important - MILEAGE or MANUFACTURER Which is more important - MILEAGE or MAINTAINABILITY an s o dow th list Durin th quer proces priorit matri i developed A th en o thi proces th consideration ar liste i orde o thei relativ importanc to the user, highest priority at the top. Its a simple tool but helpful. SPECIAL REPORTS AND UTILITIES A mentione previously ther i n subsyste men fo th Specia Report an Utilitie subsystem I fac ther i n Specia Report an Utilitie subsystem Thi i a are fo th use t creat thei ow hand utilities etc. alon wit thei own menu. Examples may be: routin t setu th user printe i differen operating modes. Routine t prin ou dat fro th HANDY database i particula formats N prin ou feature hav bee included in the HANDY+ system. Routine t driv othe softwar tha HANDY ha bee designed to access. Appendix A MODIFYING HANDY+ FOR OTHER COMPUTERS Remember HANDY wa create o a Osborn Executiv Compute i CPM operatin environment. Mos modification necessar t permi HANDY t operat wel o othe computer wil b mad i th comman fil WORKMENU.CMD Wit th exceptio o th comman fil WSTATION.CMD al HANDY comman file a distribute ar i shor for dBASŠ Iɠ cod withou comments Thi ma mak i mor difficul fo th les experience dBAS I use t modif HANDY+ Th original lon for code agai withou comments ma b obtaine fro th autho fo th suggeste $2 contribution Also th autho wil mak modification fo othe computer o fo particula need o reques fo a estimate cos ($2 minimum) Thi depend o th availabilit t th autho o othe computers and software. Th mor comple modification t HANDY wil b i th subsyste men comman file whic ar generall name accordin t th subsyste name Th onl cod i thos file th autho forsee needin modificatio ar th escap characte sequence necessar t mak subsyste men title blin o th Osborn Executive These are: @ LINE,COLUMN SAY CHR(27)+CHR(94) to start blinking, and @ LINE,COLUMN SAY CHR(27)+CHR(113) to stop blinking. Th fil GETXTIME.CM wil hav t b change fo  computer wit clock i differen memor location o eliminate fo computer withou clocks Fo computer withou clocks user shoul creat some means of entering the date in dBASE II while in HANDY+. I th comman fil EXITWORK.CM user ma wan t chang th TEXTEDITOҠ titl t som othe softwar a wel a changin SC (SuperCalc2 t anothe spreadsheet Th use ma wan t ad (o use othe softwar i thi routin a wel o i thei ow SPECIAL REPORTS AND UTILITIES routine. Othe tha thes fe consideration an th specia need o users HANDY shoul b quit portable IB P an comaptibl user wil hav difficult i dBAS I environmen becaus th "QUI T progra name featur doe no wor i tha version I i recommende tha thos wit suc computer upgrad t dBAS IIɠ wher thi featur work ver well an modif th comman file an databases etc. wit th "CONVERT utilit tha come wit it Fo thos tha d no wis t upgrade th followin appendix section will be of help. Appendix B USING HANDY+ ON AN IBM PC SPECIAL NOTE TO IBM PC USERS Remembe al HANDY comman file wil hav t b rename wit PR (i.e .PRG extensio i orde t wor wit dBAS I o th IB͠ PC Fo example renam th fil WSTATION.CMĠ t WSTATION.PRG. ------------------------- dBASŠ I doe no mak us o it "QUI T progra name o a IB P computer I i therefo necessar t creat batc fil t exi HANDY t othe softwar an re-ente it Also som progra modification ar necessar i th HANDY comman file other than those mentioned in Appendix A. A exampl batc fil (.BA extension i show below Thi ma b th user AUTOEXEC.BA fil fo automaticall runnin HANDY o col o war boo o computer o som othe nam wit th BAԠ extensio tha th use ca ente fro th operatin syste command prompt ( A> ). Example program - ________.BAT DBASE WSTATION NEXTPROG ________.BAT Notic thi batc fil call itsel a th end Thi wil retur th use t HANDY afte enterin an exitin som othe softwar lik tex editor wor processo o spreadsheet Th "________ bloc i th nam th user choose fo thei BAԠ file Th (.BAT) extension does not have to be used in the BAT file. NEXTPRO i th abov exampl i progra create b HANDY+ I i i effec on recor databas name NEXTPROG.DB tha get rename t NEXTPROG.BA befor HANDY i exited I th HANDY comman fil EXITWORK.CM th line usin th "QUI TO featur o dBASŠ Iɠ shoul b change t line a follow (usin SuperCalc as an example to exit to): DELETE FILE NEXTPROG.BAT USE NEXTPROG DELETE ALL PACK APPEND BLANK REPLACE PROGRAM WITH 'SUPERCALC' COPY TO NEXTPROG.BAT SDF USE QUIT Notic tha th use wil hav t creat databas fil wit on characte fiel name PROGRAM It bi o kludg bu i works. Appendix C A HANDY PC TOOL Anothe metho o circularl movin fro dBASŠ Iɠ t anothe progra othe tha tha describe i Appendi B or fo tha matter movin aroun fro an languag lik BASI o th P i t "plug th PC' keyboar buffer Belo i sampl portio o program I ha bee teste i BASI bu no i othe language o dBAS I (note however yo ca "PEEK an "POKE i dBAS I as well as "CALL" an assembly language routine). Thi exampl assume th use i selectin som progra o softwar fro men drive b BASI program Vi th user' selectio progra nam i store t strin variable PLUG$ Th followin subroutin o inline portion of the menu program is invoked: 1000 DEF SEG=0 1010 PLUG$=PLUG$+CHR$(13) 1020 X=LEN(PLUG$) 1030 POKE 1050,30 1040 POKE 1052,30+(X*2) 1050 FOR I=1 TO X*2 STEP 2 1060 POKE 1053+I,ASC(MID$(PLUG$,(I+1)/2,1)) 1070 NEXT I 1080 SYSTEM I th abov example th wor "SC fo SuperCal coul b store to the string variable PLUG$: 0100 PLUG$="SC" carriag retur i adde t PLUG i lin 1010 The PLUG i poke int th memor location fo th keyboar buffe o th P define b line 103 an 104 on lette a tim i lin 1060 Thi i th equivalen o th use typin i "SC a th keyboar an pressin th RETUR o ENTE key The BASI i exite i lin 108 an th progra "plugged int th keyboar i executed. Appendix D COMBINING FILES WITH VDO VD i th tex edito recommende fo us alon sid HANDY  o CP/͠ operatin syste computer Thi publi domai progra ha bee rename TEXTEDI i HANDY+ On o th nic feature o VD i th abilit t combin ASCI tex file quickly includin spreadshee an graphic file printe t dis fil rathe tha a printer (a feature standard in most such software packages). T execut thi simpl bu powerfu procedur on simpl ha t loa thei maste tex file sa fo exampl report fro withi VDO The the pres th ES ke t acces th VD comman menu Selectin th o Nam optio th ca selec th fil nam o anothe ASCI text/graphic file Pressin ESà agai an selectin th o inser optio insert tha fil i th maste fil (i memory wher eve th curso wa positione befor th inser comman wa invoked Th use mus remembe t selec th Π optio agai an re-ente th nam o th maste documen befor selectin t "save (ES o ES X i O I WIL B SAVED IN THE NAME OF THE INSERTED DOCUMENT! User shoul b awar tha VD store har carrag retur a th en o eac lin i save unlik man wor processors I on i t re-edi th saveddocumen usin th wor processor the ma encounte difficult i realinin paragraphs I i goo ide t perfor you "cut-and-paste wor afte eac documen ha been fully edited and finalized. This is an excellent way to prepare truely spiffy reports! Appendix E HANDY+ FILES Th comman file include i HANDY an include unde th Copyright for this system are as follows: ACTPLANS.CMD AGGENDAS.CMD CALCULAT.CMD CHANGEOP.CMD DECISION.CMD ERASTIME.CMD EXITWORK.CMD EXPENSES.CMD FILECABS.CMD FONEBOOK.CMD GETXTIME.CMD LIFETIME.CMD MILEAGES.CMD NEXTDATE.CMD NOTEBOOK.CMD NOTECARD.CMD PLANNING.CMD PRINTIME.CMD REMINDER.CMD SAYMONTH.CMD SAYTODAY.CMD SIXMONTH.CMD TODOLIST.CMD WORKMENU.CMD WSTATION.CMD Appendix F UPDATING OF HANDY+ I orde t avoi confusio an encumberin remot publi domai softwar system wit numerou updat file wit cripti names maste updat librar wil b maintaine fo HANDY+ Thi fil wil젠 b堠 calle HANDY+UP.LBR User shoul loo fo i periodically. Onl autho improvement an bu fixe wil b include i thi file Customizatio o HANDY fo particula user wil no b included in updates. Date o HANDY update wil b liste belo wit genera discriptio o th natur o th update Onl extensivel revise issues of HANDY+ will be renumbered to different versions. DATE: NATURE OF REVISION:  TODOLIST.CMD WORKMENU.CMD WSTATION.CMD Appendix F UPDATING OF HANDY+ I orde t avoi confusio an encumberin remot publi domai softwar system wit numerou updat file wit cripti names maste updat librar wil b maintaine fo HANDY+ Thi fil wil젠 b堠 calle HANDY+UP.LBR User shoul loo fo i periodically. Onl autho improvement an bu fixe wil b include i thi file Customizatio o HANDY fo particula user wil no b included in updates. Date o HANDY update wil b liste belo wit genera discrSTOR 'T' to actplans USE actplans index actplans @ 18,0 @ 16,0 SET intensity off @ 3,54 say chr(27)+chr(94) @ 3,54 say 'ACTION PLANNING SUBSYSTEM' @ 3,77 say chr(27)+chr(113) SET intensity on @ 5,50 say 'A - Display action plan topics' @ 6,50 say 'B - Make planning item entries' @ 7,50 say 'C - Scan the planning database' @ 8,50 say 'D - Display/edit a action plan' @ 9,50 say 'E - Go to general action plans' @ 14,50 say 'R - Return to main system menu' SET intensity off @ 16,54 say "Option (0-9; A-D or R)? " SET console off WAIT to option SET console on IF val(option)>0 .or. option='0' DO changeop RETU ENDI DO CASE CASE !(option)='A' ERAS SET intensity on @ 1,0 say 'ACTION PLANNING TOPICS ON FILE' SET intensity off GOTO top STOR 3 to row STOR 0 to col DO WHIL .not. eof @ row,col say note:subj STOR note:subj to hold SKIP DO WHIL note:subj=hold .and. .not. eof SKIP ENDD STOR row+1 to row IF row=18 STOR 3 to row STOR col+40 to col ENDI IF col>40 .and. .not. eof STOR  ' ' to option @ 20,0 say 'More... Continue or Exit (C/E)'; get option READ IF !(option)='E' RETU ELSE ERAS STOR 3 to row STOR 0 to col @ 1,0 say 'ACTION PLANNING TOPICS ON FILE' ENDI ENDI ENDD @ 20,0 say 'Press RETURN to return to menu...' ? WAIT to return CASE !(option)='B' ERAS GOTO bottom @ 2,5 say 'Enter action plan notes below - press RETURN to skip unused lines...' DO notecard CASE !(option)='C' SET intensity on GOTO top BROW PACK CASE !(option)='D' ERAS GOTO top STOR ' ' to subj @ 22,0 say 'Please enter topic of action plan'; get subj READ STOR 'T' to actplans DO WHIL actplans='T' .and. .not. eof FIND &subj DO notecard @ 22,8 say 'Continue to search topic (Y/N)'; get cont READ IF !(cont)#'Y' STOR 'F' to actplans PACK ENDI ENDD CASE !(option)='E' ERAS QUIT to 'textedit b:actplans.txt','dbase wstation' ENDC RETU  NOTE:DATEC sNOTE:SUBJCsNOTE:LIN1CAtNOTE:LIN2CABtNOTE:LIN3CAtNOTE:LIN4CAtNOTE:LIN5CAuNOTE:LIN6CAFu 07/16/84Vac -----> *01/01/85Hol -----> *05/27/85Hol -----> *07/04/85Hol -----> *09/02/85Hol -----> *11/28/85Holiday -----------> *12/23/85Holiday ------------*, NOTE:SUBJ+NOTE:DATE @ 22,0 casestore 'T' to actplans use actplans index actplans @ 18,0 @ 16,0 set intensity off @ Notebook Test 1 04/25/84  Notebook Test 1 04/25/84 * Get tickets for Cubs Game on July 15th.  TO MANY RETURNS ENCOUNTEREDACTPLANSCMD,-ACTPLANSDBF.ACTPLANSNDX/ACTPLANS$$$STOR 'F' to sixmonth STOR 'T' to fmonth SET format to screen ERAS DO saytoday STOR 1 to line STOR 1 to column SET intensity on @ line,column say 'APPOINTMENT CALENDAR' STOR line+1 to line SET intensity off @ line,column say today SET intensity on ? STOR line+2 to line STOR 7 to hour DO WHIL hour<13 IF hour<10 STOR str(hour,1)+':00' to time @ line,column+1 say time STOR line+1 to line @ line,column+2 say ':30' ELSE STOR str(hour,2)+':00' to time @ line,column say time STOR line+1 to line @ line,column+2 say ':30' ENDI STOR hour+1 to hour STOR line+1 to line ENDD STOR 4 to line STOR 26 to column STOR 1 to hour DO WHIL hour<7 STOR str(hour,1)+':00' to time @ line,column say time STOR line+1 to line @ line,column+1 say ':30' STOR line+1 to line STOR hour+1 to hour ENDD STOR 17 to line @ line,0 say '--------------------------------------------------' STOR 3 to xpos STOR 3 to column STOR 0 to offset DO saymonth SET intensity off STOR line+1 to line @ line,0 say 'Ent er one of the following single letter commands:' SET intensity on STOR line+1 to line @ line,0 say 'A)dd E)dit F)uture N)ext P)ast R)eturn Q)uit' @ line,60 say 'C)hange lower month' SET intensity off USE aggendas index aggendas DO printime STOR 'T' to select DO WHIL select='T' @ 21,0 @ 19,79 WAIT to command DO CASE CASE !(command)='A' @ 21,0 SET intensity off GOTO bottom APPE BLAN REPL appt:date with date() @ 21,0 say "Appointment time ==>"; get appt:time picture 'XXXXX' @ 21,30 say "Appointment description ==>"; get appt:desc picture 'XXXXXXXXXXXXXXXXXX' READ DO printime CASE !(command)='R' GOTO top SET date to &holddate DO erastime DO printime CASE !(command)='E' SET intensity on GOTO top BROW PACK DO aggendas CASE !(command)='F' .or. !(command)='P' GOTO top @ 21,0 IF !(command)='F' STOR ' ' to future @ 21,0 say 'Enter future date as MM/DD/YY'; get future picture 'XX/XX/XX' READ ELSE @ 21,0 say 'Enter previous date as MM/DD/YY'; get future picture 'XX/XX/XX' READ ENDI SET date to &future DO erastime DO printime CASE !(command)='N' GOTO top DO nextdate DO erastime DO printime CASE !(command)='Q' SET date to &holddate STOR 'F' to select CASE !(command)='C' STOR ' ' to change @ 21,0 @ 21,0 say 'Enter month and year as MM/YY'; get change picture 'XX/XX' READ STOR $(change,1,2) to month STOR $(change,4,2) to year STOR 10 to row STOR 57 to column DO WHIL row<=18 @ row,column STOR row+1 to row ENDD STOR 9 to offset STOR 0 to column SET intensity on DO saymonth SET intensity off ENDC ENDD SET date to &holddate RETU  SET date to &holddate DO erastime DO printime CASE !(command)='E' SET intensity on GOTO top BROW PACK DO aggendas CASE !(command)='F' .or. !(command)='P' GOTO top @ 21,0 IF !(command)='F' STOR ' ' to future @ 21,0 say 'Enter future date as MM/DD/YY'; get future picture 'XX/XX/XX' READ ELSE @ 21,0 say 'Enter previous date as MM/DD/YY'; get future picture  APPT:DATECsAPPT:TIMECsAPPT:DESCCs EMC#sRATE:SUMNs APPT:DATE+APPT:TIME{yOy{ :{-  :s( yG*r9[t9R}0G6#:s(6$#:{->2{ @ 22,0 casestore 'T' to actplans use actplans index actplans @ 18,0 @ 16,0 set intensity off @05/25/8411:3008/30/843:00 08/31/849:30 09/21/841:00 05/15/841:00 05/24/844:30 05/25/8411:30 05/29/8411:3005/31/846:30 06/07/8411:3006/07/842:00 06/30/846:30 07/15/8412:0007/17/8410:3007/18/8410:3007/19/8410:3007/19/842:30 05/25/8411:3008/30/843:00 08/31/849:30 09/21/841:00 05/15/841:00 05/24/844:30 05/25/8411:30 05/29/8411:3005/31/846:30 06/07/8411:3006/07/842:00 06/30/846:30 07/15/8412:0007/17/8410:3007/18/8410:3007/19/8410:3007/19/842:30 07/20/847:30 05/11/845:00 05/11/845:00 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 10/03/831:30 10/04/831:30 10/04/832:30 10/04/835:00 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 !02/12/84 "02/12/84 #02/12/84 $02/12/84 %02/12/84 &02/12/84 '02/12/84 (02/12/84 )02/12/84 *02/12/84 +02/12/84 ,02/12/84 10/03/831:30 10/04/831:30 10/04/832:30 10/04/835:00 02/10/849:30 !02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 10/03/831:30 10/04/831:30 10/04/832:30 10/04/835:00 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 10/03/831:30 10/04/831:30 10/04/832:30 10/04/835:00 "02/12/84 #02/12/84 $02/12/84 %02/12/84 &02/12/84 '02/12/84 (02/12/84 )02/12/84 *02/12/84 +02/12/84 ,02/12/84 -02/12/84 .02/12/84 002/12/84 102/12/840 /02/12/849:30 10/03/831:30 10/04/831:30 10/04/832:30 10/04/835:00 '02/12/84 (02/12/84 )02/12/84 *02/12/84 +02/12/84 ,02/12/84 10/03/831:30 10/04/831:30 10/04/832:30 10/04/835:00 02/10/849:30 !02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 10/03/831:30 10/04/831:30 10/04/832:30 10/04/835:00 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 02/12/84 10/03/831:30 10/04/831:30 10/04/832:30 10/04/835:00 @ 18,0 @ 16,0 @ 2,54 say '|------------------------|' @ 3,54 say '| CALCULATOR |' @ 4,54 say '| fcn |' @ 5,54 say '| |--------------| |---| |' @ 6,54 say '| | | | | |' @ 7,54 say '| |______________| |___| |' @ 8,54 say '| |' @ 9,54 say '| A Add |' @ 10,54 say '| S Subtract |' @ 11,54 say '| X Multiply |' @ 12,54 say '| D Divide |' @ 13,54 say '| M Memory Add |' @ 14,54 say '| N Memory Subtract |' @ 15,54 say '| R Return Memory |' @ 16,54 say '| Z Memory Clear |' @ 17,54 say '| C Clear |' @ 18,54 say '| T Total |' @ 19,54 say '| Q Quit |' @ 20,54 say '| |' @ 21,54 say '|________________________|' STOR ' ' to function STOR 0.00 to operator STOR 0.00 to total STOR 0.00 to memory @ 6,57 get operator picture '999999999.99' READ STOR total+operator to total DO WHIL !(function)#'Q' STOR ' ' to function @ 6,74 get function picture 'X' READ IF val(function)>0 .or. function='0' STOR function to option DO changeop RETU ENDI DO CASE CASE !(function)='M' STOR memory+total to memory SET intensity off @ 3,76 say chr(27)+chr(94) @ 3,76 say 'M' @ 3,77 say chr(27)+chr(113) SET intensity on CASE !(function)='N' STOR memory-total to memory CASE !(function)='R' STOR memory to total SET intensity off @ 6,59 say memory using '9999999.99' SET intensity on CASE !(function)='Z' STOR 0.00 to memory @ 3,76 say ' ' CASE !(function)='C' STOR 0.00 to total STOR 0.00 to operator @ 4,65 say ' ' @ 6,57 get operator picture '999999999.99' READ STOR total+operator to total CASE !(function)='T' SET intensity off STOR str(total,16,2) to hold STOR val(hold) to total STOR total+.00 to total @ 6,58 say &hold using '#########.##' SET intensity on CASE !(function)#'Q' STOR 0.00 to operator @ 6,57 get operator picture '999999999.99' READ ENDC DO CASE CASE !(function)='A' STOR total+operator to total CASE !(function)='S' STOR total-operator to total CASE !(function)='X' STOR total*operator to total CASE !(function)='D' DO WHIL operator=0 @ 6,57 get operator picture '999999999.99' READ ENDD STOR total/operator to total ENDC ENDD RETU  CASE !(function)='R' STOR memory to total SET intensity off @ 6,59 say memory using '9999999.99' SET intensity on CASE !(function)='Z' STOR 0.00 to memory @ 3,76 say ' ' CASE !(function)='C' STOR 0.00 to total STOR 0.00 to operator @ 4,65 say ' ' @ 6,57 get operator picture '999999999.99' READ STOR total+operator to total CASE !(function)='T' SET intensity off STOR str(total,16,2) to hold STOR val(hold) to total STOR total+.00 to total @ 6,58 say &hold using '#########.##' SET intensity on CASE !(function)#'Q' STOR 0.00 to operator @ 6,57 get operator picture '999999999.99' READ ENDC DO CASE CASE !(fSTOR 1 to row DO WHIL row<23 @ row,40 STOR row+1 to row ENDD USE RESE STOR 'Y' to continue RETU ACTPLANSCMD,-ACTPLANSDBF.ACTPLANSNDX/ACTPLANSTXT0AGGENDASCMD123AGGENDASDBF4AGGENDASNDX567CALCULATCMD89:CHANGEOP$$$ERAS USE decision DELE all PACK @ 2,0 say 'DECISION SUPPORT TOOL' @ 18,0 say '------------------------------------------------------------------------------' @ 19,0 say 'Enter up to 12 decision considerations in spaces above. Order of importance is' @ 20,0 say 'not important. Press RETURN in an unused space to complete making your entries.' STOR 1 to line DO WHIL line<13 @ line+3,0 say line using '##' STOR line+1 to line ENDD STOR 1 to line DO WHIL line<13 STOR ' ' to entry @ line+3,4 get entry READ IF trim(entry)=' ' STOR line-1 to count STOR 13 to line ELSE STOR line+1 to line GOTO bottom APPE BLAN REPL item with entry ENDI ENDD IF trim(entry)#' ' STOR line-1 to count ENDI @ 19,0 @ 20,0 @ 19,0 say 'Now you will be asked to specify the greater of importance one by one of each' @ 20,0 say 'consideration against all the others. Please press RETURN to begin ranking...' ? WAIT to return @ 19,0 @ 20,0 @ 22,0 @ 19,0 say 'What is the greater of importance to you between...' STOR 1 to number SET intensity off DO WHIL count#1 GOTO number @ 20,0 say number using '##' @ 20,4 say item SET intensity on STOR len(trim(item)) to length @ 20,length+5 say 'and ' SET intensity off SKIP DO WHIL .not. eof STOR 0 to select STOR # to position @ 20,length+9 say # using '##' @ 20,length+12 say item; @ 20,length+len(trim(item)) say '?' @ 21,0 say ' ' INPU 'Your selection' to select GOTO select REPL rate:sum with rate:sum+1 @ number+3,3*position+40 say select using '##' @ 20,length+8 @ 22,15 GOTO position SKIP ENDD STOR count-1 to count STOR number+1 to number @ 20,0 ENDD @ 19,0 @ 20,0 @ 22,0 SET intensity on @ 19,0 say 'Ranking considerations - please wait...' sort on rate:sum to sortfile descending USE sortfile STOR 1 to line DO WHIL line<13 @ line+3,0 STOR line+1 to line ENDD @ 19,0 say 'Considerations rank as above - press RETURN to return to menu...' SET intensity off @ 20,0 STOR 1 to line DO WHIL .not. eof @ line+3,0 say line using '##' @ line+3,4 say item STOR line+1 to line SKIP ENDD SET intensity on @ 20,0 say ' ' WAIT to return USE decision DELE file sortfile RETU . eof STOR 0 to select STOR # to position @ 20,length+9 say # using '##' @ 20,length+12 say item; @ 20,length+len(trim(item)) say '?' @ 21,0 say ' ' INPU 'Your selection' to select GOTO select REPL rate:sum with rate:sum+1 @ number+3,3*position+40 say select using '##' @ 20,length+8 @ 22,15 GOTO position SKIP ENDD STOR count-1 to count STOR number+1 to number @ 20,0 ENDD @ 19,0 @ 20,0 @ 22,0 SET intensity on @ 19,0 say 'Ranking considerations - please wait...' sort on rate:sum to sortfile descending USE sortfile STOR 1 to line DO WHIL line<13 @ line+3,0 STOR line+1 to line ENDD @ 19,0 say 'Considerations rank as above - press RETURN to return to menu...' SET intensity off @ 20,0 STOR 1 to line DO WHIL .not. eof @ line+3,0 ITEMC#sRATE:SUMNs APPLICATIONS File cabinet menu program 07/09/84FILECABS.CMD *APPLICATIONS Main HANDY+ menu program 07/09/84WORKMENU.CMD *APPLICATIONS File information program 07/09/84FILEFOLD.CMD *Applications FOLDER 07/09/84 *Databases FOLDER 07/09/84 *Indexes FOLDER  2RATE:SUMUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU @ 22,0 casestore 'T' to actplans use actplans index actplans @ 18,0 @ 16,0 set intensity off @@@ @0@@@PUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@ @0@@@PUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUSTOR 4 to line STOR 7 to column DO WHIL line<17 @ line,column say ' ' STOR line+1 to line ENDD STOR 4 to line STOR 31 to column DO WHIL line<17 @ line,column say ' ' STOR line+1 to line ENDD @ 2,0 DO saytoday @ 2,1 say today RETU CHANGEOPCMD;DECISIONCMD<=>DECISIONDBF?DECISIONNDX@ERASTIME$$$SET format to screen @ 18,0 @ 16,0 SET intensity off @ 3,52 say chr(27)+chr(94) @ 3,52 say 'EXIT SYSTEM' @ 3,63 say chr(27)+chr(113) SET intensity on @ 5,48 say 'A - Exit to the operating system' @ 6,48 say 'B - Exit to the database manager' @ 7,48 say 'C - Exit to text editor & return' @ 8,48 say 'D - Exit to spreadsheet & return' @ 9,48 say 'E - Exit to another work station' @ 10,48 say 'F - Exit to function key resetup' @ 11,48 say 'G - Exit to disk control utility' @ 12,48 say 'H - Exit to set the system clock' @ 14,48 say 'R - Exit to the main system menu' SET intensity off @ 16,52 say "Option (0-9; A-H or R)? " SET console off WAIT to option SET console on IF val(option)>0 .or. option='0' DO changeop RETU ENDI ERAS DO CASE CASE !(option)='A' RESE SET console off QUIT CASE !(option)='B' USE RESE ERAS SET talk on CANC CASE !(option)='C' RESE SET console off QUIT to 'textedit!dbase wstation' CASE !(option)='D' RESE SET console off QUIT to 'sc2!dbase wstation' CASE !(option)='E' USE RESE STOR F to handy CASE !(option)='F' USE RESE SET console off QUIT to 'setfkeys!dbase wstation' CASE !(option)='G' USE RESE SET console off QUIT to "sweep!dbase wstation" CASE !(option)='H' STOR ' ' to date STOR ' ' to time @ 18,0 say chr(27)+chr(94) @ 18,0 say 'SET DATE & TIME' @ 18,16 say chr(27)+chr(113) @ 20,0 say 'Allow a minimum of 10 seconds for accurate setting...' @ 22,0 say 'date (MM/DD/YY) = '; get date picture 'XX/XX/XX' @ 22,40 say 'time (HH:MM:SS) = '; get time picture 'XX:XX:XX' READ STOR "date "+date+' '+time to time ERAS IF file('a:exclock.com') SET console off QUIT to '&time!exclock!dbase wstation' ELSE QUIT to '&time!dbase wstation' ENDI ENDC RETU ASE !(option)='A' RESE SET console off QUIT CASE !(option)='B' USE RESE ERAS SET talk on CANC CASE !(option)='C' RESE SET console off QUIT to 'textedit!dbase wstation' CASE !(option)='D' RESE SET console off QUIT to 'sc2!dbase wstation' C@ 18,0 @ 16,0 SET intensity off @ 3,52 say chr(27)+chr(94) @ 3,52 say 'EXPENSE ACCOUNT SUBSYSTEM' @ 3,77 say chr(27)+chr(113) SET intensity on @ 5,48 say 'A - Add/update an expense record' @ 6,48 say 'B - Edit/browse expense database' @ 7,48 say 'C - Expenses report per a period' @ 8,48 say 'D - Summary of expenses for year' @ 9,48 say 'E - Enter an auto mileage record' @ 10,48 say 'F - Edit/browse mileage database' @ 11,48 say 'G - Mileage expenses by a period' @ 12,48 say 'H - Auto mileage expense summary' @ 14,48 say 'R - Exit to the main system menu' SET intensity off @ 16,52 say "Option (0-9; A-G or R)? " SET console off WAIT to option SET console on IF val(option)>0 .or. option='0' DO changeop RETU ENDI ERAS DO CASE CASE !(option)='A' USE expenses index expenses ERAS @ 2,0 say 'Existing expense record (Y/N)? ' SET console off WAIT to response SET console on IF !(response)='Y' STOR ' ' to date @ 2,0 @ 2,0 say 'Please enter date of expense record (MM/DD/YY) '; get date picture 'XX/XX/XX' READ FIND &date IF .not. eof EDIT # ELSE @ 2,0 @ 2,0 say 'Record not found - press RETURN to return to menu...' ? WAIT to return ENDI ELSE append ENDI CASE !(option)='B' USE expenses index expenses SET intensity on BROW PACK CASE !(option)='C' .or. !(option)='G' ERAS IF !(option)='C' USE expenses index expenses ELSE USE mileages index mileages ENDI STOR ' ' to startdate STOR ' ' to enddate STOR ' ' to device @ 2,0 say 'Beggining expense record date (MM/DD/YY) ===> '; get startdate picture 'XX/XX/XX' @ 4,0 say 'Ending expense record date (MM/DD/YY) ===> '; get enddate picture 'XX/XX/XX' @ 6,0 say 'Output report to screen or printer (S/P) ===> '; get device picture 'X' READ IF !(device)='P' ERAS @ 2,0 say 'Ready printer and press RETURN...' ? WAIT to return IF !(option)='C' REPO form expenses for date>startdate .and. datestartdate .and. datestartdate .and. datestartdate .and. datestartdate .and. datestartdate .and. date 8,date < ;DATE;---- 6,TRAVEL >TRANS;FARES;----- Y 6,LODGING >HOTEL;MOTEL;----- Y 6,MEALS > ;MEALS;----- Y 6,CAR:RENT >AUTO;RENT;---- Y 6,TAXI:LIMO >TAXI;LIMO;---- Y 6,AUTO:EXP > PERS;AUTO;---- Y 6,ENTERT > ;ENTER;----- Y 6,TELEPHONE > ;PHONE;----- Y 6,OTHER > ;OTHER;----- Y 6,TRAVEL+LODGING+MEALS+CAR:RENT+TAXI:LIMO+AUTO:EXP+ENTERT+TELEPHONE+OTHER > ;TOTAL;----- Y THER > ;OTHER;-ERASTIMECMDAEXITWORKCMDBCEXPENSESCMDDEFEXPENSESDBFGEXPENSES$$$ *date do while row<17 @ row,0 store row+1 to row enddo @ 22,0 casestore 'T' to actplans use actplans index actplans @ 18,0 @ 16,0 set intensity off @07/12/8407/12/84 set intensity off @ 3,52 say chr(27)+chr(94) @ 3,52 say 'EXIT SYSTEM' @ 3,63 say chr(27)+chr(113) set intensity on @ 5,48 say 'A - Exit to the operating system' @ 6,48 say 'B - Exit to the database manager' @ 7,48 say 'C - Exit to text editor & return' @ 07/12/8407/12/84 set intensity off @ 3,52 say chr(27)+chr(94) @ 3,52 say 'EXIT SYSTEM' @ 3,63 say chr(27)+chr(113) set intensity on @ 5,48 say 'A - Exit to the operating system' @ 6,48 say 'B - Exit to the database manager' @ 7,48 say 'C - Exit to text editor & return' @ 8,48 say 'D - Exit to spreadsheet & return' @ 9,48 say 'E - Exit to another work station' @ 10,48 say 'F - Exit to system setup roine' @ 11,48 say 'G - Exit to set system date/time' @ 12,48,F- 1,32,22,22,22,22USE filecabs index filecabs IF val(option)>0 @ 18,0 @ 16,0 ENDI STOR T to cabinets DO WHIL cabinets SET intensity off @ 3,54 say chr(27)+chr(94) @ 3,54 say 'FILING CABINET SUBSYSTEM' @ 3,78 say chr(27)+chr(113) SET intensity on @ 5,50 say 'A - Log alternate disk/cabinet' @ 6,50 say 'B - Display folders in cabinet' @ 7,50 say 'C - Browse/edit files database' @ 8,50 say 'D - Display the disk directory' @ 9,50 say 'E - Delete file from directory' @ 14,50 say 'R - Return to main system menu' SET intensity off IF val(option)>0 @ 16,54 say "Option (0-9; A-E or R)? " SET console off WAIT to option SET console on IF val(option)>0 .or. option='0' DO changeop RETU ENDI ELSE @ 16,54 say "Option (A-E or R)? " SET console off WAIT to option SET console on ENDI DO CASE CASE !(option)='A' ERAS USE RESE STOR T to filecabs STOR F to cabinets STOR F to handy CASE !(option)='B' STOR T to filefold DO WHIL filefold ERAS SET intensity on @ 17,0 say '-------------------------------------------------------------------------------' SET intensity off @ 18,0 say 'Enter one of the following single letter commands:' SET intensity on @ 19,0 say 'A)dd E)dit P)age Q)uit R)estart S)elect' GOTO top @ 2,0 @ 2,0 say 'FILE CABINET FOLDERS' SET intensity off STOR 4 to line STOR 2 to column STOR # to number DO WHIL line<15 .and. .not. eof IF document='FOLDER' @ line,column say foldname STOR column+20 to column IF column>62 STOR line+2 to line ENDI ENDI SKIP ENDD STOR ' ' to action DO WHIL !(action)#'Q' .and. !(action)#'P' @ 20,0 WAIT to action IF !(action)='A' STOR ' ' to title @ 22,0 @ 22,0 say 'Please enter new folder title '; get title picture 'XXXXXXXXXXXXXXX' READ IF line<15 .and. column<63 @ line,column say title STOR column+20 to column IF column>62 STOR line+2 to line ENDI ENDI GOTO bottom APPE BLAN REPL foldname with title,document with 'FOLDER',doc:date with holddate GOTO number @ 22,0 ENDI IF !(action)='E' GOTO top BROW PACK GOTO number ENDI IF !(action)='R' GOTO top STOR 'P' to action ENDI IF !(action)='P' @ 22,0 STOR 4 to line DO WHIL line<15 @ line,0 STOR line+1 to line ENDD ENDI IF !(action)='Q' STOR F to filefold ENDI IF !(action)='S' STOR ' ' to title @ 19,42 @ 22,0 @ 22,0 say 'Please enter name of selected file folder '; get title picture 'XXXXXXXXXXXXXXX' READ STOR 4 to line DO WHIL line<15 @ line,0 STOR line+1 to line ENDD SET intensity on @ 2,0 say 'DOCUMENT FOLDER - '+!(title) SET intensity off GOTO top @ 3,0 DISP next 12 document,doc:date,filename for foldname=!(title) STOR ' ' to op DO WHIL !(op)#'Q' IF !(op)#'P' @ 22,0 @ 20,0 WAIT to op ENDI IF !(op)='A' APPE BLAN REPL foldname with !(title) SET intensity on EDIT # IF doc:date=' ' REPL doc:date with holddate ENDI ELSE IF !(op)='E' STOR 0 to recnum @ 22,0 @ 20,0 INPU 'Enter number to left of record to edit' to recnum GOTO recnum SET intensity on EDIT # ELSE IF !(op)='P' .or. !(op)='R' IF eof .or. !(op)='R' GOTO top ENDI @ 3,0 DISP next 12 document,doc:date,filename for foldname=!(title) STOR ' ' to op ELSE @ 22,0 STOR 'Q' to action ENDI p ENDI e ENDI a IF !(op)='A' .or. !(op)='E' ERAS SET intensity on @ 2,0 say 'DOCUMENT FOLDER - '+!(title) @ 17,0 say '-------------------------------------------------------------------------------' SET intensity off @ 18,0 say 'Enter one of the following single letter commands:' SET intensity on @ 19,0 say 'A)dd E)dit P)age Q)uit R)estart' STOR 'P' to op ENDI ENDD ENDI ENDD ENDD CASE !(option)='C' GOTO top BROW PACK CASE !(option)='D' ERAS STOR ' ' to type @ 2,0 say 'Please enter complete file name (wildcards are accepted)'; get type picture 'XXXXXXXXXXXX' READ ERAS ? ? 'Current files on disk in drive B of name/type '+trim(type)+' are -' ? DISP files like &type ? ? 'Press RETURN to return to menu...' SET console off WAIT to return SET console on CASE !(option)='E' ERAS STOR ' ' to type @ 2,0 say 'Please enter complete file name'; get type picture 'XXXXXXXXXXXX' READ DELE file &type CASE !(option)='R' STOR F to cabinets RELE filecabs ENDC IF !(option)#'R' ERAS ? '.______________.______________.' ? '| | |' ? '| :--: | :--: |' ? '| | |' ? '| | |' ? '| | |' ? '|--------------|--------------|' ? '| | |' ? '| :--: | :--: |' ? '| | |' ? '| | |' ? '|______________|______________|' ? '| | |' ? '| :--: | :--: |' ? '| | |' ? '| | |' ? '|______________|______________|' ? '!______________!______________!' ENDI ENDD RETU TURN to return to menu...' SET console off WAIT to return SET console on CASE !(option)='E' ERAS STOR ' ' to ty FOLDNAMECsDOCUMENTC-sDOC:DATECtFILENAMEC tDISKNAMEC )t   foldname+doc:dateKOFq-yl?Npg:ݷʓ~( @ 22,0 casestore 'T' to actplans use actplans index actplans @ 18,0 @ 16,0 set intensity off @APPLICATIONS 07/09/84APPLICATIONS 07/09/84APPLICATIONS 07/09/84Applications 07/09/84Databases 07/09/84Indexes 07/09/84Text 07/11/84Databases 07/09/84Databases 07/09/84Indexes 07/09/84Indexes 07APPLICATIONS 07/09/84APPLICATIONS 07/09/84APPLICATIONS 07/09/84Applications 07/09/84Databases 07/09/84Indexes 07/09/84Text 07/11/84Databases 07/09/84Databases 07/09/84Indexes 07/09/84Indexes 07/09/84Indexes 07/09/84@~k:(s~*9~Ês~~ͅ<G:<ʯ2x# W:<­:ʯ22G?>Grx~:ݷ2Ôʰ##~*$*">2STOR T to fonebook @ 18,0 @ 16,0 @ 3,52 say chr(27)+chr(94) SET intensity off @ 3,52 say 'PHONE BOOK SUBSYSTEM' @ 3,71 say chr(27)+chr(113) SET intensity on @ 5,48 say 'A - Family telephone number list' @ 6,48 say 'B - Acquaintances telephone list' @ 7,48 say 'C - Office/co-workers phone list' @ 8,48 say 'D - Business firm telephone list' @ 9,48 say 'E - Shop/services telephone list' @ 10,48 say 'F - Emergency phone numbers list' @ 11,48 say 'G - Other telephone numbers list' @ 14,48 say 'R - Exit to the main system menu' SET intensity off @ 16,52 say "Option (0-9; A-G or R)? " SET console off WAIT to option SET console on IF val(option)>0 .or. option='0' DO changeop RETU ENDI IF !(option)='R' RETU ELSE USE fonebook index fonebook STOR ' ' to action STOR !(option) to option DO WHIL fonebook IF !(action)#'P' ERAS SET intensity on @ 1,0 say 'ADDRESS & PHONE BOOK for' DO CASE CASE option='A' @ 1,25 say 'FAMILY' CASE option='B' @ 1,25 say 'ACQUAINTANCES' CASE option='C' @ 1,25 say 'OFFICE/CO-WORKERS' CASE option='D' @ 1,25 say 'BUSINESS FIRMS' CASE option='E' @ 1,25 say 'SHOPS & SERVICES' CASE option='F' @ 1,25 say 'EMERGENCIES' otherwise @ 1,25 say 'OTHER CATEGORIES' ENDC @ 17,0 say '--------------------------------------------------------------------------------' SET intensity off @ 18,0 say 'Enter one of the following single letter commands:' SET intensity on @ 19,0 say 'A)dd E)dit P)age Q)uit R)estart S)elect' FIND &option STOR 3 to line STOR 0 to col IF !(action)#'P' DO WHIL line*col<630 .and. disptype=option .and. .not. eof SET intensity off @ line,col say # using '###' IF !(disptype)='D' .or. !(disptype)='E' @ line,col+5 say firm ELSE @ line,col+5 say name ENDI STOR trim(phone) to fone @ line,col+(38-len(fone)) say fone STOR line+1 to line IF line>=15 .and. col=0 STOR 3 to line STOR 42 to col ENDI SKIP ENDD ENDI ENDI STOR ' ' to action @ 20,0 say ' ' WAIT to action DO CASE CASE !(action)='A' GOTO bottom APPE BLAN REPL disptype with option EDIT # CASE !(action)='E' GOTO top FIND &option BROW CASE !(action)='P' STOR 3 to line DO WHIL line<=15 @ line,0 STOR line+1 to line ENDD STOR 3 to line STOR 0 to col DO WHIL .not. eof .and. disptype=option .and. line*col<630 @ line,col say # using '###' IF !(disptype)='D' .or. !(disptype)='E' @ line,col+5 say firm ELSE @ line,col+5 say name ENDI STOR trim(phone) to fone @ line,col+(38-len(fone)) say fone STOR line+1 to line IF line>=15 .and. col=0 STOR 3 to line STOR 42 to col ENDI SKIP ENDD CASE !(action)='Q' STOR F to fonebook CASE !(action)='R' GOTO top CASE !(action)='S' @ 21,0 @ 20,0 say ' ' ACCE 'Enter number adjacent to your selection and press RETURN' to sel STOR val(sel) to num GOTO num ERAS @ 1,1 say name IF spouse#' ' @ 1,1+(2+len(trim(name))) say '('+trim(spouse)+')' ENDI @ 1,1+(6+len(trim(name))+len(trim(spouse))) say relation @ 1,1+(8+len(trim(name))+len(trim(spouse))+len(trim(relation))) say birthdate @ 2,1 say firm IF category#' ' @ 2,1+(2+len(trim(firm))) say '('+trim(category)+')' ENDI @ 4,1 say street @ 5,1 say trim(city)+',' @ 5,1+(2+len(trim(city))) say trim(state) @ 5,1+(4+len(trim(city))+len(trim(state))) say zip @ 7,1 say 'phone number: '+phone @ 8,1 say 'mailing list: '+cardlist @ 9,1 say 'display type: '+disptype @ 11,1 say 'Edit (Y/N)? ' SET console off WAIT to ed SET console on IF !(ed)='Y' EDIT # PACK ENDI ENDC ENDD USE ENDI RETU o line STOR 42 to col ENDI SKIP ENDD CASE !(action)='Q' STOR F to fonebook CASE !(action)='R' GOTO top CASE !(action)='S' @ 21,0 @ 20,0 say ' ' ACCE 'Enter number adjacent to your selection and press RETURN' to sel STOR val(sel) to num GOTO num ERAS @ 1,1 say name IF spouse#' ' @ 1,1+(2+len(trim(name))) say '('+trim(spouse)+')' ENDI @ 1,1+(6+len(trim(name))+len(trim(spouse))) say relation @ 1,1+(8+len(trim(name))+len(trim(spouse))+len(trim(relation))) say birthdate @ 2,1 say firm IF c NAMECsSTREETCsCITYCtSTATECtZIPC )tPHONEC3tSPOUSEC BtFIRMCLtCATEGORYCetRELATIONC ttBIRTHDATEC ~tCARDLISTCtDISPTYPECt APPLICATIONS File cabinet menu program 07/09/84FILECABS.CMD *APPLICATIONS Main HANDY+ menu program 07/09/84WORKMENU.CMD *APPLICATIONS File information program 07/09/84FILEFOLD.CMD *Applications FOLDER 07/09/84 *Databases FOLDER 07/09/84 *Indexes FOLDER 68 disptype+firm+name|yJ{o|{{%{E{8pw{8UUUUUUUUUUUUUUUUU @ 22,0 casestore 'T' to actplans use actplans index actplans @ 18,0 @ 16,0 set intensity off @Q Long, Priscilla R Maier-Tenberg, Gerhard V Minarik, Brek d Trudeau, Ronald f Winikates, Robert A Q Long, Priscilla R Maier-Tenberg, Gerhard V Minarik, Brek d Trudeau, Ronald f Winikates, Robert A Adelberg, Roy A Collinson, James B. 2A Greene, George W. Jr. A Greene, Michael A A Hawxhurst, Ralph gA Hawxhurst, Stephanie A Hawxhurst, Stephen A Hawxhurst, Steven A Jorgenson, Richard A Kennedy, Karen A Kennedy, Patrick C Robertson, Keith D Disco-Tech Bon, Robert E MA Adelberg, Roy  A Hawxhurst, Kennedy  A Kennedy, Karen A Pike, Aurther .B Barnard, Dorothy B Fitzmorris, William *C Kohlmeyer, Charles D Crutco Corporation Cruttenden, Walter W. D Prudential Angelico, Darryl -E DA Kennedy, P. Michael A Kennedy, Patrick A Miller, James A Pike, Allen W. A Pike, Aurther A Pike, Dexter A Wisser, Ruth W. C Robertson, Keith D Disco-Tech Bon, Robert E M3A Pike, Barbara A Pike, Dexter A Wisser, Ruth W. B Angelico, Darryl .B Barnard, Dorothy 4B Benz, Bradford /B Braddock, John B Cowan, James 5B Hanlon, James B  B Pufundt, Mark iB Robbins, Mark 0B Sindermann, Ted {B Tarasiuk, Wally qB Taylor, Nancy ~B Tuttrup, Martha 1B White, Susan 9B Wildgrube, Charles E. EC Baluta, Gary &C yD Decision Planning Corp. Seiler, James R., Jr. 6D Deloitte Haskins & Sells Hanlon, James D Disco-Tech Bon, Robert oD FOG Rhodes, Gail hD Grant J. Hunt Company Jorgensen, Richard D Jacobs Architects Price, Larry D KD Systems Dodd, Michael M. D Kerekes & Kerekes Kerekes, John L. nD Osborne Computer Corp. Robinson, Roy D PHC Dhingra, K.C. IC Dion, Ken JC Dubin, Herman 'C Ernest, Susan KC Falzone, John (C Ferguson, James LC Ginthner, Bill )C Haupt, Lisa C Jensen, Paul *C OC Kring, Roger PC Lohrmann, George SC Manke, Robert UC Markwiese, Thomas TC Meissen, Ronald C Robertson, Keith +C Shanks, Jeffery ,C Wildgrube, Charles D Bacon & Whipple Woodward, Joseph H. D CD Prudential Fiore, John !D Reed Corporation Steben, Stan lD Rego Mold & Die Kennedy, P. Michael "D SOM 8D Villa Management Ltd. Heuberger, Steve tE Archie's Barber Shop Archie sE Don Roth's Blackhawk Gronert, Sydney -E Don Roth's in Wheeling Robbins, Mark - Mgr. :G United Airlines <G |B Barton, Emma 4B Benz, Bradford /B Braddock, John B Cowan, James B Fitzmorris, William 5B Hanlon, James B Jones, Casey uB Lichtenstein, Lee A. pB McManaway, Karen B AE Edwards Florists xE Esther's Braddock, James BE First National - Skokie wE Jiminy Clippers E L.F. Bath & Tennis Club McManaway, Karen E Mark Witt Services Witt, Mark CE Northbrook Community LabsAllen, Ethan jE Tahoe Village Pharmacy @F Diettrich, Henry J. DDS ?F EC Baluta, Gary &C Darst, Scott KC Falzone, John *C Kohlmeyer, Charles TC Meissen, Ronald [C Perrino, Angela D Crutco Corporation Cruttenden, Walter W. D Prudential Angelico, Darryl -E Don Roth's in Wheeling Robbins, Mark - Mgr. ?F B Nurnberg, Donald S. TC Meissen, Ronald  D Kerekes & Kerekes Kerekes, John L. D Prudential Angelico, Darryl -E Don Roth's in Wheeling Robbins, Mark - Mgr. &C Darst, Scott *C Kohlmeyer, Charles D Crutco Corporation Cruttenden, Walter W. D Prudential Angelico, Darryl -E D>F St. Francis Hospital =F Stiles, William R. M.D. vG zG Lotto Numbers rG Nielsen, Wendy Mae ;G Time (local) :G United Airlines <G Weather (local) ONAshton Tate ,".50","DOS","MANUAL" ONAFC Bartholomew, Pat #C Byrne, Tom $C Carlson, Debbie %C Colecchia, Sandy GC Crull, Ron &C Darst, Scott #C Byrne, Tom $C Carlson, Debbie %C Colecchia, Sandy &C (C Ferguson, James LC Ginthner, Bill )C Haupt, Lisa MC Heizer, Rich C Jensen, Paul NC Johnson, Robert L. *C Kohlmeyer, Charles )C Haupt, Lisa C Jensen, Paul *C WC Nash, Larry XC Orberg, Nils YC Pawlicki, Robert ZC Pekol, Stan [C Perrino, Angela C Robertson, Keith +C Shanks, Jeffery ,C Wildgrube, Charles D Bacon & Whipple Woodward, Joseph H. D C\C Powers, Lillian ]C Reynolds, Barbara C Robertson, Keith ^C Rohleder, James +C Shanks, Jeffery _C Soha, Mike `C Soltys, Brice ,C Wildgrube, Charles D Bacon & Whipple Woodward, Joseph H. D C[C Perrino, Angela +C Shanks, Jeffery cC Szymborski, Chuck D Crutco Corporation Cruttenden, Walter W.  D Kerekes & Kerekes Kerekes, John L. D Prudential Angelico, Darryl -E Don Roth's in Wheeling Robbins, Mark - Mgr. CE Northbrook Community LabsAllen, Ethan ?F Nold, William L. M.D. rG aC Smith, Mike _C Soha, Mike `C Soltys, Brice bC Sund, Arild cC Szymborski, Chuck eC Vasiljevic, Mike ,C Wildgrube, Charles }D Abbott Laboratories Tuttrup, Martha D Bacon & Whipple Woodward, Joseph H. D CA Clausen, Raymond A Collinson, James B. 2A Greene, George W. Jr. A Greene, Michael A Hawxhurst, Kennedy A Clausen, Raymond A Collinson, James B. 2A Greene, George W. Jr. A Greene, Michael A D Klaucens & Associates Klaucens, Norbert D Liggett Associates Liggett, Marianne mD Mycroft Labs., Inc. Bayt, Jack 7D Osborne Computer Corp. nD Osborne Computer Corp. Robinson, Roy D Prudential Angelico, Darryl mD Mycroft Labs., Inc. Bayt, Jack 7D Osborne Computer Corp. nD Osborne Computer Corp. Robinson, Roy D PDE Northbrook Trust & Saving kE Puerto Vallarta Mallett, George jE Tahoe Village Pharmacy @F Diettrich, Henry J. DDS ?F Nold, William L. M.D. DE Northbrook Trust & Saving kE Puerto Vallarta Mallett, George jE Tahoe Village Pharmacy @F Diettrich, Henry J. DDS ?F eC Vasiljevic, Mike ,C Wildgrube, Charles }D Abbott Laboratories Tuttrup, Martha D Bacon & Whipple Woodward, Joseph H. D Crutco Corporation Cruttenden, Walter W. eC Vasiljevic, Mike ,C Wildgrube, Charles }D Abbott Laboratories Tuttrup, Martha D Bacon & Whipple Woodward, Joseph H. D C5B Hanlon, James B Jones, Casey uB Lichtenstein, Lee A. pB McManaway, Karen B Nurnberg, Donald S. 5B Hanlon, James B Jones, Casey uB Lichtenstein, Lee A. pB McManaway, Karen B ;G Time (local) :G United Airlines <G Weather (local) ONAshton Tate ,".50","DOS","MANUAL" ONAshton Tate ,"PSB",".1","LOTUS","MG" ONAshton Tate Hanson, Sherry ONAshton Tate S","MG"".1","LOTUS","MG" <G Weather (local) ONAshton Tate ,".50","DOS","MANUAL" ONAD Prudential Angelico, Darryl -E Don Roth's in Wheeling Robbins, Mark - Mgr. CE Northbrook Community LabsAllen, Ethan ?F Nold, William L. M.D. rG Nielsen, Wendy Mae D Prudential Angelico, Darryl -E Don Roth's in Wheeling Robbins, Mark - Mgr. CE Northbrook Community LabsAllen, Ethan ?F Nold, William L. M.D. rG ;G Time (local) :G United Airlines <G Weather (local) ONAshton Tate ,".50","DOS","MANUAL" ONAshton Tate ,"PSB",".1","LOTUS","MG" ONAshton Tate Hanson, Sherry ONAshton Tate S","MG"".1","LOTUS","MG" <G Weather (local) ONAshton Tate ,".50","DOS","MANUAL" ONASTOR 722099+peek(63732)+peek(63733)*256 to x STOR int(x/365.26)+1 to y STOR x+int(395.25-365.25*y) to d IF int(y/4)*4=y STOR 1 to d1 ELSE STOR 2 to d1 ENDI IF d>(91-d1) STOR d+d1 to d ENDI STOR int(d/30.57) to m STOR d-int(30.57*m) to d IF m>12 STOR 1 to m STOR y+1 to y ENDI STOR y-1900 to y STOR str(m,2)+'/'+str(d,2)+'/'+str(y,2) to date SET date to &date STOR date() to holddate STOR x+(int(-x/7)*7) to x IF x=0 STOR 'Saturday, ' to today ELSE IF x=1 STOR 'Sunday, ' to today ELSE IF x=2 STOR 'Monday, ' to today ELSE IF x=3 STOR 'Tuesday, ' to today ELSE IF x=4 STOR 'Wednesday, ' to today ELSE IF x=5 STOR 'Thursday, ' to today ELSE STOR 'Friday, ' to today ENDI 5 ENDI 4 ENDI 3 ENDI 2 ENDI 1 ENDI 0 IF m=1 STOR today+'January 'to today ELSE IF m=2 STOR today+'February ' to today ELSE IF m=3 STOR today+'March ' to today ELSE IF m=4 STOR today+'April ' to today ELSE IF m=5 STOR today+'May ' to today ELSE IF m=6 STOR today+'June ' to today ELSE IF m=7 STOR today+'July ' to today ELSE IF m=8 STOR today+'August ' to today ELSE IF m=9 STOR today+'September ' to today ELSE IF m=10 STOR today+'October ' to today ELSE IF m=11 STOR today+'November ' to today ELSE STOR today+'December ' to today ENDI 11 ENDI 10 ENDI 9 ENDI 8 ENDI 7 ENDI 6 ENDI 5 ENDI 4 ENDI 3 ENDI 2 ENDI 1 STOR today+str(d,2)+', 19'+str(y,2) to today STOR peek(63734) to hour STOR peek(63735) to min STOR hour-6*int(hour/16) to hour STOR min-6*int(min/16) to min IF hour>12 .or. hour=12 STOR hour-12 to hour STOR ' p.m. '+today to today ELSE STOR ' a.m. '+today to today ENDI IF hour=0 STOR 12 to hour ENDI IF min<10 STOR '0'+str(min,1) to minute ELSE STOR str(min,2) to minute ENDI STOR str(hour,2)+':'+minute+today to today RETU  STOR today+'April ' to today ELSE IF m=5 STOR today+'May ' to today ELSE IF m=6 STOR today+'June ' to today ELSE IF m=SET format to screen @ 18,0 @ 16,0 SET intensity off @ 3,54 say chr(27)+chr(94) @ 3,54 say 'TIME MANAGEMENT SUBSYSTEM' @ 3,78 say chr(27)+chr(113) SET intensity on @ 5,50 say 'A - Daily appointment calendar' @ 6,50 say 'B - Daily action planning list' @ 7,50 say 'C - Monthly planning calendars' @ 8,50 say 'D - Six month calendar display' @ 9,50 say 'E - Monthly reminder notations' @ 14,50 say 'R - Return to main system menu' SET intensity off @ 16,54 say "Option (0-9; A-E or R)? " SET console off WAIT to option SET console on IF val(option)>0 .or. option='0' DO changeop RETU ENDI DO CASE CASE !(option)='A' DO aggendas CASE !(option)='B' DO todolist CASE !(option)='C' DO planning CASE !(option)='D' DO sixmonth CASE !(option)='E' DO reminder CASE !(option)='R' RETU ENDC RETU GETXTIMECMDefLIFETIME$$$ DATECsLOCATIONCsSTARTNsSTOPNsRATENsTOLLSNtPARKINGNtOTHERN t 07/01/8484 Vacation Time 07/02-07/03 = 2 days *07/01/8484 Vacation Time 07/02-07/03 = 2 days m=0 y AUTO MILEAGE RECORD N Y Y DATE N N DATE ===> 14,LOCATION < ;LOCATION;-------- 6,START >METER;START;----- N 6,STOP >METER;@ END;----- N 6,STOP-START >TOTAL;MILES;----- Y 5,RATE > ;RATE;---- N 7,RATE*(STOP-START) > ;AMOUNT;------ Y 6,TOLLS > ;TOLLS;----- Y 7,PARKING > ;PARK'G;------ Y 6,OTHER > ;OTHER;----- Y 6,RATE*(STOP-START)+TOLLS+PARKING+OTHER > ;TOTAL;----- Y ING > ;PARK'G;------ Y 6,OTHER > ;OTHER;----- Y 6,RATERASTIMECMDAEXITWORKCMDBCEXPENSESCMDDEFEXPENSESDBFGEXPENSESFRMHEXPENSESNDXIFILECABSCMD'JKLMNFILECABSDBFOFILECABSNDXPFONEBOOKCMDQRSTFONEBOOKDBFUFONEBOOKNDXtVWXYZ[\]^_`abcdGETXTIMECMDefLIFETIMECMDgMILEAGESDBFhMILEAGES$$$ *date do while row<17 @ row,0 store row+1 to row enddo @ 22,0 casestore 'T' to actplans use actplans index actplans @ 18,0 @ 16,0 set intensity off @07/12/8407/12/84 set intensity off @ 3,52 say chr(27)+chr(94) @ 3,52 say 'EXIT SYSTEM' @ 3,63 say chr(27)+chr(113) set intensity on @ 5,48 say 'A - Exit to the operating system' @ 6,48 say 'B - Exit to the database manager' @ 7,48 say 'C - Exit to text editor & return' @ 07/12/8407/12/84 set intensity off @ 3,52 say chr(27)+chr(94) @ 3,52 say 'EXIT SYSTEM' @ 3,63 say chr(27)+chr(113) set intensity on @ 5,48 say 'A - Exit to the operating system' @ 6,48 say 'B - Exit to the database manager' @ 7,48 say 'C - Exit to text editor & return' @ 8,48 say 'D - Exit to spreadsheet & return' @ 9,48 say 'E - Exit to another work station' @ 10,48 say 'F - Exit to system setup roine' @ 11,48 say 'G - Exit to set system date/time' @ 12,48,F- 1,32,22,22,22,22STOR date() to hold STOR val($(hold,7,2)) to yr IF planning='T' .or. reminder='T' STOR 1 to da STOR val($(hold,1,2))+1 to mo IF mo>12 STOR yr+1 to yr STOR 1 to mo ENDI ELSE STOR val($(hold,4,2))+1 to da STOR val($(hold,1,2)) to mo ENDI IF da<10 STOR '0'+str(da,1) to day ELSE STOR str(da,2) to day ENDI IF mo=2 IF yr/4=int(yr/4) .and. da>29 STOR '01' to day STOR mo+1 to mo ELSE IF yr/4#int(yr/4) .and. da>28 STOR '01' to day STOR mo+1 to mo ENDI ENDI ENDI IF mo=9 .or. mo=4 .or. mo=6 .or. mo=11 IF da>30 STOR '01' to day STOR mo+1 to mo ENDI ENDI IF mo=1 .or. mo=3 .or. mo=5 .or. mo=7 .or. mo=8 .or. mo=10 .or. mo=12 IF da>31 STOR '01' to day STOR mo+1 to mo IF mo>12 STOR 1 to mo STOR yr+1 to yr ENDI ENDI ENDI IF mo<10 STOR '0'+str(mo,1) to month ELSE STOR str(mo,2) to month ENDI STOR str(yr,2) to year STOR month+'/'+day+'/'+year to today SET date to &today RETU STOR 'T' to notebook USE notebook index notebook @ 18,0 @ 16,0 SET intensity off @ 3,54 say chr(27)+chr(94) @ 3,54 say 'NOTEBOOK/LOG SUBSYSTEM' @ 3,77 say chr(27)+chr(113) SET intensity on @ 5,50 say 'A - List notebook/log subjects' @ 6,50 say 'B - Make notebook/log entries' @ 7,50 say 'C - Scan the notebook database' @ 8,50 say 'D - Display or edit a notation' @ 9,50 say 'E - Go to the general notebook' @ 14,50 say 'R - Return to main system menu' SET intensity off @ 16,54 say "Option (0-9; A-D or R)? " SET console off WAIT to option SET console on IF val(option)>0 .or. option='0' DO changeop RETU ENDI DO CASE CASE !(option)='A' ERAS SET intensity on @ 1,0 say 'NOTEBOOK/LOG SUBJECTS ON FILE' SET intensity off GOTO top STOR 3 to row STOR 0 to col DO WHIL .not. eof @ row,col say note:subj STOR note:subj to hold SKIP DO WHIL note:subj=hold .and. .not. eof SKIP ENDD STOR row+1 to row IF row=18 STOR 3 to row STOR col+40 to col ENDI IF col>40 .and. .not. eof STOR ' ' to option @ 20,0 say 'More... Continue or Exit (C/E)'; get option READ IF !(option)='E' RETU ELSE ERAS STOR 3 to row STOR 0 to col @ 1,0 say 'NOTEBOOK/LOG SUBJECTS ON FILE' ENDI ENDI ENDD @ 20,0 say 'Press RETURN to return to menu...' ? WAIT to return CASE !(option)='B' ERAS GOTO bottom @ 2,7 say 'Press RETURN to skip unused lines...' DO notecard CASE !(option)='C' SET intensity on GOTO top BROW PACK CASE !(option)='D' ERAS SET exact off GOTO top STOR ' ' to subj @ 22,0 say 'Please enter subject of notation'; get subj READ STOR T to notebook DO WHIL notebook .and. .not. eof ERAS STOR ' ' to cont FIND &subj @ 2,7 say 'Press RETURN to skip unused/unchanged lines...' DO notecard @ 2,7 @ 22,8 say 'Continue to search topic (Y/N)'; get cont READ IF !(cont)#'Y' STOR F to notebook PACK ENDI ENDD CASE !(option)='E' ERAS QUIT to 'textedit b:notebook.txt','dbase wstation' ENDC USE RETU  NOTE:DATECsNOTE:SUBJCsNOTE:LIN1C?sNOTE:LIN2C?>tNOTE:LIN3C?}tNOTE:LIN4C?tNOTE:LIN5C?tNOTE:LIN6C?:u APPLICATIONS File cabinet menu program 07/09/84FILECABS.CMD *APPLICATIONS Main HANDY+ menu program 07/09/84WORKMENU.CMD *APPLICATIONS File information program 07/09/84FILEFOLD.CMD *Applications FOLDER 07/09/84 *Databases FOLDER 07/09/84 *Indexes FOLDER *, NOTE:SUBJ+NOTE:DATE @ 22,0 casestore 'T' to actplans use actplans index actplans @ 18,0 @ 16,0 set intensity off @84 Vacation Time 07/01/84W84 Vacation Time 07/01/84W84 Vacation Time 07/01/84W84 Vacation Time 07/01/84W84 Vacation Time 07/01/84W84 Vacation Time 07/01/84WMiscellaneous Contacts 84 Vacation Time 07/01/84W84 Vacation Time 07/01/84W84 Vacation Time 07/01/84W84 Vacation Time 07/01/84W84 Vacation Time 07/01/84W84 Vacation Time 07/01/84WMiscellaneous Contacts 09/04/84 EBOOKTXTNOTEBOOKBAKe control system meeting at RLA - 2B. (Kent Bracken) enditure control system meeting atNOTEBOOKNDXoNOTEBOOK$$$SET intensity on @ 4,5 say '_____________________________________________________________________' @ 5,5 say '| |' @ 6,5 say '| |' @ 7,5 say '|===================================================================|' STOR 8 to row DO WHIL row<19 @ row,5 say '| |' STOR row+1 to row @ row,5 say '|-------------------------------------------------------------------|' STOR row+1 to row ENDD @ 19,5 say '|___________________________________________________________________' @ 5,10 say 'date' @ 6,7 say 'subject' SET intensity off DO WHIL notebook='T' .or. actplans='T' IF !(option)#'D' STOR ' ' to day STOR ' ' to subj STOR ' ' to line1 STOR ' ' to line2 STOR ' ' to line3 STOR ' ' to line4 STOR ' ' to line5 STOR ' ' to line6 ELSE STOR note:date to day STOR note:subj to subj STOR note:lin1 to line1 STOR note:lin2 to line2 STOR note:lin3 to line3 STOR note:lin4 to line4 STOR note:lin5 to line5 STOR note:lin6 to line6 DELE ENDI @ 5,14 get day @ 6,14 get subj @ 8,7 get line1 @ 10,7 get line2 @ 12,7 get line3 @ 14,7 get line4 @ 16,7 get line5 @ 18,7 get line6 READ GOTO bottom APPE BLAN ENDI REPL note:date with day REPL note:subj with subj REPL note:lin1 with line1 REPL note:lin2 with line2 REPL note:lin3 with line3 REPL note:lin4 with line4 REPL note:lin5 with line5 REPL note:lin6 with line6 STOR ' ' to cont IF !(option)#'D' @ 22,7 say 'Continue entering notations (Y/N)'; get cont READ ENDI IF !(cont)#'Y' STOR 'F' to notebook STOR 'F' to actplans ELSE @ 22,0 ENDI ENDD RETU  ' to line4 STOR ' ' to line5 STOR ' ' to line6 ELSE STOR note:date to day STOR note:subj to subj STOR note:lin1 to line1 STOR note:lin2 to line2 STOR note:lin3 to line3 STOR note:lin4 to line4 STOR note:lin5 to line5 STOR note:lin6 to line6 DELE ENDI @ 5,14 get day @ 6,14 get subj @ 8,7 get line1 @ 10,7 get line2 @ 12,7 get line3 @ 14,7 get line4 @ 16,7 get line5 @ 18,7 get line6 READ GOTO bottom APPE BLAN ENDI REPL note:date with day REPL note:subj with subj REPL note:lin1 with line1 REPL note:lin2 with line2 REPL note:lin3 with line3 REPL note:lin4 with line4 REPL note:lin5 with line5 REPL note:lin6 with line6 STOR ' ' to cont IF !(option)#'D' @ 22,7 say 'Continue entering notations (Y/N)'; get conerase use planning index planning store ' ' to option store ' ' to space store '----------------------------------------------------------------------' to star store 1 to row set intensity off @ 18,26 say 'Enter one of the following single letter commands:' set intensity on @ 19,26 say 'A)dd E)dit F)uture N)ext P)ast R)eturn Q)uit' store date() to today if today=holddate store val($(today,4,2)) to blink endif store $(today,1,2) to month store $(today,7,2) to year store month+'/01/'+year to today store 'T' to planning do while planning='T' if !(option)#'A' store 0 to col store 0 to add set date to &today do saytoday do case case factor=1 store 15 to col case factor=2 store 25 to col case factor=3 store 35 to col case factor=4 store 45 to col case factor=5 store 55 to col case factor=6 store 65 to col case factor=0 store 75 to col endcase store col-10 to add store title+', 19'+year to title set intensity off @ 0,(80-len(title))/2 say title set intensity on @ 1,5 say '-------SUN-------MON-------TUE-------WED-------THU-------FRI-------SAT' do case case val(month)=2 .and. int(val(year)/4)*4=val(year) store 29 to endday case val(month)=2 store 28 to endday case val(month)=9 .or. val(month)=4 .or. val(month)=6 .or. val(month)=11 store 30 to endday otherwise store 31 to endday endcase store 1 to day store 3 to row store col-10 to col do while day65 store row+3 to row store 5 to col endif enddo endif goto top find &month do while $(act:date,1,2)=month .and. .not. eof store add to col store 4 to row store 1 to day store $(act:date,4,2) to start store trim(act:desc) to desc do while day65 store row+3 to row store 5 to col endif enddo set intensity off store ' ' to line2 if len(desc)+col>75 store $(desc,1,75-col) to line1 store line2+$(desc,75-col+1,len(desc)-(75-col)) to line2 else store desc to line1 endif if $(act:date,7,2)=year @ row,col say line1 if row+3<19 @ row+3,add-1 say line2  endif endif skip enddo store ' ' to option set intensity off @ 22,26 say 'WAITING'; get option read set intensity on do case case !(option)='Q' store 'F' to planning case !(option)='A' store ' ' to start store ' ' to length @ 22,0 set intensity off @ 22,6 say 'Starting day of activity (DD)'; get start @ 22,40 say 'Length of activity in days'; get length read set intensity on store 10*val(length) to width store $(space,1,width) to desc @ 22,18 @ 22,0 say 'Activity'; get desc read store trim(desc)+' '+$(star,1,width-len(trim(desc))-2)+'>' to desc store add to col store 4 to row store 1 to day do while day65 store row+3 to row store 5 to col endif enddo set intensity off store ' ' to line2 if len(desc)+col>75 store $(desc,1,75-col) to line1 store line2+$(desc,75-col+1,len(desc)-(75-col)) to line2 else store desc to line1 endif @ row,col say line1 if row+3<19 @ row+3,add-1 say line2 endif set intensity on @ 22,0 if len(month)<2 store '0'+month to month endif if len(trim(start))<2 store '0'+trim(start) to start endif store $(month,1,2)+'/'+start+'/'+year to start goto bottom append blank replace act:date with start, act:desc with desc case !(option)='E' goto top browse pack store month+'/01/'+year to now set date to &now do planning  case !(option)='F' .or. !(option)='P' store ' ' to new @ 22,0 set intensity off @ 22,26 say 'Enter month and year (MM/YY)'; get new picture 'XX/XX' read set intensity on store trim(new) to new store $(new,1,2) to month store $(new,4,2) to year store month+'/01/'+year to today @ 22,0 store 0 to row do while row<17 @ row,0 store row+1 to row enddo if factor=0 .and. endday>29 @ 18,13 say ' ' @ 19,13 say ' ' endif if $(holddate,1,3)+'01'+$(holddate,6,3)=today store val($(holddate,4,2)) to blink else store 0 to blink endif case !(option)='N' do nextdate @ 22,0 store 0 to row do while row<17 @ row,0 store row+1 to row enddo  if factor=0 .and. endday>29 @ 18,13 say ' ' @ 19,13 say ' ' endif store 0 to blink case !(option)='R' store $(holddate,1,2)+'/01/'+$(holddate,7,2) to today store val($(holddate,4,2)) to blink @ 22,0 store 0 to row do while row<17 @ row,0 store row+1 to row enddo if factor=0 .and. endday>29 @ 18,13 say ' ' @ 19,13 say ' ' endif endcase enddo set date to &holddate return  say ' ' ' ' endif if $(holddate,1,3)+'01'+$(holddate,6,3)=today store val($(holddate,4,2)) to blink else store 0 to blink endif case !(option)='N' do nextdate @ 22,0 store 0 to row do while row<17 @ row,0 store row+1 to row enddo  ACT:DATECsACT:DESCCFs 1 8*2 11*3 8*4 *5 *6 *7 *8 *9 *10 *11 1*12 1  *ACT:DATE @ 22,0 casestore 'T' to actplans use actplans index actplans @ 18,0 @ 16,0 set intensity off @01/01/8505/27/85 07/02/8407/04/8507/16/84 08/14/8408/20/8409/02/8509/03/8409/17/84 11/22/8411/28/8512/23/85 12/24/84 12/31/8401/01/8505/27/85 07/02/8407/04/8507/16/84 08/14/8408/20/8409/02/8509/03/8409/17/84 11/22/8411/28/8512/23/85 12/24/84 12/31/84STOR date() to look FIND &look DO WHIL .not. eof .and. appt:date=date() IF val($(appt:time,1,2))>6 STOR 2*val($(appt:time,1,2))-10 to line ELSE STOR 2*val($(appt:time,1,1))+2 to line ENDI IF val($(appt:time,1,2))<7 STOR 31 to column ELSE STOR 7 to column ENDI IF $(appt:time,3,1)='3' .or. $(appt:time,4,1)='3' STOR line+1 to line ENDI IF .not.* @ line,column say appt:desc ENDI SKIP ENDD RETU ERAS USE reminder index reminder STOR date() to hold STOR $(hold,1,2) to month STOR $(hold,7,2) to year STOR ' ' to option DO saytoday SET intensity on @ 1,0 say 'REMINDERS FOR THE MONTH OF' @ 1,27 say !(title) SET intensity off STOR hold to today SET intensity on @ 18,0 say '--------------------------------------------------------------------------------' SET intensity off @ 19,0 say 'Enter one of the following single letter commands:' SET intensity on @ 20,0 say 'A)dd E)dit F)uture N)ext P)ast Q)uit R)eturn' STOR 'T' to reminder DO WHIL reminder='T' IF !(option)#'A' GOTO top STOR $(today,1,2) to hold FIND &hold STOR 3 to row STOR 0 to col SET intensity off DO WHIL $(event:date,1,2)=hold .and. .not. eof @ row,col say event:date @ row,col+7 say event:desc STOR row+1 to row SKIP IF row=17 .and. col=0 STOR 3 to row STOR col+40 to col ENDI IF col>40 SET colon off @ 22,0 @ 22,0 say 'More... press RETURN to continue'; get return READ SET colon on STOR 3 to row STOR 0 to col DO WHIL row<17 @ row,col STOR row+1 to row ENDD STOR 3 to row ENDI ENDD STOR row to call ENDI SET intensity off @ 21,0 say ' ' WAIT to option DO CASE CASE !(option)='A' STOR ' ' to desc STOR ' ' to day @ 22,0 @ 22,0 say 'Event day (DD)'; get day @ 22,35 say 'Description'; get desc READ STOR trim(day) to day IF len(day)<2 STOR '0'+day to day ENDI STOR $(today,1,3)+day to day IF row<17 .and. col<41 @ row,col say day @ row,col+7 say desc STOR row+1 to row ENDI GOTO bottom APPE BLAN REPL event:date with day,event:desc with desc @ 22,0 CASE !(option)='E' GOTO top FIND &hold SET intensity on BROW PACK SET date to &today DO reminder CASE !(option)='F' .or. !(option)='P' STOR ' ' to today @ 22,0 @ 22,0 say 'Please enter month (MM)'; get today READ STOR trim(today) to today IF len(today)=1 STOR '0'+today to today ENDI STOR $(today,1,2)+'/01/'+$(holddate,7,2) to today STOR today to start SET date to &today DO saytoday SET intensity on @ 1,0 @ 1,0 say 'REMINDERS FOR THE MONTH OF' @ 1,27 say !(title) SET intensity off STOR start to today STOR 3 to row DO WHIL row<17 @ row,0 STOR row+1 to row ENDD @ 22,0 CASE !(option)='N' STOR 3 to row DO WHIL row<17 @ row,0 STOR row+1 to row ENDD @ 1,0 DO nextdate STOR today to start SET date to &today DO saytoday SET intensity on @ 1,0 say 'REMINDERS FOR THE MONTH OF' @ 1,27 say !(title) SET intensity off STOR start to today STOR $(today,1,2) to hold FIND &hold @ 22,0 CASE !(option)='Q' STOR 'F' to reminder CASE !(option)='R' SET date to &holddate STOR holddate to hold STOR 3 to row DO WHIL row<17 @ row,0 STOR row+1 to row ENDD @ 1,0 DO saytoday SET intensity on @ 1,0 say 'REMINDERS FOR THE MONTH OF' @ 1,27 say !(title) SET intensity off STOR hold to today STOR $(today,1,2) to hold @ 22,0 ENDC ENDD SET date to &holddate RETU  EVENT:DATEC sEVENT:DESCCs 07/09/84Tom Roth C*07/09/84Hours checking program A*07/09/84Refine domestic timekeeping system A*07/09/84Steve Gage C*07/09/84Dr. Nold for appointment C07/09/84Pete Sylvester C 06/28/84Hours checking program A*06/28/84Check domestic hours database A 07/09/84Refine domestic timekeeping system A 07/09/84Steve Gage C 07/09/84Dr. Nold for appointment C06/28/8*, EVENT:DATE+EVENT:DESC @ 22,0 casestore 'T' to actplans use actplans index actplans @ 18,0 @ 16,0 set intensity off @01/14 Mom's Birthday 02/03 Julie's Birthday 02/14 St. Valentine's Day 02/21 Pat's Birthday 03/26 Georgiana's Birthday 04/27 Betsie Fry's Birthday 04/27 K. Mcmanaway'01/14 Mom's Birthday 02/03 Julie's Birthday 02/14 St. Valentine's Day 02/21 Pat's Birthday 03/26 Georgiana's Birthday 04/27 Betsie Fry's Birthday 04/27 K. Mcmanaway's Birthday 04/27 Mark Robbins' Birthday 04/29 Mike's Birthday 05/13 Mothers' Day 06/08 Poovie's Birthday 08/18 Janice's Birt04/27 K. Mcmanaway's Birthday 04/27 Mark Robbins' Birthday 04/29 Mike's Birthday 05/03 Downtown with M. Robbins 05/08 G. leaves for California 05/13 Mothers' Day 05/14 Meet Darryl - D.R's. @ 5:00 05/16 G. returns from California 05/28 Memorial Day 05/31 Party for Martha & Steve 06/08 Cindy's Birthday 06/08 Poovie's Birt04/27 Betsie Fry's Birthday  05/13 Mothers' Day 06/08 Poovie's Birthday 11/14 Dad's Birthday 06/08 Poovie's Birthday 08/18 Janice's Birthday 04/27 K. Mcmanaway's Birthday 04/27 Mark Robbins' Birthday 04/29 Mike's Birthday 05/13 Mothers' Day 06/08 Poovie's Birthday 08/18 Janice's Birt06/13 Brek's last day 06/22 Schwepps' Birthday 06/30 Walley's Party 07/17 Karen's Birthday 08/17 Wedding Anniversary 08/18 Janice's Birthday 11/14 Dad's Birthday 11/30 Ruth's Birthday 12/25 Nancy Taylor's Birthday 12/29 Stephie's Birthday 12/30 Peter's Birthday 12/31 Folk's Annive05/14 Meet Darryl - D.R's. @ 5:00 05/16 G. returns from California 05/28 Memorial Day 05/31 Party for Martha & Steve 06/08 Cindy's Birthday 06/08 Poovie's Birthday 05/14 Meet Darryl - D.R's. @ 5:00 05/16 G. returns from California 05/28 Memorial Day 05/31 Party for Martha & Steve 06/08 Cindy's Birthday 06/08 Poovie's Birt11/30 Dorothy's Birthday 11/30 Ruth's Birthday 12/25 Nancy Taylor's Birthday 12/29 Stephie's Birthday 12/30 Peter's Birthday 12/31 Folk's Anniversary 11/30 Dorothy's Birthday 11/30 Ruth's Birthday 12/25 Nancy Taylor's Birthday 12/29 Stephie's Birthday 12/30 Peter's Birthday 12/31 Folk's Annive05/14 Meet Darryl - D.R's. @ 5:00 05/16 G. returns from California 05/28 Memorial Day 05/31 Party for Martha & Steve 06/08 Cindy's Birthday 06/08 Poovie's Birthday 05/14 Meet Darryl - D.R's. @ 5:00 05/16 G. returns from California 05/28 Memorial Day 05/31 Party for Martha & Steve 06/08 Cindy's Birthday 06/08 Poovie's BirtSTOR date() to today STOR val($(today,4,2))to blink STOR date() to hold DO WHIL offset<=9 STOR month+'/01/'+year to today SET date to &today DO saytoday DO CASE CASE factor=1 STOR column+57 to column CASE factor=2 STOR column+60 to column CASE factor=3 STOR column+63 to column CASE factor=4 STOR column+66 to column CASE factor=5 STOR column+69 to column CASE factor=6 STOR column+72 to column CASE factor=0 STOR column+75 to column ENDC IF val(month)=2 IF val(year)/4=int(val(year)/4) STOR 29 to last ELSE STOR 28 to last ENDI ELSE IF val(month)=9 .or. val(month)=4 .or. val(month)=6 .or. val(month)=11 STOR 30 to last ELSE STOR 31 to last ENDI ENDI STOR 1 to count STOR 1+offset to row STOR title+', 19'+year to title @ row,xpos+58+((21-len(title))/2) say title STOR row+2 to row @ row,xpos+58 say 'S' @ row,xpos+61 say 'M' @ row,xpos+64 say 'T' @ row,xpos+67 say 'W' @ row,xpos+70 say 'T' @ row,xpos+73 say 'F' @ row,xpos+76 say 'S' STOR row+1 to row DO WHIL count<=last  IF count=blink .and. offset=0 .and. fmonth='T' SET intensity off ENDI @ row,column say count using '99' IF count=blink .and. offset=0 .and. fmonth='T' SET intensity on ENDI STOR count+1 to count STOR column+3 to column IF column>xpos+75 STOR xpos+57 to column STOR row+1 to row ENDI ENDD STOR offset+9 to offset STOR mo+1 to mo IF mo<10 STOR str(mo,1,0) to month STOR '0'+month to month ELSE IF mo>12 STOR '01' to month STOR str(val(year)+1,2,0) to year ELSE STOR str(mo,2,0) to month ENDI ENDI STOR xpos to column IF sixmonth='T' SET intensity off ENDI ENDD SET date to &hold STOR val($(hold,1,2)) to mo RETU os+58+((21-len(title))/2) say title STOR row+2 to row @ row,xpos+58 say 'S' @ row,xpos+61 say 'M' @ row,xpos+64 say 'T' @ row,xpos+67 say 'W' @ row,xpos+70 say 'T' @ row,xpos+73 say 'F' @ row,xpos+76 say 'S' STOR row+1 to row DO WHIL count<=last STOR date() to today STOR $(today,1,2) to month STOR $(today,4,2) to day STOR $(today,7,2) to year STOR val(month) to mo STOR val(day) to da IF val(day)<10 STOR $(day,2,1) to day ENDI STOR val(year)+1900 to yr STOR (365*yr)+da+(31*(mo-1)) to fact1 IF mo<3 STOR int((yr-1)/4)-int(.75*(int((yr-1)/100)+1)) to fact2 STOR fact1+fact2 to factor ELSE STOR int(.4*mo+2.3)-int(yr/4)+int(.75*(int(yr/100)+1)) to fact2 STOR fact1-fact2 to factor ENDI STOR factor+(int(-factor/7)*7) to factor DO CASE CASE factor=0 STOR 'Saturday' to today CASE factor=1 STOR 'Sunday' to today CASE factor=2 STOR 'Monday' to today CASE factor=3 STOR 'Tuesday' to today CASE factor=4 STOR 'Wednesday' to today CASE factor=5 STOR 'Thursday' to today CASE factor=6 STOR 'Friday' to today ENDC STOR today+', ' to today DO CASE CASE mo=1 STOR today+'January' to today STOR 'January' to title CASE mo=2 STOR today+'February' to today STOR 'February' to title CASE mo=3 STOR today+'March' to today STOR 'March' to title CASE mo=4 STOR today+'April' to today STOR 'April' to title CASE mo=5 STOR today+'May' to today STOR 'May' to title CASE mo=6 STOR today+'June' to today STOR 'June' to title CASE mo=7 STOR today+'July' to today STOR 'July' to title CASE mo=8 STOR today+'August' to today STOR 'August' to title CASE mo=9 STOR today+'September' to today STOR 'September' to title CASE mo=10 STOR today+'October' to today STOR 'October' to title CASE mo=11 STOR today+'November' to today STOR 'November' to title CASE mo=12 STOR today+'December' to today STOR 'December' to title ENDC STOR today+' '+day+', 19'+year to today RETU TOR 'Friday' to today ENDC STOR today+', ' to today DO CASE CASE mo=1 STOR today+'January' to today STOR 'January' to title CASE mo=2 STOR today+'February' to today STOR 'February' to title CASE mo=3 STOR today+'March' to today STOR 'March' to STOR 'T' to fmonth STOR date() to today STOR $(today,1,2) to month STOR $(today,7,2) to year STOR 'T' to sixmonth DO WHIL sixmonth='T' IF fmonth='T' SET intensity on ELSE SET intensity off ENDI ERAS STOR 0 to offset STOR-57 to xpos STOR-57 to column STOR 'T' to repeat DO WHIL repeat='T' DO saymonth STOR 'F' to fmonth STOR xpos+30 to xpos STOR xpos to column STOR 0 to offset IF xpos>4 STOR 'F' to repeat ENDI ENDD STOR ' ' to option @ 21,0 say 'Enter Q to quit or C to change (Q/C)'; get option READ IF !(option)='C' STOR ' ' to start @ 21,0 @ 21,0 say 'Enter month and year to start (MM/YY)'; get start picture 'XX/XX' READ IF @('/',start)=2 STOR '0'+start to start ENDI STOR $(start,1,2) to month STOR $(start,4,2) to year ELSE STOR 'F' to sixmonth ENDI ENDD RETU erase use todolist index todolist store date() to hold store $(hold,1,2) to month store $(hold,7,2) to year store ' ' to option do saytoday set intensity on @ 1,0 say 'DAILY TO-DO LIST' set intensity off @ 2,0 say today store hold to today set intensity on @ 4,0 say 'WORK TO BE COMPLETED' @ 4,40 SAY 'CALLS TO BE MADE' @ 18,0 say '--------------------------------------------------------------------------------' set intensity off @ 19,0 say 'Enter one of the following single letter commands:' set intensity on @ 20,0 say 'A)dd E)dit F)uture N)ext P)ast Q)uit R)eturn' store 'T' to todo do while todo='T' if !(option)#'A' goto top find &today store 6 to row store 0 to col set intensity off do while row<17 .and. act:date=today .and. act:type='A' .and. .not. eof @ row,col say act:desc store row+1 to row skip enddo store row to work do while act:date=today .and. act:type='A' .and. .not. eof  skip enddo store 40 to col store 6 to row do while row<17 .and. act:date=today .and. act:type='C' .and. .not. eof @ row,col say act:desc store row+1 to row skip enddo store row to call endif set intensity off @ 21,0 say ' ' wait to option do case case !(option)='A' store ' ' to desc store ' ' to type @ 22,0 @ 22,0 say 'Description'; get desc @ 22,50 say 'Category Work or Call (W/C)'; get type read if !(type)='W' .and. work<17 @ work,0 say desc store work+1 to work else if call<17 @ call,40 say desc store call+1 to call endif endif goto bottom append blank replace act:date with today replace act:desc with desc if !(type)='W' replace act:type with 'A' else replace act:type with 'C' endif @ 22,0 case !(option)='E' goto top set intensity on browse pack set date to &today do todolist case !(option)='F' .or. !(option)='P' store ' ' to today @ 22,0 @ 22,0 say 'Enter date as MM/DD/YY'; get today picture 'XX/XX/XX' read store trim(today) to today if @('/',today)=2 store '0'+today to today endif if len(today)<8 store $(today,1,2)+'/0'+$(today,4,4) to today endif store today to start set date to &today do saytoday @ 2,0 @ 2,0 say today store start to today store 6 to row do while row<17 @ row,0 store row+1 to row enddo @ 22,0 case !(option)='N' store 6 to row do while row<17 @ row,0 store row+1 to row enddo @ 2,0 do nextdate store today to start set date to &today do saytoday @ 2,0 say today store start to today find &today @ 22,0 case !(option)='Q' store 'F' to todo case !(option)='R' set date to &holddate store 6 to row do while row<17 @ row,0 store row+1 to row enddo @ 2,0 do saytoday @ 2,0 say today store hold to today @ 22,0 endcase enddo use set date to &holddate return  @ 2,0 say today ay do saytoday @ 2,0 @ 2,0 say today store start to today store 6 to row do while row<17 @ row,0 store row+1 to row enddo @ 22,0 case !(option) ACT:DATECsACT:DESCC#sACT:TYPECt 07/12/84test 0.0 0.0 0.00 0.00 0.00 0.00 ? 'Please enter an option number (0-9)' set console off wait to option set console on endif store 'N' to continue do case case option='0' do exitwork case option='1' do calculat case option='2' do expenses case option='3set format to screen @ 18,0 @ 16,0 set intensity off @ 3,52 say chr(27)+chr(94) @ 3,52 say 'TIME & DATE SUBSYSTEM' @ 3,73  'ACT:DATE+ACT:TYPE @ 22,0 casestore 'T' to actplans use actplans index actplans @ 18,0 @ 16,0 set intensity off @07/09/84A07/09/84A07/09/84C07/09/84C07/09/84C07/09/84C07/09/84C07/09/84C07/09/84C07/09/84C07/09/84C 06/28/84C 06/28/84C07/09/84A07/09/84A07/09/84C07/09/84C07/09/84C07/09/84C07/09/84C07/09/84C07/09/84C07/09/84C07/09/84C 06/28/84C 06/28/84C SET talk off STOR date() to today STOR T to handy DO WHIL handy SET intensity on IF continue='N' ERAS ? ? 'HANDY+ PERSONAL WORK STATION SYSTEM' ? ' MAIN MENU' ? ? 'Exit System.......................0' ? 'Calculator........................1' ? 'Expense Account...................2' ? 'Time Management...................3' ? 'Action Planning...................4' ? 'Notebook/Log......................5' ? 'Filing Cabinet....................6' ? 'Address & Phone Book..............7' ? 'Decision Support Tool.............8' ? 'Special Reports & Utilities.......9' ? ? 'Please enter an option number (0-9)' SET console off WAIT to option SET console on ENDI STOR 'N' to continue DO CASE CASE option='0' DO exitwork CASE option='1' DO calculat CASE option='2' DO expenses CASE option='3' DO lifetime CASE option='4' DO actplans CASE option='5' DO notebook CASE option='6' DO filecabs CASE option='7' DO fonebook CASE option='8' DO decision CASE option='9' IF file('specials.cmd') DO specials ENDI ENDC ENDD SET default to a RETU AL WORK STATION SYSTEM' ? ' MAIN MENU' ? ? 'Exit System.......................0' ? 'Calculator........................1' ? 'Expense Account...................2' ? 'Time Management...................3' ? 'Action Planning...................4' ? 'Notebook/Log......................5' ? 'Filing Cabinet....................6' ? 'Address & Phone Book..............7' ? 'Decision Support Tool.............8' ? 'Special Reports & Utilities.......9' ? ? 'Please enter an option number (0-9)' SET console off WAIT to option SET console on ENDI STOR 'N' to continue DO CASE CASE option='0' DO exitwork CASE option='1' DO calculat CASE option='2' DO expenses CASE option='3' DO lifetime CASE option='4' DO actplans CASE option='5' DO notebook CASE option='6' DO filecabs CASE option='7' DO fonebook CASE option='8' DO decision CASE option='9' IF file('speci*************************************************** * Program WSTATION * * Peter C. Hawxhurst * * 02/11/84 * * * * HANDY+ start-up from drive A. * *************************************************** set talk off set format to screen store T to wstation do while wstation store 'N' to continue store ' ' to planning store ' ' to reminder store ' ' to notebook store ' ' to actplans do getxtime set default to b if type(filecabs) do while filecabs ? ? 'Insert selected disk in drive B and press RETURN...' set console off wait to return set console on if file('filecabs.cmd') .and. file('filecabs.dbf') use filecabs index filecabs @ 20,0 do filecabs else erase ? ? 'Selected disk does not contain file' ? 'cabinet and/or file cabinet routine!' ? ? 'Do you wish to try another disk (Y/N)?' set console off wait to response set console on if !(response)#'Y' store F to filecabs else erase endif reset endif enddo endif erase ? ? '|\===========================================/|' ? '| HANDY+ Personal Work Station System v1.0B |' ? '| Copyright 1984 by, |' ? '| Peter C. Hawxhurst |' ? '|_____________________________________________|' ? ? today ? ? 'Place system disk in drive B and press RETURN...' set console off wait to return set console on if file('workmenu.cmd') do workmenu else erase ? ? 'Not a work station system disk - do you wish to try again (Y/N)?' set console off wait to response set console on if !(response)#'Y' store F to wstation quit endif endif enddo se set console on if !(response)#'Y' store F to if !(response)#'Y' store F to filecabs else erase endif reset endif enddo endif erase ? ? '|\===========================================/|' ? '| HANDY+ Personal Work Station System v1.0B |' ? '| Copyright 1984 by, |' ? '| Peter C. Hawxhurst |' ? '|_____________________________________________|' ? ? today ? ? 'Place system disk in drive B and press RETURN...' set console off wait to return set console on if file('workmenu.cmd') do workmenu else erase ? ? 'Not a work station system disk - do you wish to try ag! This is the release date of the disk. ERASTIMECMD AEXITWORKCMD BEXPENSESCMD D EXPENSESDBF GEXPENSESFRM HEXPENSESNDX IFILECABSCMD JFILECABSDBF OFILECABSNDX PFONEBOOKCMD QFONEBOOKDBF UFONEBOOKNDX V:GETXTIMECMD eLIFETIMECMD gCHANGEOP.CMD 1E 60 128 1 DECISION.CMD D9 99 2304 18 DECISION.DBF 2E 21 1024 8 DECISION.NDX 36 17 1024 8 ERASTIME.CMD 71 24 384 3 EXITWORK.CMD 05 B7 1792 14 EXPENSES.CMD AD D7 2944 23 EXPENSES.DBF 9F AE 1024 8 EXPENSES.FRM 9C 13 512 4 EXPENSES.NDX FA 79 1024 8 FILECABS.CMD 16 71 4992 39 FILECABS.DBF C4 FC 1024 8 FILECABS Fog Library Disk FOG-CPM.148 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. HANDY+ A Desktop Manager written in dBase II. Filename Description -09-00 .86 This is the release date of the disk. -CPM148 .DOC This is the description of the disk contents. HANDY-10.DOC B474 41K ver. 1.0 [HANDY+ 1 of 51] A Desktop manager written in dBase II. Combines the features of a Calculator, Expense Account, Time Manager, Planner, Notebook, Address & Phonebook, Filing Cabinet, etc.. It will also chain to .COM files, making it a complete menu-driven system. ACTPLANS.CMD 9C61 2K ver. 1.0 [HANDY+ 2 of 51] ACTPLANS.DBF 57BB 1K ver. 1.0 [HANDY+ 3 of 51] ACTPLANS.NDX 37AC 1K ver. 1.0 [HANDY+ 4 of 51] ACTPLANS.TXT 8CC9 1K ver. 1.0 [HANDY+ 5 of 51] AGGENDAS.CMD 8685 3K ver. 1.0 [HANDY+ 6 of 51] AGGENDAS.DBF E3D9 1K ver. 1.0 [HANDY+ 7 of 51] AGGENDAS.NDX 0C1F 3K ver. 1.0 [HANDY+ 8 of 51] CALCULAT.CMD E69C 3K ver. 1.0 [HANDY+ 9 of 51] CHANGEOP.CMD 1E60 1K ver. 1.0 [HANDY+ 10 of 51] DECISION.CMD D999 3K ver. 1.0 [HANDY+ 11 of 51] DECISION.DBF 2E21 1K ver. 1.0 [HANDY+ 12 of 51] DECISION.NDX 3617 1K ver. 1.0 [HANDY+ 13 of 51] ERASTIME.CMD 7124 1K ver. 1.0 [HANDY+ 14 of 51] EXITWORK.CMD 05B7 2K ver. 1.0 [HANDY+ 15 of 51] EXPENSES.CMD ADD7 3K ver. 1.0 [HANDY+ 16 of 51] EXPENSES.DBF 9FAE 1K ver. 1.0 [HANDY+ 17 of 51] EXPENSES.FRM 9C13 1K ver. 1.0 [HANDY+ 18 of 51] EXPENSES.NDX FA79 1K ver. 1.0 [HANDY+ 19 of 51] FILECABS.CMD 1671 5K ver. 1.0 [HANDY+ 20 of 51] FILECABS.DBF C4FC 1K ver. 1.0 [HANDY+ 21 of 51] FILECABS.NDX 7E03 1K ver. 1.0 [HANDY+ 22 of 51] FONEBOOK.CMD 2AEC 4K ver. 1.0 [HANDY+ 23 of 51] FONEBOOK.DBF F729 1K ver. 1.0 [HANDY+ 24 of 51] FONEBOOK.NDX 5746 15K ver. 1.0 [HANDY+ 25 of 51] GETXTIME.CMD 93A4 2K ver. 1.0 [HANDY+ 26 of 51] LIFETIME.CMD C1EA 1K ver. 1.0 [HANDY+ 27 of 51] MILEAGES.DBF 7E87 1K ver. 1.0 [HANDY+ 28 of 51] MILEAGES.FRM 9024 1K ver. 1.0 [HANDY+ 29 of 51] MILEAGES.NDX FA79 1K ver. 1.0 [HANDY+ 30 of 51] NEXTDATE.CMD 0B93 1K ver. 1.0 [HANDY+ 31 of 51] NOTEBOOK.CMD 770F 2K ver. 1.0 [HANDY+ 32 of 51] NOTEBOOK.DBF 3D89 1K ver. 1.0 [HANDY+ 33 of 51] NOTEBOOK.NDX 1D91 1K ver. 1.0 [HANDY+ 34 of 51] NOTEBOOK.TXT A07A 1K ver. 1.0 [HANDY+ 35 of 51] NOTECARD.CMD 2B6F 3K ver. 1.0 [HANDY+ 36 of 51] PLANNING.CMD 6ADC 7K ver. 1.0 [HANDY+ 37 of 51] PLANNING.DBF 2B91 1K ver. 1.0 [HANDY+ 38 of 51] PLANNING.NDX 87FE 1K ver. 1.0 [HANDY+ 39 of 51] PRINTIME.CMD B8CC 1K ver. 1.0 [HANDY+ 40 of 51] REMINDER.CMD E064 3K ver. 1.0 [HANDY+ 41 of 51] REMINDER.DBF F1E4 1K ver. 1.0 [HANDY+ 42 of 51] REMINDER.NDX 7F8C 4K ver. 1.0 [HANDY+ 43 of 51] SAYMONTH.CMD 9776 2K ver. 1.0 [HANDY+ 44 of 51] SAYTODAY.CMD F421 2K ver. 1.0 [HANDY+ 45 of 51] SIXMONTH.CMD 7EA8 1K ver. 1.0 [HANDY+ 46 of 51] TODOLIST.CMD 38BB 4K ver. 1.0 [HANDY+ 47 of 51] TODOLIST.DBF 98DB 1K ver. 1.0 [HANDY+ 48 of 51] TODOLIST.NDX 261E 1K ver. 1.0 [HANDY+ 49 of 51] " WORKMENU.CMD 2013 2K ver. 1.0 [HANDY+ 50 of 51] WSTATION.CMD AC85 3K ver. 1.0 [HANDY+ 51 of 51]  ver. 1.0 [HANDY+ 33 of 51] NOTEBOOK.NDX 1D91 1K ver. 1.0 [HANDY+ 34 of 51] NOTEBOOK.TXT A07A 1K ver. 1.0 [HANDY+ 35 of 51] NOTECARD.CMD 2B6F 3K ver. 1.0 [HANDY+ 36 of 51] PLANNING.CMD 6ADC 7K ver. 1.0 [HANDY+ 37 of 51] PLANNING.DBF 2B91 1K ver. 1.0 [HANDY+ 38 of 51] PLANNING.NDX 87FE 1K ver. 1.0 [HANDY+ 39 of 51] PRINTIME.CMD B8CC 1K ver. 1.0 [#$%&'