ESCRIBECARACTERPUERTO byte
PORTWRITECHAR byte

Escribe un byte al puerto abierto. Devuelve 1 si se lo escribe con éxito, -1 sino. El argumento byte debe ser un entero entre 0 y 255.

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