100 REM WRITTEN BY RUSS KINCAID, SAVAGE ROAD, MILFORD, NH 03055
110 PRINT" THIS PROG DESIGNS A SIMPLE MODEL OF OP AMPS":PRINT
120 INPUT"OPAMP NAME = ";N$
130 INPUT"INPUT RESISTANCE = ";RIN
140 INPUT"ZERO DB FREQ (Hz) = ";F0
150 INPUT"DC GAIN IN VOLTS/MV = ";AV:AV$=STR$(AV)
160 INPUT"OUTPUT RESISTANCE = ";R0
170 INPUT"POWER DISSAPATION = ";P : INPUT"AT TOTAL POWER SUPPLY VOLTS = ";V
180 RP=V^2/P :PI=3.14162
190 REM AT 6DB/OCT, THE NUMBER OF DECADES BETWEEN F0 & FC ARE:
200 E=(8.686*LOG(AV)+60)/20
210 FC=F0/10^E
220 C0=1/2/PI/FC/R0
230 OPEN N$+".SIM" FOR OUTPUT AS #1
240 PRINT#1,"* SIMPLE OPAMP MODEL * -IN +IN OUT +V -V"
250 PRINT#1,".SUBCKT ";N$;" 1 2 4 5 6"
260 PRINT#1,"RIN 1 2 ";RIN
270 PRINT#1,"E0 0 3 1 2 ";AV$;"K"
280 PRINT#1,"R0 3 4 ";R0
290 PRINT#1,"C0 4 0 ";C0
300 PRINT#1,"RP 5 6 ";RP
310 PRINT#1,".ENDS ";N$
320 CLOSE#1
330 PRINT:PRINT"USE THE TYPE COMMAND TO SEE THE FILE :";N$+".SIM"
340 END