DEF SEG = &HA000; POKE X + (Y * 320&), color DEF SEG
OUT &H3C8;, color to change OUT &H3C9;, red value(a number from 0 to 64) OUT &H3C9;, green value(a number from 0 to 64) OUT &H3C9;, blue value(a number from 0 to 64)
OUT &H3C7;, color to find red value = INP &H3C9; green value = INP &H3C9; blue value = INP &H3C9;
DEF SEG = &HA000; BSAVE "insert file name here", 0, 64000 DEF SEG
DEF SEG = &HA000; BLOAD "insert file name here", 0 DEF SEG
DEF SEG=0: POKE &H41A;, PEEK(&H41C;)
DEF SEG = 0 FOR x = 0 TO 3 POKE (108 + x), PEEK (112 + x) NEXT
SUB DELAY (seconds!) FOR a = 0 TO 70 * seconds! WAIT &H3DA;, 8 WAIT &H3DA;, 8, 8 NEXT a END SUB
SUB DELAY (seconds%) seconds% = seconds% * 19 DEF SEG = 0 POKE (1132), 0 CountDown: IF PEEK(1132) < seconds% THEN GOTO CountDown DEF SEG END SUB