1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        CLASS:   COLLEGE REGISTRATION DEMO
4  REM
5  REM        36282 REV  A  PART 9 OF 10   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
10  REM CLASS REPORTS 
20  FILES STUDNT,COURSE
30  DIM N$[10],O$[20],P$[20],Q$[20],R$[20]
40  DIM A$[12],B$[20],C$[20],D$[1]
50  DIM S$[12],T$[2],U$[2],G$[30],J$[10],K$[2]
60  F=0
70  PRINT "ALL,COURSE, OR COURSE-SECTION ?"
80  INPUT G$
90  IF G$="ALL" THEN 180
100  FOR I=1 TO 13
110  IF G$[I,I]="-" THEN 160
120  NEXT I
130  J$=G$
140  K$="-"
150  GOTO 180
160  J$=G$[1,I-1]
170  K$=G$[I+1]
180  IF  END #1 THEN 670
190  PRINT 
200  PRINT 
210  K1=1
220  FOR I=1 TO 9
230  READ #2,K1;N$
240  IF N$="  " THEN 590
250  IF G$="ALL" THEN 270
260  IF J$#N$ THEN 590
270  READ #2;N3
280  M1=K1+1
290  FOR J=1 TO 6
300  READ #2,M1;O$
310  IF O$="  " THEN 570
320  IF G$="ALL" THEN 350
330  IF K$="-" THEN 350
340  IF K$#O$ THEN 570
350  F=1
360  READ #2;P$,Q$,R$,N5,N6
370  PRINT 
380  PRINT 
390  PRINT 
400  PRINT 
410  PRINT 
420  PRINT 
430  PRINT 
440  PRINT N$;"-";O$;"  CR=";N3;"  ";P$;"  ";R$;"  COUNT=";N6
450  IF N6=0 THEN 570
460  PRINT 
470  PRINT "STUDENT #";TAB(15);"NAME";TAB(60);"MT";TAB(65);"F"
480  PRINT 
490  FOR L=1 TO N6
500  READ #2;S$,T$,U$
510  X$=S$
520  GOSUB 9000
530  IF X=0 THEN 680
540  READ #1;A$,B$,C$,D$
550  PRINT A$;TAB(15);B$;"  ";C$;"  ";D$;TAB(60);T$;TAB(65);U$
560  NEXT L
570  M1=M1+2
580  NEXT J
590  K1=K1+13
600  NEXT I
610  IF F=1 THEN 630
620  PRINT "NOT IN FILES"
630  PRINT 
640  PRINT 
650  PRINT 
660  PRINT 
670  STOP 
680  PRINT "TROUBLE"
690  END 
9000  REM GET STUDENT OR COURSE FILE. 
9030  DIM W$[20],X$[12],Y$[20],Z$[10]
9031  IF  END #1 THEN 9038
9032  X1=1
9033  FOR X2=1 TO 32
9034  READ #1,X1;W$
9035  IF W$=X$ THEN 9040
9036  X1=X1+4
9037  NEXT X2
9038  X=0
9039  RETURN 
9040  READ #1,X1
9045  X=X1
9046  RETURN 
9200  IF  END #2 THEN 9207
9201  X1=1
9202  FOR X2=1 TO 9
9203  READ #2,X1;W$
9204  IF W$=Z$ THEN 9209
9205  X1=X1+13
9206  NEXT X2
9207  Z=0
9208  RETURN 
9209  READ #2,X1
9210  Z=X1
9211  RETURN 
9212  END 
