00000000: 01 1C 23 1C 01 00 8F 20 50 52 4F 47 52 41 4D 20 |..#.... PROGRAM |
00000010: 56 45 52 53 49 4F 4E 20 38 2E 31 20 34 2F 31 34 |VERSION 8.1 4/14|
00000020: 2F 39 32 00 38 1C 05 00 8F 20 42 59 20 4D 41 52 |/92.8.... BY MAR|
00000030: 43 4F 20 42 52 55 4E 4F 00 60 1C 0A 00 8F 20 54 |CO BRUNO.`.... T|
00000040: 48 49 53 20 50 52 4F 47 47 49 45 20 43 41 4C 43 |HIS PROGGIE CALC|
00000050: 55 4C 41 54 45 53 20 49 4D 50 45 44 41 4E 43 45 |ULATES IMPEDANCE|
00000060: 00 6B 1C 0F 00 8D 20 31 30 30 30 00 90 1C 12 00 |.k.... 1000.....|
00000070: 99 22 93 05 52 45 53 49 53 54 41 4E 43 45 20 4D |."..RESISTANCE M|
00000080: 55 53 54 20 42 45 20 49 4E 20 4F 48 4D 53 2E 22 |UST BE IN OHMS."|
00000090: 00 BB 1C 13 00 99 22 43 41 50 41 43 49 54 41 4E |......"CAPACITAN|
000000A0: 43 45 20 4D 55 53 54 20 42 45 20 49 4E 20 4D 49 |CE MUST BE IN MI|
000000B0: 43 52 4F 46 41 52 41 44 53 2E 22 00 EC 1C 14 00 |CROFARADS.".....|
000000C0: 99 22 11 11 54 48 45 20 4C 4F 41 44 20 26 20 43 |."..THE LOAD & C|
000000D0: 41 50 41 43 49 54 4F 52 20 4D 55 53 54 20 42 45 |APACITOR MUST BE|
000000E0: 20 49 4E 20 53 45 52 49 45 53 21 22 00 04 1D 15 | IN SERIES!"....|
000000F0: 00 58 B2 30 3A 59 B2 30 3A 46 B2 30 3A 52 B2 30 |.X.0:Y.0:F.0:R.0|
00000100: 3A 43 B2 30 00 24 1D 19 00 85 22 11 57 48 41 54 |:C.0.$....".WHAT|
00000110: 20 49 53 20 54 48 45 20 46 52 45 51 55 45 4E 43 | IS THE FREQUENC|
00000120: 59 22 3B 46 00 35 1D 1A 00 8B 20 46 B2 30 20 A7 |Y";F.5.... F.0 .|
00000130: 20 46 B2 36 30 00 6F 1D 1E 00 85 22 11 57 48 41 | F.60.o....".WHA|
00000140: 54 20 49 53 20 54 48 45 20 54 4F 54 41 4C 20 52 |T IS THE TOTAL R|
00000150: 45 53 49 53 54 41 4E 43 45 22 3B 52 3A 8B 20 52 |ESISTANCE";R:. R|
00000160: B2 30 20 A7 20 52 B2 2E 30 30 30 30 30 30 31 00 |.0 . R..0000001.|
00000170: A9 1D 23 00 85 22 57 48 41 54 20 49 53 20 54 48 |..#.."WHAT IS TH|
00000180: 45 20 54 4F 54 41 4C 20 43 41 50 41 43 49 54 41 |E TOTAL CAPACITA|
00000190: 4E 43 45 22 3B 43 3A 8B 20 43 B2 30 20 A7 20 43 |NCE";C:. C.0 . C|
000001A0: B2 2E 30 30 30 30 30 30 31 00 B9 1D 24 00 43 B2 |..0000001...$.C.|
000001B0: 43 AD 31 30 30 30 30 30 30 00 C7 1D 26 00 59 B2 |C.1000000...&.Y.|
000001C0: 32 AC FF AC 46 AC 43 00 D1 1D 27 00 58 B2 31 AD |2...F.C...'.X.1.|
000001D0: 59 00 F8 1D 29 00 99 22 11 54 48 45 20 43 41 50 |Y...)..".THE CAP|
000001E0: 41 43 49 54 49 56 45 20 52 45 41 43 54 41 4E 43 |ACITIVE REACTANC|
000001F0: 45 20 49 53 2E 2E 2E 22 00 07 1E 2A 00 99 3B 58 |E IS..."...*..;X|
00000200: 3B 22 4F 48 4D 53 22 00 2F 1E 2B 00 99 22 11 54 |;"OHMS"./.+..".T|
00000210: 48 45 20 43 41 50 41 43 49 54 41 4E 43 45 20 49 |HE CAPACITANCE I|
00000220: 4E 20 46 41 52 41 44 53 20 49 53 2E 2E 2E 22 00 |N FARADS IS...".|
00000230: 40 1E 2C 00 99 3B 43 3B 22 46 41 52 41 44 53 22 |@.,..;C;"FARADS"|
00000240: 00 62 1E 2E 00 99 22 11 54 48 45 20 54 4F 54 41 |.b....".THE TOTA|
00000250: 4C 20 49 4D 50 45 44 41 4E 43 45 20 49 53 2E 2E |L IMPEDANCE IS..|
00000260: 2E 22 00 7E 1E 32 00 99 20 BA 28 28 52 AE 32 29 |.".~.2.. .((R.2)|
00000270: AA 28 58 AE 32 29 29 20 22 4F 48 4D 53 22 00 AD |.(X.2)) "OHMS"..|
00000280: 1E 3C 00 99 22 11 20 20 48 49 54 20 41 4E 59 20 |.<..". HIT ANY |
00000290: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |KEY TO CONTINUE |
000002A0: 4F 52 20 51 20 54 4F 20 51 55 49 54 22 00 B6 1E |OR Q TO QUIT"...|
000002B0: 46 00 A1 20 41 24 00 C9 1E 50 00 8B 20 41 24 B2 |F.. A$...P.. A$.|
000002C0: 22 22 20 A7 20 89 20 37 30 00 DF 1E 5A 00 8B 20 |"" . . 70...Z.. |
000002D0: 41 24 B2 22 51 22 20 A7 20 99 22 93 22 3A 80 00 |A$."Q" . .".":..|
000002E0: E8 1E 64 00 89 20 31 38 00 1A 1F E8 03 99 22 93 |..d.. 18......".|
000002F0: 05 49 4D 50 45 44 41 4E 43 45 20 43 41 4C 43 55 |.IMPEDANCE CALCU|
00000300: 4C 41 54 4F 52 20 46 4F 52 20 53 45 52 49 45 53 |LATOR FOR SERIES|
00000310: 20 52 43 20 43 4B 54 53 2E 22 00 3D 1F E9 03 99 | RC CKTS.".=....|
00000320: 22 56 38 2E 31 20 42 59 20 4D 41 52 43 4F 20 42 |"V8.1 BY MARCO B|
00000330: 52 55 4E 4F 20 34 2F 31 34 2F 39 32 22 00 6B 1F |RUNO 4/14/92".k.|
00000340: F2 03 99 22 11 54 48 49 53 20 50 52 4F 47 52 41 |...".THIS PROGRA|
00000350: 4D 20 57 49 4C 4C 20 43 41 4C 43 55 4C 41 54 45 |M WILL CALCULATE|
00000360: 20 54 48 45 20 54 4F 54 41 4C 22 00 94 1F FC 03 | THE TOTAL".....|
00000370: 99 22 49 4D 50 45 44 41 4E 43 45 20 49 4E 20 41 |."IMPEDANCE IN A|
00000380: 20 53 45 52 49 45 53 20 52 43 20 43 49 52 43 55 | SERIES RC CIRCU|
00000390: 49 54 2E 22 00 C1 1F 06 04 99 22 54 48 45 20 54 |IT."......"THE T|
000003A0: 4F 54 41 4C 20 52 45 53 49 53 54 41 4E 43 45 20 |OTAL RESISTANCE |
000003B0: 45 4C 45 4D 45 4E 54 53 20 41 4E 44 20 54 48 45 |ELEMENTS AND THE|
000003C0: 22 00 ED 1F 10 04 99 22 54 4F 54 41 4C 20 43 41 |"......"TOTAL CA|
000003D0: 50 41 43 49 54 49 56 45 20 45 4C 45 4D 45 4E 54 |PACITIVE ELEMENT|
000003E0: 53 20 4D 55 53 54 20 42 45 20 49 4E 22 00 07 20 |S MUST BE IN".. |
000003F0: 1A 04 99 22 53 45 52 49 45 53 20 41 53 20 53 48 |..."SERIES AS SH|
00000400: 4F 57 4E 2E 2E 2E 22 00 21 20 1F 04 99 22 11 20 |OWN...".! ...". |
00000410: 20 20 20 20 20 20 52 54 20 20 20 20 20 20 43 54 | RT CT|
00000420: 22 00 3F 20 24 04 99 22 4F C3 C3 C3 C3 CE CD CE |".? $.."O.......|
00000430: CD CE CD C3 C3 C3 C3 29 C2 C3 C3 C3 C3 4F 22 00 |.......).....O".|
00000440: 6D 20 2E 04 99 22 11 59 4F 55 20 57 49 4C 4C 20 |m ...".YOU WILL |
00000450: 45 4E 54 45 52 20 54 48 45 20 43 54 20 49 4E 20 |ENTER THE CT IN |
00000460: 4D 49 43 52 4F 46 41 52 41 44 53 2C 22 00 9A 20 |MICROFARADS,".. |
00000470: 33 04 99 22 54 48 45 20 46 52 45 51 55 45 4E 43 |3.."THE FREQUENC|
00000480: 59 20 49 4E 20 48 45 52 54 5A 20 28 49 46 20 4C |Y IN HERTZ (IF L|
00000490: 45 46 54 20 42 4C 41 4E 4B 22 00 C5 20 34 04 99 |EFT BLANK".. 4..|
000004A0: 22 54 48 45 20 50 52 4F 47 52 41 4D 20 57 49 4C |"THE PROGRAM WIL|
000004B0: 4C 20 44 45 46 41 55 4C 54 20 54 4F 20 36 30 20 |L DEFAULT TO 60 |
000004C0: 48 5A 29 2C 22 00 F2 20 38 04 99 22 41 4E 44 20 |HZ),".. 8.."AND |
000004D0: 54 48 45 20 52 54 20 49 4E 20 4F 48 4D 53 2E 20 |THE RT IN OHMS. |
000004E0: 20 54 48 45 20 50 52 4F 47 52 41 4D 20 57 49 4C | THE PROGRAM WIL|
000004F0: 4C 22 00 1F 21 42 04 99 22 54 48 45 4E 20 43 48 |L"..!B.."THEN CH|
00000500: 41 4E 47 45 20 54 48 45 20 4D 49 43 52 4F 46 41 |ANGE THE MICROFA|
00000510: 52 41 44 53 20 54 4F 20 46 41 52 41 44 53 22 00 |RADS TO FARADS".|
00000520: 48 21 4C 04 99 22 41 4E 44 20 46 49 4E 44 20 54 |H!L.."AND FIND T|
00000530: 48 45 20 43 41 50 41 43 54 49 56 45 20 52 45 41 |HE CAPACTIVE REA|
00000540: 43 54 41 4E 43 45 20 22 00 72 21 56 04 99 22 57 |CTANCE ".r!V.."W|
00000550: 48 49 43 48 20 57 49 4C 4C 20 42 45 20 44 49 53 |HICH WILL BE DIS|
00000560: 50 4C 41 59 45 44 20 41 4C 4F 4E 47 20 57 49 54 |PLAYED ALONG WIT|
00000570: 48 22 00 9B 21 60 04 99 22 54 48 45 20 43 41 50 |H"..!`.."THE CAP|
00000580: 41 43 49 54 41 4E 43 45 20 49 4E 20 46 41 52 41 |ACITANCE IN FARA|
00000590: 44 53 20 41 4E 44 2C 20 4F 46 22 00 BF 21 6A 04 |DS AND, OF"..!j.|
000005A0: 99 22 43 4F 55 52 53 45 2C 20 54 48 45 20 54 4F |."COURSE, THE TO|
000005B0: 54 41 4C 20 49 4D 50 45 44 41 4E 43 45 2E 22 00 |TAL IMPEDANCE.".|
000005C0: EA 21 74 04 99 22 90 11 20 20 20 20 20 20 20 12 |.!t..".. .|
000005D0: 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |HIT ANY KEY TO C|
000005E0: 4F 4E 54 49 4E 55 45 21 92 22 00 02 22 7E 04 A1 |ONTINUE!.".."~..|
000005F0: 41 24 3A 8B 41 24 B2 22 22 20 A7 20 89 20 31 31 |A$:.A$."" . . 11|
00000600: 35 30 00 08 22 88 04 8E 00 15 22 92 04 8F 20 48 |50.."....."... H|
00000610: 45 4C 4C 4F 21 00 00 00 |ELLO!... |
..#.... PROGRAM VERSION 8.1 4/14/92.8...
. BY MARCO BRUNO.`.... THIS PROGGIE CALC
ULATES IMPEDANCE.K.... 1000......"..RESI
STANCE MUST BE IN OHMS."......"CAPACITAN
CE MUST BE IN MICROFARADS."......"..THE
LOAD & CAPACITOR MUST BE IN SERIES!"....
.X.0:Y.0:F.0:R.0:C.0.$....".WHAT IS THE
FREQUENCY";F.5.... F.0 . F.60.O....".WHA
T IS THE TOTAL RESISTANCE";R:. R.0 . R..
0000001...#.."WHAT IS THE TOTAL CAPACITA
NCE";C:. C.0 . C..0000001...$.C.C.100000
0.G.&.Y.2...F.C.Q.'.X.1.Y...)..".THE CAP
ACITIVE REACTANCE IS..."...*..;X;"OHMS".
/.+..".THE CAPACITANCE IN FARADS IS...".
@.,..;C;"FARADS".B....".THE TOTAL IMPEDA
NCE IS...".~.2.. .((R.2).(X.2)) "OHMS"..
.<..". HIT ANY KEY TO CONTINUE OR Q TO
QUIT"...F.. A$.I.P.. A$."" . . 70...Z..
A$."Q" . .".":....D.. 18......"..IMPEDAN
CE CALCULATOR FOR SERIES RC CKTS.".=....
"V8.1 BY MARCO BRUNO 4/14/92".K....".THI
S PROGRAM WILL CALCULATE THE TOTAL".....
."IMPEDANCE IN A SERIES RC CIRCUIT.".A..
.."THE TOTAL RESISTANCE ELEMENTS AND THE
"......"TOTAL CAPACITIVE ELEMENTS MUST B
E IN".. ..."SERIES AS SHOWN...".! ...".
RT CT".? $.."OCCCCNMNMNMCCCC)
BCCCCO".M ...".YOU WILL ENTER THE CT IN
MICROFARADS,".. 3.."THE FREQUENCY IN HER
TZ (IF LEFT BLANK".E 4.."THE PROGRAM WIL
L DEFAULT TO 60 HZ),".. 8.."AND THE RT I
N OHMS. THE PROGRAM WILL"..!B.."THEN CH
ANGE THE MICROFARADS TO FARADS".H!L.."AN
D FIND THE CAPACTIVE REACTANCE ".R!V.."W
HICH WILL BE DISPLAYED ALONG WITH"..!`..
"THE CAPACITANCE IN FARADS AND, OF"..!J.
."COURSE, THE TOTAL IMPEDANCE."..!T.."..
.HIT ANY KEY TO CONTINUE!.".."~..
A$:.A$."" . . 1150.."....."... HELLO!...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL