5	! BULIST -LIST FILE INFORMATION TO BE USED
10 OPEN "**CLINF" AS FILE  1  : DIM# 1 ,C$( 2222 )=128
12 OPEN "**TIME" AS FILE  7  : DIM# 7 ,T3%( 2222 )
15 OPEN "**SCLINF" AS FILE  2  : DIM# 2 ,C2$( 2222 )=16
25 OPEN "**STATUS" AS FILE  4  : DIM# 4 ,E9%( 2222 ,2)
26 OPEN "**EXTRA" AS FILE  6  : DIM# 6 ,E7%( 2222 )
30 OPEN "**ESTAT" AS FILE  5  : DIM# 5 ,E8%( 2222 ,2)
40 OPEN "**MASTER" AS FILE  8  : DIM# 8 ,M%(100)
50	DIM X(20),X1(20,2)
55	READ Y
60	DATA 8
65	READ X(I) FOR I=1 TO Y
70	DATA 0,1,1,2,2,0,2,2
75	READ X1(I,1),X1(I,2) FOR I=1 TO Y
80	DATA 1,4,5,4,9,2,26,25,56,4,60,5,51,5,11,15
100	PRINT "DO YOU WANT TO 0-STOP, 1-SHORT CLASS FILE LISTINGS"
110	INPUT "              2-CLASS FILE LISTS, 3-CLASS FILE ONLY";G8
120		IF G8=0 THEN 9999
130	INPUT "OUTPUT DEVICE LP: OR KB:";S3$
140	OPEN S3$ AS FILE 12
150		IF G8=2 OR G8=3 THEN 400
160	I1%=M%(93)
200		FOR I%=1 TO E8%(0,0)
210	& #12,I1%;TAB(5);LEFT(C$(I1%),64)
240	PRINT #12,"**********"
245	 I1%=E9%(I1%,2)
250		NEXT I%
260	GOTO 100
400	FOR K=1 TO E8%(0,0)
405	PRINT #12,"***";K;"***"
410	B$=MID(C$(K),X1(1,1),X1(1,2))  ! PICK  UP 1ST FIELD
420			FOR I=2 TO Y
425	IF I=6 THEN B$=B$+SPACE$(49-LEN(B$))
430	IF I=5 THEN 600 ! HANDLE TIME
440	B$=B$+SPACE$(X(I))+MID(C$(K),X1(I,1),X1(I,2))
445	IF I=4 THEN B1$=SPACE$(LEN(B$))
450	IF I=4 AND E7%(K)>0 THEN 500 !EXTRA DES
460	GOTO 700
500	!****EXTRA DESCRIPTION*******
510	Z=LEN(B$)-25 !SPACES TO DES FIELD
529	! SET UP EXTRA DESCRIPTION
530	B1$=SPACE$(Z)+MID(C$(K),65,25)
580	GOTO 700
600	!**** FIX UP TIME FIELD TO PRINT********
601	T9=0
605	X9=5 ! SPACE FOR TIME FIELD
610	T$=MID(C$(K),X1(I,1),X1(I,2))
615	IF LEFT(T$,1)>"9" THEN B$=B$+SPACE$(X(I))+T$ : GOTO 640
620	T=INSTR(1,T$," ")-3 ! FIND THE SPOT FOR ":"
625 IF T<0 THEN T=2
630	B$=B$+SPACE$(X(I))+LEFT(T$,T)+":"+MID(T$,T+1,2)
640	IF T3%(K)=0 THEN 700
650	!**** ENDING TIME *********
655	T$=MID(C$(K),97,16)
656	T7=INSTR(1,T$," ")
660	T$=LEFT(T$,T7-1)
665	IF MID(T$,2,1)>"9" THEN B$=B$+T$ : GOTO 700
670	T=LEN(T$)-2
675 IF T<0 THEN T=2
680	T1$=LEFT(T$,T)+":"+MID(T$,T+1,2)
681	B$=B$+"-" : T9=1
685	IF LEN(T1$)<X9 THEN T1$=T1$+SPACE$(X9-LEN(T1$))
690	B1$=B1$+SPACE$(LEN(B$)-X9-LEN(B1$))+T1$
700			NEXT I
750	PRINT #12,B$
755	IF E7%(K)<>0% OR T9=1 THEN PRINT #12,B1$
756	IF G8=2 THEN PRINT #12,"**";C2$(K),E9%(K,1);E9%(K,2);E8%(K,1);E8%(K,2)
757PRINT #12,".........."
800		NEXT K
810	GOTO 100
9999 CLOSE I FOR I=1 TO12
10000	END