10 REM LM117.BAS
20 REM VOLTAGE REGULATOR DESIGN PROGRAM
30 CLS
40 PRINT"THIS PROGRAM DESIGNS A VOLTAGE REGULATOR USING LM117, LM217, OR
50 PRINT"LM317 IC IN TO-39, TO-3 OR TO-220 PACKAGE"
60 PRINT"THE MINIMUM OPERATING CURRENT IS DESIGNED INTO THE BIAS CIRCUIT"
70 PRINT"A 0.1uF CAPACITOR SHOULD BE CONNECTED TO THE INPUT TERMINAL"
80 PRINT"AN OUTPUT CAPACITOR IS RECOMMENDED BUT NOT REQUIRED."
90 PRINT
100 INPUT"STATE THE OUTPUT VOLTAGE:",VOUT
110 INPUT"STATE THE INPUT VOLTAGE:",VIN
120 INPUT"WHAT IS THE MIN OPERATING TEMPERATURE (DEG C)";TMIN
130 INPUT"WHAT IS THE MAX LOAD CURRENT (AMPS)";IL
140 IF TMIN<0 AND IL=>1 THEN VIO=2.5
150 IF TMIN<0 AND IL=<.5 THEN VIO=2.1
160 IF TMIN<0 AND IL=<.2 THEN VIO=1.8
170 IF TMIN=>0 AND IL=>1 THEN VIO=2.2
180 IF TMIN=>0 AND IL=<.5 THEN VIO=1.8
190 IF TMIN=>0 AND IL=<.2 THEN VIO=1.7
200 IF VIN-VOUT > VIO GOTO 220
210 PRINT:PRINT"VIN-VOUT MUST BE AT LEAST";VIO:PRINT:GOTO 100
220 IMINOP=1.5 + .05*(VIN-VOUT):REM MILLIAMPS
230 R1=1.25/IMINOP : REM KILOHMS
235 PRINT:PRINT"R1=";R1*1000";" OHMS"
237 INPUT"CHOOSE A STANDARD VALUE FOR R1:",R1:R1=R1/1000
240 R2=R1*(VOUT/1.25-1)
250 PRINT:PRINT"PACKAGE TYPE:"
260 PRINT"      1       TO-3"
270 PRINT"      2       TO-39"
280 PRINT"      3       TO-220 OR TO-202"
290 INPUT"WHICH ONE";X
300 ON X GOTO 400,500,600
400 CLS: PRINT"LM117K OR LM317K VOLTAGE REGULATOR"
410 PRINT"              ^"
420 PRINT"            /   \"
430 PRINT"          /       \"
440 PRINT"         |  O   O  |"
450 PRINT"         | adj vin |"
460 PRINT"          \       /"
470 PRINT"            \   /"
480 PRINT"              v  CASE IS OUTPUT"
490 PRINT"      BOTTOM VIEW"
495 GOTO 700
500 CLS:PRINT"LM117H OR LM317H VOLTAGE REGULATOR"
510 PRINT"              -"
520 PRINT"        TAB(  0  )INPUT"
530 PRINT"          (      0 )ADJ"
540 PRINT"            ( 0  )OUTPUT (CASE)"
550 PRINT"              -"
560 PRINT"      BOTTOM VIEW TO-39 CASE"
570 GOTO 700
600 CLS:PRINT"LM317T (TO220) OR LM317MP (TO-202) VOLTAGE REGULATOR"
610 PRINT"              _________"
620 PRINT"              |       |"
630 PRINT"              |       |"
640 PRINT"              |       |"
650 PRINT"              ---------"
660 PRINT"               |  |  |"
670 PRINT"               |  |  |"
680 PRINT"           ADJ  VOUT  VIN"
690 PRINT"      FRONT VIEW"
700 PRINT"CONNECTION DIAGRAM"
710 PRINT"              _________
720 PRINT"      VIN-|---|       |---|--VOUT"
730 PRINT"          |   |  ADJ  |   |"
740 PRINT"         C1   ---------   R1"
750 PRINT"          |       |       |"
760 PRINT"         GND      |-------|"
770 PRINT"                  R2"
780 PRINT"                  |"
790 PRINT"                 GND"
800 PRINT"      C1=0.1uF MIN"
810 PRINT"      R1=";R1*1000;" OHMS"
820 PRINT"      R2=";R2;" KOHMS"
830 INPUT"HARDCOPY";Y$
840 IF LEFT$(Y$,1)="y" OR LEFT$(Y$,1)="Y" THEN 900 ELSE 4160
900 ON X GOTO 1000,2000,3000
1000 CLS: LPRINT"LM117K OR LM317K VOLTAGE REGULATOR"
1010 LPRINT"              ^"
1020 LPRINT"            /   \"
1030 LPRINT"          /       \"
1040 LPRINT"         |  O   O  |"
1050 LPRINT"         | adj vin |"
1060 LPRINT"          \       /"
1070 LPRINT"            \   /"
1080 LPRINT"              v  CASE IS OUTPUT"
1090 LPRINT"      BOTTOM VIEW"
1095 GOTO 4000
2000 CLS:LPRINT"LM117H OR LM317H VOLTAGE REGULATOR"
2010 LPRINT"              -"
2020 LPRINT"        TAB(  0  )INPUT"
2030 LPRINT"          (      0 )ADJ"
2040 LPRINT"            ( 0  )OUTPUT (CASE)"
2050 LPRINT"              -"
2060 LPRINT"      BOTTOM VIEW TO-39 CASE"
2070 GOTO 4000
3000 CLS:LPRINT"LM317T (TO220) OR LM317MP (TO-202) VOLTAGE REGULATOR"
3010 LPRINT"              _________"
3020 LPRINT"              |       |"
3030 LPRINT"              |       |"
3040 LPRINT"              |       |"
3050 LPRINT"              ---------"
3060 LPRINT"               |  |  |"
3070 LPRINT"               |  |  |"
3080 LPRINT"           ADJ  VOUT  VIN"
3090 LPRINT"      FRONT VIEW"
4000 LPRINT"CONNECTION DIAGRAM"
4010 LPRINT"            _________"
4020 LPRINT"            |       |"
4030 LPRINT"    VIN-|---|       |-------|--VOUT"
4040 LPRINT"        |   |       |       |"
4050 LPRINT"       C1   |       |       |"
4060 LPRINT"        |   ---------       R1"
4070 LPRINT"       GND      |           |"
4080 LPRINT"                |------------"
4090 LPRINT"               R2"
4100 LPRINT"                |"
4110 LPRINT"               GND"
4120 LPRINT"    C1=0.1uF MIN"
4130 LPRINT"    R1=";R1*1000;" OHMS"
4140 LPRINT"    R2=";R2;" KOHMS"
4150 LPRINT CHR$(12)
4160 SYSTEM
4170 END