1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        REPS:   COLLEGE REGISTRATION DEMO
4  REM
5  REM        36282 REV  A  PART 4 OF 10   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
10  FILES STUDNT
15  DIM V$[12]
20  DIM A$[12],B$[20],C$[20],E$[12],G$[30],H$[8],I$[30]
22  F=0
24  PRINT "ALL OR STUDENT # ?"
26  INPUT V$
30  IF  END #1 THEN 140
35  Z=1
40  READ #1,Z;A$
41  IF A$="  " THEN 110
42  IF V$="ALL" THEN 44
43  IF V$#A$ THEN 110
44  F=1
45  READ #1;B$,C$,D$,E$,F$,G$,H$,I$
50  PRINT A$;" ";B$;" ";C$;" ";D$
60  PRINT I$;"  ";G$;",";H$
70  PRINT E$;"     SEX ";F$
80  FOR I=1 TO 3
90  PRINT 
100  NEXT I
110  Z=Z+4
130  GOTO 40
140  FOR I=1 TO 5
150  PRINT 
160  NEXT I
162  IF F=1 THEN 170
164  PRINT "NOT IN FILES"
166  STOP 
170  PRINT "END OF FILE"
180  END 
