@E'     PROGRAM TO DESIGN A DC MULTIMETER @@@G FOR G=0 TO 8\PRINT\NEXT G@@@J DIM M(5),V(5),O(5),R(5),A(5),E(5)@@@O PRINT TAB(22)"*****  METER MOVEMENT  *****"\PRINT@@@T PRINT"RESISTANCE (OHMS)";\INPUT R@@@Y PRINT"FULL SCALE CURRENT (AMPS)";\INPUT I  @@@^ PRINT\PRINT\PRINT@@@
 PRINT TAB(16)"*****  METER RANGES  (5 FOR EACH)  *****"\PRINT@@@( PRINT"DC VOLTS";\INPUT V(1),V(2),V(3),V(4),V(5)@@@- PRINT"AMPS IN INCREASING ORDER"  @@@. FOR Q=5 TO 1 STEP -1\PRINT TAB(5);\INPUT A(Q)\IF A(Q)>A(Q+1) THEN 49 @@@/ PRINT\PRINT\PRINT"*** VALUES IN INCREASING ORDER!!! ***"\PRINT\PRINT @@@0 Q=Q+1@@@1 NEXT Q @@@2 PRINT"OHMS (LARGER THAN METER MOVEMENT) HALF SCALE"  @@@8 FOR Q=1 TO 5\PRINT TAB(5);\INPUT O(Q)\IF O(Q)>R THEN 59  @@@9 PRINT\PRINT\PRINT"*** VALUE IS NOT SUITIBLE FOR THE SERIES OHMMETER !!! ***" @@@: PRINT\PRINT\Q=Q-1@@@; NEXT Q @@@< FOR P=0 TO 6\PRINT\NEXT P@@AA'     VOLTMETER DESIGN@@AF FOR A=1 TO 5\M(A)=(V(A)-(I*R))/I\NEXT A@@AK PRINT TA B(22)"*****  VOLTMETER  *****"\PRINT@@AN PRINT"OHMS PER VOLT=";1/I@@AP PRINT"RANGE(VOLTS)"," ","MULTIPLIER RESISTOR (OHMS)" @@AU FOR A=1 TO 5\PRINT V(A)," ",M(A)\NEXT A  @@AZ FOR P=0 TO 6\PRINT\NEXT P@@A['     OHMMETER DESIGN @@A\ PRINT TAB(23)"*****  OHMMETER  *****"\PRINT@@A
 FOR O=1 TO 5 @@A) PRINT\PRINT\PRINT@@A3 PRINT"HALF SCALE VALUE=";O(O)\E(O)=INT((I*R)+1)*1.5  @@A8 PRINT"VOLTAGE=";E(O);" VOLTS","ZERO ADJUST RHEOSTAT=";(E(O)*.2)/I;" OHMS"@@A= PRINT"CURRENT LIMITING RESISTOR=";(E(O)/I)-(R+(E(O)*.2)/I);" OHMS" @@BB PRINT TAB(20)"OHMMETER SCALE DIVIDED BY TENTHS"@@BG FOR X=1 TO 10\X1=X1+.1\X2=X1*I\Z=(E(O)/I)*((I-X2)/X2)@@BL PRINT Z,\NEXT X\PRINT\PRINT@@BM X1=0 @@BN NEXT O @@BQ FOR P=0 TO 6\PRINT\NEXT P@@BV'     AMMETER DESIGN@@B[ E=I*R\R1=R\S=E/(A(5)-I)\S1=S @@B  FOR N=5 TO 2 STEP -1 @@B% R(N)=((A(N-1)*S1)-(I*S1)-(R1*I))/A(N-1)  @@B* S1=S1-R(N)\R1=R1+R(N)@@B/ NEXT N\R(1)=S1 @@B4 PRINT TAB(26)"*****  AMMETER  *****"\PRINT @@B9 PRINT"SHUNT RESISTOR","VALUE"@@B> FOR N=1 TO 5\PRINT N,R(N)\NEXT N @@CC FOR P=0 TO 8\PRINT\NEXT P@@CH PRINT"DO YOU WANT ANOTHER RUN";\LINPUT A$@@CM IF A$="YES"THEN 15\IF A$="NO"THEN 250  @@CR PRINT"WHAT?"\GO TO 200 @@C: END@@
?@@@J DIM M(5),V(5),O(5),R(5),A(5),E(5)@@@O PRINT TAB(22)"*****  METER MOVEMENT  *****"\PRINT@@@T PRINT"RESISTANCE (OHMS)";\INPUT R@@@Y PRINT"FULL SCALE CURRENT (AMPS)";\INPUT I  @@@^ PRINT\PRINT\PRINT@@@
 PRINT TAB(16)"*****  METER RANGES  (5 FOR EACH)  *****"\PRINT@@@( PRINT"DC VOLTS";\INPUT V(1),V(2),V(3),V(4),V(5)@@@- PRINT"AMPS IN INCREASING ORDER"  @@@. FOR Q=5 TO 1 STEP -1\PRINT TAB(5);\INPUT A(Q)\IF A(Q)>A(Q+1) THEN 49 @@@/ PRINT