6 lines
290 B
Text
6 lines
290 B
Text
Locale 1033 // for the chr$(string) : converτ ANSI to UTF16LE
|
|
Dos "chdir "+quote$(dir$)+"&& dir /w > out.txt";
|
|
Wait 100
|
|
Print "Press Space or Mouse to see next page"
|
|
A$=chr$(eval$(buffer("out.txt")))
|
|
Report a$ // view text using proportional typing, and at pages, with 3/4height scroll
|