(saveFormat "2.0")
(date "Tue 19/Dec/1995 09:23:26 MST")
(veerev "3.2")
(platform "HP9000s700")
(SaveCF no)
(filterNAN 0)
(component 0 ROOTCONTEXT
 (name "Trapping an Error")
 (implementation
  (retainGlobals YES)
  (locked no)
  (trigMode deg)
  (nextID 25)
  (component 4 ESCAPE
   (name "Raise Error #1")
   (implementation
	(code 2001)
	(message "You Cannot Divide By Zero.  Enter another value for B.")
   )
  )
  (component 8 TEXTDISPLAY
   (interface
	(input 1
	 (name "Data")
	)
   )
   (implementation
   )
  )
  (component 10 IFTHENELSE
   (interface
	(input 1
	 (name "A")
	 (optional yes)
	)
	(output 1
	 (name "Then")
	 (lock name constraints)
	)
	(output 2
	 (name "Else")
	 (lock name constraints)
	)
   )
   (implementation
	(expr "A==511")
   )
  )
  (component 16 CONSTANT
   (name "Real")
   (interface
	(output 1
	 (name "Real")
	 (lock name constraints)
	)
   )
   (implementation
	(value Real
	 (data  0)
	)
	(initValue Real
	 (data  0)
	)
   )
  )
  (component 18 CONSTANT
   (name "Real")
   (interface
	(output 1
	 (name "Real")
	 (lock name constraints)
	)
   )
   (implementation
	(value Real
	 (data  1)
	)
	(initValue Real
	 (data  0)
	)
   )
  )
  (component 21 FORMULA
   (name "A/B")
   (interface
	(input 1
	 (name "A")
	 (optional yes)
	)
	(input 2
	 (name "B")
	 (optional yes)
	)
	(output 1
	 (name "Result")
	 (lock name constraints)
	)
	(output 2
	 (type exception)
	 (name "Error")
	 (lock name constraints)
	 (optional yes)
	)
   )
   (implementation
	(expr 1 "A/B")
   )
  )
  (component 22 ESCAPE
   (name "Raise Error #2")
   (interface
	(input 1
	 (name "Code")
	 (tag "Code")
	 (requires
	  (datatype Int16)
	  (shape "Scalar")
	 )
	 (lock constraints)
	 (optional yes)
	 (buffer YES)
	)
   )
   (implementation
	(code 511)
	(message "See online help for error number below:")
   )
  )
  (component 23 NOTE
   (implementation
   )
  )
  (component 24 NOTE
   (name "Information")
   (implementation
	(text2 7
	  "This example shows how to use the "
	  "Raise Error object to trap an error"
	  "in an HP VEE program.  For further "
	  "information, see \"To Trap an Error\" "
	  "in your \"How to Use HP VEE\" manual."
	  ""
	  ""
	)
   )
  )
  (configuration
   (connect D2:1 D0:0)
   (connect D5:1 D1:1)
   (connect D5:2 D2:1)
   (connect D4:1 D5:1)
   (connect D3:1 D5:2)
   (connect D2:2 D6:0)
   (connect D5:2 D6:1)
  )
 )
 (viewFor -1
  (active detail)
  (detail
   (geometry 0 53 900 447)
   (configuration
	(viewFor 4
	 (active detail)
	 (icon
	  (geometry 0 0 101 0)
	 )
	 (detail
	  (geometry 514 363 473 74)
	 )
	)
	(viewFor 8
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 329 279 143 42)
	 )
	)
	(viewFor 10
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 347 365 77 70)
	 )
	 (terminals on)
	)
	(viewFor 16
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 22 376 77 28)
	  (showFormat real)
	 )
	)
	(viewFor 18
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 21 317 79 27)
	  (showFormat real)
	 )
	)
	(viewFor 21
	 (active detail)
	 (icon
	  (geometry 0 0 26 0)
	 )
	 (detail
	  (geometry 156 305 69 110)
	 )
	 (terminals on)
	)
	(viewFor 22
	 (active detail)
	 (icon
	  (geometry 0 0 101 0)
	 )
	 (detail
	  (geometry 316 491 368 78)
	 )
	 (terminals on)
	)
	(viewFor 23
	 (active icon)
	 (icon
	  (geometry 41 106 338 48)
	  (iconImage "disclaim.icn")
	  (label off)
	 )
	 (detail
	  (geometry 830 250 200 100)
	  (editing enabled)
	 )
	)
	(viewFor 24
	 (active detail)
	 (icon
	  (geometry 0 0 77 0)
	  (iconImage "notepad.icn")
	 )
	 (detail
	  (geometry 532 74 396 133)
	  (editing disabled)
	 )
	 (title off)
	)
	(connect D2:1 D0:0
	 (points 5 476 380 490 380 490 320 750 320 750 342)
	)
	(connect D5:1 D1:1
	 (points 4 277 330 300 330 300 300 326 300)
	)
	(connect D5:2 D2:1
	 (points 4 277 390 290 390 290 400 314 400)
	)
	(connect D4:1 D5:1
	 (points 2 102 330 123 330)
	)
	(connect D3:1 D5:2
	 (points 2 101 390 123 390)
	)
	(connect D2:2 D6:0
	 (points 3 476 420 490 420 490 470)
	)
	(connect D5:2 D6:1
	 (points 6 277 390 290 390 290 440 240 440 240 530 263 530)
	)
   )
   (stackingOrder 5 2 6 7 1 3 4 0 8)
  )
  (titleBg "Gray")
  (titleFg "Black")
  (numberFormats
   (realFormat standard)
   (realSigDigits 4)
   (realRadixSpec 4)
   (integerBase decimal)
  )
 )
)
