05 REM- PROGRAM NAME "STU505" 10 OPEN "DF:CLASS.HNR" AS FILE 1 20 DIM #1, H$(500)=32 30 OPEN "LP:" FOR OUTPUT AS FILE 2 35 ON ERROR GOTO 200 40 FOR J%=1 TO 500 50 PRINT #2, LEFT(H$(J%),5)+" "+MID(H$(J%),6,25)+" "+ RIGHT(H$(J%),1) 60 NEXT J% 200 CLOSE 1,2 210 END