PSION CD 2

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

/ PSION CD 2 / PsionCDVol2.iso / Programs / 143 / 5TIME.SIS / 5Time.app / 5Time.txt

Wrap

Text File | 1999-02-28 | 84.4 KB | 6,650 lines

D:\OPP\5Time\5Time.pre NUMBERTODOS% NUMBERTASKS% REGISTEREDUSER% PASSWORD$ APPTIT$ APPVER$ EMAIL$ YSLIDE GEOFOX1% SCREENHEIGHT% AGENDA_OPEN% DATEFORMAT% WHOLESCREEN% TRUN1& TRUN2& TRUN3& TOFF& NOTE& TICK& NOTICK& NONOTE& BMPFILENAME$ NUMBERTODORECORDS% NUMBEROSTASKS% NUMBEROSTASKS2% NUMBERSUMMARYTASKS% NUMBERCLIENTBILLS% TODODATABASENAME$ TASKDATABASENAME$ PREFSDATABASENAME$ PREFS2DATABASENAME$ AGENDADATABASENAME$ NEWDATABASENAME$ MEMOPATH$ PTITLE$ PFIRSTNAME$ PSURNAME$ PADR1$ PADR2$ PADR3$ PADR4$ TDLT% TDDT$ TDPR$ TDPR% TDLST$ TDTD$ TDDN$ TNOTE% OTDT$ OTCN$ OTTT$ OTDET$ OTSTART$ OTEND$ OTNOTE% OTSD% OSCL$ OSTT$ OSTM$ BLCN$ BLBN$ BLTV$ BLBD$ BLPD$ TDSTART% TDEND% TDNAMES$ BLSTART% MAINMENUITEM% MAINMENUITEM2% TOPBUTTONTEXT$ CURRENTMWMODE% CURRENTSORTORDER% TVSORTORDER% SORTWITHINDATE% DONEORDER% SPECIFICDATE& MEMONUMBER% 8 MEMOTEXT$ CURRENTLIST$ MBUFFER& 9 MBUFFER2& TASKRUNNING% TASKSRUNNING% SORTTASKASCENDING% CURRENTSUBTASK% CLIENTNUMBER1% CLIENTNUMBER2% CLIENTNUMBER3% BILLNUMBER% TASKTYPE1% TASKTYPE2% TASKTYPE3% *B DETAILS1$ -B DETAILS2$ aB DETAILS3$ STARTDATE1& STARTDATE2& STARTDATE3& STARTTIME1& STARTTIME2& STARTTIME3& KEYTASKNUMBER1% KEYTASKNUMBER2% KEYTASKNUMBER3% TASKRUNNING1% TASKRUNNING2% TASKRUNNING3% OTSTART% OSSTART% PRINTERPAGESIZE% PRINTERMEASURE% PRINTERFONTHEIGHT% PRINTERORIENTATION% PRINTERMARGIN PRINTERNUMBERTABS% PRINTERHEADER$ PRINTERFOOTER$ PRINTERCURRENTPOSITION& PRINTERLEFTMARGIN& PRINTERPRINTWIDTH& PRINTERPRINTHEIGHT& TABPOS& E TABALIGN% THREAD& REDRAWSCREEN% HF BILLPAID% TASKSTOSTOP% NF TSCLIENT% TSTASK% TSSTART& TSEND& TSTIME& FIRSTTIMEUSE% USERNAME2$ TOTALCBILL AGENDANAME$ ALARMNAME$ SUMMARYCLIENTNUMBER% SUMMARYCLIENTNUMBER1% SUMMARYTASKTYPE% LASTCLIENTUSED% LASTTASKTYPE% OLDDISPTIME$ TWENTYFOUR% OPENINGSCREEN% STARTENDDAY% ALARMSTART& G ALARMEND& DONEMORNING% DONEEVENING% LASTCURRENTTIME& G WARNTASK% TIMEPAUSED1& TIMEPAUSED2& TIMEPAUSED3& TASKPAUSED1% TASKPAUSED2% TASKPAUSED3% PAUSESTART1& PAUSESTART2& PAUSESTART3& PAUSEPRINT1% PAUSEPRINT2% PAUSEPRINT3% HOURLYCHIME% VIEWCHANGED% MPXSTARTDATE& MPXENDDATE& MPXTRANSFERRED% DAYSINADVANCE% SCROLLSCRN% *H SLIDERID& SCROLLPOS% SCROLLHEIGHT% CALWINDOW% CALSCREEN& CALITEM% CALENDARDATE& LASTCALENDARDATE& HIGHLIGHTDAY% CALDAY% H CALMONTH% CALYEAR% CALOKPRESSED% CALCANCELPRESSED% SCROLLLIST& SCROLLSCREEN% SCROLLW& SCROLLNUMBER% SCROLLPOINTER% SCROLLTOP% SCROLLENTERPRESSED% OPENINGSCREEN INITIALISE KEYLOOP ,B2`B2 (^!%' AGENDA_OPEN% AGENDANAME$ No Agenda Specified OPENAGENDAFILE STRIPCR$ CLOSEAGENDA REOPENAGENDA AGENDA_OPEN% ALARMNAME$ {5T} {5T} OPENAGENDAFILE STRIPCR$ CLOSEAGENDA REOPENAGENDA AGENDA_OPEN% ALARMNAME$ {5T} {5T} h{E`[ OPENAGENDAFILE CLOSEAGENDA REOPENAGENDA AGENDA_OPEN% OPENAGENDAFILE CLOSEAGENDA REOPENAGENDA AGENDA_OPEN% AGENDA_OPEN% AGENDANAME$ No Agenda Specified Agenda BACKUPDIRECTORY$ PROCESSBACKUP PUTBACKUPDIRECTORY Data Backup +%Select destination file and directoryO Filename,Directory,DiskO CancelO NEWDATABASENAME$ Processing Backup BACKUPDIRECTORY$ PROCESSRESTORE% PUTBACKUPDIRECTORY Data Restore Select source backup fileO Filename,Directory,DiskO CancelO Not a 5Time database file! OPENAGENDA DOALLCHECKS POPULATESCREEN NEWDATABASENAME$ CURRENTMWMODE% Processing Restore OPENCLIENT TODAY& STRIPCOMMA$ CREATECLIENTBILLS POPULATESCREEN CURRENTMWMODE% No Clients in Database Client Billing Client+ NAME$# Client+ NAME$# ,...K Date of BillS {M)?B CancelO CNUMBER% OPENCLIENT OPENCBILL NEXTNUMBER% NEWDATABASENAME$ Creating Client Bills CNUMBER% RATE" PER% + HRSPERDAY" CNUMBER%$ + BILLDATE&% TOTVALUE& BILLNUMBER%$ CBILLO BILLNUMBER% PAID%$ + DATEPAID&% +, SELECT * FROM SumTask WHERE billnumber = 0 K AND cnumber = K ORDER BY cnumber,tpnumberK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE TOTMINUTES&! TOTMINUTES&! {I}WB} TOTMINUTES&! {I}WB} TOTMINUTES&! {I}WB} TOTMINUTES&! {I}WB} TOTMINUTES&! O<{UO {I}WB} TOTMINUTES&! O<|RVO |JWB} + TOTBILLED& BILLNUMBER%$ BILLNUMBER% TOTVALUE& GETBILLQUERY$ GETCLIENTNAME$ SHORTDATE$ GEOFOX1% BLCN$ BLBN$ BLTV$ BLBD$ BLPD$ NUMBERCLIENTBILLS% BLSTART% CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& CNUMBER% BILLNUMBER% TOTVALUE" + BILLDATE&! PAID% NEWDATABASENAME$ BILLPAID% SUMMARYCLIENTNUMBER1% SELECT * FROM CBill K WHERE paid = -1 K WHERE paid = 0 K AND cnumber = K WHERE cnumber = K ORDER BY cnumber,billnumberK WHICHCLIENT% OPENCLIENT GETCLIENTNAME$ TODAY& POPULATESCREEN NEWDATABASENAME$ CNUMBER% +% SELECT * FROM CBill WHERE cnumber = K +* AND paid = -1 ORDER BY cnumber,billnumberK CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& No Bills available Up To Date Client Up To DateO CancelO Removing Client Bills . . . +% SELECT * FROM CBill WHERE cnumber = K +* AND paid = -1 ORDER BY cnumber,billnumberK CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& + BILLDATE&! 5+ DATEPAID&! PAID% BILLNUMBER% +0 SELECT * FROM SumTask ORDER BY cnumber,tpnumberK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE BILLNUMBER% DISPLAYCALWINDOW REFRESHCALSCREEN CALKEYLOOP CALHIGHLIGHT CALOKPRESSED% CALCANCELPRESSED% CALENDARDATE& CALWINDOW% CALWINDOW% SCREENHEIGHT% CALWINDOW% REFRESHCAL CALITEM% CALDAY% CALMONTH% CALYEAR% PRINTCALWINDOW PRINTCALLITERALS CALHIGHLIGHT CALWINDOW% CALITEM% LLONGDATE$ CALWINDOW% CALENDARDATE& CALMONTH% CALYEAR% HIGHLIGHTBOX CALENDARDATE& HIGHLIGHTDAY% CALITEM% CALWINDOW% January February March April August + September October November December DOSTOP CALKEYPRESS CALOKBUTTON CALCANCELBUTTON CALPENTAP CALOKPRESSED% CALCANCELPRESSED% CALHIGHLIGHT REFRESHCALSCREEN CALENDARDATE& CALMONTHLEFT CALMONTHRIGHT CALYEARLEFT CALYEARRIGHT CALOKBUTTON CALCANCELBUTTON TAPINMAIN CALWINDOW% {1\ w OQ{9\ w Ob{1\[ {1\ w OQ{9\ w Ob{1\[ {1\ w Oy{9\ w {1\ w Oy{9\ w {1\ w {9\ w {1\ w {9\ w {1\ w OR{9\ w CALHIGHLIGHT REFRESHCALSCREEN CALMONTH% CALDAY% CALYEAR% CALENDARDATE& CALHIGHLIGHT REFRESHCALSCREEN CALMONTH% CALDAY% CALYEAR% CALENDARDATE& CALHIGHLIGHT REFRESHCALSCREEN CALDAY% CALYEAR% CALENDARDATE& CALMONTH% CALHIGHLIGHT REFRESHCALSCREEN CALDAY% CALYEAR% CALENDARDATE& CALMONTH% CALOKPRESSED% CALCANCELPRESSED% CALHIGHLIGHT REFRESHCALSCREEN CALITEM% CALDAY% CALENDARDATE& CALMONTH% CALYEAR% O){UO CHECKFORTASKMEMO CHECKFORTODONUMBER CHECKMEMODATABASE CHECKSHOWDEC CHECKTDLITERALS CHECKSUMTASK1 CHECKTASKTYPE CHECKNEWSORT CHECKTODOAGENTRY CHECKPREFS3 NEWDATABASENAME$ SELECT * FROM TaskMemoK TNUMBER% MEMO$ +% FIELDS tnumber,memo(255) TO TaskMemoK TNUMBER% MEMO$ DOCHANGETODO DOCHANGECLIENT NEWDATABASENAME$ SELECT * FROM ToDoK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ CREATECURRENCYTABLE NEWDATABASENAME$ Converting Client Information +r FIELDS cnumber,name(50),contact(40),adr1(30),adr2(30),adr3(30),adr4(30),rate,per,hrsperday,currency(3) TO Client2K CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ SELECT * FROM Client2K CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ +# SELECT * FROM Client ORDER BY nameK CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CNUMBER%$ CNUMBER% NAME$' NAME$# CONTACT$' CONTACT$# ADR1$' ADR1$# ADR2$' ADR2$# ADR3$' ADR3$# ADR4$' ADR4$# RATE& RATE" PER%$ PER% + HRSPERDAY& + HRSPERDAY" + CURRENCY$' Client +q FIELDS cnumber,name(50),contact(40),adr1(30),adr2(30),adr3(30),adr4(30),rate,per,hrsperday,currency(3) TO ClientK CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ name_ ByName Client SELECT * FROM Client2K CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ +# SELECT * FROM Client ORDER BY nameK CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ CNUMBER%$ CNUMBER% NAME$' NAME$# CONTACT$' CONTACT$# ADR1$' ADR1$# ADR2$' ADR2$# ADR3$' ADR3$# ADR4$' ADR4$# RATE& RATE" PER%$ PER% + HRSPERDAY& + HRSPERDAY" + CURRENCY$' + CURRENCY$# Client2 NEXTNUMBER% NEWDATABASENAME$ Converting ToDo List +Q FIELDS tdnumber,listtp(20),date,priority,tododets(50),done(1),memo(255) TO ToDo2K TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ SELECT * FROM ToDoK LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ + TDNUMBER%$ TODOO + LISTTYPE$' + LISTTYPE$# DATE&% DATE&! + PRIORITY%$ + PRIORITY% DETAILS$' DETAILS$# DONE$' DONE$# MEMO$' MEMO$# +P FIELDS tdnumber,listtp(20),date,priority,tododets(50),done(1),memo(255) TO ToDoK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ listtp_ date_ DateDown date_ DateUp priority_ date_ Priority SELECT * FROM ToDoK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ SELECT * FROM ToDo2K TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ + TDNUMBER%$ + TDNUMBER% + LISTTYPE$' + LISTTYPE$# DATE&% DATE&! + PRIORITY%$ + PRIORITY% DETAILS$' DETAILS$# DONE$' DONE$# MEMO$' MEMO$# ToDo2 OPENMEMO CREATEMEMODATABASE OPENCLIENT DOCHANGECLIENT CHECKCHANGEPRIORITY NEWDATABASENAME$ SELECT * FROM ClientK CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ Converting Client +z FIELDS cnumber,name(50),contact(40),adr1(30),adr2(30),adr3(30),adr4(30),rate,per,hrsperday,currency(3),showdec TO Client2K CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ SHOWDEC% SELECT * FROM ClientK CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ CNUMBER%$ CNUMBER% NAME$' NAME$# CONTACT$' CONTACT$# ADR1$' ADR1$# ADR2$' ADR2$# ADR3$' ADR3$# ADR4$' ADR4$# RATE& RATE" PER%$ PER% + HRSPERDAY& + HRSPERDAY" + CURRENCY$' + CURRENCY$# SHOWDEC%$ Client +y FIELDS cnumber,name(50),contact(40),adr1(30),adr2(30),adr3(30),adr4(30),rate,per,hrsperday,currency(3),showdec TO ClientK CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ SHOWDEC% name_ ByName Client SELECT * FROM Client2K CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ SHOWDEC% SELECT * FROM ClientK CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ SHOWDEC% CNUMBER%$ CNUMBER% NAME$' NAME$# CONTACT$' CONTACT$# ADR1$' ADR1$# ADR2$' ADR2$# ADR3$' ADR3$# ADR4$' ADR4$# RATE& RATE" PER%$ PER% + HRSPERDAY& + HRSPERDAY" + CURRENCY$' + CURRENCY$# SHOWDEC%$ SHOWDEC% Client2 NEWDATABASENAME$ Changing Priorities SELECT * FROM ToDo K TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ + PRIORITY% + PRIORITY%$ GETTODOLITERALS CREATETODOLITERALS CREATENEWTODOKEY Creating To Do List NEWDATABASENAME$ date_ priority_ DtPriority NEWDATABASENAME$ SELECT * FROM TaskTpK TPNUMBER% DESC$ MINMINUTES& Converting Task Types 1 +- FIELDS tpnumber,descr(30),minmins TO TaskTp2K TPNUMBER% DESC$ MINMINUTES& SELECT * FROM TaskTpK TPNUMBER% DESC$ + TPNUMBER%$ + TPNUMBER% DESC$' DESC$# MINMINUTES&% TaskTP +, FIELDS tpnumber,descr(30),minmins TO TaskTpK TPNUMBER% DESC$ MINMINUTES& descr_ ByDesc TaskTP SELECT * FROM TaskTpK TPNUMBER% DESC$ MINMINUTES& SELECT * FROM TaskTp2K TPNUMBER% DESC$ MINMINUTES& + TPNUMBER%$ + TPNUMBER% DESC$' DESC$# MINMINUTES&% MINMINUTES&! TaskTP2 OPENTASKTP NEWDATABASENAME$ Converting Task Types 2 +8 FIELDS tpnumber,descr(30),minmins,tskcod(10) TO TaskTp2K TPNUMBER% DESC$ MINMINUTES& TASKCODE$ SELECT * FROM TaskTpK TPNUMBER% DESC$ MINMINUTES& + TPNUMBER%$ + TPNUMBER% DESC$' DESC$# MINMINUTES&% MINMINUTES&! + TASKCODE$' TaskTP +7 FIELDS tpnumber,descr(30),minmins,tskcod(10) TO TaskTpK TPNUMBER% DESC$ MINMINUTES& TASKCODE$ descr_ ByDesc TaskTP SELECT * FROM TaskTpK TPNUMBER% DESC$ MINMINUTES& TASKCODE$ SELECT * FROM TaskTp2K TPNUMBER% DESC$ MINMINUTES& TASKCODE$ + TPNUMBER%$ + TPNUMBER% DESC$' DESC$# MINMINUTES&% MINMINUTES&! + TASKCODE$' + TASKCODE$# TaskTP2 Converting Summary Tasks +V FIELDS cnumber,tpnumber,totminutes,totbilled,billnumber,svalue,tskcod(10) TO SumTask2K CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE TASKCODE$ SELECT * FROM SumTaskK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE CNUMBER%$ CNUMBER% + TPNUMBER%$ + TPNUMBER% TOTMINUTES&% TOTMINUTES&! + TOTBILLED& + TOTBILLED" BILLNUMBER%$ BILLNUMBER% SVALUE& SVALUE" + TASKCODE$' SumTask +U FIELDS cnumber,tpnumber,totminutes,totbilled,billnumber,svalue,tskcod(10) TO SumTaskK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE TASKCODE$ cnumber_ tpnumber_ ByClient SumTask SELECT * FROM SumTaskK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE TASKCODE$ SELECT * FROM SumTask2K CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE TASKCODE$ CNUMBER%$ CNUMBER% + TPNUMBER%$ + TPNUMBER% TOTMINUTES&% TOTMINUTES&! + TOTBILLED& + TOTBILLED" BILLNUMBER%$ BILLNUMBER% SVALUE& SVALUE" + TASKCODE$' + TASKCODE$# SumTask2 NEWDATABASENAME$ SELECT * FROM Task K +( ORDER BY tasktype, startdate, starttimeK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% Assigning new Task key tasktype_ + startdate_ + starttime_ ByTaskTypeDate OPENTODO CREATENEWTODOKEY NEWDATABASENAME$ Converting ToDo +] FIELDS tdnumber,listtp(20),date,priority,tododets(50),done(1),memo(255),agendaentry TO ToDo2K TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& SELECT * FROM ToDoK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ + TDNUMBER%$ + TDNUMBER% + LISTTYPE$' + LISTTYPE$# DATE&% DATE&! + PRIORITY%$ + PRIORITY% DETAILS$' DETAILS$# DONE$' DONE$# MEMO$' MEMO$# AGENDAENTRY&% +\ FIELDS tdnumber,listtp(20),date,priority,tododets(50),done(1),memo(255),agendaentry TO ToDoK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& listtp_ date_ DateDown date_ DateUp priority_ date_ Priority SELECT * FROM ToDoK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& SELECT * FROM ToDo2K TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& + TDNUMBER%$ + TDNUMBER% + LISTTYPE$' + LISTTYPE$# DATE&% DATE&! + PRIORITY%$ + PRIORITY% DETAILS$' DETAILS$# DONE$' DONE$# MEMO$' MEMO$# AGENDAENTRY&% AGENDAENTRY&! ToDo2 CREATEPREFS3 NEWDATABASENAME$ SELECT * FROM Prefs4K BACKUPDIR$ OPENCURRENCY STRIPSPACE$ NEXTNUMBER% OPENCLIENT Add Client RecordO Client NameO ContactO AddressO Currency+ CURDESC$# Currency+ CURDESC$# ,...K RatesOr+ CancelO No Client Name entered First Line of address missing Or@[0 Client Rates Name: Charge RateO Per+MOne Minute,Five Minutes,Six Minutes (Decimal),Quarter Hour,Half Hour,Hour,Day Hours per dayO Decimal View CancelO CURKEY$# CLIENTSO CNUMBER%$ NAME$' CONTACT$' ADR1$' ADR2$' ADR3$' ADR4$' RATE& PER%$ + HRSPERDAY& + CURRENCY$' SHOWDEC%$ WHICHCLIENT% OPENCLIENT OPENCURRENCY STRIPSPACE$ RATE" + HRSPERDAY" PER% NAME$# CONTACT$# ADR1$# ADR2$# ADR3$# ADR4$# + CURRENCY$# SHOWDEC% CURKEY$# Modify Client RecordO Client NameO ContactO AddressO Currency+ CURDESC$# Currency+ CURDESC$# ,...K RatesOr+ CancelO No Client Name entered First Line of address missing Or@[5 Client Rates Name: Charge RateO Per+MOne Minute,Five Minutes,Six Minutes (Decimal),Quarter Hour,Half Hour,Hour,Day Hours per dayO Decimal View CancelO CURKEY$# NAME$' CONTACT$' ADR1$' ADR2$' ADR3$' ADR4$' RATE& PER%$ + HRSPERDAY& + CURRENCY$' SHOWDEC%$ OPENCLIENT STRIPCOMMA$ No Clients available Select Client Client+ NAME$# Client+ NAME$# ,...K CancelO OPENCLIENT CNUMBER% NAME$# OPENCLIENT STRIPCOMMA$ No Clients available Select Client Client+ All,... Client+ NAME$# Client+ NAME$# ,...K CancelO OPENCLIENT CNUMBER% WHICHCLIENT% CONVCLIENT% OPENCLIENT NEWDATABASENAME$ NAME$# CONTACT$# ADR1$# ADR2$# ADR3$# ADR4$# Delete Client Record Client Name Contact Address CancelO +) SELECT * FROM Task WHERE clientnumber = K TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% Still tasks attached +' SELECT * FROM SumTask WHERE cnumber = K CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE Still summary tasks attached +% SELECT * FROM CBill WHERE cnumber = K CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& Still client bills attached OPENCLIENT CNUMBER% SHOWDEC% CHECKFORTIMES DOSTOP DOMENU STARTTELEPHONE MWKEYPRESS DOPENTAP DOSWITCHING O {AO O`{Ix O@{Ix DOTODOMENU DOTASKVIEWMENU CURRENTMWMODE% DOSWITCHING SORTWITHINDATE% REGISTEREDUSER% MAINMENUITEM% Backup/Restore+ BackupOx+ RestoreOXh+ Recover To Do ItemsOZ File+ PreferencesOf+ Change Personal DetailsOw+ Set PrioritiesOLh+ Output to CSV fileOOh+ Backup/Restore>O CloseOe To Do+ Add To DoOt+ Find Oy+ Print To Do ListOph+ Remove Done ItemsOr View+ Sort by PriorityOj+ Switch to Next ViewOQ View+ Sort within dateOj+ Switch to Next ViewOQ Memos+ Add a MemoOF+ Change a MemoOG+ Delete MemoOH Help+ ContentsOh+ AboutOa Help+ ContentsOh+ AboutOah+ Register 5TimeOg DOSWITCHING SORTTASKASCENDING% TASKRUNNING% REGISTEREDUSER% MAINMENUITEM2% Tasks+ Outstanding TasksO Outstanding Summary TasksO Billed Summary TasksO Client Bills+ Client BillO Bill SummaryO Unpaid BillsO Printing+ Tasks>O Client Bills>O Extract+ Extract TasksOP+ Extract Summary TasksOU+ Extract Client BillsOCh+ Create MPX fileOn Backup/Restore+ BackupOx+ RestoreOX Currencies+ Add CurrencyOc+ Modify CurrencyOl+ Delete CurrencyOq File+ PreferencesOf+ Change Personal DetailsOwh+ Backup/Restore>O + Printing>O Sort Tasks DescendingOWh+ Extract>O CloseOe File+ PreferencesOf+ Change Personal DetailsOwh+ Backup/Restore>O + Printing>O Sort Tasks AscendingOWh+ Extract>O CloseOe Clients+ Add a ClientOA+ Modify ClientOMh+ Delete ClientOEh+ Create Client BillsOb Types+ Add Task TypeOT+ Modify Task TypeOY+ Delete Task TypeODh+ Print Task Type ListO Tasks+ Stop Current TaskOs+ Show Current TaskOo+ Transfer TasksOk+ Types>O Print TimeSheetOS Tasks+ Start a TaskOsh+ Add a Task ManuallyOmh+ Transfer TasksOk+ Types>O Print TimeSheetOS View+ Switch to Next ViewOQ Memos+ Add a MemoOF+ Change a MemoOG+ Delete MemoOH Data+ Currencies>O Remove Transferred TasksOR+ Remove Paid BillsOB Help+ ContentsOh+ AboutOa Help+ ContentsOh+ AboutOah+ Register 5TimeOg LOADSCREEN POPULATESCREEN DOSTOP SETPREFERENCES SETUPPERSONALDETAILS DOPRIORITIES WRITETODOLIST WRITEOUTTASKS WRITESUMMARYTASKS WRITECLIENTBILLS ALLOSTASKS OUTTASKS PRINTCLIENTBILL PRINTBILLSUMMARY PRINTUNPAIDBILLS PRINTBILLEDTASKS SORTASCDESC DOBACKUP DORESTORE RECOVERTODO ADDTODO FINDTODO PRINTTODOS DELETEDONE CHANGESORT ADDWORDMEMO CHANGEWORDMEMO DELETEWORDMEMO REGISTERTIME ADDCLIENT MODIFYCLIENT DELETECLIENT CREATEBILLS ADDTASKTYPE MODIFYTASKTYPE DELETETASKTYPE PRINTTIMESHEET TRANSFERTASKS SHOWCURRENTTASK ADDMANUAL OUTPUTMPX PRINTTASKTYPES STOPCURRENTTASK STARTNEWTASK REMOVETRANS REMOVEBILLS ADDCURRENCY MODIFYCURRENCY DELETECURRENCY OUTPUTPCFILE CURRENTMWMODE% TASKRUNNING% OQ@[T ABOUTPALM C:\SYSTEM\OPL\ps.opoW C:\SYSTEM\OPL\ps.opo D:\SYSTEM\OPL\ps.opoW D:\SYSTEM\OPL\ps.opo + Missing \SYSTEM\OPL\PS.OPO file. v+3Copyright (c) 1997, 1998 Palmscape & Simon Berridge SHOWREGISTRATION OPENPREFS PUTMAINPREFS TASKRUNNING% REGISTEREDUSER% CURRENTSUBTASK% CURRENTMWMODE% CURRENTLIST$ DONEORDER% CURRENTSORTORDER% TVSORTORDER% OPENINGSCREEN% THREAD& NEWDATABASENAME$ Task running, cannot quit Shutting down, please wait CST%$ CMWM%$ DOR%$ CSO%$ TVSO%$ SCROLLTAP% MWKEYPRESS SWITCHSCROLLPOSITION TAPINEXTRAS MAINWINDOWPENTAP2 MAINWINDOWPENTAP3 MAINWINDOWPENTAP4 MAINWINDOWPENTAP5 SCROLLSCRN% SCROLLPOS% CURRENTMWMODE% O:{5\[ POPULATESCREEN SORTTASKASCENDING% TDPOSITION T1POSITION T2POSITION CURRENTMWMODE% POSITION_SLIDER GEOFOX1% TDSTART% SCROLLPOS% NUMBERTODORECORDS% POSITION_SLIDER GEOFOX1% CURRENTSUBTASK% BLSTART% NUMBERCLIENTBILLS% OTSTART% NUMBEROSTASKS% NUMBEROSTASKS2% OSSTART% NUMBERSUMMARYTASKS% SCROLLPOS% POSITION_SLIDER GEOFOX1% OTSTART% NUMBEROSTASKS% SCROLLPOS% CREATEDATABASE CONVERTTODO CONVERTTASK CONVERTPREFS CONVERTAGENDA CONVERTPREFS2 TODODATABASENAME$ TASKDATABASENAME$ PREFSDATABASENAME$ AGENDADATABASENAME$ PREFS2DATABASENAME$ Converting Database files . . . NEXTNUMBER% NEWDATABASENAME$ TODODATABASENAME$ Converting To Do SELECT * FROM ToDoK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ SELECT * FROM ToDoK LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ + TDNUMBER%$ TODOO + LISTTYPE$' + LISTTYPE$# DATE&% DATE&! + PRIORITY%$ + PRIORITY% DETAILS$' DETAILS$# DONE$' DONE$# MEMO$' MEMO$# Converting To Do List SELECT * FROM TDListK LISTTYPE$ SELECT * FROM TDListK LISTTYPE$ + LISTTYPE$' + LISTTYPE$# NEWDATABASENAME$ TASKDATABASENAME$ Converting Client SELECT * FROM ClientK CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY SELECT * FROM ClientK CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CNUMBER%$ CNUMBER% NAME$' NAME$# CONTACT$' CONTACT$# ADR1$' ADR1$# ADR2$' ADR2$# ADR3$' ADR3$# ADR4$' ADR4$# RATE& RATE" PER%$ PER% + HRSPERDAY& + HRSPERDAY" Converting Tasks SELECT * FROM TaskK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% SELECT * FROM TaskK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% TNUMBER%$ TNUMBER% CLIENTNUMBER%$ CLIENTNUMBER% + TASKTYPE%$ + TASKTYPE% DETAILS$' DETAILS$# STARTDATE&% STARTDATE&! STARTTIME&% STARTTIME&! ENDDATE&% ENDDATE&! ENDTIME&% ENDTIME&! TASKMINUTES&% TASKMINUTES&! TRANSFERRED%$ TRANSFERRED% Converting Task Types SELECT * FROM TaskTpK TPNUMBER% DESC$ SELECT * FROM TaskTpK TPNUMBER% DESC$ + TPNUMBER%$ + TPNUMBER% DESC$' DESC$# Converting Summary Tasks SELECT * FROM SumTaskK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE SELECT * FROM SumTaskK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE CNUMBER%$ CNUMBER% + TPNUMBER%$ + TPNUMBER% TOTMINUTES&% TOTMINUTES&! + TOTBILLED& + TOTBILLED" BILLNUMBER%$ BILLNUMBER% SVALUE& SVALUE" Converting Numbers SELECT * FROM NumbersK NKEY$ NEXTNUMBER% SELECT * FROM NumbersK NKEY$ NEXTNUMBER% NKEY$' NKEY$# NEXTNUMBER%$ NEXTNUMBER% Converting Client Bills SELECT * FROM CBillK CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& SELECT * FROM CBillK CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& CNUMBER%$ CNUMBER% BILLNUMBER%$ BILLNUMBER% TOTVALUE& TOTVALUE" + BILLDATE&% + BILLDATE&! PAID%$ PAID% + DATEPAID&% + DATEPAID&! NEWDATABASENAME$ PREFSDATABASENAME$ Converting Preferences SELECT * FROM PWordK PASSWORD$ CMWM% TVSO% SELECT * FROM PWordK PASSWORD$ CMWM% TVSO% + PASSWORD$' + PASSWORD$# CST%$ CST% CMWM%$ CMWM% DOR%$ DOR% CSO%$ CSO% TVSO%$ TVSO% NEWDATABASENAME$ AGENDADATABASENAME$ Converting Agenda SELECT * FROM AgendaK AGNAME$ SELECT * FROM AgendaK AGNAME$ AGNAME$' AGNAME$# ALM$' ALM$# NEWDATABASENAME$ PREFS2DATABASENAME$ HOURLYCHIME% Converting Preferences SELECT * FROM Prefs2K OPENINGSCREEN% TWENTYFOUR% STARTENDDAY% SORTTASKS% ALARMSTART& ALARMEND& HOURLYCHIME% SELECT * FROM Prefs2K OPENINGSCREEN% TWENTYFOUR% STARTENDDAY% SORTTASKS% ALARMSTART& ALARMEND& OPENINGSCREEN%$ OPENINGSCREEN% TWENTYFOUR%$ TWENTYFOUR% STARTENDDAY%$ STARTENDDAY% SORTTASKS%$ SORTTASKS% ALARMSTART&% ALARMSTART&! + ALARMEND&% + ALARMEND&! HOURLYCHIME%$ CHECKEXTENSION$ OPENBINARYFILE% WRITE GETCLIENTNAME$ GETTASKCODE$ TASKTYPE$ NORMALDATE$ REPLACECOMMA$ GETTMEMO$ CLOSETEXTFILE NEWDATABASENAME$ Extract File Name (Tasks) File Name,Folder,DiskO Output Type+ Comma Separated,Tab delimited Date Format+ Number,Text CancelO File Exists + File Name +0The file named above already exists on the disk.O Would you like to overwrite it?O YesOy( NoOn( Exporting CSV file ClientK K+ Task CodeK K+ Task TypeK DetailsK Start DateK Start TimeK End DateK End TimeK MinutesK TransferredK MemoK Client + Task CodeK + Task TypeK DetailsK Start DateK Start TimeK End DateK End TimeK MinutesK TransferredK MemoK +) SELECT * FROM Task ORDER BY clientnumberK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% CLIENTNUMBER% K+ TASKTYPE% K+ TASKTYPE% DETAILS$# STARTDATE&! STARTDATE&! STARTTIME&! ENDDATE&! ENDDATE&! ENDTIME&! TASKMINUTES&! TRANSFERRED% TNUMBER% CLIENTNUMBER% + TASKTYPE% + TASKTYPE% DETAILS$# STARTDATE&! STARTDATE&! STARTTIME&! ENDDATE&! ENDDATE&! ENDTIME&! TASKMINUTES&! TRANSFERRED% TNUMBER% CHECKEXTENSION$ OPENBINARYFILE% WRITE NORMALDATE$ CLOSETEXTFILE NEWDATABASENAME$ Extract File Name (To Do) File Name,Folder,DiskO Output Type+ Comma Separated,Tab delimited Date Format+ Number,Text CancelO File Exists + File Name +0The file named above already exists on the disk.O Would you like to overwrite it?O YesOy( NoOn( Exporting CSV file + List TypeK DateK DetailsK DoneK MemoK + List Type DateK DetailsK DoneK MemoK +) SELECT * FROM ToDo ORDER BY priority ASCK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ + LISTTYPE$# DATE&! DATE&! DETAILS$# DONE$# MEMO$# MEMO$# MEMO$# + LISTTYPE$# DATE&! DATE&! DETAILS$# DONE$# MEMO$# MEMO$# MEMO$# CHECKEXTENSION$ OPENBINARYFILE% WRITE OPENSUMTASK GETCLIENTNAME$ GETTASKCODE$ TASKTYPE$ REPLACECOMMA$ CLOSETEXTFILE +!Extract File Name (Summary Tasks) File Name,Folder,DiskO Output Type+ Comma Separated,Tab delimited CancelO File Exists + File Name +0The file named above already exists on the disk.O Would you like to overwrite it?O YesOy( NoOn( Exporting CSV file ClientK K+ Task CodeK K+ Task TypeK MinutesK BilledK Bill NumberK Client + Task CodeK + Task TypeK MinutesK BilledK Bill NumberK CNUMBER% K+ TPNUMBER% K+ TPNUMBER% TOTMINUTES&! + TOTBILLED" BILLNUMBER% CNUMBER% + TPNUMBER% + TPNUMBER% TOTMINUTES&! + TOTBILLED" BILLNUMBER% CHECKEXTENSION$ OPENBINARYFILE% WRITE OPENCBILL GETCLIENTNAME$ REPLACECOMMA$ NORMALDATE$ CLOSETEXTFILE + Extract File Name (Client Bills) File Name,Folder,DiskO Output Type+ Comma Separated,Tab delimited Date Format+ Number,Text CancelO File Exists + File Name +0The file named above already exists on the disk.O Would you like to overwrite it?O YesOy( NoOn( Exporting CSV file ClientK BillK ValueK Date BilledK PaidK K+ Date PaidK Client BillK ValueK Date BilledK PaidK + Date PaidK CNUMBER% BILLNUMBER% TOTVALUE" + BILLDATE&! K+ BILLDATE&! PAID% + DATEPAID&! K+ DATEPAID&! CNUMBER% BILLNUMBER% TOTVALUE" + BILLDATE&! + BILLDATE&! PAID% + DATEPAID&! + DATEPAID&! NEWDATABASENAME$ SELECT * FROM TaskMemoK TNUMBER% MEMO$ TNUMBER% MEMO$# OPENCURRENCY Add Currency DescriptionO CancelO Key already exists CURKEY$' CURDESC$' WHICHCURRENCY$ OPENCURRENCY CURDESC$# Modify Currency DescriptionO CancelO CURKEY$' CURDESC$' WHICHCURRENCY$ OPENCURRENCY CURDESC$# Modify Currency Description DeleteOd+ CancelO OPENCURRENCY Select Currency Currency+ CURDESC$# Currency+ CURDESC$# ,...K CancelO CURKEY$# CREATEPERSONALTABLE CREATEDATEPREFS CREATECURRENCYTABLE CREATEMEMODATABASE CREATETODOLITERALS CREATENEWTODOKEY CREATEPREFS3 NEWDATABASENAME$ OPENINGSCREEN% TWENTYFOUR% STARTENDDAY% SORTTASKASCENDING% ALARMSTART& ALARMEND& HOURLYCHIME% +\ FIELDS tdnumber,listtp(20),date,priority,tododets(50),done(1),memo(255),agendaentry TO ToDoK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& listtp_ date_ DateDown date_ DateUp priority_ date_ Priority FIELDS listtp(20) TO TDListK LISTTYPE$ listtp_ TDList +y FIELDS cnumber,name(50),contact(40),adr1(30),adr2(30),adr3(30),adr4(30),rate,per,hrsperday,currency(3),showdec TO ClientK CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ SHOWDEC% name_ ByName Client +u FIELDS tnumber,clientnumber,tasktype,details(50),startdate,starttime,enddate,endtime,taskminutes,transferred TO TaskK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% clientnumber_ ByClient tasktype_ ByTaskType + startdate_ + starttime_ ByStart + startdate_ + starttime_ ByStartDown tasktype_ + startdate_ + starttime_ ByTaskTypeDate +% FIELDS tnumber,memo(255) TO TaskMemoK TNUMBER% MEMO$ +7 FIELDS tpnumber,descr(30),minmins,tskcod(10) TO TaskTpK TPNUMBER% DESC$ MINMINUTES& TASKCODE$ descr_ ByDesc TaskTP +U FIELDS cnumber,tpnumber,totminutes,totbilled,billnumber,svalue,tskcod(10) TO SumTaskK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE TASKCODE$ cnumber_ tpnumber_ ByClient SumTask +& FIELDS nkey(20),nextnumber TO NumbersK NKEY$ NEXTNUMBER% +C FIELDS cnumber,billnumber,totvalue,billdate,paid,datepaid TO CBillK CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& cnumber_ billnumber_ ByClient CBill +6 FIELDS password(30),cst,cmwm,cl,dor,cso,tvso TO PWordK PASSWORD$ CMWM% TVSO% +% FIELDS agname(255),alm(15) TO AgendaK AGNAME$ +Y FIELDS openingscreen,twentyfour,startendday,sorttasks,almst,almend,hourlychime TO Prefs2K OPENINGSCREEN% TWENTYFOUR% STARTENDDAY% SORTTASKS% ALARMSTART& ALARMEND& HOURLYCHIME% OPENINGSCREEN%$ TWENTYFOUR%$ STARTENDDAY%$ SORTTASKS%$ ALARMSTART&% + ALARMEND&% HOURLYCHIME%$ NEWDATABASENAME$ +" FIELDS backrestore(255) TO Prefs4K BACKUPDIR$ BACKUPDIR$' C:\Documents\ NEWDATABASENAME$ +) FIELDS curkey(3),curdesc(25) TO CurrencyK CURKEY$ CURDESC$ curkey_ ByCurrency Currency +' SELECT * FROM Currency ORDER BY curkeyK CURKEY$ CURDESC$ CURKEY$' CURDESC$' Sterling NEWDATABASENAME$ +[ FIELDS title(15),firstname(25),surname(30),adr1(30),adr2(30),adr3(30),adr4(30) TO PersonalK TITLE$ FIRSTNAME$ SURNAME$ ADR1$ ADR2$ ADR3$ ADR4$ NEWDATABASENAME$ DATEFORMAT% FIELDS dateformat TO Prefs3K DATEFORMAT% DATEFORMAT%$ NEWDATABASENAME$ SELECT * FROM AgendaK AGNAME$ TODAY& THISMONDAY& CURRENTSORTORDER% NEWDATABASENAME$ CURRENTLIST$ DONEORDER% DAYSINADVANCE% SPECIFICDATE& SORTWITHINDATE% SELECT * FROM ToDo K AllC[ WHERE listtp = 'K AND done = 'X'K WHERE done = 'X'K AND done <> 'X'K WHERE done <> 'X'K AND date = K WHERE date = K AND done = 'X'K AND done <> 'X'K AND date <= K WHERE date <= K AND done = 'X'K AND done <> 'X'K AND date = K WHERE date = K AND done = 'X'K AND done <> 'X'K AND date <= K WHERE date <= K AND done = 'X'K AND done <> 'X'K AND date >= K WHERE date >= K AND date <= K AND done = 'X'K AND done <> 'X'K AND priority = 1K WHERE priority = 1K AND done = 'X'K AND done <> 'X'K AND priority = 2K WHERE priority = 2K AND done = 'X'K AND done <> 'X'K AND priority = 3K WHERE priority = 3K AND done = 'X'K AND done <> 'X'K AND priority = 4K WHERE priority = 4K AND done = 'X'K AND done <> 'X'K AND priority = 5K WHERE priority = 5K AND done = 'X'K AND done <> 'X'K AND priority = 6K WHERE priority = 6K AND done = 'X'K AND done <> 'X'K + ORDER BY date ASC, priority ASCK ORDER BY priority ASCK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& NEWDATABASENAME$ +% SELECT * FROM TDList ORDER BY listtpK LISTTYPE$ OPENTODOLIST OPENPREFS + LISTTYPE$' Personal + LISTTYPE$' Business + PASSWORD$' NEWDATABASENAME$ +# SELECT * FROM Client ORDER BY nameK CNUMBER% NAME$ CONTACT$ ADR1$ ADR2$ ADR3$ ADR4$ HRSPERDAY CURRENCY$ SHOWDEC% NEWDATABASENAME$ SELECT * FROM Task ORDER BY K clientnumberK tasktypeK startdate, starttimeK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% NEWDATABASENAME$ SELECT * FROM NumbersK NKEY$ NEXTNUMBER% NEWDATABASENAME$ +$ SELECT * FROM TaskTp ORDER BY descrK TPNUMBER% DESC$ MINMINUTES& TASKCODE$ NEWDATABASENAME$ +0 SELECT * FROM SumTask ORDER BY cnumber,tpnumberK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE TASKCODE$ NEWDATABASENAME$ +0 SELECT * FROM CBill ORDER BY cnumber,billnumberK CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& OPENNUMBERS NKEY$' NEXTNUMBER%$ NEXTNUMBER% NEXTNUMBER%$ NEWDATABASENAME$ SELECT * FROM PWordK PASSWORD$ CMWM% TVSO% CREATEDATEPREFS NEWDATABASENAME$ OPENINGSCREEN% TWENTYFOUR% STARTENDDAY% SORTTASKASCENDING% ALARMSTART& ALARMEND& HOURLYCHIME% DATEFORMAT% SELECT * FROM Prefs2K OPENINGSCREEN% TWENTYFOUR% STARTENDDAY% SORTTASKS% ALARMSTART& ALARMEND& HOURLYCHIME% OPENINGSCREEN% TWENTYFOUR% STARTENDDAY% SORTTASKS% ALARMSTART&! + ALARMEND&! HOURLYCHIME% SELECT * FROM Prefs3K DATEFORMAT% DATEFORMAT% DATEFORMAT% DATEFORMAT%$ NEWDATABASENAME$ OPENINGSCREEN% TWENTYFOUR% STARTENDDAY% SORTTASKASCENDING% ALARMSTART& ALARMEND& HOURLYCHIME% DATEFORMAT% SELECT * FROM Prefs2K OPENINGSCREEN% TWENTYFOUR% STARTENDDAY% SORTTASKS% ALARMSTART& ALARMEND& HOURLYCHIME% OPENINGSCREEN%$ TWENTYFOUR%$ STARTENDDAY%$ SORTTASKS%$ ALARMSTART&% + ALARMEND&% HOURLYCHIME%$ SELECT * FROM Prefs3K DATEFORMAT% DATEFORMAT%$ SETUPPERSONALDETAILS NEWDATABASENAME$ PTITLE$ PFIRSTNAME$ PSURNAME$ PADR1$ PADR2$ PADR3$ PADR4$ SELECT * FROM PersonalK TITLE$ FIRSTNAME$ SURNAME$ ADR1$ ADR2$ ADR3$ ADR4$ TITLE$# FIRSTNAME$# SURNAME$# ADR1$# ADR2$# ADR3$# ADR4$# CREATEPERSONALTABLE NEWDATABASENAME$ PTITLE$ PFIRSTNAME$ PSURNAME$ PADR1$ PADR2$ PADR3$ PADR4$ SELECT * FROM PersonalK TITLE$ FIRSTNAME$ SURNAME$ ADR1$ ADR2$ ADR3$ ADR4$ TITLE$' FIRSTNAME$' SURNAME$' ADR1$' ADR2$' ADR3$' ADR4$' NEWDATABASENAME$ +' SELECT * FROM Currency ORDER BY curkeyK CURKEY$ CURDESC$ NEWDATABASENAME$ +. FIELDS memokey(20),memodesc(50) TO MemorandumK MEMOKEY$ MEMODESC$ memokey_ ByMemo Memorandum NEWDATABASENAME$ FIELDS tdname(15) TO ToDoVarK TDNAME$ TDNAME$' Urgent TDNAME$' + Important TDNAME$' In Progress TDNAME$' Normal TDNAME$' Not Important TDNAME$' No Priority NEWDATABASENAME$ +* SELECT * FROM Memorandum ORDER BY memokeyK MEMOKEY$ MEMODESC$ NEWDATABASENAME$ TDNAMES$ SELECT * FROM ToDoVarK TDNAME$ TDNAME$# NEWDATABASENAME$ TDNAMES$ SELECT * FROM ToDoVarK TDNAME$ TDNAME$' OPENTASKTP + TPNUMBER% + TASKCODE$# NEWDATABASENAME$ SELECT * FROM Prefs4K BACKUPDIR$ C:\Documents BACKUPDIR$# NEWDATABASENAME$ SELECT * FROM Prefs4K BACKUPDIR$ BACKUPDIR$' NEWDATABASENAME$ SELECT * FROM Prefs4K BACKUPDIR$ C:\Documents BACKUPDIR$# DAYSINADVANCE% Days In Advance Number of daysO CancelO Change List Item Current List Name + Change toO CancelO SYSTEMPATH$ CONVERTDATABASES CREATEDATABASE INITLIST DOALLCHECKS GETTODOLITERALS GETPERSONALDETAILS GETAGENDANAME GETMAINPREFS GETNUMBERTODOS% GETNUMBERTASKS% OPENPREFS DECRYPTPASSWORD% SHOWREGISTRATION CHECKFORBADTASKS CALENDARINIT INITSCROLLWINDOW LOADSCREEN POPULATESCREEN APPTIT$ APPVER$ EMAIL$ TODODATABASENAME$ TASKDATABASENAME$ PREFSDATABASENAME$ AGENDADATABASENAME$ PREFS2DATABASENAME$ NEWDATABASENAME$ BMPFILENAME$ MEMOPATH$ SLIDERID& TRUN1& TRUN2& TRUN3& TOFF& NOTE& TICK& NOTICK& NONOTE& AGENDANAME$ ALARMNAME$ HOURLYCHIME% DATEFORMAT% TWENTYFOUR% OPENINGSCREEN% STARTENDDAY% SORTTASKASCENDING% SORTWITHINDATE% ALARMSTART& ALARMEND& DAYSINADVANCE% FIRSTTIMEUSE% LASTCLIENTUSED% LASTTASKTYPE% BILLPAID% REGISTEREDUSER% NUMBERTODOS% NUMBERTASKS% PASSWORD$ REDRAWSCREEN% DONEMORNING% DONEEVENING% WARNTASK% LASTCURRENTTIME& SUMMARYCLIENTNUMBER% SUMMARYCLIENTNUMBER1% SUMMARYTASKTYPE% OLDDISPTIME$ MAINMENUITEM% MAINMENUITEM2% TASKRUNNING% TASKSRUNNING% CURRENTSUBTASK% CURRENTMWMODE% CURRENTLIST$ DONEORDER% CURRENTSORTORDER% TVSORTORDER% GEOFOX1% WHOLESCREEN% Initialising 5Time Version 3.5 simon@palmscape.com TaskManDataK TimeManDataK + PrefsDataK ExtrasDataK AddDataK + 5TimeDataK + 5Time.mbmK Memos\K + PASSWORD$# CST% CMWM% DOR% CSO% TVSO% MBM Problem + 5Time could not load the screen.O +(It would seem that the file 5Time.mbm isO either missing or corrupt.( + Please ensure the file is in theO \System\Apps\5Time directory.O TOPWINDOWTEXT GETTODOS MAINWINDOWTEXT GETOSTASKS GETOSTASKS2 GETOSSUMM GETBILLS TDSTART% TDEND% CURRENTSORTORDER% CURRENTSUBTASK% OTSTART% OSSTART% BLSTART% SYSTEMPATH$ THREAD& + 5Time.hlpK Cannot find help file Unregistered Software This software is unregistered.( +-Shareware only works if you are honest enoughO +'to register it if you intend to use it.O +'Please support the shareware concept byO +0registering this software on the Palmscape site:O http://www.palmscape.com/( Thank you for your support.O USERNAME2$ NHSCIZDQ_AMWLRGYTJVBOXEKUPF OTZ_AFCHYQJGBVMWKDRXNSLEPIU Z_DRXYQJCHGBIVMPNSAFKUTOEWL ABCDEFGHIJKLMNOPQRSTUVWXYZ DECRYPTPASSWORD% OPENPREFS PASSWORD$ REGISTEREDUSER% USERNAME2$ 5Time Registration PasswordO CancelO + PASSWORD$' Not a correct password! Welcome! Welcome to 5Time( OPENAGENDA AGENDANAME$ ALARMNAME$ Agenda Setup Agenda File,Directory,DiskO Alarm Type+:Chimes,Church bells,Fanfare,Rings,Signal,Soft bells,Silent CancelO Cannot Continue, stopping 5Time AGNAME$' ALM$' Chimes ALM$' Church bell ALM$' Fanfare ALM$' Rings ALM$' Signal ALM$' Soft bells ALM$' Silent Initialising AGNAME$# ALM$# OPENAGENDA PUTMAINPREFS TWENTYFOUR% STARTENDDAY% HOURLYCHIME% DATEFORMAT% ALARMSTART& ALARMEND& AGENDANAME$ ALARMNAME$ Set Preferences Use 24 hour clock Warn start/end of day Hourly Chimes Date Format+ dd/mm/yyyy,mm/dd/yyyy,yyyy/mm/dd TimesOt( AgendaOa( CancelO Start/End Alarm Times Start of dayO End of dayO CancelO End before start ChimesC[ Church bellC[ FanfareC[ RingsC[ SignalC[ Soft bellsC[ SilentC[ Agenda Change Agenda File,Directory,DiskO Alarm Type+:Chimes,Church bells,Fanfare,Rings,Signal,Soft bells,Silent CancelO AGNAME$' ALM$' Chimes ALM$' Church bell ALM$' Fanfare ALM$' Rings ALM$' Signal ALM$' Soft bells ALM$' Silent C:\Documents AGNAME$# ALM$# DISPTIME$ CURRENTTIME& SOUNDALARM STOPCURRENTTASK STARTDATE1& STARTTIME1& LASTCURRENTTIME& DONEMORNING% DONEEVENING% STARTENDDAY% TASKRUNNING% ALARMSTART& ALARMEND& HOURLYCHIME% WARNTASK% Task Start? +&It is now past the morning start time.O You should start a task now!O + Task End? +$It is now past the evening end time.O +!Shouldn't you stop this task now!O Task still running +/Your current task has been running for a while.O Do you wish to continue?O YesOy( NoOn( PUTPERSONALDETAILS PTITLE$ PFIRSTNAME$ PSURNAME$ PADR1$ PADR2$ PADR3$ PADR4$ Personal DetailsO TitleO First Name(s)O SurnameO AddressO CancelO SYSTEMPATH$ SCREENHEIGHT% GEOFOX1% + 5Time.mbmK SETUP_SCROLL CHECKTASKRUNNING GEOFOX1% BMPFILENAME$ CURRENTSUBTASK% WHOLESCREEN% CURRENTMWMODE% MBM Problem + 5Time could not load the screen.O +(It would seem that the file 5Time.mbm isO either missing or corrupt.( + Please ensure the file is in theO \System\Apps\5Time directory.O TASKSRUNNING% TRUN1& TRUN2& TRUN3& WHOLESCREEN% TOFF& CHECKEXTENSION$ OPENBINARYFILE% WRITE LONGDATE$ TODAY& OPENTODO SHORTDATE$ CLOSETEXTFILE DONEORDER% CURRENTSORTORDER% TDNAMES$ SPECIFICDATE& CURRENTLIST$ C:\Documents\TODO.HTM To Do List (HTML) File Name,Folder,DiskO CancelO Writing To Do HTML file <HTML>O +!<HEAD><TITLE>To Do</TITLE></HEAD>O <BODY BGCOLOR=#FFFFFF>O O +)<TABLE BORDER=1 CELLPADDING=5 WIDTH=100%>O <TR>O +&<TD WIDTH=100% ALIGN=CENTER COLSPAN=2>O +ATO DO LISTO </TD>O </TR>O <TR>O <TD WIDTH=40% VALIGN=TOP>O Sort CriteriaO </TD>O <TD WIDTH=60% VALIGN=TOP>O Only Done items Not Done items Done and Not Done items , by PriorityK , by KO , by KO , by KO , by KO , by KO , by KO O @[ , by Today ItemsK , by Specific Date (K y , by Up To Date (K y , by This WeekK O </TD>O </TR>O <TR>O <TD>O List displayedO </TD>O <TD>O O </TD>O </TR>O <TR>O <TD>O Date of PrintingO </TD>O <TD>O O </TD>O </TR>O </TABLE>O O +)<TABLE BORDER=1 CELLPADDING=5 WIDTH=100%>O <TR>O <TD WIDTH=15% ALIGN=CENTER>O DateO </TD>O <TD WIDTH=15% ALIGN=CENTER>O ListO </TD>O <TD WIDTH=15% ALIGN=CENTER>O PriorityO </TD>O <TD WIDTH=45%>O DetailsO </TD>O <TD WIDTH=10% ALIGN=CENTER>O DoneO </TD>O </TR>O <TR>O <TD ALIGN=CENTER>O DATE&! </TD>O <TD ALIGN=CENTER>O + LISTTYPE$# </TD>O <TD ALIGN=CENTER>O + PRIORITY% </TD>O <TD>O DETAILS$# DETAILS$# DETAILS$# DETAILS$# MEMO$# K MEMO$# +(O MEMO$# O </TD>O <TD ALIGN=CENTER>O DONE$# </TD>O </TR>O <TR>O </TABLE>O </BODY>O </HTML>O CHECKEXTENSION$ OPENBINARYFILE% WRITE PERSONALDETAILS$ OPENCLIENT OPENCBILL LONGDATE$ GETCLIENTSHOW% GETTASKNAME$ DECHOURSANDMINUTES$ HOURSANDMINUTES$ CLOSETEXTFILE CLIENTNUMBER1% BILLNUMBER% NEWDATABASENAME$ TOTALCBILL C:\Documents\CBILL.HTM Client Bill (HTML) File Name,Folder,DiskO CancelO Writing Client Bill HTML file <HTML>O +-<HEAD><TITLE>Pro-Forma Invoice</TITLE></HEAD>O <BODY BGCOLOR=#FFFFFF>O O +=<CENTER>O +;CLIENT PRO-FORMA INVOICE</CENTER> <CENTER>O +(O </CENTER> O CNUMBER% CONTACT$# CONTACT$# O NAME$# NAME$# O ADR1$# ADR1$# O ADR2$# ADR2$# O ADR3$# ADR3$# O ADR4$# ADR4$# O +1<TABLE WIDTH=100%><TR><TD WIDTH=100% ALIGN=RIGHT>O Bill Number: O +)</TD></TR><TR><TD WIDTH=100% ALIGN=RIGHT>O BILLNUMBER% Date: + BILLDATE&! </TD></TR></TABLE>O +G<TABLE BORDER=1 CELLPADDING=10 WIDTH=100%><TR><TD WIDTH=50% VALIGN=TOP>O +?Task Type</TD><TD WIDTH=25% VALIGN=TOP>Time SpentO +I</TD><TD WIDTH=25% ALIGN=RIGHT VALIGN=TOP>Amount Charged</TD></TR>O +* SELECT * FROM SumTask WHERE billnumber = K ORDER BY cnumber,tpnumberK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE CNUMBER% <TR><TD>O + TPNUMBER% + </TD><TD>KO TOTMINUTES&! </TD><TD ALIGN=RIGHT>KO TOTMINUTES&! </TD><TD ALIGN=RIGHT>KO + TOTBILLED" </TD></TR>KO +:<TR><TD></TD><TD>Total Bill</TD><TD ALIGN=RIGHT>O </TD></TR>O </TABLE>O </BODY>O </HTML>O SWITCHSCROLLPOSITION GEOFOX1% WHOLESCREEN% TDLT% TDDT$ TDPR$ NONOTE& TNOTE% NOTE& TDTD$ TDDN$ TICK& NOTICK& TDLST$ TDPR% CURRENTSUBTASK% OTEND$ OTDT$ OTNOTE% OTDET$ OTSTART$ OSCL$ OSTT$ OSTM$ BLBD$ BLCN$ BLBN$ BLTV$ BLPD$ OTCN$ OTTT$ TodayC[ TodayC[ Currently RunningC Currently PausedC`[ Currently RunningC Currently PausedC`[W Currently RunningC[ Running Paused REFRESHDEFAULTWINDOW GETOSTASKS MAINWINDOWTEXT REFRESHOSTASKSWINDOW REFRESHOSSUMMWINDOW GEOFOX1% CURRENTMWMODE% TDSTART% OTSTART% CURRENTSUBTASK% OSSTART% GETTODOS MAINWINDOWTEXT TDSTART% CURRENTSORTORDER% CURRENTMWMODE% Getting Data GETOSTASKS GETOSTASKS2 MAINWINDOWTEXT OTSTART% CURRENTSUBTASK% CURRENTMWMODE% Getting Data GETOSSUMM MAINWINDOWTEXT OSSTART% CURRENTMWMODE% Getting Data BUFFER BUFFER$ MBUFFER2& MEMONUMBER% MEMOTEXT$ Add a Memo Enter memo textO DoneOd+ CancelO BUFFER BUFFER$ MBUFFER2& MEMONUMBER% MEMOTEXT$ Change Memo Enter memo textO DoneOd+ CancelO NEWDATABASENAME$ MEMOTEXT$ +( SELECT * FROM TaskMemo WHERE tnumber = K TNUMBER% MEMO$ MEMO$# NEWDATABASENAME$ MEMOTEXT$ +( SELECT * FROM TaskMemo WHERE tnumber = K TNUMBER% MEMO$ TNUMBER%$ MEMO$' MEMO$' NEWDATABASENAME$ +( SELECT * FROM TaskMemo WHERE tnumber = K TNUMBER% MEMO$ TODAY& CHECKEXTENSION$ OPENBINARYFILE% WRITEMPX CLOSETEXTFILE MPXTRANSFERRED% MPXSTARTDATE& MPXENDDATE& C:\Documents\5Time.MPX MPX File Create File Name,Folder,DiskO Including Transferred Tasks Between two dates CancelO Date Selection + From DateS End DateS CancelO End date less than start date Creating MPX file WRITELN GETPERSONALDETAILS NORMALDATE$ OPENTASK TASKTYPE$ NORMALTIME$ GETTASKMEMO DATEFORMAT% PFIRSTNAME$ PSURNAME$ MPXSTARTDATE& MPXTRANSFERRED% NEWDATABASENAME$ MPXENDDATE& MEMOTEXT$ +*MPX;Microsoft Project for Windows;4.0;ANSI 10;;1;2;,;. 11;0;1;0;8;40 1;510;/;:;am;pmK Resource 1KO"W ;0;1;1;1;1;1;0K ;8:00;12:00;13:00;17:00K Resource 1KO"W + 30;5Time; ;5Time;;K TRANSFERRED% STARTDATE&! 41;40;1;41;42 Resource 1KO"W 50;1; K+ ;1;0.00/hK 61;90;3;1;70;22;44;58;59 Resource 1KO"W 70;1;1; ;;;;;K SELECT * FROM Task K WHERE startdate >= K s AND enddate <= K y WHERE transferred = KO AND startdate >= K s AND enddate <= K y +( ORDER BY tasktype, startdate, starttimeK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% + TASKTYPE% + TASKTYPE% ;2;KO"W K+ TASKTYPE% ;;;;;K DETAILS$# ;3;KO"W DETAILS$# DETAILS$# ;3;KO"W DETAILS$# TASKMINUTES&! m;100;K STARTDATE&! STARTTIME&! ENDDATE&! ENDTIME&! TNUMBER% 71;O"W 75;1;1.00; TASKMINUTES&! CHECKSCROLL% CHECKCAL% CHANGETODOLIST POPULATESCREEN CHECKGRAY% GETLIST LOADSCREEN REFRESHDEFAULTWINDOW GETDATE& N_DAYSINADVANCE% ADDTODO OPENTODO CHECKCROSSOUT CHANGEMEMODETAILS MODIFYTODO STARTREMOTE FINDTODO MODIFYPRIORITY MODIFYDATE CURRENTLIST$ CURRENTSORTORDER% SPECIFICDATE& DAYSINADVANCE% TDNAMES$ DONEORDER% TDSTART% TASKRUNNING1% TASKRUNNING2% TASKRUNNING3% {1\[/ DownO Oj{9 O {9 O;{1\[ OZ{1[V TodayO + This WeekO Specific DateO Up to dateO Days In AdvanceO OZ{9 OVO<O All PrioritiesO {1\[b Not DoneO DoneO O;{9[} O'{MO DONE$# DONE$' DONE$' {1\[( O'{MO MEMO$# Edit To DoO Start as TaskO FindO Exit PopupO OZ{9 {1\[L O'{MO OZ{1[L O'{MO CHECKSCROLL% CHECKCAL% LOADSCREEN POPULATESCREEN CHECKGRAY% GETDATE& STOPCURRENTTASK STARTNEWTASK MODIFYTASKEND MODIFYTASKSTART THISTASKRUNNING% WHICHTASKNUMBER% PAUSETASK TASKTHERE% CHANGETASKDETAILS SELECTCLIENT% CONVCLIENT% SELECTTASKTYPE% CONVTASKTYPE% GETBILLQUERY$ TODAY& CURRENTSUBTASK% CURRENTMWMODE% CURRENTLIST$ TVSORTORDER% SPECIFICDATE& TASKRUNNING% OTSTART% TASKPAUSED1% TASKPAUSED2% TASKPAUSED3% SUMMARYCLIENTNUMBER% SUMMARYTASKTYPE% SUMMARYCLIENTNUMBER1% BILLPAID% BLSTART% {1\ ? Outstanding Tasks (End)O Outstanding Tasks (Duration)O Multi ViewO Unbilled Summary TasksO Client BillsO Oj{1\[ Oj{9 = O;{1\[\ O\{1[ TodayO + This WeekO Specific DateO Up to dateO O\{9 = {1\[# O;{9[ {1\[6 O'{MO O\{1[6 O'{MO {9\[6 O'{MO O\{9\[ O'{MO StopO RestartO Exit popupO StopO PauseO Exit popupO StopO RestartO Exit popupO StopO PauseO Exit popupO StopO RestartO Exit popupO StopO PauseO Exit popupO O;{1[ {1\[H O;{1[ OP{9 = {1\[H Not PaidO PaidO O;{9[ O'{MO CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& PAID% PAID%$ + DATEPAID&% PAID%$ + DATEPAID&% CHECKSCROLL% CHECKCAL% LOADSCREEN POPULATESCREEN CHECKGRAY% GETDATE& STOPCURRENTTASK STARTNEWTASK MODIFYTASKEND MODIFYTASKSTART THISTASKRUNNING% WHICHTASKNUMBER% PAUSETASK TASKTHERE% CHANGETASKDETAILS CURRENTMWMODE% CURRENTSUBTASK% CURRENTLIST$ TVSORTORDER% SPECIFICDATE& TASKRUNNING% OTSTART% TASKPAUSED1% TASKPAUSED2% TASKPAUSED3% {1\[U Outstanding Tasks (End)O Outstanding Tasks (Duration)O Multi ViewO Unbilled Summary TasksO Client BillsO Oj{1\[ Oj{9 O;{1\[\ {1\[# O:{1[ TodayO + This WeekO Specific DateO Up to dateO O:{9 O;{9[ {1\[6 O'{MO O:{1[6 O'{MO {9\[6 O'{MO O:{9\[ O'{MO StopO RestartO Exit popupO StopO PauseO Exit popupO StopO RestartO Exit popupO StopO PauseO Exit popupO StopO RestartO Exit popupO StopO PauseO Exit popupO CHECKSCROLL% CHECKCAL% CHANGETODOLIST POPULATESCREEN CHECKGRAY% GETLIST LOADSCREEN GETDATE& N_DAYSINADVANCE% ADDTODO OPENTODO CHANGEMEMODETAILS MODIFYTODO STARTREMOTE FINDTODO MODIFYPRIORITY NEWLISTNAME$ MODIFYDATE CURRENTSORTORDER% SPECIFICDATE& DAYSINADVANCE% TDNAMES$ DONEORDER% TDSTART% TASKRUNNING1% TASKRUNNING2% TASKRUNNING3% {1\[/ DownO Oj{1\[ O {9 O;{1\[ OU{1[( TodayO + This WeekO Specific DateO Up to dateO Days In AdvanceO O D[ OU{9 OVO<O All PrioritiesO {1\[a Not DoneO DoneO O;{9[ {1\[p O'{MO DONE$# DONE$' DONE$' {1\[% O'{MO MEMO$# Edit To DoO Start as TaskO FindO Exit PopupO {1\[I O'{MO OU{9 {1\[t O'{MO + LISTTYPE$' OU{1[I O'{MO MWKEYPRESS SWITCHSCROLLPOSITION GEOFOX1% {9\[4 STARTCALENDAR TODAY& {1\ + O,{9\ + O;{1\[ SHOWCURRENTTASK DOSTOP DOMENU TASKRUNNING% Help ContentsO About 5TimeO Access MenuO Close 5TimeO CHECKCAL% FINDTODO PRINTERPAGE SETTODOTABS SETDRAWPROCEDURE SETPAGESPROCEDURE PRINTERPAGESIZE% PRINTERMEASURE% PRINTERMARGIN PRINTERORIENTATION% PRINTERHEADER$ PRINTERFOOTER$ +.5Time To Do List (c) Simon Berridge 1997, 1998 ToDoDrawO + ToDoPagesO Check printer connection. SETTAB *433333 *gfffff *gffff PRINTERFONT SETTHEREST PRINTLINE INCLINE TODAY& LONGDATE$ PRINTTAB PRINTTABLN INCHALF TODOPRINTPAGE CURRENTLIST$ DONEORDER% CURRENTSORTORDER% TDNAMES$ SPECIFICDATE& PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% Times New RomanO TO DO LISTO Times New RomanO Date: S? List: , only Done itemsK , Not Done itemsK Page: Selected by PriorityK Today ItemsK Specific Date (K Up To Date (K + This WeekK ArialO DateO DoneO ListO PriorityO To Do ItemO Times New RomanO OPENTODO SHORTDATE$ PRINTTAB PRINTTABLN DRAWLINE TDNAMES$ DATE&! DONE$# + LISTTYPE$# + PRIORITY% DETAILS$# OPENTODO OPENTASK TODAY& OPENCLIENT STRIPCOMMA$ OPENTASKTP GETTOTTIME PRINTERPAGE SETTSTABS SETDRAWPROCEDURE SETPAGESPROCEDURE TSTIME& TSCLIENT% TSTASK% TSSTART& TSEND& PRINTERPAGESIZE% PRINTERMEASURE% PRINTERMARGIN PRINTERORIENTATION% PRINTERHEADER$ PRINTERFOOTER$ No Tasks to show! Timesheet parameters Client+ All,... Client+ NAME$# Client+ NAME$# ,...K + Task Type+ All,... + Task Type+ DESC$# + Task Type+ DESC$# ,...K + From DateS {M)?B To DateS {M)?B CancelO CNUMBER% + TPNUMBER% +.5Time Time Sheet (c) Simon Berridge 1997, 1998 TSDrawO TSPagesO Check printer connection. SETTAB *gfffff&@O *gffff PRINTERFONT SETTHEREST PRINTLINE INCLINE PERSONALDETAILS$ TODAY& LONGDATE$ PRINTTAB GETCLIENTNAME$ TASKTYPE$ PRINTTABLN INCHALF TSPPAGE TSCLIENT% TSTASK% TSSTART& TSEND& PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% Times New RomanO + TIMESHEETO Times New RomanO ArialO Times New RomanO Date: SQ Page : Selection Criteria : O + Client : (All)K , Task Type : K (All).K Dates, from K to K inclusive.K ArialO ClientO + Task TypeO DetailsO StartO TimeO TimeO DurationO Times New RomanO GETCLIENTSHOW% GETCLIENTNAME$ PRINTTAB GETTASKNAME$ NORMALDATE$ SHORTTIME$ DECHOURSANDMINUTES$ PRINTTABLN HOURSANDMINUTES$ DRAWLINE INCHALF NEWDATABASENAME$ TSSTART& TSEND& TSCLIENT% TSTASK% TSTIME& O#{QO +' SELECT * FROM Task WHERE startdate >= K AND enddate <= K AND enddate <> 0K AND clientnumber = K AND tasktype = K ORDER BY startdate, starttimeK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% CLIENTNUMBER% CLIENTNUMBER% + TASKTYPE% DETAILS$# STARTDATE&! STARTTIME&! ENDDATE&! ENDTIME&! TASKMINUTES&! TASKMINUTES&! Total Duration in PeriodO NEWDATABASENAME$ TSSTART& TSEND& TSCLIENT% TSTASK% +' SELECT * FROM Task WHERE startdate >= K AND enddate <= K AND enddate <> 0K AND clientnumber = K AND tasktype = K ORDER BY startdate, starttimeK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% NEWDATABASENAME$ TSSTART& TSEND& TSCLIENT% TSTASK% TSTIME& +' SELECT * FROM Task WHERE startdate >= K AND enddate <= K AND enddate <> 0K AND clientnumber = K AND tasktype = K ORDER BY startdate, starttimeK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% TASKMINUTES&! OPENSUMTASK PRINTERPAGE SETOSTABS SETDRAWPROCEDURE SETPAGESPROCEDURE GETOSTIME PRINTERPAGESIZE% PRINTERMEASURE% PRINTERMARGIN PRINTERORIENTATION% PRINTERHEADER$ PRINTERFOOTER$ TSTIME& No Summary Tasks to show! +A5Time All Outstanding Summary Tasks (c) Simon Berridge 1997, 1998 OutSummDrawO OutSummPagesO Check printer connection. PRINTERFONT SETTHEREST PRINTLINE INCLINE TODAY& LONGDATE$ PRINTTAB INCHALF PRINTTABLN OUTSUMMPRINTPAGE PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% Times New RomanO ALL OUTSTANDING SUMMARY TASKSO Times New RomanO Date: S? Page : ArialO Client NameO + Task TypeO Total TimeO Times New RomanO GETCLIENTSHOW% GETCLIENTNAME$ PRINTTAB GETTASKNAME$ DECHOURSANDMINUTES$ PRINTTABLN HOURSANDMINUTES$ DRAWLINE INCHALF NEWDATABASENAME$ TSTIME& O2{QO ++ SELECT * FROM SumTask WHERE billnumber = 0K ORDER BY cnumber,tpnumberK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE CNUMBER% CNUMBER% + TPNUMBER% TOTMINUTES&! TOTMINUTES&! Total Duration in PeriodO NEWDATABASENAME$ ++ SELECT * FROM SumTask WHERE billnumber = 0K ORDER BY cnumber,tpnumberK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE NEWDATABASENAME$ TSTIME& ++ SELECT * FROM SumTask WHERE billnumber = 0K ORDER BY cnumber,tpnumberK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE TOTMINUTES&! SETTAB *gfffff2@O OPENTASK GETTOTTIME2 PRINTERPAGE SETTSTABS SETDRAWPROCEDURE SETPAGESPROCEDURE TSTIME& PRINTERPAGESIZE% PRINTERMEASURE% PRINTERMARGIN PRINTERORIENTATION% PRINTERHEADER$ PRINTERFOOTER$ No Tasks to show! +55Time Outstanding Tasks (c) Simon Berridge 1997, 1998 OutTasksDrawO OutTasksPagesO Check printer connection. PRINTERFONT SETTHEREST PRINTLINE INCLINE TODAY& LONGDATE$ PRINTTAB INCHALF PRINTTABLN OUTTASKSPRINTPAGE PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% Times New RomanO OUTSTANDING TASKSO Times New RomanO Date: S? Page : ArialO ClientO + Task TypeO DetailsO StartO TimeO TimeO DurationO Times New RomanO GETCLIENTNAME$ PRINTTAB GETTASKNAME$ NORMALDATE$ SHORTTIME$ HOURSANDMINUTES$ PRINTTABLN DRAWLINE INCHALF NEWDATABASENAME$ TSTIME& O({QO +) SELECT * FROM Task WHERE transferred = 0K ORDER BY startdate, starttimeK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% CLIENTNUMBER% + TASKTYPE% DETAILS$# STARTDATE&! STARTTIME&! ENDDATE&! ENDTIME&! TASKMINUTES&! Total Duration in PeriodO NEWDATABASENAME$ +) SELECT * FROM Task WHERE transferred = 0K ORDER BY startdate, starttimeK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% NEWDATABASENAME$ TSTIME& +) SELECT * FROM Task WHERE transferred = 0K ORDER BY startdate, starttimeK TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% TASKMINUTES&! PRINTERPAGE SETCLIENTTABS SETDRAWPROCEDURE SETPAGESPROCEDURE GETTOTALCBILL PRINTERPAGESIZE% PRINTERMEASURE% PRINTERMARGIN PRINTERORIENTATION% PRINTERHEADER$ PRINTERFOOTER$ +75Time Client Bill Summary (c) Simon Berridge 1997, 1998 ClientBillSummDrawO ClientBillSummPagesO Check printer connection. PRINTERFONT SETTHEREST PRINTLINE INCLINE TODAY& LONGDATE$ PRINTTAB INCHALF PRINTTABLN CLIENTBILLSUMMPRINTPAGE PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% Times New RomanO CLIENT BILL SUMMARYO Times New RomanO Date: S? Page : ArialO DateO Bill No.O ClientO AmountO DateO OPENCBILL NORMALDATE$ PRINTTAB GETCLIENTNAME$ PRINTTABLN DRAWLINE INCHALF TOTALCBILL + BILLDATE&! BILLNUMBER% CNUMBER% TOTVALUE" PAID% + DATEPAID&! Total ValueO OPENCBILL SETTAB *gfffff *433333 *gffff *33333s7@O PRINTERPAGE SETCLIENTTABS SETDRAWPROCEDURE SETPAGESPROCEDURE GETTOTALCBILL PRINTERPAGESIZE% PRINTERMEASURE% PRINTERMARGIN PRINTERORIENTATION% PRINTERHEADER$ PRINTERFOOTER$ +>5Time Unpaid Client Bill Summary (c) Simon Berridge 1997, 1998 UnpaidBillDrawO UnpaidBillPagesO Check printer connection. PRINTERFONT SETTHEREST PRINTLINE INCLINE TODAY& LONGDATE$ PRINTTAB INCHALF PRINTTABLN UNPAIDBILLPRINTPAGE PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% Times New RomanO UNPAID CLIENT BILLS SUMMARYO Times New RomanO Date: S? Page : ArialO DateO Bill No.O ClientO AmountO DateO NORMALDATE$ PRINTTAB GETCLIENTNAME$ PRINTTABLN DRAWLINE INCHALF NEWDATABASENAME$ TOTALCBILL +? SELECT * FROM CBill WHERE paid = 0 ORDER BY cnumber,billnumberK CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& + BILLDATE&! BILLNUMBER% CNUMBER% TOTVALUE" PAID% + DATEPAID&! Total ValueO NEWDATABASENAME$ +? SELECT * FROM CBill WHERE paid = 0 ORDER BY cnumber,billnumberK CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& NEWDATABASENAME$ TOTALCBILL SELECT * FROM CBill K WHERE paid = 0 K ORDER BY cnumber,billnumberK CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& TOTVALUE" WHICHCLIENT% OPENCLIENT GETCLIENTNAME$ PRINTCBILLHTML PRINTERPAGE SETCLBILLTABS SETDRAWPROCEDURE SETPAGESPROCEDURE NEWDATABASENAME$ CLIENTNUMBER1% BILLNUMBER% TOTALCBILL PRINTERPAGESIZE% PRINTERMEASURE% PRINTERMARGIN PRINTERORIENTATION% PRINTERHEADER$ PRINTERFOOTER$ CNUMBER% +% SELECT * FROM CBill WHERE cnumber = K ORDER BY cnumber,billnumberK CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& No Bills available Client Bill Production Client Name CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& Bill Number+ BILLNUMBER% Bill Number+ BILLNUMBER% ,...K CancelO CNUMBER% BILLNUMBER% TOTVALUE BILLDATE& PAID% DATEPAID& BILLNUMBER% TOTVALUE" Print Selection HTML file? +/5Time Client Bill (c) Simon Berridge 1997, 1998 ClientBillDrawO ClientBillPagesO Check printer connection. PRINTERFONT SETTHEREST PRINTLINE INCLINE PERSONALDETAILS$ OPENCLIENT OPENCBILL LONGDATE$ INCHALF PRINTTAB PRINTTABLN CLIENTBILLPRINTPAGE CLIENTNUMBER1% BILLNUMBER% PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% Times New RomanO CLIENT BILLO ArialO Times New RomanO Times New RomanO CNUMBER% CONTACT$# CONTACT$# NAME$# NAME$# ADR1$# ADR1$# ADR2$# ADR2$# ADR3$# ADR3$# ADR4$# ADR4$# Bill Number: BILLNUMBER% Date: + BILLDATE&! Page : ArialO + Task TypeO Time SpentO Amount ChargedO GETCLIENTSHOW% GETTASKNAME$ PRINTTAB DECHOURSANDMINUTES$ HOURSANDMINUTES$ PRINTTABLN DRAWLINE INCHALF NEWDATABASENAME$ BILLNUMBER% TOTALCBILL +* SELECT * FROM SumTask WHERE billnumber = K ORDER BY cnumber,tpnumberK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE CNUMBER% + TPNUMBER% TOTMINUTES&! TOTMINUTES&! + TOTBILLED" Total BillO NEWDATABASENAME$ BILLNUMBER% +* SELECT * FROM SumTask WHERE billnumber = K ORDER BY cnumber,tpnumberK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE SETTAB PRINTERPAGE SETBILLEDPAGES SETDRAWPROCEDURE SETPAGESPROCEDURE PRINTERPAGESIZE% PRINTERMEASURE% PRINTERMARGIN PRINTERORIENTATION% PRINTERHEADER$ PRINTERFOOTER$ +85Time Billed Summary Tasks (c) Simon Berridge 1997, 1998 BillSummDrawO BillSummPagesO Check printer connection. PRINTERFONT SETTHEREST PRINTLINE INCLINE TODAY& LONGDATE$ INCHALF PRINTTAB PRINTTABLN BILLSUMMPRINTPAGE PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% Times New RomanO BILLED SUMMARY TASKSO Times New RomanO Date: S? ArialO ClientO + Task TypeO TimeO AmountO BillO ArialO GETCLIENTSHOW% GETCLIENTNAME$ PRINTTAB GETTASKNAME$ DECHOURSANDMINUTES$ HOURSANDMINUTES$ PRINTTABLN NEWDATABASENAME$ +F SELECT * FROM SumTask WHERE billnumber <> 0 ORDER BY cnumber,tpnumberK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE CNUMBER% CNUMBER% + TPNUMBER% TOTMINUTES&! TOTMINUTES&! + TOTBILLED" BILLNUMBER% NEWDATABASENAME$ +F SELECT * FROM SumTask WHERE billnumber <> 0 ORDER BY cnumber,tpnumberK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE SETTAB *gfffff *gfffff)@O *3333332@O *43333 *gffff NEWDATABASENAME$ SELECT * FROM PersonalK TITLE$ FIRSTNAME$ SURNAME$ ADR1$ ADR2$ ADR3$ ADR4$ FIRSTNAME$# FIRSTNAME$# SURNAME$# SURNAME$# ADR1$# ADR1$# ADR2$# ADR2$# ADR3$# ADR3$# ADR4$# ADR4$# PRINTERPAGE SETTASKTYPETABS SETDRAWPROCEDURE SETPAGESPROCEDURE PRINTERPAGESIZE% PRINTERMEASURE% PRINTERMARGIN PRINTERORIENTATION% PRINTERHEADER$ PRINTERFOOTER$ +25Time Task Type List (c) Simon Berridge 1997, 1998 TaskTypeDrawO TaskTypePagesO Check printer connection. SETTAB *gffff PRINTERFONT SETTHEREST PRINTLINE INCLINE PERSONALDETAILS$ INCHALF PRINTTAB PRINTTABLN TASKTYPEPPAGE PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% Times New RomanO TASK TYPESO ArialO Times New RomanO Times New RomanO Page : ArialO + Task CodeO DescriptionO Minimum MinutesO Times New RomanO OPENTASKTP PRINTTAB PRINTTABLN O*{QO + TASKCODE$# DESC$# MINMINUTES&! MINMINUTES&! OPENTASKTP POSITION_SLIDER SCROLLSCRN% GEOFOX1% SCROLLHEIGHT% SCROLLPOS% SCROLLPOS% SCROLLHEIGHT% SCROLLSCRN% SLIDERID& POSITION_SLIDER SCROLLPOS% Od8[ MOVESLIDER% MAINSCROLLSCRN% W/LO,H MOVESLIDER% SCROLLSCRN% SCROLLPOS% SCROLLSCRN% MAINSCROLLSCRN% STOPTASK% PAUSETASK TODAY& CURRENTTIME& NUMBERMINUTES& OPENTASK POPULATESCREEN TOPWINDOWTEXT CHECKTASKRUNNING TASKSTOSTOP% TASKPAUSED1% TASKPAUSED2% TASKPAUSED3% STARTDATE1& STARTTIME1& TIMEPAUSED1& KEYTASKNUMBER1% NUMBERTASKS% TASKRUNNING1% TASKSRUNNING% STARTDATE2& STARTTIME2& TIMEPAUSED2& KEYTASKNUMBER2% TASKRUNNING2% STARTDATE3& STARTTIME3& TIMEPAUSED3& KEYTASKNUMBER3% TASKRUNNING3% TASKRUNNING% CURRENTMWMODE% TNUMBER% ENDDATE&% ENDTIME&% TASKMINUTES&% Task 1 Stopped TNUMBER% ENDDATE&% ENDTIME&% TASKMINUTES&% Task 2 Stopped TNUMBER% ENDDATE&% ENDTIME&% TASKMINUTES&% Task 3 Stopped OPENCLIENT OPENTASKTP SHOWREGISTRATION STRIPCOMMA$ ADDTASKTYPE ADDMEMO CHANGEMEMO STRIPSPACE$ TODAY& CURRENTTIME& NEXTNUMBER% OPENTASK PUTTASKMEMO POPULATESCREEN CHECKTASKRUNNING REGISTEREDUSER% NUMBERTASKS% TASKSRUNNING% LASTCLIENTUSED% LASTTASKTYPE% MEMOTEXT$ TASKRUNNING1% CLIENTNUMBER1% TASKTYPE1% DETAILS1$ STARTDATE1& STARTTIME1& KEYTASKNUMBER1% WARNTASK% TIMEPAUSED1& TASKPAUSED1% TASKRUNNING2% CLIENTNUMBER2% TASKTYPE2% DETAILS2$ STARTDATE2& STARTTIME2& KEYTASKNUMBER2% TIMEPAUSED2& TASKPAUSED2% TASKRUNNING3% CLIENTNUMBER3% TASKTYPE3% DETAILS3$ STARTDATE3& STARTTIME3& KEYTASKNUMBER3% TIMEPAUSED3& TASKPAUSED3% TASKRUNNING% CURRENTMWMODE% No Clients in Database No Task Types defined Maximum number reached Maximum number running Start New Task Client+ NAME$# Client+ NAME$# ,...K + Task Type+ DESC$# + Task Type+ DESC$# ,...K DetailsO Add TypeOa+ MemoOo+ CancelO No Details Entered CNUMBER% + TPNUMBER% TASKSO TNUMBER%$ CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' STARTDATE&% STARTTIME&% ENDDATE&% ENDTIME&% TASKMINUTES&% TRANSFERRED%$ CNUMBER% + TPNUMBER% TASKSO TNUMBER%$ CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' STARTDATE&% STARTTIME&% ENDDATE&% ENDTIME&% TASKMINUTES&% TRANSFERRED%$ CNUMBER% + TPNUMBER% TASKSO TNUMBER%$ CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' STARTDATE&% STARTTIME&% ENDDATE&% ENDTIME&% TASKMINUTES&% TRANSFERRED%$ GETQUERY$ SHORTDATE$ SHORTTIME$ SHORTNORMALDATE$ GETCLIENTNAME$ GETTASKNAME$ GEOFOX1% OTNOTE% OTCN$ OTTT$ OTDT$ OTDET$ OTSTART$ OTEND$ OTSD% OTSTART% NUMBEROSTASKS% KEYTASKNUMBER1% TASKPAUSED1% KEYTASKNUMBER2% TASKPAUSED2% KEYTASKNUMBER3% TASKPAUSED3% TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% H0\[U STARTDATE&! DETAILS$# STARTTIME&! ENDDATE&! TNUMBER% Currently Paused Currently Running TNUMBER% Currently Paused Currently Running TNUMBER% Currently Paused Currently Running ENDDATE&! STARTDATE&! ENDTIME&! ENDTIME&! ENDDATE&! CLIENTNUMBER% + TASKTYPE% GETQUERY$ SHORTDATE$ SHORTTIME$ GETCLIENTSHOW% DECHOURSANDMINUTES$ HOURSANDMINUTES$ SHORTDECHOURSANDMINUTES$ SHORTHOURSANDMINUTES$ GETCLIENTNAME$ GETTASKNAME$ GEOFOX1% OTNOTE% OTCN$ OTTT$ OTDT$ OTDET$ OTSTART$ OTEND$ OTSD% NUMBEROSTASKS2% OTSTART% KEYTASKNUMBER1% TASKPAUSED1% KEYTASKNUMBER2% TASKPAUSED2% KEYTASKNUMBER3% TASKPAUSED3% CURRENTMWMODE% TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% STARTDATE&! DETAILS$# STARTTIME&! ENDDATE&! TNUMBER% Currently Paused Currently Running TNUMBER% Currently Paused Currently Running TNUMBER% Currently Paused Currently Running CLIENTNUMBER% TASKMINUTES&! TASKMINUTES&! TASKMINUTES&! TASKMINUTES&! CLIENTNUMBER% + TASKTYPE% TODAY& THISMONDAY& NEWDATABASENAME$ TVSORTORDER% SPECIFICDATE& SORTTASKASCENDING% +) SELECT * FROM Task WHERE transferred = 0K O @[) AND startdate = KS AND startdate = K + AND startdate <= K + AND startdate >= K AND startdate <= K +& ORDER BY startdate ASC, starttime ASCK +( ORDER BY startdate DESC, starttime DESCK STARTNEWTASK TASKSRUNNING% TASKRUNNING1% DETAILS1$ TASKRUNNING2% DETAILS2$ TASKRUNNING3% DETAILS3$ TASKSTOSTOP% Stop a Task New TaskOn+ CancelO CancelO GETQUERY$ PAUSETASK NUMBERMINUTES& TODAY& STARTCALENDAR TASKRUNNING1% KEYTASKNUMBER1% TASKRUNNING2% KEYTASKNUMBER2% TASKRUNNING3% KEYTASKNUMBER3% CALENDARDATE& TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% ENDDATE&! TNUMBER% TNUMBER% TNUMBER% ENDDATE&! ENDTIME&! STARTDATE&! {QO<{Q+ STARTTIME&! STARTDATE&! ENDDATE&! STARTTIME&! ENDTIME&! TASKMINUTES&! Adjust end date/time End DateS8 {M)?B End TimeO CalendarOc+ CancelO Oc@[ {QO<{Q O<{UI End less than Start End equal to Start TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% ENDDATE&% ENDTIME&% TASKMINUTES&% STARTDATE&! STARTTIME&! GETQUERY$ STOPCURRENTTASK NUMBERMINUTES& TODAY& STARTCALENDAR CALENDARDATE& TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% ENDDATE&! STARTDATE&! STARTTIME&! ENDDATE&! {QO<{Q+ ENDTIME&! STARTDATE&! ENDDATE&! STARTTIME&! ENDTIME&! TASKMINUTES&! Adjust Start date/time Start DateS> {M)?B Start TimeO CalendarOc+ CancelO Oc@[ {QO<{Q O<{UI Start greater than End Start equal to End TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% STARTDATE&% STARTTIME&% TASKMINUTES&% STARTDATE&! ENDDATE&! STARTTIME&! ENDTIME&! GETQUERY$ STOPCURRENTTASK NUMBERMINUTES& GETTASKMEMO OPENCLIENT OPENTASKTP STRIPCOMMA$ STRIPSPACE$ CONTINUETASKDETAILS CLONETASKDETAILS CHANGEMEMO DELETETASKMEMO PUTTASKMEMO TASKRUNNING% MEMOTEXT$ NUMBERTASKS% TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% ENDDATE&! STARTDATE&! ENDDATE&! STARTTIME&! ENDTIME&! TASKMINUTES&! TASKMINUTES&! TNUMBER% CLIENTNUMBER% + TASKTYPE% DETAILS$# CNUMBER% + TPNUMBER% Change Task Details Client+ NAME$# Client+ NAME$# ,...K + Task Type+ DESC$# + Task Type+ DESC$# ,...K DetailsO DeleteOd+ MemoOo+ CancelO ContinueOc+ CloneOl+ PausedOp+ DeleteOd+ MemoOo+ CancelO Details Not Entered TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% Op@[b Adjust Paused Time Paused TimeO CancelO CNUMBER% + TPNUMBER% TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' DETAILS$' TASKMINUTES&% STARTDATE&! ENDDATE&! STARTTIME&! ENDTIME&! OPENCLIENT OPENTASKTP TODAY& STRIPCOMMA$ ADDTOSUMMARY POPULATESCREEN NEWDATABASENAME$ CURRENTMWMODE% No Clients in Database No Task Types defined Transfer Tasks Up toS* {M)?B Client+ All,... Client+ NAME$# Client+ NAME$# ,...K + Task Type+ All,... + Task Type+ DESC$# + Task Type+ DESC$# ,...K CancelO Transferring Tasks... CNUMBER% + TPNUMBER% + TASKCODE$# +* SELECT * FROM Task WHERE transferred = 0 K AND startdate <= K AND clientnumber = K AND tasktype = K TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% CLIENTNUMBER% + TASKTYPE% TASKMINUTES&! TRANSFERRED%$ CLIENTNAME$ TASKTYPE$ HOURSANDMINUTES$ GEOFOX1% OSCL$ OSTT$ OSTM$ NEWDATABASENAME$ SUMMARYCLIENTNUMBER% SUMMARYTASKTYPE% NUMBERSUMMARYTASKS% OSSTART% +, SELECT * FROM SumTask WHERE billnumber = 0 K AND cnumber = K AND tpnumber = K ORDER BY cnumber,tpnumberK CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE CNUMBER% + TPNUMBER% TOTMINUTES&! OPENCLIENT CNUMBER% NAME$# OPENTASKTP + TPNUMBER% DESC$# SHOWREGISTRATION GETQUERY$ STOPCURRENTTASK NEXTNUMBER% REGISTEREDUSER% NUMBERTASKS% TIMEPAUSED1& TASKPAUSED1% Maximum number reached TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% ENDDATE&! CLIENTNUMBER% + TASKTYPE% DETAILS$# STARTDATE&! STARTTIME&! ENDDATE&! ENDTIME&! TASKMINUTES&! TNUMBER%$ TASKSO CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' STARTDATE&% ENDDATE&% STARTTIME&% ENDTIME&% TASKMINUTES&% TRANSFERRED%$ SHOWREGISTRATION GETQUERY$ STOPCURRENTTASK TODAY& CURRENTTIME& NEXTNUMBER% CHECKTASKRUNNING REGISTEREDUSER% NUMBERTASKS% TASKSRUNNING% TASKRUNNING1% STARTDATE1& STARTTIME1& KEYTASKNUMBER1% DETAILS1$ TIMEPAUSED1& TASKPAUSED1% TASKRUNNING2% STARTDATE2& STARTTIME2& KEYTASKNUMBER2% DETAILS2$ TIMEPAUSED2& TASKPAUSED2% TASKRUNNING3% STARTDATE3& STARTTIME3& KEYTASKNUMBER3% DETAILS3$ TIMEPAUSED3& TASKPAUSED3% TASKRUNNING% Maximum number reached Maximum number running TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% ENDDATE&! CLIENTNUMBER% + TASKTYPE% DETAILS$# DETAILS$# (Contd)C[ DETAILS$# DETAILS$# ... (Contd)K (Contd)K TASKSO TNUMBER%$ CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' STARTDATE&% STARTTIME&% ENDDATE&% ENDTIME&% TASKMINUTES&% TRANSFERRED%$ TASKSO TNUMBER%$ CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' STARTDATE&% STARTTIME&% ENDDATE&% ENDTIME&% TASKMINUTES&% TRANSFERRED%$ TASKSO TNUMBER%$ CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' STARTDATE&% STARTTIME&% ENDDATE&% ENDTIME&% TASKMINUTES&% TRANSFERRED%$ GETQUERY$ TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% ENDDATE&! CURRENTTIME& PAUSEPRINT1% PAUSEPRINT2% PAUSEPRINT3% TASKPAUSED1% TIMEPAUSED1& PAUSESTART1& TASKPAUSED2% TIMEPAUSED2& PAUSESTART2& TASKPAUSED3% TIMEPAUSED3& PAUSESTART3& GETQUERY$ TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% OPENTODO OPENCLIENT OPENTASKTP SHOWREGISTRATION STRIPCOMMA$ ADDTASKTYPE ADDMEMO CHANGEMEMO TODAY& CURRENTTIME& NEXTNUMBER% OPENTASK PUTTASKMEMO POPULATESCREEN CHECKTASKRUNNING REGISTEREDUSER% NUMBERTASKS% TASKSRUNNING% LASTCLIENTUSED% LASTTASKTYPE% MEMOTEXT$ TASKRUNNING1% CLIENTNUMBER1% TASKTYPE1% DETAILS1$ STARTDATE1& STARTTIME1& KEYTASKNUMBER1% WARNTASK% TIMEPAUSED1& TASKPAUSED1% TASKRUNNING2% CLIENTNUMBER2% TASKTYPE2% DETAILS2$ STARTDATE2& STARTTIME2& KEYTASKNUMBER2% TIMEPAUSED2& TASKPAUSED2% TASKRUNNING3% CLIENTNUMBER3% TASKTYPE3% DETAILS3$ STARTDATE3& STARTTIME3& KEYTASKNUMBER3% TIMEPAUSED3& TASKPAUSED3% TASKRUNNING% CURRENTMWMODE% DETAILS$# No Clients in Database No Task Types defined Maximum number reached Maximum number running Start New Task Client+ NAME$# Client+ NAME$# ,...K + Task Type+ DESC$# + Task Type+ DESC$# ,...K DetailsO Add TypeOa+ MemoOo+ CancelO CNUMBER% + TPNUMBER% TASKSO TNUMBER%$ CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' STARTDATE&% STARTTIME&% ENDDATE&% ENDTIME&% TASKMINUTES&% TRANSFERRED%$ CNUMBER% + TPNUMBER% TASKSO TNUMBER%$ CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' STARTDATE&% STARTTIME&% ENDDATE&% ENDTIME&% TASKMINUTES&% TRANSFERRED%$ CNUMBER% + TPNUMBER% TASKSO TNUMBER%$ CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' STARTDATE&% STARTTIME&% ENDDATE&% ENDTIME&% TASKMINUTES&% TRANSFERRED%$ NEWDATABASENAME$ SELECT * FROM TaskMemo K WHERE tnumber = K TNUMBER% MEMO$ GETQUERY$ KEYTASKNUMBER1% KEYTASKNUMBER2% KEYTASKNUMBER3% TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% TNUMBER% TNUMBER% TNUMBER% OPENCLIENT OPENTASKTP SHOWREGISTRATION TODAY& CURRENTTIME& STRIPCOMMA$ ADDTASKTYPE CHANGEMEMO STARTCALENDAR NEXTNUMBER% OPENTASK NUMBERMINUTES& PUTTASKMEMO POPULATESCREEN TASKRUNNING% REGISTEREDUSER% NUMBERTASKS% MEMOTEXT$ LASTCLIENTUSED% LASTTASKTYPE% CALENDARDATE& CLIENTNUMBER1% TASKTYPE1% DETAILS1$ KEYTASKNUMBER1% CURRENTMWMODE% +#Cannot add a task when task running No Clients in Database No Task Types defined Maximum number reached Add Manual Task (1) Client+ NAME$# Client+ NAME$# ,...K + Task Type+ DESC$# + Task Type+ DESC$# ,...K DetailsO Add TypeOa+ MemoOo+ NextO CancelO Add Manual Task (2) Start DateS< {M)?B Start TimeO End DateS< {M)?B End TimeO MemoOo+ Start CalOl+ End CalOd+ CancelO Ol@[ Od@[ CNUMBER% + TPNUMBER% TASKSO TNUMBER%$ CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' STARTDATE&% STARTTIME&% ENDDATE&% ENDTIME&% TASKMINUTES&% STARTDATE&! ENDDATE&! STARTTIME&! ENDTIME&! TRANSFERRED%$ DETAILS$' DETAILS$' GETQUERY$ TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% ENDDATE&! ENDDATE&% STARTDATE&! ENDTIME&% STARTTIME&! TASKMINUTES&% TODAY& DELETETASKMEMO2 NEWDATABASENAME$ NUMBERTASKS% Remove Transferred Tasks Up to dateS {M)?B CancelO Removing Data . . . SELECT * FROM Task WHERE K startdate <= K TNUMBER% CLIENTNUMBER% TASKTYPE% DETAILS$ STARTDATE& STARTTIME& ENDDATE& ENDTIME& TASKMINUTES& TRANSFERRED% TRANSFERRED% TNUMBER% OPENTASK OPENTASKTP + TPNUMBER% DESC$# TODAY& CURRENTTIME& NUMBERMINUTES& HOURSANDMINUTES$ TASKRUNNING1% STARTDATE1& STARTTIME1& TASKRUNNING2% STARTDATE2& STARTTIME2& TASKRUNNING3% STARTDATE3& STARTTIME3& Times: (1) K (2) K (3) K OPENTASKTP NEWDATABASENAME$ MINMINUTES&! + TASKCODE$# ++ SELECT * FROM SumTask WHERE billnumber = 0K CNUMBER% TPNUMBER% TOTMINUTES& TOTBILLED BILLNUMBER% SVALUE TASKCODE$ CNUMBER% + TPNUMBER% TOTMINUTES&% TOTMINUTES&! + TASKCODE$' CNUMBER%$ + TPNUMBER%$ + TASKCODE$' TOTMINUTES&% TOTMINUTES&% + TOTBILLED& BILLNUMBER%$ SVALUE& OPENTODO TODAY& SHORTDATE$ GEOFOX1% TNOTE% TDLT% TDLST$ TDDT$ TDPR$ TDPR% TDTD$ TDDN$ CURRENTSORTORDER% NUMBERTODORECORDS% TDSTART% TDNAMES$ H0\[4 DATE&! DATE&! Today DATE&! + LISTTYPE$# + PRIORITY% + PRIORITY% DETAILS$# DONE$# SHOWREGISTRATION TODAY& BUFFER BUILDLITERALS$ OPENTODOLIST STARTCALENDAR ADDMEMO ADDLISTITEM BUFFER$ NEXTNUMBER% LONGDATE$ ADDAGENDAENTRY& POPULATESCREEN REGISTEREDUSER% NUMBERTODOS% MEMONUMBER% MEMOTEXT$ CURRENTLIST$ MBUFFER& CALENDARDATE& NEWDATABASENAME$ CURRENTMWMODE% Maximum number reached Add To Do Item AllC[l List+ LISTTYPE$# List+ LISTTYPE$# ,...K Date DueS$ {M)?B Priority DetailsO Enter in Agenda MemoOo+ ListOl+ CalOa+ CancelO Oa@[ SELECT * FROM ToDoK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& AllC[7 + LISTTYPE$# + LISTTYPE$' + LISTTYPE$' DATE&% DETAILS$' MEMO$' DETAILS$' MEMO$' DONE$' + PRIORITY%$ + TDNUMBER%$ TODOO AGENDAENTRY&% Agenda Entry Date of entry Time of entryO + Set Alarm CancelO AGENDAENTRY&% Agenda entry added RESTOREDIRECTORY$ CHECKEXTENSION$ OPENBINARYFILE% CLOSETEXTFILE GETTODOS MAINWINDOWTEXT NEWDATABASENAME$ NUMBERTODOS% TDSTART% CURRENTSORTORDER% CURRENTMWMODE% Remove Done To Do Items +"This action clears the database ofO all 'Done' To Do Items.( +!Are you sure you wish to proceed?O YesOy( NoOn( On@`[ Save deleted items +"Would you like to save the deletedO items in a backup file?O YesOy( NoOn( DoneTD.OUTK Backup file File Name,Folder,DiskO CancelO Deleting 'Done' Items SELECT * FROM ToDoK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& DONE$# + LISTTYPE$# DATE&! {I+ PRIORITY% DETAILS$# ON{I+ MEMO$# PRINTTODOHTML DOPRINTTODOS Print To Do List +&This function prints a To Do List withO +(the defaults that are applicable in yourO current view.( Do you wish to proceed?O YesOy( NoOn( On@`[ Print Selection HTML file? OPENTODO BUFFER BUILDLITERALS$ TODAY& DELETEAGENDAENTRY STARTCALENDAR CHANGEMEMO NEWLISTNAME$ BUFFER$ LONGDATE$ ISAGENDAENTRYTHERE% MODIFYAGENDAENTRY ADDAGENDAENTRY& MEMONUMBER% MEMOTEXT$ MBUFFER& CALENDARDATE& DATE&! + PRIORITY% DETAILS$# AGENDAENTRY&! DONE$# MEMO$# MEMO$# Edit To Do Item Date DueS4 {M)?B Priority DetailsO Enter in Agenda DeleteOd+ MemoOo+ Chg ListOl+ CalOa+ CancelO Od@[M AGENDAENTRY&! Agenda entry deleted Oa@[ + LISTTYPE$' DATE&% + PRIORITY%$ MEMO$' MEMO$# DETAILS$' DETAILS$' DONE$' DONE$' Agenda Entry Date of entry Time of entryO + Set Alarm CancelO Agenda entry modified AGENDAENTRY&% Agenda entry added AGENDAENTRY&% Agenda entry added AGENDAENTRY&% Agenda entry deleted OPENTODO CHANGEMEMO POPULATESCREEN MEMOTEXT$ CURRENTMWMODE% DETAILS$# MEMO$# MEMO$' MEMO$# DETAILS$' DETAILS$' OPENTODO BUILDLITERALS$ + PRIORITY% Change Priority Priority CancelO + PRIORITY%$ OPENTODO STARTCALENDAR LONGDATE$ MODIFYAGENDAENTRY MEMOTEXT$ CALENDARDATE& DATE&! DETAILS$# MEMO$# AGENDAENTRY&! DATE&% Agenda Entry Date of entry Time of entryO + Set Alarm CancelO Agenda entry modified NEWDATABASENAME$ SELECT * FROM ToDo K TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& OPENTODOLIST STRIPCOMMA$ ADDLISTITEM DELETELISTITEM New List + Change to+ LISTTYPE$# + Change to+ LISTTYPE$# ,...K Add ListOa+ DeleteOd+ CancelO + LISTTYPE$# OPENTODOLIST CURRENTLIST$ AllC[ UpC[a + LISTTYPE$# + LISTTYPE$# + LISTTYPE$# TDNAMES$ REPLACECOMMA$ PUTTODOLITERALS GETTODOLITERALS POPULATESCREEN TDNAMES$ CURRENTMWMODE% Priority List Priority 1O Priority 2O Priority 3O Priority 4O Priority 5O Priority 6O CancelO Blank name not accepted POPULATESCREEN SORTWITHINDATE% CURRENTMWMODE% OPENTODO OPENAGENDAFILE CLOSEAGENDA REOPENAGENDA AGENDA_OPEN% AGENDAENTRY&! DONE$# AGENDAENTRY&! RESTOREDIRECTORY$ CHECKEXTENSION$ TODAY& CLOSETEXTFILE GETTODOS MAINWINDOWTEXT NEWDATABASENAME$ NUMBERTODOS% TDSTART% CURRENTSORTORDER% CURRENTMWMODE% *.OUTK Backup file to restore File Name,Folder,DiskO Use today's date Set as 'Done' CancelO Recovering 'Done' Items SELECT * FROM ToDoK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& O$hD[ O$hD[ DONE$' DONE$' AGENDAENTRY&% + LISTTYPE$' DATE&% DATE&% + PRIORITY%$ DETAILS$' MEMO$' ON{IW TASKWINDOWBUTTON$ WHOLESCREEN% CURRENTLIST$ To Do ListO Task ManagerO OPENTODOLIST STRIPCOMMA$ ADDLISTITEM DELETELISTITEM CHANGELISTITEM CURRENTLIST$ Change List New List+ All,... AllC[ New List+ LISTTYPE$# New List+ LISTTYPE$# ,...K + LISTTYPE$# AddOa+ ChangeOc+ DeleteOd+ CancelO AddOa+ CancelO Od@[9 Cannot delete this item Oc@[9 Cannot change this item + LISTTYPE$# OPENTODOLIST Add List Item New ItemO CancelO + LISTTYPE$' List already exists OPENTODOLIST CURRENTLIST$ NEWDATABASENAME$ Delete List Item +$Deleting a list item will delete ALLO associated To Do Items.( +!Are you sure you wish to proceed?O YesOy( NoOn( On@`[ Deleting list + LISTTYPE$# SELECT * FROM ToDo K TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& + LISTTYPE$# CURRENTSUBTASK% CURRENTMWMODE% Tasks - End Tasks - Duration Unbilled Summary Client Bills Task Multi View TASKWINDOWBUTTON SETENDBIT CURRENTSUBTASK% REDRAWSCREEN% Outstanding Tasks (End)O Outstanding Tasks (Dur)O Summary TasksO Client BillsO DurationO OPENTODOLIST N_CHANGELISTITEM% CURRENTLIST$ NEWDATABASENAME$ + LISTTYPE$# O*{WK No change required Changing list + LISTTYPE$' SELECT * FROM ToDo K TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& + LISTTYPE$# + LISTTYPE$' STRIPSPACE$ NEXTNUMBER% OPENTASKTP Add Task Type CodeO DescriptionO Minimum billing minutesO CancelO Code not entered Description not entered TASKTYPEO + TPNUMBER%$ DESC$' MINMINUTES&% + TASKCODE$' Task Type already exists. WHICHTASKTYPE% OPENTASKTP STRIPSPACE$ DESC$# MINMINUTES&! + TASKCODE$# Modify Task Type CodeO DescriptionO Minimum billing minutesO CancelO Code not entered Description not entered DESC$' MINMINUTES&% + TASKCODE$' OPENTASKTP STRIPCOMMA$ No Task Types available Select Task Type Task+ DESC$# Task+ DESC$# ,...K CancelO WHICHTASKTYPE% OPENTASKTP DESC$# + TASKCODE$# Delete Task Type Description CancelO OPENTASKTP STRIPCOMMA$ No Task Types available Select Task Type Task+ All,... Task+ DESC$# Task+ DESC$# ,...K CancelO OPENTASKTP + TPNUMBER% STRIPSPACE$ OPENMEMO MEMOPATH$ Add Word Memo DescriptionO CancelO Blank key not allowed Blank description not allowed Memo already exists MEMOKEY$' + MEMODESC$' SELECTMEMO% OPENMEMO MEMOPATH$ MEMOKEY$# Memo does not exist SELECTMEMO% OPENMEMO MEMOPATH$ MEMOKEY$# Memo deleted OPENMEMO STRIPCOMMA$ No Memos available Select Memo Memo+ MEMODESC$# Memo+ MEMODESC$# ,...K CancelO STRIPCOMMA$ ADDSCROLLSTRING SPOPULATE% POPULATESCREEN NEWDATABASENAME$ CURRENTLIST$ CURRENTMWMODE% Search criteria Enter the search string.O SearchO CancelO Error: + No text enteredK Searching for ' SELECT * FROM ToDo K WHERE done <> 'X'K ORDER BY dateK TDNUMBER% LISTTYPE$ DATE& PRIORITY% DETAILS$ DONE$ MEMO$ AGENDAENTRY& DETAILS$# OJ{WK DETAILS$# {I+ LISTTYPE$# No match found TODAY& LONGDATE$ SHOWTIME$ ADDTEL O<{QI Telephone call in operation Time started FinishO CancelO O<{QI O<{1[ Call less than 1 minute {U}WB O<{U}WB O<{QM OPENCLIENT OPENTASKTP SHOWREGISTRATION STRIPCOMMA$ ADDTASKTYPE CHANGEMEMO TODAY& STARTCALENDAR NEXTNUMBER% OPENTASK NUMBERMINUTES& PUTTASKMEMO POPULATESCREEN REGISTEREDUSER% NUMBERTASKS% MEMOTEXT$ LASTCLIENTUSED% LASTTASKTYPE% CALENDARDATE& KEYTASKNUMBER1% CURRENTMWMODE% No Clients in Database No Task Types defined Maximum number reached Telephone Conversation Add Telephone Task (1) Client+ NAME$# Client+ NAME$# ,...K + Task Type+ DESC$# + Task Type+ DESC$# ,...K DetailsO Add TypeOa+ MemoOo+ NextO CancelO Add Telephone Task (2) Start DateSb {M)?B Start TimeO End DateSb {M)?B End TimeO MemoOo+ Start CalOl+ End CalOd+ CancelO Ol@[ Od@[ CNUMBER% + TPNUMBER% TASKSO TNUMBER%$ CLIENTNUMBER%$ + TASKTYPE%$ DETAILS$' STARTDATE&% STARTTIME&% ENDDATE&% ENDTIME&% TASKMINUTES&% STARTDATE&! ENDDATE&! STARTTIME&! ENDTIME&! TRANSFERRED%$ DETAILS$' DETAILS$' SCROLLCLEAR SCROLLLIST& GEOFOX1% SCROLLSCREEN% OwO(( SCROLLSCREEN% SCROLLLIST& SCROLLNUMBER% REFRESHSWINDOW SCROLLINVERT SCROLLKEYLOOP RESETSCROLLWINDOW SCROLLCLEAR SCROLLENTERPRESSED% SCROLLPOINTER% SCROLLTOP% SCROLLSCREEN% FONTHEIGHT& SCROLLTOP% SCROLLNUMBER% SCROLLW& FONTHEIGHT& SCROLLPOINTER% DOSTOP SCROLLPAGEUP SCROLLPAGEDOWN SCROLLUP SCROLLDOWN SCROLLESC SCROLLENTER SCROLLPENTAP SCROLLPOINTER% SCROLLENTERPRESSED% SCROLLINVERT REFRESHSWINDOW SCROLLTOP% SCROLLNUMBER% SCROLLINVERT REFRESHSWINDOW SCROLLTOP% SCROLLNUMBER% SCROLLINVERT REFRESHSWINDOW SCROLLPOINTER% SCROLLTOP% SCROLLNUMBER% SCROLLINVERT REFRESHSWINDOW SCROLLPOINTER% SCROLLTOP% SCROLLNUMBER% SCROLLINVERT SCROLLPOINTER% SCROLLINVERT SCROLLPOINTER% SCROLLTOP% SCROLLENTERPRESSED% SCROLLENTER SCROLLESC SCROLLINVERT SCROLLPAGEUP SCROLLUP SCROLLDOWN SCROLLPAGEDOWN SCROLLPOINTER% SCROLLNUMBER% {1\[3 {1\ n O"{9\ n {1\[H O"{MO {1\ n O!{9\ n Ok{1\[\ O4{1[ O4{9 n OF{1\[ OF{9 n OX{1\[ OX{9 n Oj{1\[ SCROLLNUMBER% SCROLLW& SCROLLNUMBER% SCROLLW& O3{WK PRINTERNUMBERTABS% PRINTERMEASURE% TABPOS& TABALIGN% PRINTNOLINE PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% PRINTERLEFTMARGIN& PRINTERCURRENTPOSITION& PRINTERPRINTWIDTH& PRINTERLEFTMARGIN& PRINTERCURRENTPOSITION& TABALIGN% TABPOS& PRINTTAB PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% PRINTERFONTHEIGHT% PRINTERPAGESIZE% PRINTERMEASURE% PRINTERMARGIN PRINTERORIENTATION% PRINTERHEADER$ PRINTERFOOTER$ PRINTERNUMBERTABS% PRINTERLEFTMARGIN& PRINTERCURRENTPOSITION& PRINTERPRINTWIDTH& PRINTERFONTHEIGHT% PRINTERCURRENTPOSITION& PRINTERFONTHEIGHT% PRINTERLEFTMARGIN& PRINTERPRINTWIDTH& PRINTERPRINTHEIGHT& DATEFORMAT% DATEFORMAT% DATEFORMAT% January February March April August + September October November December MBUFFER& MBUFFER2& MBUFFER& MBUFFER2& TODAY& {QO<{Q {QO<{Q TWENTYFOUR% O<{U}WB O<{QM O<{U}WB O<{QM minK O<{U}WB O<{QM} hrsK O<{U}WB O<{QM TODAY& CURRENTTIME& FILLZEROES$ {QO<{Q O<{QM O<{U}WB O<{QM O<{U}WB O<{QM} DATEFORMAT% TODAY& Enter Date Enter dateS {M)?B CancelO MAIN+ OPENAGENDAFILE CLOSEAGENDA ADDAGENDAENTRY& MODIFYAGENDAENTRYi DELETEAGENDAENTRY^ ISAGENDAENTRYTHERE% REOPENAGENDAu DOCCLOSE% DOBACKUPn PROCESSBACKUPl DORESTORE PROCESSRESTORE% CREATEBILLSo CREATECLIENTBILLS GETBILLS GETBILLQUERY$% REMOVEBILLSg STARTCALENDARl# CALENDARINIT=$ DISPLAYCALWINDOW REFRESHCALSCREEN REFRESHCAL PRINTCALWINDOWf& PRINTCALLITERALSC' CALHIGHLIGHT HIGHLIGHTBOX LLONGDATE$A) CALKEYLOOP CALKEYPRESSq, CALPENTAP CALMONTHLEFT CALMONTHRIGHTy/ CALYEARLEFT CALYEARRIGHT CALOKBUTTON61 CALCANCELBUTTON^1 TAPINMAIN DOALLCHECKSq2 CHECKFORTASKMEMOO3 CHECKFORTODONUMBER DOCHANGECLIENT DOCHANGETODO4; CHECKMEMODATABASE^@ CHECKSHOWDEC CHECKCHANGEPRIORITY CHECKTDLITERALS CREATENEWTODOKEY CHECKSUMTASK1zI CHECKTASKTYPE CHECKNEWSORT CHECKTODOAGENTRYuV CHECKPREFS3L\ w ADDCLIENT MODIFYCLIENT WHICHCLIENT% GETCLIENTNAME$ SELECTCLIENT% CONVCLIENT% DELETECLIENTEh GETCLIENTSHOW% KEYLOOPLl DOMENU DOTODOMENU DOTASKVIEWMENU DOSWITCHING WHOe| DOSTOP^} DOPENTAP SORTASCDESC SWITCHSCROLLPOSITION TDPOSITION T1POSITION: T2POSITION CONVERTDATABASES_ CONVERTTODO} CONVERTTASK CONVERTPREFS CONVERTAGENDA CONVERTPREFS2 WRITEOUTTASKSd WRITETODOLISTe WRITESUMMARYTASKS WRITECLIENTBILLS GETTMEMO$+ ADDCURRENCY MODIFYCURRENCY DELETECURRENCY WHICHCURRENCY$ CREATEDATABASE CREATEPREFS3 CREATECURRENCYTABLEc CREATEPERSONALTABLE CREATEDATEPREFS[ OPENAGENDA OPENTODO= OPENTODOLIST INITLISTs OPENCLIENT OPENTASK OPENNUMBERS OPENTASKTPH OPENSUMTASK OPENCBILL NEXTNUMBER%) OPENPREFS GETMAINPREFS; PUTMAINPREFSo GETPERSONALDETAILSa PUTPERSONALDETAILS OPENCURRENCY CREATEMEMODATABASE CREATETODOLITERALSD OPENMEMOG GETTODOLITERALS PUTTODOLITERALSX GETTASKCODE$ BACKUPDIRECTORY$e PUTBACKUPDIRECTORY RESTOREDIRECTORY$j N_DAYSINADVANCE%) N_CHANGELISTITEM% INITIALISE POPULATESCREEN HELP* SHOWREGISTRATION DECRYPTPASSWORD%@ REGISTERTIME GETAGENDANAMEc SETPREFERENCES CHECKFORTIMES SETUPPERSONALDETAILS# OPENINGSCREEN; LOADSCREEN CHECKTASKRUNNING PRINTTODOHTML PRINTCBILLHTML+ MAINWINDOWTEXTs MWKEYPRESS REFRESHDEFAULTWINDOWm% REFRESHOSTASKSWINDOW REFRESHOSSUMMWINDOW ADDMEMO$' CHANGEMEMO GETTASKMEMO PUTTASKMEMOt) DELETETASKMEMOK* OUTPUTMPX WRITEMPXn- WRITELNX6 MAINWINDOWPENTAP2 MAINWINDOWPENTAP3 MAINWINDOWPENTAP4&J MAINWINDOWPENTAP5 CHECKSCROLL% CHECKCAL% CHECKGRAY% TAPINEXTRAS DOPRINTTODOSS\ SETTODOTABS TODODRAW3^ TODOPRINTPAGE TODOPAGES& PRINTTIMESHEET SETTSTABS TSDRAW TSPPAGE TSPAGES& GETTOTTIME ALLOSTASKS OUTSUMMDRAWSv OUTSUMMPRINTPAGE OUTSUMMPAGES& ! GETOSTIME ! SETOSTABS OUTTASKS OUTTASKSDRAW OUTTASKSPRINTPAGEY OUTTASKSPAGES&B GETTOTTIME2U PRINTBILLSUMMARY CLIENTBILLSUMMDRAW CLIENTBILLSUMMPRINTPAGEY CLIENTBILLSUMMPAGES& SETCLIENTTABSF PRINTUNPAIDBILLS UNPAIDBILLDRAWn UNPAIDBILLPRINTPAGE UNPAIDBILLPAGES& GETTOTALCBILL PRINTCLIENTBILL CLIENTBILLDRAW CLIENTBILLPRINTPAGE CLIENTBILLPAGES& SETCLBILLTABS PRINTBILLEDTASKS> BILLSUMMDRAW BILLSUMMPRINTPAGE BILLSUMMPAGES& SETBILLEDPAGES PERSONALDETAILS$] PRINTTASKTYPES SETTASKTYPETABS TASKTYPEDRAW TASKTYPEPPAGE4 TASKTYPEPAGES& SETUP_SCROLLY POSITION_SLIDER MOVESLIDER% MAINSCROLLTAP% SCROLLTAP% CLOSESCROLL SPATH$' STOPCURRENTTASKw STARTNEWTASKG GETOSTASKS GETOSTASKS2 ' GETQUERY$ ( STOPTASK% MODIFYTASKENDv MODIFYTASKSTART CHANGETASKDETAILS TRANSFERTASKSa ) GETOSSUMM CLIENTNAME$ * TASKTYPE$+ CLONETASKDETAILS CONTINUETASKDETAILSw THISTASKRUNNING%v ~+ PAUSETASKJ TASKTHERE% STARTREMOTE DELETETASKMEMO2y WHICHTASKNUMBER% , ADDMANUAL; CHECKFORBADTASKS, REMOVETRANS@ GETNUMBERTASKS% GETTASKNAME$P SHOWCURRENTTASK ADDTOSUMMARYB GETTODOS] ADDTODO3 DELETEDONE* PRINTTODOS[ MODIFYTODO CHANGEMEMODETAILS)# MODIFYPRIORITY,$ MODIFYDATE GETNUMBERTODOS%*' NEWLISTNAME$ CHANGETODOLIST2) BUILDLITERALS$+* DOPRIORITIES CHANGESORT CHECKCROSSOUT RECOVERTODO TOPWINDOWTEXT+1 TWPOPUP% GETLIST ADDLISTITEM DELETELISTITEM[5 TASKWINDOWBUTTON$@7 2 GETTVLIST CHANGELISTITEM]9 ADDTASKTYPE ; MODIFYTASKTYPE WHICHTASKTYPE% DELETETASKTYPE SELECTTASKTYPE% CONVTASKTYPE% ADDWORDMEMO CHANGEWORDMEMOtC DELETEWORDMEMO SELECTMEMO% FINDTODO STARTTELEPHONE 4 SHOWTIME$ ADDTEL INITSCROLLWINDOW%R SCROLLCLEAR SPOPULATE% REFRESHSWINDOW SCROLLINVERT SCROLLKEYLOOP SCROLLPAGEUP SCROLLPAGEDOWN/W SCROLLUP SCROLLDOWNhX 6 SCROLLESC*Y SCROLLENTEReY SCROLLPENTAP RESETSCROLLWINDOW ADDSCROLLSTRING SETTAB;\ 6 PRINTLINE PRINTNOLINEL] PRINTTAB PRINTTABLN INCLINEh_ INCHALF PRINTERFONT PRINTERPAGEb` SETDRAWPROCEDUREWa SETPAGESPROCEDUREva DRAWLINE SETTHERESTJb TODAY& OPENBINARYFILE% WRITE1c CLOSETEXTFILE NORMALDATE$ SHORTDATE$ '8 LONGDATE$ STRIPCOMMA$ REPLACECOMMA$ti SYSTEMPATH$ BUFFERzj BUFFER$ THISMONDAY&sk CURRENTTIME& NUMBERMINUTES& SHORTTIME$[l HOURSANDMINUTES$}m DECHOURSANDMINUTES$5n NORMALTIME$ 9 DISPTIME$Go FILLZEROES$ SOUNDALARMmp STRIPSPACE$ SHORTHOURSANDMINUTES$ SHORTDECHOURSANDMINUTES$ SHORTNORMALDATE$ GETDATE&/s STRIPCR$ FONTHEIGHT&Jt CHECKEXTENSION$pt SYSTEM\ DBASE[ GPRINTERB AGENDA2G