home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 February / 64er_Magazin_91-02_1991_Markt__Technik_de_Side_A.d64 / widerstaende (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  1.1 KB  |  21 lines
  1. 1 poke 53280,0 : poke 53281,0 : print "[147][142] widerstaende international"
  2. 2 print " decodieren nach e6/e12/e24":print" (w)'90 by kester habermann"
  3. 3 print "        1. 2. 3. 4." : print "      [213][178][192][192][178][192][192][178][192][192][178][192][192][178][192][201]"
  4. 4 print "      [221][221]  [221]  [221]  [221]  [221] [221]" : print "  [192][192][192][192][179][221]  [221]  [221]  [221]  [221] [171][192][192][192][192]"
  5. 5 print "      [221][221]  [221]  [221]  [221]  [221] [221]" : print "      [202][177][192][192][177][192][192][177][192][192][177][192][192][177][192][203]"
  6. 6 d=1 : a$="  [157][157]  [157][157]  [145][145][146]" : for i=0 to 9 : read c$(i),rc(i),p(i) : next
  7. 7 data "schwarz",0,20,"braun  ",9,1,"rot    ",2,2,"orange ",8,20,"gelb   ",7,5
  8. 8 data"gruen  ",5,.5,"blau   ",6,20,"violett",4,20,"grau   ",12,10,"weiss  ",1,20
  9. 9 print "";:for i=1 to 4 : poke 646,rc(c(i)) : print a$; : next
  10. 10 print "" : for i=1 to 4 : if i=d then print "";
  11. 11 printi"[157]. ring: ";c$(c(i)):next:print"                    "
  12. 12 print "[145][145]":r=int((10*c(1)+c(2))*10^c(3)):ifr=>10e8thenprintr/10e8"g";:goto16
  13. 13 if r => 1e6 then print r/1e6"m";:goto16
  14. 14 if r => 1000 then print r/1000"k";:goto16
  15. 15 print r;
  16. 16 print "ohm +-";p(c(4));"%":poke 198,0:wait 198,1:getk$:if k$= "q" then end
  17. 17 if k$= "+" then c(d)=c(d)+1 : ifc(d)=10 then c(d)=0
  18. 18 if k$= "-" then c(d)=c(d)-1 : ifc(d)=-1 then c(d)=9
  19. 19 if k$=chr$(13) then d=d+1:if d=5 then d=1
  20. 20 goto 9
  21.