10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!             HUTC.BAS                !!
   !!COMPUTER AUG. CASES IN OP. AND LOG.  !!
   !!            MANAGEMENT               !!
20 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!              AUTHORS                !!
   !!  WILLIAM BERRY & D. CLAY WHYBARK    !!
30 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!             PUBLISHER               !!
   !!           SOUTH-WESTERN             !!
40 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!        RSTS/11 VERSION BY           !!
   !!          DARRYL JOHNSON             !!
   !!          BENTLEY COLLEGE            !!
   !!             MAY 1973                !!
50 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
100 DIM S0(5%,12%),L0%(5%,12%),T2(5%),N%(5%),N0%(12%),S1(12%),T1(5%),S(12%):
	U$="############## ############## ############.##":
	&:&:&"HUTCHINSON GAS SERVICE COMPANY":&
200 OPEN "$HUTC.DAT" FOR INPUT AS FILE 2%:
	DIM #2%,C0(5%,12%),C(5%),R(12%),H$(17%)=16%
300 &:&:INPUT "HOW MANY SERVICE FACILITIES ";N2%:GOTO 9999 IF N2%<=0%:
	FOR I%=1% TO 5%:N%(I%)=0%:
	S0(I%,J%),L0%(I%,J%)=0% FOR J%=1% TO 12%:NEXT I%:
	FOR I%=1% TO N2%:&:&:INPUT "SERVICE FACILITY NUMBER ";N1%
310 M%=0%:&:&:& "TYPE IN THE CUSTOMER NUMBER AND THE NUMBER OF TANKS":
	& "SEPARATED BY COMMAS. ENTER  '0,0' WHEN ALL CUSTOMERS":
	& "FOR THIS FACILITY ARE ENTERED."
320 M%=M%+1%:INPUT N0%(M%),S1(M%):GOTO 330 IF N0%(M%)=0%:
	GOTO 320 IF N0%(M%)<=12% AND N0%(M%)>0%:
	&:& "YOUR DATA IS INCORRECT. START AGAIN FOR THIS FACILITY":
	GOTO 310
330 FOR J%=1% TO 12%:GOTO 340 IF N0%(J%)<=0%:K%=N0%(J%):
	N%(N1%)=N%(N1%)+1%:S0(N1%,K%)=S1(J%):L%=N%(N1%):
	L0%(N1%,L%)=K%:NEXT J%
340 NEXT I%:T=0:FOR I%=1% TO 5%:T2(I%),T1(I%)=0%:FOR J%=1% TO 12%:
	T1(I%)=T1(I%)+S0(I%,J%)*C0(I%,J%):
	T2(I%)=T2(I%)+S0(I%,J%):NEXT J%:T=T+T1(I%):NEXT I%:
	T0,T3=0:FOR J%=1% TO 12%:S(J%)=0%:T0=T0+R(J%):
	S(J%)=S(J%)+S0(I%,J%) FOR I%=1% TO 5%:T3=T3+S(J%):NEXT J%
345 &:&:INPUT "DIRECT OUTPUT TO ";F$:F$="KB:" IF LEN(F$)=0%:
	OPEN F$ FOR OUTPUT AS FILE 1%
350 % FOR I%=1% TO 5%:% TAB(20);"HUTCHINSON GAS SERVICE COMPANY":
	%:%:% TAB(21);"SHIPPING AND SERVICING REPORT":
	% FOR I%=1% TO 4%:% TAB(21);"TANK SERVICING FACILITY RESULTS":
	%:% TAB(7);"FACILITY";
360 % SPACE$(10%);"CAPACITY"; SPACE$(7%);"SHIPMENTS        COST":
	FOR I%=1% TO 5%:% H$(I%);TAB(17);:% USING U$,C(I%),T2(I%),T1(I%):
	NEXT I%:%:% TAB(37);"TOTAL COST =";:% USING "##########.##",T:
	%:%
370 % TAB(7);"FACILITY        CUSTOMERS":
	%:FOR I%=1% TO 5%:% H$(I%+5%);TAB(20);:
	% USING "###",L0%(I%,J%); FOR J%=1% TO N%(I%):%:NEXT I%:
	% FOR I%=1% TO 4%:% TAB(18);"CUSTOMER RESULTS":%:%
380 % TAB(6);"CUSTOMERS";SPACE$(13%);"REQUIREMENTS    RECEIVED":
	%:FOR I%=1% TO 12%:% H$(I%+5%);TAB(20);:
	% USING "############## ##############",R(I%),S(I%):
	NEXT I%:%:%:% TAB(12);"TOTALS =";:
	% USING "############## ###############",T0,T3
390 %:% "NOTE - SHIPMENTS DO NOT EQUAL REQUIREMENTS" IF T0<>T3:
	CLOSE 1%:GOTO 300
9999 CLOSE 2%:END