home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 93xx / 9311a.d64 / akustikrelais (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  443b  |  19 lines
  1. 100 POKE 56579,128:REM PB0..7 EINGAENGE
  2. 105 Q=0
  3. 106 PRINT CHR$(147):REM CLEAR SCREEN
  4. 107 PRINT Q;"= AUS":REM DEF.ANFANGSZUST
  5. 110 PB0 = PEEK (56577) :REM PB0 EINLESE
  6. 120 SIGN = PB0 AND 1   :REM PB0 AUSMASK
  7. 130 IF SIGN=0 THEN GOSUB200:REM JETZT!!
  8. 160 GOTO 110
  9. 200 IF Q=0 THEN GOTO 240
  10. 210 Q=0   :REM AUSGANGSZUSTAND AENDERN
  11. 220 GOTO 249
  12. 240 Q=1   :REM AUSGANGSZUSTAND AENDERN
  13. 249 PRINT CHR$(147):REMCLEAR SCREEN
  14. 250 IF Q=0 THEN PRINT Q;"= AUS"
  15. 251 IF Q=1 THEN PRINT Q;"= EIN"
  16. 252 FOR I=1 TO 200 :REM ENTPRELLZEIT
  17. 253 NEXT I
  18. 260 RETURN
  19.