1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        PREREG:   COLLEGE REGISTRATION DEMO
4  REM
5  REM        36282 REV  A  PART 3 OF 10   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
8  REM  FILES STUDNT
10  REM  PRE REGESTRATION - ENTER STUDENT NAMES 
20  DIM A$[12],B$[20],C$[20],D$[1],E$[12],F$[1]
30  DIM G$[30],H$[8],I$[30]
35  DIM Q$[3]
40  PRINT "RESPOND WITH ANSWER OR END"
50  PRINT 
60  PRINT "STUDENT #?";
70  INPUT A$
75  IF A$="END" THEN 700
80  X$=A$
90  GOSUB 9000
100  IF X#0 THEN 500
110  X$="  "
120  GOSUB 9000
130  IF X=0 THEN 600
140  PRINT "LAST NAME?";
150  INPUT B$
160  PRINT "FIRST NAME?";
170  INPUT C$
180  PRINT "MIDDLE INITIAL?";
190  INPUT D$
200  PRINT "PHONE?";
210  INPUT E$
220  PRINT "SEX?";
230  INPUT F$
240  PRINT "CITY?";
250  INPUT G$
260  PRINT "STATE?";
265  INPUT H$
270  PRINT "STREET ADDRESS?";
280  INPUT I$
300  PRINT #1;A$,B$,C$,D$,E$,F$,G$,H$,I$, END 
310  GOTO 60
500  PRINT "STUDENT IN FILES  DO YOU WISH TO CHANGE DATA?"
510  INPUT Q$
520  IF Q$="YES" THEN 140
530  IF Q$="NO" THEN 60
540  GOTO 500
600  PRINT "NO MORE STUDENTS ALLOWED"
700  STOP 
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 
