1	! REPROF
2	! THIS SETS UP A RECODING TABLE FOR THE PROFESSOR
	! NAME FILE, WHICH IS USED BY "REPRO2" TO RECODE THE
	! ADVISOR CODES IN THE CLI FILE.
3	! FIRST CREATE THE NEW PROFESSOR FILE, ASSIGNING CODES
	! 1-99 SEQUENTIALLY.
4	! NEXT RUN THIS PROGRAM, WHICH WILL DISPLAY THE NEW
	! CODE AND ASK FOR THE OLD CODE WHICH CORRESPONDS
	! TO IT.
50 PRINT"ENTER THE OLD CODE CORRESPONDING TO THE NEW CODE"
60 PRINT"DISPLAYED.  A NULL ENTRY WILL NOT BE ENTERED;"
70 PRINT"ENTER A NEGATIVE TO STOP AND CLOSE THE FILE."
100 OPEN"REPROF" AS FILE 1%
120 DIM #1%,P%(99%)
140 FOR I%=1% TO 99%
150 PRINT I%;: INPUT J%
160 IF J% THEN P%(J%)=I%
165 IF J%<0% THEN 200
170 NEXT I%
200 CLOSE 1%
210 END