[Back to CURSOR SWAG index] [Back to Main SWAG index] [Original]

    {

       Change the cursor aspect in text mode

                   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
                   º                                        º°
                   º          AVONTURE CHRISTOPHE           º°
                   º              AVC SOFTWARE              º°
                   º     BOULEVARD EDMOND MACHTENS 157/53   º°
                   º           B-1080 BRUXELLES             º°
                   º              BELGIQUE                  º°
                   º                                        º°
                   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼°
                   °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

    }

    Type
       CursorType = (cNormal, cInsert);

    PROCEDURE Set_Cursor (cType : CursorType); ASSEMBLER;

    ASM

        Cmp  cType, cNormal
        Je   @Normal

        Mov  Ah, 01h
        Mov  Cl, 15h
        Mov  Ch, 01h

        Jmp  @Call

    @Normal:

        Mov  Ah, 01h
        Mov  Cx, 0607h

    @Call:

        Int  10h

    END;

    Begin

       { Set the cursor normal }

       Set_Cursor (cNormal);

       { Set the cursor like a square -like used in an insert mode- }

       Set_Cursor (cInsert);

    End;

[Back to CURSOR SWAG index] [Back to Main SWAG index] [Original]