DCOLOR
FILE INFORMATION
FILENAME(S): DCOLOR
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-10-20 14:31:26
APPEARS ON: 1 disk(s)
FILE HASH
366699c1d20509c0bb8a8bd39ea4019cb9f072ee5d791b3aa9b57abce28ccca3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0111GR | DCOLOR | PRG | Treasure Chest - Klaus Der Suhler | 9 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3F 08 00 00 8F 20 44 43 4F 4C 4F 52 20 31 |..?.... DCOLOR 1| 00000010: 2E 30 20 20 20 28 43 29 20 31 39 38 35 20 42 59 |.0 (C) 1985 BY| 00000020: 20 43 48 52 49 53 44 4F 53 2E 20 41 4C 4C 20 52 | CHRISDOS. ALL R| 00000030: 49 47 48 54 53 20 52 45 53 45 52 56 45 44 2E 00 |IGHTS RESERVED..| 00000040: 48 08 01 00 89 20 31 30 00 5A 08 03 00 56 B2 56 |H.... 10.Z...V.V| 00000050: AA 31 AF 31 35 3A 8B 56 A7 8E 00 75 08 04 00 56 |.1.15:.V...u...V| 00000060: 56 B2 56 56 AA 31 AF 31 35 3A 97 35 33 32 38 30 |V.VV.1.15:.53280| 00000070: 2C 56 56 3A 8E 00 B3 08 0A 00 8F 20 44 43 4F 4C |,VV:....... DCOL| 00000080: 4F 52 20 31 2E 30 20 20 20 28 43 29 20 31 39 38 |OR 1.0 (C) 198| 00000090: 35 20 42 59 20 43 48 52 49 53 44 4F 53 2E 20 41 |5 BY CHRISDOS. A| 000000A0: 4C 4C 20 52 49 47 48 54 53 20 52 45 53 45 52 56 |LL RIGHTS RESERV| 000000B0: 45 44 2E 00 D6 08 0F 00 8B 20 C2 28 34 39 31 35 |ED....... .(4915| 000000C0: 32 29 B3 B1 31 34 20 A7 20 93 22 44 43 4F 4C 48 |2)..14 . ."DCOLH| 000000D0: 49 22 2C 38 2C 31 00 E7 08 14 00 8B 20 4C 4F B2 |I",8,1...... LO.| 000000E0: 31 20 89 20 31 30 30 00 14 09 1E 00 86 20 41 28 |1 . 100...... A(| 000000F0: 31 36 29 2C 53 28 35 29 2C 57 28 36 29 2C 53 24 |16),S(5),W(6),S$| 00000100: 28 35 29 3A 81 58 B2 30 A4 31 35 3A 87 20 41 28 |(5):.X.0.15:. A(| 00000110: 58 29 3A 82 00 3A 09 28 00 83 20 30 2C 34 2C 31 |X):..:.(.. 0,4,1| 00000120: 2C 33 2C 32 2C 32 2C 31 2C 33 2C 32 2C 31 2C 32 |,3,2,2,1,3,2,1,2| 00000130: 2C 31 2C 32 2C 33 2C 32 2C 33 00 84 09 2D 00 53 |,1,2,3,2,3...-.S| 00000140: 24 28 30 29 B2 22 42 4C 41 43 4B 22 3A 53 24 28 |$(0)."BLACK":S$(| 00000150: 31 29 B2 22 47 52 45 59 31 22 3A 53 24 28 32 29 |1)."GREY1":S$(2)| 00000160: B2 22 47 52 45 59 32 22 3A 53 24 28 33 29 B2 22 |."GREY2":S$(3)."| 00000170: 47 52 45 59 33 22 3A 53 24 28 34 29 B2 22 57 48 |GREY3":S$(4)."WH| 00000180: 49 54 45 22 00 A3 09 32 00 58 31 B2 34 39 32 30 |ITE"...2.X1.4920| 00000190: 30 3A 53 59 B2 34 39 31 35 32 3A 58 32 B2 32 33 |0:SY.49152:X2.23| 000001A0: 35 35 32 00 D3 09 3C 00 99 22 93 11 11 11 20 20 |552...<..".... | 000001B0: 20 20 44 43 4F 4C 4F 52 20 2D 20 48 49 52 45 53 | DCOLOR - HIRES| 000001C0: 20 50 49 43 54 55 52 45 20 44 45 2D 43 4F 4C 4F | PICTURE DE-COLO| 000001D0: 52 45 52 00 F7 09 46 00 99 22 20 20 20 20 20 20 |RER...F.." | 000001E0: 20 20 20 28 43 29 20 31 39 38 35 20 42 59 20 43 | (C) 1985 BY C| 000001F0: 48 52 49 53 44 4F 53 00 26 0A 50 00 99 22 11 11 |HRISDOS.&.P.."..| 00000200: 11 11 20 20 45 4E 54 45 52 20 4E 41 4D 45 20 4F |.. ENTER NAME O| 00000210: 46 20 50 49 43 54 55 52 45 20 46 49 4C 45 3A 22 |F PICTURE FILE:"| 00000220: 3B 3A 85 20 46 24 00 31 0A 5A 00 8D 20 31 30 30 |;:. F$.1.Z.. 100| 00000230: 30 00 4C 0A 5F 00 81 58 B2 30 A4 39 39 39 3A 97 |0.L._..X.0.999:.| 00000240: 58 32 AA 58 2C 31 36 3A 8D 33 3A 82 00 5E 0A 63 |X2.X,16:.3:..^.c| 00000250: 00 4C 4F B2 31 3A 93 20 46 24 2C 38 2C 31 00 6F |.LO.1:. F$,8,1.o| 00000260: 0A 64 00 8D 20 31 31 30 30 3A 89 20 38 30 30 00 |.d.. 1100:. 800.| 00000270: 9A 0A 69 00 99 22 93 11 11 11 11 20 20 43 48 45 |..i.."..... CHE| 00000280: 43 4B 49 4E 47 20 53 48 41 44 45 53 2E 2E 2E 2E |CKING SHADES....| 00000290: 20 28 34 30 20 53 45 43 2E 29 00 AA 0A 6E 00 81 | (40 SEC.)...n..| 000002A0: 20 58 B2 30 20 A4 20 39 39 39 00 B1 0A 73 00 8D | X.0 . 999...s..| 000002B0: 33 00 D5 0A 78 00 42 B2 C2 28 58 AA 58 32 29 3A |3...x.B..(X.X2):| 000002C0: 4C 4F B2 42 AF 31 35 3A 48 49 B2 28 42 AF 32 34 |LO.B.15:HI.(B.24| 000002D0: 30 29 AD 31 36 00 F1 0A 82 00 53 28 41 28 4C 4F |0).16.....S(A(LO| 000002E0: 29 29 B2 AB 31 3A 53 28 41 28 48 49 29 29 B2 AB |))..1:S(A(HI))..| 000002F0: 31 00 F7 0A 8C 00 82 00 0A 0B 96 00 99 22 53 48 |1............"SH| 00000300: 41 44 45 53 20 55 53 45 44 3A 00 35 0B A0 00 99 |ADES USED:.5....| 00000310: 22 20 20 20 20 20 20 20 20 20 30 20 20 42 4C 41 |" 0 BLA| 00000320: 43 4B 20 20 20 22 3B 3A 8B 53 28 30 29 A7 99 22 |CK ";:.S(0).."| 00000330: 59 45 53 22 3B 00 3B 0B A1 00 99 00 66 0B AA 00 |YES";.;.....f...| 00000340: 99 22 20 20 20 20 20 20 20 31 2D 32 20 20 47 52 |." 1-2 GR| 00000350: 45 59 31 20 20 20 22 3B 3A 8B 53 28 31 29 A7 99 |EY1 ";:.S(1)..| 00000360: 22 59 45 53 22 3B 00 6C 0B AB 00 99 00 97 0B B4 |"YES";.l........| 00000370: 00 99 22 20 20 20 20 20 20 20 32 2D 33 20 20 47 |.." 2-3 G| 00000380: 52 45 59 32 20 20 20 22 3B 3A 8B 53 28 32 29 A7 |REY2 ";:.S(2).| 00000390: 99 22 59 45 53 22 3B 00 9D 0B B5 00 99 00 C8 0B |."YES";.........| 000003A0: BE 00 99 22 20 20 20 20 20 20 20 33 2D 34 20 20 |..." 3-4 | 000003B0: 47 52 45 59 33 20 20 20 22 3B 3A 8B 53 28 33 29 |GREY3 ";:.S(3)| 000003C0: A7 99 22 59 45 53 22 3B 00 CE 0B BF 00 99 00 F9 |.."YES";........| 000003D0: 0B C8 00 99 22 20 20 20 20 20 20 20 20 20 35 20 |...." 5 | 000003E0: 20 57 48 49 54 45 20 20 20 22 3B 3A 8B 53 28 34 | WHITE ";:.S(4| 000003F0: 29 A7 99 22 59 45 53 22 3B 00 FF 0B C9 00 99 00 |).."YES";.......| 00000400: 3E 0C D2 00 99 22 20 20 44 4F 20 59 4F 55 20 57 |>...." DO YOU W| 00000410: 49 53 48 20 54 4F 20 43 48 41 4E 47 45 20 53 48 |ISH TO CHANGE SH| 00000420: 41 44 45 53 20 3F 22 3B 3A 51 24 B2 22 22 3A 85 |ADES ?";:Q$."":.| 00000430: 20 51 24 3A 51 24 B2 C8 28 51 24 2C 31 29 00 56 | Q$:Q$..(Q$,1).V| 00000440: 0C D4 00 8B 51 24 B2 22 59 22 B0 51 24 B2 22 D9 |....Q$."Y".Q$.".| 00000450: 22 89 20 32 32 30 00 7C 0C D6 00 81 20 58 B2 31 |". 220.|.... X.1| 00000460: 20 A4 20 34 3A 57 28 58 29 B2 58 AA 31 3A 82 3A | . 4:W(X).X.1:.:| 00000470: 57 28 30 29 B2 30 3A 89 20 33 30 30 00 8A 0C DC |W(0).0:. 300....| 00000480: 00 81 20 58 B2 30 20 A4 20 34 00 9E 0C E6 00 8B |.. X.0 . 4......| 00000490: 20 A8 28 53 28 58 29 29 20 89 20 32 39 30 00 CA | .(S(X)) . 290..| 000004A0: 0C F0 00 57 28 58 29 B2 AB 31 3A 99 53 24 28 58 |...W(X)..1:.S$(X| 000004B0: 29 22 20 57 45 49 47 48 54 20 3D 20 28 30 2D 35 |)" WEIGHT = (0-5| 000004C0: 29 22 3B 3A 85 20 57 28 58 29 00 E5 0C FA 00 8B |)";:. W(X)......| 000004D0: 57 28 58 29 B3 30 20 B0 20 57 28 58 29 B1 35 20 |W(X).0 . W(X).5 | 000004E0: 89 20 32 34 30 00 EB 0C 22 01 82 00 28 0D 2C 01 |. 240..."...(.,.| 000004F0: 52 48 24 B2 22 2D 31 22 3A 99 22 11 52 41 4E 44 |RH$."-1":.".RAND| 00000500: 4F 4D 20 48 41 53 48 20 46 41 43 54 4F 52 20 28 |OM HASH FACTOR (| 00000510: 30 2D 31 30 30 29 3A 22 3B 3A 85 52 48 24 3A 52 |0-100):";:.RH$:R| 00000520: 48 B2 C5 28 52 48 24 29 00 3D 0D 2E 01 8B 52 48 |H..(RH$).=....RH| 00000530: B3 30 B0 52 48 B1 31 30 30 89 33 30 30 00 6A 0D |.0.RH.100.300.j.| 00000540: 30 01 48 48 24 B2 22 22 3A 99 22 11 45 58 54 52 |0.HH$."":.".EXTR| 00000550: 41 20 48 41 53 48 22 3B 3A 85 48 48 24 3A 48 48 |A HASH";:.HH$:HH| 00000560: 24 B2 C8 28 48 48 24 2C 31 29 00 8A 0D 31 01 48 |$..(HH$,1)...1.H| 00000570: 48 B2 30 3A 8B 48 48 24 B2 22 59 22 B0 48 48 24 |H.0:.HH$."Y".HH$| 00000580: B2 22 D9 22 A7 48 48 B2 AB 31 00 A4 0D 34 01 8D |.".".HH..1...4..| 00000590: 20 31 30 30 30 3A 8F 20 48 41 53 48 20 49 54 20 | 1000:. HASH IT | 000005A0: 55 50 20 21 00 BC 0D 36 01 81 20 58 B2 30 A4 39 |UP !...6.. X.0.9| 000005B0: 39 39 3A 42 B2 C2 28 58 AA 58 32 29 00 E4 0D 40 |99:B..(X.X2)...@| 000005C0: 01 4C 4F B2 42 AF 31 35 3A 48 49 B2 28 42 AF 32 |.LO.B.15:HI.(B.2| 000005D0: 34 30 29 AD 31 36 3A 5A B2 41 28 48 49 29 AB 41 |40).16:Z.A(HI).A| 000005E0: 28 4C 4F 29 00 F2 0D 4A 01 8B 5A B1 B2 30 A7 34 |(LO)...J..Z..0.4| 000005F0: 30 30 00 0E 0E 54 01 81 46 B2 30 A4 37 3A 41 44 |00...T..F.0.7:AD| 00000600: B2 32 34 35 37 36 AA 28 58 AC 38 29 AA 46 00 27 |.24576.(X.8).F.'| 00000610: 0E 5E 01 97 41 44 2C 28 A8 28 C2 28 41 44 29 29 |.^..AD,(.(.(AD))| 00000620: 29 AF 32 35 35 3A 82 00 3D 0E 68 01 54 4D B2 4C |).255:..=.h.TM.L| 00000630: 4F 3A 4C 4F B2 48 49 3A 48 49 B2 54 4D 00 4A 0E |O:LO.HI:HI.TM.J.| 00000640: 90 01 97 58 AA 58 32 2C 31 36 00 66 0E 9A 01 81 |...X.X2,16.f....| 00000650: 46 B2 30 A4 37 3A 41 44 B2 32 34 35 37 36 AA 28 |F.0.7:AD.24576.(| 00000660: 58 AC 38 29 AA 46 00 80 0E A4 01 42 59 B2 C2 28 |X.8).F.....BY..(| 00000670: 41 44 29 3A 42 4E B2 A8 28 42 59 29 AF 32 35 35 |AD):BN..(BY).255| 00000680: 00 9C 0E AE 01 48 42 B2 57 28 41 28 48 49 29 29 |.....HB.W(A(HI))| 00000690: 3A 4C 42 B2 57 28 41 28 4C 4F 29 29 00 C5 0E B8 |:LB.W(A(LO))....| 000006A0: 01 4E 42 B2 28 28 42 59 AF C2 28 58 31 AA 48 42 |.NB.((BY..(X1.HB| 000006B0: 29 29 B0 28 42 4E AF C2 28 58 31 AA 4C 42 29 29 |)).(BN..(X1.LB))| 000006C0: 29 AF 32 35 35 00 D4 0E C2 01 97 41 44 2C 4E 42 |).255......AD,NB| 000006D0: 3A 9E 53 59 00 EB 0E C7 01 8B 52 48 B1 28 BB 28 |:.SY......RH.(.(| 000006E0: 30 29 AC 31 30 30 29 A7 9E 53 59 00 F7 0E C8 01 |0).100)..SY.....| 000006F0: 8B 48 48 A7 9E 53 59 00 FD 0E CC 01 82 00 03 0F |.HH..SY.........| 00000700: D6 01 82 00 1C 0F F4 01 8D 34 3A A1 20 41 24 3A |.........4:. A$:| 00000710: 8B 41 24 B2 22 22 20 89 20 35 30 30 00 27 0F F9 |.A$."" . 500.'..| 00000720: 01 8D 20 31 31 30 30 00 60 0F FE 01 99 22 93 11 |.. 1100.`...."..| 00000730: 11 11 11 20 20 44 4F 20 59 4F 55 20 57 49 53 48 |... DO YOU WISH| 00000740: 20 54 4F 20 53 41 56 45 20 54 48 49 53 20 49 4D | TO SAVE THIS IM| 00000750: 41 47 45 22 3B 3A 51 24 B2 22 22 3A 85 20 51 24 |AGE";:Q$."":. Q$| 00000760: 00 6F 0F 03 02 51 24 B2 C8 28 51 24 2C 31 29 00 |.o...Q$..(Q$,1).| 00000770: 8B 0F 08 02 8B 20 51 24 B2 22 4E 22 20 B0 20 51 |..... Q$."N" . Q| 00000780: 24 B2 22 CE 22 20 89 20 37 30 30 00 A8 0F 12 02 |$."." . 700.....| 00000790: 8B 51 24 B3 B1 22 59 22 20 AF 20 51 24 B3 B1 22 |.Q$.."Y" . Q$.."| 000007A0: D9 22 20 89 20 35 31 30 00 CD 0F 1C 02 99 22 11 |." . 510......".| 000007B0: 11 11 20 20 20 20 20 31 29 53 41 56 45 20 57 49 |.. 1)SAVE WI| 000007C0: 54 48 20 43 4F 4C 4F 52 20 52 41 4D 2E 00 F2 0F |TH COLOR RAM....| 000007D0: 30 02 99 22 20 20 20 20 20 32 29 53 41 56 45 20 |0.." 2)SAVE | 000007E0: 57 49 54 48 4F 55 54 20 43 4F 4C 4F 52 20 52 41 |WITHOUT COLOR RA| 000007F0: 4D 2E 00 27 10 3A 02 99 22 11 11 11 11 20 20 20 |M..'.:..".... | 00000800: 20 20 45 4E 54 45 52 20 44 49 47 49 54 3A 22 3B | ENTER DIGIT:";| 00000810: 3A 43 51 24 B2 22 22 3A 85 20 43 51 24 3A 43 51 |:CQ$."":. CQ$:CQ| 00000820: B2 C5 28 43 51 24 29 00 41 10 44 02 53 53 B2 58 |..(CQ$).A.D.SS.X| 00000830: 32 3A 8B 43 51 B2 32 A7 53 53 B2 34 30 39 36 AC |2:.CQ.2.SS.4096.| 00000840: 36 00 4C 10 58 02 8D 20 32 30 30 30 00 52 10 BC |6.L.X.. 2000.R..| 00000850: 02 90 00 76 10 20 03 99 22 93 11 11 11 20 20 20 |...v. ..".... | 00000860: 20 20 31 29 20 55 4E 49 46 59 20 43 4F 4C 4F 52 | 1) UNIFY COLOR| 00000870: 53 20 4F 4E 4C 59 00 96 10 2A 03 99 22 20 20 20 |S ONLY...*.." | 00000880: 20 20 32 29 20 55 4E 49 46 59 20 41 4E 44 20 44 | 2) UNIFY AND D| 00000890: 45 43 4F 4C 4F 52 00 A1 10 2F 03 43 4F 24 B2 22 |ECOLOR.../.CO$."| 000008A0: 22 00 E0 10 34 03 99 22 11 11 11 20 20 20 20 20 |"...4.."... | 000008B0: 45 4E 54 45 52 20 44 49 47 49 54 3A 20 22 3B 3A |ENTER DIGIT: ";:| 000008C0: 85 20 43 4F 24 3A 43 4F B2 C5 28 43 4F 24 29 3A |. CO$:CO..(CO$):| 000008D0: 8B 43 4F B3 B1 31 AF 43 4F B3 B1 32 89 38 30 30 |.CO..1.CO..2.800| 000008E0: 00 EF 10 3E 03 8B 43 4F B2 32 89 20 31 30 35 00 |...>..CO.2. 105.| 000008F0: F9 10 48 03 8D 31 30 30 30 00 34 11 52 03 81 58 |..H..1000.4.R..X| 00000900: B2 30 A4 39 39 39 3A 42 B2 C2 28 58 AA 58 32 29 |.0.999:B..(X.X2)| 00000910: 3A 4C 4F B2 42 AF 31 35 3A 48 49 B2 28 42 AF 32 |:LO.B.15:HI.(B.2| 00000920: 34 30 29 AD 31 36 3A 5A B2 41 28 48 49 29 AB 41 |40).16:Z.A(HI).A| 00000930: 28 4C 4F 29 00 3B 11 57 03 8D 33 00 49 11 5C 03 |(LO).;.W..3.I.\.| 00000940: 8B 5A B1 B2 30 89 38 39 30 00 5C 11 66 03 97 58 |.Z..0.890.\.f..X| 00000950: AA 58 32 2C 4C 4F AC 31 36 AA 48 49 00 8D 11 70 |.X2,LO.16.HI...p| 00000960: 03 81 46 B2 30 A4 37 3A 41 44 B2 32 34 35 37 36 |..F.0.7:AD.24576| 00000970: AA 28 58 AC 38 29 AA 46 3A 97 41 44 2C 28 A8 28 |.(X.8).F:.AD,(.(| 00000980: C2 28 41 44 29 29 29 AF 32 35 35 3A 82 00 98 11 |.(AD))).255:....| 00000990: 7A 03 82 3A 89 35 30 30 00 9E 11 E7 03 90 00 B9 |z..:.500........| 000009A0: 11 E8 03 42 41 B2 C2 28 35 36 35 37 36 29 3A 97 |...BA..(56576):.| 000009B0: 35 36 35 37 36 2C 31 35 30 00 D4 11 F2 03 53 4D |56576,150.....SM| 000009C0: B2 C2 28 35 33 32 37 32 29 3A 97 35 33 32 37 32 |..(53272):.53272| 000009D0: 2C 31 32 30 00 EE 11 FC 03 48 52 B2 C2 28 35 33 |,120.....HR..(53| 000009E0: 32 36 35 29 3A 97 35 33 32 36 35 2C 35 39 00 F4 |265):.53265,59..| 000009F0: 11 06 04 8E 00 02 12 4C 04 97 35 36 35 37 36 2C |.......L..56576,| 00000A00: 42 41 00 10 12 56 04 97 35 33 32 37 32 2C 53 4D |BA...V..53272,SM| 00000A10: 00 1E 12 60 04 97 35 33 32 36 35 2C 48 52 00 24 |...`..53265,HR.$| 00000A20: 12 6A 04 8E 00 44 12 D0 07 53 48 B2 B5 28 53 53 |.j...D...SH..(SS| 00000A30: AD 32 35 36 29 3A 53 4C B2 53 53 AB 28 53 48 AC |.256):SL.SS.(SH.| 00000A40: 32 35 36 29 00 6D 12 DA 07 53 45 B2 33 32 35 37 |256).m...SE.3257| 00000A50: 37 3A 45 48 B2 B5 28 53 45 AD 32 35 36 29 3A 45 |7:EH..(SE.256):E| 00000A60: 4C B2 53 45 AB 28 45 48 AC 32 35 36 29 00 98 12 |L.SE.(EH.256)...| 00000A70: E4 07 99 22 11 46 49 4C 45 20 4E 41 4D 45 20 54 |...".FILE NAME T| 00000A80: 4F 20 53 41 56 45 20 50 49 43 54 55 52 45 3A 20 |O SAVE PICTURE: | 00000A90: 22 3B 3A 85 20 46 46 24 00 A3 12 EE 07 8D 20 31 |";:. FF$...... 1| 00000AA0: 30 30 30 00 D5 12 F8 07 54 54 24 B2 46 46 24 3A |000.....TT$.FF$:| 00000AB0: 5A 58 B2 C2 28 35 33 29 AA 32 35 36 AC C2 28 35 |ZX..(53).256..(5| 00000AC0: 34 29 AB C3 28 54 54 24 29 3A 97 37 38 32 2C 5A |4)..(TT$):.782,Z| 00000AD0: 58 AD 32 35 36 00 FF 12 02 08 97 37 38 31 2C 5A |X.256......781,Z| 00000AE0: 58 AB C2 28 37 38 32 29 AC 32 35 36 3A 97 37 38 |X..(782).256:.78| 00000AF0: 30 2C C3 28 54 54 24 29 3A 9E 36 35 34 36 39 00 |0,.(TT$):.65469.| 00000B00: 1F 13 0C 08 97 37 38 30 2C 31 3A 97 37 38 31 2C |.....780,1:.781,| 00000B10: 38 3A 97 37 38 32 2C 31 3A 9E 36 35 34 36 36 00 |8:.782,1:.65466.| 00000B20: 3C 13 16 08 97 32 35 34 2C 53 48 3A 97 32 35 33 |<....254,SH:.253| 00000B30: 2C 53 4C 3A 97 37 38 30 2C 32 35 33 00 57 13 20 |,SL:.780,253.W. | 00000B40: 08 97 37 38 32 2C 45 48 3A 97 37 38 31 2C 45 4C |..782,EH:.781,EL| 00000B50: 3A 9E 36 35 34 39 36 00 62 13 2A 08 8D 20 31 31 |:.65496.b.*.. 11| 00000B60: 30 30 00 68 13 33 08 8E 00 00 00 |00.h.3..... |
..?.... DCOLOR 1.0 (C) 1985 BY CHRISDO S. ALL RIGHTS RESERVED..H.... 10.Z...V.V .1.15:.V...U...VV.VV.1.15:.53280,VV:.... ... DCOLOR 1.0 (C) 1985 BY CHRISDOS. A LL RIGHTS RESERVED..V.... B(49152)..14 . ."DCOLHI",8,1...... LO.1 . 100...... A( 16),S(5),W(6),S$(5):.X.0.15:. A(X):..:.( .. 0,4,1,3,2,2,1,3,2,1,2,1,2,3,2,3...-.S $(0)."BLACK":S$(1)."GREY1":S$(2)."GREY2" :S$(3)."GREY3":S$(4)."WHITE"...2.X1.4920 0:SY.49152:X2.23552.S.<..".... DCOLOR - HIRES PICTURE DE-COLORER...F.." (C) 1985 BY CHRISDOS.&.P..".... ENTE R NAME OF PICTURE FILE:";:. F$.1.Z.. 100 0.L._..X.0.999:.X2.X,16:.3:..^.C.LO.1:. F$,8,1.O.D.. 1100:. 800...I.."..... CHE CKING SHADES.... (40 SEC.)...N.. X.0 . 9 99...S..3.U.X.B.B(X.X2):LO.B.15:HI.(B.24 0).16.....S(A(LO))..1:S(A(HI))..1....... ....."SHADES USED:.5. .." 0 BLA CK ";:.S(0).."YES";.;.....F...." 1-2 GREY1 ";:.S(1).."YES";.L........ .." 2-3 GREY2 ";:.S(2).."YES";. ......H...." 3-4 GREY3 ";:.S(3) .."YES";.N.......H.." 5 WHITE ";:.S(4).."YES";...I...>.R.." DO YOU W ISH TO CHANGE SHADES ?";:Q$."":. Q$:Q$.H (Q$,1).V.T..Q$."Y".Q$."Y". 220.|.V.. X.1 . 4:W(X).X.1:.:W(0).0:. 300...... X.0 . 4...... .(S(X)) . 290.J...W(X)..1:.S$(X )" WEIGHT = (0-5)";:. W(X)......W(X).0 . W(X).5 . 240..."...(.,.RH$."-1":.".RAND OM HASH FACTOR (0-100):";:.RH$:RH.E(RH$) .=....RH.0.RH.100.300.J.0.HH$."":.".EXTR A HASH";:.HH$:HH$.H(HH$,1)...1.HH.0:.HH$ ."Y".HH$."Y".HH..1...4.. 1000:. HASH IT UP !...6.. X.0.999:B.B(X.X2)...@.LO.B.15 :HI.(B.240).16:Z.A(HI).A(LO)...J..Z..0.4 00...T..F.0.7:AD.24576.(X.8).F.'.^..AD,( .(B(AD))).255:..=.H.TM.LO:LO.HI:HI.TM.J. ...X.X2,16.F....F.0.7:AD.24576.(X.8).F.. ...BY.B(AD):BN..(BY).255.....HB.W(A(HI)) :LB.W(A(LO)).E...NB.((BY.B(X1.HB)).(BN.B (X1.LB))).255.T.B..AD,NB:.SY...G..RH.(.( 0).100)..SY...H..HH..SY...L.....V....... .4:. A$:.A$."" . 500.'.... 1100.`....".. ... DO YOU WISH TO SAVE THIS IMAGE";:Q$ ."":. Q$.O...Q$.H(Q$,1)...... Q$."N" . Q $."N" . 700......Q$.."Y" . Q$.."Y" . 510 .M...."... 1)SAVE WITH COLOR RAM.... 0.." 2)SAVE WITHOUT COLOR RAM..'.:.. ".... ENTER DIGIT:";:CQ$."":. CQ$:CQ .E(CQ$).A.D.SS.X2:.CQ.2.SS.4096.6.L.X.. 2000.R.....V. ..".... 1) UNIFY COLOR S ONLY...*.." 2) UNIFY AND DECOLOR.. ./.CO$.""...4.."... ENTER DIGIT: ";: . CO$:CO.E(CO$):.CO..1.CO..2.800...>..CO .2. 105...H..1000.4.R..X.0.999:B.B(X.X2) :LO.B.15:HI.(B.240).16:Z.A(HI).A(LO).;.W ..3.I.\..Z..0.890.\.F..X.X2,LO.16.HI...P ..F.0.7:AD.24576.(X.8).F:.AD,(.(B(AD))). 255:....Z..:.500...........BA.B(56576):. 56576,150.T...SM.B(53272):.53272,120.... .HR.B(53265):.53265,59.........L..56576, BA...V..53272,SM...`..53265,HR.$.J...D.P .SH..(SS.256):SL.SS.(SH.256).M.Z.SE.3257 7:EH..(SE.256):EL.SE.(EH.256)......".FIL E NAME TO SAVE PICTURE: ";:. FF$...... 1 000.U...TT$.FF$:ZX.B(53).256.B(54).C(TT$ ):.782,ZX.256......781,ZX.B(782).256:.78 0,C(TT$):.65469......780,1:.781,8:.782,1 :.65466.<....254,SH:.253,SL:.780,253.W. ..782,EH:.781,EL:.65496.B.*.. 1100.H.3.. ...
> CLICK IMAGE PREVIEW FOR FULL MODAL