@B PRINT "RC CHARGING CIRCUITS (TIME VARIES FROM 0 TO 200)" @@@D PRINT "E=";@@@E INPUT E@@@G PRINT "R=";@@@H INPUT R@@@J PRINT "C=";@@@K INPUT C@@@L PRINT@@@N PRINT "E(APPLIED)","T","R","C","E(C)"@@@P FOR T=0 TO 60 STEP 5 @@@Q LET V=E*(1-EXP(-T/(R*C)))@@@R PRINT E,T,R,C,V@@@T NEXT T @@@Y FOR T=80 TO 200 STEP 20@@@^ LET V=E*(1-EXP(-T/(R*C)))@@@! PRINT E,T,R,C,V@@@
 NEXT T @@AY PRINT@@AZ PRINT "TYPE 'RUN' AND CHANGE VALUES OF E,R, AND C" @@A
 END@@
?B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@