PROCEDURE DEMO;

Const
  Shape :array[0..31] of Word =

  ($FFFF,$8C5D,$B5C9,$B5D5,$B5DD,$B4DD,$B5DD,$B5DD,
   $B5DD,$8C5D,$FFFF,$8001,$8001,$8001,$8001,$FFFF,
   $0000,$73A2,$4A36,$4A2A,$4A22,$4B22,$4A22,$4A22,
   $4A22,$73A2,$0000,$7FFE,$4002,$4002,$7FFE,$0000);

Var
  reg :registers;

Begin
  Reg.AX := 9 ;
  Reg.BX := 0 ;
  Reg.CX := 0 ;
  Reg.ES := SEG(Shape[0]);
  Reg.DX := OFS(Shape[0]);
  Intr($33,Reg);
End;