1!
   ATG3 -- SIMPLE BALANCE SHEET

10 DATA "CASH","SUPPLIES","TELEVISIONS","RADIOS",
	"BOWMAN RADIO CO.","CAPITAL"
20DEF FNK$=NUM$(ASCII(RIGHT(SYS(CHR$(6)+CHR$(9)),2%))/2%)
30 OPEN "BALSHT."+FNK$ FOR OUTPUT AS FILE 2%
99!
   ROUNDING AND PRINTING FUNCTION

100 DEF FNR$(X,N)
110 X= INT  (X*100+.5)/100
120 X9$=NUM$(X):X9%=LEN(X9$):X9$=MID(X9$,2%,X9%-2%):Q8%=INSTR(1,X9$,".")
130 X9%=X9%-2%
140 IF Q8%=0% THEN X9$ = X9$+".00": GO TO 160
150 IF X9% = Q8%+1% THEN X9$ = X9$+"0": GO TO 160
160 FNR$=SPACE$(N-LEN(X9$))+X9$
170 FN END
199!
   HEADER INFORMATION

200 INPUT"NAME";N$
210 INPUT"COMPANY";C1$
220 &"DATE";:INPUT LINE D1$
230 &#2SPACE$(10);N$:&#2:&#2:&#2:&#2
240 &#2SPACE$(44);C1$:&#2
250 &#2 SPACE$(44);"BALANCE SHEET":&#2
260 &#2 SPACE$(44);D1$:&#2:&#2
299!
   DATA INPUT

300 FOR I%=1% TO 6%
310 READ A$
320 & A$;
330 INPUT Y(I%)
340 IF Y(I%)<=99999.99 THEN 360
350 & "ILLEGAL AMOUNT": GOTO 320
360 NEXT I%
370 A= Y(1)+Y(2)+Y(3)+Y(4)
380 L= Y(5)+Y(6)
399!
   PRINTING OF THE BALANCE SHEET

400 &#2 SPACE$(20);"ASSETS"; SPACE$(41);"LIABILITIES":&#2
410 &#2SPACE$(5);"CASH";SPACE$(26);"$";FNR$(Y(1),12);SPACE$(8);
    "BOWMAN RADIO CO.";SPACE$(21);"$";FNR$(Y(5),12):&#2
420 &#2SPACE$(5);"SUPPLIES";SPACE$(23);FNR$(Y(2),12):&#2
430 &#2SPACE$(5)"TELEVISIONS";SPACE$(20);FNR$(Y(3),12);SPACE$(19);
    "CAPITAL":&#2
440 &#2SPACE$(5);"RADIOS";SPACE$(25);FNR$(Y(4),12);SPACE$(8);
    "CAPITAL";SPACE$(31);FNR$(Y(6),12)
450 &#2SPACE$(36);"------------";SPACE$(46);"------------":&#2
460 &#2SPACE$(5);"TOTAL ASSETS";SPACE$(18);"$";FNR$(A,12);
    SPACE$(8);"TOTAL LIABILITIES AND CAPITAL";
470 &#2SPACE$(8);"$";FNR$(L,12)
480&#2SPACE$(36);"------------";SPACE$(46);"------------" FORI%=1%TO2%
500 IF A<>L THEN &"*** TOTALS DO NOT BALANCE ***":
	&#2%: &#2% "*** TOTALS DO NOT BALANCE ***"
510 &#2% CHR$(26%); : CLOSE 2%
520&:&:&"OUTPUT FOR KB:";FNK$;"IS READY FOR DUMPING":&:&
540END