Group: comp.lang.forth · Group Profile · Search for Pal2 in comp.lang.forth
Author: Tim Trussell
Date: Dec 8, 2006 08:03
... 0 fill \ the work palette create Pal2[] here 256 3 * dup allot 0 ..., then suddenly bang it to screen. Pal2 is used to "remember" \ the original ...0 do i GetPal \ r g b Pal2[] i 3 * + R R@ .blue C!...i dup GetPal \ i r g b Pal2[] i 3 * + R \ i r g ... WaitRetrace 256 0 do i Pal2[] i 3 * + R R@ .red C@...
| 
