ELECT. FORMULAS

00000000: 01 08 3E 08 00 00 97 35  33 32 38 30 2C 30 3A 97  |..>....53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A  45 B2 33 31 37 34 34 3A  |53281,0:E.31744:|
00000020: 99 22 98 22 C7 28 31 34  32 29 3A 8F 20 20 43 36  |.".".(142):.  C6|
00000030: 34 20 4D 4F 44 53 20 57  49 4D 20 27 38 33 00 48  |4 MODS WIM '83.H|
00000040: 08 02 00 89 20 35 31 30  00 6D 08 03 00 8F 20 50  |.... 510.m.... P|
00000050: 52 4F 47 52 41 4D 20 46  52 4F 4D 20 4B 49 4C 4F  |ROGRAM FROM KILO|
00000060: 42 41 55 44 3B 41 55 47  20 31 39 37 37 00 90 08  |BAUD;AUG 1977...|
00000070: 04 00 8F 20 4D 4F 44 49  46 49 45 44 20 42 59 20  |... MODIFIED BY |
00000080: 4A 45 52 52 59 20 45 2E  20 44 55 4E 4D 49 52 45  |JERRY E. DUNMIRE|
00000090: 00 B4 08 05 00 8F 20 37  20 57 20 59 4F 52 4B 53  |...... 7 W YORKS|
000000A0: 48 49 52 45 20 44 52 20  20 53 54 4F 43 4B 54 4F  |HIRE DR  STOCKTO|
000000B0: 4E 2C 43 41 00 D6 08 06  00 8F 20 5A 49 50 2D 39  |N,CA...... ZIP-9|
000000C0: 35 32 30 37 2C 54 45 4C  45 2E 32 30 39 2D 39 35  |5207,TELE.209-95|
000000D0: 31 2D 32 31 31 30 00 E9  08 07 00 8F 20 4A 55 4E  |1-2110...... JUN|
000000E0: 45 20 32 39 2C 31 39 37  38 00 05 09 0A 00 8F 20  |E 29,1978...... |
000000F0: 45 4C 45 43 54 52 4F 4E  49 43 20 43 41 4C 43 55  |ELECTRONIC CALCU|
00000100: 4C 41 54 4F 52 00 23 09  14 00 99 22 93 22 2C 22  |LATOR.#....".","|
00000110: 12 43 4F 4E 56 45 52 54  20 50 2D 50 20 54 4F 20  |.CONVERT P-P TO |
00000120: 52 4D 53 00 39 09 1E 00  99 3A 85 22 50 2D 50 20  |RMS.9....:."P-P |
00000130: 56 4F 4C 54 53 3D 22 3B  45 00 61 09 28 00 41 24  |VOLTS=";E.a.(.A$|
00000140: B2 22 22 3A 58 B2 31 AD  BA 28 32 29 AC 28 45 AD  |."":X.1..(2).(E.|
00000150: 32 29 3A 42 24 B2 22 52  4D 53 20 56 4F 4C 54 53  |2):B$."RMS VOLTS|
00000160: 22 00 6B 09 2D 00 8D 20  34 30 30 00 71 09 32 00  |".k.-.. 400.q.2.|
00000170: 8E 00 88 09 64 00 8F 20  52 4D 53 20 54 4F 20 50  |....d.. RMS TO P|
00000180: 20 41 4E 44 20 50 2D 50  00 AC 09 6E 00 99 22 93  | AND P-P...n..".|
00000190: 22 2C 22 12 43 4F 4E 56  45 52 54 20 52 4D 53 20  |",".CONVERT RMS |
000001A0: 54 4F 20 50 20 41 4E 44  20 50 2D 50 00 C1 09 78  |TO P AND P-P...x|
000001B0: 00 85 22 11 52 4D 53 20  56 4F 4C 54 53 3D 22 3B  |..".RMS VOLTS=";|
000001C0: 52 00 E8 09 82 00 52 B2  52 AC BA 28 32 29 3A 58  |R.....R.R..(2):X|
000001D0: B2 52 3A 41 24 B2 22 50  45 41 4B 20 56 4F 4C 54  |.R:A$."PEAK VOLT|
000001E0: 53 22 3A 42 24 B2 22 22  00 F1 09 87 00 8D 34 30  |S":B$.""......40|
000001F0: 30 00 19 0A 8C 00 41 24  B2 22 50 45 41 4B 20 54  |0.....A$."PEAK T|
00000200: 4F 20 50 45 41 4B 20 56  4F 4C 54 53 22 3A 58 B2  |O PEAK VOLTS":X.|
00000210: 32 AC 52 3A 42 24 B2 22  22 00 22 0A 91 00 8D 34  |2.R:B$.""."....4|
00000220: 30 30 00 28 0A 96 00 8E  00 3F 0A C8 00 8F 20 52  |00.(.....?.... R|
00000230: 45 53 49 53 54 4F 52 20  4E 45 54 57 4F 52 4B 00  |ESISTOR NETWORK.|
00000240: 60 0A D2 00 99 22 93 22  2C 22 12 53 4F 4C 55 54  |`....".",".SOLUT|
00000250: 49 4F 4E 20 4F 46 20 52  20 4E 45 54 57 4F 52 4B  |ION OF R NETWORK|
00000260: 00 79 0A DC 00 85 22 11  45 4E 54 45 52 20 52 31  |.y....".ENTER R1|
00000270: 20 4F 52 20 30 22 3B 52  31 00 92 0A E6 00 85 22  | OR 0";R1......"|
00000280: 11 45 4E 54 45 52 20 52  32 20 4F 52 20 30 22 3B  |.ENTER R2 OR 0";|
00000290: 52 32 00 B6 0A EB 00 85  22 11 45 4E 54 45 52 20  |R2......".ENTER |
000002A0: 54 4F 54 41 4C 20 56 4F  4C 54 41 47 45 20 4F 52  |TOTAL VOLTAGE OR|
000002B0: 20 30 22 3B 45 31 00 D1  0A F0 00 85 22 11 45 4E  | 0";E1......".EN|
000002C0: 54 45 52 20 56 4F 55 54  20 4F 52 20 30 22 3B 45  |TER VOUT OR 0";E|
000002D0: 32 00 DF 0A F5 00 8B 52  31 B2 30 89 32 37 35 00  |2......R1.0.275.|
000002E0: EE 0A FA 00 8B 20 52 32  B2 30 89 32 38 35 00 FC  |..... R2.0.285..|
000002F0: 0A FF 00 8B 45 31 B2 30  89 32 39 35 00 0B 0B 04  |....E1.0.295....|
00000300: 01 8B 45 32 B3 B1 30 89  33 31 30 00 1F 0B 09 01  |..E2..0.310.....|
00000310: 58 B2 45 31 AC 52 32 AD  28 52 31 AA 52 32 29 00  |X.E1.R2.(R1.R2).|
00000320: 3F 0B 0E 01 41 24 B2 22  56 4F 55 54 22 3A 42 24  |?...A$."VOUT":B$|
00000330: B2 22 56 4F 4C 54 53 22  3A 8D 34 30 30 3A 8E 00  |."VOLTS":.400:..|
00000340: 53 0B 13 01 58 B2 52 32  AC 28 45 31 AB 45 32 29  |S...X.R2.(E1.E2)|
00000350: AD 45 32 00 70 0B 18 01  41 24 B2 22 52 31 22 3A  |.E2.p...A$."R1":|
00000360: 42 24 B2 22 4F 48 4D 53  22 3A 8D 34 30 30 3A 8E  |B$."OHMS":.400:.|
00000370: 00 86 0B 1D 01 58 B2 28  45 32 AC 52 31 29 AD 28  |.....X.(E2.R1).(|
00000380: 45 31 AB 45 32 29 00 A3  0B 22 01 41 24 B2 22 52  |E1.E2)...".A$."R|
00000390: 32 22 3A 42 24 B2 22 4F  48 4D 53 22 3A 8D 34 30  |2":B$."OHMS":.40|
000003A0: 30 3A 8E 00 B8 0B 27 01  58 B2 28 45 32 AC 28 52  |0:....'.X.(E2.(R|
000003B0: 31 AA 52 32 29 AD 52 32  00 E1 0B 2C 01 41 24 B2  |1.R2).R2...,.A$.|
000003C0: 22 54 4F 54 41 4C 20 56  4F 4C 54 41 47 45 22 3A  |"TOTAL VOLTAGE":|
000003D0: 42 24 B2 22 56 4F 4C 54  53 22 3A 8D 34 30 30 3A  |B$."VOLTS":.400:|
000003E0: 8E 00 0D 0C 36 01 58 B2  52 31 AA 52 32 3A 41 24  |....6.X.R1.R2:A$|
000003F0: B2 22 54 4F 54 41 4C 20  52 45 53 49 53 54 41 4E  |."TOTAL RESISTAN|
00000400: 43 45 22 3A 42 24 B2 22  4F 48 4D 53 22 00 18 0C  |CE":B$."OHMS"...|
00000410: 3B 01 8D 34 30 30 3A 8E  00 33 0C 90 01 8F 20 45  |;..400:..3.... E|
00000420: 4E 47 49 4E 45 45 52 49  4E 47 20 4E 4F 54 41 54  |NGINEERING NOTAT|
00000430: 49 4F 4E 00 3B 0C 92 01  49 B2 33 00 4C 0C 94 01  |ION.;...I.3.L...|
00000440: 8B 20 58 B1 B2 31 20 89  20 34 32 30 00 5C 0C 96  |. X..1 . 420.\..|
00000450: 01 59 B2 B5 28 58 AC 31  30 AE 49 29 00 6B 0C 98  |.Y..(X.10.I).k..|
00000460: 01 8B 20 59 B1 B2 31 89  34 31 32 00 7A 0C 9A 01  |.. Y..1.412.z...|
00000470: 49 B2 49 AA 33 3A 89 34  30 36 00 93 0C 9C 01 59  |I.I.3:.406.....Y|
00000480: B2 B5 28 58 AC 31 30 AE  28 49 AA 33 29 29 AD 31  |..(X.10.(I.3)).1|
00000490: 30 30 30 00 9F 0C 9E 01  59 31 B2 AB 31 AC 49 00  |000.....Y1..1.I.|
000004A0: B9 0C A0 01 99 3A 99 41  24 3B 22 3D 22 3B 59 3B  |.....:.A$;"=";Y;|
000004B0: 22 45 22 3B 59 31 3B 42  24 00 BF 0C A2 01 8E 00  |"E";Y1;B$.......|
000004C0: D3 0C A4 01 8B 20 58 B1  B2 31 30 30 30 20 89 20  |..... X..1000 . |
000004D0: 34 34 30 00 F1 0C A6 01  99 3A 99 41 24 3B 22 3D  |440......:.A$;"=|
000004E0: 22 3B B5 28 58 AC 31 45  33 29 AD 31 45 33 3B 42  |";.(X.1E3).1E3;B|
000004F0: 24 00 F7 0C A8 01 8E 00  07 0D B8 01 59 B2 B5 28  |$...........Y..(|
00000500: 58 AD 31 30 AE 49 29 00  17 0D BA 01 8B 20 59 B3  |X.10.I)...... Y.|
00000510: 31 20 89 20 34 34 38 00  21 0D BC 01 49 B2 49 AA  |1 . 448.!...I.I.|
00000520: 33 00 2A 0D BE 01 89 34  34 30 00 43 0D C0 01 59  |3.*....440.C...Y|
00000530: B2 B5 28 58 AD 31 30 AE  28 49 AB 36 29 29 AD 31  |..(X.10.(I.6)).1|
00000540: 30 30 30 00 4E 0D C2 01  59 31 B2 49 AB 33 00 57  |000.N...Y1.I.3.W|
00000550: 0D C4 01 89 34 31 36 00  6F 0D F3 01 8F 20 45 58  |....416.o.... EX|
00000560: 45 43 55 54 49 56 45 20  52 4F 55 54 49 4E 45 00  |ECUTIVE ROUTINE.|
00000570: 8B 0D F4 01 85 22 11 45  4E 54 45 52 20 4D 20 46  |.....".ENTER M F|
00000580: 4F 52 20 4D 45 4E 55 22  3B 51 24 00 9E 0D FE 01  |OR MENU";Q$.....|
00000590: 99 22 93 22 2C 22 12 20  4D 45 4E 55 20 22 00 BE  |.".",". MENU "..|
000005A0: 0D 03 02 99 22 11 31 20  53 4F 4C 55 54 49 4F 4E  |....".1 SOLUTION|
000005B0: 20 4F 46 20 52 20 4E 45  54 57 4F 52 4B 22 00 D1  | OF R NETWORK"..|
000005C0: 0D 08 02 99 22 32 20 50  2D 50 20 54 4F 20 52 4D  |...."2 P-P TO RM|
000005D0: 53 00 E7 0D 0D 02 99 22  33 20 52 4D 53 20 54 4F  |S......"3 RMS TO|
000005E0: 20 50 20 26 50 2D 50 00  FB 0D 12 02 99 22 34 20  | P &P-P......"4 |
000005F0: 41 43 20 43 49 52 43 55  49 54 53 00 15 0E 17 02  |AC CIRCUITS.....|
00000600: 99 22 35 20 53 49 4E 47  4C 45 20 4C 41 59 45 52  |."5 SINGLE LAYER|
00000610: 20 43 4F 49 4C 00 3C 0E  1C 02 99 22 36 20 43 41  | COIL.<...."6 CA|
00000620: 50 41 43 49 54 41 4E 43  45 20 4F 46 20 50 41 52  |PACITANCE OF PAR|
00000630: 41 4C 4C 45 4C 20 50 4C  41 54 45 53 00 50 0E 21  |ALLEL PLATES.P.!|
00000640: 02 99 22 37 20 57 49 52  45 20 54 41 42 4C 45 53  |.."7 WIRE TABLES|
00000650: 00 65 0E 26 02 99 22 38  20 45 58 49 54 20 50 52  |.e.&.."8 EXIT PR|
00000660: 4F 47 52 41 4D 00 85 0E  3A 02 85 22 11 11 45 4E  |OGRAM...:.."..EN|
00000670: 54 45 52 20 59 4F 55 52  20 53 45 4C 45 43 54 49  |TER YOUR SELECTI|
00000680: 4F 4E 22 3B 43 00 B1 0E  44 02 91 20 43 20 8D 20  |ON";C...D.. C . |
00000690: 32 30 30 2C 31 30 2C 31  30 30 2C 36 34 30 2C 31  |200,10,100,640,1|
000006A0: 30 30 30 2C 32 30 30 30  2C 33 30 32 30 2C 35 39  |000,2000,3020,59|
000006B0: 30 00 BA 0E 49 02 89 35  30 30 00 C0 0E 4E 02 80  |0...I..500...N..|
000006C0: 00 E2 0E 80 02 8F 20 52  4C 43 20 53 55 42 52 4F  |...... RLC SUBRO|
000006D0: 55 54 49 4E 45 28 41 43  20 43 49 52 43 55 49 54  |UTINE(AC CIRCUIT|
000006E0: 53 29 00 FE 0E 8A 02 99  22 93 22 2C 22 12 52 4C  |S)......".",".RL|
000006F0: 43 20 43 41 4C 43 55 4C  41 54 49 4F 4E 53 00 26  |C CALCULATIONS.&|
00000700: 0F 8F 02 99 22 11 45 4E  54 45 52 20 46 2C 4C 2C  |....".ENTER F,L,|
00000710: 43 2C 58 43 20 4F 52 20  58 4C 20 54 48 45 4E 20  |C,XC OR XL THEN |
00000720: 43 4F 4D 4D 41 22 00 6A  0F 94 02 99 22 54 48 45  |COMMA".j...."THE|
00000730: 4E 20 45 4E 54 45 52 20  4E 55 4D 45 52 49 43 20  |N ENTER NUMERIC |
00000740: 44 41 54 41 22 3A 99 22  43 41 4C 43 2C 30 20 49  |DATA":."CALC,0 I|
00000750: 4E 49 54 49 41 54 45 53  20 54 48 45 20 43 41 4C  |NITIATES THE CAL|
00000760: 43 55 4C 41 54 49 4F 4E  53 22 00 74 0F 9E 02 85  |CULATIONS".t....|
00000770: 41 24 2C 41 00 86 0F BC  02 8B 20 41 24 B2 22 46  |A$,A...... A$."F|
00000780: 22 A7 20 46 B2 41 00 98  0F C6 02 8B 20 41 24 B2  |". F.A...... A$.|
00000790: 22 43 22 A7 20 43 B2 41  00 AA 0F D0 02 8B 20 41  |"C". C.A...... A|
000007A0: 24 B2 22 4C 22 A7 20 4C  B2 41 00 BE 0F DA 02 8B  |$."L". L.A......|
000007B0: 20 41 24 B2 22 58 43 22  A7 20 58 31 B2 41 00 D2  | A$."XC". X1.A..|
000007C0: 0F E4 02 8B 20 41 24 B2  22 58 4C 22 A7 20 58 32  |.... A$."XL". X2|
000007D0: B2 41 00 E6 0F EE 02 8B  20 41 24 B2 22 43 41 4C  |.A...... A$."CAL|
000007E0: 43 22 89 38 30 30 00 EF  0F F8 02 89 36 37 30 00  |C".800......670.|
000007F0: 16 10 20 03 85 22 45 4E  54 45 52 20 44 45 53 49  |.. .."ENTER DESI|
00000800: 52 45 44 20 56 41 4C 55  45 28 58 2C 46 2C 43 2C  |RED VALUE(X,F,C,|
00000810: 4C 29 22 3B 41 24 00 2B  10 2A 03 8B 20 C6 28 41  |L)";A$.+.*.. .(A|
00000820: 24 29 B2 38 38 20 89 20  38 35 30 00 40 10 2F 03  |$).88 . 850.@./.|
00000830: 8B 20 C6 28 41 24 29 B2  36 37 20 89 20 38 37 35  |. .(A$).67 . 875|
00000840: 00 55 10 31 03 8B 20 C6  28 41 24 29 B2 37 36 20  |.U.1.. .(A$).76 |
00000850: 89 20 39 30 30 00 80 10  34 03 46 B2 31 AD 28 28  |. 900...4.F.1.((|
00000860: BA 28 43 AC 4C 29 29 AC  32 AC FF 29 3A 58 B2 46  |.(C.L)).2..):X.F|
00000870: 3A 42 24 B2 22 48 45 52  54 5A 22 3A 8D 34 30 30  |:B$."HERTZ":.400|
00000880: 00 86 10 39 03 8E 00 99  10 52 03 8B 20 41 24 B2  |...9.....R.. A$.|
00000890: 22 58 43 22 89 20 39 32  35 00 B9 10 5C 03 58 B2  |"XC". 925...\.X.|
000008A0: 32 AC FF AC 4C AC 46 3A  42 24 B2 22 4F 48 4D 53  |2...L.F:B$."OHMS|
000008B0: 22 3A 8D 20 34 30 30 3A  8E 00 CC 10 6B 03 46 B2  |":. 400:....k.F.|
000008C0: 31 AD 28 32 AC FF AC 46  AC 58 31 29 00 E3 10 70  |1.(2...F.X1)...p|
000008D0: 03 42 24 B2 22 46 41 52  41 44 53 22 3A 8D 34 30  |.B$."FARADS":.40|
000008E0: 30 3A 8E 00 07 11 84 03  58 B2 58 32 AD 28 32 AC  |0:......X.X2.(2.|
000008F0: FF AC 46 29 3A 42 24 B2  22 48 45 4E 52 59 53 22  |..F):B$."HENRYS"|
00000900: 3A 8D 34 30 30 3A 8E 00  2A 11 9D 03 58 B2 31 AD  |:.400:..*...X.1.|
00000910: 28 32 AC FF AC 43 AC 46  29 3A 42 24 B2 22 4F 48  |(2...C.F):B$."OH|
00000920: 4D 53 22 3A 8D 34 30 30  3A 8E 00 54 11 E8 03 8F  |MS":.400:..T....|
00000930: 20 49 4E 44 55 43 54 41  4E 43 45 20 4F 46 20 41  | INDUCTANCE OF A|
00000940: 20 53 49 4E 47 4C 45 20  4C 41 59 45 52 20 20 20  | SINGLE LAYER   |
00000950: 43 4F 49 4C 00 7E 11 F2  03 99 22 93 49 4E 44 55  |COIL.~....".INDU|
00000960: 43 54 41 4E 43 45 20 4F  46 20 41 20 53 49 4E 47  |CTANCE OF A SING|
00000970: 4C 45 20 4C 41 59 45 52  20 43 4F 49 4C 22 00 9A  |LE LAYER COIL"..|
00000980: 11 FC 03 85 22 11 4E 4F  2E 20 4F 46 20 54 55 52  |....".NO. OF TUR|
00000990: 4E 53 20 4F 52 20 30 22  3B 4E 00 AA 11 06 04 85  |NS OR 0";N......|
000009A0: 22 52 41 44 49 55 53 22  3B 52 00 BB 11 10 04 85  |"RADIUS";R......|
000009B0: 22 53 50 41 43 49 4E 47  22 3B 44 00 DC 11 1A 04  |"SPACING";D.....|
000009C0: 85 22 49 4E 44 55 43 54  41 4E 43 45 20 44 45 53  |."INDUCTANCE DES|
000009D0: 49 52 45 44 20 4F 52 20  30 22 3B 4C 00 ED 11 24  |IRED OR 0";L...$|
000009E0: 04 8B 20 4E B2 30 20 89  20 31 30 38 30 00 0A 12  |.. N.0 . 1080...|
000009F0: 2E 04 4C B2 28 4E AC 4E  AC 52 AC 52 29 AD 28 39  |..L.(N.N.R.R).(9|
00000A00: AC 52 AA 31 30 AC 4E AC  44 29 00 1E 12 38 04 58  |.R.10.N.D)...8.X|
00000A10: B2 28 35 AC 44 AC 4C 29  AD 28 52 AC 52 29 00 3E  |.(5.D.L).(R.R).>|
00000A20: 12 3D 04 59 B2 BA 28 39  AD 52 AC 4C 29 3A 4E B2  |.=.Y..(9.R.L):N.|
00000A30: BA 28 28 58 AC 58 29 AA  28 59 AC 59 29 29 00 48  |.((X.X).(Y.Y)).H|
00000A40: 12 3F 04 4E B2 4E AA 58  00 76 12 42 04 41 24 B2  |.?.N.N.X.v.B.A$.|
00000A50: 22 49 4E 44 55 43 54 41  4E 43 45 22 3A 42 24 B2  |"INDUCTANCE":B$.|
00000A60: 22 4D 49 43 52 4F 48 45  4E 52 59 53 22 3A 58 B2  |"MICROHENRYS":X.|
00000A70: 4C 3A 8D 34 30 30 00 8C  12 46 04 99 22 11 4E 4F  |L:.400...F..".NO|
00000A80: 2E 54 55 52 4E 53 3D 22  3B 4E 3A 8E 00 B0 12 D0  |.TURNS=";N:.....|
00000A90: 07 8F 20 43 41 50 41 43  49 54 41 4E 43 20 4F 46  |.. CAPACITANC OF|
00000AA0: 20 50 41 52 41 4C 4C 45  4C 20 50 4C 41 54 45 53  | PARALLEL PLATES|
00000AB0: 00 D8 12 DA 07 99 22 93  12 43 41 50 41 43 49 54  |......"..CAPACIT|
00000AC0: 41 4E 43 45 20 4F 46 20  50 41 52 41 4C 4C 45 4C  |ANCE OF PARALLEL|
00000AD0: 20 50 4C 41 54 45 53 22  00 FD 12 F8 07 85 22 11  | PLATES"......".|
00000AE0: 50 45 52 4D 49 54 54 49  56 49 54 59 20 4F 46 20  |PERMITTIVITY OF |
00000AF0: 49 4E 53 55 4C 41 54 49  4F 4E 22 3B 45 00 21 13  |INSULATION";E.!.|
00000B00: 02 08 99 22 44 49 53 54  41 4E 43 45 20 42 45 54  |..."DISTANCE BET|
00000B10: 57 45 45 4E 20 50 4C 41  54 45 53 20 43 4F 4D 4D  |WEEN PLATES COMM|
00000B20: 41 00 36 13 07 08 85 22  49 4E 20 4F 52 20 43 4D  |A.6...."IN OR CM|
00000B30: 22 3B 44 2C 44 24 00 4F  13 09 08 8B 20 44 24 B2  |";D,D$.O.... D$.|
00000B40: 22 49 4E 22 20 A7 20 44  B2 44 AC 32 2E 35 34 00  |"IN" . D.D.2.54.|
00000B50: 7B 13 0C 08 85 22 4C 45  4E 47 54 48 20 4F 46 20  |{...."LENGTH OF |
00000B60: 50 4C 41 54 45 53 20 43  4F 4D 4D 41 20 49 4E 20  |PLATES COMMA IN |
00000B70: 4F 52 20 43 4D 22 3B 4C  2C 4C 24 00 93 13 11 08  |OR CM";L,L$.....|
00000B80: 8B 20 4C 24 B2 22 49 4E  22 A7 20 4C B2 4C AC 32  |. L$."IN". L.L.2|
00000B90: 2E 35 34 00 BE 13 16 08  85 22 57 49 44 54 48 20  |.54......"WIDTH |
00000BA0: 4F 46 20 50 4C 41 54 45  53 20 43 4F 4D 4D 41 20  |OF PLATES COMMA |
00000BB0: 49 4E 20 4F 52 20 43 4D  22 3B 57 2C 57 24 00 D6  |IN OR CM";W,W$..|
00000BC0: 13 1B 08 8B 20 57 24 B2  22 49 4E 22 A7 20 57 B2  |.... W$."IN". W.|
00000BD0: 57 AC 32 2E 35 34 00 E4  13 20 08 58 B2 44 AD 28  |W.2.54... .X.D.(|
00000BE0: FF AC 57 29 00 FD 13 25  08 58 B2 58 AC 28 31 AA  |..W)...%.X.X.(1.|
00000BF0: BC 28 28 32 AC FF AC 57  29 AD 44 29 29 00 0F 14  |.((2...W).D))...|
00000C00: 27 08 8B 20 31 30 30 AC  57 B1 4C A7 58 B2 30 00  |'.. 100.W.L.X.0.|
00000C10: 2A 14 2A 08 43 B2 2E 30  38 38 35 34 31 39 AC 28  |*.*.C..0885419.(|
00000C20: 28 45 AC 4C AC 57 29 AD  44 29 00 38 14 2F 08 43  |(E.L.W).D).8./.C|
00000C30: B2 43 AC 28 31 AA 58 29  00 5E 14 B8 0B 58 B2 43  |.C.(1.X).^...X.C|
00000C40: 3A 41 24 B2 22 43 41 50  41 43 49 54 41 4E 43 45  |:A$."CAPACITANCE|
00000C50: 22 3A 42 24 B2 22 50 46  22 3A 8D 34 30 30 00 64  |":B$."PF":.400.d|
00000C60: 14 C2 0B 8E 00 76 14 CC  0B 8F 20 57 49 52 45 20  |.....v.... WIRE |
00000C70: 54 41 42 4C 45 53 00 8F  14 D6 0B 99 22 93 22 2C  |TABLES......".",|
00000C80: 22 12 57 49 52 45 20 54  41 42 4C 45 53 11 11 00  |".WIRE TABLES...|
00000C90: A6 14 1C 0C 8F 20 44 49  41 20 43 41 4C 43 55 4C  |..... DIA CALCUL|
00000CA0: 41 54 49 4F 4E 53 00 B9  14 30 0C 85 22 41 57 47  |ATIONS...0.."AWG|
00000CB0: 20 47 55 41 47 45 22 3B  47 00 C8 14 3A 0C 58 B2  | GUAGE";G...:.X.|
00000CC0: 28 47 AA 33 29 AD 33 39  00 D7 14 44 0C 44 B2 34  |(G.3).39...D.D.4|
00000CD0: 36 30 AD 39 32 AE 58 00  FC 14 4E 0C 58 B2 44 3A  |60.92.X...N.X.D:|
00000CE0: 41 24 B2 22 44 49 41 4D  45 54 45 52 22 3A 42 24  |A$."DIAMETER":B$|
00000CF0: B2 22 4D 49 4C 53 22 3A  8D 34 30 30 00 1B 15 80  |."MILS":.400....|
00000D00: 0C 8F 20 52 45 53 49 53  54 41 4E 43 45 20 43 41  |.. RESISTANCE CA|
00000D10: 4C 43 55 4C 54 41 54 49  4F 4E 53 00 30 15 8A 0C  |LCULTATIONS.0...|
00000D20: 85 22 4E 4F 2E 20 4F 46  20 46 45 45 54 22 3B 4E  |."NO. OF FEET";N|
00000D30: 00 4B 15 94 0C 52 B2 28  31 30 33 37 31 AD 28 44  |.K...R.(10371.(D|
00000D40: AC 44 29 29 AD 31 30 30  30 AC 4E 00 72 15 9E 0C  |.D)).1000.N.r...|
00000D50: 41 24 B2 22 52 45 53 49  53 54 41 4E 43 45 22 3A  |A$."RESISTANCE":|
00000D60: 58 B2 52 3A 42 24 B2 22  4F 48 4D 53 22 3A 8D 34  |X.R:B$."OHMS":.4|
00000D70: 30 30 00 8C 15 A8 0C 8F  20 57 45 49 47 48 54 20  |00...... WEIGHT |
00000D80: 43 41 4C 43 55 4C 41 54  49 4F 4E 53 00 AA 15 B2  |CALCULATIONS....|
00000D90: 0C 57 B2 28 2E 30 30 33  30 32 36 39 AC 28 44 AC  |.W.(.0030269.(D.|
00000DA0: 44 29 29 AD 31 30 30 30  AC 4E 00 CC 15 BC 0C 41  |D)).1000.N.....A|
00000DB0: 24 B2 22 57 45 49 47 48  54 22 3A 58 B2 57 3A 42  |$."WEIGHT":X.W:B|
00000DC0: 24 B2 22 4C 42 53 22 3A  8D 34 30 30 00 D2 15 C6  |$."LBS":.400....|
00000DD0: 0C 8E 00 00 00 01                                 |......          |

..>....53280,0:.53281,0:E.31744:."."G(14
2):.  C64 MODS WIM '83.H.... 510.M.... P
ROGRAM FROM KILOBAUD;AUG 1977...... MODI
FIED BY JERRY E. DUNMIRE...... 7 W YORKS
HIRE DR  STOCKTON,CA.V.... ZIP-95207,TEL
E.209-951-2110...... JUNE 29,1978...... 
ELECTRONIC CALCULATOR.#....".",".CONVERT
 P-P TO RMS.9....:."P-P VOLTS=";E.A.(.A$
."":X.1..(2).(E.2):B$."RMS VOLTS".K.-.. 
400.Q.2.....D.. RMS TO P AND P-P...N..".
",".CONVERT RMS TO P AND P-P.A.X..".RMS 
VOLTS=";R.....R.R..(2):X.R:A$."PEAK VOLT
S":B$.""......400.....A$."PEAK TO PEAK V
OLTS":X.2.R:B$.""."....400.(.....?.H.. R
ESISTOR NETWORK.`.R..".",".SOLUTION OF R
 NETWORK.Y....".ENTER R1 OR 0";R1......"
.ENTER R2 OR 0";R2......".ENTER TOTAL VO
LTAGE OR 0";E1.Q....".ENTER VOUT OR 0";E
2......R1.0.275...... R2.0.285......E1.0
.295......E2..0.310.....X.E1.R2.(R1.R2).
?...A$."VOUT":B$."VOLTS":.400:..S...X.R2
.(E1.E2).E2.P...A$."R1":B$."OHMS":.400:.
.....X.(E2.R1).(E1.E2)...".A$."R2":B$."O
HMS":.400:....'.X.(E2.(R1.R2).R2...,.A$.
"TOTAL VOLTAGE":B$."VOLTS":.400:....6.X.
R1.R2:A$."TOTAL RESISTANCE":B$."OHMS"...
;..400:..3.... ENGINEERING NOTATION.;...
I.3.L.... X..1 . 420.\...Y..(X.10.I).K..
.. Y..1.412.Z...I.I.3:.406.....Y..(X.10.
(I.3)).1000.....Y1..1.I... ..:.A$;"=";Y;
"E";Y1;B$.......S.... X..1000 . 440.....
.:.A$;"=";.(X.1E3).1E3;B$...........Y..(
X.10.I)...... Y.1 . 448.!...I.I.3.*....4
40.C...Y..(X.10.(I.6)).1000.N.B.Y1.I.3.W
.D..416.O.... EXECUTIVE ROUTINE......".E
NTER M FOR MENU";Q$......".",". MENU "..
....".1 SOLUTION OF R NETWORK".Q...."2 P
-P TO RMS......"3 RMS TO P &P-P......"4 
AC CIRCUITS......"5 SINGLE LAYER COIL.<.
..."6 CAPACITANCE OF PARALLEL PLATES.P.!
.."7 WIRE TABLES.E.&.."8 EXIT PROGRAM...
:.."..ENTER YOUR SELECTION";C...D.. C . 
200,10,100,640,1000,2000,3020,590...I..5
00...N........ RLC SUBROUTINE(AC CIRCUIT
S)......".",".RLC CALCULATIONS.&....".EN
TER F,L,C,XC OR XL THEN COMMA".J...."THE
N ENTER NUMERIC DATA":."CALC,0 INITIATES
 THE CALCULATIONS".T....A$,A...... A$."F
". F.A...F.. A$."C". C.A...P.. A$."L". L
.A...Z.. A$."XC". X1.A.R.... A$."XL". X2
.A...... A$."CALC".800......670... .."EN
TER DESIRED VALUE(X,F,C,L)";A$.+.*.. F(A
$).88 . 850.@./.. F(A$).67 . 875.U.1.. F
(A$).76 . 900...4.F.1.((.(C.L)).2..):X.F
:B$."HERTZ":.400...9.....R.. A$."XC". 92
5...\.X.2...L.F:B$."OHMS":. 400:..L.K.F.
1.(2...F.X1)...P.B$."FARADS":.400:......
X.X2.(2...F):B$."HENRYS":.400:..*...X.1.
(2...C.F):B$."OHMS":.400:..T.... INDUCTA
NCE OF A SINGLE LAYER   COIL.~....".INDU
CTANCE OF A SINGLE LAYER COIL"......".NO
. OF TURNS OR 0";N......"RADIUS";R......
"SPACING";D......"INDUCTANCE DESIRED OR 
0";L...$.. N.0 . 1080.....L.(N.N.R.R).(9
.R.10.N.D)...8.X.(5.D.L).(R.R).>.=.Y..(9
.R.L):N..((X.X).(Y.Y)).H.?.N.N.X.V.B.A$.
"INDUCTANCE":B$."MICROHENRYS":X.L:.400..
.F..".NO.TURNS=";N:....P.. CAPACITANC OF
 PARALLEL PLATES.X.Z.."..CAPACITANCE OF 
PARALLEL PLATES"......".PERMITTIVITY OF 
INSULATION";E.!...."DISTANCE BETWEEN PLA
TES COMMA.6...."IN OR CM";D,D$.O.... D$.
"IN" . D.D.2.54.{...."LENGTH OF PLATES C
OMMA IN OR CM";L,L$...... L$."IN". L.L.2
.54......"WIDTH OF PLATES COMMA IN OR CM
";W,W$.V.... W$."IN". W.W.2.54... .X.D.(
..W)...%.X.X.(1..((2...W).D))...'.. 100.
W.L.X.0.*.*.C..0885419.((E.L.W).D).8./.C
.C.(1.X).^...X.C:A$."CAPACITANCE":B$."PF
":.400.D.B...V.L.. WIRE TABLES...V..".",
".WIRE TABLES........ DIA CALCULATIONS..
.0.."AWG GUAGE";G.H.:.X.(G.3).39.W.D.D.4
60.92.X...N.X.D:A$."DIAMETER":B$."MILS":
.400...... RESISTANCE CALCULTATIONS.0...
."NO. OF FEET";N.K...R.(10371.(D.D)).100
0.N.R...A$."RESISTANCE":X.R:B$."OHMS":.4
00...... WEIGHT CALCULATIONS.....W.(.003
0269.(D.D)).1000.N.L...A$."WEIGHT":X.W:B
$."LBS":.400.R.F......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL