CONST SER_PORT$ = "COM2"
CONST SER_TX$ = "GP20"              ' Beinchen 26 am Pico
CONST SER_RX$ = "GP21"              ' Beinchen 27 am Pico
CONST SER_BAUD = 38400
CONST SER_PUFFER = 1024

' Teilt dem Port die Pins zu und oeffnet ihn. Liefert "" oder den Grund, warum es nicht geht.
FUNCTION ComOeffnen$(port$)
 LOCAL INTEGER rx, tx
 ON ERROR SKIP
 rx = MM.INFO(PINNO SER_RX$)
 IF MM.ERRNO = 0 THEN
   ON ERROR SKIP
   tx = MM.INFO(PINNO SER_TX$)
 ENDIF
 IF MM.ERRNO THEN
   ComOeffnen$ = "Unbekannter Pin " + SER_TX$ + " oder " + SER_RX$ + ": " + Fehlertext$()
 ELSE
   ' SETPIN braucht COM1 oder COM2 als festes Wort, eine Variable geht dort nicht
   IF port$ = "COM2" THEN
     ON ERROR SKIP
     SETPIN rx, tx, COM2
   ELSE
     ON ERROR SKIP
     SETPIN rx, tx, COM1
   ENDIF
   IF MM.ERRNO THEN
     ComOeffnen$ = "Pins passen nicht zu " + port$ + ": " + Fehlertext$() + "|Moeglich: "
     IF port$ = "COM2" THEN
       ComOeffnen$ = ComOeffnen$ + "TX GP4/8/20, RX GP5/9/21"
     ELSE
       ComOeffnen$ = ComOeffnen$ + "TX GP0/12/16/28, RX GP1/13/17"
     ENDIF
   ELSE
     ON ERROR SKIP
     OPEN port$ + ":" + STR$(SER_BAUD) + "," + STR$(SER_PUFFER) AS #5
     IF MM.ERRNO THEN ComOeffnen$ = "Kann " + port$ + " nicht oeffnen: " + Fehlertext$()
   ENDIF
 ENDIF
 ON ERROR CLEAR
END FUNCTION

IF MM.ERRNO THEN ComOeffnen$ = "Kann " + port$ + " nicht oeffnen: " + Fehlertext$()

'Prog to test COM2 UART loopback

Setpin gp20,gp21,com2
Pause 10
Open "com2:38400" as #1
Pause 10
Print #1,"This is COM2 @ 38400 Baud"
Pause 10
Print "Received ",Input$(100,#1)
End