RESISTOR
FILE INFORMATION
FILENAME(S): RESISTOR
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 19:47:16
APPEARS ON: 1 disk(s)
FILE HASH
36585ba4f68d0dfa22dd47cc3f33637826c6d90a6c79edc23af24a7d3bfa08ba
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A3 1 | RESISTOR | PRG | Curtcool, Frank | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..'.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 08 02 00 8F 20 2A 20 |*******.M.... * |
00000030: 50 52 4F 47 2E 20 44 45 52 20 41 4E 47 49 56 45 |PROG. DER ANGIVE|
00000040: 52 20 52 45 53 49 53 54 4F 52 2D 20 2A 00 73 08 |R RESISTOR- *.s.|
00000050: 03 00 8F 20 2A 20 56 41 45 52 44 49 20 55 44 20 |... * VAERDI UD |
00000060: 46 52 41 20 46 41 52 56 45 4B 4F 44 45 20 20 20 |FRA FARVEKODE |
00000070: 20 20 2A 00 99 08 04 00 8F 20 2A 2A 2A 2A 2A 2A | *...... ******|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BF 08 05 00 8F 20 |*********...... |
000000A0: 2A 20 20 20 20 20 20 20 20 53 4B 41 45 52 4D 46 |* SKAERMF|
000000B0: 41 52 56 45 52 20 20 20 20 20 20 20 20 20 2A 00 |ARVER *.|
000000C0: E5 08 06 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 2A 00 FF 08 07 00 97 20 35 33 32 38 |*****...... 5328|
000000F0: 30 2C 30 3A 8F 20 4B 41 4E 54 20 53 4F 52 54 00 |0,0:. KANT SORT.|
00000100: 1D 09 08 00 97 20 35 33 32 38 31 2C 4F 3A 8F 20 |..... 53281,O:. |
00000110: 42 41 47 47 52 55 4E 44 20 53 4F 52 54 00 3A 09 |BAGGRUND SORT.:.|
00000120: 09 00 97 20 36 34 36 2C 31 31 3A 20 20 8F 20 43 |... 646,11: . C|
00000130: 55 52 53 4F 52 20 47 52 41 41 00 5F 09 0A 00 8F |URSOR GRAA._....|
00000140: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000160: 84 09 0B 00 8F 20 2A 20 20 20 20 20 20 20 48 4F |..... * HO|
00000170: 56 45 44 50 52 4F 47 52 41 4D 20 20 20 20 20 20 |VEDPROGRAM |
00000180: 20 20 20 2A 00 A9 09 0C 00 8F 20 2A 2A 2A 2A 2A | *...... *****|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B2 09 0D 00 99 22 |*********......"|
000001B0: 93 22 00 C0 09 0F 00 81 20 49 B2 30 20 A4 20 39 |."...... I.0 . 9|
000001C0: 00 CC 09 14 00 87 20 41 24 28 49 29 00 DC 09 1E |...... A$(I)....|
000001D0: 00 42 24 28 49 29 B2 41 24 28 49 29 00 EC 09 28 |.B$(I).A$(I)...(|
000001E0: 00 43 24 28 49 29 B2 41 24 28 49 29 00 F4 09 32 |.C$(I).A$(I)...2|
000001F0: 00 82 20 49 00 FE 09 41 00 41 24 B2 22 22 00 08 |.. I...A.A$.""..|
00000200: 0A 42 00 42 24 B2 41 24 00 12 0A 43 00 43 24 B2 |.B.B$.A$...C.C$.|
00000210: 41 24 00 2F 0A 46 00 99 22 52 45 53 49 53 54 4F |A$./.F.."RESISTO|
00000220: 52 45 4E 53 20 46 41 52 56 45 4B 4F 44 45 22 00 |RENS FARVEKODE".|
00000230: 35 0A 50 00 99 00 4A 0A 5A 00 85 22 31 2E 20 46 |5.P...J.Z.."1. F|
00000240: 41 52 56 45 22 3B 41 24 3A 99 00 5B 0A 64 00 8B |ARVE";A$:..[.d..|
00000250: 20 41 24 B2 22 22 20 A7 20 39 30 00 70 0A 6E 00 | A$."" . 90.p.n.|
00000260: 85 22 32 2E 20 46 41 52 56 45 22 3B 42 24 3A 99 |."2. FARVE";B$:.|
00000270: 00 82 0A 78 00 8B 20 42 24 B2 22 22 20 A7 20 31 |...x.. B$."" . 1|
00000280: 31 30 00 97 0A 82 00 85 22 33 2E 20 46 41 52 56 |10......"3. FARV|
00000290: 45 22 3B 43 24 3A 99 00 A9 0A 8C 00 8B 20 43 24 |E";C$:....... C$|
000002A0: B2 22 22 20 A7 20 31 33 30 00 B3 0A 96 00 8D 31 |."" . 130......1|
000002B0: 30 30 30 00 C6 0A A0 00 44 B2 28 28 41 AC 31 30 |000.....D.((A.10|
000002C0: 29 AA 42 29 AC 43 00 D9 0A AA 00 8B 20 44 B3 31 |).B).C...... D.1|
000002D0: 30 30 30 20 A7 20 35 30 30 00 EC 0A B4 00 8B 20 |000 . 500...... |
000002E0: 44 B3 31 45 AA 36 20 A7 20 35 31 30 00 F2 0A BE |D.1E.6 . 510....|
000002F0: 00 99 00 11 0B C8 00 99 22 56 41 45 52 44 49 45 |........"VAERDIE|
00000300: 4E 3D 22 20 44 AD 31 45 AA 36 20 22 4D 4F 48 4D |N=" D.1E.6 "MOHM|
00000310: 22 00 1B 0B 2C 01 89 20 36 30 30 00 21 0B F4 01 |"...,.. 600.!...|
00000320: 99 00 39 0B F9 01 99 22 56 41 45 52 44 49 45 4E |..9...."VAERDIEN|
00000330: 3D 22 20 44 22 4F 48 4D 22 00 43 0B FC 01 89 20 |=" D"OHM".C.... |
00000340: 36 30 30 00 49 0B FE 01 99 00 68 0B 00 02 99 22 |600.I.....h...."|
00000350: 56 41 45 52 44 49 45 4E 3D 22 20 44 AD 31 30 30 |VAERDIEN=" D.100|
00000360: 30 20 22 4B 4F 48 4D 22 00 8C 0B 26 02 8F 20 2A |0 "KOHM"...&.. *|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B0 0B 27 |************...'|
00000390: 02 8F 20 2A 20 20 20 20 20 20 20 20 47 45 54 20 |.. * GET |
000003A0: 52 4F 55 54 49 4E 45 20 20 20 20 20 20 20 20 2A |ROUTINE *|
000003B0: 00 D4 0B 28 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...(.. *********|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003D0: 2A 2A 2A 2A 00 F6 0B 58 02 99 22 56 49 4C 20 44 |****...X.."VIL D|
000003E0: 55 20 53 54 41 52 54 45 20 46 4F 52 46 52 41 20 |U STARTE FORFRA |
000003F0: 28 4A 2F 4E 29 22 00 0D 0C 62 02 A1 20 5A 24 3A |(J/N)"...b.. Z$:|
00000400: 8B 20 5A 24 B2 22 22 20 A7 20 36 31 30 00 26 0C |. Z$."" . 610.&.|
00000410: 6C 02 8B 20 5A 24 B2 22 4A 22 20 A7 20 99 22 93 |l.. Z$."J" . .".|
00000420: 22 3A 8A 20 31 30 00 37 0C 76 02 8B 20 5A 24 B2 |":. 10.7.v.. Z$.|
00000430: 22 4E 22 20 A7 20 80 00 4B 0C 80 02 8B 20 5A 24 |"N" . ..K.... Z$|
00000440: B3 B1 22 4E 22 20 A7 20 36 31 30 00 6F 0C 8A 02 |.."N" . 610.o...|
00000450: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000470: 7B 0C E8 03 81 20 49 B2 31 A4 39 00 90 0C F2 03 |{.... I.1.9.....|
00000480: 8B 20 41 24 B2 41 24 28 49 29 20 A7 20 41 B2 49 |. A$.A$(I) . A.I|
00000490: 00 A5 0C FC 03 8B 20 42 24 B2 42 24 28 49 29 20 |...... B$.B$(I) |
000004A0: A7 20 42 B2 49 00 BD 0C 06 04 8B 20 43 24 B2 43 |. B.I...... C$.C|
000004B0: 24 28 49 29 20 A7 20 43 B2 31 30 AE 49 00 C5 0C |$(I) . C.10.I...|
000004C0: 10 04 82 20 49 00 DB 0C 1A 04 8B 20 41 24 B2 22 |... I...... A$."|
000004D0: 53 4F 52 54 22 20 A7 20 41 B2 31 00 F2 0C 24 04 |SORT" . A.1...$.|
000004E0: 8B 20 43 24 B2 22 47 55 4C 44 22 20 A7 20 43 B2 |. C$."GULD" . C.|
000004F0: 2E 31 00 0A 0D 2E 04 8B 20 43 24 B2 22 53 30 4C |.1...... C$."S0L|
00000500: 56 22 20 A7 20 43 B2 2E 30 31 00 10 0D 38 04 8E |V" . C..01...8..|
00000510: 00 4A 0D 42 04 83 20 53 4F 52 54 2C 42 52 55 4E |.J.B.. SORT,BRUN|
00000520: 2C 52 30 44 2C 4F 52 41 4E 47 45 2C 47 55 4C 2C |,R0D,ORANGE,GUL,|
00000530: 47 52 30 4E 2C 42 4C 41 41 2C 56 49 4F 4C 45 54 |GR0N,BLAA,VIOLET|
00000540: 2C 47 52 41 41 2C 48 56 49 44 00 00 00 |,GRAA,HVID... |
..'.... *******************************.
M.... * PROG. DER ANGIVER RESISTOR- *.S.
... * VAERDI UD FRA FARVEKODE *.....
. *******************************......
* SKAERMFARVER *...... **
*****************************...... 5328
0,0:. KANT SORT...... 53281,O:. BAGGRUND
SORT.:.... 646,11: . CURSOR GRAA._....
******************************...... *
HOVEDPROGRAM *...... *****
*************************......"."......
I.0 . 9.L.... A$(I).....B$(I).A$(I)...(
.C$(I).A$(I)...2.. I...A.A$.""...B.B$.A$
...C.C$.A$./.F.."RESISTORENS FARVEKODE".
5.P...J.Z.."1. FARVE";A$:..[.D.. A$."" .
90.P.N.."2. FARVE";B$:....X.. B$."" . 1
10......"3. FARVE";C$:....... C$."" . 13
0......1000.F. .D.((A.10).B).C.Y.... D.1
000 . 500...... D.1E.6 . 510.........H..
"VAERDIEN=" D.1E.6 "MOHM"...,.. 600.!...
..9...."VAERDIEN=" D"OHM".C.... 600.I...
..H...."VAERDIEN=" D.1000 "KOHM"...&.. *
****************************...'.. *
GET ROUTINE *.T.(.. *********
********************...X.."VIL DU STARTE
FORFRA (J/N)"...B.. Z$:. Z$."" . 610.&.
L.. Z$."J" . .".":. 10.7.V.. Z$."N" . ..
K.... Z$.."N" . 610.O.... **************
***************.{.... I.1.9...... A$.A$(
I) . A.I...... B$.B$(I) . B.I...... C$.C
$(I) . C.10.I.E.... I...... A$."SORT" .
A.1...$.. C$."GULD" . C..1...... C$."S0L
V" . C..01...8...J.B.. SORT,BRUN,R0D,ORA
NGE,GUL,GR0N,BLAA,VIOLET,GRAA,HVID...
> CLICK IMAGE PREVIEW FOR FULL MODAL