DEFINT A-Z: DIM C(16)
SCREEN 13

DATA 00,00,00,56,40,32,40,24,16,32,16,08,16,40,56,40,00,08,00,00,00,56,48,08
DATA 00,20,00,00,32,00,08,48,08,52,32,20,28,08,08,40,20,20,60,40,40,56,56,56

FOR N = 0 TO 15: READ R, G, B
OUT &H3C8, N: OUT &H3C9, R: OUT &H3C9, G: OUT &H3C9, B
NEXT N

OPEN "PIGGY.SCR" FOR RANDOM AS #1 LEN = 1
      FIELD #1, 1 AS B$
FOR N = 0 TO 16: GET #1: C(N) = ASC(B$): NEXT N
                     
FOR Y = YY TO 199 + YY: FOR X = XX TO 319 + XX STEP 2
IF EOF(1) <> 0 THEN 999
GET #1: A = ASC(B$): A1 = A AND &HF: A2 = A \ 16
PSET (X, Y), A1: PSET (X + 1, Y), A2
NEXT X, Y:
999 CLOSE
FOR N = 0 TO 15: LINE (N * 20, 177)-(N * 20 + 20, 197), N, BF: NEXT N
SLEEP

END