64 SETCOLORS
FILE INFORMATION
FILENAME(S): 64 SETCOLORS
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 1 disk(s)
FILE HASH
f6489907ff559302a412a7cb90c76322cbc4bf1ebea487fd0ea0a010e9aed2f7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| USER 64 | 64 SETCOLORS | PRG | Radd Maxx | 22 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 0A 00 8F 20 53 45 54 43 4F 4C 4F 52 |....... SETCOLOR| 00000010: 20 53 55 42 52 4F 55 54 49 4E 45 00 33 08 14 00 | SUBROUTINE.3...| 00000020: 8F 20 42 59 20 4A 2E 20 4A 2E 20 41 4E 44 45 52 |. BY J. J. ANDER| 00000030: 53 4F 4E 00 4E 08 1E 00 8F 20 46 4F 52 20 54 48 |SON.N.... FOR TH| 00000040: 45 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 00 67 |E COMMODORE 64.g| 00000050: 08 28 00 8F 20 43 52 45 41 54 49 56 45 20 43 4F |.(.. CREATIVE CO| 00000060: 4D 50 55 54 49 4E 47 00 79 08 32 00 8F 20 41 55 |MPUTING.y.2.. AU| 00000070: 47 55 53 54 20 31 39 38 33 00 88 08 3C 00 8F 20 |GUST 1983...<.. | 00000080: 50 41 47 45 20 32 33 32 00 A4 08 46 00 8F 20 43 |PAGE 232...F.. C| 00000090: 4F 50 49 45 44 20 42 59 20 52 2E 20 44 2E 20 57 |OPIED BY R. D. W| 000000A0: 41 4C 45 53 00 B9 08 50 00 8F 20 50 41 4C 4F 20 |ALES...P.. PALO | 000000B0: 41 4C 54 4F 2C 20 43 41 2E 00 C2 08 5A 00 99 22 |ALTO, CA....Z.."| 000000C0: 93 22 00 CB 08 64 00 8D 32 30 30 00 D4 08 6E 00 |."...d..200...n.| 000000D0: 89 31 30 30 00 FD 08 C8 00 99 3A 99 22 53 45 54 |.100......:."SET| 000000E0: 20 42 41 43 4B 47 52 4F 55 4E 44 2C 20 42 4F 52 | BACKGROUND, BOR| 000000F0: 44 45 52 20 43 4F 4C 4F 52 3A 22 3A 99 00 0F 09 |DER COLOR:":....| 00000100: E6 00 99 22 5B 30 5D 20 20 20 42 4C 41 43 4B 00 |..."[0] BLACK.| 00000110: 21 09 F0 00 99 22 5B 31 5D 20 20 20 57 48 49 54 |!...."[1] WHIT| 00000120: 45 00 31 09 FA 00 99 22 5B 32 5D 20 20 20 52 45 |E.1...."[2] RE| 00000130: 44 00 53 09 04 01 99 22 5B 33 5D 20 20 20 4C 49 |D.S...."[3] LI| 00000140: 47 48 54 20 42 4C 55 45 20 28 53 4D 45 41 52 49 |GHT BLUE (SMEARI| 00000150: 4E 47 29 00 75 09 0E 01 99 22 5B 34 5D 20 20 20 |NG).u...."[4] | 00000160: 50 55 52 50 4C 45 20 20 20 20 20 28 53 4D 45 41 |PURPLE (SMEA| 00000170: 52 49 4E 47 29 00 8C 09 18 01 99 22 5B 35 5D 20 |RING)......"[5] | 00000180: 20 20 44 41 52 4B 20 47 52 45 45 4E 00 A2 09 22 | DARK GREEN..."| 00000190: 01 99 22 5B 36 5D 20 20 20 44 41 52 4B 20 42 4C |.."[6] DARK BL| 000001A0: 55 45 00 B5 09 2C 01 99 22 5B 37 5D 20 20 20 59 |UE...,.."[7] Y| 000001B0: 45 4C 4C 4F 57 00 CE 09 36 01 99 22 5B 38 5D 20 |ELLOW...6.."[8] | 000001C0: 20 20 4C 49 47 48 54 20 4F 52 41 4E 47 45 00 E0 | LIGHT ORANGE..| 000001D0: 09 40 01 99 22 5B 39 5D 20 20 20 42 52 4F 57 4E |.@.."[9] BROWN| 000001E0: 00 F8 09 4A 01 99 22 5B 31 30 5D 20 20 44 41 52 |...J.."[10] DAR| 000001F0: 4B 20 4F 52 41 4E 47 45 00 0E 0A 54 01 99 22 5B |K ORANGE...T.."[| 00000200: 31 31 5D 20 20 44 41 52 4B 20 47 52 41 59 00 26 |11] DARK GRAY.&| 00000210: 0A 5E 01 99 22 5B 31 32 5D 20 20 4D 45 44 49 55 |.^.."[12] MEDIU| 00000220: 4D 20 47 52 41 59 00 3E 0A 68 01 99 22 5B 31 33 |M GRAY.>.h.."[13| 00000230: 5D 20 20 4C 49 47 48 54 20 47 52 45 45 4E 00 56 |] LIGHT GREEN.V| 00000240: 0A 72 01 99 22 5B 31 34 5D 20 20 4D 45 44 49 55 |.r.."[14] MEDIU| 00000250: 4D 20 42 4C 55 45 00 70 0A 7C 01 99 22 5B 31 35 |M BLUE.p.|.."[15| 00000260: 5D 20 20 4C 49 47 48 54 20 47 52 41 59 22 3A 99 |] LIGHT GRAY":.| 00000270: 00 8F 0A 86 01 99 22 45 4E 54 45 52 20 59 4F 55 |......"ENTER YOU| 00000280: 52 20 43 48 4F 49 43 45 53 22 3A 85 58 2C 59 00 |R CHOICES":.X,Y.| 00000290: BB 0A 90 01 97 35 33 32 38 31 2C 58 3A 99 22 42 |.....53281,X:."B| 000002A0: 41 43 4B 47 52 4F 55 4E 44 2D 2D 50 4F 4B 49 4E |ACKGROUND--POKIN| 000002B0: 47 20 35 33 32 38 31 2C 22 3B 58 00 02 0B 9A 01 |G 53281,";X.....| 000002C0: 97 35 33 32 38 30 2C 59 3A 99 22 42 4F 52 44 45 |.53280,Y:."BORDE| 000002D0: 52 2D 2D 50 4F 4B 49 4E 47 20 35 33 32 38 30 2C |R--POKING 53280,| 000002E0: 22 3B 59 3A 99 22 43 48 41 52 41 43 54 45 52 20 |";Y:."CHARACTER | 000002F0: 53 45 54 2D 2D 50 4F 4B 49 4E 47 20 36 34 36 2C |SET--POKING 646,| 00000300: 22 3B 00 41 0B A4 01 91 58 89 34 34 30 2C 34 35 |";.A....X.440,45| 00000310: 30 2C 34 36 30 2C 34 33 30 2C 34 37 30 2C 34 38 |0,460,430,470,48| 00000320: 30 2C 34 39 30 2C 35 30 30 2C 35 31 30 2C 35 30 |0,490,500,510,50| 00000330: 30 2C 35 32 30 2C 34 33 30 2C 35 33 30 2C 35 34 |0,520,430,530,54| 00000340: 30 00 53 0B AE 01 97 36 34 36 2C 31 3A 99 22 31 |0.S....646,1:."1| 00000350: 22 3A 8E 00 67 0B B8 01 97 36 34 36 2C 31 32 3A |":..g....646,12:| 00000360: 99 22 31 32 22 3A 8E 00 79 0B C2 01 97 36 34 36 |."12":..y....646| 00000370: 2C 38 3A 99 22 38 22 3A 8E 00 8D 0B CC 01 97 36 |,8:."8":.......6| 00000380: 34 36 2C 31 31 3A 99 22 31 31 22 3A 8E 00 A1 0B |46,11:."11":....| 00000390: D6 01 97 36 34 36 2C 31 33 3A 99 22 31 33 22 3A |...646,13:."13":| 000003A0: 8E 00 B5 0B E0 01 97 36 34 36 2C 31 34 3A 99 22 |.......646,14:."| 000003B0: 31 34 22 3A 8E 00 C7 0B EA 01 97 36 34 36 2C 39 |14":.......646,9| 000003C0: 3A 99 22 39 22 3A 8E 00 D9 0B F4 01 97 36 34 36 |:."9":.......646| 000003D0: 2C 32 3A 99 22 32 22 3A 8E 00 EB 0B FE 01 97 36 |,2:."2":.......6| 000003E0: 34 36 2C 37 3A 99 22 37 22 3A 8E 00 FF 0B 08 02 |46,7:."7":......| 000003F0: 97 36 34 36 2C 31 35 3A 99 22 31 35 22 3A 8E 00 |.646,15:."15":..| 00000400: 11 0C 12 02 97 36 34 36 2C 35 3A 99 22 35 22 3A |.....646,5:."5":| 00000410: 8E 00 23 0C 1C 02 97 36 34 36 2C 36 3A 99 22 36 |..#....646,6:."6| 00000420: 22 3A 8E 00 00 00 |":.... |
....... SETCOLOR SUBROUTINE.3.... BY J. J. ANDERSON.N.... FOR THE COMMODORE 64.G .(.. CREATIVE COMPUTING.Y.2.. AUGUST 198 3...<.. PAGE 232...F.. COPIED BY R. D. W ALES...P.. PALO ALTO, CA..B.Z..".".K.D.. 200.T.N..100...H..:."SET BACKGROUND, BOR DER COLOR:":......."[0] BLACK.!...."[1 ] WHITE.1...."[2] RED.S...."[3] LI GHT BLUE (SMEARING).U...."[4] PURPLE (SMEARING)......"[5] DARK GREEN..." .."[6] DARK BLUE...,.."[7] YELLOW.N. 6.."[8] LIGHT ORANGE...@.."[9] BROWN ...J.."[10] DARK ORANGE...T.."[11] DAR K GRAY.&.^.."[12] MEDIUM GRAY.>.H.."[13 ] LIGHT GREEN.V.R.."[14] MEDIUM BLUE.P .|.."[15] LIGHT GRAY":......."ENTER YOU R CHOICES":.X,Y......53281,X:."BACKGROUN D--POKING 53281,";X......53280,Y:."BORDE R--POKING 53280,";Y:."CHARACTER SET--POK ING 646,";.A....X.440,450,460,430,470,48 0,490,500,510,500,520,430,530,540.S....6 46,1:."1":..G....646,12:."12":..Y.B..646 ,8:."8":....L..646,11:."11":....V..646,1 3:."13":.......646,14:."14":..G....646,9 :."9":..Y....646,2:."2":.......646,7:."7 ":.......646,15:."15":.......646,5:."5": ..#....646,6:."6":....
> CLICK IMAGE PREVIEW FOR FULL MODAL