OHMS LAW
FILE INFORMATION
FILENAME(S): OHMS LAW
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-10-20 14:30:51
APPEARS ON: 1 disk(s)
FILE HASH
39c0f95edf01c26e6a6b97207499ef65d90e98fc2be2a392cf5498c0b1636049
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0047ED | OHMS LAW | PRG | Treasure Chest - Klaus Der Suhler | 29 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3D 08 0A 00 97 35 33 32 38 30 2C 30 3A 97 |..=....53280,0:.| 00000010: 35 33 32 38 31 2C 30 3A 99 22 98 22 3A 45 B2 33 |53281,0:.".":E.3| 00000020: 31 37 34 34 3A 8F 20 20 20 20 43 36 34 20 4D 4F |1744:. C64 MO| 00000030: 44 53 20 42 59 20 57 49 4D 20 27 38 33 00 4B 08 |DS BY WIM '83.K.| 00000040: 64 00 54 43 B2 54 49 AA 32 30 30 00 66 08 6E 00 |d.TC.TI.200.f.n.| 00000050: 99 22 93 42 59 3A 20 45 44 57 41 52 44 20 53 48 |.".BY: EDWARD SH| 00000060: 49 45 4C 44 53 22 00 79 08 78 00 88 20 57 B2 C2 |IELDS".y.x.. W..| 00000070: 28 33 32 38 31 32 AB 57 29 00 8C 08 82 00 88 20 |(32812.W)...... | 00000080: 51 B2 C2 28 33 32 38 31 39 AB 57 29 00 A0 08 8C |Q..(32819.W)....| 00000090: 00 8B 20 54 43 B1 54 49 20 A7 20 89 20 31 34 30 |.. TC.TI . . 140| 000000A0: 00 AB 08 96 00 89 20 31 39 37 30 00 D7 08 A0 00 |...... 1970.....| 000000B0: 99 22 46 4F 52 4D 55 4C 41 27 53 20 54 4F 20 46 |."FORMULA'S TO F| 000000C0: 49 4E 44 20 41 2D 43 20 26 44 2D 43 20 4F 48 4D |IND A-C &D-C OHM| 000000D0: 27 53 20 4C 41 57 22 00 DD 08 AA 00 99 00 10 09 |'S LAW".........| 000000E0: B4 00 99 22 59 4F 55 20 48 41 56 45 20 46 4F 55 |..."YOU HAVE FOU| 000000F0: 52 20 50 4F 53 53 49 42 4C 45 20 55 4E 4B 4E 4F |R POSSIBLE UNKNO| 00000100: 57 4E 53 20 45 2C 57 2C 5A 20 4F 52 20 49 2E 22 |WNS E,W,Z OR I."| 00000110: 00 16 09 BE 00 99 00 46 09 C8 00 85 20 22 57 48 |.......F.... "WH| 00000120: 49 43 48 20 49 53 20 59 4F 55 52 20 55 4E 4B 4E |ICH IS YOUR UNKN| 00000130: 4F 57 4E 28 20 45 2C 20 57 2C 20 5A 20 4F 52 20 |OWN( E, W, Z OR | 00000140: 49 29 22 3B 41 24 00 4C 09 D2 00 99 00 52 09 DC |I)";A$.L.....R..| 00000150: 00 99 00 65 09 E6 00 8B 20 41 24 B2 22 45 22 20 |...e.... A$."E" | 00000160: A7 20 32 38 30 00 78 09 F0 00 8B 20 41 24 B2 22 |. 280.x.... A$."| 00000170: 57 22 20 A7 20 36 38 30 00 8C 09 FA 00 8B 20 41 |W" . 680...... A| 00000180: 24 B2 22 5A 22 20 A7 20 31 31 33 30 00 A0 09 04 |$."Z" . 1130....| 00000190: 01 8B 20 41 24 B2 22 49 22 20 A7 20 31 35 34 30 |.. A$."I" . 1540| 000001A0: 00 A6 09 0E 01 99 00 DB 09 18 01 85 20 22 45 4E |............ "EN| 000001B0: 54 45 52 20 59 4F 55 52 20 31 53 54 20 4B 4E 4F |TER YOUR 1ST KNO| 000001C0: 57 4E 20 56 41 52 49 41 42 4C 45 28 20 57 2C 20 |WN VARIABLE( W, | 000001D0: 5A 20 4F 52 20 49 29 22 3B 42 24 00 10 0A 22 01 |Z OR I)";B$...".| 000001E0: 85 20 22 45 4E 54 45 52 20 59 4F 55 52 20 32 4E |. "ENTER YOUR 2N| 000001F0: 44 20 4B 4E 4F 57 4E 20 56 41 52 49 41 42 4C 45 |D KNOWN VARIABLE| 00000200: 28 20 57 2C 20 5A 20 4F 52 20 49 29 22 3B 43 24 |( W, Z OR I)";C$| 00000210: 00 2E 0A 2C 01 8B 20 C6 28 42 24 29 AA C6 28 43 |...,.. .(B$)..(C| 00000220: 24 29 B2 31 36 30 20 A7 20 89 20 33 34 30 00 4C |$).160 . . 340.L| 00000230: 0A 36 01 8B 20 C6 28 43 24 29 AA C6 28 42 24 29 |.6.. .(C$)..(B$)| 00000240: B2 31 37 37 20 A7 20 89 20 34 37 30 00 6A 0A 40 |.177 . . 470.j.@| 00000250: 01 8B 20 C6 28 43 24 29 AA C6 28 42 24 29 B2 31 |.. .(C$)..(B$).1| 00000260: 36 33 20 A7 20 89 20 36 30 30 00 70 0A 4A 01 99 |63 . . 600.p.J..| 00000270: 00 92 0A 54 01 85 20 22 57 48 41 54 20 56 41 4C |...T.. "WHAT VAL| 00000280: 55 45 20 49 53 20 49 20 49 4E 20 41 4D 50 53 22 |UE IS I IN AMPS"| 00000290: 3B 49 00 98 0A 5E 01 99 00 BB 0A 68 01 85 20 22 |;I...^.....h.. "| 000002A0: 57 48 41 54 20 56 41 4C 55 45 20 49 53 20 57 20 |WHAT VALUE IS W | 000002B0: 49 4E 20 57 41 54 54 53 22 3B 57 00 C1 0A 72 01 |IN WATTS";W...r.| 000002C0: 99 00 E6 0A 7C 01 85 20 22 57 48 41 54 20 56 41 |....|.. "WHAT VA| 000002D0: 4C 55 45 20 49 53 20 54 48 45 54 41 20 49 4E 20 |LUE IS THETA IN | 000002E0: 44 45 47 22 3B 54 00 EC 0A 86 01 99 00 FE 0A 90 |DEG";T..........| 000002F0: 01 8B 20 54 B2 30 20 A7 20 89 20 34 35 30 00 34 |.. T.0 . . 450.4| 00000300: 0B 9A 01 99 20 22 45 3D 22 3B 57 AD 28 49 AC BE |.... "E=";W.(I..| 00000310: 28 54 AC 2E 30 31 37 34 35 33 32 39 33 29 29 3B |(T..017453293));| 00000320: 22 57 3D 22 3B 57 3B 22 49 3D 22 3B 49 3B 22 54 |"W=";W;"I=";I;"T| 00000330: 3D 22 3B 22 00 3A 0B A4 01 99 00 51 0B AE 01 99 |=";".:.....Q....| 00000340: 20 22 45 3D 57 2F 28 49 2A 43 4F 53 28 54 29 29 | "E=W/(I*COS(T))| 00000350: 22 00 5C 0B B8 01 89 20 31 39 36 30 00 69 0B C2 |".\.... 1960.i..| 00000360: 01 88 20 54 B2 2E 30 30 35 00 73 0B CC 01 89 20 |.. T..005.s.... | 00000370: 34 31 30 00 95 0B D6 01 85 20 22 57 48 41 54 20 |410...... "WHAT | 00000380: 56 41 4C 55 45 20 49 53 20 5A 20 49 4E 20 49 4D |VALUE IS Z IN IM| 00000390: 50 2E 22 3B 5A 00 9B 0B E0 01 99 00 BE 0B EA 01 |P.";Z...........| 000003A0: 85 20 22 57 48 41 54 20 56 41 4C 55 45 20 49 53 |. "WHAT VALUE IS| 000003B0: 20 57 20 49 4E 20 57 41 54 54 53 22 3B 57 00 C4 | W IN WATTS";W..| 000003C0: 0B F4 01 99 00 EA 0B FE 01 85 20 22 57 48 41 54 |.......... "WHAT| 000003D0: 20 56 41 4C 55 45 20 49 53 20 54 48 45 54 41 20 | VALUE IS THETA | 000003E0: 49 4E 20 44 45 47 2E 22 3B 54 00 F0 0B 08 02 99 |IN DEG.";T......| 000003F0: 00 02 0C 12 02 8B 20 54 B2 30 20 A7 20 89 20 35 |...... T.0 . . 5| 00000400: 38 30 00 3D 0C 1C 02 99 20 22 45 3D 22 3B BA 28 |80.=.... "E=";.(| 00000410: 28 57 AC 5A 29 AD 28 BE 28 54 AC 2E 30 31 37 34 |(W.Z).(.(T..0174| 00000420: 35 33 32 39 33 29 29 29 3B 22 5A 3D 22 3B 5A 3B |53293)));"Z=";Z;| 00000430: 22 57 3D 22 3B 57 3B 22 54 3D 22 3B 54 00 43 0C |"W=";W;"T=";T.C.| 00000440: 26 02 99 00 61 0C 30 02 99 20 22 45 3D 53 51 52 |&...a.0.. "E=SQR| 00000450: 28 28 57 2A 52 29 2F 28 43 4F 53 28 54 29 29 29 |((W*R)/(COS(T)))| 00000460: 22 00 6C 0C 3A 02 89 20 31 39 36 30 00 79 0C 44 |".l.:.. 1960.y.D| 00000470: 02 88 20 54 B2 2E 30 30 35 00 83 0C 4E 02 89 20 |.. T..005...N.. | 00000480: 35 34 30 00 A5 0C 58 02 85 20 22 57 48 41 54 20 |540...X.. "WHAT | 00000490: 56 41 4C 55 45 20 49 53 20 49 20 49 4E 20 41 4D |VALUE IS I IN AM| 000004A0: 50 53 22 3B 49 00 AB 0C 62 02 99 00 CD 0C 6C 02 |PS";I...b.....l.| 000004B0: 85 20 22 57 48 41 54 20 56 41 4C 55 45 20 49 53 |. "WHAT VALUE IS| 000004C0: 20 5A 20 49 4E 20 49 4D 50 2E 22 3B 5A 00 D3 0C | Z IN IMP.";Z...| 000004D0: 76 02 99 00 F0 0C 80 02 99 20 22 45 3D 22 3B 49 |v........ "E=";I| 000004E0: AC 5A 3B 22 49 3D 22 3B 49 3B 22 5A 3D 22 3B 5A |.Z;"I=";I;"Z=";Z| 000004F0: 00 F6 0C 8A 02 99 00 04 0D 94 02 99 20 22 45 3D |............ "E=| 00000500: 49 2A 5A 22 00 0F 0D 9E 02 89 20 31 39 36 30 00 |I*Z"...... 1960.| 00000510: 44 0D A8 02 85 20 22 45 4E 54 45 52 20 59 4F 55 |D.... "ENTER YOU| 00000520: 52 20 31 53 54 20 4B 4E 4F 57 4E 20 56 41 52 49 |R 1ST KNOWN VARI| 00000530: 41 42 4C 45 28 20 45 2C 20 5A 20 4F 52 20 49 29 |ABLE( E, Z OR I)| 00000540: 22 3B 44 24 00 4A 0D B2 02 99 00 7F 0D BC 02 85 |";D$.J..........| 00000550: 20 22 45 4E 54 45 52 20 59 4F 55 52 20 32 4E 44 | "ENTER YOUR 2ND| 00000560: 20 4B 4E 4F 57 4E 20 56 41 52 49 41 42 4C 45 28 | KNOWN VARIABLE(| 00000570: 20 45 2C 20 5A 20 4F 52 20 49 29 22 3B 46 24 00 | E, Z OR I)";F$.| 00000580: 9D 0D C6 02 8B 20 C6 28 44 24 29 AA C6 28 46 24 |..... .(D$)..(F$| 00000590: 29 B2 31 35 39 20 A7 20 89 20 37 34 30 00 BB 0D |).159 . . 740...| 000005A0: D0 02 8B 20 C6 28 46 24 29 AA C6 28 44 24 29 B2 |... .(F$)..(D$).| 000005B0: 31 36 33 20 A7 20 89 20 38 37 30 00 DA 0D DA 02 |163 . . 870.....| 000005C0: 8B 20 C6 28 46 24 29 AA C6 28 44 24 29 B2 31 34 |. .(F$)..(D$).14| 000005D0: 32 20 A7 20 89 20 31 30 30 30 00 FC 0D E4 02 85 |2 . . 1000......| 000005E0: 22 57 48 41 54 20 56 41 4C 55 45 20 49 53 20 45 |"WHAT VALUE IS E| 000005F0: 20 49 4E 20 56 4F 4C 54 53 22 3B 45 00 02 0E EE | IN VOLTS";E....| 00000600: 02 99 00 24 0E F8 02 85 20 22 57 48 41 54 20 56 |...$.... "WHAT V| 00000610: 41 4C 55 45 20 49 53 20 5A 20 49 4E 20 49 4D 50 |ALUE IS Z IN IMP| 00000620: 2E 22 3B 5A 00 2A 0E 02 03 99 00 4F 0E 0C 03 85 |.";Z.*.....O....| 00000630: 20 22 57 48 41 54 20 56 41 4C 55 45 20 49 53 20 | "WHAT VALUE IS | 00000640: 54 48 45 54 41 20 49 4E 20 44 45 47 22 3B 54 00 |THETA IN DEG";T.| 00000650: 55 0E 16 03 99 00 67 0E 20 03 8B 20 54 B2 30 20 |U.....g. .. T.0 | 00000660: A7 20 89 20 38 35 30 00 A1 0E 2A 03 99 20 22 57 |. . 850...*.. "W| 00000670: 3D 22 3B 28 28 45 AC 45 29 AC BE 28 54 AC 2E 30 |=";((E.E)..(T..0| 00000680: 31 37 34 35 33 32 39 33 29 29 AD 5A 3B 22 45 3D |17453293)).Z;"E=| 00000690: 22 3B 45 3B 22 5A 3D 22 3B 5A 3B 22 54 3D 22 3B |";E;"Z=";Z;"T=";| 000006A0: 54 00 A7 0E 34 03 99 00 C2 0E 3E 03 99 20 22 57 |T...4.....>.. "W| 000006B0: 3D 28 28 45 2A 45 2A 43 4F 53 28 54 29 29 2F 5A |=((E*E*COS(T))/Z| 000006C0: 29 22 00 CD 0E 48 03 89 20 31 39 36 30 00 DA 0E |)"...H.. 1960...| 000006D0: 52 03 88 20 54 B2 2E 30 30 35 00 E4 0E 5C 03 89 |R.. T..005...\..| 000006E0: 20 38 31 30 00 06 0F 66 03 85 22 20 57 48 41 54 | 810...f.." WHAT| 000006F0: 20 56 41 4C 55 45 20 49 53 20 5A 20 49 4E 20 49 | VALUE IS Z IN I| 00000700: 4D 50 2E 22 3B 5A 00 0C 0F 70 03 99 00 2E 0F 7A |MP.";Z...p.....z| 00000710: 03 85 20 22 57 48 41 54 20 56 41 4C 55 45 20 49 |.. "WHAT VALUE I| 00000720: 53 20 49 20 49 4E 20 41 4D 50 53 22 3B 49 00 34 |S I IN AMPS";I.4| 00000730: 0F 84 03 99 00 59 0F 8E 03 85 20 22 57 48 41 54 |.....Y.... "WHAT| 00000740: 20 56 41 4C 55 45 20 49 53 20 54 48 45 54 41 20 | VALUE IS THETA | 00000750: 49 4E 20 44 45 47 22 3B 54 00 5F 0F 98 03 99 00 |IN DEG";T._.....| 00000760: 71 0F A2 03 8B 20 54 B2 30 20 A7 20 89 20 39 38 |q.... T.0 . . 98| 00000770: 30 00 A7 0F AC 03 99 20 22 57 3D 22 3B 49 AC 49 |0...... "W=";I.I| 00000780: AC 5A AC BE 28 54 AC 2E 30 31 37 34 35 33 32 39 |.Z..(T..01745329| 00000790: 33 29 3B 22 49 3D 22 3B 49 3B 22 5A 3D 22 3B 5A |3);"I=";I;"Z=";Z| 000007A0: 3B 22 54 3D 22 3B 54 00 AD 0F B6 03 99 00 CF 0F |;"T=";T.........| 000007B0: C0 03 99 20 22 57 3D 49 2A 49 2A 5A 2A 43 4F 53 |... "W=I*I*Z*COS| 000007C0: 28 54 2A 2E 30 31 37 34 35 33 32 39 33 29 22 00 |(T*.017453293)".| 000007D0: DA 0F CA 03 89 20 31 39 36 30 00 E7 0F D4 03 88 |..... 1960......| 000007E0: 20 54 B2 2E 30 30 35 00 F1 0F DE 03 89 20 39 34 | T..005...... 94| 000007F0: 30 00 14 10 E8 03 85 20 22 57 48 41 54 20 56 41 |0...... "WHAT VA| 00000800: 4C 55 45 20 49 53 20 45 20 49 4E 20 56 4F 4C 54 |LUE IS E IN VOLT| 00000810: 53 22 3B 45 00 1A 10 F2 03 99 00 3C 10 FC 03 85 |S";E.......<....| 00000820: 20 22 57 48 41 54 20 56 41 4C 55 45 20 49 53 20 | "WHAT VALUE IS | 00000830: 49 20 49 4E 20 41 4D 50 53 22 3B 49 00 42 10 06 |I IN AMPS";I.B..| 00000840: 04 99 00 67 10 10 04 85 20 22 57 48 41 54 20 56 |...g.... "WHAT V| 00000850: 41 4C 55 45 20 49 53 20 54 48 45 54 41 20 49 4E |ALUE IS THETA IN| 00000860: 20 44 45 47 22 3B 54 00 6D 10 1A 04 99 00 80 10 | DEG";T.m.......| 00000870: 24 04 8B 20 54 B2 30 20 A7 20 89 20 31 31 31 30 |$.. T.0 . . 1110| 00000880: 00 B4 10 2E 04 99 20 22 57 3D 22 3B 49 AC 45 AC |...... "W=";I.E.| 00000890: BE 28 54 AC 2E 30 31 37 34 35 33 32 39 33 29 3B |.(T..017453293);| 000008A0: 22 49 3D 22 3B 49 3B 22 45 3D 22 3B 45 3B 22 54 |"I=";I;"E=";E;"T| 000008B0: 3D 22 3B 54 00 BA 10 38 04 99 00 CF 10 42 04 99 |=";T...8.....B..| 000008C0: 20 22 57 3D 49 2A 45 2A 43 4F 53 28 54 29 22 00 | "W=I*E*COS(T)".| 000008D0: DA 10 4C 04 89 20 31 39 36 30 00 E7 10 56 04 88 |..L.. 1960...V..| 000008E0: 20 54 B2 2E 30 30 35 00 F2 10 60 04 89 20 31 30 | T..005...`.. 10| 000008F0: 37 30 00 23 11 6A 04 85 20 22 45 4E 54 45 52 20 |70.#.j.. "ENTER | 00000900: 59 4F 55 52 20 31 53 54 20 4B 4E 4F 57 4E 20 56 |YOUR 1ST KNOWN V| 00000910: 41 4C 55 45 28 20 45 2C 57 20 4F 52 20 49 29 22 |ALUE( E,W OR I)"| 00000920: 3B 47 24 00 29 11 74 04 99 00 5B 11 7E 04 85 20 |;G$.).t...[.~.. | 00000930: 22 45 4E 54 45 52 20 59 4F 55 52 20 32 4E 44 20 |"ENTER YOUR 2ND | 00000940: 4B 4E 4F 57 4E 20 56 41 4C 55 45 28 20 45 2C 20 |KNOWN VALUE( E, | 00000950: 57 20 4F 52 20 49 29 22 3B 48 24 00 61 11 88 04 |W OR I)";H$.a...| 00000960: 99 00 80 11 92 04 8B 20 C6 28 47 24 29 AA C6 28 |....... .(G$)..(| 00000970: 48 24 29 B2 31 35 39 20 A7 20 89 20 31 32 30 30 |H$).159 . . 1200| 00000980: 00 9F 11 9C 04 8B 20 C6 28 47 24 29 AA C6 28 48 |...... .(G$)..(H| 00000990: 24 29 B2 31 34 32 20 A7 20 89 20 31 33 33 30 00 |$).142 . . 1330.| 000009A0: BE 11 A6 04 8B 20 C6 28 47 24 29 AA C6 28 48 24 |..... .(G$)..(H$| 000009B0: 29 B2 31 36 30 20 A7 20 89 20 31 34 31 30 00 E1 |).160 . . 1410..| 000009C0: 11 B0 04 85 20 22 57 48 41 54 20 56 41 4C 55 45 |.... "WHAT VALUE| 000009D0: 20 49 53 20 45 20 49 4E 20 56 4F 4C 54 53 22 3B | IS E IN VOLTS";| 000009E0: 45 00 E7 11 BA 04 99 00 0A 12 C4 04 85 20 22 57 |E............ "W| 000009F0: 48 41 54 20 56 41 4C 55 45 20 49 53 20 57 20 49 |HAT VALUE IS W I| 00000A00: 4E 20 57 41 54 54 53 22 3B 57 00 10 12 CE 04 99 |N WATTS";W......| 00000A10: 00 35 12 D8 04 85 20 22 57 48 41 54 20 56 41 4C |.5.... "WHAT VAL| 00000A20: 55 45 20 49 53 20 54 48 45 54 41 20 49 4E 20 44 |UE IS THETA IN D| 00000A30: 45 47 22 3B 54 00 3B 12 E2 04 99 00 4E 12 EC 04 |EG";T.;.....N...| 00000A40: 8B 20 54 B2 30 20 A7 20 89 20 31 33 31 30 00 86 |. T.0 . . 1310..| 00000A50: 12 F6 04 99 20 22 5A 3D 22 3B 28 45 AC 45 AC BE |.... "Z=";(E.E..| 00000A60: 28 54 AC 2E 30 31 37 34 35 33 32 39 33 29 29 AD |(T..017453293)).| 00000A70: 57 3B 22 45 3D 22 3B 45 3B 22 57 3D 22 3B 57 2C |W;"E=";E;"W=";W,| 00000A80: 22 54 3D 22 3B 54 00 8C 12 00 05 99 00 A5 12 0A |"T=";T..........| 00000A90: 05 99 20 22 5A 3D 28 45 2A 45 2A 43 4F 53 28 54 |.. "Z=(E*E*COS(T| 00000AA0: 29 29 2F 57 22 00 B0 12 14 05 89 20 31 39 36 30 |))/W"...... 1960| 00000AB0: 00 BD 12 1E 05 88 20 54 B2 2E 30 30 35 00 C8 12 |...... T..005...| 00000AC0: 28 05 89 20 31 32 37 30 00 EA 12 32 05 85 20 22 |(.. 1270...2.. "| 00000AD0: 57 48 41 54 20 56 41 4C 55 45 20 49 53 20 45 49 |WHAT VALUE IS EI| 00000AE0: 4E 20 56 4F 54 4C 53 22 3B 45 00 F0 12 3C 05 99 |N VOTLS";E...<..| 00000AF0: 00 12 13 46 05 85 20 22 57 48 41 54 20 56 41 4C |...F.. "WHAT VAL| 00000B00: 55 45 20 49 53 20 49 20 49 4E 20 41 4D 50 53 22 |UE IS I IN AMPS"| 00000B10: 3B 49 00 18 13 50 05 99 00 34 13 5A 05 99 22 5A |;I...P...4.Z.."Z| 00000B20: 3D 22 3B 45 AD 49 3B 22 45 3D 22 3B 45 3B 22 49 |=";E.I;"E=";E;"I| 00000B30: 3D 22 3B 49 00 3A 13 64 05 99 00 48 13 6E 05 99 |=";I.:.d...H.n..| 00000B40: 20 22 5A 3D 45 2F 49 22 00 53 13 78 05 89 20 31 | "Z=E/I".S.x.. 1| 00000B50: 39 36 30 00 76 13 82 05 85 20 22 57 48 41 54 20 |960.v.... "WHAT | 00000B60: 56 41 4C 55 45 20 49 53 20 57 20 49 4E 20 57 41 |VALUE IS W IN WA| 00000B70: 54 54 53 22 3B 57 00 7C 13 8C 05 99 00 9E 13 96 |TTS";W.|........| 00000B80: 05 85 20 22 57 48 41 54 20 56 41 4C 55 45 20 49 |.. "WHAT VALUE I| 00000B90: 53 20 49 20 49 4E 20 41 4D 50 53 22 3B 49 00 A4 |S I IN AMPS";I..| 00000BA0: 13 A0 05 99 00 C9 13 AA 05 85 20 22 57 48 41 54 |.......... "WHAT| 00000BB0: 20 56 41 4C 55 45 20 49 53 20 54 48 45 54 41 20 | VALUE IS THETA | 00000BC0: 49 4E 20 44 45 47 22 3B 54 00 CF 13 B4 05 99 00 |IN DEG";T.......| 00000BD0: E2 13 BE 05 8B 20 54 B2 30 20 A7 20 89 20 31 35 |..... T.0 . . 15| 00000BE0: 32 30 00 1A 14 C8 05 99 20 22 5A 3D 22 3B 57 AD |20...... "Z=";W.| 00000BF0: 28 49 AC 49 AC BE 28 54 AC 2E 30 31 37 34 35 33 |(I.I..(T..017453| 00000C00: 32 39 33 29 29 3B 22 49 3D 22 3B 49 3B 22 57 3D |293));"I=";I;"W=| 00000C10: 22 3B 57 3B 22 54 3D 22 3B 54 00 20 14 D2 05 99 |";W;"T=";T. ....| 00000C20: 00 39 14 DC 05 99 20 22 5A 3D 57 2F 28 49 2A 49 |.9.... "Z=W/(I*I| 00000C30: 2A 43 4F 53 28 54 29 29 22 00 44 14 E6 05 89 20 |*COS(T))".D.... | 00000C40: 31 39 36 30 00 51 14 F0 05 88 20 54 B2 2E 30 30 |1960.Q.... T..00| 00000C50: 35 00 5C 14 FA 05 89 20 31 34 38 30 00 62 14 04 |5.\.... 1480.b..| 00000C60: 06 99 00 95 14 0E 06 85 20 22 45 4E 54 45 52 20 |........ "ENTER | 00000C70: 59 4F 55 52 20 31 53 54 20 4B 4E 4F 57 4E 20 56 |YOUR 1ST KNOWN V| 00000C80: 41 4C 55 45 20 28 20 45 2C 20 57 20 4F 52 20 5A |ALUE ( E, W OR Z| 00000C90: 29 22 3B 4A 24 00 9B 14 18 06 99 00 CE 14 22 06 |)";J$.........".| 00000CA0: 85 20 22 45 4E 54 45 52 20 59 4F 55 52 20 32 4E |. "ENTER YOUR 2N| 00000CB0: 44 20 4B 4E 4F 57 4E 20 56 41 4C 55 45 20 28 20 |D KNOWN VALUE ( | 00000CC0: 45 2C 20 57 20 4F 52 20 5A 29 22 3B 4B 24 00 D4 |E, W OR Z)";K$..| 00000CD0: 14 2C 06 99 00 F3 14 36 06 8B 20 C6 28 4A 24 29 |.,.....6.. .(J$)| 00000CE0: AA C6 28 4B 24 29 B2 31 35 36 20 A7 20 89 20 31 |..(K$).156 . . 1| 00000CF0: 36 32 30 00 12 15 40 06 8B 20 C6 28 4A 24 29 AA |620...@.. .(J$).| 00000D00: C6 28 4B 24 29 B2 31 35 39 20 A7 20 89 20 31 37 |.(K$).159 . . 17| 00000D10: 35 30 00 31 15 4A 06 8B 20 C6 28 4A 24 29 AA C6 |50.1.J.. .(J$)..| 00000D20: 28 4B 24 29 B2 31 37 37 20 A7 20 89 20 31 38 33 |(K$).177 . . 183| 00000D30: 30 00 54 15 54 06 85 20 22 57 48 41 54 20 56 41 |0.T.T.. "WHAT VA| 00000D40: 4C 55 45 20 49 53 20 45 20 49 4E 20 56 4F 4C 54 |LUE IS E IN VOLT| 00000D50: 53 22 3B 45 00 5A 15 5E 06 99 00 7D 15 68 06 85 |S";E.Z.^...}.h..| 00000D60: 20 22 57 48 41 54 20 56 41 4C 55 45 20 49 53 20 | "WHAT VALUE IS | 00000D70: 57 20 49 4E 20 57 41 54 54 53 22 3B 57 00 83 15 |W IN WATTS";W...| 00000D80: 72 06 99 00 A8 15 7C 06 85 20 22 57 48 41 54 20 |r.....|.. "WHAT | 00000D90: 56 41 4C 55 45 20 49 53 20 54 48 45 54 41 20 49 |VALUE IS THETA I| 00000DA0: 4E 20 44 45 47 22 3B 54 00 AE 15 86 06 99 00 C1 |N DEG";T........| 00000DB0: 15 90 06 8B 20 54 B2 30 20 A7 20 89 20 31 37 33 |.... T.0 . . 173| 00000DC0: 30 00 F7 15 9A 06 99 20 22 49 3D 22 3B 57 AD 28 |0...... "I=";W.(| 00000DD0: 45 AC BE 28 54 AC 2E 30 31 37 34 35 33 32 39 33 |E..(T..017453293| 00000DE0: 29 29 3B 22 57 3D 22 3B 57 3B 22 45 3D 22 3B 45 |));"W=";W;"E=";E| 00000DF0: 3B 22 54 3D 22 3B 54 00 FD 15 A4 06 99 00 13 16 |;"T=";T.........| 00000E00: AE 06 99 20 22 49 3D 57 2F 28 45 2A 43 4F 53 28 |... "I=W/(E*COS(| 00000E10: 54 29 22 00 1E 16 B8 06 89 20 31 39 36 30 00 2B |T)"...... 1960.+| 00000E20: 16 C2 06 88 20 54 B2 2E 30 30 35 00 36 16 CC 06 |.... T..005.6...| 00000E30: 89 20 31 36 39 30 00 59 16 D6 06 85 20 22 57 48 |. 1690.Y.... "WH| 00000E40: 41 54 20 56 41 4C 55 45 20 49 53 20 45 20 49 4E |AT VALUE IS E IN| 00000E50: 20 56 4F 4C 54 53 22 3B 45 00 5F 16 E0 06 99 00 | VOLTS";E._.....| 00000E60: 81 16 EA 06 85 20 22 57 48 41 54 20 56 41 4C 55 |..... "WHAT VALU| 00000E70: 45 20 49 53 20 5A 20 49 4E 20 49 4D 50 2E 22 3B |E IS Z IN IMP.";| 00000E80: 5A 00 87 16 F4 06 99 00 A4 16 FE 06 99 20 22 49 |Z............ "I| 00000E90: 3D 22 3B 45 AD 5A 3B 22 45 3D 22 3B 45 3B 22 5A |=";E.Z;"E=";E;"Z| 00000EA0: 3D 22 3B 5A 00 AA 16 08 07 99 00 B8 16 12 07 99 |=";Z............| 00000EB0: 20 22 49 3D 45 2F 5A 22 00 C3 16 1C 07 89 20 31 | "I=E/Z"...... 1| 00000EC0: 39 36 30 00 E6 16 26 07 85 20 22 57 48 41 54 20 |960...&.. "WHAT | 00000ED0: 56 41 4C 55 45 20 49 53 20 57 20 49 4E 20 57 41 |VALUE IS W IN WA| 00000EE0: 54 54 53 22 3B 57 00 EC 16 30 07 99 00 0E 17 3A |TTS";W...0.....:| 00000EF0: 07 85 20 22 57 48 41 54 20 56 41 4C 55 45 20 49 |.. "WHAT VALUE I| 00000F00: 53 20 5A 20 49 4E 20 49 4D 50 2E 22 3B 5A 00 14 |S Z IN IMP.";Z..| 00000F10: 17 44 07 99 00 39 17 4E 07 85 20 22 57 48 41 54 |.D...9.N.. "WHAT| 00000F20: 20 56 41 4C 55 45 20 49 53 20 54 48 45 54 41 20 | VALUE IS THETA | 00000F30: 49 4E 20 44 45 47 22 3B 54 00 3F 17 58 07 99 00 |IN DEG";T.?.X...| 00000F40: 51 17 62 07 8B 54 B2 30 20 A7 20 89 20 31 39 34 |Q.b..T.0 . . 194| 00000F50: 30 00 87 17 6C 07 99 20 22 49 3D 22 3B 57 AD 28 |0...l.. "I=";W.(| 00000F60: 5A AC BE 28 54 AC 2E 30 31 37 34 35 33 32 39 33 |Z..(T..017453293| 00000F70: 29 29 3B 22 57 3D 22 3B 57 3B 22 5A 3D 22 3B 5A |));"W=";W;"Z=";Z| 00000F80: 3B 22 54 3D 22 3B 54 00 8D 17 76 07 99 00 A4 17 |;"T=";T...v.....| 00000F90: 80 07 99 20 22 49 3D 57 2F 28 5A 2A 43 4F 53 28 |... "I=W/(Z*COS(| 00000FA0: 54 29 29 22 00 AF 17 8A 07 89 20 31 39 36 30 00 |T))"...... 1960.| 00000FB0: BC 17 94 07 88 20 54 B2 2E 30 30 35 00 C7 17 9E |..... T..005....| 00000FC0: 07 89 20 31 39 30 30 00 CD 17 A8 07 80 00 D5 17 |.. 1900.........| 00000FD0: B2 07 99 3A 99 00 FF 17 BC 07 99 22 54 48 45 20 |...:......."THE | 00000FE0: 46 4F 4C 4C 4F 57 49 4E 47 20 4C 45 54 54 45 52 |FOLLOWING LETTER| 00000FF0: 53 20 57 49 4C 4C 20 42 45 20 55 53 45 44 22 00 |S WILL BE USED".| 00001000: 05 18 C6 07 99 00 31 18 D0 07 99 22 46 4F 52 20 |......1...."FOR | 00001010: 41 42 42 52 45 56 49 41 54 49 4F 4E 53 20 4F 46 |ABBREVIATIONS OF| 00001020: 20 54 48 45 20 45 4C 45 43 54 52 4F 4E 49 43 53 | THE ELECTRONICS| 00001030: 22 00 37 18 DA 07 99 00 44 18 E4 07 99 22 54 45 |".7.....D...."TE| 00001040: 52 4D 53 22 00 4A 18 EE 07 99 00 73 18 F8 07 99 |RMS".J.....s....| 00001050: 22 45 20 3D 20 56 4F 4C 54 41 47 45 20 20 20 49 |"E = VOLTAGE I| 00001060: 20 3D 20 43 55 52 52 45 4E 54 20 49 4E 20 41 4D | = CURRENT IN AM| 00001070: 50 53 22 00 79 18 02 08 99 00 96 18 0C 08 99 22 |PS".y.........."| 00001080: 5A 20 3D 20 49 4D 50 45 44 41 4E 43 45 20 49 4E |Z = IMPEDANCE IN| 00001090: 20 4F 48 4D 53 22 00 9C 18 16 08 99 00 B6 18 20 | OHMS"......... | 000010A0: 08 99 22 50 20 3D 20 50 4F 57 45 52 20 49 4E 20 |.."P = POWER IN | 000010B0: 57 41 54 54 53 22 00 BC 18 2A 08 99 00 CD 18 34 |WATTS"...*.....4| 000010C0: 08 81 20 47 B2 31 A4 35 30 30 30 3A 82 00 D6 18 |.. G.1.5000:....| 000010D0: 3E 08 89 31 36 30 00 00 00 |>..160... |
..=....53280,0:.53281,0:.".":E.31744:. C64 MODS BY WIM '83.K.D.TC.TI.200.F.N. .".BY: EDWARD SHIELDS".Y.X.. W.B(32812.W )...... Q.B(32819.W). .... TC.TI . . 140 ...... 1970.W. .."FORMULA'S TO FIND A-C &D-C OHM'S LAW"............"YOU HAVE FOU R POSSIBLE UNKNOWNS E,W,Z OR I.".......F .H.. "WHICH IS YOUR UNKNOWN( E, W, Z OR I)";A$.L.R...R.....E.... A$."E" . 280.X. ... A$."W" . 680...... A$."Z" . 1130. .. .. A$."I" . 1540............ "ENTER YOUR 1ST KNOWN VARIABLE( W, Z OR I)";B$...". . "ENTER YOUR 2ND KNOWN VARIABLE( W, Z O R I)";C$...,.. F(B$).F(C$).160 . . 340.L .6.. F(C$).F(B$).177 . . 470.J.@.. F(C$) .F(B$).163 . . 600.P.J.....T.. "WHAT VAL UE IS I IN AMPS";I...^.....H.. "WHAT VAL UE IS W IN WATTS";W.A.R.....|.. "WHAT VA LUE IS THETA IN DEG";T............ T.0 . . 450.4.... "E=";W.(I..(T..017453293)); "W=";W;"I=";I;"T=";".:.....Q.... "E=W/(I *COS(T))".\.... 1960.I.B.. T..005.S.L.. 410...V.. "WHAT VALUE IS Z IN IMP.";Z... ......... "WHAT VALUE IS W IN WATTS";W.D .......... "WHAT VALUE IS THETA IN DEG." ;T............ T.0 . . 580.=.... "E=";.( (W.Z).(.(T..017453293)));"Z=";Z;"W=";W;" T=";T.C.&...A.0.. "E=SQR((W*R)/(COS(T))) ".L.:.. 1960.Y.D.. T..005...N.. 540...X. . "WHAT VALUE IS I IN AMPS";I...B...M.L. . "WHAT VALUE IS Z IN IMP.";Z.S.V....... . "E=";I.Z;"I=";I;"Z=";Z............ "E= I*Z"...... 1960.D.... "ENTER YOUR 1ST KN OWN VARIABLE( E, Z OR I)";D$.J......... "ENTER YOUR 2ND KNOWN VARIABLE( E, Z OR I)";F$...F.. F(D$).F(F$).159 . . 740... P.. F(F$).F(D$).163 . . 870.Z.Z.. F(F$). F(D$).142 . . 1000......"WHAT VALUE IS E IN VOLTS";E.......$.... "WHAT VALUE IS Z IN IMP.";Z.*.....O.... "WHAT VALUE IS THETA IN DEG";T.U.....G. .. T.0 . . 850. ..*.. "W=";((E.E)..(T..017453293)).Z;"E= ";E;"Z=";Z;"T=";T...4...B.>.. "W=((E*E*C OS(T))/Z)".M.H.. 1960.Z.R.. T..005...\.. 810...F.." WHAT VALUE IS Z IN IMP.";Z.. .P.....Z.. "WHAT VALUE IS I IN AMPS";I.4 .....Y.... "WHAT VALUE IS THETA IN DEG"; T._.....Q.... T.0 . . 980...... "W=";I.I .Z..(T..017453293);"I=";I;"Z=";Z;"T=";T. ......O.... "W=I*I*Z*COS(T*.017453293)". Z.J.. 1960...T.. T..005...... 940...... "WHAT VALUE IS E IN VOLTS";E.......<.... "WHAT VALUE IS I IN AMPS";I.B.....G.... "WHAT VALUE IS THETA IN DEG";T.M....... $.. T.0 . . 1110...... "W=";I.E..(T..017 453293);"I=";I;"E=";E;"T=";T...8...O.B.. "W=I*E*COS(T)".Z.L.. 1960...V.. T..005. ..`.. 1070.#.J.. "ENTER YOUR 1ST KNOWN V ALUE( E,W OR I)";G$.).T...[.~.. "ENTER Y OUR 2ND KNOWN VALUE( E, W OR I)";H$.A... ....... F(G$).F(H$).159 . . 1200...... F (G$).F(H$).142 . . 1330...... F(G$).F(H$ ).160 . . 1410...... "WHAT VALUE IS E IN VOLTS";E.........D.. "WHAT VALUE IS W I N WATTS";W...N...5.X.. "WHAT VALUE IS TH ETA IN DEG";T.;.....N.... T.0 . . 1310.. .... "Z=";(E.E..(T..017453293)).W;"E=";E ;"W=";W,"T=";T............ "Z=(E*E*COS(T ))/W"...... 1960...... T..005.H.(.. 1270 ...2.. "WHAT VALUE IS EIN VOTLS";E...<.. ...F.. "WHAT VALUE IS I IN AMPS";I...P.. .4.Z.."Z=";E.I;"E=";E;"I=";I.:.D...H.N.. "Z=E/I".S.X.. 1960.V.... "WHAT VALUE IS W IN WATTS";W.|.......... "WHAT VALUE I S I IN AMPS";I... ...I.... "WHAT VALUE I S THETA IN DEG";T.O.......... T.0 . . 15 20...H.. "Z=";W.(I.I..(T..017453293));"I =";I;"W=";W;"T=";T. .R...9.... "Z=W/(I*I *COS(T))".D.... 1960.Q.... T..005.\.... 1480.B.......... "ENTER YOUR 1ST KNOWN V ALUE ( E, W OR Z)";J$.......N.".. "ENTER YOUR 2ND KNOWN VALUE ( E, W OR Z)";K$.T .,.....6.. F(J$).F(K$).156 . . 1620...@. . F(J$).F(K$).159 . . 1750.1.J.. F(J$).F (K$).177 . . 1830.T.T.. "WHAT VALUE IS E IN VOLTS";E.Z.^...}.H.. "WHAT VALUE IS W IN WATTS";W...R.....|.. "WHAT VALUE IS THETA IN DEG";T.......A.... T.0 . . 173 0...... "I=";W.(E..(T..017453293));"W="; W;"E=";E;"T=";T............ "I=W/(E*COS( T)"...... 1960.+.B.. T..005.6.L.. 1690.Y .V.. "WHAT VALUE IS E IN VOLTS";E._..... ..... "WHAT VALUE IS Z IN IMP.";Z....... ..... "I=";E.Z;"E=";E;"Z=";Z............ "I=E/Z".C.... 1960...&.. "WHAT VALUE IS W IN WATTS";W...0.....:.. "WHAT VALUE I S Z IN IMP.";Z...D...9.N.. "WHAT VALUE I S THETA IN DEG";T.?.X...Q.B..T.0 . . 194 0...L.. "I=";W.(Z..(T..017453293));"W="; W;"Z=";Z;"T=";T...V........ "I=W/(Z*COS( T))"...... 1960...... T..005.G.... 1900. M.....U....:......."THE FOLLOWING LETTER S WILL BE USED"...F...1.P.."FOR ABBREVIA TIONS OF THE ELECTRONICS".7.Z...D...."TE RMS".J.....S...."E = VOLTAGE I = CURRE NT IN AMPS".Y.........."Z = IMPEDANCE IN OHMS"......... .."P = POWER IN WATTS".. .*...M.4.. G.1.5000:..V.>..160...
> CLICK IMAGE PREVIEW FOR FULL MODAL