home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 84
/
64er_Magazin_Sonderheft_84_19xx_Markt__Technik_de_Side_B.d64
/
lampentest
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
615b
|
26 lines
100 poke53280,0:poke53281,0:
110 data1,2,3,4,5,6,7,8
120 a$(0)=" [215] ":a$(1)="[150] [209] "
130 fori=0to7:readt$(i):next:z=0
140 poke56579,255
150 print"[147][155] lampentest"
160 print" [163][163][163][163][163][163][163][163][163][163]"
170 print"<1> <2> <3> <4> <5> <6> <7> <8>"
180 print"<1> bis <8> - lampe aus/ein"
190 print"<return> - alle lampen ein"
200 print"<space> - alle lampen aus"
210 poke56577,z:print"[158]work"
220 fori=0to7
230 if(zand(2^i))=0thenprinta$(0);:goto250
240 printa$(1);
250 next:print
260 print" ":poke198,0:wait198,1:getz$
270 fori=0to7:ifz$=t$(i)thend=i:goto330
280 next
290 ifz$=chr$(13)thenz=255:goto210
300 ifz$=" "thenz=0:goto210
310 goto260
320 :
330 if(zand(2^d))>0thenz=zand(255-(2^d)):goto210
340 z=zor(2^d):goto210