'-- relais2.bas ------------------------------------------------ >>fst'01<< -
' - Das Programm sendet ein Byte an das Datenregister von LPT 1 (Basisadresse
'   888 oder hexadezimal &h378. Dieser Wert kann bei einigen PC abweichen!).
' - 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 -

CLS                                        'Bildschirm loeschen
PRINT "T e s t p r o g r a m m  2    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
 OUT 888, Zahl%                            'Zahl an Datenregister LPT1 senden
LOOP                                       'zum Schleifenbeginn

OUT 888, 0                                 'alle Relais oeffnen