"dir *.* /w > files.txt" SHELL
"R" "FILES.TXT" OPEN
1 22 FOR READ .S
CLOSE
"Welk bestand wilt u inkijken? Geef de bestandsnaam op, aub" .S
"R" INPUT OPEN
1 22 FOR READ .S
"more? [y/n]" .S
"y" INKEY$ LCASE$ = IF 160 GOTO
CLOSE

