10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!             OROB.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 &:&:& "ORO DEL MAR - PRODUCTION PLAN":
	&:&:DIM D0(12%),B1(12%),P0(12%):
	B3=180:O0=270:R=40:H0=50:F=200:O2=1.25
190 MAT READ D0(12%):U$="#####":U1$="#######":
	DATA 60,60,60,80,130,200,250,280,240,170,150,120
195 DATA 1,100,60,2,100,150,3,100,80,4,200,100,5,200,150
196 DATA 6,200,220,7,200,300,8,200,200,9,200,200,10,100,150
197 DATA 11,100,150,12,100,100
200 &"ENTER THE MONTH CODE, NO. OF MEN AND UNITS OF PRODUCTION":
	& "IN THAT ORDER SEPARATED BY COMMAS.":
	&:& "INPUT ALL TWELVE MONTHS IN ORDER. YOU CAN MAKE CHANGES":
	& "LATER IF YOU MAKE A MISTAKE.":&:I%=1%
300 INPUT J%,B1(I%),P0(I%):IF J%<>I% THEN &:
	& "YOUR MONTH CODE IS OUT OF ORDER RE-ENTER THE LINE":GOTO 300
310 I%=I%+1%:GOTO 300 IF I%<13%
400 &:&:INPUT "DO YOU WANT TO MAKE ANY CHANGES ";F$:
	GOTO 500 IF ASCII(F$)=78%:&:
	& "ENTER YOUR CHANGES IN THE SAME FASHION AS YOU ENTERED THE":
	& "ORIGINAL DATA. ENTER '0,0,0' WHEN ALL CHANGES HAVE BEEN ENTERED."
410 INPUT J%,B2,P1:GOTO 500 IF J%=0%:IF J%<1% OR J%>12% THEN &:
	& "THE MONTH CODE IS INVALID RE-ENTER THE LINE":GOTO 410
415 B1(J%)=B2:P0(J%)=P1:GOTO 410
500 T=0:E0=100:B0=10:&:INPUT "DIRECT OUTPUT TO ";F$:
	F$="KB:" IF LEN(F$)=0%:OPEN F$ FOR OUTPUT AS FILE 1%:
	% FOR I%=1% TO 5%:% TAB(12);"ORO DEL MAR - PRODUCTION PLAN":
	%:%:%
510 % TAB(9);"BEG.";SPACE$(11%);"END.   INV.   BASE   OTME  ";:
	% "H/FIRE   TOT.":% "MO. MEN  INV. PROD DEMD INV.   ";:
	% "COST   WAGE   COST   COST    COST":%
520 FOR M%=1% TO 12%:B4=B1(M%):GOTO 530 IF B4>=P0(M%):
	P=O2*B1(M%):P0(M%)=P IF P<P0(M%):O1=P0(M%)-B4:
	O=O1*O0:GOTO 540
530  O=0
540 E=B0-D0(M%)+P0(M%):E=0 IF E<0:A=(B0+E)*.5:
	C=A*R:D=B1(M%)-E0:IF D<0 THEN H=D*(-1*F) ELSE
	IF D=0 THEN H=0 ELSE H=D*H0
550 B=B3*B1(M%):T=T+B+H+C+O:% USING "## #### ",M%,B1(M%);:
	% USING U$,B0;:% USING U$,P0(M%);:
	% USING U$,D0(M%);:% USING U$,E;:% USING U1$,C;:
	% USING U1$,B;:% USING U1$,O;
560 % USING U1$,H;:% USING "########",T:B0=E:E0=B1(M%):NEXT M%:
	% FOR I%=1% TO 5%:CLOSE 1%:&:&:
	INPUT "DO YOU WANT TO RUN AGAIN";F$:
	IF ASCII(F$)=89% THEN GOTO 400 ELSE END