Monster Media 1994 #1/monster.zip/monster/PROG_BAS/PRO98SRC.ZIP/GETACKNA.BAS

BASIC Source File | 1993-12-18 | 247b | 13 lines

FUNCTION GetAckNak$
$IF NOT %NOXMODEM
    'LET dropout# = TIMER + 10
DO
  'IF TIMER > dropout# THEN Value$ = CHR$(255): EXIT DO
    IF Comchars% > 0 THEN
    A$ = COMINKEY$
    END IF
LOOP WHILE LEN(a$) = 0
    GetAckNak$ = a$
$ENDIF
END FUNCTION