home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / utilsm / pay / PAY.OPL < prev    next >
Text File  |  1992-10-27  |  1KB  |  82 lines
  1. Rem (c)1992 Pelican Software Inc.
  2.  
  3.  App PayMe
  4.  icon "B:\opd\pay.pic"
  5.  Enda
  6.  
  7. PROC pay:
  8. local hours,Reg,pay,tax,wek,win%,over,mult
  9. local w%,s%,s$(1)
  10. lock on
  11. giprint"(c)1992 Pelican Software Inc."
  12. beep 5,50
  13. win%=gcreate(0,0,85,80,0)
  14. w%=82
  15. hours=40
  16. pay=10
  17. mult=1.5
  18. top::
  19. dinit"Paycheck Calculator"
  20. dfloat hours,"Hours:",1,100
  21. dposition 1,0
  22. dfloat pay,"Hourly Wage:",1,100
  23. dfloat tax,"%Tax taken out:",0,50
  24. dfloat mult,"Overtime @:",1,3
  25. dchoice s%,"Symbol:","$,†"
  26. if dialog
  27.  if s%=1
  28.   s$="$"
  29.  else
  30.   s$="†"
  31.  endif
  32.  tax=(tax*.01)
  33.  over=pay*mult
  34.  if hours>40
  35.   reg=40
  36.  else reg=hours
  37.  endif
  38. wek=(reg*pay)+((hours-reg)*over)
  39. guse win%
  40. gvisible on
  41. gborder 1
  42. gat 1,12
  43. glineby 90,1
  44. gat 1,10
  45. gfont 2
  46. gprintb"- Info -",w%,3
  47. gfont 1
  48. gat 1,25
  49. gprintb"Average Wage",w%,3
  50. gat 1,35
  51. gprintb s$+fix$(wek/hours,2,12),w%,3
  52. gat 22,41
  53. glineby 40,1
  54. gat 1,55
  55. if s$="$"
  56.  gprintb"Tax rate",w%,3
  57. else
  58.  gprintb"Vat rate",w%,3
  59. endif
  60. gat 1,65
  61. gprintb fix$(tax*100,2,6)+"%",w%,3
  62.  Dinit"Paycheck Calculated"
  63.  if hours>=40
  64.   dtext"40 Hours",s$+fix$(40*pay,2,12)
  65.  else
  66.   dtext fix$(hours,2,12)+" Hours",s$+fix$(pay*hours,2,12)
  67.  endif
  68.  dposition 1,0
  69. if hours>40
  70.  dtext fix$(hours-40,2,12)+" hrs. Ot",s$+fix$((hours-40)*over,2,12)
  71. endif
  72.  dtext"Total Pay",s$+fix$(wek,2,12)
  73.  dtext"Tax",s$+fix$(wek*tax,2,12)
  74.  dtext"After taxes",s$+fix$((wek-(wek*tax)),2,12)
  75.  if dialog=0
  76.   return
  77.  endif
  78.  tax=tax*100
  79.  goto top
  80. endif
  81. ENDP
  82.