10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!            MCACRE.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 OPEN "$MCAL.DAT<40>" FOR OUTPUT AS FILE 1%:
	DIM #1%,I%(115%),I1%(100%):I1%(100%)=0%
110 READ I%(I4%) FOR I4%=1% TO 115%:
	READ I1%(I4%) FOR I4%=1% TO 100%:
	CLOSE 1%
120 ! ITME1() FOLLOWS
130 DATA 3,5,8,6,5,3,4,4,5,6,5,3,10,8,6,2,6,5,8,7,5,11,6,5,3,4,9,5
140 DATA 5,9,6,6,2,6,4,6,6,7,5,4,7,5,8,8,6,4,5,7,8,3,8,10,7,6,4,4,5
150 DATA 5,6,7,5,9,4,5,8,10,8,2,6,5,8,8,6,6,5,9,3,4,7,7,6,6,3,5,6
160 DATA 4,7,4,4,8,8,3,6,6,5,8,9,8,3,3,5,5,5,6,5,4,4,5,8,8,5,10,4,3,5
170 ! ITME2() FOLLOWS
180 DATA 3,4,3,8,5,5,5,6,7,9,3,6,6,3,2,5,9,6,4,7,8,5,4,10,3,6,9,4,6,3,4
190 DATA 2,5,9,4,7,8,5,5,6,5,6,8,7,6,3,7,8,8,10,6,3,5,8,6,6,9,3,5,4,6,5
200 DATA 10,9,6,8,4,2,7,5,3,8,8,6,3,6,8,6,6,2,6,5,4,3,8,6,2,5,5,6,3,4
210 DATA 5,5,4,5,6,9,5,10
220 END