10 REM- PROGRAM NAME: EXP031
20 REM - PROGRAM PRINTS LIST OF EMPLOYEES IN MASTER FILE
30 OPEN "DF:EMPLOY.MST" AS FILE 2
31 DIM #2,E$(500)=255
40 OPEN "LP:" FOR OUTPUT AS FILE 1
50 LET X%=1
60 LET B$=E$(X%)
80 LET F$=MID(B$,1,6)
90 IF F$="999999" GOTO 500
100 LET G$=MID(B$,7,15)
102 LET L1$=MID(B$,101,7)
103 LET L6$=MID(B$,115,6)
105 LET L2$=MID(B$,121,6)
107 LET L3$=MID(B$,127,6)
108 LET L4$=MID(B$,29,2)
109 LET L5$=MID(B$,45,6)
110 PRINT #1,F$+"  "+G$+"  "+L1$+"  "+L2$+"  "+L3$+
     "  "+L4$+"  "+L5$+"  "+L6$
120 LET X%=X%+1
130 GOTO 60
500 CLOSE 1,2
510 END