10 CLS
20 REM POWER SUPPLY SPECIFICATION PR
OGRAM
30 REM DY JACK CUNkELMAN
40 REM 3UNE 1995
50 INPUT "DO YOU WANT SCREEN DISPLAY
(5)	OR PRINTER OUTPUT (P)";D$
60 IF D$="S" THEN 90
70 IF D$="P" THEN 500
75 PRINT "INPUT ERROR" : GOTO 50
90 CLS
95 PRINT"POWER SUPPLY TYPE"
90	PRINT"	FULL WAYE BRIDGE Cl)"
100	PRINT"	 FULL WAVE CENTER TAP
2)"
110 PRINT"	FULL WAVE BRIDGE CENTE
R TAP (3)"
120 PRINT" ALL USING CAPACITOR INPUT
FILTERING"
130 INPUT" SELECT TYPE 1	2 , 3 OR
0 TO QUIT";T
135 IF T=0 THEN END
140 ON T GOTO 1000,2000,3000
150 GOTO 90
500 CLS
510 PRINT "THE PRINTER OPTION PRINTS
A TABLE OF VALUES FOR VARIOUS
TRANSFORMERS"
520	PRINT "TYPE OF CIRCUIT."
530	PRINT" FULL WAVE BRIDGE (1)"
540	PRINT" FULL WAVE CENTER TAP
2)"
550	PRINT" FULL WAVE BRIDGE CENTE
R TAP (3)"
560 PRINT" ALL USING CAPACITOR INPUT
FILTERING"
570 INPUT" SELECT TYPE 1 , 2 3 OR
0	TO QUIT";T
590 IF T=0 THEN END
590 ON T GOTO 1500,2500,3500
1000 CLS
1010 PRINT"FULL WAVE BRIDGE , CAPACI
TOR INPUT FILTER"
1020 INPUT"TRANSFORMER RMS VOLTAGE";
V
1025 IF V=0 THEN 90
1030 INPUT"TRANSFORMER CURRENT RAT IN
6 (AMPS)";C
1040 RVINT( (V*.95*1.414)+.04)
1050 DV=INT(2*RV)
1060 CV=INT(1.3*RV)
1070 OC Ä INT(C/1.9$10)
1090 GOSUB 5000

1090 PRINT V;TAB(21)RV;TAB(31)DV;TAB
(41) CV; TAB (52)OC/10
1100 GOTO 1010
1500 CLS
1510 INPUT"MINIMUM TRANSFORMER VOLTA
GE"; M
1522 T$="FULL WAVE BRIDGE"
1524 GOSUD 6000
1530 FOR V Ä M TO M+50
1540 RVINT((V*.95*1.414)+.04)
1550 DV=INT(2*RV)
1560 CV=INT(1.3$RY)
1590 LPRINT TAB(S) V;TAB(20)RV;TAB(31
DV; TAD (41) CV
1590 NEXT V
1600 GOTO 500
2000 CLS
2010 PRINT"FULL WAVE CENTER TAPPED ,
CAPACITOR INPUT FILTER"
2020 INPUT"TRANSFORMER RMS VOLTAGE
ENTIRE SECONDARY) ";V
2025 IF V=0 THEN 90
2030 INPUT"TRANSFORMER CURRENT RATIN
G (AMPS)";C
2040 RV=INT( (V*.95*1.414)+.04)/2
2050 DV=INT(4*RV)
2060 CV=INT(1.3*RV)
2070 DV=INT(4*RV)
2075 OC=INT(C/1.2S10)
2090 GOSUB 5000
2090 PRINT V;TAB(21)RV;TAB(31)DV;TAB
(41)CV;TAB(52)OC/10
2110 GOTO 2010
2500 CLS
2510 INPUT"MINIMUN TRANSFORMER VOLTA
GE (ENTIRE SECONDARY) ";M
2520 T$="FULL WAVE CENTER TAP"
2524 GOSUB 6000
2530 FOR V Ä M TO M+50
2540 RV==INT((V*.95*1414)+.04)/2
2550 DV=INT(4SRV)
2560 CV=INT(1.3*RV)
2590 LPRINT TAB(S) V;TAB(20)RV;TAB(31
DV; TAD (41) CV
2590 NEXT V
2600 GOTO 500
3000 CLS
3010 PRINT "FULL WAVE BRIDGE CENTER
TAP,CAPACITOR INPUT FILTER"
3020 INPUT"TRANSFORMER RMS VOLTAGE
ENTIRE SECONDARY) ";V
3025 IF VÄ0 THEN SO
3030 INPUT "TRANSFORMER CURRENT RATI
NG (AMPS)";C
3040 RV INT((V$.9581.414)+.04)/2
3050 DV Ä INT(4SRV)
3060 CV INT(1.3*RV)
3070 OC =INT((C/1.S)/2*10)
3090 GOSUD 5000
3090 PRINTV;TAB(1S)"+/Ä"RV;TAB(31)DV
;TAB(41)CV;TAB(49) "+/Ä"OC/10
3100 GOTO 3010
3500 CLS
3510 INPUT"MINIMUM TRANSFORMER VOLTA
GE (ENTIRE SECONDARY) ";M
3520 T$="FULL WAVE BRIDGE CENTER TAP

3525 GOSUB 6000
3530 FOR V Ä M TO M+50
	3540	RV	Ä INT((V*.95*1.414)+.04)/2
	3550	DV	= INT(4*RV)
	3580	CV	Ä INT(1.3$RV)
3580 LPRINT TAB(S) V;TAB(19)"+/Ä"RV;T
AB (31) DV; TAB (41 ) CV
3590 NEXT V
3600 GOTO 500
5000 PRINT "TRANSFORMER" ; TAB (20)" DC
";TAB(30) "DIODE";TAB(40) "CAPACITOR";
TAB(52) " DC "
5010 PRINT"VOLTAGE (RMS) "p TAD (20) "VOL
TS";TAB (30)" PIV ";TAB(40) "VOLTAGE";
TAB(51) "CURRENT (AMPS)"
5020 RETURN
6000 LPRINT;LPRINT;LPRINT
6005 LPRINT TAB(20) T$
6010 LPRINT TAD(20)"CAPACITOR INPUT
FILTER"
6015 LPRINT
6020 LPRINTTAB(5) "TRANSFORMER"; TAB(
20)" DC ";TAB(30) "DIODE"TAB(40) "CAPA
CITOR"
6030 LPRINTTAB (5) "VOLTAGE (RMS) ";TAB
(20)	"VOLTS";TAB(30)" PIV "p TAB(40) "V
OLTAGE"
6035 LPRINT
6040 RETURN