Відеопам'ять у текстовому режимі (+текстпрограми), Детальна інформація

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);

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

PutSymbol('-',$0E,J+4,11);

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

IF (J
ELSE IF (NOT Dir) AND (J>0)

THEN DEC(J)

ELSE BEGIN

Dir:=NOT Dir;

END;

Delay(120);

UNTIL KeyPressed;

ClearScreen;

END.