5 CLS:PRINT"Selective Dump of COMPILER/DAT":PRINT
10 F$="TEST/DAT:1"
20 OPEN"R",1,F$
30 FIELD 1,255 AS U$,1 AS Z$
35 INPUT"Which record (0 to end)";R%
37 IF R%=0 THEN 39
38 GOTO 40
39 CLOSE 1:END
40 GET 1,R%:T%=2:V$=LEFT$(U$,T%):N%=CVI(V$):O%=1
50 FOR I%=O% TO N%:P%=I%+I%:P%=P%+O%:V$=MID$(U$,P%,T%):B%=CVI(V$):PRINT B%;:NEXT I%
55 PRINT
60 GOTO 35
