00000000: 01 1C 29 1C 0A 00 8F 20 54 48 49 53 20 50 52 4F |..).... THIS PRO|
00000010: 47 47 49 45 20 43 41 4C 43 55 4C 41 54 45 53 20 |GGIE CALCULATES |
00000020: 49 4D 50 45 44 41 4E 43 45 00 51 1C 0F 00 99 22 |IMPEDANCE.Q...."|
00000030: 93 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |.THIS PROGRAM WI|
00000040: 4C 4C 20 43 41 4C 43 55 4C 41 54 45 20 54 48 45 |LL CALCULATE THE|
00000050: 22 00 77 1C 10 00 99 22 54 4F 54 41 4C 20 49 4D |".w...."TOTAL IM|
00000060: 50 45 44 41 4E 43 45 20 49 4E 20 41 20 53 45 52 |PEDANCE IN A SER|
00000070: 49 45 53 20 52 43 22 00 87 1C 11 00 99 22 43 49 |IES RC"......"CI|
00000080: 52 43 55 49 54 2E 22 00 AA 1C 12 00 99 22 52 45 |RCUIT."......"RE|
00000090: 53 49 53 54 41 4E 43 45 20 4D 55 53 54 20 42 45 |SISTANCE MUST BE|
000000A0: 20 49 4E 20 4F 48 4D 53 2E 22 00 D0 1C 13 00 99 | IN OHMS."......|
000000B0: 22 43 41 50 41 43 49 54 41 4E 43 45 20 4D 55 53 |"CAPACITANCE MUS|
000000C0: 54 20 42 45 20 49 4E 20 46 41 52 41 44 53 2E 22 |T BE IN FARADS."|
000000D0: 00 01 1D 14 00 99 22 11 11 54 48 45 20 4C 4F 41 |......"..THE LOA|
000000E0: 44 20 26 20 43 41 50 41 43 49 54 4F 52 20 4D 55 |D & CAPACITOR MU|
000000F0: 53 54 20 42 45 20 49 4E 20 53 45 52 49 45 53 21 |ST BE IN SERIES!|
00000100: 22 00 29 1D 1E 00 85 22 11 11 57 48 41 54 20 49 |".)...."..WHAT I|
00000110: 53 20 54 48 45 20 54 4F 54 41 4C 20 52 45 53 49 |S THE TOTAL RESI|
00000120: 53 54 41 4E 43 45 22 3B 52 00 51 1D 28 00 85 22 |STANCE";R.Q.(.."|
00000130: 11 11 48 41 54 20 49 53 20 54 48 45 20 54 4F 54 |..HAT IS THE TOT|
00000140: 41 4C 20 43 41 50 41 43 49 54 41 4E 43 45 22 3B |AL CAPACITANCE";|
00000150: 43 00 74 1D 2D 00 99 22 11 11 54 48 45 20 54 4F |C.t.-.."..THE TO|
00000160: 54 41 4C 20 49 4D 50 45 44 41 4E 43 45 20 49 53 |TAL IMPEDANCE IS|
00000170: 2E 2E 2E 22 00 89 1D 32 00 99 20 BA 28 28 52 AE |..."...2.. .((R.|
00000180: 32 29 AA 28 43 AE 32 29 29 00 B8 1D 3C 00 99 22 |2).(C.2))...<.."|
00000190: 11 11 11 48 49 54 20 41 4E 59 20 4B 45 59 20 54 |...HIT ANY KEY T|
000001A0: 4F 20 43 4F 4E 54 49 4E 55 45 20 4F 52 20 51 20 |O CONTINUE OR Q |
000001B0: 54 4F 20 51 55 49 54 22 00 C1 1D 46 00 A1 20 41 |TO QUIT"...F.. A|
000001C0: 24 00 D4 1D 50 00 8B 20 41 24 B2 22 22 20 A7 20 |$...P.. A$."" . |
000001D0: 89 20 37 30 00 E5 1D 5A 00 8B 20 41 24 B2 22 51 |. 70...Z.. A$."Q|
000001E0: 22 20 A7 20 80 00 EE 1D 64 00 89 20 31 30 00 00 |" . ....d.. 10..|
000001F0: 00 |. |
..).... THIS PROGGIE CALCULATES IMPEDANC
E.Q....".THIS PROGRAM WILL CALCULATE THE
".W...."TOTAL IMPEDANCE IN A SERIES RC".
....."CIRCUIT."......"RESISTANCE MUST BE
IN OHMS.".P...."CAPACITANCE MUST BE IN
FARADS."......"..THE LOAD & CAPACITOR MU
ST BE IN SERIES!".)...."..WHAT IS THE TO
TAL RESISTANCE";R.Q.(.."..HAT IS THE TOT
AL CAPACITANCE";C.T.-.."..THE TOTAL IMPE
DANCE IS..."...2.. .((R.2).(C.2))...<.."
...HIT ANY KEY TO CONTINUE OR Q TO QUIT"
.A.F.. A$.T.P.. A$."" . . 70...Z.. A$."Q
" . ....D.. 10...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL