10 CLS
20 REM POWER SUPPLY SPECIFICATION PROGRAM
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 TAP2)"
110 PRINT"	FULL WAVE BRIDGE CENTER 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 CENTER 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 , CAPACITOR 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

1091 PRINT V;TAB(21)RV;TAB(31)DV;TAB(41) CV; TAB (52)OC/10
1100 GOTO 1010
1500 CLS
1510 INPUT"MINIMUM TRANSFORMER VOLTAGE"; 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(31DV; 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 RATING (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 VOLTAGE (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(31DV; 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 RATING (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 VOLTAGE (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;TAB (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) "VOLTS";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) "CAPACITOR"
6030 LPRINTTAB (5) "VOLTAGE (RMS) ";TAB(20)	"VOLTS";TAB(30)" PIV "p TAB(40) "VOLTAGE"
6035 LPRINT
6040 RETURN