accessing the CLI in a prog

[PhilOfPerth]

Using some of the bits and pieces I've learned from this forum, I built the small prog below.
Not earth-shattering, but I'm quite proud of it. It lets me see the contents of any of my drives.

Code: (Select All)

Screen _NewImage(1200, 820, 32)
SetFont: f& = _LoadFont("C:\WINDOWS\fonts\courbd.ttf", 24, "monospace"): _Font f&
fontsize = 24
_ScreenMove (_DesktopWidth - _Width) / 2, 86 ' centre display on screen
botline = _Height / _FontHeight - 2
Print "Drive letter (a to z)?"
Print "Esc to finish"
GetDrive: dl$ = UCase$(InKey$)
If dl$ = Chr$(27) Then System
If dl$ < "A" Or dl$ > "Z" Then GoTo GetDrive
comd$ = "dir " + dl$ + ":\ " + " > temp.txt"
Print comd$
Shell comd$
Open "temp.txt" For Input As #1
Do Until EOF(1)
    Line Input #1, text$
    Print text$
    If CsrLin > botline Then Print "More...": Sleep: Cls
Loop
Print "Press a key":: Sleep: Cls: Run