CLS
1 DO                                  ' start loop
LOCATE 1, 1: PRINT "***********"       ' for view
FOR x = 0 TO 300000                    ' pause
NEXT                                   '
OUT (760), c                                ' transmission to COM2
LOCATE 1, 1: PRINT "***     ***"       ' for view
FOR x = 0 TO 300000                    ' pause
NEXT                                   '
f$ = INKEY$
LOCATE 2, 2: PRINT c; "press space for caracter"
LOCATE 3, 1: PRINT " Q for Exit"
IF f$ = "q" OR f$ = "Q" THEN END
LOOP UNTIL f$ = " "                  ' wait until any key EQU space or " "
CLS
2 INPUT "input caracter", car$
IF car$ = " " THEN GOTO 2
c = ASC(car$)                         'converting caracter to ASC number
CLS
GOTO 1                                ' start again