home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 3
/
PDCD_3.iso
/
pocketbk
/
utilsu
/
worktime20
/
v2.06
/
workhelp.opl
< prev
next >
Wrap
Text File
|
1995-01-04
|
6KB
|
183 lines
REM This is the help structure for
REM the Worktime program.
PROC WorkHelp:
local s%
while 1
dinit "Help"
dtext "","How to...",$400
dtext "","Files",$400
dtext "","Structure",$400
dtext "","Function keys",$400
lock on :s%=dialog :lock off
if s%=0 :return :endif
:@("Help"+num$(s%-1,1)):
endwh
return
ENDP
PROC Help1:
local s%
while 1
dinit "How to"
dtext "","Mark time of arrival and leave",$400
dtext "","Setting slack of arrival and leave",$400
dtext "","Setting normal workday length for each day of the week",$400
lock on :s%=dialog :lock off
if s%=0 :return :endif
:@("Help1"+num$(s%-1,1)):
endwh
ENDP
PROC Help11:
dinit "Marking time of arrival and leave"
dtext "","Press spacebar to open a new time slot (meeting time)"
dtext "","the next time you press the space bar that time slot"
dtext "","is closed (setting the leaving time) and the totals"
dtext "","are recalculated."
dtext ""," "
dtext "","Time slots started with the spacebar have"
dtext "","the slack times added or subtracted"
lock on :dialog :lock off
ENDP
PROC Help12:
dinit "Setting slack"
dtext "","The slack is the time it takes you to"
dtext "","get in and out of work. The morning slack"
dtext "","is subtracted and the evening slack is added"
dtext "","to the current time."
dtext ""," "
dtext "","This can be found in the settings menu"
lock on :dialog :lock off
ENDP
PROC Help13:
dinit "Setting normal workday length for each day of the week"
dtext "","This can be found in the settings menu"
dtext "","The values are saved in the data file."
lock on :dialog :lock off
ENDP
PROC Help2:
local s%
dinit "Files (1/2)"
dtext "","On startup a file is automatically created. All the standard"
dtext "","file operations are available from the system screen."
dtext ""," "
dtext "","Data files now have the '.WTM' extension (used to be '.ODB')"
dtext "","so old datafiles needs renaming to be used with this version."
dtext "","[Copy to new name and then remove old file when you are"
dtext "","satisfied with the operation of the new version]"
dtext "(more)", " "
lock on :s%=dialog :lock off
if s%=0 :return :endif
dinit "Files (2/2)"
dtext "","The format used for saving setup values has been changed to"
dtext "","support storing the project names. The old format is still"
dtext "","understood, but saving always stores data in the new format."
dtext ""," "
dtext "","Due to the above conversion a project named '11' (or similar)"
dtext "","might be found first time an old file is read in."
dtext "","This project should just be removed."
lock on :dialog :lock off
ENDP
PROC Help3:
dinit "Structures"
dtext "","For each entry the following info is shown:"
dtext ""," þ Time of Arrival and Leave"
dtext ""," þ The expected work time (not projects)"
dtext ""," þ Time used for this entry (calculated)"
dtext ""," þ Normal work time for this day (not projects)"
dtext ""," þ Difference between the above two (calculated)"
dtext ""," þ Total accumulated difference"
dtext ""," þ A comment (default blank)"
lock on :dialog :lock off
ENDP
PROC Help4:
local s%
while 1
dinit "Function keys"
dtext "","Typing keys",$400
dtext "","Psion combination keys",$400
lock on :s%=dialog :lock off
if s%=0 :return :endif
:@("Help4"+num$(s%-1,1)):
endwh
ENDP
PROC Help41:
local s%
dinit "Typing keys (1/3)"
dtext "Space","Starts and stops timing slot (+/-slack time)"
dtext "delete","Delete current entry (with confirm)"
dtext "shift-delete","Delete range of entries"
dtext "Enter","Edit the current entry"
dtext "Esc","Jump to system screen"
dtext "Tab","Jump to date"
dtext chr$(4),"Show version number"
dtext "(more)", " "
lock on :s%=dialog :lock off
if s%=0 :return :endif
dinit "Typing keys (2/3)"
dtext "'m'","Starts 'Meeting' project û)"
dtext "'l'","Starts 'Lunch' project û)"
dtext "'t'","Starts 'Transport' project û)"
dtext ""," "
dtext "","If an open project is found earlier, same day"
dtext "","that project is closed first."
dtext "(more)", " "
lock on :s%=dialog :lock off
if s%=0 :return :endif
dinit "Typing keys (3/3)"
dtext "Up","Move one line/entry up"
dtext "Down","Move one line/entry down"
dtext "Shift-Up","Move 3 lines/entries up"
dtext "Shift-Down","Move 3 lines/entries down"
dtext chr$(3)+"Up","Move 10 lines/entries up"
dtext chr$(3)+"Down","Move 10 lines/entries down"
dtext "Control-Up","Move 30 days backward (up)"
dtext "Control-Down","Move 30 days forward (down)"
lock on :dialog :lock off
ENDP
PROC Help42:
local s%
dinit "Psion combination keys (1/3)"
dtext chr$(2)+"B","Begin new or existing project"
dtext chr$(2)+"C","Copy entry"
dtext chr$(2)+"D","Delete project"
dtext "shift"+chr$(2)+"D","Delete entry (same as pressing delete)"
dtext chr$(2)+"E","Edit entry"
dtext chr$(2)+"F","Change font type"
dtext chr$(2)+"I","Insert contents of paste buffer"
dtext "(more)", " "
lock on :s%=dialog :lock off
if s%=0 :return :endif
dinit "Psion combination keys (2/3)"
dtext chr$(2)+"J","Jump to date"
dtext chr$(2)+"L","Set slack times"
dtext chr$(2)+"M","Make/Create new file"
dtext chr$(2)+"N","Set normal worktime for each weekday"
dtext chr$(2)+"O","Open (existing) file"
dtext chr$(2)+"P","Print (to file)"
dtext "(more)", " "
lock on :s%=dialog :lock off
if s%=0 :return :endif
dinit "Psion combination keys (3/3)"
dtext chr$(2)+"R","Repaint screen"
dtext "Shift"+chr$(2)+"R","Delete range of entries"
dtext chr$(2)+"S","Sort and recalculate entire database"
dtext chr$(2)+"U","Usage/Project totals"
dtext chr$(2)+"W","Who did this ?"
dtext chr$(2)+"X","Exit Worktime"
dtext chr$(2)+"Z","Zoom in"
dtext "Shift"+chr$(2)+"Z","Zoom out"
lock on :s%=dialog :lock off
if s%=0 :return :endif
ENDP