home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 November / 64er_Magazin_93-11_1993_Markt__Technik_de_Side_A.d64 / akustikrelais (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.