routine DRAW.LABELS


call OPEN.SEG.R
call GPRIORITY.R(SEGID.V, 1)
call TEXTALIGN.R(1, 1)
call TEXTCOLOR.R(1)
call TEXTSIZE.R(2000)
call WGTEXT.R("TAXI SIMULATION", 16384, 30768)
call CLOSE.SEG.R

call OPEN.SEG.R
call GPRIORITY.R(SEGID.V, 1)
call MARKCOLOR.R(MARKCOLOR)
call MARKSIZE.R(MARKSIZE)
call TEXTALIGN.R(0, 1)
call TEXTCOLOR.R(1)
call TEXTSIZE.R(500)
call MARKTYPE.R(CUSTOMER.MARKTYPE)
let POINT(1, 1) = V.XLO + MARKSIZE
let POINT(2, 1) = 11884
call POLYMARK.R(1, POINT(*, *))
call WGTEXT.R("CUSTOMER PICK-UP POINT",
POINT(1, 1) + MARKSIZE, POINT(2, 1))
call MARKTYPE.R(DESTINATION.MARKTYPE)
let POINT(2, 1) = 10134
call POLYMARK.R(1, POINT(*, *))
call WGTEXT.R("CUSTOMER DROP-OFF POINT",
POINT(1, 1) + MARKSIZE, POINT(2, 1))
call CLOSE.SEG.R

end
