PDA Software Library

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

/ PDA Software Library / pdasoftwarelib.iso / PSION / 1997 / 904.ZIP / TXT2AGN.OPA / TXT2AGN.txt < prev

Wrap

Text File | 1997-01-23 | 7.5 KB | 681 lines

OPLObjectFile** LOC::M:\OPP\TXT2AGN.OPP Txt2Agn.TXT \TXT\ PROGRAM$ VERSION$ REGNAME$ REGCODE% REGIST% LASTMOD% NARROW% TNAME$ ANAME$ ENAME$ PNAME$ XNAME$ XEOF% HANDLE% AGENDA% ERRORS% PREFDB% FIRSTE% LINENUM& TITLE% CANDEL% RUNMODE% LOGGING% PARTIAL% UKDATE% CLOBBER% QUIET% FIXING% MANUAL% SLIDER% BYTES& READ& GRAD% GUESSDN& MAXDAY% REGUSER NAGUSER GETARGS GETPREFS CREATAGN RDFILE TIDYUP FATALERR Please Note Some errors were found. Refer to the logfile for details. + (unknown)O SHOWERR AGENDA% outByte%O SHOWERR AGENDA% outWord%O SHOWERR AGENDA% outCStr%O SHOWERR AGENDA% outQStr%O OUTWORD% OUTBYTE% OUTQSTR% FATALERR outUDay%O SHOWERR PREFDB% XEOF% O$h@[ rdByte%O SHOWERR PREFDB% XEOF% O$h@[ rdWord%O RDBYTE% APPDIR$ MAKEDIR DIROK$ RDPREFS DOTITLE FATALERR PROGRAM$ VERSION$ NARROW% QUIET% FIXING% MANUAL% RUNMODE% LOGGING% CLOBBER% UKDATE% CANDEL% REGIST% REGCODE% REGNAME$ PNAME$ ENAME$ XNAME$ HANDLE% AGENDA% ERRORS% PREFDB% FIRSTE% GRAD% LINENUM& MAXDAY% Initialising ... Txt2Agn + version K Unregistered LOC::M:S LOC::M:S TXT2AGN.RSCK TXT\O errors.logK LOC::M:S TXT2AGN.AGNK initO FATALERR TITLE% REGIST% REGNAME$ W.W/O Text to Agenda Converter Registered for Unregistered copy +"(c) Martin N Dunstan, January 1997 doTitleO LASTKEY% DOREGIST DOTITLE FATALERR REGIST% TITLE% Unregistered Program! Please register by sending aO cheque for 5 UK pounds to:O Martin Dunstan, 1 Cupar Mills,O Cupar, Fife, KY15 5EH, UK( RegisterOr+ ContinueOc About This Application Convert a text file of events into an Agenda file. Only one event per line with a space or tab character between the date and text. For example: 14/2/97 Valentines day. 25/12/97 Christmas day. OR@`[ regUserO MYCOPY FATALERR REGIST% W.W/O Annoying Window |RWBx nagUserO FATALERR myCopyO OPENFILE FATALERR Sorry This program cannot run without an input file. OkayO getArgsO LASTKEY% GETMORE WRPREFS FATALERR RUNMODE% QUIET% FIXING% MANUAL% LOGGING% UKDATE% ENAME$ CLOBBER% Preferences Errors:+ Ignore,Auto-fix,Ask user Dates:+ dd/mm/yy,mm/dd/yy Logfile:+ On,Off More optionsOm+ Context Sensitive Help Errors in the input file can be ignored, fixed automatically by the program or fixed by the user. + If logging is switched on errors will be logged even if they are being ignored. OM@`[ *.LOGO Logfile exists: overwrite? NoOnh+ YesOy Context Sensitive Help Press Y to delete the logfile specified in the preferences. Press N to change the logfile name or to stop error logging OYD\[ getPrefsO LASTKEY% APPDIR$ FATALERR CLOBBER% PARTIAL% More Preferences Partial dates are: Illegal,Allowed Logfile:+$Always overwrite,Ask before deleting OkayO Context Sensitive Help Partial dates have the year and even the day or month missing. +!If partial dates are illegal they will be treated as errors. Agenda preferences are in TXT2AGN.AGNKW getMoreO SHOWERR FATALERR TNAME$ HANDLE% BYTES& openFileO openFileO openFileO openFileO openFileO DIROK$ LASTKEY% APPDIR$ ABORT SHOWERR CREATESB OUTCSTR% OUTWORD% OUTBYTE% OUTQSTR% OUTAGNP OUTDEFP DELETESB FATALERR ANAME$ TNAME$ AGENDA% CANDEL% NARROW% XNAME$ AGN\O .AGNK Create Agenda file Please enter a name for the Agenda file (press TAB to find an existing file to overwrite)( Context Sensitive Help Press TAB to find a file in another directory to overwrite using the Psion file selector. Escape quits the program. Agenda preferences are in TXT2AGN.AGNKW *.AGNO File already exists: overwrite? NoOnh+ YesOy Context Sensitive Help Press Y to delete the Agenda file specified earlier. Press N to choose another name for the Agenda file. OYD\[ creatAgnO Creating Agenda file...O AgendaFileType*O To-do listO creatAgnO CREATESB TRYABORT RDLINE$ PARSED& OUTUDAY% LOGIT GUESSIT FIXIT MYERR DELETESB FATALERR RUNMODE% QUIET% LOGGING% FIXING% MANUAL% Converting text file...O I shouldn't be here!O rdFileO rdFileO SHOWERR TRIM$ MYERR FATALERR HANDLE% READ& LINENUM& GRAD% BYTES& NARROW% O+h@[ O$h@[ rdLine$O U}WBx I shouldn't be here!O rdLine$O rdLine$O PARSEX& MYERR FATALERR UKDATE% I shouldn't be here!O parseD&O parseD&O ATOI% FATALERR GUESSDN& MAXDAY% PARTIAL% Od0[% parseX&O OUTWORD% OUTBYTE% TRYABORT OUTQSTR% FATALERR NARROW% SYS$AL01O SYS$AL02O outDefPO RDCSTR$ RDWORD% RDBYTE% TRYABORT OUTWORD% OUTBYTE% OUTDEFP FATALERR XEOF% PREFDB% XNAME$ GRAD% NARROW% VERSION$ AgendaFileType*G[ Wrong file type Truncated file U}WBx Truncated file U}WBx U}WBx Hiccup in outAgnP Problem while reading the Agenda file for preferences. ContinueO outAgnPO ISSPACE% FATALERR trim$O FATALERR LASTMOD% lastKey%O FATALERR appFS$O FATALERR appDir$O FATALERR O%h@`W O&h@`W O'h@`[ O(h@W O)h@`W O*h@`W O/h@`[ O>h@W O?h@`W OBh@`[ dirOk%O DIROK% FATALERR LOC::M:\ LOC::A:\ LOC::B:\ LOC::C:\ dirOk$O FATALERR O*h@[ makeDirO FATALERR NARROW% GRAD% SLIDER% READ& OdOdO T|WBx T|WBx T|WBx T|WBx createSBO FATALERR SLIDER% deleteSBO SHOWERR FATALERR ERRORS% creatLogO creatLogO OUTUDAY% LOGGUESS FATALERR GUESSDN& LOGGING% GuessedO guessitO LASTKEY% LOGGUESS OUTUDAY% FATALERR NARROW% GUESSDN& LOGGING% Fix Faulty Entry Line: Date: Text:O Text:O OkayO SkipO Context Sensitive Help An invalid date has been found and you are being asked to fix it. Correct the date and press Enter when you have finished. Escape skips this date entry. Psion-Escape quits program. SkippedO FixedO fixitO CREATLOG SHOWERR FATALERR FIRSTE% ENAME$ LINENUM& ERRORS% Line 7 partial date.K h{A[. illegal symbols in day number.K h{A[0 + illegal symbols in month number.K h{A[/ illegal symbols in year number.K h{A[( day number out of range.K h{A[* month number out of range.K h{A[) year number out of range.K +)unknown error - please notify the author.K logitO logitO logitO LOGIT UADD& SHOWERR FATALERR UKDATE% ERRORS% SkippedG[ O<{QO<{QO date: K logguessO logguessO FATALERR uadd&O FATALERR VERSION$ PNAME$ PROGRAM$ REGNAME$ REGCODE% REGIST% ENAME$ RUNMODE% QUIET% FIXING% MANUAL% LOGGING% CLOBBER% UKDATE% TYPE$ STRING$ WORD% MagicO Can't find magic record STRING$# Unrecognised creator WORD% Younger creator RegistO STRING$# WORD% Unregistered PrefsO STRING$# WORD% WORD% WORD% WORD% Hiccup in rdPrefs [20]K Problem while reading the Txt2Agn preferences file. ContinueO rdPrefsO FATALERR PNAME$ VERSION$ PROGRAM$ REGNAME$ REGCODE% RUNMODE% QUIET% FIXING% LOGGING% CLOBBER% UKDATE% ENAME$ TYPE$ STRING$ WORD% TYPE$' Magic STRING$' WORD%$ TYPE$' Regist STRING$' WORD%$ TYPE$' Prefs STRING$' WORD%$ wrPrefsO LASTKEY% WRPREFS FATALERR REGIST% REGCODE% REGNAME$ Register Please enter your name and registration code below. Press HELP to find out how to get your code. Name:O Code:O How To Register Send your name and a sterling cheque for 5 UK pounds to: Martin Dunstan, 1 Cupar Mills, Cupar, Fife KY15 5EH, UK Include your email address for a faster response. Registration failed Please check your name and + registration code and try again. ContinueO Unregistered Registration Successful Thank you for registeringO this application.O ContinueO doRegistO ABORT FATALERR Paused Do you really want to quit?( YesOy+ OY@`[ tryAbortO SHUTFILE AGENDA% HANDLE% ERRORS% Agenda fileO input fileO log fileO Closing ...K + Deleting ...K ABORT VERSION$ + Fatal in Error: Report this to the author.( MYERR ABORT VERSION$ + Error in Error: Report this to the author.( TIDYUP REMFILE CANDEL% AGENDA% ANAME$ Agenda fileO OUTBYTE%x OUTWORD% OUTCSTR%. OUTQSTR% OUTUDAY% RDBYTE% RDWORD%J RDCSTR$ INITJ DOTITLEX REGUSER} NAGUSER MYCOPY GETARGS GETPREFS GETMORE; OPENFILE CREATAGN RDFILE RDLINE$=$ PARSED& PARSEX&;( OUTDEFP OUTAGNP TRIM$X6 ISSPACE%87 ATOI% LASTKEY% APPFS$ APPDIR$~8 DIROK% DIROK$ MAKEDIRc: CREATESB DELETESB CREATLOG&= GUESSIT FIXIT@> LOGIT?A LOGGUESS UADD& RDPREFS{F WRPREFS DOREGIST TRYABORT TIDYUP SHUTFILE REMFILEcR FATALERR SHOWERRJS MYERRvS ABORT