A little something I put together at my work place.
Paralleling up resistors to get exact values.
L/R D-pad to add resistor. U/P D-pad to change value.
restore resistors
read sets
dim Rset$(sets)
dim Rnos(sets)
dim Rwat(sets)
dim R(sets)
for a=1 to sets
read Rset$(a)
read Rnos(a)
R(a)=1
next a
restore values
read resistor
dim Rv(resistor)
dim Rw(resistor)
for a=1 to resistor
read Rv(a)
read Rw(a)
next a
sel=1
math=1
open window 640,512
repeat
answer=0
answer1=0
setdispbuf vm
vm=1-vm
setdrawbuf vm
clear window
c=peek("port1")
if and(c,128)<>0 left=1
if left=1 L=L+1
if L>2 L=2
if L=2 left=0
if and(c,128)=0 L=0
if and(c,32)<>0 right=1
if right=1 R=R+1
if R>2 R=2
if R=2 right=0
if and(c,32)=0 R=0
if left=1 sel=sel-1
if right=1 sel=sel+1
if sel<1 sel=1
if sel>sets sel=sets
if and(c,16)<>0 up=1
if up=1 U=U+1
if U>2 U=2
if U=2 up=0
if and(c,16)=0 U=0
if and(c,64)<>0 down=1
if down=1 D=D+1
if D>2 D=2
if D=2 down=0
if and(c,64)=0 D=0
if and(c,1)<>0 slide=1
if slide=1 S=S+1
if S>2 S=2
if S=2 slide=0
if and(c,1)=0 S=0
if slide=1 math=math+1
if math>3 math=1
if math=1 text 150,100," math 1: all values parallel"
if math=2 text 150,100," math 2: all values added"
if math=3 text 150,100,"math 3: all values squared and added"
if math=4 text 150,100," math 4: variable parallel/added"
text 20,165," value"
text 20,185,"wattage"
for a=1 to sets
if sel=a then
setrgb 1,256,128,0
fill rectangle 50*a+48,138 to 50*a+71,156
endif
if sel=a then
setrgb 1,0,128,0
else
setrgb 1,256,256,256
endif
text 50*a+50,150,Rset$(a)
next a
for a=1 to sel
if sel=a and up=1 R(a)=R(a)+1
if sel=a and down=1 R(a)=R(a)-1
if R(a)<1 R(a)=1
if R(a)>resistor R(a)=resistor
for b=1 to resistor
if R(a)=b Rnos(a)=Rv(b)
if R(a)=b Rwat(a)=Rw(b)
next b
setrgb 1,256,256,256
text 50*a+50,165,str$(Rnos(a))
text 50*a+50,185,str$(Rwat(a))
next a
if math=1 then
for a=1 to sel
answer=answer+1/Rnos(a)
answer1=answer1+Rwat(a)
next a
text 500,165,str$(1/answer)
text 500,185,str$(answer1)
text 500,145,"totals"
endif
if math=2 then
for a=1 to sel
answer=answer+Rnos(a)
next a
text 500,165,str$(answer)
endif
if math=3 then
for a=1 to sel
answer=answer+(Rnos(a))^2
next a
text 500,165,str$(answer)
endif
if math=4 then
for a=1 to sel
if a=1 answer=answer+Rnos(a)
if a=2 answer=answer+Rnos(a)
if a=3 answer=answer+1/Rnos(a)
next a
text 500,165,str$(answer)
endif
until (1=0)
label resistors
data 8
data "R1",0
data "R2",0
data "R3",0
data "R4",0
data "R5",0
data "R6",0
data "R7",0
data "R8",0
label values
data 11
data 2.2,5
data 3.3,5
data 3.9,10
data 4.7,5
data 6.8,10
data 8,5
data 10,10
data 12,10
data 15,5
data 22,10
data 39,10
