[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]