'-- nulmodem.bas ----------------------------------------------- >>fst'01<< - ' - sendet/empfaengt Tastatureingaben ueber die serielle Schnittstelle ' - Rechner ueber ein NullModem-Kabel verbinden ' - Programm auf beiden Rechnen starten ' - Zeichen vom entfernten Rechner werden invers dargestellt ' - kommuniziert auch mit dem Modem (at i [Enter] eingeben) ' - PUBLIC DOMAIN '-- V 20020707 ------------------------------ http://home.arcor.de/steini63 - 'Schnittstelle COM 1 als Ein- und Ausgang oeffnen 'mit 1200 Baud, kein Paritaetsbit, 8 Datenbits, 1 Stoppbit 'ohne Ueberpruefung der Statusleitungen: OPEN "COM1:1200,N,8,1,CD,CS,DS" FOR RANDOM AS #1 OPEN "COM2:1200,N,8,1,CD,CS,DS" FOR RANDOM AS #2 CLS 'Bildschirm loeschen DO 'Hauptschleife '-- S e n d e n ---------: Z$ = INKEY$ 'Tastendruck speichern IF Z$ <> "" THEN 'wenn Taste gedrueckt ... PRINT Z$; 'Zeichen anzeigen PRINT #1, Z$; 'und auf Schnittstelle geben END IF '-- E m p f a n g e n ---: IF LOC(2) THEN 'wenn Zeichen auf Schnittstelle eingegangen ... Z$ = INPUT$(1, #2) 'dieses speichern COLOR 0, 7 'inverse Darstellung PRINT Z$; 'Zeichen anzeigen COLOR 7, 0 'wieder normale Darstellung END IF LOOP UNTIL Z$ = CHR$(27) 'Ende mit Taste Escape CLOSE #1 'Schnittstelle schliessen CLOSE #2 'Schnittstelle schliessen