// Serial mini-terminal

// *******************************************************************
// mini terminal for testing, mainly asi devices but can be used 
// for any serial device connected to UART 1
// *******************************************************************
function mini_term
dim k=1, in$[:40]
    while 1 = 1       // loop forever
        k=key(2)          // get key from keyboard
        exitif k=3       // ^C
        out 2 k           // echo
        out 1 k           // o/p to serial port
        wait 100        // give time for response
        // if anything recieved from serial then put to console
        in$=asi_in$
        if len(in$) > 0 then
            print in$;
        endif    
    wend
endf