Вопросы по программированию

[AlexS58]

Хорошо бы собрать данные с реальных Корветов. Вот программка, которая крупно рисует палитру Корвета с разными значениями LUT 0.

Немного поизвращался над Вашей прогой:

Скрытый текст

PROGRAM PALET3;
CONST
  B = 3;  (* BLOCK *)
VAR
  I,P:BYTE;
  C:CHAR;
BEGIN
  CLRSCR;
  CLRGSCR;
  WRITE(#27'1');
  FOR I:=0 TO 15 DO
    MEM[$FAFB] := I*17;
    MEM[$FAFB] := $78;
    FOR I:=0 TO 31 DO
      FOR P:=0 TO 7 DO
        MEM[$FC20+P*64+I]:=B;
        FOR I:=0 TO 7 DO BEGIN
          SETCOLOR(I);
          RECTANGLE(I*32, 0, I*32+31, 127, TRUE);
          RECTANGLE(I*32+256, 0, I*32+287, 127, TRUE)
        END;
        WRITE(#27'6');
        FOR I:=1 TO 16 DO WRITE('Test');
        WRITE(#27'7');
        FOR I:=1 TO 16 DO WRITE('Test');
        FOR I:=1 TO 128 DO WRITE(#16#$AE);
        FOR I:=1 TO 128 DO WRITE(#16#$81);
        P :=0;
        REPEAT
          GOTOXY(9,9);WRITE(#27'6   ');GOTOXY(1,9);
          WRITE('BLACK IS ', P);
          GOTOXY(9,10);WRITE(#27'7   ');GOTOXY(1,10);
          WRITE('BLACK IS ', P);
          MEM[$FAFB] := P*16;
          P := (P+1)AND 15;
          C := READKEY
        UNTIL ORD(C) = 27;
        CLRSCR
END.

[свернуть]

PALET3.zip