>> |
Anonymous
>>171530 *eyeroll* Execute this and open with Paint Shop Pro ...
REM (c) Anonymous No. 171235, protected by international patents and treaties. REM This software is provided as-is and without any warranty at all. REM May God have mercy on your poor, defenseless files.
ON ERROR GOTO handler
DIM r, g, b AS INTEGER DIM c AS STRING * 1
KILL "test.raw" OPEN "test.raw" FOR BINARY AS #1
FOR r = 0 TO 255: PRINT 255 - r FOR g = 0 TO 255 FOR b = 0 TO 255
c = CHR$(r): PUT #1, , c c = CHR$(g): PUT #1, , c c = CHR$(b): PUT #1, , c
NEXT b NEXT g NEXT r CLOSE #1
handler: RESUME NEXT
|