05 ! PROGRAM NAME "RET004" 10 OPEN "DF:EMPLOY.RET" AS FILE 1 20 DIM#1, R1$(500)=64 40 INPUT "ID#";I$ 45 IF I$="END" GOTO 180 50 FOR I=1 TO 500 60 LET R$=R1$(I) 70 IF LEFT(R$,6)="999999" GOTO 150 80 IF LEFT(R$,6)<>I$ GOTO 170 90 INPUT "AMT";A$ 100 IF LEN(A$)>5 GOTO 90 110 LET A$=SPACE$(5-LEN(A$))+A$ 120 LET R1$(I)=LEFT(R$,56)+A$ 140 GOTO 40 150 PRINT "UNABLE TO FIND MASTER FOR ID#"+I$ 160 GOT O 40 170 NEXT I 180 CLOSE 1 190 END