Program to Calculate ross dividend in Cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. Q3.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM PC.
OBJECT-COMPUTER. IBM PC.
INPUT-OUTPUT SECTION.
SELECT IN-FILE ASSIGN TO "Q3IN.DAT" ORGANIZATION IS
LINE SEQUENTIAL.
SELECT OUT-FILE ASSIGN TO "Q3OUT.TXT".

DATA DIVISION.
FILE SECTION.
FD IN-FILE.
01 IN-REC.
02 IN-FACEVAL PIC 999.
02 IN-RATE PIC V99.
FD OUT-FILE.
01 OUT-REC PIC X(80).


WORKING-STORAGE SECTION.
77 GROSS-DIVIDEND PIC 9(3).9(2).
77 EOF pic X value "N".
77 HEADING1 PIC X(80) VALUE ALL "-".
77 SNO PIC 99 VALUE 0.
01 OUT-FORMAT.
02 OUT-SNO PIC X(5).
02 F PIC X(15) VALUE SPACES.
02 OUT-GROSS-DIVIDEND PIC 99.99.

PROCEDURE DIVISION.
MAIN-PARA.
OPEN INPUT IN-FILE OUTPUT OUT-FILE.
MOVE HEADING1 TO OUT-REC.
WRITE OUT-REC BEFORE ADVANCING 1 LINE.
MOVE " GROSS DIVIDEND REPORT"
TO OUT-REC.
WRITE OUT-REC BEFORE ADVANCING 1 LINE .
MOVE HEADING1 TO OUT-REC.
WRITE OUT-REC BEFORE ADVANCING 1 LINE.
MOVE "SNO GROSS VALUE" to OUT-REC.
WRITE OUT-REC BEFORE ADVANCING 1 LINE.

READ IN-FILE AT END MOVE "Y" TO EOF.

PERFORM CALC-PARA UNTIL EOF = "Y".
DISPLAY "THE DETAILS HAVE BEEN WRITTEN TO FILE Q3OUT.DAT".
CLOSE IN-FILE , OUT-FILE.
STOP RUN.
CALC-PARA.
ADD 1 TO SNO.
COMPUTE GROSS-DIVIDEND = ( IN-FACEVAL * IN-RATE )/ 100.
MOVE SNO TO OUT-SNO.
MOVE GROSS-DIVIDEND TO OUT-GROSS-DIVIDEND.
MOVE OUT-FORMAT TO OUT-REC.
WRITE OUT-REC BEFORE ADVANCING 1 LINE.
READ IN-FILE AT END MOVE "Y" TO EOF.

Program to generate Telephone Bill in Cobol, Telephone Bill Project In Cobol.

IDENTIFICATION DIVISION.
PROGRAM-ID. Q14.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM PC.
OBJECT-COMPUTER. IBM PC.
INPUT-OUTPUT SECTION.
SELECT CUSTOMER-REC-FILE ASSIGN TO "CUST_REC.DAT" ORGANIZATION
IS SEQUENTIAL.
SELECT OUT-FILE ASSIGN TO "TELBILL.TXT".

DATA DIVISION.
FILE SECTION.
FD CUSTOMER-REC-FILE.
01 IN-REC.
02 IN-CUST-ID PIC 999999.
02 IN-CUST-NAME PIC A(20).
02 IN-CUST-ADDRESS PIC X(30).
02 IN-METERED-PULSES PIC 9(4).
02 IN-TELNO PIC 9(6).
FD OUT-FILE.
01 OUT-REC PIC X(80).



WORKING-STORAGE SECTION.
77 EOF PIC X VALUE "N".
77 HEADING1 PIC X(80) VALUE ALL "-".
77 COMPANY-TITLE PIC X(80) VALUE
" AIRTEL TELEPHONE SERVICE ---- BHARTI TELENET LTD.".
01 CUST-ID-LINE.
02 F PIC X(18) VALUE "CUSTOMER ID NO.: ".
02 CUST-ID PIC 9(6).
02 F PIC X(37) VALUE " TELEPHONE CHARGES FOR THE MONTH ".
02 BILL-MONTH PIC X(10).
01 OUT-FORMAT.
02 CUST-NAME PIC A(15).
02 PHONE-NO PIC ZZ9999.
02 F PIC X(10) VALUE SPACES.
02 METRED-PULSES PIC ***9.
02 F PIC X(10) VALUE SPACES.
02 BILL-DUE PIC ****.**.
02 F PIC X(10) VALUE SPACES.
02 LATE-BILL PIC ****.**.

01 TITLE-LINE.
02 F PIC X(80) VALUE " CUSTOMER NAME | TEL NO | METRED PUL
- "SES | NET CHARGES | CHARGES AFTER 15 DAYS *".
01 ISSUE-DATE-LINE.
02 F PIC X(20) VALUE " DATE OF ISSUE : ".
02 CURR-MONTH PIC X(40).
01 FOOTER-LINE.
02 F PIC X(80) VALUE " *: 15 DAYS FROM THE DATE OF ISSUE AS
- " STATED ABOVE".
77 CHARGES PIC 9(4)V99.
77 PULSES PIC 9(5).
PROCEDURE DIVISION.
MAIN-PARA.
DISPLAY "PLS. ENTER CURRENT DATE".
ACCEPT CURR-MONTH .
OPEN INPUT CUSTOMER-REC-FILE OUTPUT OUT-FILE.
DISPLAY "PLS. ENTER THE MONTH FOR WHICH BILL HAS TO BE GENERATED
- ".....(EX. JAN, 2001)".
ACCEPT BILL-MONTH.
READ CUSTOMER-REC-FILE AT END MOVE "Y" TO EOF.
PERFORM CALC-PARA UNTIL EOF = "Y".
DISPLAY "THE TELEPHONE BILL IS GENERATED.".
CLOSE CUSTOMER-REC-FILE , OUT-FILE.
STOP RUN.

HEADER-PARA.
WRITE OUT-REC FROM HEADING1 .
WRITE OUT-REC FROM COMPANY-TITLE.
WRITE OUT-REC FROM HEADING1.
MOVE IN-CUST-NAME TO CUST-NAME OF OUT-FORMAT.
MOVE IN-TELNO TO PHONE-NO.

FOOTER-PARA.
WRITE OUT-REC FROM ISSUE-DATE-LINE.
WRITE OUT-REC FROM FOOTER-LINE.
MOVE "15 DAYS FROM THE DATE OF ISSUE OF BILL." TO OUT-REC.


CALC-PARA.
PERFORM HEADER-PARA.
MOVE IN-CUST-ID TO CUST-ID OF CUST-ID-LINE.
WRITE OUT-REC FROM CUST-ID-LINE.
WRITE OUT-REC FROM HEADING1.
WRITE OUT-REC FROM TITLE-LINE.
WRITE OUT-REC FROM HEADING1.

MOVE IN-CUST-NAME TO CUST-NAME.
MOVE IN-METERED-PULSES TO METRED-PULSES .
MOVE IN-TELNO TO PHONE-NO .
IF IN-METERED-PULSES <>
COMPUTE BILL-DUE = 250.00
ELSE
MOVE IN-METERED-PULSES TO PULSES.
COMPUTE CHARGES = 250.00 + ( PULSES - 75 ) * 0.8 .
MOVE CHARGES TO BILL-DUE.
COMPUTE CHARGES = CHARGES + CHARGES * 0.10.
MOVE CHARGES TO LATE-BILL.
WRITE OUT-REC FROM OUT-FORMAT .
PERFORM FOOTER-PARA.
DISPLAY IN-CUST-NAME.
WRITE OUT-REC FROM HEADING1 AFTER ADVANCING PAGE.
READ CUSTOMER-REC-FILE AT END MOVE "Y" TO EOF.

Program to create and print Financial Accounting Balance Sheet

Program to create and print Financial Accounting Balance Sheet

IDENTIFICATION DIVISION.
PROGRAM-ID. BLANK-SCREEN.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. INTEL.
OBJECT-COMPUTER. INTEL.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 HIT PIC X.
77 OPEN-STOCK PIC 9(7) VALUE ZEROES.
77 BILLS-REC PIC 9(7) VALUE ZEROES.
77 MACHINERY PIC 9(7) VALUE ZEROES.
77 FURNITURE PIC 9(7) VALUE ZEROES.
77 BUILDING PIC 9(7) VALUE ZEROES.
77 DEBTORS PIC 9(7) VALUE ZEROES.
77 CASH-IN-OFFICE PIC 9(7) VALUE ZEROES.
77 CASH-AT-BANK PIC 9(7) VALUE ZEROES.
77 CASH-PETTY PIC 9(7) VALUE ZEROES.
77 WAGES PIC 9(7) VALUE ZEROES.
77 RENT PIC 9(7) VALUE ZEROES.
77 ELEC-CHARGES PIC 9(7) VALUE ZEROES.
77 REPAIRS PIC 9(7) VALUE ZEROES.
77 SALARIES PIC 9(7) VALUE ZEROES.
77 DISC-TO-CUST PIC 9(7) VALUE ZEROES.
77 INT-ON-LOAN PIC 9(7) VALUE ZEROES.
77 BAD-DEBTS PIC 9(7) VALUE ZEROES.
77 PURCHASE-ACC PIC 9(7) VALUE ZEROES.
77 SALES-RET-ACC PIC 9(7) VALUE ZEROES.
77 DRAWINGS-ACC PIC 9(7) VALUE ZEROES.
77 INVESTMENTS PIC 9(7) VALUE ZEROES.
77 CARRIAGE-IN PIC 9(7) VALUE ZEROES.
77 CARRIAGE-OUT PIC 9(7) VALUE ZEROES.
77 LOOSE-TOOLS PIC 9(7) VALUE ZEROES.
77 BILLS-PAYABLE PIC 9(7) VALUE ZEROES.
77 SALES-ACC PIC 9(7) VALUE ZEROES.
77 CAPITAL PIC 9(7) VALUE ZEROES.
77 LOAN PIC 9(7) VALUE ZEROES.
77 CREDITORS PIC 9(7) VALUE ZEROES.
77 DISC-BY-CREDITORS PIC 9(7) VALUE ZEROES.
77 COMMISION-EARNED PIC 9(7) VALUE ZEROES.
77 INT-RECEIVED PIC 9(7) VALUE ZEROES.
77 RETURNS-OUT PIC 9(7) VALUE ZEROES.
77 RENT-RECEIVED PIC 9(7) VALUE ZEROES.
77 BANK-OD PIC 9(7) VALUE ZEROES.
77 BAD-DEBTS-RES PIC 9(7) VALUE ZEROES.
77 INT-ON-INVESTMENTS PIC 9(7) VALUE ZEROES.
77 INT-ON-DEPOSITS PIC 9(7) VALUE ZEROES.
77 CLOSE-STOCK PIC 9(7) VALUE ZEROES.
77 PURCHASE-FREIGHT PIC 9(7) VALUE ZEROES.
77 MANUFACTURE PIC 9(7) VALUE ZEROES.
77 INSURANCE-CLAIM PIC 9(7) VALUE ZEROES.
77 OCTROI PIC 9(7) VALUE ZEROES.
77 CUSTOM-DUTY PIC 9(7) VALUE ZEROES.
77 ROYALTY PIC 9(7) VALUE ZEROES.
77 IMPORT-DUTY PIC 9(7) VALUE ZEROES.
77 FUEL-POWER PIC 9(7) VALUE ZEROES.
77 WATER-CHARGES PIC 9(7) VALUE ZEROES.
77 CLEARING-CHARGES PIC 9(7) VALUE ZEROES.
77 GROSS-LOSS PIC 9(7) VALUE ZEROES.
77 GROSS-PROFIT PIC 9(7) VALUE ZEROES.
77 NET-LOSS PIC 9(7) VALUE ZEROES.
77 NET-PROFIT PIC 9(7) VALUE ZEROES.
77 CASH-IN-HAND PIC 9(7) VALUE ZEROES.
77 TRADE-DR PIC 9(12) VALUE ZEROES.
77 TRADE-CR PIC 9(12) VALUE ZEROES.
* 254
77 DASH-LINE PIC X(80) VALUE ALL "ß".
77 DASH-LINE1 PIC X(80) VALUE ALL "Ä".
* 179
77 VERT-DASH PIC X VALUE "³" .
77 PL-DR PIC 9(10) VALUE ZEROES.
77 PL-CR PIC 9(10) VALUE ZEROES.
77 BAL-LIA PIC 9(10) VALUE ZEROES.
77 BAL-ASSET PIC 9(10) VALUE ZEROES.
77 TT-DR PIC 9(10) VALUE ZEROES.
77 TT-CR PIC 9(10) VALUE ZEROES.
77 TPL-DR PIC 9(10) VALUE ZEROES.
77 TPL-CR PIC 9(10) VALUE ZEROES.

*------------------------------------------------------------------
SCREEN SECTION.
01 TITLE.
02 BLANK SCREEN.

01 MAIN-TITLE.
02 FOREGROUND-COLOR 4.
02 LINE 5 COLUMN 35 VALUE "PROJECT" BLINK HIGHLIGHT.
02 LINE 10 COLUMN 10 VALUE " FINANCIAL ACCOUNTING -"
HIGHLIGHT .
02 LINE 10 COLUMN 33 VALUE " BALANCE SHEET PRINTING "
HIGHLIGHT .
02 LINE 18 COLUMN 10 VALUE " PROGRAMMING DONE BY - "
HIGHLIGHT .
02 LINE 22 COLUMN 20 VALUE " B.E. II Yr. COMPUTER, I.E.T (DAVV) "
HIGHLIGHT .
02 LINE 19 COLUMN 30 VALUE " AMIT MATHUR "
HIGHLIGHT .
02 LINE 20 COLUMN 30 VALUE " RAKESH BARNWAL "
HIGHLIGHT .

01 INTRO.
02 LINE 2 COLUMN 30 VALUE " INTRODUCTION " HIGHLIGHT BLINK.
02 LINE 6 COLUMN 1 VALUE " BALANCE SHEET FOR ANY FIRM GENERALLY
- " CONSIST OF TWO MAJOR ACCOUNTS TRADING ACCOUNT AND".
02 LINE 7 COLUMN 15 VALUE " PROFIT AND LOSS ACCOUNT . THESE
- " PROVIDE INFORMATION ABOUT ".
02 LINE 8 COLUMN 1 VALUE " PROFITS AND LOSSES DURING THE YEAR,
- " BUT DO NOT INFORM ABOUT THE FINANTIAL POSITION OF ".
02 LINE 9 COLUMN 15 VALUE "THE BUSINESS AND ANY CHANGES THEREOF
- "THEREFORE THESE CHANGES ".
02 LINE 10 COLUMN 1 VALUE " COMES IN THE ASSETS , LIABILITIES
- "AND CAPITAL OF A BUSINESS. THE STATEMENT OF AFFAIRS,".
02 LINE 11 COLUMN 13 VALUE "WHICH IS PREPARED AFTER DETERMITION
- "OF NET FROFIT OR LOSS AND ".
02 LINE 12 COLUMN 1 VALUE " PROVIDES INFORMATIIN RESPECT OF THE
- " FINANTIAL POSITION OF THE BUSINESS IS KNOWN AS".
02 LINE 13 COLUMN 12 VALUE " BALANCE SHEET. SUCH BALANCE SHEET
- " IS PREPARED AT THE END OF EACH".
02 LINE 14 COLUMN 1 VALUE " FINANTIAL YEAR, IN WHICH ASSETS AND
- " LIABILITIES OF THE BUSINESS ARE MENTIONED. AT THE".
02 LINE 15 COLUMN 10 VALUE " COMPLETION OF TRADING A/C AND
- " PROFIT AND LOSS A/C ALL EXPENDITUR -E AND LOSSES".
02 LINE 16 COLUMN 10 VALUE "ACCOUNTS AND ALL PROFITS AND INCOMES
- " A/C BECOME CLOSED, ONLY ASSETS, LIABILITIES AND".
02 LINE 17 COLUMN 16 VALUE " AND CAPITAL ACCOUNTS REMAIN OPEN.
- "BALANCES OF ACCOUNTS ARE TR- -ANSFERED TO BALANCE SHEET.".
01 THANKS.
02 LINE 10 COLUMN 35 VALUE " THANKYOU " HIGHLIGHT BLINK.
02 LINE 11 COLUMN 35 VALUE " ________ " HIGHLIGHT BLINK.

01 OBJECT.
02 LINE 2 COLUMN 25 VALUE " OBJECT OF BALANCE SHEET" HIGHLIGHT
BLINK.
02 LINE 6 COLUMN 1 VALUE " BALANCE SHEET PREEPARED TO OBTAIN FOLL
- "OWIING OBJECTS :".
02 LINE 8 COLUMN 5 VALUE "1. TO FIND OUT THE TOTOL LIABILITIES
- " AND ASSETS OF THE BUSINESS ".
02 LINE 10 COLUMN 4 VALUE " 2. TO INFORM ABOUT THE CAPITAL OF
- " THE BUSINESS AND MEANS OF CAPITAL".
02 LINE 12 COLUMN 5 VALUE "3. TO OBTAIN INFORMATION ABUOT BUSIMAN
- " CAPACITY TO PAY ".
02 LINE 14 COLUMN 4 VALUE " 4. TO HAVE A COMPARATIVE STUDY".
01 TEL-SCR.
02 LINE 2 COLUMN 25 VALUE "ENTRIES FOR TRIAL BALANCE"
HIGHLIGHT .
02 LINE 4 COLUMN 2 VALUE "OPENING STOCK " .
02 LINE 4 COLUMN 28 PIC 9(7) TO OPEN-STOCK JUST LEFT
REVERSE-VIDEO.
02 LINE 6 COLUMN 2 VALUE "BILLS RECEIVABLE " .
02 LINE 6 COLUMN 28 PIC 9(7) TO BILLS-REC JUST LEFT
REVERSE-VIDEO.
02 LINE 8 COLUMN 2 VALUE "MACHINERY " .
02 LINE 8 COLUMN 28 PIC 9(7) TO MACHINERY JUST LEFT
REVERSE-VIDEO.
02 LINE 10 COLUMN 2 VALUE "FURNITURE " .
02 LINE 10 COLUMN 28 PIC 9(7) TO FURNITURE JUST LEFT
REVERSE-VIDEO.
02 LINE 12 COLUMN 2 VALUE "BUILDING " .
02 LINE 12 COLUMN 28 PIC 9(7) TO BUILDING JUST LEFT
REVERSE-VIDEO.
02 LINE 14 COLUMN 2 VALUE "DEBTORS " .
02 LINE 14 COLUMN 28 PIC 9(7) TO DEBTORS JUST LEFT
REVERSE-VIDEO.
02 LINE 16 COLUMN 2 VALUE "CASH IN OFFICE " .
02 LINE 16 COLUMN 28 PIC 9(7) TO CASH-IN-OFFICE JUST LEFT
REVERSE-VIDEO.
02 LINE 18 COLUMN 2 VALUE "CASH AT BANK " .
02 LINE 18 COLUMN 28 PIC 9(7) TO CASH-AT-BANK JUST LEFT
REVERSE-VIDEO.
02 LINE 20 COLUMN 2 VALUE "CASH WITH PETTY CASHIER " .
02 LINE 20 COLUMN 28 PIC 9(7) TO CASH-PETTY JUST LEFT
REVERSE-VIDEO.
02 LINE 22 COLUMN 2 VALUE "WAGES " .
02 LINE 22 COLUMN 28 PIC 9(7) TO WAGES JUST LEFT
REVERSE-VIDEO.
02 LINE 24 COLUMN 2 VALUE "RENT " .
02 LINE 24 COLUMN 28 PIC 9(7) TO RENT JUST LEFT
REVERSE-VIDEO.
02 LINE 4 COLUMN 38 VALUE "ELECTRIC CHARGES " .
02 LINE 4 COLUMN 65 PIC 9(7) TO ELEC-CHARGES JUST LEFT
REVERSE-VIDEO.
02 LINE 6 COLUMN 38 VALUE "REPAIRS " .
02 LINE 6 COLUMN 65 PIC 9(7) TO REPAIRS JUST LEFT
REVERSE-VIDEO.
02 LINE 8 COLUMN 38 VALUE "SALARIES " .
02 LINE 8 COLUMN 65 PIC 9(7) TO SALARIES JUST LEFT
REVERSE-VIDEO.
02 LINE 10 COLUMN 38 VALUE "DISCOUNT TO CUSTOMERS " .
02 LINE 10 COLUMN 65 PIC 9(7) TO DISC-TO-CUST JUST LEFT
REVERSE-VIDEO.
02 LINE 12 COLUMN 38 VALUE "INTEREST ON LOAN " .
02 LINE 12 COLUMN 65 PIC 9(7) TO INT-ON-LOAN JUST LEFT
REVERSE-VIDEO.
02 LINE 14 COLUMN 38 VALUE "BAD DEBTS " .
02 LINE 14 COLUMN 65 PIC 9(7) TO BAD-DEBTS JUST LEFT
REVERSE-VIDEO.
02 LINE 16 COLUMN 38 VALUE "PURCHASE A/C " .
02 LINE 16 COLUMN 65 PIC 9(7) TO PURCHASE-ACC JUST LEFT
REVERSE-VIDEO.
02 LINE 18 COLUMN 38 VALUE "SALES RETURN ACCOUNT " .
02 LINE 18 COLUMN 65 PIC 9(7) TO SALES-RET-ACC JUST LEFT
REVERSE-VIDEO.
02 LINE 20 COLUMN 38 VALUE "DRAWINGS A/C" .
02 LINE 20 COLUMN 65 PIC 9(7) TO DRAWINGS-ACC JUST LEFT
REVERSE-VIDEO.
02 LINE 22 COLUMN 38 VALUE "INVESTMENTS " .
02 LINE 22 COLUMN 65 PIC 9(7) TO INVESTMENTS JUST LEFT
REVERSE-VIDEO.
02 LINE 24 COLUMN 38 VALUE "CARRIAGE INWARDS " .
02 LINE 24 COLUMN 65 PIC 9(7) TO CARRIAGE-IN JUST LEFT
REVERSE-VIDEO.

01 TEL-SCR2.
02 LINE 2 COLUMN 25 VALUE "ENTRIES FOR TRIAL BALANCE CONTD.."
HIGHLIGHT.
02 LINE 4 COLUMN 2 VALUE "CARRIAGE OUTWARDS " .
02 LINE 4 COLUMN 28 PIC 9(7) TO CARRIAGE-OUT JUST LEFT
REVERSE-VIDEO.
02 LINE 6 COLUMN 2 VALUE "LOOSE TOOLS " .
02 LINE 6 COLUMN 28 PIC 9(7) TO LOOSE-TOOLS JUST LEFT
REVERSE-VIDEO.
02 LINE 8 COLUMN 2 VALUE "BILLS PAYABLE " .
02 LINE 8 COLUMN 28 PIC 9(7) TO BILLS-PAYABLE JUST LEFT
REVERSE-VIDEO.
02 LINE 10 COLUMN 2 VALUE "SALES A/C " .
02 LINE 10 COLUMN 28 PIC 9(7) TO SALES-ACC JUST LEFT
REVERSE-VIDEO.
02 LINE 12 COLUMN 2 VALUE "CAPITAL " .
02 LINE 12 COLUMN 28 PIC 9(7) TO CAPITAL JUST LEFT
REVERSE-VIDEO.
02 LINE 14 COLUMN 2 VALUE "LOAN " .
02 LINE 14 COLUMN 28 PIC 9(7) TO LOAN JUST LEFT
REVERSE-VIDEO.
02 LINE 16 COLUMN 2 VALUE "CREDITORS " .
02 LINE 16 COLUMN 28 PIC 9(7) TO CREDITORS JUST LEFT
REVERSE-VIDEO.
02 LINE 18 COLUMN 2 VALUE "DISCOUNT ALLOWED BY CREDITORS ".
02 LINE 18 COLUMN 28 PIC 9(7) TO DISC-BY-CREDITORS JUST LEFT
REVERSE-VIDEO.
02 LINE 20 COLUMN 2 VALUE "COMISSION EARNED " .
02 LINE 20 COLUMN 28 PIC 9(7) TO COMMISION-EARNED JUST LEFT
REVERSE-VIDEO.
02 LINE 22 COLUMN 2 VALUE "INTEREST RECEIVED" .
02 LINE 22 COLUMN 28 PIC 9(7) TO INT-RECEIVED JUST LEFT
REVERSE-VIDEO.
02 LINE 24 COLUMN 2 VALUE "RETURNS OUTWARDS(PURCHASES) " .
02 LINE 24 COLUMN 28 PIC 9(7) TO RETURNS-OUT JUST LEFT
REVERSE-VIDEO.
02 LINE 4 COLUMN 38 VALUE "RENT RECEIVED " .
02 LINE 4 COLUMN 65 PIC 9(7) TO RENT-RECEIVED JUST LEFT
REVERSE-VIDEO.
02 LINE 6 COLUMN 38 VALUE "BANK OVERDRAFT " .
02 LINE 6 COLUMN 65 PIC 9(7) TO BANK-OD JUST LEFT
REVERSE-VIDEO.
02 LINE 8 COLUMN 38 VALUE "RESERVE FOR BAD DEBTS " .
02 LINE 8 COLUMN 65 PIC 9(7) TO BAD-DEBTS-RES JUST LEFT
REVERSE-VIDEO.
02 LINE 10 COLUMN 38 VALUE "INTEREST ON INVESTMENTS" .
02 LINE 10 COLUMN 65 PIC 9(7) TO INT-ON-INVESTMENTS JUST LEFT
REVERSE-VIDEO.
02 LINE 12 COLUMN 38 VALUE "INTEREST ON DEPOSITS " .
02 LINE 12 COLUMN 65 PIC 9(7) TO INT-ON-DEPOSITS JUST LEFT
REVERSE-VIDEO.
02 LINE 14 COLUMN 38 VALUE "CLOSING STOCK " .
02 LINE 14 COLUMN 65 PIC 9(7) TO CLOSE-STOCK JUST LEFT
REVERSE-VIDEO.
02 LINE 16 COLUMN 38 VALUE "FREIGHT ON PURCHASE " .
02 LINE 16 COLUMN 65 PIC 9(7) TO PURCHASE-FREIGHT JUST LEFT
REVERSE-VIDEO.
02 LINE 18 COLUMN 38 VALUE "MANUFACTURING " .
02 LINE 18 COLUMN 65 PIC 9(7) TO MANUFACTURE JUST LEFT
REVERSE-VIDEO.
02 LINE 20 COLUMN 38 VALUE "INSURANCE CLAIM " .
02 LINE 20 COLUMN 65 PIC 9(7) TO INSURANCE-CLAIM JUST LEFT
REVERSE-VIDEO.
02 LINE 22 COLUMN 38 VALUE "OCTROI " .
02 LINE 22 COLUMN 65 PIC 9(7) TO OCTROI JUST LEFT
REVERSE-VIDEO.
02 LINE 24 COLUMN 38 VALUE "CUSTOM DUTY " .
02 LINE 24 COLUMN 65 PIC 9(7) TO CUSTOM-DUTY JUST LEFT
REVERSE-VIDEO.
01 TEL-SCR3.
02 LINE 2 COLUMN 25 VALUE "ENTRIES FOR TRIAL BALANCE CONTD.."
HIGHLIGHT.
02 LINE 4 COLUMN 2 VALUE "ROYALTY " .
02 LINE 4 COLUMN 28 PIC 9(7) TO ROYALTY JUST LEFT
REVERSE-VIDEO.
02 LINE 6 COLUMN 2 VALUE "IMPORT DUTY " .
02 LINE 6 COLUMN 28 PIC 9(7) TO IMPORT-DUTY JUST LEFT
REVERSE-VIDEO.
02 LINE 8 COLUMN 2 VALUE "FUEL AND POWER " .
02 LINE 8 COLUMN 28 PIC 9(7) TO FUEL-POWER JUST LEFT
REVERSE-VIDEO.
02 LINE 10 COLUMN 2 VALUE "WATER CHARGES " .
02 LINE 10 COLUMN 28 PIC 9(7) TO WATER-CHARGES JUST LEFT
REVERSE-VIDEO.
02 LINE 12 COLUMN 2 VALUE "CLEARING CHARGES" .
02 LINE 12 COLUMN 28 PIC 9(7) TO CLEARING-CHARGES JUST LEFT
REVERSE-VIDEO.
02 LINE 14 COLUMN 2 VALUE "CASH IN HAND " .
02 LINE 14 COLUMN 28 PIC 9(7) TO CASH-IN-HAND JUST LEFT
REVERSE-VIDEO.

*------------------------------------------------------------------
01 TRADE-ACC.
02 LINE 1 COLUMN 1 PIC X(80) FROM DASH-LINE.
02 LINE 23 COLUMN 1 PIC X(80) FROM DASH-LINE1.
02 LINE 25 COLUMN 1 PIC X(80) FROM DASH-LINE1.
02 LINE 23 COLUMN 5 VALUE "TOTAL" HIGHLIGHT.
02 LINE 23 COLUMN 45 VALUE "TOTAL" HIGHLIGHT.

02 LINE 2 COLUMN 30 VALUE "TRADING ACCOUNT" HIGHLIGHT .
02 LINE 2 COLUMN 2 VALUE "Dr." HIGHLIGHT.
02 LINE 2 COLUMN 70 VALUE "Cr." HIGHLIGHT.

02 LINE 3 COLUMN 1 PIC X(80) FROM DASH-LINE.
02 LINE 4 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 2 VALUE "TO OPENING STOCK " .
02 LINE 4 COLUMN 28 PIC X(7) FROM OPEN-STOCK .
02 LINE 5 COLUMN 2 VALUE "TO PURCHASE A/C " .
02 LINE 5 COLUMN 28 PIC X(7) FROM PURCHASE-ACC .
02 LINE 6 COLUMN 4 VALUE "--DRAWINGS A/C" .
02 LINE 6 COLUMN 28 PIC X(7) FROM DRAWINGS-ACC .
02 LINE 7 COLUMN 4 VALUE "--PURCHASE RETURN" .
02 LINE 7 COLUMN 28 PIC X(7) FROM RETURNS-OUT .
02 LINE 8 COLUMN 2 VALUE "TO CARRIAGE INWARDS " .
02 LINE 8 COLUMN 28 PIC X(7) FROM CARRIAGE-IN .
02 LINE 9 COLUMN 2 VALUE "TO WAGES " .
02 LINE 9 COLUMN 28 PIC X(7) FROM WAGES .
02 LINE 10 COLUMN 2 VALUE "TO FACTORY RENT " .
02 LINE 10 COLUMN 28 PIC X(7) FROM RENT .
02 LINE 11 COLUMN 2 VALUE "TO FREIGHT ON PURCHASE " .
02 LINE 11 COLUMN 28 PIC X(7) FROM PURCHASE-FREIGHT .
02 LINE 12 COLUMN 2 VALUE "TO MANUFACTURING " .
02 LINE 12 COLUMN 28 PIC X(7) FROM MANUFACTURE .
02 LINE 13 COLUMN 2 VALUE "TO OCTROI " .
02 LINE 13 COLUMN 28 PIC X(7) FROM OCTROI.
02 LINE 14 COLUMN 2 VALUE "TO CUSTOM DUTY " .
02 LINE 14 COLUMN 28 PIC X(7) FROM CUSTOM-DUTY.
02 LINE 15 COLUMN 2 VALUE "TO ROYALTY " .
02 LINE 15 COLUMN 28 PIC X(7) FROM ROYALTY.
02 LINE 16 COLUMN 2 VALUE "TO IMPORT DUTY " .
02 LINE 16 COLUMN 28 PIC X(7) FROM IMPORT-DUTY.
02 LINE 17 COLUMN 2 VALUE "TO FUEL AND POWER " .
02 LINE 17 COLUMN 28 PIC X(7) FROM FUEL-POWER.
02 LINE 18 COLUMN 2 VALUE "TO WATER CHARGES " .
02 LINE 18 COLUMN 28 PIC X(7) FROM WATER-CHARGES.
02 LINE 19 COLUMN 2 VALUE "TO CLEARING CHARGES " .
02 LINE 19 COLUMN 28 PIC X(7) FROM CLEARING-CHARGES.
02 LINE 20 COLUMN 2 VALUE "TO GROSS PROFIT TERANS-" .
02 LINE 21 COLUMN 2 VALUE " FERRED TO P/L a/c" .

02 LINE 20 COLUMN 28 PIC X(7) FROM GROSS-PROFIT.
02 LINE 4 COLUMN 38 VALUE "BY SALES A/C " .
02 LINE 4 COLUMN 65 PIC X(7) FROM SALES-ACC .
02 LINE 5 COLUMN 40 VALUE "--SALES RETURN " .
02 LINE 5 COLUMN 65 PIC X(7) FROM SALES-RET-ACC .
02 LINE 8 COLUMN 38 VALUE "BY INSURANCE CLAIM " .
02 LINE 8 COLUMN 65 PIC X(7) FROM INSURANCE-CLAIM .
02 LINE 10 COLUMN 38 VALUE "BY CLOSING STOCK " .
02 LINE 10 COLUMN 65 PIC X(7) FROM CLOSE-STOCK .
02 LINE 12 COLUMN 38 VALUE "BY GROSS LOSS TRANS- " .
02 LINE 13 COLUMN 38 VALUE " FERRED TO P/L a/c " .

02 LINE 12 COLUMN 65 PIC X(7) FROM GROSS-LOSS .
02 LINE 23 COLUMN 25 PIC X(10) FROM TT-DR.
02 LINE 23 COLUMN 62 PIC X(10) FROM TT-CR.

*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
01 PL-ACC.
02 LINE 1 COLUMN 1 PIC X(80) FROM DASH-LINE.
02 LINE 24 COLUMN 1 PIC X(80) FROM DASH-LINE1.
02 LINE 22 COLUMN 1 PIC X(80) FROM DASH-LINE1.
02 LINE 23 COLUMN 5 VALUE "TOTAL" HIGHLIGHT.
02 LINE 23 COLUMN 45 VALUE "TOTAL" HIGHLIGHT.

02 LINE 2 COLUMN 25 VALUE "PROFIT AND LOSS ACCOUNT" HIGHLIGHT.
02 LINE 2 COLUMN 2 VALUE "Dr." HIGHLIGHT.
02 LINE 2 COLUMN 70 VALUE "Cr." HIGHLIGHT.

02 LINE 3 COLUMN 1 PIC X(80) FROM DASH-LINE.
02 LINE 4 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 2 VALUE "TO GROSS LOSS b/d " .
02 LINE 4 COLUMN 28 PIC X(7) FROM GROSS-LOSS .
*GROSS-LOSS YET TO BE CALCULATED.
02 LINE 6 COLUMN 2 VALUE "TO INTEREST ON LOAN " .
02 LINE 6 COLUMN 28 PIC X(7) FROM INT-ON-LOAN.
02 LINE 7 COLUMN 4 VALUE "TO BAD DEBTS " .
02 LINE 7 COLUMN 28 PIC X(7) FROM BAD-DEBTS.
02 LINE 8 COLUMN 4 VALUE "DISCOUNT ALLOWED " .
02 LINE 8 COLUMN 28 PIC X(7) FROM DISC-TO-CUST.
02 LINE 9 COLUMN 2 VALUE "TO SALARIES " .
02 LINE 9 COLUMN 28 PIC X(7) FROM SALARIES.
02 LINE 10 COLUMN 2 VALUE "TO WAGES " .
02 LINE 10 COLUMN 28 PIC X(7) FROM WAGES .
02 LINE 11 COLUMN 2 VALUE "TO REPAIRS " .
02 LINE 11 COLUMN 28 PIC X(7) FROM REPAIRS.
02 LINE 12 COLUMN 2 VALUE "TO COMMISSION " .
02 LINE 12 COLUMN 28 PIC X(7) FROM COMMISION-EARNED.
02 LINE 13 COLUMN 2 VALUE "TO CARRIAGE OUTWARDS " .
02 LINE 13 COLUMN 28 PIC X(7) FROM CARRIAGE-OUT.
02 LINE 14 COLUMN 2 VALUE "TO RESERVE FOR BAD DEBTS" .
02 LINE 14 COLUMN 28 PIC X(7) FROM BAD-DEBTS-RES.

02 LINE 15 COLUMN 2 VALUE "TO NET PROFIT TRANSFERRED" .
02 LINE 16 COLUMN 5 VALUE "TO CAPITAL A/C " .

02 LINE 15 COLUMN 28 PIC X(7) FROM NET-PROFIT.
*NET-PROFIT YET TO BE CALCULATED.

02 LINE 4 COLUMN 38 VALUE "BY GROSS PROFIT b/d " .
02 LINE 4 COLUMN 65 PIC X(7) FROM GROSS-PROFIT.
* GROSS-PROFIT YET TO BE CALCULATED.
02 LINE 5 COLUMN 38 VALUE "BY COMMISSION RECEIVED " .
02 LINE 5 COLUMN 65 PIC X(7) FROM COMMISION-EARNED.
02 LINE 6 COLUMN 38 VALUE "BY INTEREST RECEIVED " .
02 LINE 6 COLUMN 65 PIC X(7) FROM INT-RECEIVED.
02 LINE 7 COLUMN 38 VALUE "BY RENT RECEIVED " .
02 LINE 7 COLUMN 65 PIC X(7) FROM RENT-RECEIVED.
02 LINE 8 COLUMN 38 VALUE "BY DISCOUNT RECEIVED " .
02 LINE 8 COLUMN 65 PIC X(7) FROM DISC-BY-CREDITORS.
02 LINE 9 COLUMN 38 VALUE "BY INCOME FROM INVESTMENTS" .
02 LINE 9 COLUMN 65 PIC X(7) FROM INT-ON-INVESTMENTS.
02 LINE 10 COLUMN 38 VALUE "BY NET LOSS TRANSFERRED " .
02 LINE 11 COLUMN 41 VALUE "TO CAPITAL A/C " .

02 LINE 10 COLUMN 65 PIC X(7) FROM NET-LOSS.
*NET-LOSS YET TO BE CALCULATED.
02 LINE 23 COLUMN 25 PIC X(10) FROM TPL-DR.
02 LINE 23 COLUMN 62 PIC X(10) FROM TPL-CR.

*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
01 BAL-SHEET.
02 LINE 1 COLUMN 1 PIC X(80) FROM DASH-LINE.
02 LINE 23 COLUMN 5 VALUE "TOTAL" HIGHLIGHT.
02 LINE 23 COLUMN 45 VALUE "TOTAL" HIGHLIGHT.

02 LINE 22 COLUMN 1 PIC X(80) FROM DASH-LINE1.
02 LINE 24 COLUMN 1 PIC X(80) FROM DASH-LINE1.

02 LINE 5 COLUMN 1 PIC X(80) FROM DASH-LINE1.

02 LINE 2 COLUMN 30 VALUE "BALANCE-SHEET" HIGHLIGHT.
02 LINE 4 COLUMN 5 VALUE "Liabilities" HIGHLIGHT.
02 LINE 4 COLUMN 28 VALUE "Amount" HIGHLIGHT.
02 LINE 4 COLUMN 45 VALUE "Assets" HIGHLIGHT.
02 LINE 4 COLUMN 65 VALUE "Amount" HIGHLIGHT.



02 LINE 3 COLUMN 1 PIC X(80) FROM DASH-LINE.
02 LINE 4 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 37 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 35 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 27 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 64 PIC X FROM VERT-DASH.
02 LINE 4 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 5 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 6 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 8 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 9 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 10 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 11 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 12 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 13 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 14 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 15 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 16 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 17 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 18 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 19 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 20 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 21 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 22 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 23 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 24 COLUMN 72 PIC X FROM VERT-DASH.
02 LINE 7 COLUMN 2 VALUE "CAPITAL " .
02 LINE 7 COLUMN 28 PIC X(7) FROM CAPITAL .
02 LINE 8 COLUMN 4 VALUE " +NET PROFIT" .
02 LINE 8 COLUMN 28 PIC X(7) FROM NET-PROFIT.
02 LINE 9 COLUMN 4 VALUE " -DRAWINGS" .
02 LINE 9 COLUMN 28 PIC X(7) FROM DRAWINGS-ACC.
02 LINE 10 COLUMN 4 VALUE " -NET LOSS" .
02 LINE 10 COLUMN 28 PIC X(7) FROM NET-LOSS.

02 LINE 11 COLUMN 2 VALUE "LOANS " .
02 LINE 11 COLUMN 28 PIC X(7) FROM LOAN.
02 LINE 12 COLUMN 4 VALUE " +INT. ON LOANS" .
02 LINE 12 COLUMN 28 PIC X(7) FROM INT-ON-LOAN.

02 LINE 13 COLUMN 2 VALUE "BANK OVERDRAFT " .
02 LINE 13 COLUMN 28 PIC X(7) FROM BANK-OD.
02 LINE 14 COLUMN 2 VALUE "BILLS PAYABLE " .
02 LINE 14 COLUMN 28 PIC X(7) FROM BILLS-PAYABLE.

02 LINE 7 COLUMN 38 VALUE "BUILDING " .
02 LINE 7 COLUMN 65 PIC X(7) FROM BUILDING.
02 LINE 8 COLUMN 38 VALUE "PLANT AND MACHINERY " .
02 LINE 8 COLUMN 65 PIC X(7) FROM MACHINERY.
02 LINE 9 COLUMN 38 VALUE "FURNITURE AND FIXTURES" .
02 LINE 9 COLUMN 65 PIC X(7) FROM FURNITURE.
02 LINE 10 COLUMN 38 VALUE "INVESTMENTS" .
02 LINE 10 COLUMN 65 PIC X(7) FROM INVESTMENTS.
02 LINE 11 COLUMN 40 VALUE " +INT. ON INVESTMENTS" .
02 LINE 11 COLUMN 65 PIC X(7) FROM INT-ON-INVESTMENTS.

02 LINE 12 COLUMN 38 VALUE "BILLS RECEIVABLE" .
02 LINE 12 COLUMN 65 PIC X(7) FROM BILLS-REC.
02 LINE 13 COLUMN 38 VALUE "DEBTORS" .
02 LINE 13 COLUMN 65 PIC X(7) FROM DEBTORS.
02 LINE 14 COLUMN 40 VALUE " -BAD DEBTS" .
02 LINE 14 COLUMN 65 PIC X(7) FROM BAD-DEBTS.
02 LINE 15 COLUMN 40 VALUE " -RES FOR BAD DEBTS" .
02 LINE 15 COLUMN 65 PIC X(7) FROM BAD-DEBTS-RES.

02 LINE 16 COLUMN 38 VALUE "CASH AT BANK" .
02 LINE 16 COLUMN 65 PIC X(7) FROM CASH-AT-BANK.
02 LINE 17 COLUMN 38 VALUE "CASH IN HAND" .
02 LINE 17 COLUMN 65 PIC X(7) FROM CASH-IN-HAND.
02 LINE 23 COLUMN 25 PIC X(10) FROM BAL-LIA.
02 LINE 23 COLUMN 62 PIC X(10) FROM BAL-ASSET.



PROCEDURE DIVISION.
P1.
PERFORM P4.
DISPLAY TITLE.
DISPLAY TEL-SCR.
ACCEPT TEL-SCR .
DISPLAY TITLE.
DISPLAY TEL-SCR2.
ACCEPT TEL-SCR2.
DISPLAY TITLE.
DISPLAY TEL-SCR3.
ACCEPT TEL-SCR3.
DISPLAY TITLE.
COMPUTE TRADE-DR = TRADE-DR + OPEN-STOCK .
COMPUTE TRADE-DR = TRADE-DR + PURCHASE-ACC.
COMPUTE TRADE-DR = TRADE-DR + CARRIAGE-IN.
COMPUTE TRADE-DR = TRADE-DR + WAGES.
COMPUTE TRADE-DR = TRADE-DR + RENT.
COMPUTE TRADE-DR = TRADE-DR + PURCHASE-FREIGHT.
COMPUTE TRADE-DR = TRADE-DR + MANUFACTURE.
COMPUTE TRADE-DR = TRADE-DR + OCTROI.
COMPUTE TRADE-DR = TRADE-DR + CUSTOM-DUTY.
COMPUTE TRADE-DR = TRADE-DR + ROYALTY.
COMPUTE TRADE-DR = TRADE-DR + IMPORT-DUTY.
COMPUTE TRADE-DR = TRADE-DR + FUEL-POWER.
COMPUTE TRADE-DR = TRADE-DR + WATER-CHARGES.
COMPUTE TRADE-DR = TRADE-DR + CLEARING-CHARGES.
COMPUTE TRADE-DR = TRADE-DR - DRAWINGS-ACC.
COMPUTE TRADE-DR = TRADE-DR - RETURNS-OUT.

COMPUTE TRADE-CR = TRADE-CR + SALES-ACC.
COMPUTE TRADE-CR = TRADE-CR + INSURANCE-CLAIM.
COMPUTE TRADE-CR = TRADE-CR + CLOSE-STOCK.
COMPUTE TRADE-CR = TRADE-CR - SALES-RET-ACC.

IF TRADE-CR > TRADE-DR
COMPUTE GROSS-PROFIT = TRADE-CR - TRADE-DR.
IF TRADE-CR <>
COMPUTE GROSS-LOSS = TRADE-DR - TRADE-CR.

COMPUTE TT-CR = TRADE-CR + GROSS-LOSS.
COMPUTE TT-DR = TRADE-DR + GROSS-PROFIT.

DISPLAY " TRADE-DR IS " TRADE-DR.
DISPLAY " CLOSE-STOCK IS " CLOSE-STOCK.
DISPLAY " TRADE-CR = " TRADE-CR.

ACCEPT HIT.
DISPLAY TITLE.


DISPLAY TRADE-ACC.
ACCEPT HIT.
DISPLAY TITLE.

COMPUTE PL-DR = PL-DR + INT-ON-LOAN .
COMPUTE PL-DR = PL-DR + BAD-DEBTS.
COMPUTE PL-DR = PL-DR + DISC-TO-CUST.
COMPUTE PL-DR = PL-DR + SALARIES.
COMPUTE PL-DR = PL-DR + WAGES.
COMPUTE PL-DR = PL-DR + REPAIRS.
COMPUTE PL-DR = PL-DR + CARRIAGE-OUT.
COMPUTE PL-DR = PL-DR + BAD-DEBTS-RES.
COMPUTE PL-DR = PL-DR + GROSS-LOSS .
COMPUTE PL-CR = PL-CR + COMMISION-EARNED.
COMPUTE PL-CR = PL-CR + INT-RECEIVED.
COMPUTE PL-CR = PL-CR + RENT-RECEIVED.
COMPUTE PL-CR = PL-CR + DISC-BY-CREDITORS.
COMPUTE PL-CR = PL-CR + INT-ON-INVESTMENTS.
COMPUTE PL-CR = PL-CR + GROSS-PROFIT.

IF PL-CR > PL-DR
COMPUTE NET-PROFIT = PL-CR - PL-DR.
IF PL-CR <>
COMPUTE NET-LOSS = PL-DR - PL-CR.

COMPUTE TPL-CR = PL-CR + NET-LOSS.
COMPUTE TPL-DR = PL-DR + NET-PROFIT.

DISPLAY "PL-DR IS " PL-DR.
DISPLAY " PL-CR IS " PL-CR.
ACCEPT HIT.
DISPLAY TITLE.
DISPLAY TITLE.
DISPLAY PL-ACC.
ACCEPT HIT.
DISPLAY TITLE.



COMPUTE BAL-LIA = BAL-LIA + CAPITAL .
COMPUTE BAL-LIA = BAL-LIA + NET-PROFIT .
COMPUTE BAL-LIA = BAL-LIA + LOAN.
COMPUTE BAL-LIA = BAL-LIA + INT-ON-LOAN.
COMPUTE BAL-LIA = BAL-LIA + BANK-OD.
COMPUTE BAL-LIA = BAL-LIA + BILLS-PAYABLE.
COMPUTE BAL-LIA = BAL-LIA - DRAWINGS-ACC.
COMPUTE BAL-LIA = BAL-LIA - NET-LOSS.

COMPUTE BAL-ASSET = BAL-ASSET + BUILDING.
COMPUTE BAL-ASSET = BAL-ASSET + MACHINERY.
COMPUTE BAL-ASSET = BAL-ASSET + FURNITURE.
COMPUTE BAL-ASSET = BAL-ASSET + INVESTMENTS.
COMPUTE BAL-ASSET = BAL-ASSET + INT-ON-INVESTMENTS.
COMPUTE BAL-ASSET = BAL-ASSET + BILLS-REC.
COMPUTE BAL-ASSET = BAL-ASSET + DEBTORS.
COMPUTE BAL-ASSET = BAL-ASSET + CASH-AT-BANK.
COMPUTE BAL-ASSET = BAL-ASSET + CASH-IN-HAND.
COMPUTE BAL-ASSET = BAL-ASSET - BAD-DEBTS.
COMPUTE BAL-ASSET = BAL-ASSET - BAD-DEBTS-RES.


DISPLAY " BAL-LIA IS " BAL-LIA.
DISPLAY " BAL-ASSET IS " BAL-ASSET.
ACCEPT HIT.
DISPLAY TITLE.


P2.
DISPLAY TITLE.
DISPLAY BAL-SHEET.
ACCEPT HIT.
DISPLAY TITLE.
DISPLAY THANKS.
ACCEPT HIT.
STOP RUN.
P4.
DISPLAY TITLE.
DISPLAY MAIN-TITLE.
DISPLAY ( 4 , 1 ) DASH-LINE1 .
DISPLAY ( 6 , 1 ) DASH-LINE1 .
DISPLAY ( 17 , 1 ) DASH-LINE1 .
DISPLAY ( 21 , 1 ) DASH-LINE1 .
ACCEPT HIT.
DISPLAY TITLE.
DISPLAY INTRO .
DISPLAY ( 1 , 1 ) DASH-LINE1 .
DISPLAY ( 3 , 1 ) DASH-LINE1 .
ACCEPT HIT.
DISPLAY TITLE.
DISPLAY OBJECT.
DISPLAY ( 1 , 1 ) DASH-LINE1 .
DISPLAY ( 3 , 1 ) DASH-LINE1 .
ACCEPT HIT
.