0 REM << COMMHS - HANDSHAKE WITH IBM
1 REM - COMMODORE PROGRAM -
2 REM     -- COMMHS --
3 REM RUPERT REPORT #24
4 REM THE IBM CONNECTION
5 REM
9 REM 1200 BAUD, 8 BITS/CHR, 1 STOP BIT, NO PARITY
10 OPEN 2,2,0,CHR$(8)+CHR$(0)
20 CR$=CHR$(13)
25 REM  CLEAR THE RECEIVE BUFFER
30 GET#2,R$ : IF ST<>8 OR ST<>0 THEN 30
35 REM  =-=  MAIN LOOP  =-=
40 GET#2,R$ : IF R$="" THEN 40
50 M$=M$+R$
60 PRINT R$;: IF R$=CR$ THEN GOSUB 80
70 GOTO 40
75 REM - TRANSMIT HANDSHAKE MESSAGE -
80 T$="MESSAGE #"+STR$(VAL(M$))+" RECEIVED"
90 PRINT#2,T$ : M$="" : RETURN