LOCATE 1,5:PRINT "Program to change the Macintosh File Type for TracePlot Access"

LOCATE 3,8:PRINT "TracePlot can access only files whose Macintosh"
LOCATE ,8:  PRINT "file-type is set to 'TEXT'.  Press a key to display"
LOCATE ,8:PRINT "ALL files and select which file(s) to change."
k$=INPUT$(1)

LOCATE 3,8:PRINT SPACE$(150)
LOCATE ,8:PRINT SPACE$(150)
LOCATE ,8:PRINT SPACE$(150)

LOCATE 7,2:PRINT "Select the File
LOCATE ,2:PRINT "to be changed-->"
LOCATE 17,5:PRINT "Last 5 Files Changed:"
LOCATE 18,5:PRINT "None yet changed."
numchanged%=0

one:
a$=FILES$(1)

IF a$="" THEN END

NAME a$ AS a$,"TEXT"

fileonly$=a$
FOR i%=LEN(a$) TO 1 STEP -1
 IF MID$(a$,i%,1)=":" THEN
  fileonly$=MID$(a$,i%+1)
  GOTO out
 END IF
NEXT

out:
numchanged%=numchanged%+1
IF numchanged%>5 THEN
 numchanged%=5
 FOR i%=2 TO 5 
 fileonly1$(i%-1)=fileonly1$(i%)
 NEXT
END IF
fileonly1$(numchanged%)=fileonly$


LOCATE 18,5
FOR i%=1 TO 5
LOCATE ,5:PRINT fileonly1$(i%);SPACE$(50)
NEXT
GOTO one