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