http://www.atari.org.pl/forum/viewtopic.php?id=13898(useful Google translate)
7a.
10 DIM DR$(20)
15 CLOSE #5:OPEN #5,6,0,"D1:*.*"
20 INPUT #5,DR$ DR$
35 IF DR$(1,1)="*" OR DR$(1,1)=" " THEN 20
40 CLOSE #5
7b.
10 DIM DR$(20)
15 CLOSE #5:OPEN #5,6,0,"D1:*.*"
20 INPUT #5,DR$
25 ? DR$(1,10);:IF DR$(1,1)="*" OR DR$(1,1)=" " THEN ?".";
30 ? DR$(11)
35 IF DR$(1,1)="*" OR DR$(1,1)=" " THEN 20
40 CLOSE #5
autorun bas&tbxl.zip