home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / INOUTCOM.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-03-25  |  594 b   |  31 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       INOUTCOM.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Serieller Empfaenger und Sender
  8. ' - Ausgaben: Byteport 1, Eingaben: 2
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define Ausgang byteport[1]
  14. define Eingang byteport[2]
  15. define Wert byte
  16.  
  17. ' --- Programmoperationen -------------
  18.  
  19. #Loop
  20.   get Wert             'Byte empfangen
  21.   Ausgang = Wert       'Portausgabe
  22.   Wert = Eingang       'Port lesen
  23.   put Wert             'Byte senden
  24. goto Loop              'Endlosschleife
  25. end
  26.  
  27.  
  28.  
  29.  
  30.  
  31.