Listing of file='OHMLAW.BAS;01' on disk='vmedia/utility-sector.ccvf'
1 FOR T= 1 TO 4:READ T$(T):NEXT 9 R1= 0:R2= 0:A1= 0:A2= 0:V1= 0:V2= 0:W1= 0:W2= 0 10 PLOT 12:PRINT "PARAMETERS MUST END IN THE FOLLOWING SUFFICES EG. 100W" 11 PRINT "A=AMPS V=VOLTS R=OHMS W=WATTS" 12 PRINT :PRINT :PRINT 19 INPUT "PARAMETER 1 ";P1$ 20 INPUT "PARAMETER 2 ";P2$ 100 IF RIGHT$ (P2$,1)= "W"THEN M= M+ 128:W2= VAL (P2$) 160 Q$= RIGHT$ (P1$,1)+ RIGHT$ (P2$,1) 200 A1= VAL (P1$):V1= A1:W1= A1:R1= A1 210 A2= VAL (P2$):V2= A2:W2= A2:R2= A2 1500 IF Q$= "AR" THEN X= A1* R2:T= 3:GOSUB 20000:RUN 1800 IF Q$= "RA" THEN X= A2* R1:T= 3:GOSUB 20000:RUN 2200 IF Q$= "AA" THEN X= A1+ A2:T= 8:GOSUB 20000:RUN 2800 IF Q$= "VR" THEN X= V1/ R2:T= 2:GOSUB 20000:RUN 3400 IF Q$= "VA" THEN X= A2* V1:T= 4:GOSUB 20000:X= V1/ A2:T= 1:GOSUB 20000:RUN 4300 IF Q$= "RV" THEN X= V2/ R1:T= 2:GOSUB 20000:RUN 4600 IF Q$= "AV" THEN X= A1* V2:T= 4:GOSUB 20000:X= V2/ A1:T= 1:GOSUB 20000:RUN 5800 IF Q$= "VV" THEN X= ABS (V1- V2):T= 9:GOSUB 20000:RUN 8200 IF Q$= "WA" THEN X= W1/ A2:T= 3:GOSUB 20000:RUN 10600 IF Q$= "WV" THEN X= W1/ V2:T= 2:GOSUB 20000:RUN 14200 IF Q$= "AW" THEN X= W2/ A1:T= 3:GOSUB 20000:RUN 15400 IF Q$= "VW" THEN X= W2/ V1:T= 2:GOSUB 20000:RUN 19999 PRINT "ILLEGAL":RUN 20000 X= INT (X* 1000)/ 1000 20001 IF T= 9 THEN PRINT :PRINT "VOLTAGE DIFFERENCE OF";X;" ";T$(3);:GOTO 20010 20002 IF T= 8 THEN PRINT :PRINT "TOTAL CURRENT OF";X;" ";T$(2);:GOTO 20010 20006 PRINT :PRINT P1$;" WITH ";P2$;" RESULTS IN"; 20007 IF X< 1 AND X> .0001 THEN X= X* 1000:PRINT X;" MILLI";T$(T);:GOTO 20010 20008 IF X< 1 THEN X= X* 1000:PRINT X;" MICRO";T$(T);:GOTO 20010 20009 IF X> = 1 THEN PRINT X;" ";T$(T); 20010 INPUT " ";Z$:RETURN 50000 DATA OHMS,AMPS,VOLTS,WATTS