P1COLOR = 1
P2COLOR = 2
PCOLOR = 3
V2COLOR = 6



R1 = 5
V = 10
SCREEN 12
CLS
FOR n = 0 TO 640 STEP 40
LINE (0, n)-(640, n), 8
LINE (n, 0)-(n, 480), 8
NEXT
LINE (0, 479)-(640, 479), 8
LINE (639, 0)-(639, 480), 8

x = 0
DO
'DO
A$ = INKEY$
'LOOP WHILE A$ = ""
A$ = RIGHT$(A$, 1)
IF A$ = "H" THEN R2 = R2 + 1
IF A$ = "P" THEN R2 = R2 - 1
A = V / (R1 + R2)
P = A * V
P2 = A * R2 * A
P1 = A * R1 * A

'PSET (x, 480 - (P * 40)), PCOLOR
'PSET (x, 480 - (R2 * 10)), R2COLOR
'PSET (x, 480 - (R1 * 10)), R1COLOR
PSET (x, 480 - (A * R2 * 40)), V2COLOR
PSET (x, 480 - (P1 * 40)), P1COLOR
PSET (x, 480 - (P2 * 40)), P2COLOR

x = x + .1
R2 = R2 + .0025
LOOP WHILE ((A$ <> CHR$(27)) AND (x < 640))
LOCATE 2, 2
COLOR P1COLOR
PRINT "Power across R1"
LOCATE 3, 2
COLOR P2COLOR
PRINT "Power across R2"
LOCATE 4, 2
COLOR PCOLOR
PRINT "Total Power"
LOCATE 5, 2
COLOR V2COLOR
PRINT "Volts across R2"
COLOR 7



SLEEP