counter=2 file$="*.*" DIM buf(43) DIM label$(250) DEFTEXT 1,0,0,4 pointer=GEMDOS(26,L:VARPTR(buf)) found=GEMDOS(&H4E,L:VARPTR(file$),&H1F) FOR x=30 TO 42 label$(1)=label$(1)+CHR$(PEEK(VARPTR(buf)+x)) NEXT x IF PEEK(VARPTR(buf)+21)=16 label$(1)=CHR$(7)+label$(1) ENDIF IF PEEK(VARPTR(buf)+21)=8 label$(1)=CHR$(8)+label$(1) ENDIF WHILE found>-1 AND counter<248 found=GEMDOS(&H4F) FOR x=30 TO 42 label$(counter)=label$(counter)+CHR$(PEEK(VARPTR(buf)+x)) NEXT x IF PEEK(VARPTR(buf)+21)=16 label$(counter)=CHR$(7)+label$(counter) ENDIF counter=counter+1 WEND ndx=1 WHILE ndx<>counter FOR x=1 TO 12 IF MID$(label$(ndx),x,1)=CHR$(0) label$(ndx)=MID$(label$(ndx),1,x) ENDIF ' Print Asc(Mid$(Label$(Ndx),X,1)); NEXT x ' Print " ";Label$(Ndx) ndx=ndx+1 WEND tel=1 FOR x=1 TO counter STEP 3 TEXT 10,tel*8+30,label$(x) TEXT 100,tel*8+30,label$(x+1) TEXT 200,tel*8+30,label$(x+2) tel=x/3+2 NEXT x