home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / basic / billing.lbr / COLLECT.BZS / COLLECT.BAS
Encoding:
BASIC Source File  |  1987-03-16  |  2.0 KB  |  50 lines
  1. 10 '************************************************************
  2. 20 '*                  COLLECTION REPORT                       *
  3. 30 '*  COLLECT.BAS                             8/28/82         *
  4. 40 '************************************************************
  5. 45 REVERSE$=CHR$(27)+CHR$(71)+CHR$(52)'*******OK FOR TELEVIDEO 910
  6. 50 PRINT CHR$(26)
  7. 60 PRINT REVERSE$; TAB(31)"COLLECTION  REPORT"
  8. 70 PRINT STRING$(79,"-")
  9. 80 INPUT"WHAT MONTH IS THIS REPORT BEING PREPARED FOR ";MO$
  10. 81 BB%=LEN(MO$)
  11. 82 FOR X%=1 TO BB%
  12. 83 IF MID$(MO$,X%,1)<CHR$(65) OR MID$(MO$,X%,1)>CHR$(90) THEN PRINT"BAD DATE - ENTER ALPHA DATA ONLY - NO NUMBERS":GOTO 80
  13. 84 NEXT X%
  14. 85 MONTH$=LEFT$(MO$,3)
  15. 90 OPEN"I",1,"DATE.DAT"
  16. 100 INPUT#1,Y9$,W$,X$,Y$:CLOSE 1
  17. 110 GOSUB 150:GOTO 200
  18. 150 TB=(80-LEN(W$))/2:TB=INT(TB)
  19. 160 LPRINT TAB(TB);W$
  20. 170 LPRINT TAB(31);"COLLECTION  REPORT"
  21. 175 TA=(71-LEN(MO$))/2:TA=INT(TA):TITLE$="MONTH OF "+MO$
  22. 180 LPRINT TAB(TA);TITLE$
  23. 190 LPRINT:LPRINT"SPACE  RENT   UTILITIES  MISC.CHGS.  TOTAL DUE  DATE PAID  AMOUNT  REC.BY  B/F"
  24. 195 LPRINT STRING$(79,"-"):LPRINT:LC=6
  25. 196 RETURN
  26. 200 OPEN"I",1,"REC.DAT"
  27. 205 OPEN"O",4,MONTH$+".DAT"
  28. 210 IF EOF(1) GOTO 500
  29. 215 INPUT#1,A1,KN#,A2,A3,A4,A5$,A6,A7#,A8,A9,B1,B2#,B3,B4
  30. 216 PRINT#4,A1;",";KN#;",";A2;",";A3;",";A4;",";A5$;",";A6;",";A7#;",";A8;",";A9;",";B1;",";B2#;",";B3;",";B4 
  31. 221 B4=B4*100
  32. 222 A7#=INT(A7#*100+.5)/100:PRINT A7#
  33. 230 LPRINT USING"#####  ###.##    ###.##     ###.##     ###.##";KN#;A9/100;A7#;B2#/100+B4#;((A9+B2#)/100)+B4#+A7#;
  34. 240 LPRINT"    .........  .....  .....  ....."
  35. 245 T1=T1+A9:T2=T2+A7#:T3=T3+(B2#/100)+B4#
  36. 246 LPRINT
  37. 250 LC=LC+2
  38. 260 IF LC<54 GOTO 210
  39. 270 FOR XX%=LC TO 65:LPRINT:NEXT XX%
  40. 280 LC=0:GOSUB 150
  41. 290 GOTO 210
  42. 500 CLOSE:LPRINT:LPRINT STRING$(79,"=")
  43. 510 LPRINT"TOTALS:"
  44. 511 T2=INT(T2*100+.5)/100
  45. 520 LPRINT USING"     #####.##   ####.##    ####.##   #####.##";T1/100;T2;T3;(T1/100)+T2+T3
  46. 530 LC=LC+2
  47. 540 FOR XX%=LC TO 65:LPRINT:NEXT XX%
  48. 550 RESET:RUN"MENU"
  49. ##    ####.##   #####.##";T1/100;T2;T3;(T1/100)+T2+T3
  50. 530 LC=