5	! LITBUL -BUILD SHORT CLASS INFORMATION FOR TRANSCRIPT
6 OPEN "**MASTER" AS FILE  1  : DIM# 1 ,M%(100)
10 OPEN "**LITCLS" AS FILE  2  : DIM# 2 ,C1$( 2222 )=32
20 OPEN "**CLINF" AS FILE  3  : DIM# 3 ,C$( 2222 )=128
23 OPEN "**STATUS" AS FILE  4  : DIM# 4 ,E9%( 2222 ,2)
25	INPUT "DO YOU WANT TO BUILD THE LITCLS FILE";A$
26	  IF A$<>"YES" THEN 100%
30		FOR I=1 TO M%(1)
40 C1$(I)=LEFT(C$(I),4)+" "+MID(C$(I),5,4)+" "+MID(C$(I),26,18)+"    "
50 NEXT I
60	GOSUB 1000% ! CHECK FOR PRINTOUT
100	T1=10% : T2=22
110	INPUT "CLASS# OR 0 TO STOP";C%
115	  IF C%=0% THEN 300%
120		IF C%<0% OR C%>M%(1%) THEN & "INVALID CLASS#" : GOTO 110%
130	& "**";C1$(C%)
140	INPUT LINE Z$ : Z$=LEFT(Z$,LEN(Z$)-2) : IF Z$="OK" THEN 200
150	C1$(C%)=LEFT(Z$,32%)
200	GOTO 110%
300	GOSUB 1000%
310	GOTO 2000% !FINISH UP
1000	!***** PRINT SUBROUTINE *****
1005	INPUT "DO YOU WANT A PRINTOUT";A$ : IF A$<>"YES" THEN RETURN
1010	OPEN "LP:" AS FILE 12
1011	J%=M%(93)
1012	FOR I%=2 TO M%(1)
1020	& #12,J%;TAB(5);C1$(J%);MID(C$(J%),26,25);MID(C$(J%),65,10)
1023	J%=E9%(J%,2)
1025	NEXT I%
1030	CLOSE 12
1040	RETURN
2000	CLOSE I FOR I=1 TO 12
9999	END