P
Patrick Tingen
Guest
Something like this: DEFINE VARIABLE rcode-file AS CHARACTER NO-UNDO. INPUT FROM OS-DIR(' '). REPEAT: IMPORT rcode-file. IF NOT rcode-file MATCHES '*.r' THEN NEXT. RCODE-INFO:FILE-NAME = rcode-file. DISPLAY rcode-file FORMAT "x(60)" RCODE-INFO
ISPLAY-TYPE. END. INPUT CLOSE.
Continue reading...
Continue reading...