Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

textattr:=7; clrscr; a4; readkey;

end.

CURSOV26.PAS

uses crt, graph;

procedure a5;

var

aVGA, aVGALO: integer;

begin

aVGA:=VGA; aVGALO:=VGAHI;

initGraph(aVGA, aVGALO, ''); {entering video mode 640x480x16}

setFillStyle(1, 13);

bar(10, 10, 100, 100); {making a filled rectangle}

readkey; {press any key}

setPalette(13, 3); {palette changing}

end;

procedure a6; assembler;

asm

{palette changing}

mov ah, 10h {function 10h for palette operations}

mov al, ah {subfunct 10h for changin 1 palette color}

mov bx, 14 {14 color number}

mov bh, 10 {red 10}

mov ch, 40 {green 40}

mov cl, 30 {blue 30}

int 10h {changing}

end;

procedure a7; assembler;

const

n: byte = 14; {color}

r: byte = 63; {red}