PSION CD 2

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

/ PSION CD 2 / PsionCDVol2.iso / Programs / 28 / CALLCALC.SIS / CallCalc.app / CallCalc.txt

Wrap

Text File | 1998-08-06 | 13.5 KB | 993 lines

c:\OPL\OPL16\CallCalc\CallCalc^ YRDAY% CALTOT TYPE$ SELECT% TOTREC% LC10Z$ FRQNO$ MINCALL CALTYPE$ LINE% CURSY% TOTLINE% SHOWSUM% GRID% CODE& CURR$ UNAME$ LOGLINE% TBWINID% TBVIS% START% BACKFROMLOG% EVENT& & CURRENCY$ NORATES% SHOWAGAIN% FRQNAME$ FRQNUM$ :: FILENAME$ 'N DISCNAME$ DISCPERCENT FROMNEW% CURRENTVIEW% OLDLOGLINE% <f SHOWCONF% CANCEL% TSTAMP& DOCNAME$ CTYPE$ LOGO% Dk THREADID& SCRWID% SCRHGHT% MENUPOS% Nk BITMAPID% MAINMBM$ DATA$ INITIALISE TITLE IFREG J&29:2&N h(Rkd \system\apps\callcalc\K \documents\CallCalc\K +!C:\system\apps\callcalc\check.opo Initialising... *** Unregistered CallCalc *** +2This is the evaluation version of CallCalc. If youO +0continue to use the program, please register it.O +-Registration details can be found by pressingO +$'Help' once the program has started.O *** Unregistered CallCalc *** +0The unregistered version of this program has the following limitations:( Log entries: 15 Rates: 5 Discounts: 5 Frequent used numbers: 5( UNAME$ regKW +'CallCalc 5 V1.00 - *** Unregistered *** {Q}WB +!CallCalc 5 V1.00 - Registered to +'CallCalc 5 V1.00 - *** Unregistered *** The maximum of recordsKO in the has been reached.KO + If you would like to add furtherO +%records, please register the program.O SETTYPES POPFREQ SETDISCOUNTS READPREF CURRENTVIEW% LOGLINE% FROMNEW% START% BACKFROMLOG% OLDLOGLINE% CANCEL% LOGO% graphics.mbmKO TBARLINK SCRWID% SCRHGHT% z:\system\opl\Toolbar AppCont1O TBVIS% MENUPOS% HOTKMOD% '@`[U File+ Open...Oo+ New...Onh+ Exit programOe Calls+ Start timer...Os Manually log call...Ouh+ Show log...Ol+ Show summary...Oyh+ Delete group of records...Or+ Delete last record in log...Ot Rates+ Alter existing...Oah+ Add...OA+ Delete...OD Numbers+ Alter existing...Ofh+ Add...OM+ Delete...ON + Discounts+ Alter existing...Och+ Add...OQ+ Delete...OR Tools+ HelpOHh+ Preferences...Op+ VersionOv+ About...Ob Tools+ HelpOHh+ Preferences...Op+ VersionOv+ About...Obh+ RegisterOg OchD`[$ Obh@[ ERRX$: W LC10Z$ c{M}* EVENT& (Esc cancels) +*Press any key or tap screen to start timer {A\`[ +)Press any key or tap screen to stop timer Elapsed Time CALTOT SELECT% DISCNAME$ DISCPERCENT MINCALL O<|VR NoneG[W ManualC[ Od|VOd| Od|VOd| LOGO% STARTDLG GETSECS STOPDLG CALCCOST GETDATE DISPTIM LOGCALL CALTYPE$ DISCNAME$ EVENT& CURRENCY$ CALTOT SELECT% Aborted {A\`[ Summary Length of call was Cost of call was Discount was Type of call was + Log call?( CancelO THREADID& DTODTE$ DOCNAME$ FRQNAME$ FRQNUM$ CALTOT CALTYPE$ SELECT% SELECT * FROM log ORDER BY dmyK Log details +$Use number from frequent caller listO OR input details manually( ,...K Which Number? Call made to?O On which number?O CancelO Please enter aO name and numberO Call logged DOCNAME$ CURRENCY$ SELECT * FROM log ORDER BY dmyK + Log empty Specify date range Start Date End Date CancelO Building Summary... No calls logged for theO date range specifiedO Log Summary Number of calls logged: Total cost of calls logged: Average call cost : SETDISCOUNTS CALTYPE$ SELECT% DISCNAME$ +(There are no rates held in the Database.O +%You must add at least one rate (usingO +#Shift+Ctrl+A) before timing a call.O Select type of call ,...K Type? ,...K + Discount? CancelO Aborted ManualC[w Discount Enter percentage discount* CancelO RESETTYPES FINDFILE TYPE$ CALTYPE$ CALLCALCK nameO rateO +3CALLCALC SELECT name, rate FROM rates ORDER BY nameK SETTYPES FINDFILE CALTYPE$ +0There are no rates held in the Database to alterO Alter ratesO ,...K Which Rate? CancelO callcalcK +%CALLCALC SELECT name, rate FROM ratesK Alter ratesO Old name New nameO Old unit cost New unit cost*-C CancelO Please enter a Name.O Comma removed from name CALLCALCK Record amended UNAME$ CallCalc 5 V+ 1.00K M.C.Avey, 1996/7( email: mark.avey@virgin.netO CIS: 100640,2562O +2http://freespace.virgin.net/mark.avey/homepage.htm( Registered to *** Unregistered ***O FINDFILE SETTYPES CALTYPE$ callcalcK +%CALLCALC SELECT name, rate FROM ratesK Od@[W The maximum of 100 ratesO exist in the database.O Rates fileO Add new rateO NameO Unit cost (per minute)*{ CancelO Please enter a Name.O This Rate already exists.O Please re-enter.O Comma removed from name New rate added GETH$ GETM$ GETS$ YRDAY% INITTBAR2 BUILDLIST DOLOOP DOBOX FINDFILE NEXTEVLOG% INITTBAR TITLE SHOWAGAIN% BACKFROMLOG% DOCNAME$ CURSY% MINCALL SHOWSUM% GRID% CURRENCY$ SHOWCONF% CURRENTVIEW% EVTYPE& EVENT& SELECT * FROM log ORDER BY dmyK + Log empty Specify date range Start Date End Date CancelO Building list... Log view +#In the log view, use the PgUp, PgDnO +%Home & End keys to navigate up & downO +-the list. Tap a line in the list to highlightO +$it & use theToolbar, Menu or HotkeysO to action it.O Disable this message in future? prefsK tlogK+ TEMPLOG GRID% CURRENCY$ Date of call Call made to Number dialled Duration Cost ( TOTREC% LINE% +'tLOG SELECT * FROM templog ORDER BY dmyK |VWB}B[ |VWB}O |VWBO Page of K CLEARLOGVARS FINDFILE TOTREC% LINE% CTYPE$ TSTAMP& TOTLINE% tLogK +'tLOG SELECT * FROM templog ORDER BY dmyK RESETFRQ FINDFILE FRQNO$ FRQNAME$ FRQNUM$ CALLCALCK nameO numberO +8CALLCALC SELECT name, number FROM frqnames ORDER BY nameK POPFREQ FINDFILE FRQNAME$ +!There are no Frequent Use NumbersO held in the Database to alterO Alter frequent use numbers ,...K Which Number? CancelO callcalcK +*CALLCALC SELECT name, number FROM frqnamesK Alter detailsO Old name+ New nameO Old number+ Old number+ New numberO CancelO Please enter a NameO and a Number.O Record amended CLEARLOGVARS BUILDLIST DOLOOP DOCNAME$ SHOWCONF% CURRENTVIEW% LOGLINE% SELECT * FROM log ORDER BY dmyK + Log empty Delete log records Start date End date CancelO Records are about to beO permanently deleted fromO the log file( Proceed?O CancelO SELECT * FROM log ORDER BY dmyK Deleting records... record(s) deletedK ERROR The system is unable to findO + Please refer to the installationO instructions.O SETTYPES FINDFILE CALTYPE$ SHOWCONF% There are no rates to deleteO Delete Rate ,...K Which Rate? CancelO callcalcK +%CALLCALC SELECT name, rate FROM ratesK Records are about to beO permanently deleted fromO the rates file( Proceed?O CancelO Aborted Record deleted READPREF FINDFILE CURRENCY$ MINCALL SHOWSUM% GRID% SHOWCONF% SHOWAGAIN% prefsK CallCalc PreferencesO Tax Percentage* CurrencyO Minimum call cost Show summary when Log selected?+ Yes,No Grid colour?+ Grey,Black,Off Confirmation messages+ On,Off CancelO Preferences saved FINDFILE MINCALL SHOWSUM% GRID% CURRENCY$ SHOWAGAIN% SHOWCONF% prefsK CLEARLOGVARS BUILDLIST DOLOOP SHOWCONF% DOCNAME$ CURRENTVIEW% LOGLINE% Delete last log record in log Proceed?( CancelO SELECT * FROM log ORDER BY dmyK Last record deleted CALCCOST DTODTE$ FINDFILE CALTOT CURRENCY$ CALTYPE$ SELECT% DOCNAME$ FRQNAME$ Manually log call Date of callO Duration of callO CancelO Aborted O<{=[" O<{1[ O<<[ Summary Length of call was Cost of call was Discount was Type of call was + Log call?( CancelO Aborted SELECT * FROM log ORDER BY dmyK Log details +$Use number from frequent caller listO OR input details manually( ,...K Which Number? OR input details manually( Call made to?O On which number?O CancelO Aborted .@>[. Frequent Numbers fileO callcalcK +8CALLCALC SELECT name, number FROM frqnames ORDER BY nameK Call logged CallCalc 5 V+ 1.00K+ M.C.Avey, 1997K WIDMAIN% HOTKMOD% EVENT& EVTYPE& MYINIT NEXTEV% DOCNAME$ CREATE SETTITLE CREATEINI CMDE% CMDO% DATA$ DOCNAME$ CANCEL% CALLCALC.INIW CALLCALC.INIK CALLCALC.INIK Warning The previously used data fileO no longer exists or has beenO moved to a different directory.( +%Please select Create, Open or Cancel.O +'Selecting Cancel will exit the program.O + Create...Oc( Open...Oo( CancelO SELECT * FROM log ORDER BY dmyK CallCalc Press Create to create a newO CallCalc Log file, Open to openO +"an existing log, or Cancel to exit( the program.O + Create...Oc( Open...Oo( CancelO TBARSETTITLE DOCNAME$ FILENAME$ CHECKFORINI SETTITLE FROMNEW% DOCNAME$ "K+a FIELDS dmy, date(10), name(40), number(40), total(10), caltot(10), caltype(40), timestamp TO logK + timestampO dateO nameO numberO totalO caltotO caltypeO index CMDE% CURR$ DOCNAME$ CALLCALC.INIKW \documents\CallCalcK \documents\callcalc\K Create new CallCalc file File,Folder,DiskO CancelO CMDE% TBAROFFER% OFFRCMD% EVENT& DOCNAME$ WIDMAIN% HOTKMOD% {A\[ {A`[A INITTBAR WIDMAIN% HOTKMOD% TBARINIT TBARBUTT TBARSHOW START% SCRWID% SCRHGHT% graphics.mbmKO graphics.mbmKO graphics.mbmKO graphics.mbmKO CallCalcO PrefsO TimeO CallKO ExitO CMDU% CMDL% CMDY% SCRWID% TBWIDTH% Manually Log CallOu+ Show LogOl+ Show SummaryOyWX CALTYPE$ FRQNAME$ FRQNUM$ FINDFILE POPFREQ FRQNAME$ callcalcK +*CALLCALC SELECT name, number FROM frqnamesK Od@[W The maximum of 100 namesO exist in the database.O Frequent Numbers fileO Add new NameO NameO NumberO CancelO Please enter a NameO and a Number.O This Name already exists.O Please re-enter.O Comma removed from name New Name added POPFREQ FINDFILE FRQNAME$ SHOWCONF% There are no names to deleteO Delete Name ,...K Which Name? CancelO callcalcK +*CALLCALC SELECT name, number FROM frqnamesK Records are about to beO permanently deleted fromO the names file( Proceed?O CancelO Aborted Record deleted SETDISCOUNTS FINDFILE DISCNAME$ DISCPERCENT NoneC[S +4There are no discounts held in the Database to alterO Alter DiscountsO ,...K Which Discount? NoneC[ CancelO callcalcK +4CALLCALC SELECT discname, discpercent FROM discountsK Alter DiscountsO Old name New nameO Old Discount New Discount*{ CancelO Please enter a Name.O Comma removed from name Record amended FINDFILE SETDISCOUNTS DISCNAME$ callcalcK +4CALLCALC SELECT discname, discpercent FROM discountsK Od@[W The maximum of 100 namesO exist in the database.O Discounts fileO Add new DiscountO Discount NameO Discount Percentage*{ CancelO Please enter a Name.O This Discount already exists.O Please re-enter.O New Discount added POPFREQ FINDFILE SETDISCOUNTS DISCNAME$ SHOWCONF% NoneC[? + There are no Discounts to deleteO Delete Discount NoneC[ ,...K Which Discount? NoneC[ CancelO callcalcK +4CALLCALC SELECT discname, discpercent FROM discountsK Records are about to beO permanently deleted fromO the Discounts file( Proceed?O CancelO Aborted Record deleted RESETDISCOUNTS FINDFILE DISCNAME$ DISCPERCENT CALLCALCK discnameO discpercentO +FCALLCALC SELECT discname, discpercent FROM discounts ORDER BY discnameK Manual Manual DISCNAME$ DISCPERCENT THREADID& Launching Help... callcalc.hlpK DOCNAME$ c:\opl\opl16\callcalc\dump.txt c:\opl\opl16\callcalc\dump.txt Rates ----- +3CALLCALC SELECT name, rate FROM rates ORDER BY nameK frqnames -------- +8CALLCALC SELECT name, number FROM frqnames ORDER BY nameK + discounts + --------- +4CALLCALC SELECT discname, discpercent FROM discountsK SELECT * FROM log ORDER BY dmyK TBARBUTT TBARSHOW graphics.mbmKO graphics.mbmKO graphics.mbmKO graphics.mbmKO DeleteO EditO CallKO CloseO LogKO TBVIS% MENUPOS% HOTKMOD% + oeEUVTrtH File+ Open...Ooh+ Exit ProgramOe Add record...OU+ Edit record...OT+ Delete current record...OV+ Delete group of records...Or+ Delete last recordOth+ Close LogOE Tools+ HelpOH cmdsC OchD`[$ Obh@[ ERRX$: W DOLOOP TBAROFFER% OFFRCMDLOG% EVENT& CURSY% LINE% TOTREC% LOGLINE% OLDLOGLINE% BACKFROMLOG% WIDMAIN% HOTKMOD% LO TO T|WBx {U}WBx {A\[ {A`[A CURRENTVIEW% OLDLOGLINE% BACKFROMLOG% CMDU% BUILDLIST DOLOOP CURRENTVIEW% Please select a recordO SELECT CLEARLOGVARS BUILDLIST DOLOOP CURRENTVIEW% LOGLINE% OLDLOGLINE% SHOWCONF% DOCNAME$ TSTAMP& There are no records to deleteO Records are about to beO permanently deleted fromO the log file( Proceed?O CancelO "K+# SELECT * FROM log WHERE timestamp=K ORDER BY dmyK Record deleted SELECT DTODTE$ CLEARLOGVARS BUILDLIST DOLOOP CURRENTVIEW% LOGLINE% OLDLOGLINE% DOCNAME$ TSTAMP& CTYPE$ There are no records to editO Record data Date of callO Made toO NumberO CancelO "K+# SELECT * FROM log WHERE timestamp=K ORDER BY dmyK Record amended CMDR% CLEARLOGVARS BUILDLIST DOLOOP CURRENTVIEW% LOGLINE% CMDT% CLEARLOGVARS BUILDLIST DOLOOP CURRENTVIEW% LOGLINE% DOCNAME$ CURSY% LINE% SHOWSUM% CURRENCY$ SELECT * FROM log WHERE dmy>=K AND dmy<= K ORDER BY dmyK tLogK+ TEMPLOG +itLog FIELDS dmy, date(10), name(40), number(40), total(10), caltot(10), caltype(40), timestamp TO templogK + timestampO dateO nameO numberO totalO caltotO caltypeO index tLogK+ templog +'tLOG SELECT * FROM templog ORDER BY dmyK Log Summary Number of calls logged: Total cost of calls logged: Average call cost : DOCNAME$ CALLCALC.INIK CALLCALC.INIK CREATEINI SETTITLE CMDSE% CLEARLOGVARS BUILDLIST DOLOOP CURR$ DOCNAME$ CANCEL% CURRENTVIEW% LOGLINE% \documents\CallCalcK \documents\callcalc\K Open CallCalc file File,Folder,DiskO CancelO SELECT * FROM log ORDER BY dmyK + Log empty Specify date range Start Date End Date Building list... CREATE CREATEINI DOCNAME$ CURR$ FROMNEW% \documents\callcalc\K Create new CallCalc file File,Folder,DiskO CancelO CHEKNAM UNAME$ CODE& Register CallCalcO User name:O Registration code:O MAKEREG CODE& {Q}WB Registration successful CallCalc 5 V1.00 registered toO Thankyou for registeringO Registration unsuccessful Please try again using theO correct registration codeO UNAME$ CODE& INIT3 IFREG) INITIALISE> MAIN; OFFRCMD% GETSECS DTODTE$ STARTDLG STOPDLG DISPTIMW CALCCOST TITLE CMDS% CMDE% LOGCALL CMDY%' SETTYPESg CMDA%v CMDB% CMDSA% GETDATE^& GETH$ GETM$V' GETS$ CMDL% DOBOX DOLOOP*- POPFREQ CMDF%+2 CMDR%J5 FINDFILE)8 CMDSD% CMDP%.; READPREFd= CMDT%T> CMDU% CMDV% APPCONT19F SETTITLE CREATE CHECKFORINI NEXTEV% MYINITLO INITTBAR CMDZ%8Q RESETTYPES RESETFRQ2R CMDSM% CMDSN%*V CMDC% CMDSQ%8\ CMDSR%p_ SETDISCOUNTS RESETDISCOUNTS CMDSH% CMDSZ% INITTBAR2 OFFRCMDLOG%ih NEXTEVLOG% CMDSE% CMDSU%4n SELECT CMDSV% CMDST%+q CMDSF%<t CMDSG% CLEARLOGVARS$u BUILDLIST CREATEINI CMDO%Mz CMDN% CMDG% CHEKNAM)~ MAKEREG SYSTEM\ DBASE[