'-- 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