Program SETNUM;

{ Schaltet den Cursor Block ein oder aus   ON / OFF                        }
{ Auchtung auf grossschreibung der Parameter schauen                       }
{ Geschrieben: Manuel Magnin 16.08.91 in Turbo Pascal V5.0                 }
{ Bits: 16 = Scroll Lock, 32 = Num Lock, 64 = Caps Lock                    }

Begin;
  If ParamCount = 0 Then Begin;   { kein Kommandozeilen-Parameter angegeben }
    WriteLn('Bitte Parameter angeben    Bsp.: "SETNUM ON" oder "SETNUM OFF"');
  End Else Begin;
    WriteLn('SET Num Lock     Key-LED');
    If ParamStr(1)='OFF' Then Mem[$40:$17]:=Mem[$40:$17] And (255-32);
    If ParamStr(1)='ON'  Then Mem[$40:$17]:=Mem[$40:$17] Or  32;
  End;
End.