00000000: 01 1C 19 1C 01 00 8F 20 50 52 4F 47 52 41 4D 20 |....... PROGRAM |
00000010: 33 20 34 2F 31 34 2F 39 32 00 2E 1C 05 00 8F 20 |3 4/14/92...... |
00000020: 42 59 20 4D 41 52 43 4F 20 42 52 55 4E 4F 00 56 |BY MARCO BRUNO.V|
00000030: 1C 0A 00 8F 20 54 48 49 53 20 50 52 4F 47 47 49 |.... THIS PROGGI|
00000040: 45 20 43 41 4C 43 55 4C 41 54 45 53 20 49 4D 50 |E CALCULATES IMP|
00000050: 45 44 41 4E 43 45 00 7E 1C 0F 00 99 22 93 54 48 |EDANCE.~....".TH|
00000060: 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |IS PROGRAM WILL |
00000070: 43 41 4C 43 55 4C 41 54 45 20 54 48 45 22 00 A4 |CALCULATE THE"..|
00000080: 1C 10 00 99 22 54 4F 54 41 4C 20 49 4D 50 45 44 |...."TOTAL IMPED|
00000090: 41 4E 43 45 20 49 4E 20 41 20 53 45 52 49 45 53 |ANCE IN A SERIES|
000000A0: 20 52 43 22 00 B4 1C 11 00 99 22 43 49 52 43 55 | RC"......"CIRCU|
000000B0: 49 54 2E 22 00 D7 1C 12 00 99 22 52 45 53 49 53 |IT."......"RESIS|
000000C0: 54 41 4E 43 45 20 4D 55 53 54 20 42 45 20 49 4E |TANCE MUST BE IN|
000000D0: 20 4F 48 4D 53 2E 22 00 FD 1C 13 00 99 22 43 41 | OHMS."......"CA|
000000E0: 50 41 43 49 54 41 4E 43 45 20 49 53 20 49 4E 20 |PACITANCE IS IN |
000000F0: 4D 49 43 52 4F 46 41 52 41 44 53 2E 22 00 2E 1D |MICROFARADS."...|
00000100: 14 00 99 22 11 11 54 48 45 20 4C 4F 41 44 20 26 |..."..THE LOAD &|
00000110: 20 43 41 50 41 43 49 54 4F 52 20 4D 55 53 54 20 | CAPACITOR MUST |
00000120: 42 45 20 49 4E 20 53 45 52 49 45 53 21 22 00 56 |BE IN SERIES!".V|
00000130: 1D 1E 00 85 22 11 11 57 48 41 54 20 49 53 20 54 |...."..WHAT IS T|
00000140: 48 45 20 54 4F 54 41 4C 20 52 45 53 49 53 54 41 |HE TOTAL RESISTA|
00000150: 4E 43 45 22 3B 52 00 7D 1D 23 00 85 22 57 48 41 |NCE";R.}.#.."WHA|
00000160: 54 20 49 53 20 54 48 45 20 54 4F 54 41 4C 20 43 |T IS THE TOTAL C|
00000170: 41 50 41 43 49 54 41 4E 43 45 22 3B 43 00 8D 1D |APACITANCE";C...|
00000180: 24 00 43 B2 43 AD 31 30 30 30 30 30 30 00 A3 1D |$.C.C.1000000...|
00000190: 28 00 58 B2 31 AD 32 AC 33 2E 31 34 31 32 AC 36 |(.X.1.2.3.1412.6|
000001A0: 30 AC 43 00 CB 1D 29 00 99 22 11 54 48 45 20 43 |0.C...)..".THE C|
000001B0: 41 50 41 43 49 54 49 56 45 20 52 45 41 43 54 41 |APACITIVE REACTA|
000001C0: 4E 43 45 20 49 53 22 3B 58 3B 22 00 F5 1D 2A 00 |NCE IS";X;"...*.|
000001D0: 99 22 11 54 48 45 20 43 41 50 41 43 49 54 41 4E |.".THE CAPACITAN|
000001E0: 43 45 20 49 4E 20 46 41 52 41 44 53 20 49 53 20 |CE IN FARADS IS |
000001F0: 22 3B 43 3B 22 00 17 1E 2D 00 99 22 11 54 48 45 |";C;"...-..".THE|
00000200: 20 54 4F 54 41 4C 20 49 4D 50 45 44 41 4E 43 45 | TOTAL IMPEDANCE|
00000210: 20 49 53 2E 2E 2E 22 00 2C 1E 32 00 99 20 BA 28 | IS...".,.2.. .(|
00000220: 28 52 AE 32 29 AA 28 58 AE 32 29 29 00 59 1E 3C |(R.2).(X.2)).Y.<|
00000230: 00 99 22 11 48 49 54 20 41 4E 59 20 4B 45 59 20 |..".HIT ANY KEY |
00000240: 54 4F 20 43 4F 4E 54 49 4E 55 45 20 4F 52 20 51 |TO CONTINUE OR Q|
00000250: 20 54 4F 20 51 55 49 54 22 00 62 1E 46 00 A1 20 | TO QUIT".b.F.. |
00000260: 41 24 00 75 1E 50 00 8B 20 41 24 B2 22 22 20 A7 |A$.u.P.. A$."" .|
00000270: 20 89 20 37 30 00 86 1E 5A 00 8B 20 41 24 B2 22 | . 70...Z.. A$."|
00000280: 51 22 20 A7 20 80 00 8F 1E 64 00 89 20 31 30 00 |Q" . ....d.. 10.|
00000290: 00 00 |.. |
....... PROGRAM 3 4/14/92...... BY MARCO
BRUNO.V.... THIS PROGGIE CALCULATES IMP
EDANCE.~....".THIS PROGRAM WILL CALCULAT
E THE"......"TOTAL IMPEDANCE IN A SERIES
RC"......"CIRCUIT.".W...."RESISTANCE MU
ST BE IN OHMS."......"CAPACITANCE IS IN
MICROFARADS."......"..THE LOAD & CAPACIT
OR MUST BE IN SERIES!".V...."..WHAT IS T
HE TOTAL RESISTANCE";R.}.#.."WHAT IS THE
TOTAL CAPACITANCE";C...$.C.C.1000000...
(.X.1.2.3.1412.60.C.K.)..".THE CAPACITIV
E REACTANCE IS";X;"...*..".THE CAPACITAN
CE IN FARADS IS ";C;"...-..".THE TOTAL I
MPEDANCE IS...".,.2.. .((R.2).(X.2)).Y.<
..".HIT ANY KEY TO CONTINUE OR Q TO QUIT
".B.F.. A$.U.P.. A$."" . . 70...Z.. A$."
Q" . ....D.. 10...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL