10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!            HUTCRE.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 "$HUTC.DAT<40>" FOR OUTPUT AS FILE 1%:
	DIM #1%,C0(5%,12%),C(5%),R(12%),H$(17%)=16%:H$(17%)=""
200 READ C0(I%,I1%) FOR I1%=1% TO 12% FOR I%=1% TO 5%
300 READ C(I%) FOR I%=1% TO 5%
400 READ R(I%) FOR I%=1% TO 12%
500 READ H$(I%) FOR I%=1% TO 17%
1000 ! COST( , ) DATA FOLLOWS
1100 DATA 3.55,3.65,4.35,4.80,3.15,3.65,3.75,3.80,3.70,3.80,4.50,3.85
1200 DATA 4.05,4.30,4.45,4.30,3.90,3.80,3.30,4.05,4.20,4.50,4.35,4.15
1300 DATA 4.30,4.85,3.80,3.65,4.35,3.85,4.05,4.00,4.35,4.75,3.00,4.90
1400 DATA 4.55,4.05,5.35,5.10,4.15,4.70,4.30,4.85,4.70,4.85,5.35,3.45
1500 DATA 3.05,3.90,3.25,4.15,3.40,3.05,3.50,2.75,3.10,3.50,3.75,4.15
2000 ! CAP( ) DATA FOLLOWS
2100 DATA 500,100,500,100,300
3000 !REQ( ) DATA FOLLOWS
3100 DATA 65,39,86,187,312,25,34,38,53,37,135,46
4000 !HEADING DATA FOLLOWS
4100 DATA " 1 INDIANAPOLIS"," 2 LAFAYETTE"," 3 SOUTH BEND"
4200 DATA " 4 TERRE HAUTE"," 5 MARION"
4300 DATA " 1 ANDERSON"," 2 BLOOMINGTON"," 3 FORT WAYNE"
4400 DATA " 4 GARY"," 5 INDIANAPLOIS"," 6 KOKOMO"," 7 LAFAYETTE"
4500 DATA " 8 MARION"," 9 MUNCIE","10 RICHMOND","11 SOUTH BEND"
4600 DATA "12 TERRE HAUTE"
9999 CLOSE 1%:END