I like to access the CAT port on my ft-847 but keep getting a
DEVICE TIMEOUT ERROR.
The CAT port on the ft-847 is set to 4800baud.

100 DEFINT F, H
101 CLOSE
105 GOSUB 3000
110 OPEN "COM2:4800,N,8,1,BIN,OP 5000" FOR OUTPUT AS #1
120 T$ = ""
130 FOR i = 0 TO 9
140 FOR j = 0 TO 9
150 T$ = T$ + CHR$(i * h + j)
160 NEXT: NEXT
200 CLS
210 PRINT "{ 1} split            { 2} mr/vfo"
220 PRINT "{ 3} v=>m             { 4} dial lock"
230 PRINT "{ 5} vfo a/b          { 6} m=>v"
240 PRINT "{ 7} 500 khz up       { 8} 500 khz down"
250 PRINT "{ 9} clarifier        {10} frequency"
260 PRINT "{11} v=>/<=m          {12} Quit"
300 INPUT "        what is your choice"; c
310 IF c < 1 OR c > 12 THEN 300
320 M$ = CHR$(c)
330 IF c = 10 THEN 1000
340 IF c = 12 THEN 2000
500 PRINT #1, CHR$(0); CHR$(0); CHR$(0); CHR$(0); M$
510 GOTO 200
1000 REM frequency control
1010 CLS : PRINT
1020 INPUT "          Frequency Mhz"; a
1030 IF a < .5 OR a > 29.99999 THEN 1010
1040 GOSUB 1800
1050 REM cls:printusing"  ##.##### \   \";A,"Mhz"
1051 CLS : PRINT ; a, "Mhz"
1055
1060 PRINT "     New frequency [F]     Other {O}"
1070 PRINT : PRINT "          fine tuning:"
1080 PRINT "{A}100        <<-<khz>+>>          100{,}"
1090 PRINT
1100 PRINT "10 5 1 .1 .01 .01 .1 1 5 10"
1110 PRINT "{Z}{X}{C}{V}{B}{N}{M}{,}{.}{/}";
1120 c$ = INKEY$: IF c$ = "" THEN 1120
1130 IF c$ = "B" OR c$ = "b" THEN a = a - .00001: GOTO 1300
1140 IF c$ = "N" OR c$ = "n" THEN a = a + .00001: GOTO 1300
1150 IF c$ = "V" OR c$ = "v" THEN a = a - .0001: GOTO 1300
1160 IF c$ = "M" OR c$ = "m" THEN a = a + .0001: GOTO 1300
1170 IF c$ = "C" OR c$ = "c" THEN a = a - .001: GOTO 1300
1180 IF c$ = "," THEN a = a + .001: GOTO 1300
1190 IF c$ = "X" OR c$ = "x" THEN a = a - .005: GOTO 1300
1200 IF c$ = "." THEN a = a + .005: GOTO 1300
1210 IF c$ = "Z" OR c$ = "z" THEN a = a - .01: GOTO 1300
1220 IF c$ = "/" THEN a = a + .01: GOTO 1300
1230 IF c$ = "A" OR c$ = "a" THEN a = a - .1: GOTO 1300
1240 IF c$ = "'" THEN a = a + .1: GOTO 1300
1250 IF c$ = "F" OR c$ = "f" THEN 1010
1260 IF c$ = "O" OR c$ = "o" THEN 200
1300 IF a < .5 OR a > 29.99999 THEN 1050
1310 GOSUB 1800


1800 a$ = MID$(a$, DP - 3, 3) + MID$(a$, DP + 1, 5)
1810 F1 = VAL(MID$(a$, 1, 2))
1820 F2 = VAL(MID$(a$, 3, 2))
1830 F3 = VAL(MID$(a$, 5, 2))
1840 F4 = VAL(MID$(a$, 7, 2))
1850 g1$ = MID$(T$, F1 + 1, 1)
1860 g2$ = MID$(T$, F2 + 1, 1)
1870 g3$ = MID$(T$, F3 + 1, 1)
1880 G4$ = MID$(T$, F4 + 1, 1)
1890 PRINT #1, G4$; g3$; g2$; g1$; M$
1900 RETURN
2000 INPUT "         Are you sure"; c$
2010 IF c$ = "Y" OR c$ = "y" THEN CLOSE 1: END
2020 GOTO 200
2030 END
3000
3010 h1$ = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
3020 h2$ = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"
3030 h3$ = "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
3040 CLS : PRINT : PRINT
3050 FOR i = 1 TO LEN(h1$)
3060 PRINT MID$(h$, i, 1);
3070 NEXT:
3080 PRINT : PRINT
3090 FOR i = 1 TO LEN(h2$)
3100 PRINT MID$(h2$, i, 1);
3110 NEXT
3120 PRINT : PRINT : PRINT
3130 FOR i = 1 TO LEN(h3$)
3140 PRINT MID$(h3$, i, 1);
3150 NEXT
3160 RETURN

5000 T = 1
5100 T = T + 1
5200 IF T = 1000 THEN GOTO 5500
5300 GOTO 5100
5400
5500 RETURN