'-- lpt1_in.bas ------------------------------------------------ >>fst'01<< - ' - liest das Statusregister von LPT1 ' - wertet Bit 6 ("Acknowledge") aus ' - piept, solange Pin 10 mit Masse verbunden wird '-- V 20010904 ------------------------------ http://home.arcor.de/steini63 - CLS LOCATE 4, 1 PRINT " Datenempfang ueber LPT 1 >> BENUTZUNG AUF EIGENE GEFAHR <<" PRINT " Unter DOS oder im DOS-Modus ausfuehren!" PRINT PRINT " Es wird ein Kontrollton erzeugt, so lange" PRINT " Pin 10 mit einem Massekontakt verbunden ist." PRINT " Masse bei 25-Pol Sub-D = Pin 18 - 25" PRINT " bei Centronics = Pin 19 - 30" PRINT "" LOCATE 14, 1 PRINT "LPT1 Statusregister Bit 6 = " DEF SEG = 0 Adresse% = PEEK(&H408) + PEEK(&H409) * 256 'LPT1-Basisadresse auslesen Adresse% = Adresse% + 1 'Statusregister ist bei Offset 1 DO WHILE INKEY$ = "" InByte% = INP(Adresse%) 'Byte lesen LOCATE 14, 29 IF (InByte% AND 64) = 0 THEN 'Bit 6 (Wert 64) abfragen ("Acknowledge") PRINT "0"; 'Bit ist 0, wenn mit Masse verbunden BEEP ELSE PRINT "1"; 'Bit ist 1, wenn kein Masseschluss END IF LOOP