home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 24 / 024.d81 / paycheck (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  95 lines
  1. 1 print"[147][158][146]":poke53280,3:poke53281,11:print""spc(11)"paycheck printer[146]"
  2. 2 printchr$(142)".press a key when your printer is ready."
  3. 3 print"[145]   (press 'q' to exit to loadstar.)"
  4. 4 poke198,0:wait198,1:getk$:ifk$="q"then60000
  5. 5 :
  6. 6 :
  7. 7 print"[147]"
  8. 8 open4,4,0
  9. 9 print#4,chr$(147)
  10. 10 print#4,chr$(13)
  11. 11 print#4,spc(35)"pay check"
  12. 20 print"pay check[146]"
  13. 30 print"period beginning:[146]":inputpe$
  14. 31 print#4,spc(3)"period beginning:"pe$
  15. 32 print#4,
  16. 40 print"period ending:":inputen$
  17. 41 print#4,spc(3)"period ending:"en$
  18. 50 print#4
  19. 51 fort=1to1500:next
  20. 52 print"[147]":goto1001
  21. 60 print"what is your hourly rate:[146]":inputh:ze$="h"
  22. 61 print#4,spc(3)"reg.pay rate per hour:$"h
  23. 62 print#4,
  24. 70 print"how many hours have you worked this     pay period:[146]":inputm
  25. 71 print#4,spc(3)"reg.hours worked:"m
  26. 80 rp=m*h
  27. 90 print"reg.pay earned:[146]$"rp
  28. 91 print#4,
  29. 100 print#4,spc(3)"wages earned reg.pay:$"rp
  30. 110 print"how many hours overtime for this pay    period:[146]":inputo
  31. 120 print#4,spc(3)"overtime hrs.:"o
  32. 122 ifo=0then170
  33. 130 print"at what rate:[146]":inputz
  34. 140 ov=o*z
  35. 150 print#4,spc(3)"overtime earnings:$"ov
  36. 160 print#4,
  37. 170 print"enter bonuses if any (if not enter 0):[146]":inputb
  38. 180 print#4,spc(3)"bonus:$"b
  39. 190 gw=rp+ov+b
  40. 200 print"your gross wages earned are: $"gw
  41. 210 print#4,spc(3)"gross wages:$"gw
  42. 220 print#4,
  43. 230 printspc(10)"press a key to continue":poke198,0:wait198,1:poke198,0
  44. 240 print"[147]gross wages:[146]$"gw
  45. 241 goto260
  46. 260 print"please enter your deductions:[146]"
  47. 261 print#4,
  48. 262 print#4,spc(3)"deductions:"
  49. 263 print#4,
  50. 270 print"1.federal w/h:[146]":inputf
  51. 280 print#4,spc(3)"1.federal w/h:$"f
  52. 290 print"2.fica[146]":inputi
  53. 300 print#4,spc(3)"2.fica:$"i
  54. 310 print"3.state w/h:[146]":inputs
  55. 320 print#4,spc(3)"3.state w/h:$"s
  56. 330 print"4.health ins.:[146]":inputl
  57. 340 print#4,spc(3)"4.health ins.:$"l
  58. 350 print"5.credit union:[146]":inputu
  59. 360 print#4,spc(3)"5.credit union:$"u
  60. 370 print"6.contributions:[146]":inputc
  61. 380 print#4,spc(3)"6.contributions:$"c
  62. 390 print"7.other:[146]":inputv
  63. 400 print#4,spc(3)"7.other:$"v
  64. 410 print#4,
  65. 411 print"[147]"
  66. 412 su=f+i+c+l+u+s+v
  67. 413 ifze$="c"thenjc=fa-su
  68. 414 ifze$="h"thenjc=gw-su
  69. 430 print"your net wages are:[146]$"jc
  70. 440 print#4,spc(3)"your net wages are:$"jc :goto450
  71. 450 close4
  72. 455 print"   press any key"
  73. 457 gett$:ift$="" then 457
  74. 460 run
  75. 1001 print"do you work on commission:[146]yes or no":inputco$
  76. 1020 ifleft$(co$,1)<>"y"goto60
  77. 1030 ifleft$(co$,1)="y"goto1050
  78. 1050 print#4,spc(34)"my commissions"
  79. 2000 print"what was your gross sale total:[146]$":inputd:ze$="c"
  80. 2005 print#4,spc(3)"gross sales:$"d
  81. 2010 print"what is your commission rate:[146]%":inputp%
  82. 2020 print#4,spc(3)"commission rate:%"p%
  83. 2030 ce=p%*d/100
  84. 2040 print"you earned:[146]$"ce
  85. 2050 print#4,spc(3)"commissions earned:$"ce
  86. 2052 print"bonus earned:(if not enter 0)[146]$":inputns
  87. 2060 print#4,spc(3)"bonus:"ns
  88. 2061 fa=ce+ns
  89. 2080 print"your gross earnings are:[146]$"fa
  90. 2090 print#4,spc(3)"gross earnings:$"fa
  91. 3000 fort=1to5000:next
  92. 3010 print"[147]":goto241
  93. 60000 rem   connect to loadstar
  94. 60010 load"hello connect",8
  95.