(saveFormat "2.0")
(date "Tue 19/Dec/1995 09:23:53 MST")
(veerev "3.2")
(platform "HP9000s700")
(SaveCF no)
(filterNAN 0)
(component 0 ROOTCONTEXT
 (name "Calling a UserFunction")
 (implementation
  (UserFunctions
   (nextID 1)
   (context 0
	(name "RandomArray")
	(interface
	 (output 1
	  (type data)
	  (name "Array")
	  (lock constraints)
	  (optional yes)
	 )
	)
	(implementation
	 (locked no)
	 (trigMode deg)
	 (nextID 4)
	 (component 0 ALLOCATEARRAY
	  (name "Alloc Real")
	  (interface
	   (output 1
		(name "Array")
		(tag "Array")
		(lock constraints)
	   )
	  )
	  (implementation
	   (numDims 1)
	   (dimSizes "9")
	   (type "Real")
	   (initEnum "Init Value")
	   (initialValue
		(data  0)
	   )
	   (from 1)
	   (thru 10)
	  )
	 )
	 (component 1 RANDOMNUMBER
	  (interface
	   (output 1
		(name "Rand Val")
		(lock name constraints)
	   )
	  )
	  (implementation
	   (lowerLimit 0)
	   (upperLimit 1)
	  )
	 )
	 (component 2 FORCOUNT
	  (interface
	   (output 1
		(name "Count")
		(lock name constraints)
	   )
	  )
	  (implementation
	   (count 9)
	  )
	 )
	 (component 3 TOARRAY
	  (interface
	   (input 1
		(name "Array")
		(tag "Array")
		(lock constraints)
	   )
	   (input 2
		(name "Datum")
		(tag "Datum")
		(requires
		 (shape "Scalar")
		)
		(lock constraints)
	   )
	   (input 3
		(name "Index 1")
		(tag "Index 1")
		(requires
		 (datatype Int32)
		 (shape "Scalar")
		)
		(lock constraints)
	   )
	   (input 4
		(type trigger)
		(name "XEQ")
		(lock name constraints)
	   )
	   (output 1
		(name "Array")
		(tag "Array")
		(lock constraints)
	   )
	  )
	  (implementation
	   (numDims 1)
	  )
	 )
	 (configuration
	  (connect D2:1 D1:0)
	  (connect D0:1 D3:1)
	  (connect D1:1 D3:2)
	  (connect D2:1 D3:3)
	  (connect D2:0 D3:4)
	  (connect D3:1 O1:1)
	 )
	)
	(viewFor 0
	 (active detail)
	 (detail
	  (geometry -327 -213 634 402)
	  (configuration
	   (viewFor 0
		(active detail)
		(icon
		)
		(detail
		 (geometry -284 -177 212 131)
		)
		(terminals on)
	   )
	   (viewFor 1
		(active icon)
		(icon
		 (geometry -141 16 126 24)
		)
		(detail
		)
		(terminals on)
	   )
	   (viewFor 2
		(active detail)
		(icon
		 (iconImage "loop.icn")
		)
		(detail
		 (geometry -293 53 111 30)
		)
	   )
	   (viewFor 3
		(active detail)
		(icon
		 (geometry 250 280 80 61)
		 (iconImage "build.icn")
		)
		(detail
		 (geometry 67 -47 141 210)
		)
		(terminals on)
	   )
	   (connect D2:1 D1:0
		(points 5 -180 68 -158 68 -158 -2 -78 -2 -78 13)
	   )
	   (connect D0:1 D3:1
		(points 4 -20 -112 -8 -112 -8 -22 4 -22)
	   )
	   (connect D1:1 D3:2
		(points 2 -13 28 4 28)
	   )
	   (connect D2:1 D3:3
		(points 4 -180 68 -158 68 -158 78 4 78)
	   )
	   (connect D2:0 D3:4
		(points 3 -238 85 -238 128 4 128)
	   )
	   (connect D3:1 O1:1
		(points 4 260 58 272 58 272 -16 306 -16)
	   )
	  )
	  (stackingOrder 2 1 3 0)
	 )
	 (terminals on)
	)
   )
  )
  (retainGlobals YES)
  (locked no)
  (trigMode deg)
  (nextID 32)
  (component 5 TEXTDISPLAY
   (interface
	(input 1
	 (name "Data")
	)
   )
   (implementation
   )
  )
  (component 19 CALL
   (name "Call Function")
   (interface
	(output 1
	 (name "Array")
	 (lock name constraints)
	 (optional yes)
	)
   )
   (implementation
	(callFunc "RandomArray")
	(parmMode "rev2x_22rules")
   )
  )
  (component 20 FORMULA
   (interface
	(output 1
	 (name "Result")
	 (lock name constraints)
	)
   )
   (implementation
	(expr 1 "1+RandomArray()")
   )
  )
  (component 24 TOFILE
   (implementation
	(transactions 1
	  "WRITE CONTAINER RandomArray()"
	)
	(attr iopath file write "myFile"
	 (readTerm "\n")
	 (fs "\r\n")
	 (eol "\r\n")
	 (multiField fullSyntax)
	 (arrayFormat block)
	)
   )
  )
  (component 26 FROMFILE
   (interface
	(output 1
	 (name "X")
	 (lock constraints)
	 (optional yes)
	)
   )
   (implementation
	(transactions 1
	  "READ CONTAINER x"
	)
	(attr iopath file read "myFile"
	 (readTerm "\n")
	 (fs "\r\n")
	 (eol "\r\n")
	 (multiField fullSyntax)
	 (arrayFormat block)
	)
   )
  )
  (component 28 TEXTDISPLAY
   (interface
	(input 1
	 (name "Data")
	)
   )
   (implementation
   )
  )
  (component 29 TEXTDISPLAY
   (interface
	(input 1
	 (name "Data")
	)
   )
   (implementation
   )
  )
  (component 30 NOTE
   (implementation
   )
  )
  (component 31 NOTE
   (name "Information")
   (implementation
	(text2 5
	  "This example shows three ways to call "
	  "a UserFunction.  For further information,"
	  "see \"To Call a UserFunction in a Program\" "
	  "in your \"How to Use HP VEE\" manual."
	  ""
	)
   )
  )
  (configuration
   (connect D1:1 D0:1)
   (connect D3:0 D4:0)
   (connect D4:1 D5:1)
   (connect D2:1 D6:1)
  )
 )
 (viewFor -1
  (active detail)
  (detail
   (geometry 0 53 900 447)
   (configuration
	(viewFor 5
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 343 317 134 187)
	 )
	)
	(viewFor 19
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 77 384 196 53)
	 )
	 (terminals on)
	)
	(viewFor 20
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 544 389 152 42)
	 )
	 (terminals on)
	)
	(viewFor 24
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 98 558 285 104)
	 )
	 (terminals on)
	)
	(viewFor 26
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 112 706 257 89)
	 )
	 (terminals on)
	)
	(viewFor 28
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 453 597 134 187)
	 )
	)
	(viewFor 29
	 (active detail)
	 (icon
	 )
	 (detail
	  (geometry 773 317 134 187)
	 )
	)
	(viewFor 30
	 (active icon)
	 (icon
	  (geometry 531 136 338 48)
	  (iconImage "disclaim.icn")
	  (label off)
	 )
	 (detail
	  (geometry 830 250 200 100)
	  (editing enabled)
	 )
	)
	(viewFor 31
	 (active detail)
	 (icon
	  (geometry 0 0 77 0)
	  (iconImage "notepad.icn")
	 )
	 (detail
	  (geometry 46 93 408 134)
	  (editing disabled)
	 )
	 (title off)
	)
	(connect D1:1 D0:1
	 (points 2 325 410 340 410)
	)
	(connect D3:0 D4:0
	 (points 2 240 664 240 685)
	)
	(connect D4:1 D5:1
	 (points 4 401 750 420 750 420 690 450 690)
	)
	(connect D2:1 D6:1
	 (points 2 748 410 770 410)
	)
   )
   (stackingOrder 1 3 4 5 6 2 0 8 7)
  )
  (titleBg "Gray")
  (titleFg "Black")
  (numberFormats
   (realFormat standard)
   (realSigDigits 4)
   (realRadixSpec 4)
   (integerBase decimal)
  )
 )
)
