5 ! TALLY - COUNT CLASS ENROLLMENTS 100 OPEN "**MASTER" AS FILE 1 : DIM# 1 ,M%(100) 110 OPEN "**PRESTS" AS FILE 10 : DIM# 10 ,E6%( 2222 ,2) 120 OPEN "**STATUS" AS FILE 7 : DIM# 7 ,E9%( 2222 ,2) 130 OPEN "**ESTAT" AS FILE 3 : DIM# 3 ,E8%( 2222 ,2) 160 DIM T%(1000) ! TEMP TALLY FILE 170 READ T$(I) FOR I=1 TO 7 180 DATA 0,1,2,3,4,5,6 200 !!*****START WORK******************** 210 N=E8%(0,0) !***N=# OF CLASSES 220 T%(I)=0% FOR I=0 TO N !ZERO TALLIES 225 A%=0 ! WANT TO LOOK AT FILE 0 230 OPEN "**STINF.KB"+NUM$(A%) AS FILE 4 : DIM# 4 ,S9%(500,13),N(500),S$(500)=32 235 F=M%(94%) ! # OF TERMINALS 236 CLOSE 4 300 !*******TALLY FOR EACH TERMINAL********** 310 FOR I=1 TO F 320 A%=I-1 ! FILE # 330 OPEN "**CLASF.KB"+NUM$(A%) AS FILE 9 : DIM# 9 ,C9%( 2222 ) 340 T%(J)=T%(J)+C9%(J) FOR J=0 TO N !ADD TERMS TALLY 350 CLOSE 9 !THHRU WITH TERM FILE CLOSE IT 360 NEXT I 500 !*****DETERMINE CLOSED CLASSES ************ 510 FOR J=1 TO N 520 E8%(J,2)=T%(J)+E6%(J,2)!CLASS EN=PRESENT ENR + PRE,ENR 530 IF E8%(J,2)+2%E8%(J,2) THEN 590 540 !************CLOSED CLASS************** 550 IF E9%(J,1)<=4 THEN E9%(J,1)=E9%(J,1)+5! CLOSE IT IF NEEDED 590 NEXT J 600 E6%(0,1)=T%(0) ! NUMBER OF STUDENTS ENROLLED 605 E6%(0,0)=M%(2%) ! # OF STUDENTS ENROLLED 610 CLOSE 1,3,7,10 700 PRINT "YOUR COFFEE BREAK IS OVER--GET BACK TO WORK" 710 CHAIN "TALLY2" 9999 END