home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9102a.d64 / widerstaende (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  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.