5 'FILE-LIST
10 A=(PEEK&H18D1+PEEK&H18D2*256)+2:BASE=PEEK(A)+PEEK(A+1)*256
20 MODE110(BASE)SI:MAX=PEEK&H1794:IF MAX=0 THEN END
30 FOR I=1 TO MAX
40   POKE&H1793,0:POKE&H1794,I
50   MODE110(BASE)
60   PRINTFN$
70   A$=INPUT$(1)
80 NEXT I
