100 POKE 56579,128:REM PB0..7 EINGAENGE
105 Q=0
106 PRINT CHR$(147):REM CLEAR SCREEN
107 PRINT Q;"= AUS":REM DEF.ANFANGSZUST
110 PB0 = PEEK (56577) :REM PB0 EINLESE
120 SIGN = PB0 AND 1   :REM PB0 AUSMASK
130 IF SIGN=0 THEN GOSUB200:REM JETZT!!
160 GOTO 110
200 IF Q=0 THEN GOTO 240
210 Q=0   :REM AUSGANGSZUSTAND AENDERN
220 GOTO 249
240 Q=1   :REM AUSGANGSZUSTAND AENDERN
249 PRINT CHR$(147):REMCLEAR SCREEN
250 IF Q=0 THEN PRINT Q;"= AUS"
251 IF Q=1 THEN PRINT Q;"= EIN"
252 FOR I=1 TO 200 :REM ENTPRELLZEIT
253 NEXT I
260 RETURN