HPAD0| J+.7fnhandler openpad; begin global expenses; put "Lodging,Breakfast,Lunch,Dinner,Tips&Taxi,Travel,Auto Exp,Gas-Oil-Lube,Entertainment,Misc." into expenses; pass; end; handler closepad; begin global expenses; put empty into expenses; end; handler cancel; begin go to pad "pad"; end; handler help; begin go to page id 9 of pad "expenses.hlp"; end;7Lodging,Breakfast,Lunch,Dinner,Tips&Taxi,Travel,Auto Exp,Gas-Oil-Lube,Entertainment,Misc.expensesXXX/*7expensesXXX*7pad *7expenses.hlp9*JMZJ )!#'*>PXjUWVF~tFFVF^&_&&WFVF^&_&&WFVvFVFV~&=,tG&=u~F&* t&'vvvvF t^&,~uv tFFFv RP^_]ːː/!‹UV!]UN1V!r3]O!r3 t o:Tغ8 !L!VWؾZZ#_^VWؾZZ _^;s Et2..Uv ^ t-&'C:t,A<ɀ A,A<ɀ A:t]whichitemFFFFFFFFThis program requires HyperPAD. $WITEM0k6=MEhandler keypress(k); begin if not fkeys(k) then pass; end;M87X  fkeys;:y/*P  Mondayp4pk6=MEhandler keypress(k); begin if not fkeys(k) then pass; end;M87X  fkeys;:y/*P  Tuesdayp<pk6=MEhandler keypress(k); begin if not fkeys(k) then pass; end;M87X  fkeys;:y/*P & Wednesdayp@pk6=MEhandler keypress(k); begin if not fkeys(k) then pass; end;M87X  fkeys;:y/*P( .PThursdaypDpk6=MEhandler keypress(k); begin if not fkeys(k) then pass; end;M87X  fkeys;:y/*P0 6FridaypHpk6=MEhandler keypress(k); begin if not fkeys(k) then pass; end;M87X  fkeys;:y/*P8 >SaturdaypLpk6=MEhandler keypress(k); begin if not fkeys(k) then pass; end;M87X  fkeys;:y/*P@ F0SundaypPp06+#handler select; begin end;+7*P@H OLTotalsppP 'Week ending4pX06+#Handler Select; Begin End;+7*P @HO"Grand Total p pP Loc1 Totaldp pPloc2 Totaldp pP &loc3 Totaldp pP(.loc4 Totaldp  pP06loc5 TotaldppP8>loc6 TotaldppP@Floc7 Totaldpp06+#Handler Select; Begin End;+7*P@Total1 pp0o+#Handler Select; Begin End;+7*P@`hTotal2 pp0o+#Handler Select; Begin End;+7*P@ &Total3 pp0o+#Handler Select; Begin End;+7*P@(.hpTotal4 pp0o+#Handler Select; Begin End;+7*P@06Total5 pp0o+#Handler Select; Begin End;+7*P@8>\xTotal6 pp0o+#Handler Select; Begin End;+7*P@@FTotal7 ppHandler Select; Begin get the date; convert it to dateitems; add 6 - item 7 of it to item 3 of it; convert it to long date; put it into field "Week Ending"; End; 7X  :XXXXXXXXX76 XX3 XVXXXXXWeek Ending&X X*HDNThis Weekk Ending: 100p|Handler Select; Begin answer "Ok to print this expense report?"; if it is not "ok" then exit; print this page; End; 7Ok to print this expense report?XXUokX.*`|*H1-Printkk Ending: 1p1x*:2Handler Select; Begin get field "Week Ending"; if it is empty then begin send "select" to button "This Week"; exit; end; domenu "new page"; newpage; convert it to dateitems; add 7 to item 3 of it; convert it to long date; put it into field "Week Ending"; End; :7XWeek Ending&##XXXXX+selectXThis WeekM *new page   :X  :XXX7XX3 XVXXXXXWeek Ending&X X*H <2-New Sheetk Ending: 1p2yK4D<Handler Select; Begin go to previous page; End; D7=*H!#eutton1GGpG0@8Handler Select; Begin go to next page; End; @7<*H')eutton1GGpD'7/Handler Select; Begin cancel; End; 77X  :*H CFHeutton1GGpB%5-Handler Select; Begin help; End; 57X  :*H"FNtF1=Helpon1GGp>(80Handler Select; Begin go home; End; 87*H#IN,fHomeutton1GGp3a;handler newpage; begin get repchar(9,return); for i = 1 to 8 do put it into field id i; end; handler mark; begin end; function fkeys(k); begin get key(k); if it is "period" then get "."; if it is in "0123456789." then begin record it; playback; select; return true; end else return false; end; handler select; begin global expenses; put the currentline of the target into cline; put line cline of the value of the target into oldvalue; ask "Expenses for" && item cline of expenses && "on" && the name of the target with oldvalue; if it is empty and it & "A" = "A" then exit; if it is oldvalue then exit; set the numberformat to "0.00"; put it + 0 into line cline of the target; put the id of the target into fid; subtract oldvalue from field ("Total" & fid); subtract oldvalue from line cline of field "Totals"; subtract oldvalue from field "Grand Total"; add it to field ("Total" & fid); add it to line cline of field "Totals"; add it to field "Grand Total"; end; handler openfield; begin global curline; get the id of the target; if it >= 1 and it <= 7 then hilite line curline of the target; end; handler closefield; begin global curline; set the lockscreen to true; put the currentline of the target into curline; exit; end;aB79   Z:XXXX1 XXX8 6%XX (X X1  XXX$*7*$fkeys87X   W: XXXperiod + . XXX0123456789. w%    :X  :X  :9$9*7de c XXXde cX  XXX de XconexpensesX Expenses for--- XTAAX,+X+1* X+*X #0.00 P0XdX  Xde ,c XXX X Total,&X  V XTotals&X   V XGrand Total&X  VXX Total,&X XVXXTotals&X  XVXXGrand Total&X XV*7de ,cXXXX7X61X41dXcurline \*7X " Pde ccurlineXXX**( HyperPAD 2.2 Brightbil-Roberts & Co. Expenses ı͇‡‡‡‡‡‡ˆItem  Mon Tue Wed Thu Fri Sat SunTotalÍŇŇŇŇŇŇŇň Locationƍ؇؇؇؇؇؇؇؈ Lodging BreakfastLunchDiner Tips&TaxiTravelAuto ExpGas-Oil-LubeEntertainmentMisc.ÍŇŇŇŇŇŇŇňTotal:ԍχχχχχχχψ Use TAB,  to move betwen fields, ENTER to edit.p0ćЇ0@( % ? |;~TJ@&.kHS8  H   H2$ H   H2 H  H2@  H  H2 H HH0H0HHHH0H0HHHHHHq h,,,,,-(-H-h-~------....D.Z.p....