ON COM(1) GOSUB Comm1
COM(1) ON
OPEN "COM1:2400" FOR RANDOM AS #1
PRINT #1, "Welcome to Earth Third Rock From The Sun..."
PRINT #1, "Dos Emulation!. Host is sometimes required to send Screen images"
10 PRINT #1, ""
SHELL "CD>dd.tmp"
OPEN "dd.tmp" FOR INPUT AS #2
LINE INPUT #2, curdir$
CLOSE #2
KILL "dd.tmp"
PRINT #1, curdir$; ">"
PRINT curdir$; ">"
GOTO 10

Comm1:
LINE INPUT #1, f$
PRINT f$;
RETURN