home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / checks.bas < prev    next >
BASIC Source File  |  1988-05-22  |  3KB  |  88 lines

  1. 100   screen 1,1:dim ck(120)
  2. 1000  i=1: y=3: print inverse(1) at (6,1);" MENU:  <c>=Correction  <r>=Repeat Ck's  <q>=Quit Ck's  <p>=Printer "
  3. 1010  box (40,8;583,142)
  4. 1012  box (41,10;582,142)
  5. 1015  print at (40,19)"                  "
  6. 1020  box (200,142;378,152)
  7. 1030  box (415,142;449,152)
  8. 1050  print at (6,21)"# checks      check total"
  9. 1060  print at (37,21)"currency      coin      total deposit"
  10. 1080  print at (27,19) "Enter Check ";
  11. 1090  input ck$
  12. 1092  c$=left$(ck$,1): ck=val(ck$)
  13. 1093  if (ck> 999.00) or (ck$="") or (c$="0") then goto 1010
  14. 1096  if val(ck$)<>0 then gosub 3000:goto 1010
  15. 2010  if c$="c" then gosub 4000
  16. 2020  if c$="r" then gosub 5000
  17. 2030  if c$="p" then gosub 6000:goto 10000
  18. 2040  if c$="q" then gosub 7000
  19. 2050  goto 1010
  20. 3000  ' *   print screen  add totals *
  21. 3020  count=count+1: i=i+1: x=x+8: if x>69 then x=8: y=y+1
  22. 3030  ck(i)=ck: total=total+ck(i)
  23. 3050  print at (x,y);: print using"###.##";ck(i)
  24. 3060  print at (10,22);count
  25. 3070  print at (20,22);:print using"####.##";total
  26. 3090  return
  27. 4000  '  *  correcter sub routine *
  28. 4020  goto 4030
  29. 4021  t=0: a$= translate$ ("point mouse at amount to correct. push left button")
  30. 4025  t%= narrate(a$)
  31. 4030  ask mouse x%, y%, b%
  32. 4035  tt=tt+1: if tt=1000 then tt=0: goto 4021
  33. 4038  if b%<>4 goto 4030
  34. 4040  h%=((x%-24)/64):vert%=(y%+2)/8: horz%=h%*8
  35. 4055  print at (horz%,vert%);:print using "###.##"; inverse(1);o
  36. 4060  xx=x: yy=y: ii=i: x= horz%: y=vert%
  37. 4062  i=int((vert%-3)*8)+horz%/8: total=total-ck(i)
  38. 4065  print at (20,22);:print using "####.##";total
  39. 4067  print at (10,22);count-1
  40. 4070  print at (27,19);"correct amt. ";: input ck 
  41. 4075  gosub 3030
  42. 4080  x=xx: y=yy: i=ii
  43. 4090  goto 1010
  44. 5000  '
  45. 5020  print at (37,19)"          "
  46. 5030  print at (27,19)"how many cks ";:input r$
  47. 5031  repeat=val(r$):if val(r$)=0 then 5030
  48. 5032  if repeat <0 or repeat >99 then 5030
  49. 5038  print at (37,19)"          "
  50. 5040  print at (50,19)"X";:print at (53,19) repeat
  51. 5045  print at (27,19)"enter check ";:input ck
  52. 5070  for re=1 to repeat: gosub 3000
  53. 5080  next: goto 1010
  54. 6000  ' *   to printer  *
  55. 6020  open "o", #2, "prt:":cmd #2
  56. 6025  print string$(78,42)
  57. 6035  for j=1 to i
  58. 6040  print using "####.##";ck(j);
  59. 6050  print chr$(9);:next j
  60. 6060  print tab(3)"# Checks       Check Total";
  61. 6065  print tab(36)"Currency        Coin        Total Deposit"
  62. 6070  print tab(5);i;
  63. 6072  print tab(20);:print using "####.##";total;
  64. 6075  print tab(36);:print using "####.##";currency;
  65. 6080  print tab(49);:print using "####.##";coin;
  66. 6090  print tab(67);:print using "####.##";deposit
  67. 6094  print string$(78,42):close #2: return
  68. 7000  ' * routine for inputing currency & coin  *
  69. 7005  print at (37,19);"          "
  70. 7010  print at (27,19);"Currency = ";
  71. 7020  input currency
  72. 7030  print at (37,22);;:print using "####.##";currency
  73. 7035  print at (37,19);"           "
  74. 7040  print at (27,19);"total coin = ";
  75. 7050  input coin
  76. 7060  print at (48,22);:print using "####.##";coin
  77. 7080  deposit= total+currency+coin
  78. 7085  print at (65,22);:print using "####.##";deposit
  79. 7090  return
  80. 8000  '
  81. 9999  ' * routine for printing second copy  *
  82. 10000 print at (27,19);"2 nd Copy <y/n> ";:input sc$
  83. 10010 if sc$= "y" then gosub 6000: goto 1000
  84. 10020 if sc$= "n" then goto 1000 else goto 10000
  85. 20000 d%= 34.33
  86. 20001 dd%=d%/10:horz%=dd%
  87. 20002 print horz%
  88.