0 REM << COMMTX - TRANSMIT TO IBM
5 REM - COMMODORE PROGRAM -
6 REM -   -- COMMTX --
7 REM - RUPERT REPORT #24
8 REM - THE IBM CONNECTION
9 REM -
10 OPEN 2,2,0,CHR$(8)+CHR$(0)
20 GET K$ : IF K$="" THEN 20
30 PRINT#2,K$; : PRINT K$;
40 GOTO 20