COLORDEMO.BAT
FILE INFORMATION
FILENAME(S): COLORDEMO.BAT
FILE TYPE(S): SEQ
FILE SIZE: 352b
FIRST SEEN: 2025-10-20 14:31:49
APPEARS ON: 1 disk(s)
FILE HASH
5eb4fd3a6f62cd0b61384d78cb1853cbaacca9d22a02ff1c5d3aa3adc5b71346
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KEYDOS ROM DISK | COLORDEMO.BAT | SEQ | Treasure Chest - Klaus Der Suhler | 19 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 20 46 41 53 54 3A 50 52 49 4E 54 43 48 52 |.. FAST:PRINTCHR| 00000010: 24 28 31 34 37 29 3B 3A 43 43 3D 52 43 4C 52 28 |$(147);:CC=RCLR(| 00000020: 35 29 3A 42 43 3D 52 43 4C 52 28 36 29 0D 20 55 |5):BC=RCLR(6). U| 00000030: 24 3D 43 48 52 24 28 31 34 35 29 2B 43 48 52 24 |$=CHR$(145)+CHR$| 00000040: 28 31 34 35 29 2B 43 48 52 24 28 31 34 35 29 2B |(145)+CHR$(145)+| 00000050: 43 48 52 24 28 31 34 35 29 2B 43 48 52 24 28 31 |CHR$(145)+CHR$(1| 00000060: 34 35 29 2B 43 48 52 24 28 31 34 35 29 0D 20 46 |45)+CHR$(145). F| 00000070: 4F 52 20 49 3D 31 54 4F 31 36 3A 43 4F 4C 4F 52 |OR I=1TO16:COLOR| 00000080: 35 2C 49 3A 50 52 49 4E 54 20 22 2A 2A 2A 2A 2A |5,I:PRINT "*****| 00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A |**************":| 000000B0: 4E 45 58 54 0D 20 43 4F 4C 4F 52 35 2C 43 43 3A |NEXT. COLOR5,CC:| 000000C0: 50 52 49 4E 54 20 22 91 91 D0 52 45 53 53 20 12 |PRINT "...RESS .| 000000D0: D3 D0 C1 C3 C5 92 20 54 4F 20 43 59 43 4C 45 20 |...... TO CYCLE | 000000E0: 43 4F 4C 4F 52 53 2E 22 3B 0D 20 46 4F 52 20 49 |COLORS.";. FOR I| 000000F0: 3D 31 54 4F 31 36 3A 43 4F 4C 4F 52 36 2C 49 3A |=1TO16:COLOR6,I:| 00000100: 57 41 49 54 32 30 38 2C 31 3A 50 4F 4B 45 32 30 |WAIT208,1:POKE20| 00000110: 38 2C 30 3A 4E 45 58 54 0D 20 50 52 49 4E 54 20 |8,0:NEXT. PRINT | 00000120: 55 24 3B 0D 20 43 4F 4C 4F 52 35 2C 43 43 3A 43 |U$;. COLOR5,CC:C| 00000130: 4F 4C 4F 52 36 2C 42 43 3A 53 4C 4F 57 3A 50 4F |OLOR6,BC:SLOW:PO| 00000140: 4B 45 31 35 33 2C 30 3A 44 43 4C 4F 53 45 20 4F |KE153,0:DCLOSE O| 00000150: 4E 20 55 28 50 45 45 4B 28 31 38 36 29 29 0D 0D |N U(PEEK(186))..|
.. FAST:PRINTCHR$(147);:CC=RCLR(5):BC=RC LR(6). U$=CHR$(145)+CHR$(145)+CHR$(145)+ CHR$(145)+CHR$(145)+CHR$(145). FOR I=1TO 16:COLOR5,I:PRINT "********************* **************":NEXT. COLOR5,CC:PRINT ". .PRESS .SPACE. TO CYCLE COLORS.";. FOR I =1TO16:COLOR6,I:WAIT208,1:POKE208,0:NEXT . PRINT U$;. COLOR5,CC:COLOR6,BC:SLOW:PO KE153,0:DCLOSE ON U(PEEK(186))..
> CLICK IMAGE PREVIEW FOR FULL MODAL