Display Routine LIFT given LIFT

  '' Goldmine Simulation                                       August 2, 1988
  '' CACI Products Company

  '' Update the location of the lift.  This routine needed to be written in
  '' order to present the number of loads in the lift.  Another way to do
  '' this would be to make a display variable which was monitored by a dial
  '' valuebox, etc.  In that case, this routine would not be needed.


  Define LIFT as a pointer variable
  Define LIFT.LOAD as a text variable


  Let VXFORM.V = 1  '' set viewing (normalization) transform

  If LIFT.STATUS(LIFT) eq "UP" or LIFT.STATUS(LIFT) eq "DOWN"
    Let DCOLOR.A(ICON.A(LIFT)) = 1
  Else
    Let DCOLOR.A(ICON.A(LIFT)) = 13
  Endif
  Display ICON.A(LIFT)

  ''Display the load of the lift
  Call MXLATE.R giving -12.0, 3.2
  Let LIFT.LOAD = ITOT.F(N.LIFT.LOAD(LIFT))
  Call TEXTCOLOR.R giving 13
  Call WGTEXT.R giving LIFT.LOAD,0,0

End ''LIFT
