10 REM STU004
20 REM PROGRAM DUMPS STUDENT FILE TO TAPE
30 OPEN "DF:STUDNT.MST" AS FILE 1
40 DIM#1, S$(500)=512
50 INPUT "ENTER OUTPUT FILE NAME DEV.FILNAM.EXT";I$
60 OPEN I$ AS FILE 2
65 FIELD#2, 510 AS K$
70 FOR J%=1 TO 500
80 LSET K$=S$(J%)
90 PUT#2
100 IF LEFT(K$,5)="99999" GO TO 200
110 NEXT J%
200 CLOSE 1,2
210 STOP
220 END