1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        CLEAR:   COLLEGE REGISTRATION DEMO
4  REM
5  REM        36282 REV  A  PART 1 OF 10   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
10  REM  CLEAR STUDENT AND COURSE FILES 
20  FILES STUDNT,COURSE
30  K=1
40  FOR I=1 TO 32
50  PRINT #1,K;"  ","  ", END 
60  PRINT #1,K+2;0, END 
70  K=K+4
80  NEXT I
100  K=1
110  FOR I=1 TO 9
120  PRINT #2,K;"  ", END 
130  J=K+1
140  FOR M=1 TO 6
150  PRINT #2,J;"  ", END 
160  J=J+2
170  NEXT M
175  K=K+13
180  NEXT I
190  END 
