home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / manage1.zip / STATEMP.PRG < prev    next >
Text File  |  1986-05-29  |  17KB  |  610 lines
  1. **    Last revision: April 6, 1986 at 15:54
  2. * statement printing program
  3. SELE E
  4. USE &dr.:statemnt
  5. STOR 0 TO totalit
  6. STOR 0 TO totalit1
  7. STOR 0 TO netin
  8. GO top
  9. IF nowprint = 'Y'
  10.  GO bottom
  11. ELSE
  12.  STOR '        ' to daya
  13.  @ 15,01 SAY SPACE(75)
  14.  @ 16,01 SAY SPACE(75)
  15.  @ 15,01 SAY '        What is the date of the statement you want to print'
  16.  @ 15,65 GET daya picture '99/99/99'
  17.  READ
  18.  GO TOP
  19.  LOCA for daya = date
  20.  DO WHIL .NOT. EOF()
  21.   IF .NOT. EOF()
  22.    STOR RECNO() TO rec_no
  23.   ENDI .NOT. EOF
  24.   CONT
  25.  ENDD WHILE .NOT. EOF
  26.  IF rec_no = 0
  27.   DO WHIL rec_no = 0
  28.    GO TOP
  29.    @ 15,65 GET daya picture '99/99/99'
  30.    READ
  31.    LOCA for daya = date
  32.    DO WHIL .NOT. EOF()
  33.     IF .NOT. EOF()
  34.      STOR RECNO() TO rec_no
  35.     ENDI .NOT. EOF
  36.     CONT
  37.    ENDD WHILE .NOT. EOF
  38.   ENDD WHILE rec:no = 0
  39.  ENDI rec:no = 0
  40.  IF rec_no <> 0
  41.   GO rec_no
  42.  ENDI rec:no
  43. ENDI nowprint = 'Y'
  44. RELE nowprint
  45. IF stubs
  46.  STOR .t. TO stub
  47. ELSE
  48.  STOR .f. TO stub
  49. ENDI stubs
  50. @ 16,01 SAY SPACE(75)
  51. @ 15,01 SAY "                   Send Statements to the Printer (Y/N)"
  52. @ 15,60 GET printer PICTURE '!'
  53. READ
  54. @ 16,01 SAY "                   Send Statements to a Disk File (Y/N)"
  55. @ 16,60 GET disk PICTURE '!'
  56. READ
  57. STOR LEN(dconame)/2  TO L
  58. STOR 40-L TO L
  59. STOR '                                        ' TO bl
  60. STOR SUBSTR(bl,1,L) + dconame TO coname1
  61. IF disk ='Y'
  62.  @ 18,01 SAY "                   Enter Disk File Name "
  63.  @ 18,44 GET filename PICTURE '!!!!!!!!'
  64.  @ 18,54 SAY "(.TXT will be added )"
  65.  READ
  66.  STOR 'A' to dr
  67.  @ 19,01 SAY '                   Select drive to put Files on'
  68.  @ 19,54 GET dr PICTURE '!'
  69.  READ
  70.  DO WHIL AT(dr,'ABCD') = 0
  71.   @ 19,54 GET dr PICTURE '!'
  72.   READ
  73.  ENDD while @
  74. ENDI disk = Y
  75. @ 15,01 SAY SPACE(75)
  76. @ 16,01 SAY SPACE(75)
  77. @ 17,01 SAY SPACE(75)
  78. @ 18,01 SAY SPACE(75)
  79. @ 19,01 SAY SPACE(75)
  80. IF printer = 'Y'
  81.  @ 16,01 SAY "                        MAKE PRINTER READY AND HIT ANY KEY"
  82.  SET CONSOLE OFF
  83.  WAIT
  84.  SET CONSOLE ON
  85.  CLEA
  86.  @ 10,20 SAY 'Calculating........................................'
  87.  @ 12,00 SAY ' '
  88.  SET print ON
  89. ELSE
  90.  CLEA
  91.  @ 10,20 SAY 'Calculating........................................'
  92.  @ 12,00 SAY ' '
  93. ENDI printer = Y
  94. IF disk = 'Y' .AND. filename <> ' '
  95. * make a proper REPORT file name that is of type TXT
  96.  STOR AT('.',filename) TO length
  97.  IF length = 0 .OR. length > 8
  98.   STOR 9 TO length
  99.  ENDI length
  100.  STOR SUBSTR(filename,1,length-1) TO filename
  101.  STOR '&dr.:'+filename+'.TXT' TO filename
  102.  RELE dr
  103.  SET ALTERNATE TO &filename
  104.  SET ALTERNATE ON
  105. ELSE
  106.  RELE filename
  107. ENDI disk = Y and filename <> ''
  108. IF SUBSTR(daya,4,1) = '0'
  109.  STOR SUBSTR(daya,5,1) TO date2
  110. ELSE
  111.  STOR SUBSTR(daya,4,2) TO date2
  112. ENDI
  113. STOR fyr TO mfyr
  114. IF mfyr < SUBSTR(daya,1,2)
  115.  STOR VAL(fyr)+12 TO mfyr1
  116. ELSE
  117.  STOR VAL(mfyr) TO mfyr1
  118. ENDI mfyr
  119. STOR mfyr1 - VAL(SUBSTR(daya,1,2)) TO mfyr1
  120. STOR mfyr1 + 100 TO mfyr1
  121. STOR STR(mfyr1,3) TO mfyr2
  122. STOR SUBSTR(mfyr2,2,2) TO mfyr
  123. DO CASE
  124. CASE mfyr = '01'
  125.  STOR 'One month ending ' TO date3
  126. CASE mfyr = '02'
  127.  STOR 'Two months ending ' TO date3
  128. CASE mfyr = '03'
  129.  STOR 'Three months ending ' TO date3
  130. CASE mfyr = '04'
  131.  STOR 'Four months ending ' TO date3
  132. CASE mfyr = '05'
  133.  STOR 'Five months ending ' TO date3
  134. CASE mfyr = '06'
  135.  STOR 'Six months ending ' TO date3
  136. CASE mfyr = '07'
  137.  STOR 'Seven months ending ' TO date3
  138. CASE mfyr = '08'
  139.  STOR 'Eight months ending ' TO date3
  140. CASE mfyr = '09'
  141.  STOR 'Nine months ending ' TO date3
  142. CASE mfyr = '10'
  143.  STOR 'Ten months ending ' TO date3
  144. CASE mfyr = '11'
  145.  STOR 'Eleven months ending ' TO date3
  146. CASE mfyr = '12'
  147.  STOR 'Twelve months ending ' TO date3
  148. ENDC
  149. DO CASE
  150. CASE SUBSTR(daya,1,2) = '01'
  151.  STOR 'January ' + date2 + ', 19' + SUBSTR(daya,7,2) TO date1
  152. CASE SUBSTR(daya,1,2) = '02'
  153.  STOR 'February ' + date2 + ', 19' + SUBSTR(daya,7,2) TO date1
  154. CASE SUBSTR(daya,1,2) = '03'
  155.  STOR 'March ' + date2 + ', 19' + SUBSTR(daya,7,2) TO date1
  156. CASE SUBSTR(daya,1,2) = '04'
  157.  STOR 'April ' + date2 + ', 19' + SUBSTR(daya,7,2) TO date1
  158. CASE SUBSTR(daya,1,2) = '05'
  159.  STOR 'May ' + date2 + ', 19' + SUBSTR(daya,7,2) TO date1
  160. CASE SUBSTR(daya,1,2) = '06'
  161.  STOR 'June ' + date2 + ', 19' + SUBSTR(daya,7,2) TO date1
  162. CASE SUBSTR(daya,1,2) = '07'
  163.  STOR 'July ' + date2 + ', 19' + SUBSTR(daya,7,2) TO date1
  164. CASE SUBSTR(daya,1,2) = '08'
  165.  STOR 'August ' + date2 + ', 19' + SUBSTR(daya,7,2) TO date1
  166. CASE SUBSTR(daya,1,2) = '09'
  167.  STOR 'September ' + date2 + ', 19' + SUBSTR(daya,7,2) TO date1
  168. CASE SUBSTR(daya,1,2) = '10'
  169.  STOR 'October ' + date2 + ', 19' + SUBSTR(daya,7,2) TO date1
  170. CASE SUBSTR(daya,1,2) = '11'
  171.  STOR 'November ' + date2 + ', 19' + SUBSTR(daya,7,2) TO date1
  172. CASE SUBSTR(daya,1,2) = '12'
  173.  STOR 'December ' + date2 + ', 19' + SUBSTR(daya,7,2) TO date1
  174. ENDC
  175. STOR TRIM(date1) TO date1
  176. STOR TRIM(date3+date1) TO date3
  177. STOR LEN(date3)/2  TO L
  178. STOR 40-L TO L
  179. STOR '                                        ' TO bl
  180. STOR SUBSTR(bl,1,L) + date3 TO date3
  181. STOR LEN(date1)/2  TO L
  182. STOR 40-L TO L
  183. STOR '                                        ' TO bl
  184. STOR SUBSTR(bl,1,L) + date1 TO date1
  185. RELE L, bl, daya, date2, printer, disk,mfyr, mcyr, mfyr1, mfyr2
  186. STOR .t. TO wholelist
  187. STOR 1 to count
  188. IF com1 = 'C'
  189.  STOR 'BCDEFGHIJKL' TO plan
  190.  STOR .t. TO trial
  191. ELSE
  192.  STOR '6789A012345' TO plan
  193.  STOR .f. TO trial
  194. ENDI com1
  195. STOR 0 TO plus
  196. STOR 0 TO minus
  197. DO WHIL WHOLELIST
  198.  STOR SUBSTR(plan,(count),1) TO chart
  199.  DO CASE
  200.  CASE chart = '1'.OR. chart = 'B'
  201.   STOR code1 TO mcode
  202.   STOR count + 1 TO count
  203.  CASE chart = '2' .OR. chart = 'C'
  204.   STOR code2 TO mcode
  205.   STOR count + 1 TO count
  206.  CASE chart = '3'.OR. chart = 'D'
  207.   STOR code3 TO mcode
  208.   STOR count + 1 TO count
  209.  CASE chart = '4' .OR. chart = 'E'
  210.   STOR code4 TO mcode
  211.   STOR count + 1 TO count
  212.  CASE chart = '5'
  213.   STOR code5 TO mcode
  214.   IF .NOT. stub
  215.    STOR .f. TO wholelist
  216.   ELSE
  217.    STOR 'M789A0X' TO plan
  218.    STOR 1 TO count
  219.   ENDI
  220.  CASE chart = 'X'
  221.   STOR .f. TO wholelist
  222.  CASE chart = 'F'
  223.   STOR code5 TO mcode
  224.   STOR count+1  TO count
  225.  CASE CHART = '6' .OR. chart = 'G' .OR. chart = 'M'
  226.   STOR code6 TO mcode
  227.   STOR count + 1 TO count
  228.  CASE CHART = '7' .OR. chart = 'H'
  229.   STOR code7 TO mcode
  230.   STOR count + 1 TO count
  231.  CASE CHART = '8' .OR. chart = 'I'
  232.   STOR code8 TO mcode
  233.   STOR count + 1 TO count
  234.  CASE CHART = '9' .OR. chart = 'J'
  235.   STOR code9 TO mcode
  236.   STOR count + 1 TO count
  237.  CASE CHART = '0' .OR. chart = 'K'
  238.   STOR code0 TO mcode
  239.   STOR count + 1 TO count
  240.  CASE CHART = 'A'
  241.   STOR codea TO mcode
  242.   STOR count + 1 TO count
  243.  CASE CHART = 'L'
  244.   STOR codea TO mcode
  245.   STOR .f. TO wholelist
  246.  ENDC
  247.  STOR ',' TO C
  248.  STOR 1 TO X
  249.  STOR 1 TO Y
  250.  STOR AT(C,SUBSTR(mcode,x)) TO y
  251.  STOR .t. TO more
  252.  STOR 0 TO countup
  253.  STOR '0' TO nu
  254.  DO WHIL more
  255.   IF Y > 0
  256.    IF VAL(nu) <9
  257.     STOR STR(VAL(SUBSTR(nu,1,1))+1,1) TO nu
  258.    ELSE
  259.     STOR STR(VAL(SUBSTR(nu,1,2))+1,2) TO nu
  260.    ENDI VAL(nu)
  261.    STOR X + Y TO X
  262.    STOR AT(C,SUBSTR(mcode,x)) TO y
  263.    STOR SUBSTR(mcode,x,y-1) TO N&nu
  264.    STOR X + Y TO X
  265.    STOR AT(C,SUBSTR(mcode,x)) TO y
  266.    STOR (VAL(SUBSTR(mcode,x,y-1))*1.00) TO NM&nu
  267.    STOR countup + 1 TO countup
  268.   ELSE
  269.    STOR .f. TO more
  270.   ENDI Y > 0
  271.  ENDD WHILE more
  272.  STOR nu TO last
  273.  STOR 0 TO sumup
  274.  STOR countup-1 to countup
  275.  STOR countup to countup1
  276.  SELE D
  277.  USE &dr.:chart
  278.  STOR '0' TO nu
  279.  DO WHIL &nu  < &last-1
  280.   IF countup > 0
  281.    IF VAL(nu) <9
  282.     STOR STR(VAL(SUBSTR(nu,1,1))+1,1) TO nu
  283.    ELSE
  284.     STOR STR(VAL(SUBSTR(nu,1,2))+1,2) TO nu
  285.    ENDI VAL(nu)
  286.    LOCA FOR N&nu= acctno
  287.    IF comm = 'A' .OR. comm = 'C'
  288.     STOR N&nu + '  ' + desc TO mdesc&nu
  289.    ELSE
  290.     STOR desc TO mdesc&nu
  291.    ENDI comm
  292.    RELE N&nu
  293.    STOR sumup + NM&nu TO sumup
  294.    STOR countup -1 TO countup
  295.   ENDI countup
  296.  ENDD WHILE &nu
  297.  DO CASE
  298.   CLEA
  299.  CASE chart = 'B'
  300.   ? ' '
  301.   ? coname1
  302.   ? '                                 TRIAL BALANCE'
  303.   ? date1
  304.   ? ' '
  305.   ? '----------------------------------------------------------------------------'
  306.   ? 'Acct #    Description                                        Debit     Credit'
  307.   ? '----------------------------------------------------------------------------'
  308.  CASE chart = '1'
  309.   IF printer = 'Y'
  310.    EJEC
  311.    SET PRINT OFF
  312.   ELSE
  313.    ? CHR(12)
  314.   ENDI printer
  315.   ? ' '
  316.   ? coname1
  317.   ? '                                 BALANCE SHEET'
  318.   ? date1
  319.   ? ' '
  320.   ? ' '
  321.   ? 'ASSETS '
  322.   ? ' '
  323.  CASE chart = '3'
  324.   ? ' '
  325.   ? 'LIABILITIES AND CAPITAL'
  326.   ? ' '
  327.  CASE chart = '5'
  328.   ? ' '
  329.   ? 'CAPITAL'
  330.   ? ' '
  331.  CASE chart = '6' .OR. chart = 'M'
  332.   ? ' '
  333.   ? coname1
  334.   ? '                           PROFIT AND LOSS STATEMENT'
  335.   IF chart = '6'
  336.    ? date3
  337.    RELE date3
  338.   ELSE
  339.    ? '                                ONE MONTH ENDING '
  340.    ? date1
  341.   ENDI chart = '6'
  342.   ? ' '
  343.   ? 'INCOME'
  344.   ? ' '
  345.  ENDC
  346.  STOR '0' TO nu
  347.  IF trial
  348.   IF chart='B'.OR.chart='C'.OR.chart='D'.OR.chart='E'.OR.chart='F';
  349.    .OR.chart='G'.OR.chart='H'.OR.chart='I'.OR.chart='J'.OR.;
  350.    chart='K'.OR.chart='L'
  351.    DO WHIL &nu < &last-1
  352.     IF countup1 > 0
  353.      IF VAL(nu) <9
  354.       STOR STR(VAL(SUBSTR(nu,1,1))+1,1) TO nu
  355.      ELSE
  356.       STOR STR(VAL(SUBSTR(nu,1,2))+1,2) TO nu
  357.      ENDI VAL(nu)
  358.      IF NM&nu< 0
  359.       STOR '            ' TO sp
  360.       STOR minus + NM&nu TO minus
  361.      ELSE
  362.       STOR '  ' TO sp
  363.       STOR plus + NM&nu TO plus
  364.      ENDI NM
  365.      ? '  ' + mdesc&nu + sp+ STR(NM&nu,12,2)
  366.      RELE N&nu, mdesc&nu, NM&nu, sp
  367.      STOR countup1 -1 TO countup1
  368.     ENDI countup1
  369.    ENDD WHILE &nu
  370.   ENDI chart
  371.  ELSE
  372.   STOR .t. TO full
  373.   DO WHIL &nu  < &last-1
  374.    IF countup1 > 0
  375.     IF VAL(nu) <9
  376.      STOR STR(VAL(SUBSTR(nu,1,1))+1,1) TO nu
  377.     ELSE
  378.      STOR STR(VAL(SUBSTR(nu,1,2))+1,2) TO nu
  379.     ENDI VAL(nu)
  380.     IF NM&nu < 0 .AND. chart <> '1'
  381.      STOR (NM&nu*-1) TO NM&nu
  382.     ENDI NM
  383.     IF full .AND. NM&nu <> 0
  384.      DO CASE
  385.      CASE chart = '1'
  386.       ? 'CURRENT ASSETS '
  387.       ? ' '
  388.      CASE chart = '2'
  389.       ? ' '
  390.       ? 'FIXED ASSETS'
  391.       ? ' '
  392.      CASE chart = '3'
  393.       ? ' '
  394.       ? 'CURRENT LIABILITIES'
  395.       ? ' '
  396.      CASE chart = '4'
  397.       ? ' '
  398.       ? 'LONG TERM LIABILITIES'
  399.       ? ' '
  400.      CASE chart = '7'
  401.       ? ' '
  402.       ? 'OPERATING EXPENSES'
  403.       ? ' '
  404.      CASE chart = '8'
  405.       ? ' '
  406.       ? 'GENERAL & ADMINISTRATIVE EXPENSES'
  407.       ? ' '
  408.      CASE chart = '9'
  409.       ? ' '
  410.       ? 'FINANCIAL EXPENSES'
  411.       ? ' '
  412.      CASE chart = '0'
  413.       ? ' '
  414.       ? 'TAX EXPENSES'
  415.       ? ' '
  416.      ENDC
  417.     ENDI NM&nu
  418.     ? '      ' + mdesc&nu + STR(NM&nu,12,2)
  419.     STOR .f. TO full
  420.     RELE mdesc&nu, MN&nu, N&nu
  421.     STOR countup1 -1 TO countup1
  422.    ENDI countup1
  423.   ENDD while &nu
  424.  ENDI trial
  425.  DO CASE
  426.  CASE chart = '1'
  427.   STOR 0 TO totalit
  428.   STOR sumup + totalit TO totalit
  429.   STOR 0 TO sumup
  430.  CASE chart = '2'
  431.   ? '                                                     ----------  '
  432.   STOR sumup + totalit TO totalit
  433.   IF totalit < 0
  434.    STOR totalit*-1 TO totalit
  435.    ? '         TOTAL ASSETS                                           (' + STR(totalit,12,2)+')'
  436.   ELSE
  437.    ? '         TOTAL ASSETS                                            ' + STR(totalit,12,2)
  438.   ENDI totalit
  439.   ? '                                                                  ============'
  440.   ? ' '
  441.   STOR 0 TO sumup
  442.  CASE chart = '3'
  443.   STOR 0 TO totalit
  444.   STOR sumup + totalit TO totalit
  445.  CASE chart = '4'
  446.   STOR sumup + totalit TO totalit
  447.   ? '                                                     ----------  '
  448.   IF TOTALIT < 0
  449.    STOR totalit*-1 TO total1
  450.   ELSE
  451.    STOR totalit TO total1
  452.   ENDI
  453.   ? '        TOTAL LIABIlITIES                                        ' + STR(total1,12,2)
  454.   ? ' '
  455.   STOR 0 TO sumup
  456.   RELE total1
  457.  CASE chart = '5'
  458.   STOR sumup + totalit + netin TO totalit
  459.   IF netin >= 0
  460.    STOR netin*-1 TO net
  461.    ? '      Earnings this period                         ' + STR(NET,12,2)
  462.   ELSE
  463.    ? '      Earnings this period                        (' + STR(NETIN,12,2)+')'
  464.   ENDI netin
  465.   ? '                                                     ----------  '
  466.   IF totalit > 0
  467.    ? '        TOTAL LIABILITIES & CAPITAL                             (' + STR(totalit,12,2)+')'
  468.   ELSE
  469.    ? '        TOTAL LIABILITIES & CAPITAL                              ' + STR(totalit,12,2)
  470.   ENDI totalit
  471.   ? '                                                                  ============'
  472.   IF printer = 'Y'
  473.    EJEC
  474.    SET PRINT OFF
  475.   ELSE
  476.    ? CHR(12)
  477.   ENDI printer
  478.   ? ' '
  479.  CASE chart = 'B'.OR.chart='C'.OR.chart='D'.OR.chart='E'.OR.chart='F'
  480.   STOR 0 TO sumup
  481.  CASE chart = 'G'
  482.   STOR 0 TO netin
  483.   STOR sumup + netin TO netin
  484.   STOR 0 TO sumup
  485.  CASE chart = 'H'.OR.chart='I'.OR.chart='J'
  486.   STOR sumup + netin TO netin
  487.   STOR 0 TO sumup
  488.  CASE chart = 'K'
  489.   STOR 0 TO sumup
  490.  CASE chart = 'L'
  491.   STOR sumup + netin TO netin
  492.   IF netin < 0
  493.    STOR '            ' TO sp
  494.   ELSE
  495.    STOR '  ' TO sp
  496.   ENDI netin
  497.   STOR minus*-1 TO minus
  498.   ? '----------------------------------------------------------------------------'
  499.   ? '   VALIDATION   Debits = '+ STR(plus,12,2)+ ' Credits = '+STR(minus,12,2)
  500.   ? '----------------------------------------------------------------------------'
  501.   IF netin <=0
  502.    ? '        NET INCOME FOR PERIOD                        ' +sp+ STR(netin,12,2)
  503.   ELSE
  504.    ? '        NET LOSS FOR PERIOD                          ' +sp+ STR(netin,12,2)
  505.   ENDI netin
  506.   ? '----------------------------------------------------------------------------'
  507.   ? ' '
  508.   IF printer = 'Y'
  509.    EJEC
  510.    SET PRINT OFF
  511.   ELSE
  512.    ? CHR(12)
  513.   ENDI printer
  514.   ? ' '
  515.  CASE chart = '6' .OR. chart = 'M'
  516.   STOR 0 TO netin
  517.   STOR sumup + netin TO netin
  518.   STOR (sumup*-1) TO sumup
  519.   IF sumup <> 0
  520.    ? '                                                     ----------  ' + STR(SUMUP,12,2)
  521.   ENDI sumup
  522.   ? ' '
  523.   STOR 0 TO sumup
  524.  CASE chart = '7'
  525.   STOR sumup + netin TO netin
  526.   STOR 0 TO exp
  527.   STOR sumup + exp to exp
  528.   IF sumup <> 0
  529.    ? '                                                     ----------  ' + STR(SUMUP,12,2)
  530.   ENDI sumup
  531.   ? ' '
  532.   STOR 0 TO sumup
  533.  CASE chart = '8'
  534.   STOR sumup + netin TO netin
  535.   STOR sumup + exp TO exp
  536.   IF sumup <> 0
  537.    ? '                                                     ----------  ' + STR(SUMUP,12,2)
  538.   ENDI sumup
  539.   ? ' '
  540.   STOR 0 TO sumup
  541.  CASE chart = '9'
  542.   STOR sumup + netin TO netin
  543.   STOR sumup + exp TO exp
  544.   STOR sumup TO adjust
  545.   IF sumup <> 0
  546.    ? '                                                     ----------  ' + STR(SUMUP,12,2)
  547.   ENDI sumup
  548.   ? ' '
  549.   STOR 0 TO sumup
  550.  CASE chart = '0'
  551.   STOR sumup + netin TO netin
  552.   STOR sumup + exp TO exp
  553.   IF sumup <> 0
  554.    ? '                                                     ----------  ' + STR(SUMUP,12,2)
  555.   ENDI sumup
  556.   ? '                                                                --------------'
  557.   ? '               TOTAL ALL EXPENSES                                ' + STR(exp,12,2)
  558.   ? '                                                                  ------------'
  559.   IF netin < 0
  560.    STOR netin*-1 TO net
  561.    ? '               NET INCOME FOR PERIOD                             ' + STR(net,12,2)
  562.    ? '                                                                  ============'
  563.   ELSE
  564.    ? "               NET INCOME FOR PERIOD                           $(" + STR(netin,12,2) + ")"
  565.    ? '                                                                  ============'
  566.   ENDI netin
  567.   STOR (sumup+netin-adjust) TO adjust
  568.   IF adjust <> netin
  569.    IF adjust < 0
  570.     STOR adjust*-1 TO adjust
  571.     ? ' '
  572.     ? '               CASH GENERATED FROM OPERATIONS                   $' + STR(adjust,12,2)
  573.     ? '  '
  574.     ? '  '
  575.    ELSE
  576.     ? ' '
  577.     ? '               CASH GENERATED FROM OPERATIONS                  $(' + STR(adjust,12,2)+ ')'
  578.     ? '  '
  579.     ? '  '
  580.     STOR 0 TO sumup
  581.    ENDI
  582.   ENDI adjust
  583.   IF stub
  584.    SKIP -1
  585.   ENDI stub
  586.  CASE chart = 'X'
  587.   IF printer = 'Y'
  588.    EJEC
  589.    SET PRINT OFF
  590.   ELSE
  591.    ? CHR(12)
  592.   ENDI printer
  593.   ? ' '
  594.   STOR .f. TO wholelist
  595.  ENDC
  596.  RELE N1, N2, N3, N4, N5, N6, N7, N8, N9, N10, N11, N12,N13,N14,N15,N16,N17,N18
  597.  RELE NM1, NM2, NM3, NM4, NM5, NM6, NM7, NM8, NM9, NM10, NM11, NM12,NM13,NM14
  598.  RELE NM15,NM16,NM17,NM18,mdesc1, mdesc2, mdesc3, mdesc4, mdesc5, mdesc6, mdesc7, mdesc8
  599.  RELE mdesc9, mdesc10, mdesc11, mdesc12,mdesc13,mdesc14,mdesc15,mdesc16,mdesc17,mdesc18, countup, countup1, full
  600.  STOR 0 TO countup
  601. ENDD while wholelist
  602. SET PRINT OFF
  603. SET ALTERNATE OFF
  604. CLEA
  605. SELE C
  606. USE &dr.:account
  607. SET INDEX TO &dr.:account
  608. RETU
  609. 
  610.