10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! HORCRE.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 "$HORN.DAT<40>" FOR OUTPUT AS FILE 1%: DIM #1%,K%(10%,25%),M%(25%),I%(10%):I%(10%)=0% 120 FOR I%=1% TO 10%:READ K%(I%,J%) FOR J%=1% TO 25%:NEXT I% 130 READ M%(I%) FOR I%=1% TO 25% 140 READ I%(I%) FOR I%=1% TO 10% 150 !KCOST( , ) DATA FOLLOWS 160 DATA 1,4,13,7,4,2,16,9,13,10,15,9,14,12,4,10,8,8,6,16,11,8,12 170 DATA 13,13,13,15,1,6,10,11,10,6,3,4,4,10,8,9,9,16,8,14,12,11 180 DATA 2,7,13,5,15,16,15,10,11,15,14,1,7,7,8,6,7,2,4,12,13,8,12 190 DATA 11,2,9,14,7,5,9,9,10,6,4,8,7,7,1,4,2,6,4,5,4,5,10,2,8,6,8 200 DATA 4,7,7,4,10,15,16,4,8,13,13,6,6,3,5,1,9,4,7,11,15,8,14,12 210 DATA 8,5,11,11,2,13,12,11,9,8,12,10,4,4,6,5,7,3,3,1,8,9,4,8,7 220 DATA 4,8,11,4,5,7,8,4,14,9,10,6,12,8,12,10,14,5,11,8,6,2,6,1,3 230 DATA 11,12,12,6,12,6,11,13,2,4,8,9,9,4,3,2,5,8,7,8,7,14,6,12,10 240 DATA 11,1,5,11,5,14,8,11,7,4,4,7,14,7,8,7,11,10,12,11,6,15,8 250 DATA 12,9,15,5,1,14,10,16,12,10,13,10,14,11,7,7,10,9,11,4,6,4 260 DATA 9,6,6,6,7,5,11,14,1,9,3 270 ! MEET( ) DATA FOLLOWS 280 DATA 240,160,240,260,100,160,400,200,320,220,190,100,140 290 DATA 340,120,120,360,240,210,150,340,300,260,170,180 300 ! IFIX( ) DATA FOLLOWS 310 DATA 2700,2900,3500,2200,3300,2300,1500,3000,2000,1800 320 CLOSE 1%:END