10 REM V24KOLL
15 REM Program av Gunnar Tidner
20 GET C$
30 IF C$='3' THEN OUT 58,INP(58) OR 8
40 IF C$='#' THEN OUT 58,INP(58) AND 247%
50 IF C$='4' THEN OUT 58,INP(58) OR 16
60 IF C$='$' THEN OUT 58,INP(58) AND 239%
70 IF C$='5' THEN OUT 58,INP(58) OR 32
80 IF C$='%' THEN OUT 58,INP(58) AND 223%
90 IF ASC(C$)=13 THEN 230
100 ; CHR$(12)
110 ; CUR(5,0)"Signal  bit  in/ut    v{rde" : ; 
120 ; "RXD      0    in    1:";INP(58) AND 1%
130 ; "CTS      1    in    2:";INP(58) AND 2%
140 ; "DCD      2    in    4:";INP(58) AND 4%
150 ; "TXD      3    ut    8:";INP(58) AND 8%
160 ; "RTS      4    ut   16:";INP(58) AND 16%
170 ; "M-rel{   5    ut   32:";INP(58) AND 32%
180 IF (INP(58) AND 6%) THEN G$=" ej" : OUT 6,137 ELSE G$="" : OUT 6,135
190 ; 
200 IF LEN(G$)=0 THEN ; CHR$(7); ELSE OUT 6,135
210 ; "F|rbindelsen";G$;" Klar!"
220 GOTO 20
230 END