1! SUBROUTINE TRBAL--TRIAL BALANCE AND POST-CLOSING TRIAL BALANCE
2 DEF FNK$=NUM$(ASCII(RIGHT(SYS(CHR$(6)+CHR$(9)),2%))/2%)
3 GOTO5
4 OPEN"PSTBAL."+FNK$AS FILE 2 : GOTO 10
5 OPEN "TRBAL."+FNK$ AS FILE 2
10 OPEN "ENTRY."+FNK$ AS FILE4:DIM#4, A(63,1)
25 OPEN "SAVE."+FNK$ FOR OUTPUT AS FILE 7: DIM #7,S(40)
27 DIM A2(80)
29!
	ROUNDING AND PRINTING FUNTION

30 DEF FNR$(X,N)
40 X9$=MID(NUM$(X/100),2%,LEN(NUM$(X/100))-2%)
45 IF INSTR(1,X9$,".")=0%THEN X9$=X9$+".00" ELSE
	X9$=LEFT(X9$+"00",INSTR(1,X9$,".")+2%)
50 FNR$=SPACE$(N-LEN(X9$))+X9$
55 FN END
59!
	REMOVE INFORMATION FROM COMMON CORE

60 V$= SYS(CHR$(7))
65 C9$=LEFT(V$,4)
70 R9%=CVT$%(MID(V$,5,2))
75J=CVT$%(MID(V$,7,2))
80 N1%=CVT$%(MID(V$,9,2))
85 V$=RIGHT(V$,11)
90 I%=INSTR(1%,V$,"/")
95 N$=LEFT(V$,I%-1%):V$=RIGHT(V$,I%+1%)
100 I%=INSTR(1%,V$,"/")
110 C1$=LEFT(V$,I%-1%):D$=RIGHT(V$,I%+1%)
200 IF J=2 THEN 260
209!
	GENERATE TRIAL BALANCE SHEET

210 &#2, SPACE$(10);N$:&#2:&#2:&#2:&#2
220 &#2 SPACE$(20);C1$:&#2
230 &#2 SPACE$(21);"TRIAL BALANCE":&#2
240 &#2 SPACE$(21); D$:&#2:&#2:&#2
250 GOTO 300
260 &#2 SPACE$(10); N$:&#2:&#2:&#2:&#2
270 &#2 SPACE$(29);C1$:&#2
280&#2SPACE$(15); "POST-CLOSING TRIAL BALANCE":&#2
290 &#2 SPACE$(21);D$:&#2:&#2:&#2
300 A2(I%)=0% FOR I%=1% TO 80%
330 I%,I2%=1%
340 FOR J%=1% TO N1%
350 L=ABS(A(J%,0%))
360 A2(L)=A2(L)+A(J%,1%)
370 NEXT J%
380 S(I%) =0% FOR I% = 1% TO 40%
390 FOR J%=1% TO 80% STEP2%
400 D1=A2(J%)-A2(J%+1%)
410 C1=ABS(D1)
420 IF C1-.01<0 THEN 600
430 K1%=(J%+1%)/2%
440 OPEN "$CHART" FOR INPUT AS FILE 6
450 INPUT #6,N1$ FOR I% = 1% TO K1%
460 CLOSE 6
470 IF D1<=0 THEN 540
480 &#2 N1$;TAB(43);FNR$(D1,12);CHR$(13);
490 IF I1%=2% THEN 510
500 &#2 SPACE$(41);"$";:I1%=2%
510 &#2:D=D+D1
520 S(K1%) = -D1
530 GOTO 600
540 &#2 N1$;TAB(57);FNR$(C1,12);CHR$(13);
550 IF I2%=2% THEN 580
560 &#2 SPACE$(55);"$";
570 I2% = 2%
580 &#2:C=C+C1
590 S ( K1%) = C1
600 NEXT J%
610 &#2 SPACE $ (43); "------------";
SPACE $ (2); "------------": &#2
620 &#2 SPACE $ (42); "$"; FNR$ (D,12);
SPACE $ (1); "$"; FNR$ (C,12)
625 FOR I% = 1% TO 2%
630 &#2 SPACE$(43);"------------";SPACE$(2);"------------"
635 NEXT I%
650 IF D1=C1 THEN 665
660 IF J = 1 THEN 670
665 &#2 CHR$(26);: CLOSE 2,4,7
666 V$=SYS(CHR$(8)+N$+"/"+C1$+"/"+D$): CHAIN "$"+C9$R9%
670 &:&:&:&SPACE$ (10); "***** TOTAL DEBITS AND CREDITS IN
" THE TRIAL BALANCES ARE NOT EQUAL": GO TO 665
800 END