ВІДЕОПАМ’ЯТЬ

END;

BEGIN

Dir:=TRUE;

ReadScreenProp;

ClearScreen;

{WriteLn(PageSize,' ',VOffset,' ',ActivePage,' ',Cols,' ',Rows,' ',ChOff);}

PutSymbol(' ',$0000,0,0);

PutSymbol('V',$1E,3,1);

PutSymbol('I',$1E,3,2);

PutSymbol('D',$1E,3,3);

PutSymbol('E',$1E,3,4);

PutSymbol('O',$1E,3,5);

PutSymbol('M',$70,2,4);

PutSymbol('E',$02,3,4);

PutSymbol('M',$70,4,4);

PutSymbol('O',$70,5,4);

PutSymbol('R',$70,6,4);

PutSymbol('Y',$70,7,4);

J:=0;

REPEAT

IF Dir THEN PutSymbol(' ',$00,J-1,11)

ELSE PutSymbol(' ',$00,J+6,11);

PutSymbol('D',$0E,J,11);

PutSymbol('C',$0E,J+1,11);

PutSymbol('S',$0E,J+2,11);