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 >
Encoding:
Commodore BASIC  |  1990-01-01  |  615 b   |  26 lines
  1. 100 poke53280,0:poke53281,0:
  2. 110 data1,2,3,4,5,6,7,8
  3. 120 a$(0)=" [215]  ":a$(1)="[150] [209]  "
  4. 130 fori=0to7:readt$(i):next:z=0
  5. 140 poke56579,255
  6. 150 print"[147][155]          lampentest"
  7. 160 print"          [163][163][163][163][163][163][163][163][163][163]"
  8. 170 print"<1> <2> <3> <4> <5> <6> <7> <8>"
  9. 180 print"<1> bis <8> - lampe aus/ein"
  10. 190 print"<return>    - alle lampen ein"
  11. 200 print"<space>     - alle lampen aus"
  12. 210 poke56577,z:print"[158]work"
  13. 220 fori=0to7
  14. 230 if(zand(2^i))=0thenprinta$(0);:goto250
  15. 240 printa$(1);
  16. 250 next:print
  17. 260 print"       ":poke198,0:wait198,1:getz$
  18. 270 fori=0to7:ifz$=t$(i)thend=i:goto330
  19. 280 next
  20. 290 ifz$=chr$(13)thenz=255:goto210
  21. 300 ifz$=" "thenz=0:goto210
  22. 310 goto260
  23. 320 :
  24. 330 if(zand(2^d))>0thenz=zand(255-(2^d)):goto210
  25. 340 z=zor(2^d):goto210
  26.