SET COLORS
FILE INFORMATION
FILENAME(S): SET COLORS
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 21:23:59
APPEARS ON: 1 disk(s)
FILE HASH
98dc60b7e824b2451fc197e9f38c99d75299d0385df9eac88c19c675e5f3d0ac
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 44 1 | SET COLORS | PRG | DuncanTwain | 22 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 12 08 28 23 8F 20 53 45 54 20 43 4F 4C 4F |....(#. SET COLO|
00000010: 52 53 00 1A 08 32 23 43 B2 31 00 47 08 3C 23 42 |RS...2#C.1.G.<#B|
00000020: 24 B2 22 45 4E 54 45 52 20 4E 55 4D 42 45 52 20 |$."ENTER NUMBER |
00000030: 4F 46 20 43 4F 4C 4F 52 20 59 4F 55 20 57 41 4E |OF COLOR YOU WAN|
00000040: 54 20 59 4F 55 52 22 00 5F 08 46 23 43 24 B2 22 |T YOUR"._.F#C$."|
00000050: 42 4F 52 44 45 52 20 54 4F 20 42 45 2E 2E 22 00 |BORDER TO BE..".|
00000060: 7B 08 50 23 44 24 B2 22 42 41 43 4B 47 52 4F 55 |{.P#D$."BACKGROU|
00000070: 4E 44 20 54 4F 20 42 45 2E 2E 22 00 97 08 5A 23 |ND TO BE.."...Z#|
00000080: 45 24 B2 22 43 48 41 52 41 43 54 45 52 53 20 54 |E$."CHARACTERS T|
00000090: 4F 20 42 45 2E 2E 22 00 B5 08 64 23 8F 20 20 20 |O BE.."...d#. |
000000A0: 44 49 53 50 4C 41 59 20 43 4F 4C 4F 52 20 43 48 |DISPLAY COLOR CH|
000000B0: 4F 49 43 45 53 00 CA 08 6E 23 99 20 C7 28 31 34 |OICES...n#. .(14|
000000C0: 37 29 3A 81 41 B2 30 A4 31 35 00 DE 08 78 23 8B |7):.A.0.15...x#.|
000000D0: 20 41 B1 39 A7 20 99 20 A3 33 29 3B 41 3B 00 F4 | A.9. . .3);A;..|
000000E0: 08 82 23 8B 20 41 B3 31 30 20 A7 20 99 20 A3 34 |..#. A.10 . . .4|
000000F0: 29 3B 41 3B 00 06 09 8C 23 99 20 A3 31 30 29 3B |);A;....#. .10);|
00000100: C7 28 31 38 29 3B 00 27 09 96 23 81 20 42 B2 30 |.(18);.'..#. B.0|
00000110: 20 A4 20 38 3A 99 20 C7 28 33 32 29 3B 3A 82 20 | . 8:. .(32);:. |
00000120: 42 3A 20 99 3A 82 41 00 3E 09 A0 23 81 20 41 B2 |B: .:.A.>..#. A.|
00000130: 30 20 A4 20 31 35 3A 81 20 42 B2 31 A4 37 00 59 |0 . 15:. B.1.7.Y|
00000140: 09 AA 23 97 20 35 35 33 30 36 AA 42 AA 28 34 30 |..#. 55306.B.(40|
00000150: AC 28 41 AA 31 29 29 2C 41 00 66 09 B4 23 82 20 |.(A.1)),A.f..#. |
00000160: 42 3A 20 82 20 41 00 7D 09 BE 23 99 3A 99 3A 99 |B: . A.}..#.:.:.|
00000170: 20 A6 32 29 3B C7 28 31 38 29 3B 42 24 00 96 09 | .2);.(18);B$...|
00000180: C8 23 91 20 43 20 89 20 39 31 37 30 2C 39 31 38 |.#. C . 9170,918|
00000190: 30 2C 39 31 39 30 00 B0 09 D2 23 99 20 A6 31 31 |0,9190....#. .11|
000001A0: 29 3B C7 28 31 38 29 3B 43 24 3A 89 39 32 30 30 |);.(18);C$:.9200|
000001B0: 00 C9 09 DC 23 99 20 A6 39 29 3B C7 28 31 38 29 |....#. .9);.(18)|
000001C0: 3B 44 24 3A 89 39 32 30 30 00 DD 09 E6 23 99 20 |;D$:.9200....#. |
000001D0: A6 31 31 29 3B C7 28 31 38 29 3B 45 24 00 01 0A |.11);.(18);E$...|
000001E0: F0 23 85 20 41 3A 8B 20 41 B1 31 35 20 A7 20 99 |.#. A:. A.15 . .|
000001F0: 20 22 54 4F 4F 20 48 49 47 48 22 3A 89 39 32 33 | "TOO HIGH":.923|
00000200: 30 00 1E 0A FA 23 8B 20 41 B3 30 20 A7 20 99 22 |0....#. A.0 . ."|
00000210: 54 4F 4F 20 4C 4F 57 22 3A 89 39 32 33 30 00 29 |TOO LOW":.9230.)|
00000220: 0A 04 24 89 20 39 32 34 30 00 43 0A 0E 24 81 41 |..$. 9240.C..$.A|
00000230: B2 31 20 A4 20 31 30 30 30 3A 82 20 41 3A 89 39 |.1 . 1000:. A:.9|
00000240: 30 36 30 00 4E 0A 18 24 41 B2 B5 28 41 29 00 67 |060.N..$A..(A).g|
00000250: 0A 22 24 91 20 43 20 89 20 39 32 36 30 2C 39 32 |."$. C . 9260,92|
00000260: 37 30 2C 39 32 39 30 00 7B 0A 2C 24 97 20 35 33 |70,9290.{.,$. 53|
00000270: 32 38 30 2C 41 3A 89 39 33 35 30 00 91 0A 36 24 |280,A:.9350...6$|
00000280: 8B 20 C2 28 36 34 36 29 B2 41 20 89 20 39 33 32 |. .(646).A . 932|
00000290: 30 00 A5 0A 40 24 97 20 35 33 32 38 31 2C 41 3A |0...@$. 53281,A:|
000002A0: 89 39 33 35 30 00 C1 0A 4A 24 8B 20 41 B2 C2 28 |.9350...J$. A..(|
000002B0: 35 33 32 38 31 29 AB 32 34 30 20 89 20 39 33 32 |53281).240 . 932|
000002C0: 30 00 CD 0A 54 24 97 20 36 34 36 2C 41 00 D8 0A |0...T$. 646,A...|
000002D0: 5E 24 89 20 39 33 35 30 00 08 0B 68 24 99 22 52 |^$. 9350...h$."R|
000002E0: 45 44 4F 2E 2E 2E 43 48 41 52 41 43 54 45 52 53 |EDO...CHARACTERS|
000002F0: 20 41 4E 44 20 42 41 43 4B 47 52 4F 55 4E 44 20 | AND BACKGROUND |
00000300: 43 41 4E 20 4E 4F 54 22 00 34 0B 72 24 99 20 22 |CAN NOT".4.r$. "|
00000310: 42 45 20 54 48 45 20 53 41 4D 45 20 43 4F 4C 4F |BE THE SAME COLO|
00000320: 52 2E 22 3A 81 20 41 B2 31 20 A4 20 33 30 30 30 |R.":. A.1 . 3000|
00000330: 3A 82 20 41 00 3F 0B 7C 24 89 20 39 30 36 30 00 |:. A.?.|$. 9060.|
00000340: 66 0B 86 24 99 22 49 46 20 59 4F 55 20 41 52 45 |f..$."IF YOU ARE|
00000350: 20 53 41 54 49 53 46 49 45 44 2C 45 4E 54 45 52 | SATISFIED,ENTER|
00000360: 20 28 59 29 2E 22 00 6F 0B 90 24 85 20 41 24 00 | (Y).".o..$. A$.|
00000370: 83 0B 9A 24 8B 20 41 24 B2 22 59 22 20 A7 20 39 |...$. A$."Y" . 9|
00000380: 33 39 30 00 8E 0B A4 24 89 20 39 30 36 30 00 A7 |390....$. 9060..|
00000390: 0B AE 24 91 20 43 20 89 20 39 34 30 30 2C 39 34 |..$. C . 9400,94|
000003A0: 31 30 2C 39 34 32 30 00 B6 0B B8 24 43 B2 32 3A |10,9420....$C.2:|
000003B0: 89 20 39 30 36 30 00 C5 0B C2 24 43 B2 33 3A 89 |. 9060....$C.3:.|
000003C0: 20 39 30 36 30 00 F8 0B CC 24 99 20 C7 28 31 34 | 9060....$. .(14|
000003D0: 37 29 3B 22 49 46 20 59 4F 55 20 41 52 45 20 53 |7);"IF YOU ARE S|
000003E0: 41 54 49 53 46 49 45 44 20 57 49 54 48 20 41 4C |ATISFIED WITH AL|
000003F0: 4C 20 54 48 52 45 45 22 00 1C 0C D6 24 99 22 43 |L THREE"....$."C|
00000400: 4F 4C 4F 52 20 53 45 4C 45 43 54 49 4F 4E 53 2C |OLOR SELECTIONS,|
00000410: 20 45 4E 54 45 52 20 28 59 29 2E 22 00 35 0C EA | ENTER (Y).".5..|
00000420: 24 85 20 41 24 3A 8B 20 41 24 B2 22 59 22 20 89 |$. A$:. A$."Y" .|
00000430: 20 39 34 37 30 00 40 0C F4 24 89 20 39 30 31 30 | 9470.@..$. 9010|
00000440: 00 50 0C FE 24 99 22 41 4C 4C 20 44 4F 4E 45 22 |.P..$."ALL DONE"|
00000450: 00 56 0C 08 25 8E 00 00 00 |.V..%.... |
....(#. SET COLORS...2#C.1.G.<#B$."ENTER
NUMBER OF COLOR YOU WANT YOUR"._.F#C$."
BORDER TO BE..".{.P#D$."BACKGROUND TO BE
.."...Z#E$."CHARACTERS TO BE.."...D#.
DISPLAY COLOR CHOICES.J.N#. G(147):.A.0.
15...X#. A.9. . .3);A;....#. A.10 . . .4
);A;....#. .10);G(18);.'..#. B.0 . 8:. G
(32);:. B: .:.A.>. #. A.0 . 15:. B.1.7.Y
..#. 55306.B.(40.(A.1)),A.F..#. B: . A.}
..#.:.:. .2);G(18);B$...H#. C . 9170,918
0,9190...R#. .11);G(18);C$:.9200.I..#. .
9);G(18);D$:.9200....#. .11);G(18);E$...
.#. A:. A.15 . . "TOO HIGH":.9230....#.
A.0 . ."TOO LOW":.9230.)..$. 9240.C..$.A
.1 . 1000:. A:.9060.N..$A..(A).G."$. C .
9260,9270,9290.{.,$. 53280,A:.9350...6$
. B(646).A . 9320...@$. 53281,A:.9350.A.
J$. A.B(53281).240 . 9320.M.T$. 646,A.X.
^$. 9350...H$."REDO...CHARACTERS AND BAC
KGROUND CAN NOT".4.R$. "BE THE SAME COLO
R.":. A.1 . 3000:. A.?.|$. 9060.F..$."IF
YOU ARE SATISFIED,ENTER (Y).".O..$. A$.
...$. A$."Y" . 9390....$. 9060....$. C .
9400,9410,9420....$C.2:. 9060.E.B$C.3:.
9060...L$. G(147);"IF YOU ARE SATISFIED
WITH ALL THREE"...V$."COLOR SELECTIONS,
ENTER (Y).".5..$. A$:. A$."Y" . 9470.@.
.$. 9010.P..$."ALL DONE".V..%....
> CLICK IMAGE PREVIEW FOR FULL MODAL