Ehm, a new lamp doesn't get hot when u screw it in....

 Code:
    :GetNewLampScrew
    $N=CreateObject("Lamp.Screw")
    While $N.Loose
      $N.Rotate(180)
      If $N.IsHot
        $S.Toggle
        $=RunFingersUnderColdWater(@WKSTA)
        If $N.Broken
          Goto "GetNewLampScrew"
        EndIf
      EndIf
    Loop


 Originally Posted By: NTDOC
LOL - Pretty much the whole Country is isn't it?

Yup hence the "dijken"