P1p;
N(--------------------------------------------------)
N(The remainder of this file contains graphics code.)
N(--------------------------------------------------)
N()
N(Please $Set Terminal/NOwrap before typing this file.)
N(Source:  DECslide 1.3 EXPORT FILE)
N(Export file:  P9 )
N(Comment:  c example)
N(Creation Date:  25-SEP-1986 14:49:59.64)
N(Description file: )
N()
\

[2J[?5l[?7l[22;1H
P1p;
@.L(A2)"A"AA55AA55AA55AA55AA55"S"FFFFFFFFFFFFFFFFFFFF"B"00"C"88008800880088008800"D"8142241818244281"U"8142241881422418"F"FF818181FF818181FF"G"80402010080402018040"H"11224488112244881122"V"01020408102040800102
"J"81818181818181818181
N(End of terminal initialization.)
;s(A[0,479][767,0])
;S(C1)W(V,I(W),F3,M1,N0,P(M2),S0,P1)T[+9,+0](S1,H2,S[9,20]M[1,2],D0,I0)s(m0(l0)(aH0L0S0)1(l35)(aH140L71S100)2(l65)(aH40L42S100)3(l100)(aH0L100S0))
S(I2,E)
P[384,252]
@:ZW(P1)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,+210]
T" /* Define the method for accessing the resident file index */"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,+180]
T" #if VAXVMS"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,+150]
T" #define _gworkpt( offset )  workpt+offset"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,+120]
T" #else"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,+90]
T" extern struct tempindex *mapwin() ;"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,+60]
T" #define _gworkpt  mapwin     /*DECUS C can't substitute macro parameters*/"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,+30]
T" #endif"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333]
T" /* Then MAPWIN returns:  (APR*20000) + ( sizeof(tempindex)*offset ) */"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,-30]
T" /* MAPWIN computes the region mapping from the value of OFFSET      */"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,-60]
T" /* For example: */"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,-90]
T" "
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,-120]
T" (_gworkpt(nxtbucket))->link = (_gworkpt(curbucket[w]))->link ;"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,-150]
T" (_gworkpr(curbucket[w]))->link = nxtbucket ;"
P(E)
T[+9,+0](I0)(S[9,30]M[1,3])
P(B)
P[-333,-180]
T" (_gworkpt(nxtbucket))->linecount = 0 ;"
P(E)
W(P1)
@;
W(F3,I1,V)P[417,242]@ZW(S0,R)
P[384,252]
s(A[0,0][767,479])s(I(D),S1,T0)T[+9,+0](S1,H2,S[9,20],M[1,2],D0,I0,A0)W(V,I(W),F3,M1,N0,P1,P(M2),S0)


N(		END OF DECslide V1.3 EXPORT FILE)
\