10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! MCAL.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 &:&:& "MC ALLISTER SIMULATION":&:&: INPUT "WHAT IS THE INITIAL INVENTORY ";I1%: I2%=I1%:&:&: INPUT "DO YOU WANT A DETAILED REPORT ";D$ 105 &:&:INPUT "DIRECT OUTPUT TO ";F$:F$="KB:" IF LEN(F$)=0%: OPEN F$ FOR OUTPUT AS FILE 1%: IF ASCII(D$)=78% THEN I7%=-1% ELSE I7%=0% 110 OPEN "$MCAL.DAT" FOR INPUT AS FILE 2%: DIM #2%,I5%(115%),I6%(100%):DIM I%(100%) 115 N%=100:I3%,K0%,I0%=0%:I4%=I1%+1%:K%=I5%(I4%) 116 U$=U$+"########## " FOR I%=1% TO 6%:GOSUB 1000 120 IF K%=K0% THEN 150 ELSE IF K%>K0% THEN 170 ELSE I1%=I1%+1%:I4%=I4%+1%:K%=K%+I5%(I4%):GOTO 120 150 I3%=I3%+1%:I4%=I4%+1%:K%=K%+I5%(I4%):GOTO 240 170 IF I1%>0% THEN 230 ELSE M%=I3%+1%:I%(M%)=K%-K0%: I0%=I0%+I%(M%):K0%=K%:GOTO 120 230 I1%=I1%-1%:I3%=I3%+1% 240 K0%=K0%+I6%(I3%):GOTO 250 IF I7%: % USING U$,I3%,I5%(I3%),I6%(I3%),K0%,I1%,I%(I3%): GOSUB 1000 IF I3%=50% 250 GOTO 120 IF I3%