1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        COPY:   COLLEGE REGISTRATION DEMO
4  REM
5  REM        36282 REV  A  PART 10 OF 10   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
8  REM THIS PROGRAM RESTORES THE STUDENT AND COURSE FILE
9  REM       FROM THE BACKUP FILES OF SSAVE AND CSAVE
10  FILES SSAVE,STUDNT,CSAVE,COURSE
20  DIM A$[72]
25  FOR A=1 TO 3 STEP 2
27  B=A+1
30  IF  END #A THEN 170
40  IF  END #B THEN 180
50  FOR I=1 TO 32000
60  READ #A,I
70  PRINT #B,I
80  GOTO TYP(-A) OF 90,120,150,160
90  READ #A;X
100  PRINT #B;X
110  GOTO 80
120  READ #A;A$
130  PRINT #B;A$
140  GOTO 80
150  PRINT #B; END 
160  NEXT I
170  NEXT A
175  STOP 
180  PRINT "SECOND FILE TOO SMALL"
190  END 
