100 REM **************
 110 REM
 120 REM  JET TERMINAL
 130 REM    EMULATOR.
 140 REM
 150 REM  JET 4/16/84.
 160 REM
 170 REM **************
 180 LET AR=61440:AP=61441
 190 POKE AR,3:POKE AR,9
 200 REM-KEYBOARD INPUT
 210 INPUT I$
 220 FOR I=1 TO LEN(I$)
 230 POKE AP,ASC(MID$(I$,I,1))
 240 WAIT AR,2
 250 NEXT I
 260 POKE AP,13:REM CR
 270 WAIT AR,2
 280 REM
 300 REM--INPUT ACIA
 310 FOR I=1 TO 500
 320 IF PEEK(AR) AND 1 GOTO 350
 330 NEXT I
 340 GOTO 200:TIMEOUT
 350 LET X=PEEK(AP)
 360 PRINT CHR$(X);
 370 GOTO 300
 380 REM
 400 END