home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / UTILS / WORKTIME / WORKHELP.OPL < prev    next >
Encoding:
Text File  |  1995-01-04  |  5.8 KB  |  183 lines
  1. REM This is the help structure for
  2. REM the Worktime program.
  3.  
  4. PROC WorkHelp:
  5.     local s%
  6.     while 1
  7.         dinit "Help"
  8.         dtext "","How to...",$400
  9.         dtext "","Files",$400
  10.         dtext "","Structure",$400
  11.         dtext "","Function keys",$400
  12.         lock on :s%=dialog :lock off
  13.         if s%=0 :return :endif
  14.         :@("Help"+num$(s%-1,1)):
  15.     endwh
  16.     return
  17. ENDP
  18.  
  19. PROC Help1:
  20.     local s%
  21.     while 1
  22.         dinit "How to"
  23.         dtext "","Mark time of arrival and leave",$400
  24.         dtext "","Setting slack of arrival and leave",$400
  25.         dtext "","Setting normal workday length for each day of the week",$400
  26.         lock on :s%=dialog :lock off
  27.         if s%=0 :return :endif
  28.         :@("Help1"+num$(s%-1,1)):
  29.     endwh
  30. ENDP
  31.  
  32. PROC Help11:
  33.     dinit "Marking time of arrival and leave"
  34.     dtext "","Press spacebar to open a new time slot (meeting time)"
  35.     dtext "","the next time you press the space bar that time slot"
  36.     dtext "","is closed (setting the leaving time) and the totals"
  37.     dtext "","are recalculated."
  38.     dtext ""," "
  39.     dtext "","Time slots started with the spacebar have"
  40.     dtext "","the slack times added or subtracted"
  41.     lock on :dialog :lock off
  42. ENDP
  43.  
  44. PROC Help12:
  45.     dinit "Setting slack"
  46.     dtext "","The slack is the time it takes you to"
  47.     dtext "","get in and out of work. The morning slack"
  48.     dtext "","is subtracted and the evening slack is added"
  49.     dtext "","to the current time."
  50.     dtext ""," "
  51.     dtext "","This can be found in the settings menu"
  52.     lock on :dialog :lock off
  53. ENDP
  54.  
  55. PROC Help13:
  56.     dinit "Setting normal workday length for each day of the week"
  57.     dtext "","This can be found in the settings menu"
  58.     dtext "","The values are saved in the data file."
  59.     lock on :dialog :lock off
  60. ENDP
  61.  
  62. PROC Help2:
  63.     local s%
  64.     dinit "Files (1/2)"
  65.     dtext "","On startup a file is automatically created. All the standard"
  66.     dtext "","file operations are available from the system screen."
  67.     dtext ""," "
  68.     dtext "","Data files now have the '.WTM' extension (used to be '.ODB')"
  69.     dtext "","so old datafiles needs renaming to be used with this version."
  70.     dtext "","[Copy to new name and then remove old file when you are"
  71.     dtext "","satisfied with the operation of the new version]"
  72.     dtext "(more)", " "
  73.     lock on :s%=dialog :lock off
  74.     if s%=0 :return :endif
  75.     dinit "Files (2/2)"
  76.     dtext "","The format used for saving setup values has been changed to"
  77.     dtext "","support storing the project names. The old format is still"
  78.     dtext "","understood, but saving always stores data in the new format."
  79.     dtext ""," "
  80.     dtext "","Due to the above conversion a project named '11' (or similar)"
  81.     dtext "","might be found first time an old file is read in."
  82.     dtext "","This project should just be removed."
  83.     lock on :dialog :lock off
  84. ENDP
  85.  
  86. PROC Help3:
  87.     dinit "Structures"
  88.     dtext "","For each entry the following info is shown:"
  89.     dtext ""," ■ Time of Arrival and Leave"
  90.     dtext ""," ■ The expected work time (not projects)"
  91.     dtext ""," ■ Time used for this entry (calculated)"
  92.     dtext ""," ■ Normal work time for this day (not projects)"
  93.     dtext ""," ■ Difference between the above two (calculated)"
  94.     dtext ""," ■ Total accumulated difference"
  95.     dtext ""," ■ A comment (default blank)"
  96.     lock on :dialog :lock off
  97. ENDP
  98.  
  99. PROC Help4:
  100.     local s%
  101.     while 1
  102.         dinit "Function keys"
  103.         dtext "","Typing keys",$400
  104.         dtext "","Psion combination keys",$400
  105.         lock on :s%=dialog :lock off
  106.         if s%=0 :return :endif
  107.         :@("Help4"+num$(s%-1,1)):
  108.     endwh
  109. ENDP
  110.  
  111. PROC Help41:
  112.     local s%
  113.     dinit "Typing keys (1/3)"
  114.     dtext "Space","Starts and stops timing slot (+/-slack time)"
  115.     dtext "delete","Delete current entry (with confirm)"
  116.     dtext "shift-delete","Delete range of entries"
  117.     dtext "Enter","Edit the current entry"
  118.     dtext "Esc","Jump to system screen"
  119.     dtext "Tab","Jump to date"
  120.     dtext chr$(4),"Show version number"
  121.     dtext "(more)", " "
  122.     lock on :s%=dialog :lock off
  123.     if s%=0 :return :endif
  124.     dinit "Typing keys (2/3)"
  125.     dtext "'m'","Starts 'Meeting' project √)"
  126.     dtext "'l'","Starts 'Lunch' project √)"
  127.     dtext "'t'","Starts 'Transport' project √)"
  128.     dtext ""," "
  129.     dtext "","If an open project is found earlier, same day"
  130.     dtext "","that project is closed first."
  131.     dtext "(more)", " "
  132.     lock on :s%=dialog :lock off
  133.     if s%=0 :return :endif
  134.     dinit "Typing keys (3/3)"
  135.     dtext "Up","Move one line/entry up"
  136.     dtext "Down","Move one line/entry down"
  137.     dtext "Shift-Up","Move 3 lines/entries up"
  138.     dtext "Shift-Down","Move 3 lines/entries down"
  139.     dtext chr$(3)+"Up","Move 10 lines/entries up"
  140.     dtext chr$(3)+"Down","Move 10 lines/entries down"
  141.     dtext "Control-Up","Move 30 days backward (up)"
  142.     dtext "Control-Down","Move 30 days forward (down)"
  143.     lock on :dialog :lock off
  144. ENDP
  145.  
  146. PROC Help42:
  147.     local s%
  148.     dinit "Psion combination keys (1/3)"
  149.     dtext chr$(2)+"B","Begin new or existing project"
  150.     dtext chr$(2)+"C","Copy entry"
  151.     dtext chr$(2)+"D","Delete project"
  152.     dtext "shift"+chr$(2)+"D","Delete entry (same as pressing delete)"
  153.     dtext chr$(2)+"E","Edit entry"
  154.     dtext chr$(2)+"F","Change font type"
  155.     dtext chr$(2)+"I","Insert contents of paste buffer"
  156.     dtext "(more)", " "
  157.     lock on :s%=dialog :lock off
  158.     if s%=0 :return :endif
  159.     dinit "Psion combination keys (2/3)"
  160.     dtext chr$(2)+"J","Jump to date"
  161.     dtext chr$(2)+"L","Set slack times"
  162.     dtext chr$(2)+"M","Make/Create new file"
  163.     dtext chr$(2)+"N","Set normal worktime for each weekday"
  164.     dtext chr$(2)+"O","Open (existing) file"
  165.     dtext chr$(2)+"P","Print (to file)"
  166.     dtext "(more)", " "
  167.     lock on :s%=dialog :lock off
  168.     if s%=0 :return :endif
  169.     dinit "Psion combination keys (3/3)"
  170.     dtext chr$(2)+"R","Repaint screen"
  171.     dtext "Shift"+chr$(2)+"R","Delete range of entries"
  172.     dtext chr$(2)+"S","Sort and recalculate entire database"
  173.     dtext chr$(2)+"U","Usage/Project totals"
  174.     dtext chr$(2)+"W","Who did this ?"
  175.     dtext chr$(2)+"X","Exit Worktime"
  176.     dtext chr$(2)+"Z","Zoom in"
  177.     dtext "Shift"+chr$(2)+"Z","Zoom out"
  178.     lock on :s%=dialog :lock off
  179.     if s%=0 :return :endif
  180. ENDP
  181.  
  182.  
  183.