WET VAN OHM
FILE INFORMATION
FILENAME(S): WET VAN OHM
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:09:13
APPEARS ON: 1 disk(s)
FILE HASH
dfc5ea26ff17d5d9f8f284c1c9d3283484866691ac7d073d224e49486171d963
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HULPPROGRAM | WET VAN OHM | PRG | DuncanTwain | 27 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 00 00 99 20 C7 28 31 34 37 29 C7 28 |....... .(147).(| 00000010: 31 34 29 C7 28 38 29 3B 00 38 08 01 00 97 20 35 |14).(8);.8.... 5| 00000020: 33 32 38 30 2C 30 3A 97 20 35 33 32 38 31 2C 30 |3280,0:. 53281,0| 00000030: 3A 97 20 36 34 36 2C 32 00 69 08 02 00 99 22 C0 |:. 646,2.i....".| 00000040: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000050: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000060: C0 C0 C0 C0 C0 C0 C0 22 3B 00 93 08 03 00 99 22 |.......";......"| 00000070: 81 20 20 20 20 20 20 2A 2A 2A 2A 20 D0 D2 C9 CE |. **** ....| 00000080: C3 C9 D0 CC C5 A0 CF C6 C6 A0 CF C8 CD 20 2A 2A |............. **| 00000090: 2A 2A 22 00 C8 08 04 00 99 22 1C C0 C0 C0 C0 C0 |**"......"......| 000000A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000000B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000000C0: C0 C0 C0 11 11 11 11 22 00 10 09 05 00 99 20 A3 |......."...... .| 000000D0: 36 29 3B 22 1E D4 48 49 53 20 50 52 4F 47 52 41 |6);"..HIS PROGRA| 000000E0: 4D 4D 20 49 53 20 57 52 49 54 54 45 4E 20 42 59 |MM IS WRITTEN BY| 000000F0: 22 3A 99 22 11 1F 20 20 20 20 20 20 20 20 20 20 |":.".. | 00000100: 20 20 20 3D 20 CF A0 CE A0 D9 A0 D8 A0 3D A0 22 | = ........=."| 00000110: 00 5F 09 06 00 99 20 22 11 1E 20 20 20 20 20 20 |._.... ".. | 00000120: 20 20 20 20 20 D3 20 4F 20 46 20 54 20 57 20 41 | . O F T W A| 00000130: 20 52 20 45 22 3A 99 22 11 11 11 9C 20 20 20 20 | R E":.".... | 00000140: 20 20 12 20 20 48 49 54 20 41 4E 59 20 4B 45 59 | . HIT ANY KEY| 00000150: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 20 22 00 | TO CONTINUE ".| 00000160: 98 09 07 00 81 49 B2 30 A4 31 35 3A 81 4A B2 35 |.....I.0.15:.J.5| 00000170: 35 37 30 39 A4 35 35 37 31 39 A9 32 3A 97 4A 2C |5709.55719.2:.J,| 00000180: 49 3A 81 44 B2 31 A4 35 3A A1 58 24 3A 8B 58 24 |I:.D.1.5:.X$:.X$| 00000190: B3 B1 22 22 A7 20 31 30 00 AC 09 08 00 82 20 44 |.."". 10...... D| 000001A0: 3A 82 20 4A 3A 82 20 49 3A 89 20 37 00 C2 09 0A |:. J:. I:. 7....| 000001B0: 00 99 20 C7 28 31 34 37 29 C7 28 31 34 29 C7 28 |.. .(147).(14).(| 000001C0: 38 29 00 E2 09 14 00 97 20 35 33 32 38 30 2C 36 |8)...... 53280,6| 000001D0: 3A 97 20 35 33 32 38 31 2C 36 3A 97 20 36 34 36 |:. 53281,6:. 646| 000001E0: 2C 33 00 14 0A 1E 00 99 20 22 93 20 20 20 20 20 |,3...... ". | 000001F0: C6 49 4C 4C 20 49 4E 20 C9 2C D5 20 4F 52 20 D2 |.ILL IN .,. OR .| 00000200: 20 54 4F 20 43 4F 4D 50 55 54 45 20 49 54 20 20 | TO COMPUTE IT | 00000210: 20 20 20 22 00 44 0A 20 00 99 20 22 20 C5 4E 54 | ".D. .. " .NT| 00000220: 45 52 20 C9 20 49 4E 20 C1 4D 50 45 52 45 2C 20 |ER . IN .MPERE, | 00000230: D5 20 49 4E 20 D6 4F 4C 54 2C 20 D2 20 49 4E 20 |. IN .OLT, . IN | 00000240: CF 48 4D 22 00 64 0A 21 00 99 20 22 11 2D 20 50 |.HM".d.!.. ".- P| 00000250: 4C 45 41 53 45 20 45 4E 54 45 52 20 C9 20 3A 20 |LEASE ENTER . : | 00000260: C9 9D 22 3B 00 7E 0A 22 00 97 20 31 39 2C 36 34 |..";.~.".. 19,64| 00000270: 3A 85 20 49 24 3A 97 20 31 39 2C 30 3A 99 00 9E |:. I$:. 19,0:...| 00000280: 0A 23 00 99 20 22 11 2D 20 50 4C 45 41 53 45 20 |.#.. ".- PLEASE | 00000290: 45 4E 54 45 52 20 D5 20 3A 20 D5 9D 22 3B 00 B8 |ENTER . : ..";..| 000002A0: 0A 24 00 97 20 31 39 2C 36 34 3A 85 20 55 24 3A |.$.. 19,64:. U$:| 000002B0: 97 20 31 39 2C 30 3A 99 00 D8 0A 25 00 99 20 22 |. 19,0:....%.. "| 000002C0: 11 2D 20 50 4C 45 41 53 45 20 45 4E 54 45 52 20 |.- PLEASE ENTER | 000002D0: D2 20 3A 20 D2 9D 22 3B 00 F2 0A 26 00 97 20 31 |. : ..";...&.. 1| 000002E0: 39 2C 36 34 3A 85 20 52 24 3A 97 20 31 39 2C 30 |9,64:. R$:. 19,0| 000002F0: 3A 99 00 FF 0A 32 00 99 20 C7 28 31 34 37 29 00 |:....2.. .(147).| 00000300: 1B 0B 3C 00 8B 20 49 24 B2 22 49 22 20 B0 20 49 |..<.. I$."I" . I| 00000310: 24 B2 22 C9 22 20 A7 20 31 30 30 00 37 0B 46 00 |$."." . 100.7.F.| 00000320: 8B 20 55 24 B2 22 55 22 20 B0 20 55 24 B2 22 D5 |. U$."U" . U$.".| 00000330: 22 20 A7 20 32 30 30 00 53 0B 50 00 8B 20 52 24 |" . 200.S.P.. R$| 00000340: B2 22 52 22 20 B0 20 52 24 B2 22 D2 22 20 A7 20 |."R" . R$."." . | 00000350: 33 30 30 00 5C 0B 5A 00 89 20 33 30 00 74 0B 64 |300.\.Z.. 30.t.d| 00000360: 00 8F 20 2A 2A 20 43 4F 4D 50 55 54 45 20 2D 49 |.. ** COMPUTE -I| 00000370: 2D 20 2A 2A 00 81 0B 6E 00 99 20 C7 28 31 34 37 |- **...n.. .(147| 00000380: 29 00 A1 0B 78 00 55 B2 C5 28 55 24 29 3A 52 B2 |)...x.U..(U$):R.| 00000390: C5 28 52 24 29 3A 8B 55 B2 30 B0 52 B2 30 A7 33 |.(R$):.U.0.R.0.3| 000003A0: 30 00 B8 0B 82 00 99 20 22 11 11 1D 1D 1D C9 20 |0...... "...... | 000003B0: 3D 20 D5 20 2F 20 D2 22 00 D0 0B 8C 00 99 20 22 |= . / ."...... "| 000003C0: 11 1D 1D 1D C9 20 3D 22 3B 55 3B 22 2F 22 3B 52 |..... =";U;"/";R| 000003D0: 00 ED 0B 96 00 99 20 22 11 1D 1D 1D C9 20 3D 22 |...... "..... ="| 000003E0: 3B 55 AD 52 3B 22 C1 4D 50 45 52 45 22 00 F7 0B |;U.R;".MPERE"...| 000003F0: A0 00 8D 20 34 30 30 00 0F 0C C8 00 8F 20 2A 2A |... 400...... **| 00000400: 20 43 4F 4D 50 55 54 45 20 2D 55 2D 20 2A 2A 00 | COMPUTE -U- **.| 00000410: 1C 0C D2 00 99 20 C7 28 31 34 37 29 00 30 0C DC |..... .(147).0..| 00000420: 00 49 B2 C5 28 49 24 29 3A 52 B2 C5 28 52 24 29 |.I..(I$):R..(R$)| 00000430: 00 47 0C E6 00 99 20 22 11 11 1D 1D 1D D5 20 3D |.G.... "...... =| 00000440: 20 C9 20 2A 20 D2 22 00 5F 0C F0 00 99 20 22 11 | . * ."._.... ".| 00000450: 1D 1D 1D D5 20 3D 22 3B 49 3B 22 2A 22 3B 52 00 |.... =";I;"*";R.| 00000460: 7A 0C FA 00 99 20 22 11 1D 1D 1D D5 20 3D 22 3B |z.... "..... =";| 00000470: 49 AC 52 3B 22 D6 4F 4C 54 22 00 84 0C 04 01 8D |I.R;".OLT"......| 00000480: 20 34 30 30 00 9C 0C 2C 01 8F 20 2A 2A 20 43 4F | 400...,.. ** CO| 00000490: 4D 50 55 54 45 20 2D 52 2D 20 2A 2A 00 A9 0C 36 |MPUTE -R- **...6| 000004A0: 01 99 20 C7 28 31 34 37 29 00 BD 0C 40 01 49 B2 |.. .(147)...@.I.| 000004B0: C5 28 49 24 29 3A 55 B2 C5 28 55 24 29 00 D4 0C |.(I$):U..(U$)...| 000004C0: 4A 01 99 20 22 11 11 1D 1D 1D D2 20 3D 20 D5 20 |J.. "...... = . | 000004D0: 2F 20 C9 22 00 EC 0C 54 01 99 20 22 11 1D 1D 1D |/ ."...T.. "....| 000004E0: D2 20 3D 22 3B 55 3B 22 2F 22 3B 49 00 06 0D 5E |. =";U;"/";I...^| 000004F0: 01 99 20 22 11 1D 1D 1D D2 20 3D 22 3B 55 AD 49 |.. "..... =";U.I| 00000500: 3B 22 CF 48 4D 22 00 10 0D 68 01 8D 20 34 30 30 |;".HM"...h.. 400| 00000510: 00 3A 0D 90 01 99 20 22 11 11 11 1D 1D 12 20 20 |.:.... "...... | 00000520: 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |HIT ANY KEY TO C| 00000530: 4F 4E 54 49 4E 55 45 20 20 22 00 48 0D 9A 01 92 |ONTINUE ".H....| 00000540: 20 31 39 38 2C 32 35 35 00 51 0D A4 01 89 20 33 | 198,255.Q.... 3| 00000550: 30 00 00 00 |0... |
....... G(147)G(14)G(8);.8.... 53280,0:. 53281,0:. 646,2.I...."................. .......................";......". * *** PRINCIPLE OFF OHM ****".H...."...... ......................................." ...... .6);".THIS PROGRAMM IS WRITTEN BY ":.".. = O N Y X = "._.... " .. S O F T W A R E":.".... . HIT ANY KEY TO CONTINUE "......I.0 .15:.J.55709.55719.2:.J,I:.D.1.5:.X$:.X$ .."". 10...... D:. J:. I:. 7.B.... G(147 )G(14)G(8)...... 53280,6:. 53281,6:. 646 ,3...... ". FILL IN I,U OR R TO COMP UTE IT ".D. .. " ENTER I IN AMPERE, U IN VOLT, R IN OHM".D.!.. ".- PLEASE EN TER I : I.";.~.".. 19,64:. I$:. 19,0:... .#.. ".- PLEASE ENTER U : U.";...$.. 19, 64:. U$:. 19,0:..X.%.. ".- PLEASE ENTER R : R.";...&.. 19,64:. R$:. 19,0:....2.. G(147)...<.. I$."I" . I$."I" . 100.7.F. . U$."U" . U$."U" . 200.S.P.. R$."R" . R $."R" . 300.\.Z.. 30.T.D.. ** COMPUTE -I - **...N.. G(147)...X.U.E(U$):R.E(R$):.U .0.R.0.30...... ".....I = U / R".P.... " ....I =";U;"/";R...... "....I =";U.R;"AM PERE"... .. 400...H.. ** COMPUTE -U- **. ..R.. G(147).0...I.E(I$):R.E(R$).G.... " .....U = I * R"._.... "....U =";I;"*";R. Z.... "....U =";I.R;"VOLT"...... 400..., .. ** COMPUTE -R- **...6.. G(147)...@.I. E(I$):U.E(U$).T.J.. ".....R = U / I"...T .. "....R =";U;"/";I...^.. "....R =";U.I ;"OHM"...H.. 400.:.... "...... HIT ANY KEY TO CONTINUE ".H.... 198,255.Q.... 3 0...
> CLICK IMAGE PREVIEW FOR FULL MODAL