'-- relais1.bas ------------------------------------------------ >>fst'01<< -
' - Das Programm sendet ein Byte an das Datenregister von LPT 1.
' - Entsprechend des Bitmusters schliessen oder oeffnen die Relais.
'   Die Bitmuster ergeben sich wie folgt:
'   Bit 0 - Relais 1 - dezimaler Wert = 1
'   Bit 1 - Relais 2 - dezimaler Wert = 2
'   Bit 2 - Relais 3 - dezimaler Wert = 4
'   Bit 3 - Relais 4 - dezimaler Wert = 8
'   Bit 4 - Relais 5 - dezimaler Wert = 16
'   Bit 5 - Relais 6 - dezimaler Wert = 32
'   Bit 6 - Relais 7 - dezimaler Wert = 64
'   Bit 7 - Relais 8 - dezimaler Wert = 128
'   Daraus ergibt sich z.B.: 255 = alle Relais schliessen
'                             18 = Relais 2 und 5 schliessen
'                              0 = kein Relais schliesst
'-- V 20010904 ------------------------------ http://home.arcor.de/steini63 -

OPEN "LPT1" FOR OUTPUT AS #1               'LPT 1 als Ausgabekanal #1 oeffnen
CLS                                        'Bildschirm loeschen
PRINT "T e s t p r o g r a m m  1   f ue r   R e l a i s k a r t e   a n   L P T  1"
PRINT "Zahl zwischen 0 und 255 eingeben und [Enter] druecken; andere Zahl fuer Ende"

DO                                         'Schleifenbeginn
 INPUT Zahl%                               'Zahl abfragen
 IF Zahl% < 0 OR Zahl% > 255 THEN EXIT DO  'Gueltigkeit testen, sonst Ende
 PRINT #1, CHR$(Zahl%);                    'Zahl an LPT 1 senden
LOOP                                       'zum Schleifenbeginn

PRINT #1, CHR$(0);                         'alle Relais oeffnen
CLOSE #1                                   'Ausgabekanal schliessen