5 DEF FNK$=NUM$(ASCII(RIGHT(SYS(CHR$(6)+CHR$(9)),2%))/2%)
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%)
52 FNR$=SPACE$(N-LEN(X9$))+X9$
55 FN END
60 V$=SYS(CHR$(7))
62 C9$=LEFT(V$,4%):V$=RIGHT(V$,5%)
64 R9%=CVT$%(LEFT(V$,2%)):V$=RIGHT(V$,3%)
66 K%=CVT$%(LEFT(V$,2%)):V$=RIGHT(V$,3%)
68 I%=INSTR(1%,V$,"/")
70 N$=LEFT(V$,I%-1%):V$=RIGHT(V$,I%+1%)
72 I%=INSTR(1%,V$,"/")
74 C1$=LEFT(V$,I%-1%):D1$=RIGHT(V$,I%+1%)
100 OPEN"ENTRY." + FNK$ AS FILE 4:DIM#4,A(63,1)
110 OPEN "SAVE."+FNK$ AS FILE 5:DIM #5,S(42)
131 OPEN "WRKSHT."+FNK$ AS FILE 2
140 DIM P(40),A1(80)
155 N1%=A(61,0)
160 A1(A(J%,0%))=A1(A(J%,0%))+A(J%,1%) FOR J%=N1%+1% TO K%
194 CLOSE 4
200 &#2SPACE$(10);N$:&#2:&#2
210 &#2 SPACE$(48);C1$:&#2
220 &#2SPACE$(56);"WORK SHEET":&#2
230&#2SPACE$(45);"FOR PERIOD ENDING ";D1$
240&#2:&#2
250 &#2SPACE$(1);
260 &#2"-"; FORI9%=1% TO 120%:&#2
270 &#2 SPACE$(16)"ACCOUNT"; TAB(36%);"I";SPACE$(5);
    "TRIAL BALANCE";
280 &#2SPACE$(4);"I";SPACE$(5);"ADJUSTMENTS";SPACE$(4);"I";SPACE$(2);
    "INCOME STATEMENT";SPACE$(1);"I";SPACE$(3);
290 &#2"BALANCE SHEET";SPACE$(3);"I"
300 &#2 SPACE$(17)"TITLE";SPACE$(14);"I";SPACE$(5);"DR.";
303 &#2 SPACE$(7);"CR.";SPACE$(4);"I";SPACE$(4);"DR.";SPACE$(7);"CR.";SPACE$(3);"I";
310 &#2 SPACE$(3);"DR.";SPACE$(7);"CR.";SPACE$(3);"I";SPACE$(3);
	"DR.";SPACE$(7);"CR.";SPACE$(3);"I"
330 &#2SPACE$(1);
340 &#2"-";FOR I%=1% TO 120%:&#2
350 FOR J%=1% TO 40%
360 K2%=2%*J%-1%
370 L%=2%*J%
380 I1%=1%
390 I2%=1%
400 IF S(J%)+.01>0 THEN 420
405 P(J%)=ABS(S(J%))
410 I1%=I1%+1%:GOTO 440
420 IF S(J%)-.01<0 THEN 440
430 I1%=I1%+2%
440 IF A1(K2%)=0 THEN 470
450 I2%=I2%+1%
460 D=D+A1(K2%)
470 IF A1(L%)=0 THEN 500
480 I2%=I2%+2%
490 C=C+A1(L%)
500 IF I1%<>1% THEN 520
510 IF I2%=1% THEN 2000
520 OPEN "$CHART" AS FILE 9
530 INPUT#9,N9$ FOR I%=1% TO J%   !*******************
535 &#2 SPACE$(36);"I";SPACE$(22);"I";SPACE$(20);"I";SPACE$(19);"I";SPACE$(19);"I"
540&#2SPACE$(1);N9$;TAB(36);"I";SPACE$(22);"I";SPACE$(20);"I";SPACE$(19);"I";SPACE$(19);"I";CHR$(13);
560 ON I1% GOTO 570,580,590
570 ONI2% GOTO 2000,600,620,640
580 ON I2% GOTO660,680,700,720
590 ON I2% GOTO740,760,780,800
600 &#2 TAB(61);FNR$(A1(K2%),8)
610 GOTO2000
620 &#2 TAB(71);FNR$(A1(L%),8)
630 GOTO2000
640 &#2 TAB(61);FNR$(A1(K2%),8);TAB(71);FNR$(A1(L%),8)
650 GOTO2000
660 &#2 TAB(38);FNR$(P(J%),9)
670 GOTO2000
680 &#2TAB(38);FNR$(P(J%),9);TAB(61);FNR$(A1(K2%),8)
690 GOTO 2000
700 &#2 TAB(38);FNR$(P(J%),9);TAB(71);FNR$(A1(L%),8)
710 GOTO2000
720 &#2TAB(38);FNR$(P(J%),9);TAB(61);FNR$(A1(K2%),8);TAB(71);FNR$
    (A1(L%),8)
730 GOTO 2000
740 &#2TAB(49);FNR$(S(J%),9)
750 GOTO2000
760 &#2TAB(49);FNR$(S(J%),9);TAB(61);FNR$(A1(K2%),8)
770 GOTO2000
780 &#2 TAB(49);FNR$(S(J%),9);TAB(71);FNR$(A1(L%),8)
790 GOTO2000
800 &#2TAB(49);FNR$(S(J%),9);TAB(61);FNR$(A1(K2%),8);
    TAB(71);FNR$(A1(L%),8)
2000 NEXT J%
2060 D1=S(41): C1=S(42)
2080 & #2
2100&#2 SPACE$(37);"---------- ----------";
2110 &#2"  --------- ---------"; FOR I%=1% TO 2%
2120 &#2" --------- ---------":&#2
2130 &#2SPACE$(37);FNR$(D1,10);SPACE$(1);FNR$(C1,10);SPACE$(2);FNR$(D,9);SPACE$(1);FNR$(C,9)
2140 &#2 SPACE$(37);"----------";SPACE$(1);"----------  ---------";
2150 &#2" ---------"
2160 &#2 SPACE$(37);"---------- ----------  --------- ---------"
2170 &#2"NET";SPACE$(9);"FOR THE PERIOD"
2180 &#2 SPACE$(5);"-------";TAB(80);
2190 &#2" --------- ---------";FOR I%=1% TO 2%
2200 &#2:&#2:&#2
2220 &#2 TAB(80);
2230 &#2" --------- ---------";FOR I%=1% TO 2%
2240 &#2
2998 &#2 CHR$(26);: CLOSE 2
3000 CHAIN "$"+C9$R9%
4000 END