1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        FILE:   COLLEGE REGISTRATION DEMO
4  REM
5  REM        36282 REV  A  PART 2 OF 10   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
10  FILES STUDNT,COURSE
20  DIM A$[10],B$[20],D$[20],F$[10],G$[20],H$[11],Q$[5],S$[15]
30  DIM J$[2]
40  DIM K$[20]
50  DIM E$[2]
60  DIM D[5],E[5]
70  C2=0
80  S$="123456789101112"
90  F$="MOTUWDTHFR"
100  L=0
110  FOR N=1 TO 5
120  E[N]=N+L
130  L=L+1
140  NEXT N
150  H$="ABCDEFGHIJK"
160  PRINT "TITLE ";
170  INPUT A$
180  Z$=A$
190  GOSUB 9200
200  IF Z=0 THEN 260
210  PRINT "DUPLICATE COURSE NAME"
220  PRINT "SECTION ADDITION (Y OR N) ";
230  INPUT I$
240  IF I$="Y" THEN 1090
250  GOTO 160
260  Z$="  "
270  GOSUB 9200
280  PRINT "CREDITS ";
290  INPUT C1
300  PRINT "SECTIONS ";
310  INPUT S1
320  IF S1 <= 6 THEN 350
330  PRINT "ONLY 6 SECTIONS ALLOWED"
340  GOTO 300
350  READ #2,Z
360  PRINT #2;A$,C1,S1, END 
370  Z=Z+1
380  FOR S=1 TO S1
390  FOR I=1 TO 5
400  PRINT 
410  NEXT I
420  PRINT "SECTION # ";
430  INPUT E$
440  PRINT "START TIME ";
450  INPUT S2
460  PRINT "LENGTH ";
470  INPUT L
480  PRINT "TIMES/WEEK ";
490  INPUT L1
500  FOR I=1 TO L1
510  PRINT "DAY ";I;
520  INPUT D[I]
530  NEXT I
540  PRINT "INSTRUCTOR ";
550  INPUT D$
560  PRINT "QUOTA ";
570  INPUT Q1
580  IF Q1 <= 8 THEN 610
590  PRINT "ONLY 8 STUDENTS ALLOWED"
600  GOTO 560
610  S9=S2
620  IF S2<10 THEN 700
630  IF S2=10 THEN 680
640  IF S2=12 THEN 670
650  S2=12
660  GOTO 680
670  S2=14
680  S3=S2+1
690  GOTO 710
700  S3=S2
710  G$=S$[S2,S3]
720  G$[LEN(G$)+1]="-"
730  S4=S9+L
740  IF S4 <= 12 THEN 760
750  S4=S4-12
760  IF S4<10 THEN 840
770  IF S4=10 THEN 820
780  IF S4=12 THEN 810
790  S4=12
800  GOTO 820
810  S4=14
820  S3=S4+1
830  GOTO 850
840  S3=S4
850  G$[LEN(G$)+1]=S$[S4,S3]
860  FOR I=1 TO L1
870  G$[LEN(G$)+1]=F$[E[D[I]],E[D[I]]+1]
880  NEXT I
890  FOR I=1 TO L1
900  S5=S9
910  FOR J=1 TO L
920  K$[LEN(K$)+1]=H$[S5,S5]
930  K$[LEN(K$)+1]=H$[D[I],D[I]]
940  S5=S9+J
950  NEXT J
960  NEXT I
970  PRINT #2,Z
980  PRINT #2;E$,G$,K$,D$,Q1,C2, END 
990  Z=Z+2
1000  K$=M$
1010  IF I$="Y" THEN 1030
1020  NEXT S
1030  PRINT "DONE?";
1040  INPUT Q$
1050  IF Q$#"NO" THEN 1070
1060  GOTO 160
1070  STOP 
1080  END 
1090  READ #2;A$,C1,S1
1100  IF S1<6 THEN 1130
1110  PRINT "NO MORE SECTIONS CAN BE ADDED"
1120  STOP 
1130  S2=S1+1
1140  PRINT #2,Z;A$,C1,S2, END 
1150  PRINT "SECTION # ";
1160  INPUT E$
1170  Z1=Z
1180  Z=Z+1
1190  FOR I=1 TO S1
1200  READ #2,Z;J$
1210  IF J$#E$ THEN 1250
1220  PRINT "DUPLICATE SECTION # "
1230  Z=Z1
1240  GOTO 1150
1250  Z=Z+2
1260  NEXT I
1270  GOTO 440
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 
