*** VorCAD x.29 *** Voltage reference CAD program (c)1989 Rob L. Dey(2 : C(), TR$()< ^F Define colors!PG: Background color;Z X : C(X): Xyd 11,14,12,3,15,7,6,5,7,4,3,10,2,14,12,7,15,3,3,11,11,7,4n C(),G:x C(),G: )"*** VorCAD x.29 ***";: C(),G )"Voltage reference CAD";: C(),G  ;)"(c)1989 Rob L. Dey";! Print borders. C(),G= R [ R R R | R R R  R  R,: (); R  R,: (); R,O: (); R : X Print circuit" Resistors., C(),G:A$()K6 ,: A$;:  ,: A$;j@  ,: A$;:  , : A$;{J ConnectorsT C(),G:A$()^ ,: A$;:  , : A$;h ,: A$;r Wires| C(),G:A$() ,: A$;: ,: A$;  ,: A$;:  , : A$;: ,: A$;:A$()\  ,: A$;A$;:  , : A$;z  ,: A$;A$;:A$()  , : A$;:A$()  ,: A$;:A$()  , : A$; Arrows C( ),G:A$() ,: A$;:  , : A$; Text) C( ),G:A$():  ,: A$;L ,: "VS";m ,: "RS";: , : "IT";& ,: "cw ";0  ,: "RP";:  ,: "VO";:  , : "IL";D  ,: "RC";:  , : "RL";N ,: "VC";:*X C(),G: ,: "CIRCUIT:";: ,: "RESULTS:";Ub ,: "INPUT:";: ,: "TABLE:";l C(),G: , : "Starting";: , : "Starting";v , : "Complete";: ,: "Complete"; Get parameter list X : TR$(X): X) C( ),G: ,: "Parameter Ideal Standard";W C( ),G: ,5: "RSup * *"; ,: "VSup * * RCom * *"; ,: "VCom * * RPot * *"; ,: "VRng * * RLod * *";`  ,: "VOutFCW * * ITot * *";  ,: "VOutCCW * * ILod * *";  ,: "VOutPOS * * PSup * *";)  ,: "%Pos * * PCom * *";l ,: "%Rng * * PPot * *"; ,: "%Tol * * PLod * *";  :   Print table C(),G  ,: "VSup %Pos RSup ITot Help";`* ,: "VCom %Tol RCom VRng Print";4 ,: "RLod VOut RPot %Rng Quit";> C(),GH ,: "1";: ,$: "4";: ,.: "7";R ,8: "10";: ,C: "13";4\ ,: "2";: ,$: "5";: ,.: "8";Xf ,8: "11";: ,C: "14";p ,: "3";: ,$: "6";: ,.: "9";z ,8: "12";: ,C: "15"; C(),G ,: "MUST Enter: (Items 1 or 2 and 1 of 7 through 10)"; Define default values4XP2:XT:XR2] LP LP VSVC  :  RS RP RC (IT) :  C(),G: ,: "Enter parameters:";C:CM:   , I$"1" I$"VS" I$"vs" LP: : (; I$"2" I$"VC" I$"vc" LP: : Zo I$"3" I$"RL" I$"rl" LP: :  I$"4" I$"%P" I$"%p" LP: :  I$"5" I$"%T" I$"%t" LP: :   I$"6" I$"VO" I$"vo" LP: : "? $ I$"7" I$"RS" I$"rs" LP: : hs . I$"8" I$"RC" I$"rc" LP: :  8 I$"9" I$"RP" I$"rp" LP: :  B I$"10" I$"IT" I$"it" LP : : !L I$"11" I$"VR" I$"vr" LP : : 0I!V I$"12" I$"%R" I$"%r" LP : : Nx!` I$"13" I$"H" I$"h" I$"?" l!j I$"14" I$"P" I$"p"  !t I$"15" I$"Q" I$"q"  !~ I$"RT" I$"rt"  " I$"VT" I$"vt"  6" I$"FU" I$"fu" "That isn't nice!";: *I" ,: );r" , : C(),G: "Complete";: " Print one border line" R,: A,B,C,D" (A);: L : (B);: L" (C);: L 9: (B);: L# (D);:RR:# Borders print dataP# 201,205,205,187,204,205,203,185,199,196,215,182# 204,205,206,185,199,196,215,182,200,205,202,188# VSup,VCom,VRng,VOutFCW,VOutCCW,VOutPOS,%Pos,%Rng,%Tol#  RSup,RCom,RPot,RLod,ITot,ILod,PSup,PCom,PPot,PLod$ Print Entering flagE$ , : C(),C(): "Entering";: :S$( (1)VSup$2 ,: C( ),G: "VS ";: C(),G: ();$< : "VSup= ";:C:CM :  :  :VSIV$F ,: C( ),G: "VS ";: C(),G: ();%PR:C :PVS:X$"V": $: %Z (2)VComQ%d ,: C( ),G: "VC ";: C(),G: ();%n : "VCom= ";:C:CM :  :  :VCIV%x ,: C( ),G: "VC ";: C(),G: ();%R:C :PVC:X$"V": $: % (3)RLod&  , : C(),G: ();: C( ),G: " RL";S& : "RLod= ";:C:CM :  :  :RL(IV)&  , : C(),G: ();: C( ),G: " RL";&R:C;:PRL:X$(): $: & (4)%Pos& ,: C( ),G: "cw =100%";:  ,: ();&' : "%Pos= ";:C:CM :  :  :XP(IV)Y' ,: C( ),G: "cw ";:  ,: ();'R :C :PXP:X$"%": $: ' (5)%Tol' ,: C(),G: ();:  ,: ();' : "%Tol= ";:C:CM :  :  :XT(IV)!( ,: C(),G: ();:  ,: ();G(R:C :PXT:X$"%": $: U(" (6)VOut(, , : C( ),G: "@50%";:  ,: "VO";(6  , : C(),G: ();: (@ "VOut= ";:C:CM :  :  :VOIV)J , : C( ),G: " ";:  ,: "VO";')T  , : C(),G: ();M)^R :C :PVO:X$"V": $: [)h (7)RSup)r ,: C( ),G: "RS ";: C(),G: ();)| : "RSup= ";:C:CM :  :  :RS(IV)) ,: C( ),G: "RS ";: C(),G: ();*R:C;:PRS:X$(): $: +* (8)RCom`*  ,: C( ),G: "RC ";: C(),G: ();* : "RCom= ";:C:CM :  :  :RC(IV)*  ,: C( ),G: "RC ";: C(),G: ();*R:C;:PRC:X$(): $: * (9)RPot2+  ,: C( ),G: "RP ";: C(),G: ();h+ : "RPot= ";:C:CM :  :  :RP(IV)+  ,: C( ),G: "RP ";: C(),G: ();+R:C;:PRP:X$(): $: + (10)ITot, ,: C( ),G: ();: C( ),G: "IT";6, : "ITot= ";:C:CM :  :  :ITIVf, ,: C( ),G: ();: C( ),G: "IT";,&R :C;:PIT:X$"A": $: ,0 (11)VRng,: "VRng= ";:C:CM :  :  :VR(IV),DR:C :PVR:X$"V": $: ,N (12)%Rng/-X "%Rng= ";:C:CM :  :  :XR(IV)U-bR:C :PXR:X$"%": $: d-l (13)Help-v "Help? ";:C:CM:  : I$"Y" I$"y" - - Help menu items- Data entering,Abbreviations,Explainations. Units/symbols,Notes/remarks,Quit/continue6. X : HM$(X): XS. C(),G: ,: );c. : . , : C(),G: "Possible";.LX.  : H:SC: t : X . : . Exit help menu. :  :  / 4: : /  Clear table+/ ,: );]/  ,: C(),C(): "Updating";: C(),G/* R : R,: 9);: R:/4 Print table complete/> ,: C(),G: "Complete";:/H Print help menu/R ,.: C(),G 0\ "HELP MENU";: C(),G#0f X : : X80p Menu selectionM0zXLX:  : 4d0K$: K$"" 0 (K$) K$(K$,): 8 : 0 K$"D" K$"d" :X:  0 K$"A" K$"a" :X:  1 K$"E" K$"e" :X:  -1 K$"U" K$"u" :X:  U1 K$"N" K$"n" :X:  }1 K$"Q" K$"q" :X:  1 (K$) :X:  1 (K$) :1 1 Past selection1 X X,8 : X, !2 HK$(HM$(X),):HR$(HM$(X),)I2 C(),G: HK$;: C(),G: HR$;:a2 Present selection2$ X X,8 : X, 2. C(),C(): HM$(X);: C(),G:28 Arrow keys2B (K$)P X :XX:  3L (K$)H X :XX:  =3V (K$)M X :XX:  g3` (K$)K X :XX:  r3j LXX:3t Help screens3~ X v3 X *3 X 3 X 3 X 3 3 (14)Print.4 "Print? ";:C :CM:  : I$"Y" I$"y"  84 K4 Print screenr4 C(),G: ,: "Printout";);4 ,: );4 R 4 C O4 X(R,C)4 X X X 4 X X X|4( X X X+52 X X X+,5< X X X-E5F X X X+^5P X X X+p5Z X XX5d X Xo5n X X*5x (X);5 C5 5 R5 : 5 (15)Quit5 );: ,6 "Quit? ";:C:CM:  06 I$"Y" I$"y" ,:: ::6 N6 RTot - Hidden6 C( ),G: "RTot=";:R:C:PRT:X$()6 $: : 6 VTot - Hidden6 C( ),G: "VTot=";:R:C:PVT:X$"V"6 $: : 6 Line editor 7" C(),G*7, ,C: "_";:I$"":CSCA76 K$: K$"" 6 V7@ (K$)  j7J (K$) 7T (K$) ,:  7^ (K$) K$(K$,): t: 6 7h (I$)CM 6 7r ,C7| K$;"_";:CC7 I$I$K$7 6 8 Backspace&8 CC: CCS CCS98 ,C: "_ ";K8 I$"" 6 x8 (I$) I$"" : I$(I$,(I$))8 6 8 Exponent test8 IV(I$)8 L (I$):X$(I$,L,)8 X$"M" IVIV$t:9 X$"K" X$"k" IVIVz:%9 X$"m" IVIVow:K9 X$"U" X$"u" IVIV7m:q9 X$"N" X$"n" IVIV_p c:9& X$"P" X$"p" IVIV̼ Y:90 L:9: Update results9D Print Updating results flag:N , : C(),C(): "Updating";: :X Calculations&:b VTVSVC8:l RL z P:v Unloaded formulas: VO IT ITVT(RSRPRC):VR(RPIT): R : VO VOVT: VR LP VR(VO)(XRd): VR LP XR(VR(VO))d ; RS LP  : R +; RC LP  : R K; RP LP  : R p; (IT) LP 4 : R ; 4 : R ; RS-known; IT(VS((VR)VO))RS:RP(VRIT); RC(((VO(VR))VC)IT):; RC-known< IT((VO(VR))VC)RC:RS((VS((VR)VO))IT)0< RP(VRIT):?< RP-knowng< ITVRRP:RS((VS((VR)VO))IT)<* RC(((VO(VR))VC)IT):<4 IT-known<> RS((VS((VR)VO))IT):RP(VRIT) R:PVC: $:R:PVR: $0> R :PVX: $:R :PVN: $[> R :PVP: $:X$"%":R :PXP: $> R:PXR: $:R:PXT: $> C;:X$():R:PRS: $> R:PRC: $:R:PRP: $> R:PRL: $:X$"A":R :PIT: $? R :PIL: $:X$"W",? R :PPS: $:R :PPC: $P? R:PPP: $:R:PPL: $z? , : C(),G: "Complete";: :? Return cursor? ,: C(),G:?$ Print param result?. C(),G?8 (P)$t V$"M":PP$t: $@B (P)z V$"k":PPz: B@L (P) V$" ": n@V (P)ow V$"m":PPow: @` (P)7m V$"u":PP7m: @j (P)_p c V$"n":PP_p c: @t (P)̼ Y V$"p":PP̼ Y:  A~ (P) V$" "A R,C:  );NA R C; RL R,C: "Infinite";:rA R,C: "###.###";P;: V$;X$;xAA Print Updating circuit flagA , : C(),C(): "Updating";: :A Update circuitA B RS RP RC : <$B RS F7B RS ZKB RP n^B RP rB  RC B RC B RL B( RL B2LP: , : C(),G: "Complete";:B<LP: , : C(),G: "Starting";:CF Delete RSupBCP ,: C( ),G: " ";: C(),G: ();:TCZ Insert RSupCd ,: C( ),G: "RS ";: C(),G: ();:Cn Delete RPotCx ,: C( ),G: );C  ,: C( ),G: " ";: C(),G: ();D  ,: C( ),G: " ";:D Insert RPot6D ,: C( ),G: "cw ";gD  ,: C( ),G: "RP ";: C(),G: ();D  ,: C( ),G: ();:D Delete RComD  ,: C( ),G: " ";: C(),G: ();:D Insert RComE  ,: C( ),G: "RC ";: C(),G: ();:$E Delete RLodCE  , : C(),G: ();`E  , : C( ),G: );}E  , : C( ),G: );E  ,: C(),G: ();: C( ),G: " ";:E Insert RLodE"  , : C(),G: ();F,  , : C(),G: ();*F6 C( ),G: ();: C( ),G: "IL";\F@  , : C(),G: ();: C( ),G: " RL";FJ  ,: C(),G: ();();();();FTF^ Error trap routineFh:E:  ,G: ,: "ERROR #";E;FrE$"Check Printer": ,G| E E E E$;.G E9 ED E$;EGK$: K$"" hG ,: C(),G: );: G Display specific help screenG  : t G ,: C(),G: HM$(X);GL$(SC$,):R$(SC$,)GLV(L$):RV(R$):SD$" "$H LV RV SD$()" ": JH LVRV SD$()(): gH LVRV SD$" "()H ,8: "=Exit ";SD$;" ";H C(),G: SC$;H Z H Z,: H$(Z);H Z: 4H& Change screenI0K$: K$"" 0I: K$"Q" K$"q" /ID (K$) SIN (K$) K$(K$,) : 0IX (K$)P SCSC: LVRV SCRV : Ib (K$)H SCSC: LV SC : Il 0Iv Help screen DE1I SC ISC$"1 of 2";JH$()" To enter parameter values, first select the parameter by"~JH$()" entering the upper-case characters or the item number"JH$()" that is given in the table."JH$()" EXAMPLE: Entering VS, vs, or 1, selects VSup."KH$()" NOTE: Also see Abbreviations and Explainations."%K;K Help screen DE2MK SC SC^KSC$"2 of 2"KH$()" Parameter values can be entered in many formats."KH$()" EXAMPLES: 4700, 4.7k, 4.7K, 4.7e3, and 4.7E3."LH$()" NOTES: 1-Only the first valid letter is recognized for"ZL H$()" the multiplier. All other characters are ignored."LH$()" 2-See Units/symbols for more information."L L* Help screen A1L4 SC L>SC$"1 of 4"LHH$()" SYMBOL ABBREV PARAMETER"*MRH$()" VS VSup Supply Voltage"WM\H$()" VC VCom Common Voltage"MfH$()" VR VRng Range Voltage"MpH$()" VO VOut Output Voltage"MzM Help screen A2M SC MSC$"2 of 4"NH$()" %P %Pos Position Percentage"NNH$()" %R %Rng Range Percentage"NH$()" %T %Tol Tolerance Percentage"NH$()" RS RSup Supply Resistance"NH$()" RC RCom Common Resistance"NN Help screen A3 O SC 8OSC$"3 of 4"UOH$()" RP RPot Potentiometer Resistance"OH$()" RL RLod Load Resistance"OH$()" IT ITot Total Current"OH$()" IL ILod Load Current"P$H$()" PS PSup Supply resistor Power"P.)P8 Help screen A4;PB SC SCLPLSC$"4 of 4"PVH$()" PC PCom Common resistor Power"P`H$()" PP PPot Potentiometer Power"PjH$()" PL PLod Load Power"QtH$()" RT RTot Total Resistance (Hidden)"HQ~H$()" VT VTot Total Voltage (Hidden)"NQcQ Help screen E1tQ SC QSC$"1 of 4"QH$()" PARAMETER = DEFINITION [Polarity](Default)"QH$()" VSup = Source power supply voltage.[+/-](0V)"1RH$()" VCom = Common power supply voltage.[+/-](0V)"lRH$()" VRng = Voltage range of potentiometer.[+](0V)"RH$()" VOut = Circuit output voltage. %P=50 [+/-](VT/2)"RR Help screen E2R SC FRSC$"2 of 4"%S H$()" %Pos = Percent position of pot. FCCW=0% [+](50%)"^SH$()" %Rng = Percent range of pot. VR/VO [+](50%)"SH$()" %Tol = Percent tolerance of RS and RC.[+](5%)"S(H$()" RSup = Source supply resistor value.[+](0 ohms)"T2H$()" RCom = Common supply resistor value.[+](0 ohms)"T<.TF Help screen E3?TP SC PTZSC$"3 of 4"TdH$()" RPot = Potentiometer resistance value.[+](0 ohms)"TnH$()" RLod = Applied load resistance value.[+](Infinite)" UxH$()" ITot = Total circuit supply current.[+/-](0A)"HUH$()" ILod = Current through load resistance.[+/-](0A)"UH$()" PSup = Power across source supply resistor.[+](0W)"UU Help screen E4U SC SCUSC$"4 of 4"VH$()" PCom = Power across common supply resistor.[+](0W)"=VH$()" PPot = Power across potentiometer.[+](0W)"vVH$()" PLod = Power across load resistance.[+](0W)"VH$()" RTot = Total circuit series resistance.[+](0 ohms)"VH$()" VTot = Total circuit supply voltage.[+/-](0V)"V W Help screen U1W SC T.WSC$"1 of 3" for IBM graphics printers on LPT1."\H$()" Use 14-Print in the table for ASCII printers on LPT1."\H$()" "\\ Help screen N3] SC SC]SC$"3 of 3"J]H$()" *** VorCAD 1.00 *** (c)1989"j]H$()" Rob L. Dey KA2BEO"]H$()" P.O. Box 1849"]H$()" Point Pleasant, NJ 08742 USA"]H$()" 908-892-4781"] ] Hidden parameter^  ,: C(),G: "Hidden parameter:";*^*C:CM:  :J^4 Past selection - Tag modek^> X X,4 : X,^HTK$((,()))^R C(),G: TK$;^\ C( ),G: TR$(X);^f^p Present selection - Tag mode^z X X,4 : X,_TK$((,()))+_ C(),C(): TK$;I_ C( ),C(): TR$(X);O_k_ Arrow keys - Tag mode_ (K$)P X 4:XX: p_ (K$)H X 4:XX: p_ (K$)M X 4:XX : p` (K$)K X 4:XX : p`-` Tag modeY` ,: C(),G: "Tag parameters: ";|` ,: C(),G: );: p`K$: K$"" ` (K$) K$(K$,): : ` K$"Q" K$"q" 4: `$ K$"T" K$"t" a. K$"U" K$"u" :a8 K$"+" VSVC XaB K$"-" VSVC vaL (K$) 4: aV (K$) 4: a` (K$) aj at Enter tag mode?a~ (K$)P (K$)M X: b (K$)H (K$)K X: #b=b Tag/Untag parameter^b X X,4 : X,ubTK$((,()))b C(),C()b TK$( ) ();b TK$() ( );bb Up R standard valuec X RSRS:LP: : #c X RCRC:LP: : Cc X RPRP:LP: : Ic ec Down R standard valuec X RSRS:LP: : c( X RCRC:LP: : c2 X RPRP:LP: : c<