home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 72 / 072.d81 / basics (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  39 lines
  1. 100 rem clr screen, print two downs, change to yellow, lowercase.  lock case.
  2. 110 print"[147][158]        **** [193]ctual [197]arnings ****[159]"
  3. 120 rem change border to dark grey.  lenhange background to black
  4. 130 poke53280,11:poke53281,0
  5. 140 rem use input to ask questions
  6. 150 input"[217]our average gross paycheck ";gross
  7. 160 input"[217]our average net paycheck   ";net
  8. 170 input"[200]ours worked per pay-period ";hours
  9. 180 print"[201]s this weekly or bi-weekly? (w/b)"
  10. 190 rem get loop.  press w or b to pass
  11. 200 geta$:if a$<>"w" and a$<>"b" then 200
  12. 210 rem default is biweekly unless w is pressed
  13. 220 paid = 26 : if a$="w" then paid =  52
  14. 230 rem clear screen
  15. 240 print"[147]"
  16. 250 rem the rest is just high school math
  17. 260 print"[217]ou officially earn $"gross/hours" per hour"
  18. 280 print" but after taxes and deductions
  19. 290 [153]" you earn $"net[173]hours"per hour."
  20. 300 [153]
  21. 320 [153]"atnt a difference of $" gross[173]hours[171]net[173]hours"per hour
  22. 330 print
  23. 340 print" you earn $" gross*paid "per year."
  24. 350 print
  25. 360 print"[217]ou take home $" net*paid "per year."
  26. 370 print
  27. 380 print"[217]ou are deducted $"gross*paid-net*paid"per year.
  28. 390 [153]
  29. 400 [153]" or"(gross[172]paid[171]net[172]paid)[173]((gross[172]paid)[173]100)"% of your income.
  30. 410 print:print"[193]gain? (y/n)"
  31. 420 geta$:if a$<>"y" and a$<>"n" then 420
  32. 430 ifa$="y"thenrun
  33. 440 rem reconnect to loadstar
  34. 450 a$="hello connect":open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15
  35. 460 if er<>63 then print"[147]":end
  36. 470 q$=chr$(34):poke646,peek(53281):print"[147]"
  37. 480 print"load"q$a$q$",8"
  38. 490 print"run":poke631,13:poke632,13:poke198,2:end
  39.