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

COIL DESIGN.Z

FILE INFORMATION

FILENAME(S): COIL DESIGN.Z

FILE TYPE(S): PRG

FILE SIZE: 5.4K

FIRST SEEN: 2025-11-02 16:39:41

APPEARS ON: 4 disk(s)

FILE HASH

00cc6a95aefe923ff663c1a8db1382978e43927adc0f3d996598b738a4cf7eb7

FOUND ON DISKS (4 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TPUG APRIL 84 C COIL DESIGN.Z PRG Treasure Chest - Plattfuss 33 0 DOWNLOAD FILE
A NWENDER COIL DESIGN.Z PRG Treasure Chest - Wolfgang Rauprich 14 2 DOWNLOAD FILE
FREESOFT DISK NR COIL DESIGN.Z PRG Treasure Chest - Wolfgang Rauprich 14 2 DOWNLOAD FILE
TPUG APRIL 84 C COIL DESIGN.Z PRG DuncanTwain 33 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0C 08 64 00 9C 3A  99 22 93 22 00 34 08 6E  |....d..:.".".4.n|
00000010: 00 8F 22 54 48 49 53 20  49 53 20 41 20 43 4F 49  |.."THIS IS A COI|
00000020: 4C 20 44 45 53 49 47 4E  20 50 52 4F 47 52 41 4D  |L DESIGN PROGRAM|
00000030: 20 42 59 22 00 53 08 78  00 8F 22 48 41 52 52 59  | BY".S.x.."HARRY|
00000040: 20 4C 2E 20 52 4F 53 49  45 52 20 2D 20 4B 34 4C  | L. ROSIER - K4L|
00000050: 42 46 22 00 79 08 82 00  8F 22 46 49 4E 41 4C 20  |BF".y...."FINAL |
00000060: 44 45 53 49 47 4E 20 4E  4F 56 45 4D 42 45 52 20  |DESIGN NOVEMBER |
00000070: 35 2C 20 31 39 38 30 2E  22 00 9C 08 8C 00 8F 22  |5, 1980."......"|
00000080: 53 50 45 43 49 41 4C 20  54 48 41 4E 4B 53 20 54  |SPECIAL THANKS T|
00000090: 4F 20 54 48 45 20 52 41  44 49 4F 22 00 BE 08 96  |O THE RADIO"....|
000000A0: 00 8F 22 41 4D 41 54 45  55 52 27 53 20 48 41 4E  |.."AMATEUR'S HAN|
000000B0: 44 42 4F 4F 4B 20 46 4F  52 20 54 48 45 22 00 DE  |DBOOK FOR THE"..|
000000C0: 08 A0 00 8F 22 45 51 55  41 54 49 4F 4E 20 41 4E  |...."EQUATION AN|
000000D0: 44 20 57 49 52 45 20 54  41 42 4C 45 53 22 00 F9  |D WIRE TABLES"..|
000000E0: 08 AA 00 99 A3 31 32 29  22 43 4F 49 4C 20 44 45  |.....12)"COIL DE|
000000F0: 53 49 47 4E 22 3A 99 3A  99 00 26 09 B4 00 99 22  |SIGN":.:..&...."|
00000100: 54 48 49 53 20 50 52 4F  47 52 41 4D 20 49 53 20  |THIS PROGRAM IS |
00000110: 53 45 4C 46 20 45 58 50  4C 41 4E 41 54 4F 52 59  |SELF EXPLANATORY|
00000120: 20 42 55 54 20 22 00 51  09 BE 00 99 22 57 4F 55  | BUT ".Q...."WOU|
00000130: 4C 44 20 59 4F 55 20 4C  49 4B 45 20 41 20 42 52  |LD YOU LIKE A BR|
00000140: 49 45 46 20 44 45 53 43  52 49 50 54 49 4F 4E 3F  |IEF DESCRIPTION?|
00000150: 22 00 74 09 C8 00 99 22  50 4C 45 41 53 45 20 41  |".t...."PLEASE A|
00000160: 4E 53 57 45 52 20 28 59  20 4F 52 20 4E 29 22 3A  |NSWER (Y OR N)":|
00000170: 85 20 44 24 00 7A 09 D2  00 99 00 8F 09 DC 00 8B  |. D$.z..........|
00000180: 20 44 24 B2 22 59 22 20  A7 20 8D 31 36 39 30 00  | D$."Y" . .1690.|
00000190: 97 09 E6 00 99 3A 99 00  AC 09 F0 00 8B 20 44 24  |.....:....... D$|
000001A0: B2 22 4E 22 20 A7 20 89  20 32 38 30 00 E2 09 FA  |."N" . . 280....|
000001B0: 00 99 22 20 20 20 20 20  20 20 12 54 4F 20 43 4F  |.."       .TO CO|
000001C0: 4E 54 49 4E 55 45 2C 20  50 52 45 53 53 20 41 4E  |NTINUE, PRESS AN|
000001D0: 59 20 4B 45 59 22 3A 81  49 B2 31 A4 38 3A 99 3A  |Y KEY":.I.1.8:.:|
000001E0: 82 49 00 F7 09 04 01 A1  20 41 24 3A 8B 20 41 24  |.I...... A$:. A$|
000001F0: B2 22 22 89 32 36 30 00  0E 0A 0E 01 81 20 49 20  |."".260...... I |
00000200: B2 20 31 20 A4 20 31 30  30 3A 20 82 20 49 00 23  |. 1 . 100: . I.#|
00000210: 0A 18 01 99 A3 31 35 29  22 4E 4F 54 45 53 22 3A  |.....15)"NOTES":|
00000220: 99 3A 99 00 4A 0A 22 01  99 22 31 2E 20 44 45 53  |.:..J.".."1. DES|
00000230: 49 47 4E 20 4F 46 20 54  48 45 20 43 4F 49 4C 20  |IGN OF THE COIL |
00000240: 4D 55 53 54 20 4D 45 45  54 22 00 6C 0A 2C 01 99  |MUST MEET".l.,..|
00000250: 22 20 20 20 54 48 45 20  46 4F 4C 4C 4F 57 49 4E  |"   THE FOLLOWIN|
00000260: 47 20 43 52 49 54 45 52  49 41 3A 22 00 72 0A 36  |G CRITERIA:".r.6|
00000270: 01 99 00 9F 0A 40 01 99  22 20 20 20 20 20 20 37  |.....@.."      7|
00000280: 35 20 4D 49 43 52 4F 48  45 4E 52 49 45 53 20 4D  |5 MICROHENRIES M|
00000290: 41 58 2E 20 49 4E 44 55  43 54 41 4E 43 45 22 00  |AX. INDUCTANCE".|
000002A0: CC 0A 4A 01 99 22 20 20  20 20 20 20 2E 32 20 4D  |..J.."      .2 M|
000002B0: 49 43 52 4F 48 45 4E 52  49 45 53 20 4D 49 4E 2E  |ICROHENRIES MIN.|
000002C0: 20 49 4E 44 55 43 54 41  4E 43 45 22 00 F0 0A 54  | INDUCTANCE"...T|
000002D0: 01 99 22 20 20 20 20 20  20 20 38 20 47 41 47 45  |.."       8 GAGE|
000002E0: 20 4D 41 58 2E 20 57 49  52 45 20 53 49 5A 45 22  | MAX. WIRE SIZE"|
000002F0: 00 14 0B 5E 01 99 22 20  20 20 20 20 20 34 30 20  |...^.."      40 |
00000300: 47 41 47 45 20 4D 49 4E  2E 20 57 49 52 45 20 53  |GAGE MIN. WIRE S|
00000310: 49 5A 45 22 00 43 0B 68  01 99 22 20 20 20 20 20  |IZE".C.h.."     |
00000320: 28 46 4F 52 20 31 2F 34  20 49 4E 43 48 20 54 55  |(FOR 1/4 INCH TU|
00000330: 42 49 4E 47 20 2D 20 55  53 45 20 53 49 5A 45 20  |BING - USE SIZE |
00000340: 30 29 22 00 49 0B 72 01  99 00 78 0B 7C 01 99 22  |0)".I.r...x.|.."|
00000350: 32 2E 20 52 45 53 49 53  54 4F 52 53 20 43 41 4E  |2. RESISTORS CAN|
00000360: 20 42 45 20 55 53 45 44  20 41 53 20 43 4F 49 4C  | BE USED AS COIL|
00000370: 20 46 4F 52 4D 53 2C 22  00 A6 0B 86 01 99 22 20  | FORMS,"......" |
00000380: 20 20 41 4E 44 20 4D 55  53 54 20 42 45 20 43 4F  |  AND MUST BE CO|
00000390: 4D 50 4F 53 49 54 49 4F  4E 20 54 59 50 45 20 48  |MPOSITION TYPE H|
000003A0: 41 56 49 4E 47 22 00 C9  0B 90 01 99 22 20 20 20  |AVING"......"   |
000003B0: 54 48 45 20 46 4F 4C 4C  4F 57 49 4E 47 20 44 49  |THE FOLLOWING DI|
000003C0: 4D 45 4E 53 49 4F 4E 53  22 00 CF 0B 9A 01 99 00  |MENSIONS".......|
000003D0: FA 0B A4 01 99 22 20 20  20 20 20 31 2E 20 31 2F  |....."     1. 1/|
000003E0: 32 20 57 41 54 54 20 2D  20 2E 31 34 20 58 20 2E  |2 WATT - .14 X .|
000003F0: 33 38 20 49 4E 43 48 45  53 22 00 25 0C AE 01 99  |38 INCHES".%....|
00000400: 22 20 20 20 20 20 32 2E  20 31 20 20 20 57 41 54  |"     2. 1   WAT|
00000410: 54 20 2D 20 2E 32 32 20  58 20 2E 35 38 20 49 4E  |T - .22 X .58 IN|
00000420: 43 48 45 53 22 00 50 0C  B8 01 99 22 20 20 20 20  |CHES".P...."    |
00000430: 20 33 2E 20 32 20 20 20  57 41 54 54 20 2D 20 2E  | 3. 2   WATT - .|
00000440: 33 30 20 58 20 2E 37 30  20 49 4E 43 48 45 53 22  |30 X .70 INCHES"|
00000450: 00 80 0C C2 01 99 22 20  20 20 20 20 28 54 48 45  |......"     (THE|
00000460: 53 45 20 41 52 45 20 53  54 41 4E 44 41 52 44 20  |SE ARE STANDARD |
00000470: 52 45 53 49 53 54 4F 52  20 53 49 5A 45 53 29 22  |RESISTOR SIZES)"|
00000480: 00 AB 0C CC 01 99 22 33  2E 20 4F 52 2C 53 45 4C  |......"3. OR,SEL|
00000490: 45 43 54 20 59 4F 55 52  20 4F 57 4E 20 44 49 41  |ECT YOUR OWN DIA|
000004A0: 4D 45 54 45 52 20 46 4F  52 4D 22 00 D6 0C D6 01  |METER FORM".....|
000004B0: 99 3A 99 22 20 20 20 20  20 20 20 12 54 4F 20 43  |.:."       .TO C|
000004C0: 4F 4E 54 49 4E 55 45 20  50 52 45 53 53 20 41 4E  |ONTINUE PRESS AN|
000004D0: 59 20 4B 45 59 22 00 ED  0C E0 01 A1 20 41 24 3A  |Y KEY"...... A$:|
000004E0: 20 8B 20 41 24 B2 22 22  20 A7 34 38 30 00 FE 0C  | . A$."" .480...|
000004F0: EA 01 81 49 B2 31 A4 32  30 3A 99 3A 82 49 00 21  |...I.1.20:.:.I.!|
00000500: 0D F4 01 99 22 44 4F 20  59 4F 55 20 57 49 53 48  |...."DO YOU WISH|
00000510: 20 54 4F 20 42 45 47 49  4E 20 57 49 54 48 22 3A  | TO BEGIN WITH":|
00000520: 99 00 49 0D FE 01 99 22  31 2D 49 4E 44 55 43 54  |..I...."1-INDUCT|
00000530: 41 4E 43 45 20 49 4E 20  4D 49 43 52 4F 48 45 4E  |ANCE IN MICROHEN|
00000540: 52 49 45 53 2C 20 4F 52  22 00 66 0D 08 02 99 22  |RIES, OR".f...."|
00000550: 32 2D 49 4E 44 55 43 54  49 56 45 20 52 45 41 43  |2-INDUCTIVE REAC|
00000560: 54 41 4E 43 45 22 00 6C  0D 12 02 99 00 76 0D 1C  |TANCE".l.....v..|
00000570: 02 85 20 53 3A 99 00 92  0D 26 02 8B 20 53 B2 31  |.. S:....&.. S.1|
00000580: 20 A7 20 36 36 30 3A 8B  20 53 B2 32 20 A7 20 35  | . 660:. S.2 . 5|
00000590: 37 30 00 BC 0D 30 02 8B  53 B3 31 B0 53 B1 32 A7  |70...0..S.1.S.2.|
000005A0: 99 22 41 4E 53 57 45 52  20 31 20 4F 52 20 32 20  |."ANSWER 1 OR 2 |
000005B0: 50 4C 45 41 53 45 22 3A  89 35 34 30 00 F9 0D 3A  |PLEASE":.540...:|
000005C0: 02 99 22 57 48 41 54 20  49 53 20 54 48 45 20 44  |.."WHAT IS THE D|
000005D0: 45 53 49 52 45 44 20 49  4E 44 55 43 54 49 56 45  |ESIRED INDUCTIVE|
000005E0: 20 52 45 41 43 54 41 4E  43 45 20 49 4E 20 4F 48  | REACTANCE IN OH|
000005F0: 4D 53 22 3A 85 58 4C 3A  99 00 20 0E 44 02 85 22  |MS":.XL:.. .D.."|
00000600: 57 48 41 54 20 46 52 45  51 55 45 4E 43 59 20 49  |WHAT FREQUENCY I|
00000610: 4E 20 4D 45 47 41 48 45  52 54 5A 22 3B 46 3A 99  |N MEGAHERTZ";F:.|
00000620: 00 37 0E 4E 02 4C B2 58  4C AD 28 32 AC 33 2E 31  |.7.N.L.XL.(2.3.1|
00000630: 34 31 35 39 AC 46 29 00  43 0E 58 02 4C 24 B2 C4  |4159.F).C.X.L$..|
00000640: 28 4C 29 00 67 0E 62 02  99 22 52 45 51 55 49 52  |(L).g.b.."REQUIR|
00000650: 45 44 20 49 4E 44 55 43  54 41 4E 43 45 3D 22 3B  |ED INDUCTANCE=";|
00000660: C8 28 4C 24 2C 35 29 00  7B 0E 6C 02 99 22 4D 49  |.(L$,5).{.l.."MI|
00000670: 43 52 4F 48 45 4E 52 49  45 53 22 00 93 0E 76 02  |CROHENRIES"...v.|
00000680: 8B 20 4C B3 2E 32 20 B0  20 4C B1 37 35 20 20 89  |. L..2 . L.75  .|
00000690: 35 37 30 00 9C 0E 80 02  89 36 39 30 00 AF 0E 8A  |570......690....|
000006A0: 02 81 20 58 B2 31 A4 31  36 3A 99 22 22 3A 82 00  |.. X.1.16:."":..|
000006B0: F1 0E 94 02 99 22 57 48  41 54 20 49 53 20 54 48  |....."WHAT IS TH|
000006C0: 45 20 44 45 53 49 52 45  44 20 43 4F 49 4C 20 49  |E DESIRED COIL I|
000006D0: 4E 44 55 43 54 41 4E 43  45 20 49 4E 20 20 20 4D  |NDUCTANCE IN   M|
000006E0: 49 43 52 4F 48 45 4E 52  49 45 53 22 3A 85 4C 3A  |ICROHENRIES":.L:|
000006F0: 99 00 27 0F 9E 02 8B 20  4C B1 37 35 20 20 A7 20  |..'.... L.75  . |
00000700: 99 22 37 35 20 20 4D 49  43 52 4F 2D 48 20 4D 41  |."75  MICRO-H MA|
00000710: 58 2E 20 50 4C 45 41 53  45 20 52 45 45 4E 54 45  |X. PLEASE REENTE|
00000720: 52 22 3A 89 36 36 30 00  62 0F A8 02 8B 20 4C B3  |R":.660.b.... L.|
00000730: 2E 32 20 A7 20 99 22 30  2E 32 20 4D 49 43 52 4F  |.2 . ."0.2 MICRO|
00000740: 48 45 4E 52 49 45 53 20  4D 49 4E 2E 2D 20 50 4C  |HENRIES MIN.- PL|
00000750: 45 41 53 45 20 52 45 45  4E 54 45 52 22 3A 89 36  |EASE REENTER":.6|
00000760: 36 30 00 7A 0F B2 02 99  22 53 45 4C 45 43 54 20  |60.z...."SELECT |
00000770: 43 4F 49 4C 20 46 4F 52  4D 22 00 95 0F BC 02 99  |COIL FORM"......|
00000780: 22 20 20 20 31 2D 31 2F  32 20 57 20 52 45 53 49  |"   1-1/2 W RESI|
00000790: 53 54 4F 52 22 00 B0 0F  C6 02 99 22 20 20 20 32  |STOR"......"   2|
000007A0: 2D 31 20 20 20 57 20 52  45 53 49 53 54 4F 52 22  |-1   W RESISTOR"|
000007B0: 00 CB 0F D0 02 99 22 20  20 20 33 2D 32 20 20 20  |......"   3-2   |
000007C0: 57 20 52 45 53 49 53 54  4F 52 22 00 E3 0F DA 02  |W RESISTOR".....|
000007D0: 99 22 20 20 20 34 2D 20  4F 54 48 45 52 20 46 4F  |."   4- OTHER FO|
000007E0: 52 4D 22 00 E9 0F E4 02  99 00 F1 0F EE 02 85 20  |RM"............ |
000007F0: 41 00 04 10 F8 02 8B 20  41 B3 31 B0 41 B1 34 20  |A...... A.1.A.4 |
00000800: A7 37 35 30 00 1A 10 02  03 8B 20 41 20 B2 31 20  |.750...... A .1 |
00000810: 20 20 A7 20 44 B2 2E 31  34 30 00 30 10 0C 03 8B  |  . D..140.0....|
00000820: 20 41 20 B2 32 20 20 20  A7 20 44 B2 2E 32 32 30  | A .2   . D..220|
00000830: 00 46 10 16 03 8B 20 41  20 B2 33 20 20 20 A7 20  |.F.... A .3   . |
00000840: 44 B2 2E 33 30 30 00 58  10 20 03 8B 20 41 20 B2  |D..300.X. .. A .|
00000850: 34 20 20 20 A7 38 32 30  00 6B 10 2A 03 8B 20 41  |4   .820.k.*.. A|
00000860: 20 B2 B3 33 20 20 20 A7  38 35 30 00 8E 10 34 03  | ..3   .850...4.|
00000870: 99 22 57 48 41 54 20 49  53 20 54 48 45 20 44 49  |."WHAT IS THE DI|
00000880: 41 4D 45 54 45 52 20 4F  46 20 54 48 45 22 00 A5  |AMETER OF THE"..|
00000890: 10 3E 03 99 22 43 4F 49  4C 20 49 4E 20 49 4E 43  |.>.."COIL IN INC|
000008A0: 48 45 53 3F 22 00 B2 10  48 03 99 20 20 3A 20 85  |HES?"...H..  : .|
000008B0: 20 44 00 E6 10 52 03 99  20 22 57 48 41 54 20 47  | D...R.. "WHAT G|
000008C0: 41 47 45 20 45 4E 41 4D  45 4C 45 44 20 57 49 52  |AGE ENAMELED WIR|
000008D0: 45 20 49 53 20 54 4F 20  42 45 20 55 53 45 44 20  |E IS TO BE USED |
000008E0: 20 22 3A 85 20 47 00 F9  10 5C 03 8B 20 47 B2 30  | ":. G...\.. G.0|
000008F0: 20 A7 20 57 B2 2E 32 35  30 00 0D 11 66 03 8B 20  | . W..250...f.. |
00000900: 47 B2 38 20 20 A7 20 57  B2 2E 31 33 31 00 21 11  |G.8  . W..131.!.|
00000910: 70 03 8B 20 47 B2 39 20  20 A7 20 57 B2 2E 31 31  |p.. G.9  . W..11|
00000920: 36 00 35 11 7A 03 8B 20  47 B2 31 30 20 A7 20 57  |6.5.z.. G.10 . W|
00000930: B2 2E 31 30 34 00 49 11  84 03 8B 20 47 B2 31 31  |..104.I.... G.11|
00000940: 20 A7 20 57 B2 2E 30 39  33 00 5D 11 8E 03 8B 20  | . W..093.].... |
00000950: 47 B2 31 32 20 A7 20 57  B2 2E 30 38 33 00 71 11  |G.12 . W..083.q.|
00000960: 98 03 8B 20 47 B2 31 33  20 A7 20 57 B2 2E 30 37  |... G.13 . W..07|
00000970: 34 00 85 11 A2 03 8B 20  47 B2 31 34 20 A7 20 57  |4...... G.14 . W|
00000980: B2 2E 30 36 37 00 99 11  AC 03 8B 20 47 B2 31 35  |..067...... G.15|
00000990: 20 A7 20 57 B2 2E 30 36  30 00 AD 11 B6 03 8B 20  | . W..060...... |
000009A0: 47 B2 31 36 20 A7 20 57  B2 2E 30 35 33 00 C1 11  |G.16 . W..053...|
000009B0: C0 03 8B 20 47 B2 31 37  20 A7 20 57 B2 2E 30 34  |... G.17 . W..04|
000009C0: 37 00 D5 11 CA 03 8B 20  47 B2 31 38 20 A7 20 57  |7...... G.18 . W|
000009D0: B2 2E 30 34 32 00 E9 11  D4 03 8B 20 47 B2 31 39  |..042...... G.19|
000009E0: 20 A7 20 57 B2 2E 30 33  38 00 FD 11 DE 03 8B 20  | . W..038...... |
000009F0: 47 B2 32 30 20 A7 20 57  B2 2E 30 33 34 00 11 12  |G.20 . W..034...|
00000A00: E8 03 8B 20 47 B2 32 31  20 A7 20 57 B2 2E 30 33  |... G.21 . W..03|
00000A10: 30 00 25 12 F2 03 8B 20  47 B2 32 32 20 A7 20 57  |0.%.... G.22 . W|
00000A20: B2 2E 30 32 37 00 39 12  FC 03 8B 20 47 B2 32 33  |..027.9.... G.23|
00000A30: 20 A7 20 57 B2 2E 30 32  34 00 4E 12 06 04 8B 20  | . W..024.N.... |
00000A40: 47 B2 32 34 20 A7 20 57  B2 2E 30 32 31 36 00 63  |G.24 . W..0216.c|
00000A50: 12 10 04 8B 20 47 B2 32  35 20 A7 20 57 B2 2E 30  |.... G.25 . W..0|
00000A60: 31 39 33 00 78 12 1A 04  8B 20 47 B2 32 36 20 A7  |193.x.... G.26 .|
00000A70: 20 57 B2 2E 30 31 37 32  00 8D 12 24 04 8B 20 47  | W..0172...$.. G|
00000A80: B2 32 37 20 A7 20 57 B2  2E 30 31 35 34 00 A2 12  |.27 . W..0154...|
00000A90: 2E 04 8B 20 47 B2 32 38  20 A7 20 57 B2 2E 30 31  |... G.28 . W..01|
00000AA0: 33 38 00 B7 12 38 04 8B  20 47 B2 32 39 20 A7 20  |38...8.. G.29 . |
00000AB0: 57 B2 2E 30 31 32 32 00  CB 12 42 04 8B 20 47 B2  |W..0122...B.. G.|
00000AC0: 33 30 20 A7 20 57 B2 2E  30 31 31 00 E0 12 4C 04  |30 . W..011...L.|
00000AD0: 8B 20 47 B2 33 31 20 A7  20 57 B2 2E 30 30 39 39  |. G.31 . W..0099|
00000AE0: 00 F6 12 56 04 8B 20 47  B2 33 32 20 A7 20 57 B2  |...V.. G.32 . W.|
00000AF0: 2E 30 30 38 38 35 00 0B  13 60 04 8B 20 47 B2 33  |.00885...`.. G.3|
00000B00: 33 20 A7 20 57 B2 2E 30  30 37 39 00 20 13 6A 04  |3 . W..0079. .j.|
00000B10: 8B 20 47 B2 33 34 20 A7  20 57 B2 2E 30 30 37 30  |. G.34 . W..0070|
00000B20: 00 35 13 74 04 8B 20 47  B2 33 35 20 A7 20 57 B2  |.5.t.. G.35 . W.|
00000B30: 2E 30 30 36 33 00 4A 13  7E 04 8B 20 47 B2 33 36  |.0063.J.~.. G.36|
00000B40: 20 A7 20 57 B2 2E 30 30  35 37 00 5F 13 88 04 8B  | . W..0057._....|
00000B50: 20 47 B2 33 37 20 A7 20  57 B2 2E 30 30 35 30 00  | G.37 . W..0050.|
00000B60: 74 13 92 04 8B 20 47 B2  33 38 20 A7 20 57 B2 2E  |t.... G.38 . W..|
00000B70: 30 30 34 35 00 89 13 9C  04 8B 20 47 B2 33 39 20  |0045...... G.39 |
00000B80: A7 20 57 B2 2E 30 30 34  30 00 9E 13 A6 04 8B 20  |. W..0040...... |
00000B90: 47 B2 34 30 20 A7 20 57  B2 2E 30 30 33 35 00 AE  |G.40 . W..0035..|
00000BA0: 13 B0 04 8B 20 47 B1 34  30 20 A7 38 35 30 00 E6  |.... G.40 .850..|
00000BB0: 13 BA 04 4E B2 28 28 34  30 AC 4C AC 57 29 AA BA  |...N.((40.L.W)..|
00000BC0: 20 28 28 31 36 30 30 AC  57 AE 32 AC 4C AE 32 29  | ((1600.W.2.L.2)|
00000BD0: 20 AA 28 37 32 AC 44 AE  32 AC 4C 29 29 29 AD 28  | .(72.D.2.L))).(|
00000BE0: 32 AC 44 AE 32 29 00 1F  14 C4 04 4E 31 B2 28 28  |2.D.2).....N1.((|
00000BF0: 34 30 AC 4C AC 57 29 AB  BA 20 28 28 31 36 30 30  |40.L.W).. ((1600|
00000C00: AC 57 AE 32 AC 4C AE 32  29 20 AA 28 37 32 AC 44  |.W.2.L.2) .(72.D|
00000C10: AE 32 AC 4C 29 29 29 AD  28 32 AC 44 AE 32 29 00  |.2.L))).(2.D.2).|
00000C20: 31 14 CE 04 8B 20 4E B1  4E 31 20 A7 20 4E 32 B2  |1.... N.N1 . N2.|
00000C30: 4E 00 45 14 D8 04 8B 20  4E B3 B2 4E 31 20 A7 20  |N.E.... N..N1 . |
00000C40: 4E 32 B2 4E 31 00 5A 14  E2 04 4E 32 B2 28 B5 28  |N2.N1.Z...N2.(.(|
00000C50: 4E 32 AC 31 30 29 29 AD  31 30 00 6D 14 EC 04 81  |N2.10)).10.m....|
00000C60: 20 58 B2 31 20 A4 20 31  35 3A 99 3A 82 00 89 14  | X.1 . 15:.:....|
00000C70: F6 04 99 22 57 49 52 45  20 53 49 5A 45 3D 22 3B  |..."WIRE SIZE=";|
00000C80: 47 3B 22 20 47 41 47 45  22 00 A7 14 00 05 99 22  |G;" GAGE"......"|
00000C90: 43 4F 49 4C 20 44 49 41  2E 3D 22 3B 44 3B 22 20  |COIL DIA.=";D;" |
00000CA0: 49 4E 43 48 45 53 22 00  C2 14 0A 05 99 22 4E 55  |INCHES"......"NU|
00000CB0: 4D 42 45 52 20 4F 46 20  54 55 52 4E 53 3D 22 3B  |MBER OF TURNS=";|
00000CC0: 4E 32 00 F4 14 14 05 99  22 43 4F 49 4C 20 4C 45  |N2......"COIL LE|
00000CD0: 4E 47 54 48 3D 22 3B 28  B5 28 4E 32 AC 57 AC 31  |NGTH=";(.(N2.W.1|
00000CE0: 30 30 29 29 AD 31 30 30  3B 22 20 49 4E 43 48 45  |00)).100;" INCHE|
00000CF0: 53 22 3A 99 00 0C 15 1E  05 52 B2 B5 28 4E 32 AC  |S":......R..(N2.|
00000D00: 57 AC 31 30 30 AD 44 29  AD 31 30 30 00 1F 15 28  |W.100.D).100...(|
00000D10: 05 8B 20 41 20 B2 31 20  20 20 A7 31 34 38 30 00  |.. A .1   .1480.|
00000D20: 32 15 32 05 8B 20 41 20  B2 32 20 20 20 A7 31 35  |2.2.. A .2   .15|
00000D30: 30 30 00 45 15 3C 05 8B  20 41 20 B2 33 20 20 20  |00.E.<.. A .3   |
00000D40: A7 31 35 32 30 00 68 15  46 05 99 22 54 48 45 20  |.1520.h.F.."THE |
00000D50: 4C 45 4E 47 54 48 20 54  4F 20 44 49 41 2E 20 52  |LENGTH TO DIA. R|
00000D60: 41 54 49 4F 20 49 53 22  00 70 15 50 05 99 20 52  |ATIO IS".p.P.. R|
00000D70: 00 82 15 5A 05 8B 20 41  B2 34 20 A7 20 8D 31 35  |...Z.. A.4 . .15|
00000D80: 34 30 00 95 15 64 05 81  20 58 B2 31 20 A4 20 31  |40...d.. X.1 . 1|
00000D90: 30 3A 99 3A 82 00 C3 15  6E 05 99 20 22 53 45 4C  |0:.:....n.. "SEL|
00000DA0: 45 43 54 20 41 4E 4F 54  48 45 52 20 46 4F 52 4D  |ECT ANOTHER FORM|
00000DB0: 20 41 4E 44 2F 4F 52 20  44 49 46 46 45 52 45 4E  | AND/OR DIFFEREN|
00000DC0: 54 20 22 00 D7 15 78 05  99 22 53 49 5A 45 20 57  |T "...x.."SIZE W|
00000DD0: 49 52 45 3F 22 3A 99 00  EA 15 82 05 85 22 28 59  |IRE?":......."(Y|
00000DE0: 20 4F 52 20 4E 29 22 3B  43 24 00 FE 15 8C 05 8B  | OR N)";C$......|
00000DF0: 20 43 24 B2 22 59 22 20  A7 36 39 30 3A 99 00 27  | C$."Y" .690:..'|
00000E00: 16 96 05 99 20 22 44 45  53 49 47 4E 20 41 4E 4F  |.... "DESIGN ANO|
00000E10: 54 48 45 52 20 43 4F 49  4C 3F 28 59 20 4F 52 20  |THER COIL?(Y OR |
00000E20: 4E 29 22 3A 85 42 24 00  39 16 A0 05 8B 20 42 24  |N)":.B$.9.... B$|
00000E30: B2 22 59 22 20 A7 35 30  30 00 41 16 AA 05 99 3A  |."Y" .500.A....:|
00000E40: 99 00 6B 16 B4 05 99 22  4F 2E 4B 2E 20 47 4F 4F  |..k...."O.K. GOO|
00000E50: 44 20 4C 55 43 4B 20 57  49 54 48 20 59 4F 55 52  |D LUCK WITH YOUR|
00000E60: 20 50 52 4F 4A 45 43 54  21 21 22 00 71 16 BE 05  | PROJECT!!".q...|
00000E70: 80 00 AB 16 C8 05 8B 20  4E 32 AC 57 B1 2E 33 38  |....... N2.W..38|
00000E80: 35 20 A7 20 99 22 43 4F  49 4C 20 54 4F 4F 20 4C  |5 . ."COIL TOO L|
00000E90: 4F 4E 47 20 20 20 46 4F  52 20 31 2F 32 20 57 20  |ONG   FOR 1/2 W |
00000EA0: 46 4F 52 4D 22 3A 89 31  33 39 30 00 C2 16 D2 05  |FORM":.1390.....|
00000EB0: 8B 20 4E 32 AC 57 B3 B2  2E 33 38 35 20 89 31 33  |. N2.W...385 .13|
00000EC0: 35 30 00 F9 16 DC 05 8B  20 4E 32 AC 57 B1 2E 35  |50...... N2.W..5|
00000ED0: 32 35 20 A7 20 99 22 43  4F 49 4C 20 54 4F 4F 20  |25 . ."COIL TOO |
00000EE0: 4C 4F 4E 47 20 20 20 46  4F 52 20 31 57 20 46 4F  |LONG   FOR 1W FO|
00000EF0: 52 4D 22 3A 89 31 33 39  30 00 10 17 E6 05 8B 20  |RM":.1390...... |
00000F00: 4E 32 AC 57 B3 B2 2E 35  32 35 20 89 31 33 35 30  |N2.W...525 .1350|
00000F10: 00 48 17 F0 05 8B 20 4E  32 AC 57 B1 2E 36 35 30  |.H.... N2.W..650|
00000F20: 20 A7 20 99 22 43 4F 49  4C 20 54 4F 4F 20 4C 4F  | . ."COIL TOO LO|
00000F30: 4E 47 20 20 20 20 46 4F  52 20 32 57 20 46 4F 52  |NG    FOR 2W FOR|
00000F40: 4D 22 3A 89 31 33 39 30  00 5F 17 FA 05 8B 20 4E  |M":.1390._.... N|
00000F50: 32 AC 57 B3 B2 2E 36 35  30 20 89 31 33 35 30 00  |2.W...650 .1350.|
00000F60: 8A 17 04 06 99 22 57 4F  55 4C 44 20 59 4F 55 20  |....."WOULD YOU |
00000F70: 4C 49 4B 45 20 54 4F 20  53 45 4C 45 43 54 20 54  |LIKE TO SELECT T|
00000F80: 48 45 20 4C 45 4E 47 54  48 22 00 B4 17 0E 06 85  |HE LENGTH"......|
00000F90: 22 46 4F 52 20 41 20 53  50 41 43 45 20 57 4F 55  |"FOR A SPACE WOU|
00000FA0: 4E 44 20 43 4F 49 4C 20  28 59 20 4F 52 20 4E 29  |ND COIL (Y OR N)|
00000FB0: 22 3B 5A 24 00 C7 17 18  06 8B 20 5A 24 B2 22 4E  |";Z$...... Z$."N|
00000FC0: 22 20 89 31 34 35 30 00  E0 17 22 06 53 4C B2 28  |" .1450...".SL.(|
00000FD0: B5 28 4E 32 AC 57 AC 31  30 30 29 29 AD 31 30 30  |.(N2.W.100)).100|
00000FE0: 00 0B 18 2C 06 99 22 54  48 45 20 4C 45 4E 47 54  |...,.."THE LENGT|
00000FF0: 48 20 4D 55 53 54 20 42  45 20 47 52 45 41 54 45  |H MUST BE GREATE|
00001000: 52 20 54 48 41 4E 22 3B  20 53 4C 00 27 18 36 06  |R THAN"; SL.'.6.|
00001010: 99 22 49 4E 43 48 45 53  2C 20 20 4E 45 57 20 4C  |."INCHES,  NEW L|
00001020: 45 4E 47 54 48 3F 22 00  30 18 40 06 85 20 4E 4C  |ENGTH?".0.@.. NL|
00001030: 00 67 18 4A 06 4E 32 B2  B5 28 28 BA 28 28 4C AC  |.g.J.N2..((.((L.|
00001040: 28 34 2E 35 AC 44 AA 31  30 AC 4E 4C 29 AD 28 28  |(4.5.D.10.NL).((|
00001050: 44 AD 32 29 AE 32 29 29  29 29 AC 20 31 30 30 AA  |D.2).2)))). 100.|
00001060: 2E 35 29 AD 31 30 30 00  7C 18 54 06 81 20 58 B2  |.5).100.|.T.. X.|
00001070: 31 20 A4 20 31 34 3A 99  22 22 3A 82 00 98 18 5E  |1 . 14:."":....^|
00001080: 06 99 22 57 49 52 45 20  53 49 5A 45 3D 22 3B 47  |.."WIRE SIZE=";G|
00001090: 3B 22 20 47 41 47 45 22  00 B6 18 68 06 99 22 43  |;" GAGE"...h.."C|
000010A0: 4F 49 4C 20 44 49 41 2E  3D 22 3B 44 3B 22 20 49  |OIL DIA.=";D;" I|
000010B0: 4E 43 48 45 53 22 00 D1  18 72 06 99 22 4E 55 4D  |NCHES"...r.."NUM|
000010C0: 42 45 52 20 4F 46 20 54  55 52 4E 53 3D 22 3B 4E  |BER OF TURNS=";N|
000010D0: 32 00 F1 18 7C 06 99 22  43 4F 49 4C 20 4C 45 4E  |2...|.."COIL LEN|
000010E0: 47 54 48 3D 22 3B 4E 4C  3B 22 49 4E 43 48 45 53  |GTH=";NL;"INCHES|
000010F0: 22 00 F7 18 86 06 8E 00  FD 18 90 06 80 00 28 19  |".............(.|
00001100: 9A 06 99 A3 33 29 22 54  48 49 53 20 49 53 20 41  |....3)"THIS IS A|
00001110: 20 43 4F 49 4C 20 44 45  53 49 47 4E 20 50 52 4F  | COIL DESIGN PRO|
00001120: 47 52 41 4D 20 42 59 22  00 2E 19 A4 06 99 00 5D  |GRAM BY".......]|
00001130: 19 AE 06 99 A3 38 29 22  48 41 52 52 59 20 4C 2E  |.....8)"HARRY L.|
00001140: 20 52 4F 53 49 45 52 20  4B 34 4C 42 46 22 20 3A  | ROSIER K4LBF" :|
00001150: 99 3A 81 49 B2 31 A4 32  30 30 30 3A 82 00 89 19  |.:.I.1.2000:....|
00001160: B8 06 99 22 54 48 45 20  50 52 4F 47 52 41 4D 20  |..."THE PROGRAM |
00001170: 49 53 20 54 4F 20 42 45  20 55 53 45 44 20 54 4F  |IS TO BE USED TO|
00001180: 20 44 45 53 49 47 4E 20  22 00 B3 19 C2 06 99 22  | DESIGN "......"|
00001190: 53 49 4E 47 4C 45 20 4C  41 59 45 52 20 53 4F 4C  |SINGLE LAYER SOL|
000011A0: 45 4E 4F 49 44 53 20 4F  4E 20 53 54 41 4E 44 41  |ENOIDS ON STANDA|
000011B0: 52 44 22 00 E0 19 CC 06  99 22 52 45 53 49 53 54  |RD"......"RESIST|
000011C0: 4F 52 20 46 4F 52 4D 53  20 4F 52 20 4F 4E 20 41  |OR FORMS OR ON A|
000011D0: 20 46 4F 52 4D 20 48 41  56 49 4E 47 20 41 20 22  | FORM HAVING A "|
000011E0: 00 02 1A D6 06 99 22 44  49 41 4D 45 54 45 52 20  |......"DIAMETER |
000011F0: 4F 46 20 59 4F 55 52 20  43 48 4F 4F 53 49 4E 47  |OF YOUR CHOOSING|
00001200: 2E 22 00 08 1A E0 06 99  00 32 1A EA 06 99 22 54  |.".......2...."T|
00001210: 48 45 20 49 4E 44 55 43  54 41 4E 43 45 20 46 4F  |HE INDUCTANCE FO|
00001220: 52 4D 55 4C 41 20 49 53  20 46 52 4F 4D 20 54 48  |RMULA IS FROM TH|
00001230: 45 22 00 53 1A F4 06 99  22 52 41 44 49 4F 20 41  |E".S...."RADIO A|
00001240: 4D 41 54 45 55 52 27 53  20 48 41 4E 44 42 4F 4F  |MATEUR'S HANDBOO|
00001250: 4B 2E 22 00 59 1A FE 06  99 00 88 1A 08 07 99 22  |K.".Y.........."|
00001260: 54 48 49 53 20 46 4F 52  4D 55 4C 41 20 49 53 20  |THIS FORMULA IS |
00001270: 54 52 41 4E 53 50 4F 53  45 44 20 54 4F 20 44 45  |TRANSPOSED TO DE|
00001280: 54 45 52 4D 49 4E 45 22  00 B6 1A 12 07 99 22 54  |TERMINE"......"T|
00001290: 48 45 20 4E 55 4D 42 45  52 20 4F 46 20 54 55 52  |HE NUMBER OF TUR|
000012A0: 4E 53 20 52 45 51 55 49  52 45 44 2C 20 41 4E 44  |NS REQUIRED, AND|
000012B0: 20 54 48 45 20 22 00 E5  1A 1C 07 99 22 52 45 53  | THE "......"RES|
000012C0: 55 4C 54 49 4E 47 20 51  55 41 44 52 41 54 49 43  |ULTING QUADRATIC|
000012D0: 20 49 53 20 53 4F 4C 56  45 44 20 55 53 49 4E 47  | IS SOLVED USING|
000012E0: 20 54 48 45 22 00 00 1B  26 07 99 22 43 4C 41 53  | THE"...&.."CLAS|
000012F0: 53 49 43 41 4C 20 45 51  55 41 54 49 4F 4E 2E 22  |SICAL EQUATION."|
00001300: 00 06 1B 30 07 99 00 33  1B 3A 07 99 22 59 4F 55  |...0...3.:.."YOU|
00001310: 20 44 45 43 49 44 45 20  54 48 45 20 53 49 5A 45  | DECIDE THE SIZE|
00001320: 20 4F 46 20 43 4F 49 4C  20 46 4F 52 4D 2C 20 54  | OF COIL FORM, T|
00001330: 48 45 22 00 61 1B 44 07  99 22 49 4E 44 55 43 41  |HE".a.D.."INDUCA|
00001340: 4E 43 45 2C 20 4F 52 20  49 4E 44 55 43 54 49 56  |NCE, OR INDUCTIV|
00001350: 45 20 52 45 41 43 54 41  4E 43 45 2C 20 41 4E 44  |E REACTANCE, AND|
00001360: 22 00 7C 1B 4E 07 99 22  54 48 45 20 54 48 45 20  |".|.N.."THE THE |
00001370: 57 49 52 45 20 53 49 5A  45 20 2D 22 00 82 1B 58  |WIRE SIZE -"...X|
00001380: 07 99 00 B2 1B 62 07 99  22 2A 2A 2A 2A 20 54 48  |.....b.."**** TH|
00001390: 45 20 43 4F 4D 50 55 54  45 52 20 57 49 4C 4C 20  |E COMPUTER WILL |
000013A0: 44 4F 20 54 48 45 20 52  45 53 54 21 20 2A 2A 2A  |DO THE REST! ***|
000013B0: 2A 22 00 DB 1B 6C 07 99  3A 99 22 20 12 54 4F 20  |*"...l..:." .TO |
000013C0: 43 4F 4E 54 49 4E 55 45  20 50 52 45 53 53 20 41  |CONTINUE PRESS A|
000013D0: 4E 59 20 4B 45 59 22 3A  99 3A 99 00 EF 1B 76 07  |NY KEY":.:....v.|
000013E0: A1 5A 24 3A 8B 5A 24 B2  22 22 A7 31 39 31 30 00  |.Z$:.Z$."".1910.|
000013F0: 1D 1C 80 07 99 22 49 46  20 54 48 45 20 43 4F 49  |....."IF THE COI|
00001400: 4C 20 53 49 5A 45 2F 57  49 52 45 20 53 49 5A 45  |L SIZE/WIRE SIZE|
00001410: 20 43 4F 4D 42 49 4E 41  54 49 4F 4E 22 00 4A 1C  | COMBINATION".J.|
00001420: 8A 07 99 22 57 4F 4E 27  54 20 46 49 54 20 4F 4E  |..."WON'T FIT ON|
00001430: 20 54 48 45 20 52 45 53  49 53 54 4F 52 20 46 4F  | THE RESISTOR FO|
00001440: 52 4D 20 43 48 4F 53 45  4E 22 00 78 1C 94 07 99  |RM CHOSEN".x....|
00001450: 22 54 48 45 4E 20 54 48  45 20 43 4F 4D 50 55 54  |"THEN THE COMPUT|
00001460: 45 52 20 57 49 4C 4C 20  54 45 4C 4C 20 59 4F 55  |ER WILL TELL YOU|
00001470: 20 53 4F 20 41 4E 44 22  00 97 1C 9E 07 99 22 41  | SO AND"......"A|
00001480: 53 4B 20 46 4F 52 20 41  4E 4F 54 48 45 52 20 43  |SK FOR ANOTHER C|
00001490: 48 4F 49 43 45 2E 22 00  9D 1C A8 07 99 00 CA 1C  |HOICE.".........|
000014A0: B2 07 99 22 49 46 20 59  4F 55 20 43 48 4F 4F 53  |..."IF YOU CHOOS|
000014B0: 45 20 54 48 45 20 43 4F  49 4C 20 44 49 41 4D 45  |E THE COIL DIAME|
000014C0: 54 45 52 2C 20 54 48 45  4E 22 00 FC 1C BC 07 99  |TER, THEN"......|
000014D0: 22 54 48 45 20 4C 45 4E  47 54 48 20 43 41 4E 20  |"THE LENGTH CAN |
000014E0: 42 45 20 57 48 41 54 45  56 45 52 20 49 53 20 4E  |BE WHATEVER IS N|
000014F0: 45 43 45 53 53 41 52 59  2E 22 3A 99 00 27 1D C6  |ECESSARY.":..'..|
00001500: 07 99 22 54 48 45 20 43  4F 4D 50 55 54 45 52 20  |.."THE COMPUTER |
00001510: 57 49 4C 4C 20 41 4C 53  4F 20 54 45 4C 4C 20 59  |WILL ALSO TELL Y|
00001520: 4F 55 20 54 48 45 22 00  56 1D D0 07 99 22 4C 45  |OU THE".V...."LE|
00001530: 4E 47 54 48 20 54 4F 20  44 49 41 4D 45 54 45 52  |NGTH TO DIAMETER|
00001540: 20 52 41 54 49 4F 20 41  4E 44 20 41 53 4B 20 49  | RATIO AND ASK I|
00001550: 46 20 59 4F 55 22 00 82  1D DA 07 99 22 57 4F 55  |F YOU"......"WOU|
00001560: 4C 44 20 4C 49 4B 45 20  54 48 45 20 4E 55 4D 42  |LD LIKE THE NUMB|
00001570: 45 52 20 4F 46 20 54 55  52 4E 53 20 46 4F 52 20  |ER OF TURNS FOR |
00001580: 41 22 00 AF 1D E4 07 99  22 53 50 41 43 45 20 57  |A"......"SPACE W|
00001590: 4F 55 4E 44 20 43 4F 49  4C 20 4F 46 20 53 50 45  |OUND COIL OF SPE|
000015A0: 43 49 46 49 45 44 20 4C  45 4E 47 54 48 2E 22 00  |CIFIED LENGTH.".|
000015B0: B5 1D EE 07 8E 00 00 00  00                       |.........       |
....D..:.".".4.N.."THIS IS A COIL DESIGN
 PROGRAM BY".S.X.."HARRY L. ROSIER - K4L
BF".Y...."FINAL DESIGN NOVEMBER 5, 1980.
"......"SPECIAL THANKS TO THE RADIO"....
.."AMATEUR'S HANDBOOK FOR THE"... .."EQU
ATION AND WIRE TABLES".......12)"COIL DE
SIGN":.:..&...."THIS PROGRAM IS SELF EXP
LANATORY BUT ".Q...."WOULD YOU LIKE A BR
IEF DESCRIPTION?".T.H.."PLEASE ANSWER (Y
 OR N)":. D$.Z.R........ D$."Y" . .1690.
.....:....... D$."N" . . 280......"     
  .TO CONTINUE, PRESS ANY KEY":.I.1.8:.:
.I...... A$:. A$."".260...... I . 1 . 10
0: . I.#.....15)"NOTES":.:..J.".."1. DES
IGN OF THE COIL MUST MEET".L.,.."   THE 
FOLLOWING CRITERIA:".R.6.....@.."      7
5 MICROHENRIES MAX. INDUCTANCE".L.J.."  
    .2 MICROHENRIES MIN. INDUCTANCE"...T
.."       8 GAGE MAX. WIRE SIZE"...^.." 
     40 GAGE MIN. WIRE SIZE".C.H.."     
(FOR 1/4 INCH TUBING - USE SIZE 0)".I.R.
..X.|.."2. RESISTORS CAN BE USED AS COIL
 FORMS,"......"   AND MUST BE COMPOSITIO
N TYPE HAVING".I...."   THE FOLLOWING DI
MENSIONS".O.........."     1. 1/2 WATT -
 .14 X .38 INCHES".%...."     2. 1   WAT
T - .22 X .58 INCHES".P...."     3. 2   
WATT - .30 X .70 INCHES"...B.."     (THE
SE ARE STANDARD RESISTOR SIZES)"...L.."3
. OR,SELECT YOUR OWN DIAMETER FORM".V.V.
.:."       .TO CONTINUE PRESS ANY KEY"..
.... A$: . A$."" .480......I.1.20:.:.I.!
...."DO YOU WISH TO BEGIN WITH":..I...."
1-INDUCTANCE IN MICROHENRIES, OR".F...."
2-INDUCTIVE REACTANCE".L.....V.... S:...
.&.. S.1 . 660:. S.2 . 570...0..S.1.S.2.
."ANSWER 1 OR 2 PLEASE":.540...:.."WHAT 
IS THE DESIRED INDUCTIVE REACTANCE IN OH
MS":.XL:.. .D.."WHAT FREQUENCY IN MEGAHE
RTZ";F:..7.N.L.XL.(2.3.14159.F).C.X.L$.D
(L).G.B.."REQUIRED INDUCTANCE=";H(L$,5).
{.L.."MICROHENRIES"...V.. L..2 . L.75  .
570......690...... X.1.16:."":......."WH
AT IS THE DESIRED COIL INDUCTANCE IN   M
ICROHENRIES":.L:..'.... L.75  . ."75  MI
CRO-H MAX. PLEASE REENTER":.660.B.... L.
.2 . ."0.2 MICROHENRIES MIN.- PLEASE REE
NTER":.660.Z...."SELECT COIL FORM"......
"   1-1/2 W RESISTOR"...F.."   2-1   W R
ESISTOR".K.P.."   3-2   W RESISTOR"...Z.
."   4- OTHER FORM"............ A...... 
A.1.A.4 .750...... A .1   . D..140.0....
 A .2   . D..220.F.... A .3   . D..300.X
. .. A .4   .820.K.*.. A ..3   .850...4.
."WHAT IS THE DIAMETER OF THE"...>.."COI
L IN INCHES?"...H..  : . D...R.. "WHAT G
AGE ENAMELED WIRE IS TO BE USED  ":. G..
.\.. G.0 . W..250...F.. G.8  . W..131.!.
P.. G.9  . W..116.5.Z.. G.10 . W..104.I.
... G.11 . W..093.].... G.12 . W..083.Q.
... G.13 . W..074...... G.14 . W..067...
... G.15 . W..060...... G.16 . W..053.A.
... G.17 . W..047.U.J.. G.18 . W..042...
T.. G.19 . W..038...... G.20 . W..034...
... G.21 . W..030.%.... G.22 . W..027.9.
... G.23 . W..024.N.... G.24 . W..0216.C
.... G.25 . W..0193.X.... G.26 . W..0172
...$.. G.27 . W..0154...... G.28 . W..01
38...8.. G.29 . W..0122.K.B.. G.30 . W..
011...L.. G.31 . W..0099...V.. G.32 . W.
.00885...`.. G.33 . W..0079. .J.. G.34 .
 W..0070.5.T.. G.35 . W..0063.J.~.. G.36
 . W..0057._.... G.37 . W..0050.T.... G.
38 . W..0045...... G.39 . W..0040...... 
G.40 . W..0035...... G.40 .850.....N.((4
0.L.W).. ((1600.W.2.L.2) .(72.D.2.L))).(
2.D.2)...D.N1.((40.L.W).. ((1600.W.2.L.2
) .(72.D.2.L))).(2.D.2).1.N.. N.N1 . N2.
N.E.X.. N..N1 . N2.N1.Z...N2.(.(N2.10)).
10.M.... X.1 . 15:.:......."WIRE SIZE=";
G;" GAGE"......"COIL DIA.=";D;" INCHES".
B...."NUMBER OF TURNS=";N2......"COIL LE
NGTH=";(.(N2.W.100)).100;" INCHES":.....
.R..(N2.W.100.D).100...(.. A .1   .1480.
2.2.. A .2   .1500.E.<.. A .3   .1520.H.
F.."THE LENGTH TO DIA. RATIO IS".P.P.. R
...Z.. A.4 . .1540...D.. X.1 . 10:.:..C.
N.. "SELECT ANOTHER FORM AND/OR DIFFEREN
T ".W.X.."SIZE WIRE?":......."(Y OR N)";
C$...... C$."Y" .690:..'.... "DESIGN ANO
THER COIL?(Y OR N)":.B$.9. .. B$."Y" .50
0.A....:..K...."O.K. GOOD LUCK WITH YOUR
 PROJECT!!".Q.......H.. N2.W..385 . ."CO
IL TOO LONG   FOR 1/2 W FORM":.1390.B.R.
. N2.W...385 .1350...... N2.W..525 . ."C
OIL TOO LONG   FOR 1W FORM":.1390...... 
N2.W...525 .1350.H.... N2.W..650 . ."COI
L TOO LONG    FOR 2W FORM":.1390._.... N
2.W...650 .1350......"WOULD YOU LIKE TO 
SELECT THE LENGTH"......"FOR A SPACE WOU
ND COIL (Y OR N)";Z$.G.... Z$."N" .1450.
..".SL.(.(N2.W.100)).100...,.."THE LENGT
H MUST BE GREATER THAN"; SL.'.6.."INCHES
,  NEW LENGTH?".0.@.. NL.G.J.N2..((.((L.
(4.5.D.10.NL).((D.2).2)))). 100..5).100.
|.T.. X.1 . 14:."":....^.."WIRE SIZE=";G
;" GAGE"...H.."COIL DIA.=";D;" INCHES".Q
.R.."NUMBER OF TURNS=";N2...|.."COIL LEN
GTH=";NL;"INCHES".............(.....3)"T
HIS IS A COIL DESIGN PROGRAM BY".......]
.....8)"HARRY L. ROSIER K4LBF" :.:.I.1.2
000:......."THE PROGRAM IS TO BE USED TO
 DESIGN "...B.."SINGLE LAYER SOLENOIDS O
N STANDARD"...L.."RESISTOR FORMS OR ON A
 FORM HAVING A "...V.."DIAMETER OF YOUR 
CHOOSING.".......2...."THE INDUCTANCE FO
RMULA IS FROM THE".S...."RADIO AMATEUR'S
 HANDBOOK.".Y.........."THIS FORMULA IS 
TRANSPOSED TO DETERMINE"......"THE NUMBE
R OF TURNS REQUIRED, AND THE "......"RES
ULTING QUADRATIC IS SOLVED USING THE"...
&.."CLASSICAL EQUATION."...0...3.:.."YOU
 DECIDE THE SIZE OF COIL FORM, THE".A.D.
."INDUCANCE, OR INDUCTIVE REACTANCE, AND
".|.N.."THE THE WIRE SIZE -"...X.....B..
"**** THE COMPUTER WILL DO THE REST! ***
*"...L..:." .TO CONTINUE PRESS ANY KEY":
.:....V..Z$:.Z$."".1910......"IF THE COI
L SIZE/WIRE SIZE COMBINATION".J...."WON'
T FIT ON THE RESISTOR FORM CHOSEN".X....
"THEN THE COMPUTER WILL TELL YOU SO AND"
......"ASK FOR ANOTHER CHOICE.".......J.
..."IF YOU CHOOSE THE COIL DIAMETER, THE
N"......"THE LENGTH CAN BE WHATEVER IS N
ECESSARY.":..'.F.."THE COMPUTER WILL ALS
O TELL YOU THE".V.P.."LENGTH TO DIAMETER
 RATIO AND ASK IF YOU"...Z.."WOULD LIKE 
THE NUMBER OF TURNS FOR A"......"SPACE W
OUND COIL OF SPECIFIED LENGTH.".........
.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL