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 >
Wrap
Commodore BASIC
|
2022-10-26
|
443b
|
19 lines
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