LEECARACTERPUERTO
PORTREADCHAR

Lee un byte del puerto abierto y lo devuelve como un entero entre -128 y 127. También devuelve -1 cuando no hay un byte disponible. Entonces, si LEECARACTERPUERTO devuelve -1, puede ser que o no haya un byte disponible o el byte leído es -1. Por esa razón, si -1 es posible como dato, es mejor usar LEECADENAPUERTO.

ABREPUERTO "com1
MUESTRA ESCRIBECARACTERPUERTO ASCII "a
1
MUESTRA ESCRIBECARACTERPUERTO ASCII "t
1
MUESTRA ESCRIBECARACTERPUERTO 13
1
ESPERA 60
ESCRIBE "Leyendo...
Leyendo...
REPITE 10 [HAZ "x LEECARACTERPUERTO SI NO :x = -1 [MUESTRAT CAR :x]]
ESCRIBE ".
at||
OK|
.
CIERRAPUERTO