10 ' SAVE"FILENAME.BAS"
20 SCREEN 0:CONSOLE ,,0,1:WIDTH 40,25:DEFINT I-N:CLS 3
30 I$=INKEY$:IF I$="" THEN 30
40 I=ASC(I$)
50 IF I=14 THEN *RET1
60 GOTO 30
100 END
200 *RET1
210
220 RETURN