64'er/64ER_CD.iso/91xx/9102a.d64/widerstaende

Commodore BASIC | 1995-03-30 | 1.1 KB | 21 lines

1 POKE 53280,0 : POKE 53281,0 : PRINT "[147]    [142] WIDERSTAENDE INTERNATIONAL"
2 PRINT " DECODIEREN NACH E6/E12/E24":PRINT" (W)'90 BY KESTER HABERMANN"
3 PRINT "        1. 2. 3. 4." : PRINT "      [213][178][192][192][178][192][192][178][192][192][178][192][192][178][192][201]"
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 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 D=1 : A$="  [157][157]  [157][157]  [145][145][146]" : FOR I=0 TO 9 : READ C$(I),RC(I),P(I) : NEXT
7 DATA "SCHWARZ",0,20,"BRAUN  ",9,1,"ROT    ",2,2,"ORANGE ",8,20,"GELB   ",7,5
8 DATA"GRUEN  ",5,.5,"BLAU   ",6,20,"VIOLETT",4,20,"GRAU   ",12,10,"WEISS  ",1,20
9 PRINT "";:FOR I=1 TO 4 : POKE 646,RC(C(I)) : PRINT A$; : NEXT
10 PRINT "" : FOR I=1 TO 4 : IF I=D THEN PRINT "";
11 PRINTI"[157]. RING: ";C$(C(I)):NEXT:PRINT"                    "
12 PRINT "[145][145]":R=INT((10*C(1)+C(2))*10^C(3)):IFR=>10E8THENPRINTR/10E8"G";:GOTO16
13 IF R => 1E6 THEN PRINT R/1E6"M";:GOTO16
14 IF R => 1000 THEN PRINT R/1000"K";:GOTO16
15 PRINT R;
16 PRINT "OHM +-";P(C(4));"%":POKE 198,0:WAIT 198,1:GETK$:IF K$= "Q" THEN END
17 IF K$= "+" THEN C(D)=C(D)+1 : IFC(D)=10 THEN C(D)=0
18 IF K$= "-" THEN C(D)=C(D)-1 : IFC(D)=-1 THEN C(D)=9
19 IF K$=CHR$(13) THEN D=D+1:IF D=5 THEN D=1
20 GOTO 9