Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!cica!iuvax!purdue!haven!adm!news
From: I2010506%DBSTU1.BITNET@cunyvm.cuny.edu
Newsgroups: comp.lang.pascal
Subject: (none)
Message-ID: <22158@adm.BRL.MIL>
Date: 22 Jan 90 14:30:39 GMT
Sender: news@adm.BRL.MIL
Lines: 48

Date: 22 January 1990, 14:48:27 MEZ
From: Christian Boettger        +49 (0)531 3915113 / I2010506 at DBSTU1
To:   info-pascal at vim.brl

Date:         Mon, 22 Jan 90 14:27:55 MEZ
From:         Christian Boettger <I2010506@DBSTU1>
Subject:      re^x: TP:NUM_LOCK, error
To:           Borland PASCAL Discussion Group <pascal-l@yalevm>,
              PASCAL Language Discussion List <pascal-l@trearn>,
              "PASCAL (Language) Discussions" <pascal-l@uiucvmd>
========================================================================
Kevin Lowey <lowey@sask.usask.ca> issued a trick to turn on/off num_lock
etc like this:
>type
>  shift_status = set of (right_shift,left_shift,ctrl,alt,
>                         scroll_lock,num_lock,caps_lock,insert);
>var
>  bios_shift_status : shift_status absolute $40:$17
> ...
>bios_shift_status := bios_shift_status + num_lock;     <---ERROR
>...
>if num_lock in bois_shift_status then ....

I tried to compile this, the result was "Error 23: Type mismatch".
Who can help?? (I'm using TP 5.5)
To test some more, I wrote a short routine that just displays whether
num_lock is ON or OFF (using the IF line above) and it worked fine.
But the TYPE MISMATCH won't disappear...

Christian

PS.:Please send a copy of your response to one of the following addresses:
________________________________________________________________________________
       Christian Boettger                phone:  (+49) (0)531/391-5113
mail:  Institut fuer Metallphysik und Nukleare Festkoerperphysik,
       (room -167/-168), Technische Universitaet Braunschweig,
       Mendelssohnstrasse 3, D-3300 Braunschweig, Bundesrepublik Deutschland
                                                  FRG / RFA
________________________________________________________________________________
EARN:  I2010506@DBSTU1.BITNET         InterNet:   boettger@julian.uwo.CA
                                        UseNet:   boettger@julian.UUCP
X.400: boettger@rz.tu-braunschweig.dbp.DE
       ( S=boettger; OU=rz; P=tu-braunschweig; A=dbp; C=de; )
UUCP / UseNet:
  (whereever)!uunet!watmath!julian!boettger
  (whereever)!uunet!boettger@hydra.uwo.CA
  (whereever)!uunet!mcvax!unido!i2010506@DBSTU1.BITNET
********************************************************************************