5	! *** LISTST - LIST STUDENTS IN ALPHABETIC ORDER
100   !**************OPEN DISK FILES**************************
110   !   PRESENT FILES DESIGNED FOR 4000 STUDENTS  JAN 12, 1972
120 OPEN "**MASTER" AS FILE  1  : DIM# 1 ,M%(100)
140 OPEN "**STINF" AS FILE  3  : DIM# 3 ,S$( 1111 )=32
160 OPEN "**STUDF" AS FILE  5  : DIM# 5 ,L%( 1111 ,2),S%( 1111 ,10),N( 1111 )
170	DIM O%(500)
180	A$="####  #########     \                              \"
299   !*******************************************************
300	L%(I%,0)=0% FOR I%=1 TO M%(2) ! ZERO FLAG AREA
400 OPEN "LP:" FOR OUTPUT AS FILE 12
405	O1%=0% ! COUNTER FOR ZERO HOURS STUDENTS
410 PRINT #12,TAB(30);"STUDENT LIST" :PRINT #12,
415 & #12,"******* THERE ARE";M%(2%);" STUDENTS ON THE FILE ******":& #12: & #12 :& #12
420 PRINT #12,TAB(15);DATE$(0),TIME$(0): PRINT #12,
430 PRINT #12,"DP#";TAB(6);"STUDENT#";TAB(20);"********NAME*********"
440 PRINT #12,"-----";TAB(6);"--------";TAB(20);"---------------------"
450 J%=M%(3)
460 FOR I%=2% TO M%(2%)+1%
462	L%(J%,0)=1% !***FLAG THAT HE IS ON THE LIST
465	  IF S%(J%,1%)=0% THEN O1%=O1%+1% : O%(O1%)=J% : GOTO 480%
470	& #12 USING A$,J%,N(J%),S$(J%)
480 J%=L%(J%,1)
485 L%(J%,2)=I%
490 	IF J%=0% THEN GOTO 505
500 NEXT I%
505	& #12,CHR$(12)
506	& #12 : & #12 : & #12,TAB(30);"STUDENTS NO LONGER ENROLLED - 0 HOURS" : & #12
508	& #12 USING A$,O%(I%),N(O%(I%)),S$(O%(I%)) FOR I%=1% TO O1%
510	& #12,CHR$(12) : & #12 : & #12: & #12,TAB(30);"NAMES NOT SORTED" : & #12
515    FOR I=1 TO M%(2)
520	  IF L%(I,0)=0% THEN & #12 USING A$,I,N(I),S$(I)
525 	NEXT I
530	& #12 : & #12 :& #12 ,"************ THERE ARE";M%(2);" STUDENTS  IN THE FILE *************"
9000	CLOSE 1,3,5,12
9999 END