-+-+-+-+-+-+-+-+ START OF PART 136 -+-+-+-+-+-+-+-+
XV 1310 572 557 2 v 11 646 a Fq(SUBROUTINE)h Fp(ptkf_inqmenuposition)d
XFq(\(menuid,)i(position,)f(err\))25 735 y(IN)91 b(INTEGER)50
Xb Fa(menuid)98 b Fq(menu)12 b(identi\256er)n(.)25 784 y(OUT)50
Xb(REAL)119 b Fa(position\(2\))47 b Fq(menu)12 b(position.)25
X834 y(OUT)50 b(INTEGER)g Fa(err)171 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(position)f
X(of)h(the)g(top-left)f(corner)i(of)f(\256rst)h(menu)g(item.)31
Xb(The)17 b(position)d(is)0 953 y(returned)d(in)f(the)i(range)f(`5B0,)h(1`5D.
V)p
X1323 1050 543 2 v 1323 1129 2 80 v 1337 1104 a Fb(ptkf_inqmenustructi)o(d)p
X1864 1129 V 1323 1131 543 2 v 11 1205 a Fq(SUBROUTINE)g Fp
X(ptkf_inqmenustructid)f Fq(\(menuid,)g(menustid,)g(err\))25
X1294 y(IN)91 b(INTEGER)50 b Fa(menuid)76 b Fq(menu)12 b(identi\256er)n(.)25
X1344 y(OUT)50 b(INTEGER)g Fa(menustid)e Fq(menu)12 b(structure)f
X(identi\256er)n(.)25 1394 y(OUT)50 b(INTEGER)g Fa(err)149 b
XFq(error)11 b(indicator)n(.)0 1462 y(This)g(function)f(may)i(be)f(used)h(to)
Vf
X(obtain)f(the)h(identi\256er)f(of)h(a)h(menu)g(structure.)p
X1323 1560 V 1323 1639 2 80 v 1337 1613 a Fb(ptkf_inqpostedmenus)p
X1864 1639 V 1323 1641 543 2 v 11 1715 a Fq(SUBROUTINE)g Fp
X(ptkf_inqpostedmenus)f Fq(\(wsid,)g(num,)h(menuids,)f(totalnum,)g(err\))25
X1804 y(IN)91 b(INTEGER)50 b Fa(wsid)150 b Fq(workstation)9
Xb(identi\256er)n(.)25 1853 y(IN)91 b(INTEGER)50 b Fa(size)157
Xb Fq(size)12 b(of)f(buf)o(fer)n(.)25 1903 y(OUT)50 b(INTEGER)g
XFa(menuids\(*\))e Fq(list)10 b(of)h(posted)g(menus.)25 1953
Xy(OUT)50 b(INTEGER)g Fa(totalsize)89 b Fq(length)10 b(of)h(posted)g(menus)h
X(list.)25 2003 y(OUT)50 b(INTEGER)g Fa(err)177 b Fq(error)11
Xb(indicator)n(.)0 2072 y(This)g(function)f(may)i(be)f(used)h(to)f(inquire)f
X(the)h(list)f(of)h(all)g(menus)h(which)f(are)h(posted)f(to)f(workstation)g
XFi(wsid)p Fq(.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626 b(222)828
Xb(2.01)p eop
X%%Page: 223 224
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1373 -19 494 2 v 1373 60 2 80 v 1387 35 a Fb(ptkf_inqrotatorat)o
X(trs)p 1864 60 V 1373 62 494 2 v 11 136 a Fq(SUBROUTINE)12
Xb Fp(ptkf_inqr)o(otatorattrs)e Fq(\(menuid,)19 b(titlefont,)d(titlecolour)n
X(,)h(arrowcolour)n(,)h(arrowedge-)658 186 y(colour)n(,)13 b(intcolour)n(,)e
X(edgecolour)n(,)i(bannercolour)n(,)f(boxtlcolour)n(,)658 236
Xy(boxbrcolour)n(,)e(err\))25 286 y(IN)91 b(INTEGER)50 b Fa(menuid)196
Xb Fq(rotator)10 b(identi\256er)n(.)25 336 y(OUT)50 b(INTEGER)g
XFa(titlefont)197 b Fq(title)10 b(font.)25 386 y(OUT)50 b(INTEGER)g
XFa(titlecolour)159 b Fq(title)10 b(colour)g(index.)25 436 y(OUT)50
Xb(INTEGER)g Fa(arrowcolour)126 b Fq(arrow)11 b(interior)f(colour)g(index.)25
X485 y(OUT)50 b(INTEGER)g Fa(arrowedgecolou)o(r)d Fq(arrow)11
Xb(edge)h(colour)e(index.)25 535 y(OUT)50 b(INTEGER)g Fa(intcolour)177
Xb Fq(rotator)10 b(interior)g(colour)g(index.)25 585 y(OUT)50
Xb(INTEGER)g Fa(edgecolour)135 b Fq(edge)12 b(colour)e(index.)25
X635 y(OUT)50 b(INTEGER)g Fa(bannercolour)103 b Fq(banner)11
Xb(colour)g(index.)25 685 y(OUT)50 b(INTEGER)g Fa(boxtlcolour)139
Xb Fq(top-left)10 b(colour)g(index.)25 734 y(OUT)50 b(INTEGER)g
XFa(boxbrcolour)125 b Fq(bottom-right)8 b(colour)j(index.)25
X784 y(OUT)50 b(INTEGER)g Fa(err)269 b Fq(error)11 b(indicator)n(.)0
X853 y(This)g(function)f(may)i(be)f(used)h(to)f(obtain)f(the)h(attribute)f
X(values)h(of)g(a)h(rotator)e(menu.)p 1383 950 484 2 v 1383
X1029 2 80 v 1397 1004 a Fb(ptkf_inqrotatorti)o(tl)o(e)p 1864
X1029 V 1383 1031 484 2 v 11 1105 a Fq(SUBROUTINE)i Fp(ptkf_inqr)o
X(otatortitle)e Fq(\(menuid,)h(len,)g(titlestr)n(,)f(totlen,)h(err\))25
X1194 y(IN)91 b(INTEGER)193 b Fa(menuid)49 b Fq(menu)12 b(identi\256er)n(.)25
X1244 y(IN)91 b(INTEGER)193 b Fa(len)118 b Fq(length)10 b(of)h(string.)25
X1294 y(IN)91 b(CHARACTER*\(*\))48 b Fa(titlestr)70 b Fq(title)10
Xb(string)g(of)h(rotator)f(banner)n(.)25 1344 y(OUT)50 b(INTEGER)193
Xb Fa(totlen)78 b Fq(actual)11 b(length)g(of)g(string.)25 1394
Xy(OUT)50 b(INTEGER)193 b Fa(err)122 b Fq(error)11 b(indicator)n(.)0
X1462 y(This)g(function)f(may)i(be)f(used)h(to)f(obtain)f(the)h(title)f
X(string)g(of)h(a)h(rotator)e(menu.)p 1376 1560 490 2 v 1376
X1639 2 80 v 1390 1613 a Fb(ptkf_locscanmenus)p 1864 1639 V
X1376 1641 490 2 v 0 1715 a Fq(LOGICAL)i(FUNCTION)f Fp(ptkf_locscanmenus)g
XFq(\(wsid,)g(point,)f(menuid,)i(itemnum,)f(value\))25 1804
Xy(IN)91 b(INTEGER)50 b Fa(wsid)114 b Fq(workstation)10 b(identi\256er)n(.)25
X1853 y(IN)91 b(REAL)119 b Fa(point\(2\))63 b Fq(input)10 b(point.)25
X1903 y(OUT)50 b(INTEGER)g Fa(menuid)68 b Fq(menu)12 b(identi\256er)n(.)25
X1953 y(OUT)50 b(INTEGER)g Fa(itemnum)f Fq(item)12 b(number)n(.)25
X2003 y(OUT)50 b(REAL)119 b Fa(value\(2\))55 b Fq(position)10
Xb(of)h(point)e(within)h(item.)0 2072 y(This)15 b(function)f(uses)i(the)g
X(INCREMENT)m(AL)f(SP)l(A)-5 b(TIAL)17 b(SEARCH)f(function)e(of)h(PHIGS)g(to)
Vg
X(test)g(if)g Fi(point)i Fq(lies)e(within)0 2122 y(a)c(posted)f(menu.)15
Xb(The)c(menus)g(are)g(tested)f(begining)f(the)h(highest)g(priority)d(menu)k
X(and)g(working)d(through)h(to)h(the)g(back)h(menu.)0 2171 y(The)i(position)d
X(of)i Fi(point)h Fq(relative)f(to)g(bottom-left)e(corner)i(of)g(the)g(menu)h
X(item)f(bounding)e(box)i(is)g(returned)g(in)f Fi(value)p Fq(.)20
Xb(The)0 2221 y(function)10 b(returns)g(TRUE)i(if)f Fi(point)h
XFq(lies)f(within)f(a)i(menu,)g(otherwise)f(F)m(ALSE.)0 2956
Xy(13th)22 b(May)m(,)12 b(1992)626 b(223)828 b(2.01)p eop
X%%Page: 224 225
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 1361 35 a Fb(ptkf_pickscanm)o
X(enus)p 1864 60 V 1346 62 520 2 v 0 136 a Fq(LOGICAL)12 b(FUNCTION)f
XFp(ptkf_pickscanmenus)h Fq(\(ippd,)e(pp,)h(ppordr)n(,)g(menuid,)h(itemnum\))
X25 225 y(IN)91 b(INTEGER)50 b Fa(ippd)152 b Fq(depth)10 b(of)h(pick)g(path.)
X25 275 y(IN)91 b(INTEGER)50 b Fa(pp\(3,)10 b(ippd\))48 b Fq(pick)11
Xb(path)g(through)e(structure)i(network..)25 324 y(IN)91 b(INTEGER)50
Xb Fa(ppordr)116 b Fq(order)11 b(of)g(data)g(in)g(pickpath.)25
X374 y(OUT)50 b(INTEGER)g Fa(menuid)103 b Fq(menu)11 b(identi\256er)n(.)25
X424 y(OUT)50 b(INTEGER)g Fa(itemnum)84 b Fq(item)11 b(number)n(.)0
X493 y(This)i(function)f(tests)i(the)f(pick)g(path)g(to)g(inquire)f(if)h(a)h
X(menu)f(item)h(was)g(picked.)21 b(The)14 b(function)e(returns)h(TRUE)h(if)f
X(a)h(menu)0 543 y(item)d(was)h(picked,)g(otherwise)e(F)m(ALSE.)p
X1479 640 387 2 v 1479 719 2 80 v 1493 694 a Fb(ptkf_postmenu)p
X1864 719 V 1479 721 387 2 v 11 795 a Fq(SUBROUTINE)i Fp(ptkf_postmenu)f
XFq(\(wsid,)g(menuid\))25 884 y(IN)50 b(INTEGER)g Fa(wsid)94
Xb Fq(workstation)10 b(identi\256er)n(.)25 934 y(IN)50 b(INTEGER)g
XFa(menuid)e Fq(menu)12 b(identi\256er)n(.)0 1009 y(This)k(function)f(posts)h
X(the)g(menu)h(structure)e(to)h(the)g(workstation)f Fi(wsid)p
XFq(.)31 b(The)17 b(priority)d(of)i(the)g(menu)h(structure)e(is)h(con-)0
X1059 y(trolled)9 b(by)i(the)f(PHIGS)h(T)m(oolkit)e(menu)i(system)h(to)e
X(provide)f(an)i(ordered)g(stacking)f(of)h(displayed)f(menus.)16
Xb(When)11 b Fi(menuid)g Fq(is)0 1109 y(posted)g(it)f(becomes)j(the)e(front)f
X(menu.)p 1320 1206 547 2 v 1320 1285 2 80 v 1334 1259 a Fb(ptkf_setboxmenuat
V)
Xo(trs)p 1864 1285 V 1320 1287 547 2 v 11 1361 a Fq(SUBROUTINE)i
XFp(ptkf_setboxmenuattrs)f Fq(\(wsid,)24 b(menuid,)g(menupath,)g(font,)f
X(textcolour)n(,)g(intcolour)n(,)687 1411 y(edgecolour)n(,)10
Xb(boxtlcolour)n(,)e(boxbrcolour)n(,)h(httextcolour)n(,)g(htint-)687
X1460 y(colour)n(,)i(htedgecolour\))25 1513 y(IN)50 b(INTEGER)g
XFa(wsid)183 b Fq(workstation)9 b(identi\256er)n(.)25 1562 y(IN)50
Xb(INTEGER)g Fa(menuid)137 b Fq(menu)11 b(identi\256er)n(.)25
X1612 y(IN)50 b(INTEGER)g Fa(menupath)95 b Fq(path)11 b(of)g(box)f(menu)i
X(\(left,)f(right,)f(up,)h(down\).)25 1662 y(IN)50 b(INTEGER)g
XFa(font)194 b Fq(text)10 b(font.)25 1712 y(IN)50 b(INTEGER)g
XFa(textcolour)98 b Fq(colour)10 b(index)h(for)g(text.)25 1762
Xy(IN)50 b(INTEGER)g Fa(intcolour)118 b Fq(colour)10 b(index)h(for)g(interior
V)
Xn(.)25 1811 y(IN)50 b(INTEGER)g Fa(edgecolour)76 b Fq(colour)10
Xb(index)h(for)g(edges.)25 1861 y(IN)50 b(INTEGER)g Fa(boxtlcolour)80
Xb Fq(colour)10 b(index)h(for)g(top-left)e(of)i(box.)25 1911
Xy(IN)50 b(INTEGER)g Fa(boxcolour)98 b Fq(colour)10 b(index)h(for)g
X(bottom-right)d(of)j(box.)25 1961 y(IN)50 b(INTEGER)g Fa(httextcolour)68
Xb Fq(colour)10 b(index)h(for)g(highlight)d(text.)25 2011 y(IN)50
Xb(INTEGER)g Fa(htintcolour)88 b Fq(colour)10 b(index)h(for)g(highlight)d
X(interior)n(.)25 2060 y(IN)50 b(INTEGER)g Fa(htedgecolo)o(ur)d
XFq(colour)10 b(index)h(for)g(highlight)d(edges.)0 2129 y(This)14
Xb(function)f(sets)h(the)h(box)e(menu)i(path,)g(text)e(font)h(and)g(colour)f
X(attribute)g(values.)24 b(The)15 b(highlight)d(colour)h(indicies)g(are)0
X2179 y(used)f(by)e(the)i(function)d Fi(ptk_setboxmenuhighl)q(ightit)q(em)14
Xb Fq(to)d(highlight)d(a)k(single)f(menu)h(item.)p 1101 2276
X766 2 v 1101 2355 2 80 v 1115 2330 a Fb(ptkf_setboxmenuhi)o(ghli)o(ghti)o
X(tem)p 1864 2355 V 1101 2357 766 2 v 11 2431 a Fq(SUBROUTINE)g
XFp(ptkf_setboxmenuhighlightitem)c Fq(\(menuid,)k(itemnum\))25
X2520 y(IN)50 b(INTEGER)g Fa(menuid)68 b Fq(menu)12 b(identi\256er)n(.)25
X2570 y(IN)50 b(INTEGER)g Fa(itemnum)f Fq(menu)12 b(item)f(number)n(.)0
X2645 y(This)16 b(function)f(highlights)e(a)k(menu)f(item)g(by)g(setting)f
X(the)h(colour)g(index)f(values)i(for)e(the)h(text,)h(interior)e(and)h(edge)h
X(of)f(a)0 2695 y(box)11 b(menu)g(item.)0 2956 y(13th)22 b(May)m(,)12
Xb(1992)626 b(224)828 b(2.01)p eop
X%%Page: 225 226
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1237 -19 630 2 v 1237 60 2 80 v 1251 35 a Fb(ptkf_setboxmenute)o
X(xtfon)o(t)p 1864 60 V 1237 62 630 2 v 11 136 a Fq(SUBROUTINE)12
Xb Fp(ptkf_setboxmenutextfont)e Fq(\(wsid,)h(menuid,)h(font\))25
X225 y(IN)50 b(INTEGER)g Fa(wsid)94 b Fq(workstation)10 b(identi\256er)n(.)25
X275 y(IN)50 b(INTEGER)g Fa(menuid)e Fq(menu)12 b(identi\256er)n(.)25
X324 y(IN)50 b(INTEGER)g Fa(font)105 b Fq(text)11 b(font.)0
X393 y(This)g(function)f(sets)i(the)f(text)f(font)h(of)g(all)g(text)f(menu)i
X(items)f(in)g(the)g(menu)h(structure.)j(The)d(menu)f(must)h(be)f(a)h(box)f
X(menu.)p 1320 491 547 2 v 1320 570 2 80 v 1334 544 a Fb(ptkf_setmenupositi)o
X(on)p 1864 570 V 1320 572 547 2 v 11 646 a Fq(SUBROUTINE)h
XFp(ptkf_setmenuposition)e Fq(\(menuid,)h(menupos\))25 735 y(IN)50
Xb(INTEGER)g Fa(menuid)121 b Fq(menu)12 b(identi\256er)n(.)25
X784 y(IN)50 b(REAL)119 b Fa(menupos\(2\))47 b Fq(menu)12 b(position.)0
X859 y(This)f(function)e(sets)i(the)f(position)e(of)j(the)f(top-left)f(corner
V)
Xi(of)f(the)g(\256rst)h(menu)g(item.)k(The)c(position)e(is)h(given)g(in)g(the
V)
Xg(range)h(`5B0,)0 909 y(1`5D.)18 b(If)12 b(the)g(position)e(results)i(in)f(p
Vart)h
X(of)g(the)g(menu)h(being)e(clipped)h(then)g(the)g(actual)g(position)e(is)i
X(adjusted)g(so)g(that)g(as)h(much)0 959 y(as)f(possible)e(of)h(the)h(menu)f
X(is)g(visible.)p 1383 1056 484 2 v 1383 1135 2 80 v 1397 1110
Xa Fb(ptkf_setrotatorat)o(trs)p 1864 1135 V 1383 1137 484 2
Xv 11 1211 a Fq(SUBROUTINE)h Fp(ptkf_setr)o(otatorattrs)f Fq(\(wsid,)26
Xb(menuid,)f(titlefont,)f(titlecolour)n(,)g(arrowcolour)n(,)i(ar)o(-)649
X1261 y(rowedgecolour)n(,)36 b(intcolour)n(,)e(edgecolour)n(,)i(bannercolour)
Vn
X(,)649 1311 y(boxtlcolour)n(,)10 b(boxbrcolour\))25 1361 y(IN)50
Xb(INTEGER)g Fa(wsid)241 b Fq(workstation)10 b(identi\256er)n(.)25
X1411 y(IN)50 b(INTEGER)g Fa(menuid)195 b Fq(rotator)11 b(identi\256er)n(.)25
X1461 y(IN)50 b(INTEGER)g Fa(titlefont)196 b Fq(title)10 b(font.)25
X1511 y(IN)50 b(INTEGER)g Fa(titlecolour)158 b Fq(title)10 b(colour)h(index.)
X25 1561 y(IN)50 b(INTEGER)g Fa(arrowcolour)125 b Fq(arrow)12
Xb(interior)d(colour)i(index.)25 1611 y(IN)50 b(INTEGER)g Fa(arrowedgecolo)o
X(ur)c Fq(arrow)12 b(edge)f(colour)g(index.)25 1660 y(IN)50
Xb(INTEGER)g Fa(intcolour)176 b Fq(rotator)11 b(interior)e(colour)i(index.)25
X1710 y(IN)50 b(INTEGER)g Fa(edgecolour)134 b Fq(edge)12 b(colour)f(index.)25
X1760 y(IN)50 b(INTEGER)g Fa(bannercolo)o(ur)103 b Fq(banner)12
Xb(colour)e(index.)25 1810 y(IN)50 b(INTEGER)g Fa(boxtlcolour)138
Xb Fq(top-left)10 b(colour)h(index.)25 1860 y(IN)50 b(INTEGER)g
XFa(boxbrcolou)o(r)125 b Fq(bottom-right)9 b(colour)h(index.)0
X1929 y(This)15 b(function)f(sets)h(the)g(attribute)f(values)h(of)g(a)h
X(rotator)e(menu.)27 b(The)16 b(arrows)f(are)h(drawn)f(within)e(a)j(box)f
X(similar)f(to)h(that)0 1978 y(of)d(box)f(menu)h(items)h(and)f(the)f(box)h
X(has)g(an)h(area)g(for)e(a)i(title)e(string.)16 b(All)11 b(arrows)h(are)h
X(drawn)f(with)f(the)g(same)j(colour)d(values)0 2028 y(de\256ned)h(by)f
XFi(arrowcolour)i Fq(for)e(the)g(interior)e(and)j Fi(arrowedgecolour)i
XFq(for)d(the)g(outline.)p 1393 2125 474 2 v 1393 2204 2 80
Xv 1407 2179 a Fb(ptkf_setrotatorti)o(tl)o(e)p 1864 2204 V 1393
X2206 474 2 v 11 2280 a Fq(SUBROUTINE)h Fp(ptkf_setr)o(otatortitle)e
XFq(\(menuid,)h(titlestr\))25 2369 y(IN)50 b(INTEGER)193 b Fa(menuid)48
Xb Fq(menu)12 b(identi\256er)n(.)25 2419 y(IN)50 b(CHARACTER*\(*\))e
XFa(titlestr)69 b Fq(title)10 b(string)g(of)h(rotator)f(banner)n(.)0
X2494 y(This)15 b(function)f(sets)i(the)g(title)e(string)g(of)h(the)h(rotator
V)
Xe(menu)i(to)f(be)h Fi(titlestr)p Fq(.)29 b(The)16 b(string)f(is)g
X(automatically)f(scaled)j(to)0 2544 y(\256t)11 b(in)g(the)g(rotator)f(title)
Vg
X(box.)0 2956 y(13th)22 b(May)m(,)12 b(1992)626 b(225)828 b(2.01)p
Xeop
X%%Page: 226 227
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)p 1313 -19 553 2 v 1313 60 2 80 v 1327 35 a Fb
X(ptkf_stringscanmenus)p 1864 60 V 1313 62 553 2 v 0 136 a Fq(LOGICAL)12
Xb(FUNCTION)f Fp(ptkf_stringscanmenus)g Fq(\(wsid,)g(str)n(,)h(menuid,)f
X(itemnum\))25 225 y(IN)91 b(INTEGER)193 b Fa(wsid)95 b Fq(workstation)9
Xb(identi\256er)n(.)25 275 y(IN)91 b(CHARACTER*\(*\))48 b Fa(str)126
Xb Fq(string.)25 324 y(OUT)50 b(INTEGER)193 b Fa(menuid)49 b
XFq(menu)12 b(identi\256er)n(.)25 374 y(OUT)50 b(INTEGER)193
Xb Fa(itemno)59 b Fq(item)11 b(number)n(.)0 443 y(This)k(function)e(compares)
Vj
X(the)f(character)h(string)d Fi(str)j Fq(with)d(the)i(items)g(of)f(all)h
X(posted)f(menus.)27 b(The)15 b(comparison)g(begins)0 493 y(with)10
Xb(the)h(highest)f(priority)f(menu)i(and)g(works)g(through)e(to)i(the)g(back)
Vg
X(menu.)16 b(User)11 b(menu)h(items)f(are)h(also)f(searched)h(for)f(text)0
X543 y(primitives)g(with)g(which)h(to)g(compare)i(the)e(string.)17
Xb(The)d(comparison)e(is)g(case)i(sensitive)e(so)g(that)g("item)g(1")h(is)f
X(not)g(the)g(same)0 593 y(as)g("IteM)f(1".)k(The)d(function)e(returns)h(TRUE
V)
Xh(if)e(the)h(string)f(matches)j(a)f(menu)f(item,)h(otherwise)f(F)m(ALSE.)p
X1360 690 507 2 v 1360 769 2 80 v 1374 744 a Fb(ptkf_unpostallme)o(nu)p
X1864 769 V 1360 771 507 2 v 11 845 a Fq(SUBROUTINE)h Fp(ptkf_unpostallmenu)e
+-+-+-+-+-+-+-+-  END  OF PART 136 +-+-+-+-+-+-+-+-