EXPORT RECALLLIST(LST,OX,OY)
BEGIN
  LOCAL W,H,R,X,Y,T,C,P;
  LST(1)►W;
  LST(2)►H;
  INT(W/16)►R;
  IF W MOD 16>0 THEN
    R+1►R
  END; 
  FOR Y FROM 0 TO H-1 DO
    FOR T FROM 0 TO R-1 DO 
      LST(Y*R+T+3)►P;
      FOR X FROM 0 TO 15 DO
        IF X+16*T≥W THEN
          BREAK;
        END;
        P MOD 4►C;
        INT(P/4)►P;
        PIXON_P((15-X)+16*T+OX,Y+OY,C);
      END;
    END;
  END;
  FREEZE
END;

EXPORT RECALLALL()
BEGIN
  RECT();
  RECALLLIST(L2,0,0);
  RECALLLIST(L3,0,50);
  RECALLLIST(L4,0,100);
  FREEZE;
END;