1000 INPUT "FILE NAME, NUMBER AND RECORD LENGTH>>";FILNAM$,FILE.NO%,RECLEN%
1010 OPEN "R",FILE.NO%,FILNAM$,RECLEN%
1020 FIELD FILE.NO%, 10 AS IM1$, (RECLEN% - 10) AS IM2$ 

2000 INPUT "MODE, REC#, IMAGE>>",MODE$,RECNUM%,IMAGE$
2005 IF RECNUM% = 0 THEN GOTO 4000
2010 IF MODE$ = "R" OR MODE$ = "r" THEN GOTO 3000
2020 LSET IM1$ = IMAGE$
2030 LSET IM2$ = MID$(IMAGE$,11)
2040 PUT FILE.NO%,RECNUM%
2050 GOTO 2000

3000 GET FILE.NO%,RECNUM%
3010 PRINT IM1$;IM2$
3020 PRINT
3030 GOTO 2000

4000 CLOSE FILE.NO%
4010 STOP