home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / basic / fossil45 / term.bas < prev   
Encoding:
BASIC Source File  |  1992-06-23  |  997 b   |  32 lines
  1. ' Small terminal program to demonstrate the use of FOSSIL45 in a Quickbasic
  2. ' program.
  3.  
  4. REM $INCLUDE: 'FOSSIL45.BI'
  5.  
  6. Init 0                        ' Initialize driver for port 0
  7. GOSUB CheckErr                ' Check for errors
  8. SetBaud 0, 9600, 8, "N", 1    ' Set baud rate, word length, parity, stop bits
  9. GOSUB CheckErr
  10. FlowCtl 0, 1                  ' Set flow control to RTS/CTS
  11. GOSUB CheckErr
  12.  
  13. DO
  14.   PRINT Receive(0, 0);        ' Print any received characters
  15.   GOSUB CheckErr
  16.   a$ = INKEY$
  17.   Transmit 0, a$              ' Transmit any typed characters
  18.   GOSUB CheckErr
  19. LOOP UNTIL a$ = "*"           ' Exit loop if * is typed
  20.  
  21. Dinit 0                       ' De-initialize driver for port 0
  22. GOSUB CheckErr
  23. END
  24.  
  25. CheckErr:                     ' Error checking routine
  26. IF FossErr = 0 THEN RETURN    ' No errors? Return to main program
  27. PRINT
  28. PRINT "Error Number "; FossErr; "accessing port"; PortErr
  29. Dinit 0                       ' De-initialize driver for port 0
  30. END
  31.  
  32.