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