_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

WIRE FORMULAS

FILE INFORMATION

FILENAME(S): WIRE FORMULAS

FILE TYPE(S): PRG

FILE SIZE: 5.1K

FIRST SEEN: 2025-10-20 14:30:09

APPEARS ON: 1 disk(s)

FILE HASH

d688005603f8db38b5d5fda225cdfef4bc4a5aceb0f88e75966a899b7bc9fd54

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PB DOMAIN 0007ED WIRE FORMULAS PRG Treasure Chest - Klaus Der Suhler 5 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1E 08 0A 00 97 35  33 32 38 31 2C 31 35 3A  |.......53281,15:|
00000010: 97 35 33 32 38 30 2C 31  32 3A 99 22 93 22 00 40  |.53280,12:.".".@|
00000020: 08 14 00 99 22 1D 1D 1D  1D 1D 1D 1D 1D 11 11 11  |...."...........|
00000030: 1D 1D 1D 1D 1D 1D 54 48  45 20 20 57 49 52 45 22  |......THE  WIRE"|
00000040: 00 62 08 1E 00 99 22 11  1D 1D 1D 1D 1D 1D 1D 1D  |.b....".........|
00000050: 1D 1D 1D 1D 53 49 5A 45  20 46 4F 52 4D 4C 55 41  |....SIZE FORMLUA|
00000060: 53 22 00 85 08 28 00 99  22 11 11 1E 1D 1D 1D 1D  |S"...(..".......|
00000070: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 50 52 4F 47 52 41  |..........PROGRA|
00000080: 4D 45 44 20 22 00 A1 08  32 00 99 22 1D 1D 1D 1D  |MED "...2.."....|
00000090: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 42 59  |..............BY|
000000A0: 22 00 C3 08 3C 00 99 22  11 11 9C 1D 1D 1D 1D 1D  |"...<.."........|
000000B0: 1D 1D 1D 1D 1D 1D 1D 1D  42 4F 42 20 4A 41 43 4B  |........BOB JACK|
000000C0: 53 4F 4E 00 EB 08 46 00  99 22 11 11 1D 1D 1D 1D  |SON...F.."......|
000000D0: 1D 1D 1D 1D 1D 1D 1D 1F  48 49 54 20 41 20 4B 45  |........HIT A KE|
000000E0: 59 20 54 4F 20 43 4F 4E  54 2E 22 00 FD 08 50 00  |Y TO CONT."...P.|
000000F0: A1 41 24 3A 8B 41 24 B2  22 22 A7 38 30 00 1B 09  |.A$:.A$."".80...|
00000100: 64 00 99 22 93 11 20 20  20 1D 1D 1D 1D 1D 46 4F  |d.."..   .....FO|
00000110: 52 4D 55 4C 41 20 4D 45  4E 55 22 00 32 09 6E 00  |RMULA MENU".2.n.|
00000120: 99 22 11 1C 20 20 20 1D  1D 54 4F 20 46 49 4E 44  |."..   ..TO FIND|
00000130: 3A 22 00 4E 09 78 00 99  22 20 20 20 11 31 1F 20  |:".N.x.."   .1. |
00000140: 20 56 4F 4C 54 41 47 45  20 44 52 4F 50 22 00 6E  | VOLTAGE DROP".n|
00000150: 09 82 00 99 22 1D 1D 1D  11 1C 32 1F 20 20 4D 41  |....".....2.  MA|
00000160: 58 49 4D 55 4D 20 43 55  52 52 45 4E 54 22 00 90  |XIMUM CURRENT"..|
00000170: 09 8C 00 99 22 1D 1D 1D  11 1C 33 1F 20 20 4C 45  |....".....3.  LE|
00000180: 4E 47 54 48 20 4F 46 20  43 49 52 43 55 49 54 22  |NGTH OF CIRCUIT"|
00000190: 00 AE 09 96 00 99 22 1D  1D 1D 11 1C 34 1F 20 20  |......".....4.  |
000001A0: 43 49 52 2E 20 4D 49 4C  20 41 52 45 41 22 00 CD  |CIR. MIL AREA"..|
000001B0: 09 98 00 99 22 1D 1D 1D  11 1C 35 1F 20 20 57 49  |....".....5.  WI|
000001C0: 52 45 20 53 49 5A 45 20  28 41 57 47 29 00 E9 09  |RE SIZE (AWG)...|
000001D0: 9B 00 99 22 1D 1D 1D 11  90 36 20 20 45 58 49 54  |...".....6  EXIT|
000001E0: 20 50 52 4F 47 52 41 4D  22 00 05 0A A0 00 85 22  | PROGRAM"......"|
000001F0: 20 20 20 20 11 11 1E 43  48 4F 4F 53 45 20 4F 4E  |    ...CHOOSE ON|
00000200: 45 1C 22 3B 41 00 12 0A  AA 00 8B 41 B2 31 A7 32  |E.";A......A.1.2|
00000210: 30 30 00 1F 0A B4 00 8B  41 B2 32 A7 33 30 30 00  |00......A.2.300.|
00000220: 2C 0A BE 00 8B 41 B2 33  A7 34 30 30 00 39 0A C3  |,....A.3.400.9..|
00000230: 00 8B 41 B2 34 A7 35 30  30 00 46 0A C4 00 8B 41  |..A.4.500.F....A|
00000240: B2 35 A7 36 30 30 00 51  0A C5 00 8B 41 B2 36 A7  |.5.600.Q....A.6.|
00000250: 80 00 64 0A C8 00 8F 20  56 4F 4C 54 41 47 45 20  |..d.... VOLTAGE |
00000260: 44 52 4F 50 00 8B 0A D2  00 99 22 93 20 20 20 20  |DROP......".    |
00000270: 20 20 20 20 11 1C 56 4F  4C 54 41 47 45 20 44 52  |    ..VOLTAGE DR|
00000280: 4F 50 20 46 4F 52 4D 55  4C 41 22 00 D3 0A DC 00  |OP FORMULA".....|
00000290: 99 22 1D 11 11 1F 1D 20  20 20 20 20 20 1D 1D 1D  |.".....      ...|
000002A0: 1D 1D 56 44 3D 32 4C 2A  4B 2A 49 20 20 20 20 20  |..VD=2L*K*I     |
000002B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 A3 A3 A3  |             ...|
000002D0: A3 A3 A3 00 F1 0A DE 00  99 22 1D 1D 1D 1D 1D 1D  |........."......|
000002E0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 43 4D 11 11  |............CM..|
000002F0: 22 00 1A 0B E1 00 99 22  9C 45 4E 54 45 52 20 54  |"......".ENTER T|
00000300: 48 45 20 4C 45 4E 47 54  48 20 4F 46 20 54 48 45  |HE LENGTH OF THE|
00000310: 20 43 49 52 43 55 49 54  90 22 00 21 0B E6 00 85  | CIRCUIT.".!....|
00000320: 4C 00 53 0B E7 00 99 22  9C 45 4E 54 45 52 20 31  |L.S....".ENTER 1|
00000330: 30 2E 34 20 46 4F 52 20  43 4F 50 50 45 52 20 2F  |0.4 FOR COPPER /|
00000340: 20 31 37 20 46 4F 52 20  41 4C 55 4D 49 4E 4D 55  | 17 FOR ALUMINMU|
00000350: 4D 90 22 00 5A 0B E8 00  85 4B 00 7E 0B E9 00 99  |M.".Z....K.~....|
00000360: 22 9C 45 4E 54 45 52 20  54 48 45 20 56 41 4C 55  |".ENTER THE VALU|
00000370: 45 20 4F 46 20 43 55 52  52 45 4E 54 90 22 00 85  |E OF CURRENT."..|
00000380: 0B EA 00 85 49 00 AF 0B  EB 00 99 22 9C 45 4E 54  |....I......".ENT|
00000390: 45 52 20 54 48 45 20 56  41 4C 55 45 20 4F 46 20  |ER THE VALUE OF |
000003A0: 43 49 52 43 55 4C 41 52  20 4D 49 4C 53 90 22 00  |CIRCULAR MILS.".|
000003B0: B7 0B EC 00 85 43 4D 00  C8 0B F0 00 56 B2 32 AC  |.....CM.....V.2.|
000003C0: 4C AC 4B AC 49 AD 43 4D  00 EA 0B FA 00 99 22 12  |L.K.I.CM......".|
000003D0: 1C 56 4F 4C 54 41 47 45  20 44 52 4F 50 20 3D 92  |.VOLTAGE DROP =.|
000003E0: 20 20 20 20 20 20 20 22  3B 56 00 09 0C FF 00 99  |       ";V......|
000003F0: 22 1E 48 49 54 20 41 20  4B 45 59 20 54 4F 20 43  |".HIT A KEY TO C|
00000400: 4F 4E 54 49 4E 55 45 1F  22 00 1C 0C 01 01 A1 4B  |ONTINUE."......K|
00000410: 24 3A 8B 4B 24 B2 22 22  A7 32 35 37 00 25 0C 04  |$:.K$."".257.%..|
00000420: 01 89 31 30 30 00 38 0C  2C 01 8F 20 4D 41 58 2E  |..100.8.,.. MAX.|
00000430: 20 43 55 52 52 45 4E 54  00 5F 0C 36 01 99 22 93  | CURRENT._.6..".|
00000440: 20 20 20 20 20 20 20 20  11 1C 4D 41 58 2E 20 43  |        ..MAX. C|
00000450: 55 52 52 45 4E 54 20 46  4F 52 4D 55 4C 41 22 00  |URRENT FORMULA".|
00000460: A7 0C 40 01 99 22 1D 11  11 1F 20 20 20 20 20 20  |..@.."....      |
00000470: 20 20 20 20 20 20 20 20  49 3D 56 2A 43 4D 1D 1D  |        I=V*CM..|
00000480: 1D 1D 1D 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00000490: 20 20 20 20 20 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |     ...........|
000004A0: 1D 1D A3 A3 A3 A3 22 00  C6 0C 42 01 99 22 1D 1D  |......"...B.."..|
000004B0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 32  |...............2|
000004C0: 4C 2A 4B 11 11 22 00 EB  0C 4A 01 99 22 9C 45 4E  |L*K.."...J..".EN|
000004D0: 54 45 52 20 54 48 45 20  4B 4E 4F 57 20 56 4F 4C  |TER THE KNOW VOL|
000004E0: 54 41 47 45 20 44 52 4F  50 90 22 00 F2 0C 4F 01  |TAGE DROP."...O.|
000004F0: 85 56 00 17 0D 54 01 99  22 9C 45 4E 54 45 52 20  |.V...T..".ENTER |
00000500: 54 48 45 20 43 49 52 43  55 4C 41 52 20 4D 49 4C  |THE CIRCULAR MIL|
00000510: 20 41 52 45 41 90 22 00  1F 0D 59 01 85 43 4D 00  | AREA."...Y..CM.|
00000520: 4A 0D 5E 01 99 22 9C 45  4E 54 45 52 20 54 48 45  |J.^..".ENTER THE|
00000530: 20 4C 45 4E 47 54 48 20  4F 46 20 20 20 54 48 45  | LENGTH OF   THE|
00000540: 20 43 49 52 43 55 49 54  90 22 00 51 0D 63 01 85  | CIRCUIT.".Q.c..|
00000550: 4C 00 84 0D 68 01 99 22  9C 45 4E 54 45 52 20 31  |L...h..".ENTER 1|
00000560: 30 2E 34 20 46 4F 52 20  43 4F 50 50 45 52 20 4F  |0.4 FOR COPPER O|
00000570: 52 20 31 37 20 46 4F 52  20 41 4C 55 4D 49 4E 4D  |R 17 FOR ALUMINM|
00000580: 55 4D 90 22 00 8B 0D 6D  01 85 4B 00 A0 0D 72 01  |UM."...m..K...r.|
00000590: 49 B2 28 56 AC 43 4D 29  AD 28 32 AC 4C AC 4B 29  |I.(V.CM).(2.L.K)|
000005A0: 00 C2 0D 77 01 99 22 12  1C 54 48 45 20 4D 41 58  |...w.."..THE MAX|
000005B0: 2E 20 43 55 52 52 45 4E  54 20 3D 92 20 20 20 22  |. CURRENT =.   "|
000005C0: 3B 49 00 E1 0D 7C 01 99  22 1E 48 49 54 20 41 20  |;I...|..".HIT A |
000005D0: 4B 45 59 20 54 4F 20 43  4F 4E 54 49 4E 55 45 1F  |KEY TO CONTINUE.|
000005E0: 22 00 F4 0D 81 01 A1 4B  24 3A 8B 4B 24 B2 22 22  |"......K$:.K$.""|
000005F0: A7 33 38 35 00 FD 0D 86  01 89 31 30 30 00 12 0E  |.385......100...|
00000600: 90 01 8F 20 4C 45 4E 47  54 48 20 4F 46 20 43 49  |... LENGTH OF CI|
00000610: 52 2E 00 3F 0E 9A 01 99  22 93 20 20 20 20 20 20  |R..?....".      |
00000620: 20 20 20 11 1C 4C 45 4E  47 54 48 20 4F 46 20 57  |   ..LENGTH OF W|
00000630: 49 52 45 20 46 4F 52 4D  55 4C 41 11 11 1F 22 00  |IRE FORMULA...".|
00000640: 84 0E A4 01 99 22 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |....."..........|
00000650: 1D 1D 1D 1D 20 4C 3D 56  2A 43 4D 1D 1D 1D 1D 1D  |.... L=V*CM.....|
00000660: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 20 20 20  |.............   |
00000670: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 A3  |               .|
00000680: A3 A3 A3 1D 00 9F 0E A6  01 99 22 1D 20 20 20 20  |..........".    |
00000690: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 4B 2A 49 00  |............K*I.|
000006A0: CD 0E A7 01 99 22 20 20  20 20 12 4E 4F 54 45 20  |....."    .NOTE |
000006B0: 27 4C 27 20 49 53 20 4E  4F 57 20 4C 45 4E 2E 20  |'L' IS NOW LEN. |
000006C0: 4F 46 20 54 48 45 20 57  49 52 45 92 22 00 D3 0E  |OF THE WIRE."...|
000006D0: A8 01 99 00 FC 0E AE 01  99 22 9C 45 4E 54 45 52  |.........".ENTER|
000006E0: 20 54 48 45 20 56 41 4C  55 45 20 4F 46 20 56 4F  | THE VALUE OF VO|
000006F0: 4C 54 41 47 45 20 44 52  4F 50 90 22 00 03 0F B3  |LTAGE DROP."....|
00000700: 01 85 56 00 28 0F B8 01  99 22 9C 45 4E 54 45 52  |..V.(....".ENTER|
00000710: 20 54 48 45 20 43 49 52  43 55 4C 41 52 20 4D 49  | THE CIRCULAR MI|
00000720: 4C 20 41 52 45 41 90 22  00 30 0F C2 01 85 43 4D  |L AREA.".0....CM|
00000730: 00 62 0F C7 01 99 22 9C  45 4E 54 45 52 20 31 30  |.b....".ENTER 10|
00000740: 2E 34 20 46 4F 52 20 43  4F 50 50 45 52 20 2F 20  |.4 FOR COPPER / |
00000750: 31 37 20 46 4F 52 20 41  4C 55 4D 49 4E 4D 55 4D  |17 FOR ALUMINMUM|
00000760: 90 22 00 69 0F CC 01 85  4B 00 8A 0F D1 01 99 22  |.".i....K......"|
00000770: 9C 45 4E 54 45 52 20 54  48 45 20 43 55 52 52 45  |.ENTER THE CURRE|
00000780: 4E 54 20 56 41 4C 55 45  90 22 00 91 0F D6 01 85  |NT VALUE."......|
00000790: 49 00 A4 0F DB 01 4C B2  28 56 AC 43 4D 29 AD 28  |I.....L.(V.CM).(|
000007A0: 4B AC 49 29 00 C9 0F E0  01 99 22 12 1C 54 48 45  |K.I)......"..THE|
000007B0: 20 4C 45 4E 47 54 48 20  4F 46 20 54 48 45 20 57  | LENGTH OF THE W|
000007C0: 49 52 45 20 3D 92 22 3B  4C 00 E8 0F E5 01 99 22  |IRE =.";L......"|
000007D0: 1E 48 49 54 20 41 20 4B  45 59 20 54 4F 20 43 4F  |.HIT A KEY TO CO|
000007E0: 4E 54 49 4E 55 45 1F 22  00 FB 0F EA 01 A1 4B 24  |NTINUE."......K$|
000007F0: 3A 8B 4B 24 B2 22 22 A7  34 39 30 00 04 10 EF 01  |:.K$."".490.....|
00000800: 89 31 30 30 00 17 10 F4  01 8F 20 43 49 52 2E 4D  |.100...... CIR.M|
00000810: 49 4C 20 41 52 45 41 00  42 10 FE 01 99 22 93 11  |IL AREA.B...."..|
00000820: 1C 20 20 20 20 20 20 20  43 49 52 43 55 4C 41 52  |.       CIRCULAR|
00000830: 20 4D 49 4C 20 41 52 45  41 20 46 4F 52 4D 55 4C  | MIL AREA FORMUL|
00000840: 41 22 00 8B 10 08 02 99  22 1D 1D 1D 1D 1D 1D 1D  |A"......".......|
00000850: 1D 1D 1D 1D 1D 1D 1D 11  11 1F 43 4D 3D 32 4C 2A  |..........CM=2L*|
00000860: 4B 2A 49 20 20 20 20 20  20 20 20 20 20 20 20 20  |K*I             |
00000870: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000880: 20 20 20 20 20 A3 A3 A3  A3 A3 A3 00 AD 10 0A 02  |     ...........|
00000890: 99 22 1D 20 20 20 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |.".   ..........|
000008A0: 1D 1D 1D 56 28 44 52 4F  50 29 11 11 22 00 D6 10  |...V(DROP).."...|
000008B0: 12 02 99 22 9C 45 4E 54  45 52 20 54 48 45 20 4C  |...".ENTER THE L|
000008C0: 45 4E 47 54 48 20 4F 46  20 54 48 45 20 43 49 52  |ENGTH OF THE CIR|
000008D0: 43 55 49 54 90 22 00 DD  10 17 02 85 4C 00 0F 11  |CUIT."......L...|
000008E0: 1C 02 99 22 9C 45 4E 54  45 52 20 31 30 2E 34 20  |...".ENTER 10.4 |
000008F0: 46 4F 52 20 43 4F 50 50  45 52 20 2F 20 31 37 20  |FOR COPPER / 17 |
00000900: 46 4F 52 20 41 4C 55 4D  49 4E 4D 55 4D 90 22 00  |FOR ALUMINMUM.".|
00000910: 16 11 21 02 85 4B 00 3A  11 26 02 99 22 9C 45 4E  |..!..K.:.&..".EN|
00000920: 54 45 52 20 54 48 45 20  56 41 4C 55 45 20 4F 46  |TER THE VALUE OF|
00000930: 20 43 55 52 52 45 4E 54  90 22 00 41 11 2B 02 85  | CURRENT.".A.+..|
00000940: 49 00 6A 11 30 02 99 22  9C 45 4E 54 45 52 20 54  |I.j.0..".ENTER T|
00000950: 48 45 20 56 41 4C 55 45  20 4F 46 20 56 4F 4C 54  |HE VALUE OF VOLT|
00000960: 41 47 45 20 44 52 4F 50  90 22 00 71 11 35 02 85  |AGE DROP.".q.5..|
00000970: 56 00 82 11 3A 02 43 4D  B2 32 AC 4C AC 4B AC 49  |V...:.CM.2.L.K.I|
00000980: AD 56 00 A5 11 3F 02 99  22 12 1C 54 48 45 20 43  |.V...?.."..THE C|
00000990: 49 52 2E 4D 49 4C 20 41  52 45 41 20 3D 92 20 20  |IR.MIL AREA =.  |
000009A0: 20 22 3B 43 4D 00 C4 11  44 02 99 22 1E 48 49 54  | ";CM...D..".HIT|
000009B0: 20 41 20 4B 45 59 20 54  4F 20 43 4F 4E 54 49 4E  | A KEY TO CONTIN|
000009C0: 55 45 1F 22 00 D7 11 4E  02 A1 4B 24 3A 8B 4B 24  |UE."...N..K$:.K$|
000009D0: B2 22 22 A7 35 39 30 00  E0 11 53 02 89 31 30 30  |."".590...S..100|
000009E0: 00 03 12 58 02 8F 20 57  49 52 45 20 53 49 5A 45  |...X.. WIRE SIZE|
000009F0: 20 49 4E 53 54 45 41 44  20 4F 46 20 43 4D 20 41  | INSTEAD OF CM A|
00000A00: 52 45 41 00 0E 12 5D 02  99 22 93 11 11 22 00 3C  |REA...].."...".<|
00000A10: 12 62 02 99 22 54 48 45  20 42 41 53 49 43 20 46  |.b.."THE BASIC F|
00000A20: 4F 52 4D 55 4C 41 20 49  53 20 20 54 48 45 20 53  |ORMULA IS  THE S|
00000A30: 41 4D 45 20 42 55 54 20  54 48 45 22 00 66 12 63  |AME BUT THE".f.c|
00000A40: 02 99 22 43 4F 4D 50 55  54 45 52 20 57 49 4C 4C  |.."COMPUTER WILL|
00000A50: 20 4D 41 4B 45 20 54 48  45 20 43 4F 4D 50 55 54  | MAKE THE COMPUT|
00000A60: 41 54 49 4F 4E 22 00 95  12 64 02 99 22 46 52 4F  |ATION"...d.."FRO|
00000A70: 4D 20 43 49 52 43 55 4C  41 52 20 4D 49 4C 20 41  |M CIRCULAR MIL A|
00000A80: 52 45 41 20 54 4F 20 57  49 52 45 20 53 49 5A 45  |REA TO WIRE SIZE|
00000A90: 20 23 27 53 22 00 A9 12  67 02 99 22 11 11 1C 20  | #'S"...g.."... |
00000AA0: 54 4F 20 46 49 4E 44 3A  22 00 C5 12 68 02 99 22  |TO FIND:"...h.."|
00000AB0: 11 11 1C 1D 28 31 29 1F  56 4F 4C 54 41 47 45 20  |....(1).VOLTAGE |
00000AC0: 44 52 4F 50 22 00 E4 12  6A 02 99 22 1C 20 28 32  |DROP"...j..". (2|
00000AD0: 29 1F 4C 45 4E 47 54 48  20 4F 46 20 43 49 52 43  |).LENGTH OF CIRC|
00000AE0: 55 49 54 22 00 FE 12 6C  02 99 22 1C 20 28 33 29  |UIT"...l..". (3)|
00000AF0: 1F 4D 41 58 2E 20 43 55  52 52 45 4E 54 22 00 1B  |.MAX. CURRENT"..|
00000B00: 13 6E 02 99 22 1C 20 28  34 29 1F 57 49 52 45 20  |.n..". (4).WIRE |
00000B10: 53 49 5A 45 20 28 41 57  47 29 22 00 40 13 70 02  |SIZE (AWG)".@.p.|
00000B20: 99 22 90 20 28 35 29 52  45 54 55 52 4E 20 54 4F  |.". (5)RETURN TO|
00000B30: 20 54 48 45 20 4D 41 49  4E 20 4D 45 4E 55 1F 22  | THE MAIN MENU."|
00000B40: 00 5A 13 71 02 85 22 1E  11 11 1D 1D 1D 53 45 4C  |.Z.q.."......SEL|
00000B50: 45 43 54 20 4F 4E 45 22  3B 42 00 67 13 74 02 8B  |ECT ONE";B.g.t..|
00000B60: 42 B2 31 A7 37 30 30 00  74 13 76 02 8B 42 B2 32  |B.1.700.t.v..B.2|
00000B70: A7 38 30 30 00 81 13 78  02 8B 42 B2 33 A7 39 30  |.800...x..B.3.90|
00000B80: 30 00 8F 13 7A 02 8B 42  B2 34 A7 31 33 30 30 00  |0...z..B.4.1300.|
00000B90: 9C 13 7C 02 8B 42 B2 35  A7 31 30 30 00 A6 13 BC  |..|..B.5.100....|
00000BA0: 02 8D 31 30 30 30 00 AC  13 C1 02 99 00 C7 13 C6  |..1000..........|
00000BB0: 02 85 22 4C 45 4E 47 54  48 20 4F 46 20 43 49 52  |.."LENGTH OF CIR|
00000BC0: 43 55 49 54 22 3B 4C 00  CD 13 CB 02 99 00 FD 13  |CUIT";L.........|
00000BD0: D0 02 99 22 45 4E 54 45  52 20 31 30 2E 34 20 46  |..."ENTER 10.4 F|
00000BE0: 4F 52 20 43 4F 50 50 45  52 20 2F 20 31 37 20 46  |OR COPPER / 17 F|
00000BF0: 4F 52 20 41 4C 55 4D 49  4E 4D 55 4D 22 00 03 14  |OR ALUMINMUM"...|
00000C00: D2 02 99 00 0A 14 D5 02  85 4B 00 10 14 D8 02 99  |.........K......|
00000C10: 00 2A 14 DA 02 85 22 56  41 4C 55 45 20 4F 46 20  |.*...."VALUE OF |
00000C20: 43 55 52 52 45 4E 54 22  3B 49 00 30 14 DF 02 99  |CURRENT";I.0....|
00000C30: 00 4F 14 E4 02 85 22 53  49 5A 45 20 4F 46 20 57  |.O...."SIZE OF W|
00000C40: 49 52 45 20 28 41 57 47  29 20 23 22 3B 43 24 00  |IRE (AWG) #";C$.|
00000C50: 59 14 E9 02 8D 31 34 30  30 00 6A 14 EE 02 56 B2  |Y....1400.j...V.|
00000C60: 32 AC 4C AC 4B AC 49 AD  43 4D 00 72 14 F3 02 99  |2.L.K.I.CM.r....|
00000C70: 3A 99 00 91 14 F8 02 99  22 1C 12 54 48 45 20 56  |:......."..THE V|
00000C80: 4F 4C 54 41 47 45 20 44  52 4F 50 20 3D 92 22 3B  |OLTAGE DROP =.";|
00000C90: 56 00 97 14 FD 02 99 00  B5 14 02 03 99 22 1E 48  |V............".H|
00000CA0: 49 54 20 41 20 4B 45 59  20 54 4F 20 43 4F 4E 54  |IT A KEY TO CONT|
00000CB0: 49 4E 55 45 22 00 C8 14  0C 03 A1 4B 24 3A 8B 4B  |INUE"......K$:.K|
00000CC0: 24 B2 22 22 A7 37 38 30  00 D1 14 16 03 89 31 30  |$."".780......10|
00000CD0: 30 00 DB 14 20 03 8D 31  30 30 30 00 0D 15 2A 03  |0... ..1000...*.|
00000CE0: 99 22 11 11 45 4E 54 45  52 20 31 30 2E 34 20 46  |."..ENTER 10.4 F|
00000CF0: 4F 52 20 43 4F 50 50 45  52 20 2F 20 31 37 20 46  |OR COPPER / 17 F|
00000D00: 4F 52 20 41 4C 55 4D 49  4E 4D 55 4D 22 00 14 15  |OR ALUMINMUM"...|
00000D10: 34 03 85 4B 00 2F 15 3E  03 85 22 11 56 41 4C 55  |4..K./.>..".VALU|
00000D20: 45 20 4F 46 20 43 55 52  52 45 4E 54 22 3B 49 00  |E OF CURRENT";I.|
00000D30: 49 15 48 03 85 22 11 56  41 4C 55 45 20 4F 46 20  |I.H..".VALUE OF |
00000D40: 56 2E 44 52 4F 50 22 3B  56 00 68 15 52 03 99 22  |V.DROP";V.h.R.."|
00000D50: 11 47 49 56 45 20 54 48  45 20 53 49 5A 45 20 57  |.GIVE THE SIZE W|
00000D60: 49 52 45 20 41 57 47 22  00 70 15 57 03 85 43 24  |IRE AWG".p.W..C$|
00000D70: 00 7A 15 59 03 8D 31 34  30 30 00 8F 15 5C 03 4C  |.z.Y..1400...\.L|
00000D80: B2 28 43 4D AC 56 29 AD  28 4B AC 49 29 AD 32 00  |.(CM.V).(K.I).2.|
00000D90: B4 15 66 03 99 22 11 11  1C 12 54 48 45 20 4C 45  |..f.."....THE LE|
00000DA0: 4E 47 54 48 20 4F 46 20  54 48 45 20 43 49 52 3D  |NGTH OF THE CIR=|
00000DB0: 92 22 3B 4C 00 D2 15 70  03 99 22 1E 48 49 54 20  |.";L...p..".HIT |
00000DC0: 41 20 4B 45 59 20 54 4F  20 43 4F 4E 54 49 4E 55  |A KEY TO CONTINU|
00000DD0: 45 22 00 E5 15 7A 03 A1  4B 24 3A 8B 4B 24 B2 22  |E"...z..K$:.K$."|
00000DE0: 22 A7 38 39 30 00 EE 15  7F 03 89 31 30 30 00 F8  |".890......100..|
00000DF0: 15 84 03 8D 31 30 30 30  00 2D 16 8E 03 99 22 11  |....1000.-....".|
00000E00: 11 45 4E 54 45 52 20 31  30 2E 34 20 46 4F 52 20  |.ENTER 10.4 FOR |
00000E10: 43 4F 50 50 45 52 20 2F  20 31 37 20 46 4F 52 20  |COPPER / 17 FOR |
00000E20: 41 4C 55 4D 49 4E 4D 55  4D 22 3A 85 4B 00 49 16  |ALUMINMUM":.K.I.|
00000E30: 98 03 85 22 11 4C 45 4E  47 54 48 20 4F 46 20 43  |...".LENGTH OF C|
00000E40: 49 52 43 55 49 54 22 3B  4C 00 63 16 A2 03 85 22  |IRCUIT";L.c...."|
00000E50: 11 56 41 4C 55 45 20 4F  46 20 56 2E 44 52 4F 50  |.VALUE OF V.DROP|
00000E60: 22 3B 56 00 80 16 AC 03  99 22 11 53 49 5A 45 20  |";V......".SIZE |
00000E70: 4F 46 20 57 49 52 45 20  28 41 57 47 29 20 23 22  |OF WIRE (AWG) #"|
00000E80: 00 88 16 B6 03 85 43 24  00 92 16 BB 03 8D 31 34  |......C$......14|
00000E90: 30 30 00 A7 16 C0 03 49  B2 28 43 4D AC 56 29 AD  |00.....I.(CM.V).|
00000EA0: 28 32 AC 4C AC 4B 29 00  CA 16 CA 03 99 22 1C 12  |(2.L.K)......"..|
00000EB0: 54 48 45 20 4D 41 58 2E  20 43 55 52 52 45 4E 54  |THE MAX. CURRENT|
00000EC0: 20 49 53 3D 1D 1D 92 22  3B 49 00 EA 16 D4 03 99  | IS=...";I......|
00000ED0: 22 1E 11 48 49 54 20 41  20 4B 45 59 20 54 4F 20  |"..HIT A KEY TO |
00000EE0: 43 4F 4E 54 49 4E 55 45  1F 22 00 FD 16 DE 03 A1  |CONTINUE."......|
00000EF0: 4B 24 3A 8B 4B 24 B2 22  22 A7 39 39 30 00 06 17  |K$:.K$."".990...|
00000F00: E3 03 89 31 30 30 00 27  17 E8 03 99 22 93 11 11  |...100.'...."...|
00000F10: 1F 45 4E 54 45 52 20 54  48 45 20 4B 4E 4F 57 4E  |.ENTER THE KNOWN|
00000F20: 20 56 41 4C 55 45 53 00  2D 17 F2 03 8E 00 37 17  | VALUES.-.....7.|
00000F30: 14 05 8D 31 30 30 30 00  6C 17 1E 05 99 22 11 11  |...1000.l...."..|
00000F40: 45 4E 54 45 52 20 31 30  2E 34 20 46 4F 52 20 43  |ENTER 10.4 FOR C|
00000F50: 4F 50 50 45 52 20 2F 20  31 37 20 46 4F 52 20 41  |OPPER / 17 FOR A|
00000F60: 4C 55 4D 49 4E 4D 55 4D  22 3A 85 4B 00 8C 17 28  |LUMINMUM":.K...(|
00000F70: 05 85 22 11 4C 45 4E 47  54 48 20 4F 46 20 54 48  |..".LENGTH OF TH|
00000F80: 45 20 43 49 52 43 55 49  54 22 3B 4C 00 A7 17 32  |E CIRCUIT";L...2|
00000F90: 05 85 22 11 56 41 4C 55  45 20 4F 46 20 43 55 52  |..".VALUE OF CUR|
00000FA0: 52 45 4E 54 22 3B 49 00  C1 17 3C 05 85 22 11 56  |RENT";I...<..".V|
00000FB0: 41 4C 55 45 20 4F 46 20  56 2E 44 52 4F 50 22 3B  |ALUE OF V.DROP";|
00000FC0: 56 00 D4 17 46 05 43 4D  B2 28 4B AC 32 AC 4C AC  |V...F.CM.(K.2.L.|
00000FD0: 49 29 AD 56 00 E7 17 4B  05 99 22 12 11 1D 43 4D  |I).V...K.."...CM|
00000FE0: 3D 22 43 4D 22 92 22 00  F1 17 50 05 8D 31 36 30  |="CM"."...P..160|
00000FF0: 30 00 16 18 5A 05 99 22  11 11 1C 12 54 48 45 20  |0...Z.."....THE |
00001000: 53 49 5A 45 20 4F 46 20  57 49 52 45 20 3D 20 20  |SIZE OF WIRE =  |
00001010: 20 20 92 22 3B 43 00 35  18 64 05 99 22 11 1E 48  |  .";C.5.d.."..H|
00001020: 49 54 20 41 20 4B 45 59  20 54 4F 20 43 4F 4E 54  |IT A KEY TO CONT|
00001030: 49 4E 55 45 22 00 49 18  6E 05 A1 4B 24 3A 8B 4B  |INUE".I.n..K$:.K|
00001040: 24 B2 22 22 A7 31 33 39  30 00 52 18 73 05 89 31  |$."".1390.R.s..1|
00001050: 30 30 00 68 18 78 05 8B  43 24 B2 22 31 34 22 A7  |00.h.x..C$."14".|
00001060: 88 43 4D B2 34 31 30 37  00 7E 18 82 05 8B 43 24  |.CM.4107.~....C$|
00001070: B2 22 31 32 22 A7 88 43  4D B2 36 35 33 30 00 95  |."12"..CM.6530..|
00001080: 18 8C 05 8B 43 24 B2 22  31 30 22 A7 88 43 4D B2  |....C$."10"..CM.|
00001090: 31 30 33 38 30 00 AB 18  96 05 8B 43 24 B2 22 38  |10380......C$."8|
000010A0: 22 A7 88 43 4D B2 31 36  35 31 30 00 C1 18 A0 05  |"..CM.16510.....|
000010B0: 8B 43 24 B2 22 36 22 A7  88 43 4D B2 32 36 32 35  |.C$."6"..CM.2625|
000010C0: 30 00 D7 18 AA 05 8B 43  24 B2 22 34 22 A7 88 43  |0......C$."4"..C|
000010D0: 4D B2 34 31 37 34 30 00  ED 18 B4 05 8B 43 24 B2  |M.41740......C$.|
000010E0: 22 33 22 A7 88 43 4D B2  35 32 36 33 30 00 03 19  |"3"..CM.52630...|
000010F0: BE 05 8B 43 24 B2 22 32  22 A7 88 43 4D B2 36 36  |...C$."2"..CM.66|
00001100: 33 37 30 00 19 19 C8 05  8B 43 24 B2 22 31 22 A7  |370......C$."1".|
00001110: 88 43 4D B2 38 33 36 39  30 00 30 19 D2 05 8B 43  |.CM.83690.0....C|
00001120: 24 B2 22 30 22 A7 88 43  4D B2 31 30 35 35 30 30  |$."0"..CM.105500|
00001130: 00 49 19 D7 05 8B 43 24  B2 22 31 2D 30 22 A7 88  |.I....C$."1-0"..|
00001140: 43 4D B2 31 30 35 35 30  30 00 61 19 DC 05 8B 43  |CM.105500.a....C|
00001150: 24 B2 22 30 30 22 A7 88  43 4D B2 31 33 33 31 30  |$."00"..CM.13310|
00001160: 30 00 7A 19 E6 05 8B 43  24 B2 22 32 2D 30 22 A7  |0.z....C$."2-0".|
00001170: 88 43 4D B2 31 33 33 31  30 30 00 93 19 F0 05 8B  |.CM.133100......|
00001180: 43 24 B2 22 30 30 30 22  A7 88 43 4D B2 31 36 37  |C$."000"..CM.167|
00001190: 38 30 30 00 AC 19 FA 05  8B 43 24 B2 22 33 2D 30  |800......C$."3-0|
000011A0: 22 A7 88 43 4D B2 31 36  37 38 30 30 00 C6 19 04  |"..CM.167800....|
000011B0: 06 8B 43 24 B2 22 30 30  30 30 22 A7 88 43 4D B2  |..C$."0000"..CM.|
000011C0: 32 31 31 36 30 30 00 DF  19 0E 06 8B 43 24 B2 22  |211600......C$."|
000011D0: 34 2D 30 22 A7 88 43 4D  B2 32 31 31 36 30 30 00  |4-0"..CM.211600.|
000011E0: E5 19 18 06 8E 00 F8 19  40 06 8B 43 4D B3 B2 34  |........@..CM..4|
000011F0: 31 30 37 A7 43 B2 31 34  00 12 1A 4A 06 8B 43 4D  |107.C.14...J..CM|
00001200: B1 34 31 30 37 B0 43 4D  B2 36 35 33 30 A7 43 B2  |.4107.CM.6530.C.|
00001210: 31 32 00 2D 1A 54 06 8B  43 4D B1 36 35 33 30 B0  |12.-.T..CM.6530.|
00001220: 43 4D B2 31 30 33 38 30  A7 43 B2 31 30 00 48 1A  |CM.10380.C.10.H.|
00001230: 5E 06 8B 43 4D B1 31 30  33 38 30 B0 43 4D B2 31  |^..CM.10380.CM.1|
00001240: 36 35 31 30 A7 43 B2 38  00 63 1A 68 06 8B 43 4D  |6510.C.8.c.h..CM|
00001250: B1 31 36 35 31 30 B0 43  4D B2 32 36 32 35 30 A7  |.16510.CM.26250.|
00001260: 43 B2 36 00 82 1A 72 06  8B 28 43 4D B1 32 36 32  |C.6...r..(CM.262|
00001270: 35 30 29 B0 28 43 4D B2  34 31 37 34 30 29 A7 43  |50).(CM.41740).C|
00001280: B2 34 00 A1 1A 7C 06 8B  28 43 4D B1 34 31 37 34  |.4...|..(CM.4174|
00001290: 30 29 B0 28 43 4D B2 35  32 36 33 30 29 A7 43 B2  |0).(CM.52630).C.|
000012A0: 33 00 C0 1A 86 06 8B 28  43 4D B1 35 32 36 33 30  |3......(CM.52630|
000012B0: 29 B0 28 43 4D B2 36 36  33 37 30 29 A7 43 B2 32  |).(CM.66370).C.2|
000012C0: 00 DF 1A 90 06 8B 28 43  4D B1 36 36 33 37 30 29  |......(CM.66370)|
000012D0: B0 28 43 4D B2 38 33 36  39 30 29 A7 43 B2 31 00  |.(CM.83690).C.1.|
000012E0: FF 1A 9A 06 8B 28 43 4D  B1 38 33 36 39 30 29 B0  |.....(CM.83690).|
000012F0: 28 43 4D B2 31 30 35 35  30 30 29 A7 43 B2 30 00  |(CM.105500).C.0.|
00001300: 23 1B A4 06 8B 28 43 4D  B1 31 30 35 35 30 30 29  |#....(CM.105500)|
00001310: AF 28 43 4D B3 B2 31 33  33 31 30 30 29 A7 8D 31  |.(CM..133100)..1|
00001320: 37 35 30 00 47 1B AE 06  8B 28 43 4D B1 31 33 33  |750.G....(CM.133|
00001330: 31 30 30 29 AF 28 43 4D  B3 B2 31 36 37 38 30 30  |100).(CM..167800|
00001340: 29 A7 8D 31 37 37 35 00  6B 1B B8 06 8B 28 43 4D  |)..1775.k....(CM|
00001350: B1 31 36 37 38 30 30 29  AF 28 43 4D B3 B2 32 31  |.167800).(CM..21|
00001360: 31 36 30 30 29 A7 8D 31  38 30 30 00 AA 1B BD 06  |1600)..1800.....|
00001370: 8B 43 4D B1 32 31 31 36  30 30 A7 99 22 11 12 1C  |.CM.211600.."...|
00001380: 54 48 45 20 57 49 52 45  20 4E 45 45 44 45 44 20  |THE WIRE NEEDED |
00001390: 49 53 20 41 42 4F 56 45  20 41 57 47 20 53 49 5A  |IS ABOVE AWG SIZ|
000013A0: 45 53 92 22 3A 89 31 33  38 30 00 B0 1B C4 06 8E  |ES.":.1380......|
000013B0: 00 DE 1B D6 06 99 22 11  12 1C 54 48 45 20 53 49  |......"...THE SI|
000013C0: 5A 45 20 4F 46 20 54 48  45 20 57 49 52 45 20 3D  |ZE OF THE WIRE =|
000013D0: 20 20 20 92 20 30 30 22  3A 89 31 33 38 30 00 0D  |   . 00":.1380..|
000013E0: 1C EF 06 99 22 11 12 1C  54 48 45 20 53 49 5A 45  |...."...THE SIZE|
000013F0: 20 4F 46 20 54 48 45 20  57 49 52 45 20 3D 20 20  | OF THE WIRE =  |
00001400: 20 92 20 30 30 30 22 3A  89 31 33 38 30 00 3D 1C  | . 000":.1380.=.|
00001410: 08 07 99 22 11 12 1C 54  48 45 20 53 49 5A 45 20  |..."...THE SIZE |
00001420: 4F 46 20 54 48 45 20 57  49 52 45 20 3D 20 20 20  |OF THE WIRE =   |
00001430: 92 20 30 30 30 30 22 3A  89 31 33 38 30 00 00 00  |. 0000":.1380...|
.......53281,15:.53280,12:.".".@...."...
..............THE  WIRE".B....".........
....SIZE FORMLUAS"...(.."...............
..PROGRAMED "...2.."..................BY
".C.<.."................BOB JACKSON...F.
."..............HIT A KEY TO CONT."...P.
.A$:.A$."".80...D.."..   .....FORMULA ME
NU".2.N.."..   ..TO FIND:".N.X.."   .1. 
 VOLTAGE DROP".N....".....2.  MAXIMUM CU
RRENT"......".....3.  LENGTH OF CIRCUIT"
......".....4.  CIR. MIL AREA".M...."...
..5.  WIRE SIZE (AWG)......".....6  EXIT
 PROGRAM"... .."    ...CHOOSE ONE.";A...
...A.1.200......A.2.300.,....A.3.400.9.C
..A.4.500.F.D..A.5.600.Q.E..A.6...D.H.. 
VOLTAGE DROP...R..".        ..VOLTAGE DR
OP FORMULA".S....".....      .....VD=2L*
K*I                                  ...
........."..................CM.."......"
.ENTER THE LENGTH OF THE CIRCUIT.".!....
L.S....".ENTER 10.4 FOR COPPER / 17 FOR 
ALUMINMUM.".Z....K.~....".ENTER THE VALU
E OF CURRENT."......I......".ENTER THE V
ALUE OF CIRCULAR MILS."......CM.H...V.2.
L.K.I.CM......"..VOLTAGE DROP =.       "
;V......".HIT A KEY TO CONTINUE."......K
$:.K$."".257.%....100.8.,.. MAX. CURRENT
._.6..".        ..MAX. CURRENT FORMULA".
..@.."....              I=V*CM.....     
             .................".F.B.."..
...............2L*K.."...J..".ENTER THE 
KNOW VOLTAGE DROP."...O..V...T..".ENTER 
THE CIRCULAR MIL AREA."...Y..CM.J.^..".E
NTER THE LENGTH OF   THE CIRCUIT.".Q.C..
L...H..".ENTER 10.4 FOR COPPER OR 17 FOR
 ALUMINMUM."...M..K. .R.I.(V.CM).(2.L.K)
.B.W.."..THE MAX. CURRENT =.   ";I...|..
".HIT A KEY TO CONTINUE."......K$:.K$.""
.385......100...... LENGTH OF CIR..?....
".         ..LENGTH OF WIRE FORMULA...".
.....".............. L=V*CM.............
.....                  ...........".    
............K*I.M...."    .NOTE 'L' IS N
OW LEN. OF THE WIRE.".S..........".ENTER
 THE VALUE OF VOLTAGE DROP."......V.(...
.".ENTER THE CIRCULAR MIL AREA.".0.B..CM
.B.G..".ENTER 10.4 FOR COPPER / 17 FOR A
LUMINMUM.".I.L..K...Q..".ENTER THE CURRE
NT VALUE."...V..I.....L.(V.CM).(K.I).I..
.."..THE LENGTH OF THE WIRE =.";L......"
.HIT A KEY TO CONTINUE."......K$:.K$."".
490......100...... CIR.MIL AREA.B...."..
.       CIRCULAR MIL AREA FORMULA"......
".................CM=2L*K*I             
                     ............".   ..
...........V(DROP)..".V....".ENTER THE L
ENGTH OF THE CIRCUIT."......L......".ENT
ER 10.4 FOR COPPER / 17 FOR ALUMINMUM.".
..!..K.:.&..".ENTER THE VALUE OF CURRENT
.".A.+..I.J.0..".ENTER THE VALUE OF VOLT
AGE DROP.".Q.5..V...:.CM.2.L.K.I.V...?..
"..THE CIR.MIL AREA =.   ";CM.D.D..".HIT
 A KEY TO CONTINUE.".W.N..K$:.K$."".590.
..S..100...X.. WIRE SIZE INSTEAD OF CM A
REA...].."...".<.B.."THE BASIC FORMULA I
S  THE SAME BUT THE".F.C.."COMPUTER WILL
 MAKE THE COMPUTATION"...D.."FROM CIRCUL
AR MIL AREA TO WIRE SIZE #'S"...G.."... 
TO FIND:".E.H.."....(1).VOLTAGE DROP"...
J..". (2).LENGTH OF CIRCUIT"...L..". (3)
.MAX. CURRENT"...N..". (4).WIRE SIZE (AW
G)".@.P..". (5)RETURN TO THE MAIN MENU."
.Z.Q.."......SELECT ONE";B.G.T..B.1.700.
T.V..B.2.800...X..B.3.900...Z..B.4.1300.
..|..B.5.100......1000...A...G.F.."LENGT
H OF CIRCUIT";L.M.K.....P.."ENTER 10.4 F
OR COPPER / 17 FOR ALUMINMUM"...R.....U.
.K...X...*.Z.."VALUE OF CURRENT";I.0....
.O...."SIZE OF WIRE (AWG) #";C$.Y....140
0.J...V.2.L.K.I.CM.R....:......."..THE V
OLTAGE DROP =.";V............".HIT A KEY
 TO CONTINUE".H....K$:.K$."".780.Q....10
0... ..1000...*.."..ENTER 10.4 FOR COPPE
R / 17 FOR ALUMINMUM"...4..K./.>..".VALU
E OF CURRENT";I.I.H..".VALUE OF V.DROP";
V.H.R..".GIVE THE SIZE WIRE AWG".P.W..C$
.Z.Y..1400...\.L.(CM.V).(K.I).2...F.."..
..THE LENGTH OF THE CIR=.";L.R.P..".HIT 
A KEY TO CONTINUE"...Z..K$:.K$."".890...
..100......1000.-...."..ENTER 10.4 FOR 
COPPER / 17 FOR ALUMINMUM":.K.I....".LEN
GTH OF CIRCUIT";L.C....".VALUE OF V.DROP
";V......".SIZE OF WIRE (AWG) #"......C$
......1400.....I.(CM.V).(2.L.K).J.J.."..
THE MAX. CURRENT IS=...";I...T.."..HIT A
 KEY TO CONTINUE."......K$:.K$."".990...
...100.'...."....ENTER THE KNOWN VALUES.
-.....7....1000.L...."..ENTER 10.4 FOR C
OPPER / 17 FOR ALUMINMUM":.K...(..".LENG
TH OF THE CIRCUIT";L...2..".VALUE OF CUR
RENT";I.A.<..".VALUE OF V.DROP";V.T.F.CM
.(K.2.L.I).V...K.."...CM="CM"."...P..160
0...Z.."....THE SIZE OF WIRE =    .";C.5
.D.."..HIT A KEY TO CONTINUE".I.N..K$:.K
$."".1390.R.S..100.H.X..C$."14"..CM.4107
.~....C$."12"..CM.6530......C$."10"..CM.
10380......C$."8"..CM.16510.A. ..C$."6".
.CM.26250.W....C$."4"..CM.41740......C$.
"3"..CM.52630......C$."2"..CM.66370...H.
.C$."1"..CM.83690.0.R..C$."0"..CM.105500
.I.W..C$."1-0"..CM.105500.A....C$."00"..
CM.133100.Z....C$."2-0"..CM.133100......
C$."000"..CM.167800......C$."3-0"..CM.16
7800.F....C$."0000"..CM.211600......C$."
4-0"..CM.211600.........@..CM..4107.C.14
...J..CM.4107.CM.6530.C.12.-.T..CM.6530.
CM.10380.C.10.H.^..CM.10380.CM.16510.C.8
.C.H..CM.16510.CM.26250.C.6...R..(CM.262
50).(CM.41740).C.4...|..(CM.41740).(CM.5
2630).C.3......(CM.52630).(CM.66370).C.2
......(CM.66370).(CM.83690).C.1......(CM
.83690).(CM.105500).C.0.#....(CM.105500)
.(CM..133100)..1750.G....(CM.133100).(CM
..167800)..1775.K....(CM.167800).(CM..21
1600)..1800......CM.211600.."...THE WIRE
 NEEDED IS ABOVE AWG SIZES.":.1380...D..
...V.."...THE SIZE OF THE WIRE =   . 00"
:.1380......"...THE SIZE OF THE WIRE =  
 . 000":.1380.=...."...THE SIZE OF THE W
IRE =   . 0000":.1380...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL