DIM f AS STRING * 1
DECLARE SUB PRINT2 (t$)
DECLARE SUB INPUT2 (t$)
DECLARE SUB Cls2 ()
COM(1) ON
ON COM(1) GOSUB STUFF
OPEN "COM1:2400" FOR RANDOM AS #1
Cls2
PRINT2 "Download File!"
PRINT2 "Filename"
'INPUT2 fl$
'OPEN fle$ FOR BINARY AS #1

END
STUFF:
IF LOC(1) <> 0 THEN GET 1, , f
nkey$ = INKEY$
IF nkey$ = "" THEN  ELSE PUT #1, , nkey$
PRINT f;
RETURN

SUB Cls2
PRINT #1, CHR$(12)
END SUB

SUB INPUT2 (t$)
INPUT #1, t$
END SUB

SUB PRINT2 (t$)
PRINT #1, t$
END SUB