1000 REM OUTPUT	  [HP PART OF 'MANAGE'( WE RAN OUT OF CORE... )]
1001 L=1
1002 DIM S%(30%)
1003 CHANGE SYS(CHR$(6%)+CHR$(9%)+CHR$(0%)) TO S%:K%=S%(2%)/2%
1005 INPUT "OUTPUT TO";O$
1006 OPEN O$ FOR OUTPUT AS FILE 1%
1010 ! 12/72 & 1/73
1020 OPEN "OUTPUT.DAT" AS FILE 2%: OPEN "OUTUP.DAT" AS FILE 4%
1030 DIM #2%,O(4,5),S(4,5),M(4,5),R(3,5),P(3,4),D(3,4),T(3,5),
	W(4,4),Q(3,6),V(3,2),I(3,5),E(13,4),G(3,2),C(3,4),A(3,3),
	U(3,5),F(3,4),L(3)
1040 DIM #4%,B(4,5),H(4,5),J(3,5),K(3,2),N(3,5)
1050 PRINT:PRINT!			'RITE'
1060 FOR I=1 TO 3:PRINT#1%,:PRINT#1%,:PRINT#1%, "FIRM"I"   PERIOD"L
1070 PRINT#1%,:PRINT#1%,:PRINT#1%, "SALES ANALYSIS":PRINT#1%,
1080 PRINT#1%, "AREA"TAB(25);"1";TAB(35);"2";TAB(45);"3";TAB(55);"4";
1090 PRINT#1%, TAB(62);"TOTAL":PRINT#1%,
1100 PRINT#1%, "ORDERS"TAB(23);INT(B(I,1));TAB(33);INT(B(I,2));
1110 PRINT#1%, TAB(43);INT(B(I,3));TAB(53);INT(B(I,4));TAB(62);INT(B(I,5))
1120 PRINT#1%, "SALES"TAB(23);INT(H(I,1));TAB(33);INT(H(I,2));TAB(43);
	INT(H(I,3));TAB(53);INT(H(I,4));TAB(62);INT(H(I,5))
1130 PRINT#1%, "MARKETING"TAB(23);INT(M(I,1));TAB(33);INT(M(I,2));TAB(43);
	INT(M(I,3));TAB(53);INT(M(I,4));TAB(62);INT(M(I,5))
1140 PRINT#1%, "REVENUE"TAB(23);INT(J(I,1));TAB(33);INT(J(I,2));TAB(43);
	INT(J(I,3));TAB(53);INT(J(I,4));TAB(62);INT(J(I,5))
1150 PRINT #1%,"DLVRD UNIT COST($)     "D(I,1);TAB(33);D(I,2);TAB(43);
	D(I,3);TAB(53);D(I,4):PRINT#1%:PRINT#1%
1160 PRINT#1%, "PROFIT AND LOSS"TAB(39)"CASH FLOW"TAB(50)"FINANCIAL ANALYSIS"
1170 PRINT#1%,:PRINT#1%, "SALES INCOME"TAB(22);INT(J(I,5));TAB(39)"RECEIPTS"
	TAB(58);INT(J(I,5))
1180 PRINT#1%, "COST OF GDS SLD"TAB(22);INT(K(I,1));TAB(39);
	"DISBURSEMENTS"TAB(58);INT(C(I,1))
1190 PRINT#1%, "TRANSPORTATION"TAB(22);INT(N(I,5));TAB(39);"NET FLOW";
	TAB(58);INT(C(I,3))
1200 PRINT#1%, "MARKETING"TAB(22);INT(M(I,5));TAB(39)"NEW BALANCE"TAB(58);
	INT(C(I,2))
1210 PRINT#1%, "RESEARCH"TAB(22);INT(A(I,2)):PRINT#1%, "DEPRECIATION"TAB(22);
	INT(V(I,2));TAB(39)"CASH"TAB(58);INT(C(I,2))
1220 PRINT#1%, "GROSS PROFIT"TAB(22);INT(F(I,1));TAB(39)"INVENTORY";
	TAB(58);INT(I(I,5))
1230 PRINT#1%, "TAXES"TAB(22);INT(F(I,2));TAB(39)"PLANT VALUE"TAB(58);INT(V(I,1))
1240 PRINT#1%, "NET PROFIT"TAB(22);INT(F(I,3));TAB(39)"TOTAL ASSETS"
	TAB(58);INT(C(I,4)):PRINT#1%,:PRINT#1%,
1250 IF INT(C(I,2))<0 THEN PRINT#1%, "YOU ARE BANKRUPT - YOU LOSE !"
1260 PRINT#1%:NEXTI:INPUT"ANOTHER OUTPUT";O1$:IF O1$="YES" THEN
	1050 ELSE INPUT "ANOTHER QUARTER";A$
1270 IF A$="YES" THEN CLOSE 1%,2%,3%,4%:CHAIN "MANAGE"
1280 KILL'OUTPUT.DAT':KILL'OUTUP.DAT':CLOSE 1%,2%,3%,4%
2000 END