-+-+-+-+-+-+-+-+ START OF PART 137 -+-+-+-+-+-+-+-+
XFq(\(wsid\))25 945 y(IN)50 b(INTEGER)g Fa(wsid)f Fq(workstation)10
Xb(identi\256er)n(.)0 1044 y(This)h(function)f(unposts)g(all)h(menus)h(from)f
X(the)g(workstation)f Fi(wsid)p Fq(.)p 1419 1141 447 2 v 1419
X1220 2 80 v 1434 1195 a Fb(ptkf_unpostmenu)p 1864 1220 V 1419
X1222 447 2 v 11 1296 a Fq(SUBROUTINE)i Fp(ptkf_unpostmenu)f
XFq(\(wsid,)g(menuid\))25 1385 y(IN)50 b(INTEGER)g Fa(wsid)94
Xb Fq(workstation)10 b(identi\256er)n(.)25 1435 y(IN)50 b(INTEGER)g
XFa(menuid)e Fq(menu)12 b(identi\256er)n(.)0 1510 y(This)k(function)f(unposts
V)
Xg(a)i(menu)f(structure)g(from)g(the)g(workstation)e Fi(wsid)p
XFq(.)31 b(The)17 b(front)e(and)h(back)h(menus)g(are)g(updated)0
X1560 y(if)11 b(necessary)m(.)0 2956 y(13th)22 b(May)m(,)12
Xb(1992)626 b(226)828 b(2.01)p eop
X%%Page: 227 228
Xbop 0 349 a Fj(Chapter)24 b(36)0 585 y Fs(W)n(indow)29 b(functions)0
X855 y Fr(36.1)59 b(Data)17 b(types)0 1027 y Fi(C)h(window)h(types)126
X1126 y(INTEGER*4)56 b(PTKESTRUCTWINDOW)126 1176 y(PARAMETER)20
Xb(\(PTKESTRUCTWINDOW)h(=)d(0\))126 1226 y(INTEGER*4)56 b(PTKETERMINALWINDOW)
X126 1276 y(PARAMETER)20 b(\(PTKETERMINALWINDOW)h(=)d(1\))126
X1325 y(INTEGER*4)56 b(PTKETOPOLOGYWINDOW)126 1375 y(PARAMETER)20
Xb(\(PTKETOPOLOGYWINDOW)h(=)d(2\))126 1425 y(INTEGER*4)56 b(PTKECONTENTWINDOW
V)
X126 1475 y(PARAMETER)20 b(\(PTKECONTENTWINDOW)h(=)d(3\))0 1575
Xy(C)g(window)h(areas)126 1674 y(INTEGER*4)56 b(PTKEWINDOWBANNER)126
X1724 y(PARAMETER)20 b(\(PTKEWINDOWBANNER)h(=)d(0\))126 1774
Xy(INTEGER*4)56 b(PTKEWINDOWFRAME)126 1824 y(PARAMETER)20 b(\(PTKEWINDOWFRAME
V)
Xg(=)f(1\))126 1873 y(INTEGER*4)56 b(PTKEWINDOWVIEW)126 1923
Xy(PARAMETER)20 b(\(PTKEWINDOWVIEW)g(=)e(2\))126 1973 y(INTEGER*4)56
Xb(PTKEWINDOWICON)126 2023 y(PARAMETER)20 b(\(PTKEWINDOWICON)g(=)e(3\))0
X2122 y(C)g(window)h(state)126 2222 y(INTEGER*4)56 b(PTKEWINDOWOPEN)126
X2272 y(PARAMETER)20 b(\(PTKEWINDOWOPEN)g(=)e(0\))126 2322 y(INTEGER*4)56
Xb(PTKEWINDOWCLOSED)126 2372 y(PARAMETER)20 b(\(PTKEWINDOWCLOSED)h(=)d(1\))0
X2471 y(C)g(camera)h(state)126 2571 y(INTEGER*4)56 b(PTKECAMERAON)126
X2621 y(PARAMETER)20 b(\(PTKECAMERAON)g(=)e(0\))126 2670 y(INTEGER*4)56
Xb(PTKECAMERAOFF)126 2720 y(PARAMETER)20 b(\(PTKECAMERAOFF)g(=)e(1\))902
X2956 y Fq(227)p eop
X%%Page: 228 229
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)0 177 y Fr(36.2)59 b(Functions)p 1406 268 460 2 v
X1406 347 2 80 v 1420 322 a Fb(ptkf_backwindow)p 1864 347 V
X1406 349 460 2 v 11 423 a Fq(SUBROUTINE)12 b Fp(ptkf_backwindow)e
XFq(\(windid\))25 523 y(IN)50 b(INTEGER)g Fa(windid)f Fq(window)10
Xb(identi\256er)n(.)0 623 y(This)16 b(function)f(sets)h(the)g(post)f(priority
V)
Xf(of)i(a)g(window)f(structure)h(so)g(that)f(it)g(is)h(displayed)g(behind)f
X(all)g(the)h(other)g(posted)0 672 y(windows)10 b(and)i(menus.)p
X1396 770 470 2 v 1396 849 2 80 v 1410 823 a Fb(ptkf_clearterm)o(ina)o(l)p
X1864 849 V 1396 851 470 2 v 11 925 a Fq(SUBROUTINE)g Fp(ptkf_clearterminal)e
XFq(\(windid\))25 1024 y(IN)50 b(INTEGER)g Fa(windid)f Fq(terminal)10
Xb(window)h(identi\256er)n(.)0 1124 y(This)g(function)f(empties)i(the)f
X(structure)f(containing)g(all)h(the)g(text)g(written)f(to)h(the)g(TERMINAL)h
X(window)m(.)p 1396 1221 V 1396 1300 2 80 v 1410 1275 a Fb(ptkf_closewindow)p
X1864 1300 V 1396 1302 470 2 v 11 1376 a Fq(SUBROUTINE)g Fp(ptkf_closewindow)
Ve
XFq(\(windid\))25 1476 y(IN)50 b(INTEGER)g Fa(windid)f Fq(window)10
Xb(identi\256er)n(.)0 1575 y(This)h(function)f(posts)h(the)g(icon)g(structure
V)
Xf(and)i(unposts)e(the)h(window)f(structure)h(from)g(the)g(window')n(s)f
X(workstation.)p 1376 1673 490 2 v 1376 1752 2 80 v 1391 1726
Xa Fb(ptkf_create)o(window)p 1864 1752 V 1376 1754 490 2 v 11
X1828 a Fq(SUBROUTINE)i Fp(ptkf_cr)o(eatewindow)g Fq(\(wsid,)f(windid,)f
X(size,)i(position,)e(titlestr\))25 1917 y(IN)50 b(INTEGER)193
Xb Fa(wsid)143 b Fq(workstation)10 b(identi\256er)n(.)25 1966
Xy(IN)50 b(INTEGER)193 b Fa(windid)113 b Fq(window)11 b(identi\256er)n(.)25
X2016 y(IN)50 b(REAL)262 b Fa(size\(2\))106 b Fq(window)11 b(size.)25
X2066 y(IN)50 b(REAL)262 b Fa(position\(2\))46 b Fq(window)11
Xb(position.)25 2116 y(IN)50 b(CHARACTER*\(*\))e Fa(titlestring)70
Xb Fq(title)10 b(string.)0 2185 y(This)16 b(function)e(creates)j(a)g(window)d
X(structure)h(which)h(may)g(be)g(used)g(for)g(viewing)e(PHIGS)i(structures,)h
X(PHIGS)f(T)m(oolkit)0 2235 y(topology)8 b(diagrams)j(and)f(PHIGS)g(T)m
X(oolkit)f(structure)h(content)f(diagrams.)16 b(A)10 b(terminal)g(window)f
X(type)h(which)g(contains)f(only)0 2284 y(text.)20 b(The)14
Xb(window)e(size)i(and)f(position)e(are)j(given)f(in)f(the)h(range)h(`5B0,)g
X(1`5D.)20 b(Each)15 b(window)d(has)h(a)h(virtual)e(camera)j(which)d(is)0
X2334 y(useful)f(for)g(moving)f(around)h(a)g(scene.)0 2956 y(13th)22
Xb(May)m(,)12 b(1992)626 b(228)828 b(2.01)p eop
X%%Page: 229 230
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1446 -19 421 2 v 1446 60 2 80 v 1460 35 a Fb(ptkf_delwindow)p
X1864 60 V 1446 62 421 2 v 0 136 a Fq(LOGICAL)12 b(FUNCTION)f
XFp(ptkf_delwindow)f Fq(\(windid\))25 236 y(IN)50 b(INTEGER)g
XFa(windid)f Fq(window)10 b(identi\256er)n(.)0 335 y(This)h(function)f
X(deletes)i(a)g(window)e(from)h(the)g(PHIGS)g(T)m(oolkit)f(window)g(store.)p
X1403 432 464 2 v 1403 512 2 80 v 1417 486 a Fb(ptkf_frontwindow)p
X1864 512 V 1403 514 464 2 v 11 588 a Fq(SUBROUTINE)i Fp(ptkf_fr)o(ontwindow)
Ve
XFq(\(windid\))25 687 y(IN)50 b(INTEGER)g Fa(windid)f Fq(window)10
Xb(identi\256er)n(.)0 787 y(This)15 b(function)f(sets)i(the)f(post)g(priority
V)
Xe(of)i(the)g(window)f(structure)h(so)g(that)g(it)g(is)g(displayed)f(on)h(top
V)
Xg(of)g(all)g(other)g(posted)0 837 y(windows)10 b(but)h(has)h(a)f(lower)g
X(prioity)e(than)i(the)g(current)g(back)h(menu.)p 1323 934 543
X2 v 1323 1013 2 80 v 1337 988 a Fb(ptkf_inqbannerheigh)o(t)p
X1864 1013 V 1323 1015 543 2 v 11 1089 a Fq(SUBROUTINE)g Fp
X(ptkf_inqbannerheight)f Fq(\(windid,)f(height,)g(err\))25 1178
Xy(IN)91 b(INTEGER)50 b Fa(windid)155 b Fq(window)10 b(identi\256er)n(.)25
X1228 y(OUT)50 b(REAL)119 b Fa(bannerheight)46 b Fq(height)10
Xb(of)h(banner)n(.)25 1277 y(OUT)50 b(INTEGER)g Fa(err)212 b
XFq(error)11 b(indicator)n(.)0 1346 y(This)g(function)f(may)i(be)f(used)h(to)
Vf
X(obtain)f(the)h(height)f(of)h(a)h(window)e(banner)n(.)16 b(It)10
Xb(is)h(returned)g(in)g(the)g(range)h(`5B0,)f(1`5D.)p 1380 1443
X487 2 v 1380 1523 2 80 v 1394 1497 a Fb(ptkf_inqbannerti)o(tl)o(e)p
X1864 1523 V 1380 1525 487 2 v 11 1599 a Fq(SUBROUTINE)h Fp
X(ptkf_inqbannertitle)e Fq(\(windid,)g(len,)i(titlestr)n(,)e(totlen,)g(err\))
X25 1687 y(IN)91 b(INTEGER)193 b Fa(windid)49 b Fq(window)10
Xb(identi\256er)n(.)25 1737 y(IN)91 b(INTEGER)193 b Fa(len)102
Xb Fq(length)10 b(of)h(string.)25 1787 y(IN)91 b(CHARACTER*\(*\))48
Xb Fa(titlestr)54 b Fq(title)10 b(string)g(of)h(banner)n(.)25
X1837 y(OUT)50 b(INTEGER)193 b Fa(totlen)62 b Fq(actual)12 b(length)e(of)h
X(string.)25 1887 y(OUT)50 b(INTEGER)193 b Fa(err)106 b Fq(error)11
Xb(indicator)n(.)0 1956 y(This)g(function)f(may)i(be)f(used)h(to)f(obtain)f
X(the)h(title)f(of)h(a)h(window)m(.)p 1327 2053 540 2 v 1327
X2132 2 80 v 1341 2106 a Fb(ptkf_inqcame)o(ral)o(imi)o(ts)p
X1864 2132 V 1327 2134 540 2 v 11 2208 a Fq(SUBROUTINE)g Fp
X(ptkf_inqcameralimits)d Fq(\(windid,)h(limits,)g(err\))25 2297
Xy(IN)91 b(INTEGER)50 b Fa(windid)73 b Fq(window)10 b(identi\256er)n(.)25
X2346 y(OUT)50 b(REAL)119 b Fa(limits\(6\))49 b Fq(camera)13
Xb(world)d(limits.)25 2396 y(OUT)50 b(INTEGER)g Fa(err)130 b
XFq(error)11 b(indicator)n(.)0 2465 y(This)16 b(function)e(may)j(be)f(used)h
X(to)e(obtain)g(the)h(camera)i(view)e(volume.)29 b(This)16 b(de\256nes)h(the)
Vf
X(volume)f(of)h(a)h(scene)g(that)e(the)0 2515 y(camera)e(knows)e(about)g(and)
Vg
X(is)g(returned)g(in)g(W)m(orld)f(Coordinates.)0 2956 y(13th)22
Xb(May)m(,)12 b(1992)626 b(229)828 b(2.01)p eop
X%%Page: 230 231
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1270 -19 597 2 v 1270 60 2 80 v 1284 35 a Fb(ptkf_inqcamera)o
X(positi)o(on)p 1864 60 V 1270 62 597 2 v 11 136 a Fq(SUBROUTINE)12
Xb Fp(ptkf_inqcameraposition)e Fq(\(windid,)f(position,)h(err\))25
X225 y(IN)91 b(INTEGER)50 b Fa(windid)114 b Fq(window)10 b(identi\256er)n(.)2
V5
X275 y(OUT)50 b(REAL)119 b Fa(position\(3\))47 b Fq(camera)13
Xb(position.)25 324 y(OUT)50 b(INTEGER)g Fa(err)171 b Fq(error)11
Xb(indicator)n(.)0 393 y(This)g(function)f(may)i(be)f(used)h(to)f(obtain)f
X(the)h(camera)i(position)d(in)g(W)m(orld)g(Coordinates.)p 1264
X491 603 2 v 1264 570 2 80 v 1278 544 a Fb(ptkf_inqcame)o(rapro)o(jtyp)o(e)p
X1864 570 V 1264 572 603 2 v 11 646 a Fq(SUBROUTINE)i Fp(ptkf_inqcamerapr)o
X(ojtype)f Fq(\(windid,)f(projtype,)g(err\))25 735 y(IN)91 b(INTEGER)50
Xb Fa(windid)75 b Fq(window)10 b(identi\256er)n(.)25 784 y(OUT)50
Xb(INTEGER)g Fa(projtype)e Fq(camera)13 b(projection)d(type.)25
X834 y(OUT)50 b(INTEGER)g Fa(err)132 b Fq(error)11 b(indicator)n(.)0
X903 y(This)16 b(function)g(may)h(be)g(used)f(to)g(obtain)g(the)g(camera)j
X(view)d(projection)f(type)h(which)g(is)h(either)f(P)l(ARALLEL)i(or)e(PER-)0
X953 y(SPECTIVE.)p 1240 1050 626 2 v 1240 1129 2 80 v 1254 1104
Xa Fb(ptkf_inqcamerap)o(tint)o(ere)o(st)p 1864 1129 V 1240 1131
X626 2 v 11 1205 a Fq(SUBROUTINE)c Fp(ptkf_inqcameraptinter)o(est)g
XFq(\(windid,)e(ptinterest,)g(err\))25 1294 y(IN)91 b(INTEGER)50
Xb Fa(windid)137 b Fq(window)11 b(identi\256er)n(.)25 1344 y(OUT)50
Xb(REAL)119 b Fa(ptinterest\(3\))46 b Fq(camera)14 b(point)9
Xb(of)i(interest.)25 1394 y(OUT)50 b(INTEGER)g Fa(err)194 b
XFq(error)12 b(indicator)n(.)0 1462 y(This)f(function)f(may)i(be)f(used)h(to)
Vf
X(obtain)f(the)h(camera)i(point)d(of)h(interest)g(in)f(W)m(orld)h
X(Coordinates.)p 1353 1560 513 2 v 1353 1639 2 80 v 1367 1613
Xa Fb(ptkf_inqcamera)o(stat)o(e)p 1864 1639 V 1353 1641 513
X2 v 11 1715 a Fq(SUBROUTINE)h Fp(ptkf_inqcamerastate)f Fq(\(windid,)f
X(switch,)h(err\))25 1804 y(IN)91 b(INTEGER)50 b Fa(windid)165
Xb Fq(window)10 b(identi\256er)n(.)25 1853 y(OUT)50 b(INTEGER)g
XFa(cameraswitch)e Fq(camera)13 b(ON/OFF)e(switch.)25 1903 y(OUT)50
Xb(INTEGER)g Fa(err)222 b Fq(error)11 b(indicator)n(.)0 1972
Xy(This)g(function)f(may)i(be)f(used)h(to)f(obtain)f(the)h(camera)i(state)f
X(which)f(is)g(either)g(ON)g(or)g(OFF)m(.)p 1210 2069 656 2
Xv 1210 2148 2 80 v 1225 2123 a Fb(ptkf_inqconten)o(tvie)o(wrang)o(e)p
X1864 2148 V 1210 2150 656 2 v 11 2224 a Fq(SUBROUTINE)h Fp
X(ptkf_inqcontentviewrange)f Fq(\(windid,)f(range1,)i(range2,)f(err\))25
X2313 y(IN)91 b(INTEGER)50 b Fa(windid)59 b Fq(terminal)11 b(window)f
X(identi\256er)n(.)25 2363 y(IN)91 b(INTEGER)50 b Fa(range1)e
XFq(element)12 b(number)n(.)25 2413 y(IN)91 b(INTEGER)50 b Fa(range2)e
XFq(element)12 b(number)n(.)25 2463 y(OUT)50 b(INTEGER)g Fa(err)116
Xb Fq(error)11 b(indicator)n(.)0 2532 y(This)16 b(function)f(may)i(be)f(used)
Vg
X(to)g(obtain)f(the)h(viewing)f(range)i(of)f(a)g(structure)g(content)f
X(diagram)i(which)e(is)h(posted)g(to)g(a)0 2581 y(CONTENT)c(window)m(.)0
X2956 y(13th)22 b(May)m(,)12 b(1992)626 b(230)828 b(2.01)p eop
X%%Page: 231 232
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1403 -19 464 2 v 1403 60 2 80 v 1417 35 a Fb(ptkf_inqframesiz)o
X(e)p 1864 60 V 1403 62 464 2 v 11 136 a Fq(SUBROUTINE)12 b
XFp(ptkf_inqframesize)f Fq(\(windid,)f(size,)i(err\))25 225
Xy(IN)91 b(INTEGER)50 b Fa(windid)55 b Fq(window)10 b(identi\256er)n(.)25
X275 y(OUT)50 b(REAL)119 b Fa(size\(2\))48 b Fq(frame)12 b(size.)25
X324 y(OUT)50 b(INTEGER)g Fa(err)112 b Fq(error)11 b(indicator)n(.)0
X393 y(This)17 b(function)e(may)i(be)g(used)g(to)f(obtain)f(the)i(dimensions)
Ve
X(of)i(the)f(window)g(frame.)32 b(They)17 b(are)g(returned)f(in)g(the)h(range
V)
X0 443 y(`5B0,)11 b(1`5D)g(and)h(the)f(default)g(dimensions)f(are)i(\(0.01,)f
X(0.01\).)p 1167 540 699 2 v 1167 619 2 80 v 1181 594 a Fb
X(ptkf_inqfrontbackwind)o(owid)p 1864 619 V 1167 621 699 2 v
X0 695 a Fq(LOGICAL)f(FUNCTION)g Fp(ptkf_inqfr)o(ontbackwindowid)e
XFq(\(wsid,)j(frontid,)f(frontstate,)h(backid,)g(backstate,)h(err\))25
X784 y(IN)91 b(INTEGER)50 b Fa(wsid)130 b Fq(workstation)10
Xb(identi\256er)n(.)25 834 y(OUT)50 b(INTEGER)g Fa(frontstid)73
Xb Fq(front)10 b(window)g(identi\256er)n(.)25 884 y(OUT)50 b(INTEGER)g
XFa(frontstate)h Fq(front)10 b(window)g(state.)25 934 y(OUT)50
Xb(INTEGER)g Fa(backstid)69 b Fq(back)12 b(window)e(identi\256er)n(.)25
X984 y(OUT)50 b(INTEGER)g Fa(backstate)d Fq(back)12 b(window)e(state.)25
X1033 y(OUT)50 b(INTEGER)g Fa(err)157 b Fq(error)11 b(indicator)n(.)0
X1102 y(This)f(function)f(may)i(be)g(used)g(to)f(obtain)f(the)i(identi\256ers
V)
Xe(of)h(the)h(front)e(and)h(back)h(windows)f(and)h(there)f(current)g(state)h
X(\(OPEN)0 1152 y(or)g(CLOSED\).)p 1340 1249 527 2 v 1340 1328
X2 80 v 1354 1303 a Fb(ptkf_inqiconpositi)o(on)p 1864 1328 V
X1340 1330 527 2 v 11 1404 a Fq(SUBROUTINE)h Fp(ptkf_inqiconposition)d
XFq(\(windid,)h(position,)f(err\))25 1493 y(IN)91 b(INTEGER)50
Xb Fa(windid)114 b Fq(window)10 b(identi\256er)n(.)25 1543 y(OUT)50
Xb(REAL)119 b Fa(position\(2\))47 b Fq(icon)11 b(position.)25
X1593 y(OUT)50 b(INTEGER)g Fa(err)171 b Fq(error)11 b(indicator)n(.)0
X1662 y(This)h(function)f(may)i(be)f(used)h(to)e(obtain)g(the)h(position)f(of
V)
Xg(the)h(centre)h(of)f(a)h(window)e(icon)h(which)g(is)g(returned)f(in)h(the)g
X(range)0 1712 y(`5B0,)f(1`5D.)p 1439 1809 427 2 v 1439 1888 2 80
Xv 1454 1862 a Fb(ptkf_inqiconsiz)o(e)p 1864 1888 V 1439 1890
X427 2 v 11 1964 a Fq(SUBROUTINE)h Fp(ptkf_inqiconsize)f Fq(\(windid,)f(size,
V)
Xi(err\))25 2053 y(IN)91 b(INTEGER)50 b Fa(windid)55 b Fq(window)10
Xb(identi\256er)n(.)25 2102 y(OUT)50 b(REAL)119 b Fa(size\(2\))48
Xb Fq(icon)11 b(size.)25 2152 y(OUT)50 b(INTEGER)g Fa(err)112
Xb Fq(error)11 b(indicator)n(.)0 2221 y(This)17 b(function)e(may)i(be)h(used)
Vf
X(to)f(obtain)f(the)i(size)h(of)e(a)h(window')n(s)f(icon)g(structure)g(and)h
X(is)g(returned)f(in)g(the)h(range)g(`5B0,)0 2271 y(1`5D.)0 2956
Xy(13th)22 b(May)m(,)12 b(1992)626 b(231)828 b(2.01)p eop
X%%Page: 232 233
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1346 -19 520 2 v 1346 60 2 80 v 1360 35 a Fb
X(ptkf_inqpositionaxis)p 1864 60 V 1346 62 520 2 v 11 136 a
XFq(SUBROUTINE)12 b Fp(ptkf_inqpositionaxis)c Fq(\(windid,)i(axis,)i(err\))25
X225 y(IN)91 b(INTEGER)50 b Fa(windid)55 b Fq(window)10 b(identi\256er)n(.)25
X275 y(OUT)50 b(REAL)119 b Fa(axis\(3\))48 b Fq(camera)13 b(position)d(axis)h
X(of)g(rotation.)25 324 y(OUT)50 b(INTEGER)g Fa(err)112 b Fq(error)11
Xb(indicator)n(.)0 393 y(This)16 b(function)f(may)i(be)g(used)g(to)e(obtain)h
X(the)g(axis)g(of)g(rotation)f(which)h(is)g(used)h(to)f(rotate)g(the)g(camera
V)
Xi(position)d(in)g(the)0 443 y(function)10 b Fi(ptk_rotatecamerapositi)q(on)p
XFq(.)p 1263 540 603 2 v 1263 619 2 80 v 1278 594 a Fb(ptkf_inqpostedwindows)
Vp
X1864 619 V 1263 621 603 2 v 11 695 a Fq(SUBROUTINE)i Fp
+-+-+-+-+-+-+-+-  END  OF PART 137 +-+-+-+-+-+-+-+-