10 REM - PROGRAM NAME:"EXP060" 20 REM - PROGRAM CHANGES EMPLOYEE TO INACTIVE STATUS BY SETTING HOURLY ID TO "92" /SALARY ID TO"91" 30 OPEN "DF:EMPLOY.MST" AS FILE 1 40 DIM #1, E$(500)=255 60 INPUT "ID #"; I$ 70 IF I$="END" GOTO 500 80 FOR J%=1 TO 1000 90 LET E1$=E$(J%) 100 IF LEFT(E1$,6)="999999" GOTO 300 110 IF MID(E1$,4,3)=MID(I$,4,3) GOTO 200 120 NEXT J% 200 LET E$(J%)=LEFT(E1$,28)+"9"+MID(E1$,30,226) 210GOTO 60 300 PRINT "CANNOT FIND MASTER RECORD FOR ";I$ 310 GOTO 60 500 CLOSE 1 510 END