10 BLOAD"FSELECTOR-A000.BIN",8,1,$A000
20 SYS$A000 : REM INIT
30 GOSUB 1000
40 PRINT:PRINT:PRINT:PRINT"SELECTED: ";F$
50 END

1000 POKE$400,ASC("*"):POKE$401,0 : REM PATTERN
1010 POKE$30E,4:POKE$30C,0:SYS$A009 : REM SELECT
1020 ADDR=PEEK($30E)*256+PEEK($30C):F$="" : REM FILENAME
1030 C=PEEK(ADDR):IFC=0 THEN RETURN
1040 F$=F$+CHR$(C):ADDR=ADDR+1:GOTO 1030
