10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!             HORN.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 R=1:&:& "HORNBY PRODUCTS WAREHOUSE LOCATION PROBLEM":
	&:& "THIS PROGRAM ALLOWS YOU TO MAKE UP TO FIVE RUNS":
	& "EACH RUN WITH A DIFFERENT WAREHOUSE COMBINATION":
	& "AT THE START OF EACH RUN INPUT HOW MANY WAREHOUSES YOU WISH"
110 & "TO USE. (NOTE: INPUT '-1' TO END THE PROGRAM.)":&:
	& "THEN INPUT THE WAREHOUSE NUMBERS":&
120 OPEN "$HORN.DAT" FOR INPUT AS FILE 2%:
	DIM #2%,K0%(10%,25%),M%(25%),I4%(10%):
	DIM L%(10%),I0%(10%,25%),N1%(10%),I3%(10%,25%),X0(10%)
200 &:&:& "RUN #";R:&:INPUT "HOW MANY WAREHOUSES ";N3%:
	GOTO 9999 IF N3%<=0%:&:
	& "WAREHOUSE LOCATIONS? HIT RETURN AFTER ENTERING EACH LOCATION":
	INPUT L%(I%) FOR I%=1% TO N3%
205 &:INPUT "DIRECT OUTPUT TO ";F$:
	F$="KB:" IF LEN(F$)=0%:OPEN F$ FOR OUTPUT AS FILE 1%
220 I6%=10%:I1%=25%:% FOR I%=1% TO 5%:
	% "WAREHOUSES IN TOTAL = ";N3%:%:
	% "WAREHOUSE NUMBERS ARE  ";:
	% USING "###",L%(I%); FOR I%=1% TO N3%
230 %:%:% "WAREHOUSE REPRESENTATIVE(S)    ":
	FOR I%=1% TO I6%:N1%(I%)=0%:I3%(I%,J%)=0% FOR J%=1% TO I1%:
	NEXT I%:X2=0:GOTO 300 IF N3%>0%:I%=L%(1%):
	FOR J%=1% TO I1%:X=K0%(I%,J%):Y=M%(J%):X2=X2+X*Y:
	I0%(I%,J%)=J%:NEXT J%:N1%(I%)=I1%:GOTO 400
300 FOR J%=1% TO I1%:I%=L%(1%):K%=I%:I5%=2%:M0%=K0%(I%,J%):
	FOR M1%=2% TO N3%:I%=L%(M1%):IF K0%(I%,J%)<M0% THEN
	M0%=K0%(I%,J%):I5%=M1%+1%:K%=I%:GOTO 320 IF M1%>=N3%
310 NEXT M1%:FOR M1%=I5% TO N3%:I%=L%(M1%):I3%(I%,J%)=1% IF K0%(I%,J%)<=M0%:
	NEXT M1%
320 N1%(K%),N%=N1%(K%)+1%:I0%(K%,N%)=J%:Y=M%(J%):X=M0%:
	X2=X2+X*Y:NEXT J%
400 FOR M1%=1% TO N3%:I%=L%(M1%):N%=N1%(I%):%:
	% USING "######   ",I%;:FOR M2%=1% TO N%:
	% CHR$(13%);CHR$(10%);TAB(9); IF M2%=16%:
	% USING "###",I0%(I%,M2%);:NEXT M2%:NEXT M1%
420 X3=0:FOR M1%=1% TO N3%:X0(L%(M1%))=I4%(L%(M1%)):X3=X3+X0(L%(M1%)):
	NEXT M1%:X1=X3+X2:%:%:% USING  "FIXED COST = #########",X3:
	% USING "VARIABLE COST = ######.",X2:
	% USING "TOTAL COST = #########.",X1
430 %:% "ALTERNATIVES FOUND WITH THE SAME VARIABLE COST":
	%:%:N0%=0%:FOR M1%=1% TO N3%:I%=L%(M1%):
	FOR J%=1% TO I1%:GOTO 440 IF I3%(I%,J%)<=0%:N0%=N0%+1%:
	% "WAREHOUSE REPRESENTATIVE(S)" IF N0%<=1%:
	% USING "######   ###",I%,J%
440 NEXT J%:NEXT M1%:% "NONE FOUND" IF N0%<1%:
	R=R+1:% FOR I%=1% TO 5%:CLOSE 1%:
	GOTO 200 IF R<6:CLOSE 2%
9999 END