' SHOW.BAS
' This program lets you view a data file in the current directory.

CLS

PRINT "The current directory contains the following files with ";
PRINT "a .TXT extension:"
PRINT

FILES "*.TXT"

PRINT
INPUT "Which file would you like to display?  ", filename$

OPEN filename$ FOR INPUT AS #1

PRINT
PRINT "---------- "; UCASE$(filename$); " ----------"
PRINT

DO WHILE (NOT EOF(1))
    LINE INPUT #1, line$
    PRINT line$
LOOP

