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

    {
    Cursor An  ---> Cursor on

    Cursor Aus ---> Cursor Off

    Cursor ?   ---> The helptext
    }

    Program Cursor;

    Uses
      Dos;

    Label
      Schluss;

    Var

      r :Registers;
      p : String[10];
      cH, cL : Byte;

    Begin
      p := ParamStr(1);
      If P = 'An'
        Then
          Begin
            cH := 0;
            cL := 8;
          End;
      If (P = 'Aus')
        Then
          Begin
            cH := 8;
            cL := 0;
          End;
      If (P = '?')
        Then
          Begin
            WriteLn('Folgende Parameter sind mvglich:');
            WriteLn('--------------------------------');
            WriteLn('Cursor An  :  liefert den Block');
            WriteLn('Cursor Aus :  schaltet den Cursor ab');
            WriteLn('Cursor ?   :  liefert diese Aufstellung');
            WriteLn;
            Write('Weiter --> Return-(Enter-)Taste dr|cken');
            ReadLn(p);
            GoTo Schluss;
          End;
      R.ax := 1 ShL 8;
      R.cx := cH ShL 8 + cL;
      Intr($10,r);

    Schluss:

    End.

    --

    eMail: voss@ck.be.schule.de

           Herbert_Voss@msn.com

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