10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! NICCRE.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 "$NICK.DAT<40>" FOR OUTPUT AS FILE 1%:DIM #1%,A(200%): A(200%)=0% 110 FOR I%=1% TO 200%:READ A(I%):NEXT I%:CLOSE 1% 120 !SALES( ) DATA FOLLOWS 130 DATA 10,12,12,12,15,12,11,13,10,12,15,10,12,11,13,12,13 140 DATA 11,11,10,13,6,6,11,10,5,4,5,6,5,4,5,7,6,5,5,5,8,8,4 150 DATA 20,24,20,21,18,19,21,19,23,23,22,19,19,19,20,21,20,19 160 DATA 18,16,23,21,20,20,20,19,17,18,19,22,18,20,18,19,20,20,21 170 DATA 21,18,19,22,17,23,17,16,12,10,11,9,14,9,11,13,10,9,8,10,11 180 DATA 12,10,15,7,11,8,8,13,11,11,7,19,17,20,21,15,21,17,23,17,21 190 DATA 19,21,18,20,20,19,15,19,24,20,22,19,18,15,13,19,15,13 200 DATA 15,15,13,13,18,15,10,17,16,13,13,11,10,10,9,11,12,8 210 DATA 12,9,12,10,13,14,9,14,13,8,12,10,10,13,6,18,19,16,19,17 220 DATA 21,17,18,19,18,18,18,19,20,16,22,18,11,12,10,11,10,11,11 230 DATA 12,8,12,9,9,8 240 END