'============================================================================
' (p)'23/02/2003 by East-Power-Soft
'
' Hier ein kleines Beispielprogramm, welches ein
' "Minimal-Terminalprogramm" darstellt
'============================================================================

OPEN "com1: 9600,n,8,1,cs0,ds0,cd0" FOR RANDOM AS #1 ' Com öffen
DO                                                   ' Hauptschleife
   b$ = INKEY$                                       ' Taste einlesen
   IF b$ = CHR$(27) THEN EXIT DO                     ' Hauptschleife beenden
   IF b$ <> "" THEN                                  ' Wenn Eingabe, dann
      PRINT #1, b$;                                  ' an COM senden
      PRINT b$;                                      ' und auf Bildschirm anzeigen
   END IF
   WHILE NOT EOF(1)                                  ' Schleife bis Datenende
      a$ = INPUT$(1, 1)                              ' Ein Zeichen einlesen
      PRINT a$;                                      ' und auf Bildschirm anzeigen
   WEND
LOOP
CLOSE #kanal                                         ' Kanal schliessen

'---> Wenn Du das Programm auf 2 PC's laufen lässt, und diese mit einem
'---> handelsüblichen Nullmodemkabel verbindest, dann siehst Du auf dem
'---> jeweils anderen PC, was auf dem einen eingetippt wird.