start tok64 d64-rvgH3F
10 REM*********************************
20 REM***                           ***
30 REM*** magnus enarsson 85-10-13  ***
40 REM***                           ***
50 REM*********************************
60 REM
70 POKE 53281,15:POKE 53280,14
80 PRINT"{black}"
90 PRINTCHR$(147)
100 PRINT:PRINT"{space*15}(list2020-)":PRINT:PRINT
110 PRINT"{space*16}motst]nd{space*32}{cm u*8}"
120 PRINT:PRINT
130 PRINT "{space*4}detta program kan ber[kna"
140 PRINT "{space*4}resistans vid seriekoppling"
150 PRINT "{space*4}parallellkoppling samt f[rgkoder"
160 PRINT "{space*4}du best[mmer omr]de genom:"
170 PRINT
180 PRINTTAB(10)"f{.*7}f[rgkod"
190 PRINTTAB(10)"s{.*7}seriekopling"
200 PRINTTAB(10)"p{.*7}parallellkopling"
210 GETa$:IF a$=""THEN GOTO 210
220 IF a$="p"THEN GOTO260
230 IF a$="s"THEN GOTO600
240 IF a$="f"THEN GOTO850
250 GOTO 210
260 CLR
270 DIM b(100),c(100),d(100)
280 PRINTCHR$(147)
290 PRINT"{down*6}"
300 PRINTTAB(10)"parallellkopling"
310 PRINTTAB(10)"{cm u*16}"
320 PRINT:PRINT:PRINT:PRINT
330 INPUT"{space*9}hur m]nga motst]nd";a
340 PRINT CHR$(147)
350 FOR b=1 TO a
360 PRINT:PRINT
370 PRINT "{space*2}motst]nd"b
380 INPUT"{space*3}[r p] ohm:";c(b)
390 PRINT
400 IF c(b)=0 THEN GOTO 260
410 NEXT b
420 FOR n=1 TO a
430 d(n)=1/c(n)
440 NEXT n
450 FOR m=1 TO a
460 e=e+d(m)
470 NEXT m
480 PRINTe
490 r=(1/e)
500 PRINTCHR$(147)
510 PRINT"{down*9}"
520 PRINT"{space*3}din ers[ttnings resistans "
530 PRINT"{space*3}blir"r"ohm"
540 PRINT"{down*8}{space*10}v[lj(f,s,p)
550 GETqw$:IF qw$=""THEN GOTO550
560 IF qw$="p"THEN GOTO 260
570 IF qw$="s"THEN GOTO 600
580 IF qw$="f"THEN GOTO 850
590 GOTO550
600 CLR
610 DIM b(100),c(100),d(100)
620 PRINTCHR$(147)
630 PRINT"{down*7}"
640 PRINT"{space*10}seriekoppling"
650 PRINT"{space*10}{cm y*13}"
660 PRINT"{down*6}"
670 INPUT"{space*11}hur m]nga motst]nd";a
680 FOR i=1 TO a
690 PRINT "{space*3}hur m]nga ohm [r motst]nd"i"p]";
700 INPUT b(i)
710 NEXT i
720 FOR t=1 TO a
730 e=e+b(t)
740 NEXT t
750 PRINTCHR$(147)
760 PRINT"{down*6}"
770 PRINT"{space*6}den sammanlagda resistansen "
780 PRINT"{space*6}[r p]"e"ohm"
790 PRINT"{down*8}{space*10}v[lj(f,s,p)
800 GET s$:IF s$=""THEN GOTO 800
810 IF s$="p"THEN GOTO 260
820 IF s$="s"THEN GOTO 600
830 IF s$="f"THEN GOTO 850
840 GOTO 800
850 PRINTCHR$(147)
860 PRINT"{black}"
870 POKE53281,3
880 PRINT:PRINT:PRINT:PRINT
890 PRINT"{space*7}h]ll motst]ndet med"
900 PRINT:PRINT   "{space*7}guld/silver ]t h{pound}ger"
910 PRINT
920 PRINT"{space*4}vilken f[rg har ring:"
930 PRINT
940 INPUT"{space*4}ett";b$
950 INPUT"{space*4}tv]";c$
960 INPUT"{space*4}tre";d$
970 IF b$="svart"THEN f1=0
980 IF b$="brun" THEN f1=9
990 IF b$="r{pound}d" THEN  f1=2
1000 IF b$="orange"THENf1=8
1010 IF b$="gul" THEN  f1=7
1020 IF b$="gr{pound}n" THEN f1=5
1030 IF b$="bl]"  THEN f1=6
1040 IF b$="violett"THENf1=4
1050 IF b$="gr]" THEN  f1=15
1060 IF b$="vit" THEN  f1=1
1070 IF c$="svart"THEN f2=0
1080 IF c$="brun" THEN f2=9
1090 IF c$="r{pound}d" THEN  f2=2
1100 IF c$="orange"THENf2=8
1110 IF c$="gul" THEN  f2=7
1120 IF c$="gr{pound}n" THEN f2=5
1130 IF c$="bl]"  THEN f2=6
1140 IF c$="violett"THENf2=4
1150 IF c$="gr]" THEN  f2=15
1160 IF c$="vit" THEN  f2=1
1170 IF d$="svart"THEN f3=0
1180 IF d$="brun" THEN f3=9
1190 IF d$="r{pound}d" THEN  f3=2
1200 IF d$="orange"THENf3=8
1210 IF d$="gul" THEN  f3=7
1220 IF d$="gr{pound}n" THEN f3=5
1230 IF d$="bl]"  THEN f3=6
1240 IF d$="violett"THENf3=4
1250 IF d$="gr]" THEN  f3=15
1260 IF d$="vit" THEN  f3=1
1270 PRINTCHR$(147)
1280 PRINT"{space*14}ditt motst]nd:"
1290 PRINT
1300 PRINT"{space*9}{cm p*21}"
1310 PRINT"{space*8}N{space*21}M"
1320 PRINT"{space*8}{cm g}{space*22}{cm g}"
1330 PRINT"{space*3}{=*5}{cm g}{space*22}{cm g}{=*5}"
1340 PRINT"{space*8}{cm g}{space*22}{cm g}"
1350 PRINT"{space*8}M{space*21}N"
1360 PRINT"{space*9}{E*21}"
1370 FOR i=1 TO 30
1380 READ e,g,h,k
1390 IF k=100 THEN t=f1
1400 IF k=200 THEN t=f2
1410 IF k=300 THEN t=f3
1420 POKE e,g
1430 POKE h,t
1440 NEXT i
1450 IF b$="svart"THEN n1=0
1460 IF b$="brun" THEN n1=1
1470 IF b$="r{pound}d" THEN  n1=2
1480 IF b$="orange"THENn1=3
1490 IF b$="gul" THEN  n1=4
1500 IF b$="gr{pound}n" THEN n1=5
1510 IF b$="bl]"  THEN n1=6
1520 IF b$="violett"THENn1=7
1530 IF b$="gr]" THEN  n1=8
1540 IF b$="vit" THEN  n1=9
1550 IF c$="svart"THEN n2=0
1560 IF c$="brun" THEN n2=1
1570 IF c$="r{pound}d" THEN  n2=2
1580 IF c$="orange"THENn2=3
1590 IF c$="gul" THEN  n2=4
1600 IF c$="gr{pound}n" THEN n2=5
1610 IF c$="bl]"  THEN n2=6
1620 IF c$="violett"THENn2=7
1630 IF c$="gr]" THEN  n2=8
1640 IF c$="vit" THEN  n2=9
1650 IF d$="svart"THEN n3=0
1660 IF d$="brun" THEN n3=1
1670 IF d$="r{pound}d" THEN  n3=2
1680 IF d$="orange"THENn3=3
1690 IF d$="gul" THEN  n3=4
1700 IF d$="gr{pound}n" THEN n3=5
1710 IF d$="bl]"  THEN n3=6
1720 IF d$="violett"THENn3=7
1730 IF d$="gr]" THEN  n3=8
1740 IF d$="vit" THEN  n3=9
1750 n4=n1*10
1760 n5=10^n3
1770 r=(n4+n2)*n5
1780 PRINT"{down*5}"
1790 PRINT"{space*7}ditt motst]nd [r p]"r"ohm"
1800 RESTORE
1810 PRINT"{down*4}{space*11}v[lj(f,s,p)"
1820 GET v$:IF v$="" THEN GOTO 1820
1830 IF v$="f"THEN GOTO 850
1840 IF v$="s"THEN GOTO 600
1850 IF v$="p"THEN GOTO 260
1860 GOTO 1820
1870 DATA 1195,160,55467,100,1196,160,55468,100
1880 DATA 1235,160,55507,100,1236,160,55508,100
1890 DATA 1275,160,55547,100,1276,160,55548,100
1900 DATA 1315,160,55587,100,1316,160,55588,100
1910 DATA 1355,160,55627,100,1356,160,55628,100
1920 DATA 1199,160,55471,200,1200,160,55472,200
1930 DATA 1239,160,55511,200,1240,160,55512,200
1940 DATA 1279,160,55551,200,1280,160,55552,200
1950 DATA 1319,160,55591,200,1320,160,55592,200
1960 DATA 1359,160,55631,200,1360,160,55632,200
1970 DATA 1203,160,55475,300,1204,160,55476,300
1980 DATA 1243,160,55515,300,1244,160,55516,300
1990 DATA 1283,160,55555,300,1284,160,55556,300
2000 DATA 1323,160,55595,300,1324,160,55596,300
2010 DATA 1363,160,55635,300,1364,160,55636,300
2020 REM *****************************
2030 REM *****************************
2040 REM ***                       ***
2050 REM *** vill du byta spel p]  ***
2060 REM *** kasset? skicka lista  ***
2070 REM ***                       ***
2080 REM *** till:                 ***
2090 REM ***                       ***
2100 REM *** magnus enarsson       ***
2110 REM *** str[det 28            ***
2120 REM *** 29152 kristianstad    ***
2130 REM ***                       ***
2140 REM *****************************
2150 REM *****************************
stop tok64
(bastext 1.0)