1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        AVAIL:   COLLEGE REGISTRATION DEMO
4  REM
5  REM        36282 REV  A  PART 5 OF 10   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
10  REM COURSES AND SECTIONS AVAILABLE REPORT 
20  FILES COURSE
30  DIM N$[10],O$[20],P$[20],Q$[20],R$[20]
40  IF  END #1 THEN 280
60  PRINT 
70  PRINT "COURSE";TAB(13);"SEC";TAB(18);"CRDS";TAB(24);
75  PRINT "INSTRUCTOR";TAB(47);"TIME"
80  PRINT 
90  K1=1
100  FOR I=1 TO 9
110  READ #1,K1;N$
120  IF N$="  " THEN 240
130  READ #1;N3
140  M1=K1+1
150  FOR J=1 TO 6
160  READ #1,M1;O$
170  IF O$="  " THEN 210
180  READ #1;P$,Q$,R$,N5,N6
190  PRINT N$;TAB(13);O$;TAB(18);N3;TAB(24);R$;TAB(47);P$
210  M1=M1+2
220  NEXT J
230  PRINT 
240  K1=K1+13
250  NEXT I
260  PRINT 
270  PRINT 
280  END 
