10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!             GAME.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 &:&:& "THE GAMING COMPANY (B)":&:&
105 INPUT "POLICY CODE ";I0%:IF I0%>0% AND I0%<5% THEN & ELSE
	& "VALID POLICY CODES ARE '1,2,3,4'.":&:GOTO 105
106 INPUT "MINIMUM R OR T ";M1%:IF M1%<1% THEN 
	& M1%;" IS AN INVAILD R OR T MINIMUM.":&:GOTO 106
107 INPUT "MAXIMUM R OR T";M%:INPUT "INCREMENT R OR T";L0%:&
110 INPUT "MINIMUM Q OR S ";M2%:IF M2%<1% THEN 
	& M2%;" IS AN INVAILD Q OR S MINIMUM.":&:GOTO 110
115 INPUT "MAXIMUM Q OR S ";M0%:INPUT "INCREMENT Q OR S ";L1%:&:
	INPUT "FIRST ORDER ";N0%:&:INPUT "DIRECT OUTPUT TO";F$:
	F$="KB:" IF LEN(F$)=0%:OPEN F$ FOR OUTPUT AS FILE 1%
120 DIM S(50%):C=.1:S0=9:L2%=50%:S3=997:MAT READ S:
	DATA 18,18,17,25,21,19,18,25,20,19,17,18,16,24,20,26,21
125 U1$="########.":U2$="#######.#":U$="############.#"
130 DATA 19,23,21,16,22,23,16,20,25,28,18,17,24,18,22,18,17,24,23,18
	,18,20,16,19,25,18,18,18,17,19,19,18,18
140 % FOR I2%=1% TO 5%:%  "THE GAMING COMPANY (B)":%:
	N0%=1% IF N0%<1%:L0%=1% IF L0%<1%:L1%=1% IF L1%<1%:
	L%=(((M%-M1%)/L0%)+1%)*(((M0%-M2%)/L1%)+1%)
150 GOTO 9010 IF L%>50%:K%=1%:FOR M3%=M1% TO M% STEP L0%:
	FOR M4%=M2% TO M0% STEP L1%:GOTO 200 IF K%<=0%:
	%:% :ON I0% GOTO 155,160,165,170
155 % "THIS IS AN R,Q POLICY WITH R =";M3%;" AND Q =";M4%:
	GOTO 175
160 %  "THIS IS AN R,S POLICY WITH R =";M3%;" AND S =";M4%:
	GOTO 175
165 % "THIS IS A T,Q POLICY WITH T =";M3%;" AND S =";M4%:
	%:% "WEEK OF FIRST ORDER = ";N0%:GOTO 175
170 % "THIS IS A T,S POLICY WITH T =";M3%;" AND S =";M4%:
	%:% "WEEK OF FIRST ORDER =";N0%
175 %:%:% "WEEK   MONDAY    WEEKS   FRIDAY    ORDER";:
	% "    INVTY    SHORT    TOTAL":
	% "NUMB   INVTRY    DEMND   INVTRY    COSTS    COSTS    ";:
	% "COSTS    COSTS":%
200 C1,S2,S1,S4=0:B0=74:FOR N%=1% TO L2%:
	GOTO 210 IF I0%>2%:X=M3%:GOTO 215 IF B0<=X:GOTO 300
210 GOTO 300 IF N%<N0%:I%=N%-N0%:J%=I%-((I%/M3%)*M3%):
	GOTO 300 IF J%>0%
215 IF I0%=1% OR I0%=3% THEN O=M4% ELSE X=20-B0:X=0 IF X>0:
	GOTO 300 IF O<=0
290 C2=S0:GOTO 310
300 O,C2=0
310 S2=S2+C2:B=B0-S(N%):IF B>=0 THEN C0=0 ELSE C0=-1*B:B=0
320 S4=S4+C0:C3=B*C:S1=S1+C3:C1=C1+C0+C3+C2:GOTO 400 IF K%<=0%:
	% USING "####",N%;:% USING U1$,B0;:
	% USING U1$,S(N%);:% USING U1$,B;:
	% USING U2$,C2;:% USING U2$,C3;
330 % USING U2$,C0;:% USING U2$,C1
400 B0=B+O:NEXT N%:GOTO 690 IF K%<=0%:%:% "       TOTALS";:
	% USING U1$,S3;:% SPACE$(9%);:
	% USING U2$,S2;:% USING U2$,S1;:
	% USING U2$,S4;:% USING U2$,C1
405 %:%:% "   SUMMARY OUTPUT -      NO. OF PERIODS =";:
	% USING "####    TOTAL DEMAND = ####",L2%,S3
410 %:%:% TAB(3);:IF I0%=1% THEN % "R    Q"; ELSE
	IF I0%=2% THEN % "R    S"; ELSE IF I0%=3% THEN % "T    Q";
	ELSE IF I0%=4% THEN % "T    S";
660 % "       TOTAL COST    ORDER COST    INVTRY COST";:
	% "    SHORT COST":%:K%=0%
690 % USING "#####",M3%;:% USING "#####",M4%;:
	% USING U$,C1;:% USING U$,S2;:% USING U$,S1;:
	% USING U$,S4
700 NEXT M4%:NEXT M3%:GOTO 9999
9010 &:&:& "TOTAL NUMBER OF EVALUATIONS REQUESTED EXCEDDS 50."
9999 CLOSE 1%:END