home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug087.ark / CGRPT.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-10-20  |  3.6 KB  |  100 lines
  1.      rem This is the Depreciation Report Printer
  2.  
  3. %INCLUDE ALL.BAS
  4.      dim n(2,20),k$(3,20)
  5.      z5$="b:cg"
  6.      RESTORE
  7. 1008 DIM H(9),S(9),T(4,9)
  8. 1009 PRINT clear$:PRINT
  9. 1090 U$="##,###,###"
  10. 1095 FOR Z=1 TO 104:A$=A$+"-":NEXT Z
  11. 1100 REM GET DATES ROUTINE
  12. 1145 Z9=0
  13. 1200 REM READ TAB VALUES ROUTINE
  14. 3000 REM READ NAME FILE SUBROUTINE
  15. 3005 a5=T%(12)
  16.      for z=3 to 11:read n(1,z):next z
  17.      data 24,24,24,17,2,5,14,20,20
  18. 3085 Z9=1:FOR Z=3 TO 11:K$(0,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z
  19. 3090 N$="":FOR Z=1 TO 20:N(1,Z)=0:NEXT Z
  20. 3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS
  21.      l8=1
  22. 3130 FOR I=3 TO 6
  23.      l9=len(k$(0,i))
  24. 3140 for z=l9 to l8 step -1
  25. 3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170
  26. 3160 NEXT Z
  27. 3170 Z$=""
  28. 3180 FOR Z0=1 TO Z
  29. 3190 Z$=Z$+MID$(K$(0,I),Z0,1)
  30. 3200 NEXT Z0
  31. 3210 K$(0,I)="":K$(0,I)=Z$
  32. 3220 NEXT I
  33. 6000 REM PROGRAM TO PRINT DEPRECIATION REPORT
  34. 6005 PRINT clear$:PRINT
  35. 6010 PRINT "PRINTING DEPRECIATION REPORT"
  36. 6030 T1=0:T2=0:T3=0:T4=0:P0=1
  37. 6035 X=1
  38. 6040 for z=4 to 8:read n(1,z):next z
  39.      data 24,24,1,8,2
  40. 6200 open z5$ recl 256 as 1
  41. 6205 z3=(size(z5$)*block.size)/256
  42. 6210 FOR Z2=1 TO Z3
  43. 6215 read #1,z2;n(2,1),n(2,2),n(2,3),n$
  44. 6220 IF N(2,2)=0 THEN 6230
  45. 6225 NEXT Z2
  46. 6230 close 1
  47. 6235 Z2=Z2-1
  48. 6240 PRINT:PRINT "RECORDS TO BE PRINTED ";Z2
  49. 6245 PRINT:INPUT "TO PRINT REPORT, TYPE RETURN.";line temp$
  50.      lprinter:P9=0
  51. 6300 open z5$ recl 256 as 1
  52. 6310 FOR Z1=1 TO Z2
  53. 6320 read #1,z1;N(2,1),N(2,2),N(2,3),N$,D1,D2,D3,D4,D5,D6,D7,D8,D9
  54. 6330 Z9=1:FOR Z=4 TO 8:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z
  55. 6340 IF RIGHT$(K$(3,7),2)=RIGHT$(D$(6),2) AND D3>D8 THEN T3=T3+D3-D8
  56. 6350 NEXT Z1
  57. 6400 print K$(0,4);TAB(46);K$(0,10);TAB(65);" ";TAB(88);"PAGE ";
  58. 6405 print P0;" OF ":P9=P9+1
  59. 6410 print "STATEMENT OF DEPRECIATION FOR YEAR ENDING";TAB(46);D$(6)
  60. 6415 print A$:P9=P9+1
  61. 6420 print "DESCRIPTION";TAB(17);"N-NEW";TAB(26);"N";TAB(29);"DATE";
  62. 6425 print TAB(42);"COST OR";TAB(52);"DEPRECIABLE";TAB(64);
  63. 6430 print "DEPRECIATION";TAB(77);"METHOD";TAB(85);"USEFUL";
  64. 6435 print TAB(96);"CURRENT":P9=P9+1
  65. 6450 print "OF PROPERTY";TAB(17);"U-USED";TAB(26);"U";TAB(29);"ACQUIRED";
  66. 6455 print TAB(39);"OTHER";TAB(46);"BASIS";TAB(55);"BASIS";TAB(64);
  67. 6460 print "PRIOR  YEARS";TAB(84);"LIFE YRS DEPRECIATION":P9=P9+1
  68. 6465 print A$:P9=P9+1
  69. 6470 T9=T3:T3=0
  70. 6500 FOR Z1=1 TO Z2
  71. 6510 read #1,z1;N(2,1),N(2,2),N(2,3),N$,D1,D2,D3,D4,D5,D6,D7,D8,D9
  72. 6520 Z9=1:FOR Z=4 TO 8:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z
  73. 6525 print K$(3,4);TAB(26);K$(3,6);TAB(29);K$(3,7);TAB(39);:print using u$;d1;
  74. 6530 print TAB(52);:print using u$;d2;TAB(64);:print using u$;d3;
  75.      print  TAB(79);K$(3,8);
  76. 6535 print TAB(86);:print using "####";d4;TAB(93);:print using u$;d8:P9=P9+1
  77. 6560 T1=T1+D1:T2=T2+D2:T3=T3+D3:T4=T4+D8
  78. 6565 IF P9>38 THEN GOSUB 30000
  79. 6570 IF P9>38 THEN console
  80.      IF P9>38 THEN PRINT "INSERT ANOTHER SHEET AND ADVANCE TO FIRST DESC LINE"
  81. 6575 IF P9>38 THEN INPUT "TYPE RETURN TO CONTINUE ";line temp$
  82. 6576 IF P9>38 THEN lprinter: GOSUB 30500:P9=0
  83. 6580 NEXT Z1
  84. 6585 print:print TAB(10);"ADDITIONAL FIRST YEAR DEPRECIATION";TAB(93);
  85. 6586 print using u$;t9
  86. 6590 print:print:print tab(10);"Totals";tab(39);
  87.      print using u$;t1;tab(52);t2;tab(64);t3;tab(93);t4+t9
  88. 20000 REM ROUTINE TO CLOSE FILES AND RETURN TO master16
  89.       IF P9<=38 THEN PRINT CHR$(12)
  90. 20005 close 1
  91. 20040 console
  92. 20050 CHAIN "master16"
  93. 30000 print:print tab(10);"Subtotals";tab(39);
  94.       print using u$;t1;tab(52);t2;tab(64);t3;tab(93);t4
  95. 30010 print chr$(12)
  96. 30015 RETURN
  97. 30500 print:print tab(10);"Subtotals";tab(39);
  98.       print using u$;t1;tab(52);t2;tab(64);t3;tab(93);t4
  99. 30515 RETURN
  100.