Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0074/gnosis.rel
There are 2 other files named gnosis.rel in the archive. Click here to see a list.
 0.
"*?ZS(g?=g?F
cIB CBpJq~k2DFB:DEXp" [> X.
"*I\`O:~:9C29t%Tyqy +  -=<@-=,>,> "p@ $"&"(-=,>,> "F@ $"&@@"(-=,>,> "F@ $"&"(-=,>,>
 "F@ $"&"(-=+@Id]-=<@,1l1`+,<L+h@KKY9f-=<@v,<L` 0V+7@+,>
D ,>,>,>,>-=%,<L&,<@(+,'	D"g?F@g?F@g?F@g?F@	g?F@
g?F@g?F@g?F@g?F@&@vp8*" "E/gRpXE/E/gRpiE/gRpl[JXP[JXxgRpl[JXgRpl[JXE2X/6 ,~,<LQ`,`,*<L,">
(@`h,>,>,>),>%-=5,0<L7,g?F@6@x@. 2" gRp*}gRp,~gRp0~[JX gRp2gRp7/""9<L 41v+,<@8 6 V +@h4@,7<L+,?<L,A<L,9<L,<L`+hO%J7J-=G<@Q-=+OO%i<i2Mi--=h-=L ,.6 VP@vh7@!+ 6  Vh+:h0v+,<L` h $# h-=v+U,V<L` h1vgO Vh@v 6 Vh+:h0vB++eY>~@-=h-=(c,[<L`D"g?F@Ig?F@Kg?F@Ng?F@Og?F@Yg?F@dg?F@e@ox0==hABH
HU
`[
0_
a" ?gRp9gRp:[JX [JX8gRp;[JXP[JXPgRp=gRp>[JX`[JXpgRp?[JXgRpA[JX(gRpBgRpDgRpEgRpF[JXhE2XHE2XHgfhvTOGGLEgfhMESSAGEE/gRpIE/gRpKE/gRpKgRpPgRpRgRpR[JX
([JX
8gRpS[JX
8[JX
hgRpVgRpX[JX0gRp[gRp\[JXpgRp_gRp_[JXx[JX
(gRpbgRp!"h h $3 h-=v h2V+ h1V+Ov h2V++ h 2V+,<L` h0V++e h.6 Vh+o+a,<@`  P+|W# -=h-=z h/6 V: $h "-=$2D++O"7@h+,<@`+7@m+,<@`D g?F@ig?F@{g?F@|g?F@@x
(w0h	"X?fgRphgRpj[JXsX0[JXHgRptXH[JXH[JXPgRpugRpv[JXh[JXh[JXp[JXxgRpwgRpygRp}gRp [JXp[JX gRp [JX [JX [JX(gRp [JX([JX8gRp![JX`gRp![JX`[JXpgRp(	 =1v+ 	/6 V
@`X	" "[JX[JXgRp	"[JX[JX(gRp
#2((
,E<L`7@R+,2>
X,>,>,><,>6-=,B<L"",<@+,<L++ Q/6 ,~,.<LQ``,<L(D
(1,>
`h~,>,>,>,>-=!,<L#,D<L   1v+,<@$ 0V+,#<L,
<L` $ "-=$ 3Dk++,<P`-=0@+,<P,>,>,>,>,>-=8,<P9,1l;0`+D"g?F@g?F@"g?F@.g?F@3g?F@9@``p) , -1" 8gRp
$gRp[JXhgRp%gRp&gRp&[JXhgRp(gRp)gRp)[JX`gRp*gRp#+gRp%+gRp&,[JX`[JXxgRp',[JXgRp),[JX[JX(gRp*-[JX@gRp,-[JXXgRp-1[JXX[JXgRp01[JX[JX[JXgRp12gRp22[JX([JXPgRp56gRp67gRp:7gRp;8[JX8[JX`9(>,<@d 6 V+:@2v+ A..X<-=0@D(+++A,<@d?+O+NM?-i
gOg.^gDX@vg6@Vc+:e2vB+@].fXb.hP((@.iIHLAGdgVm+f+O++r]>Lf@-=h-=p"7@m++O6TV>oD"g?F@Eg?F@Mg?F@Ng?F@Pg?F@Tg?F@`g?F@qg?F@r@pX@BhG(H[p]PdXfpnHo@upu" =gRp>8[JXgRp@8[JX[JX0gRpC9[JX0[JXpgRpG9[JXp[JXp[JXx[JXgRpH9gRpJ:[JX [JX gRpJ;gRpO;[JXp[JXxgRpWC[JXx[JXgRpYD[JX8gRp[D[JXXgRp]FgRpF[JX@gRpdPgRpdQ[JXH[JXxgRpgQ[JXhgRpnR[JXh[JXh[JXxgRpoTgRpsT[JX8[JXHgRptT[JXH[JXH[JXP[JXPgRpuU. v,^o>`K+hkBr-=x<@-= 6 Vh+:h,>,;1l3 xgO/4@+@h h-=$0d=gO,>+@h  h-=$1$0gOAx/4D+@h h-=$/$,>+@h h-= xt/+ 0V++@h h-=$2D+,>+@h h-= xr/++@h h-=$2D+,>+@h h-= xr/++@h h-=$D"g?F@zg?F@|g?F@g?F@g?F@
BNGETNEXTLINEgfh
BdLOOPgfh
B{OUTgfh
BqNOIFgfh
BMFOUNDgRpwU[JXxE2XXE2XXE/gRpzWE/gRp|[E/gRp}\[JXP[JX 8gRp][JX 8[JX!HgRp
^[JX"0gRp^[JX"0[JX"HgRp_[JX"H[JX"xgRp_[JX#8gRp`[JX#8[JX#hgRp`[JX$(gRp"`[JX$(/ @$2D+,>+@h h-= xr/!+~>o,^o>`K+hO$;w@ 
iJ}LzCK -=+<@z+4eX:4-=h-=1,<@(@ 2,>
_`x,>,>,>6,>-=:,z<@; h0V+ =-=0@++?-=0@++B-=0@++ E-=0@++H-=0@++K-=0@++ N-=0@+
D"g?F@'g?F@.g?F@3g?F@4g?F@;g?F@@g?F@Cg?F@Fg?F@IDg?F@Lg?F@Og?F@R@~$P)$ )#0)"@)"() 0)0.(B(@E(pH) K)PN*Q" ?[JX$XgRp%`[JX%[JX%[JX%[JX%[JX%[JX%gRp)bE2X gfhbTgfhbIgRp+b[JX%0E2X E2X gfhSE/gRp.dE/gRp0lgRp5lgRp6mgRp<mgRp=n[JX'X[JX'pgRp?r[JX'p[JX([JX( gRpBs[JX( [JX(H[JX(PgRpEs[JX(P[JX(x[JX)gRpHt[JX)[JX)([JX)0gRpKt[JX)0[JX)X[JX)`gRpNu[JX)`[JX*[JX*gRpQu[JX*[JX*" S+Q-=0@++T-=0@++W-=0@ ++Z-=0@++]-=0@++`-=0@ ++c-=0@++f-=0@++i-=0@ ++l-=0@++o-=0@++r-=0@++u-=0@++x-=0@+D"g?F@Ug?F@Xg?F@[g?F@^g?F@ag?F@dg?F@gg?F@jg?F@mD"g?F@pg?F@sg?F@vg?F@yg?F@|@*0T*`W+Z+@]+p`, c,Pf-i-0l-`o.r.@u.px/ {" ?*8[JX*@gRpTv[JX*@[JX*h[JX*pgRpWv[JX*p[JX+[JX+ gRpZw[JX+ [JX+H[JX+PgRp]w[JX+P[JX+x[JX,gRp`x[JX,[JX,([JX,0gRpcx[JX,0[JX,X[JX,`gRpfy[JX,`[JX-[JX-gRpiy[JX-[JX-8[JX-@gRplz[JX-@[JX-h[JX-pgRpoz[JX-p[JX.[JX. gRpr{[JX. [JX.H[JX.PgRpu{[JX.P[JX.x[JX/gRpx|[JX/[JX/([JX/0gRp{|[JX/0[JX/X%" }+{-=0@++~-=0@++-=0@ ++-=0@++-=0@++
-=0@++-=0@++-=0@ ++-=0@++-=0@++-=0@++
D"g?F@g?F@g?F@g?F@g?F@g?F@g?F@g?F@g?F@Dg?F@g?F@g?F@ @|/P~0000`1
1@2 2P3303`4"" 9[JX/`gRp~}[JX/`[JX0[JX0gRp}[JX0[JX08[JX0@gRp~[JX0@[JX0h[JX0pgRp~[JX0p[JX1[JX1 gRp
[JX1P[JX1H[JX1PgRp[JX2[JX2([JX20gRp[JX20[JX2X[JX2`gRp[JX2`[JX3[JX3gRp[JX3[JX38[JX3@gRp[JX3@[JX3h[JX3pgRp[JX3p[JX4[JX4[gRp"[JX4"-=0@++"-=0@++%-=0@++(-=0@+++-=0@++.-=0@++"D ,<@dI,I<@ $7 "-=$3D/+,I<@+7 6 Vh+4D"g?F@#g?F@&g?F@)g?F@,g?F@/g?F@2g?F@8@4@%4p(5 +5P.616047;68=6=5X=5(=4x=4H=4=3h=38=3=2X=`2(=1x=1H=1=0h=08=0=/X=/(=.x=.H=.=-h=-8=-=" ?[JX4H[JX4PgRp%[JX4P[JX4x[JX5gRp([JX5[JX5([JX50gRp+[JX50[JX5X[JX5`gRp.[JX5`[JX6[JX6gRp1[JX6[JX68[JX6@gRp4gRp6gRp7[JX6p[JX7 gRp:[JX78gRp;	gRp<	[JX7H[JX7H[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P[JX7P  =+hO&{yH-==>-= u Vh h1V+++H(iFKAP-=h-=E $7 h-=$ Dh h2V++ h (3Va+ h.6 Vh+H+UE2
B3REPEATE2X!0gfhzIE/gRp?[JX8HgRpD[JX8H[JX8H[JX8PgRpEgRpIgRpL[JX9@[JX9XgRpM[JX9X[JX9X[JX9`gRpN[JX9`[JX9xgRpOgRpQ[JX:[JX:[JX:gRpQgRpVgRpX[JX"X h2VL++M h2VN+ h.6 Vh+U $V@x;Z;8^" ;[JX; gRpZ[JX; [JX; [JX;(gRpZ[JX;([JX;@gRp\gRp]X;X[JX;X[JX;`gRp^[JX;`( @^ h-=$2DY++Z h.6 VB+fo?KAP-=h-=* c $^ b-=$ Dh h3V[gO h3T`gOA4V h.6(@" Vo+f+ p/6 ,~,6>
g`Q`q,>,>,>h,>h-=h++|]VeF@-=h-=z,>,>,>h,>h-=h+_W# -=h-=>o,^o>`K
D"g?F@_g?F@eg?F@fg?F@hg?F@xg?F@{g?F@|g?F@g?F@g?F@@~<a=hq>s8HU<|?8" .[JX<gRpa[JX<[JX<[JX<gRpagRpcgRpggRpj[JX= [JX=pgRpo gRpp [JX>[JX>[JX>gRpq!gRpy"[JX?[JX?gRpy#gRp}#gRp%gRp%E2X $PgfhbPOS1gfhbTgfh
BTBLANKLOOPgfh
BGTEXTLOOPgfh
B{NULLgfh
BeWORDLOOPgfh
BOUTgRp%[JX@h<  "+hC2=J7-=<@ 6 V+:
,>,1l(3xgO/(4@+<$h-=,*<LR6EVh+:h,>E,1l3JxgO/4@$hh-=$gDhh2VgOh2TgOGEh2RgOGSh2PgOG4V,<L`EP,1<L`+,<L>o,^o>`K+hiFK]-=8@<@-="h-=+O%i<i^~)-=>	D"g?F@	g?F@g?F@g?F@g?F@&g?F@:g?F@<g?F@=g?F@@@?@AH'pgfhSE/gRp:AE/gRp<JE/E/0 D B>-= q Vh $t h-=$ Dh h2Vl+++LE2
T.6 VC+ao?K_AP-=h-=^ $X ]-=$ Dh h3VR@QgO h3TZgOA4V b.6 Vi+a+ j/6 ,~,s@>
b`Q`l,>,>	D"g?F@Bg?F@Eg?F@Kg?F@Lg?F@Ng?F@Yg?F@`g?F@ag?F@c@|HxHJQJ`XK0\MkM8n" 9gRp@NE/gRpBPE/gRpCQgRpDRgRpFR[JXHh[JXIgRpHR[JXI[JXI[JXIgRpHTgRpMTgRpOT[JXIx[JXJgRpQT[JXJ[JXJ[JXJgRpQU[JXJ[JXJhgRpVVgRpXV[JXK[JXK[JXKgRpXW[JXK[JXK8gRp[W[JXK8[JXK8[JXK@gRp\XgRp]YgRpbYgRpdZ[JXLH[JXMgRpi[gRpk[[JXM0[JXM0[JXM8$  q,>h,>h-=h++w]VeF@-=h-=t},>,>,>h@@,>h-=h+~_W# -=h-=|>o,^o>`K+h,I<@L4V@vh $o "-=$3D9+ &0V+ h.6 Vh h06+,5"<L+@vh,<L+ h.6 Vh h1v
+,<L@vhD"g?F@rg?F@vg?F@wg?F@zg?F@}g?F@~g?F@@}`K8wN8~HG`Q0,gfhbPOS1gfhbTgfh
BvNULLgfh
BKBLANKLOOPgfh
B`WORDLOOPgfh
B}OUTgRp`[JXPE2X0,E2X0,gfh8GETNEXTWORDgRpagRpa[JXP([JXP8gRpbgRpc[JXP@[JXPpgRpd[JXPp[JXQgRpegRp
e[JXQ[JXQ8gRpe[JXQXgRpj[JXR[JXR0gRpkgRp"+,n>
`h" k[JXRP* QE
,>,>,>(,>"-=,~,<@^,<@,I<@ D++@vh@vh 6 Vh $ "-=$3D+ 0V+7@h+,@<L6 h.6 Vh h06+,)<L
 h.6 Vh+,-<L@vh@vh 6 Vh+ h.6 Vh h06+,1<L. h.6 Vh+"@,8<L2@vh+OvhLh4V,;<LOvh@g?F@g?F@$@pRPQxPh!P0!UP1V3U5Vx;W0=VH=Tx>WpA" ?gRplgRpm[JXSxgRpn[JXT[JXTgRp!pgRp"qgRp"qgRp#r[JXT8[JXThgRp&s[JXTh[JXUgRp(t[JXU[JXUgRp)ugRp*ugRp,v[JXU@[JXUXgRp-wgRp/w[JXVgRp1ygRp2z[JXV0gRp3{gRp3{[JXVPgRp5}gRp6~[JXVh[JXWgRp8gRp9[JXW8gRp;gRp=[JXWX[JXWX[JXW`gRp>gRp>[JXWh[JXWxgRp?[JXX AA7@h+,<@,@>,>,>,>h" gRpAgRpA[JXX[JXX(gRpB$ F,>h-=hhx-=0@+@vh+,!1l.h.  @h h26+,?<L,P<L+,Q<L* h.6 Vh h1v
+",S<L<@vh,K1l.  @h,X<L@,\<L,^<LR(A(+A,I<@+#7@h+,_<LT h1v	+,d<LY,.<@`-=Dg?F@Gg?F@Ig?F@j@@Y KYxSZxZZ0aY0aX aWXaT`c\8eTe\hh" ?gRpDgRpH[JXY[JXY(gRpJ[JXY8gRpK
gRpN
[JXYh[JXZgRpPgRpQ
[JXZ8gRpSgRpUgRpV[JXZh[JX[gRpXgRpY[JX[ gRpZgRp\gRp^gRp_[JX\[JX\[JX\[JX\gRpa[JX\0gRpc[JX\0[JX\@gRpd[JX\X[JX\XgRpe[JX\X[JX\pgRpg[JX]gRphgRpjE2X03gfhbOUTPOSgfhbSCREENLINESgfhNEXTWORD j+haKxKJJ7\-=k<@ 6g?F@m@XG8Pm" gfhbWRITINGALINEgfhbMOREWORDSgfh>@GETNEXTWORDgRpj[JX](E2X3E2X3E/gRpmE/gRpo[JX]x'(P

p Vl+:p &.42v+ $# q-=$2De+++q+{(P
EN]h-=x t V|+:| q.42v+ $s }-=$3Du+++}+W# -=h-=+hg"~-Y}@ E -=<@,m<@ 2v~++,>
h,>",>-=,~D"g?F@tg?F@zg?F@{g?F@g?F@g?F@g?F@
g?F@@~~^q^`w^0w_P~`(_x]h^h{`0ap" )[JX^8gRps[JX^8[JX^hgRpv[JX^h[JX^h[JX^p[JX^xgRpw!gRp|![JX_@[JX`gRp![JX`[JX`0gRp![JX`0[JX`0[JX`8[JX`@gRp"gRp"[JXaE2X4(gfh
BzBSKIPgfh
BOUTE2X4(E/gRp
$E/gRp
)gRp[JXap(Q,	<@^,<@+h	O>[JXcE2X50E2X500@*[6&N-=0@+Ov+(((*Q-=0@+@v,+-H-=0@+Ov+1K-=0@PP+@v3+4]-=0@gO 8`-=0@gOG4@D-=+,>
`h,>,>,>,>-=D,~,	<@(@^@ B Vh $A h-=$D"g?F@g?F@!g?F@"g?F@$g?F@'g?F@+g?F@.g?F@2g?F@5D"g?F@9g?F@<g?F@?g?F@Eg?F@K@dP&e*e@-ex1f04fh8hG" 3E/gRp-E/gRp8gRp#8[JXd0[JXdXgRp%8[JXdhgRp&9[JXdh[JXegRp)9[JXe gRp*C[JXe [JXeHgRp,C[JXeXgRp-D[JXeX[JXfgRp0D[JXfgRp1J[JXf[JXf8gRp3J[JXfHgRp4J[JXfH[JXfpgRp7J[JXggRp8O[JXg[JXgxgRp?TE/gRp@UgRpIUgRpJV[JXi .( L2DgO h1vgOA4D h/6 Vh+J $J h-=$"
3D*+,<@`,3<LhT,<L,<@E>o,^o>`K+( 
;x-=0@+,
<@+dC2=Kw`h-=h-=a,I<@  @" $R "-=$2D%++ I0V+,Y<L++,@>
f` QE
hj,>,>,>[,>D-=q,~,	<@^m,<@r+d++,I<@D"g?F@Sg?F@^g?F@cg?F@dg?F@gg?F@r@xjRjPZgp]mjm0mmPtmHwkxxoykPyfxyf@yfyePyeyd`y" ?[JXjgRpPV[JXj(gRpRV[JXj([JXjXgRpUWgRpWXgRpYX[JXk gRpZYgRp[ZE2X@; gfhbI[JXkXgRp]Z[JXkX[JXlgRp`_gRpa`gRpe`gRpfa[JXlh[JXmgRpia[JXm[JXm[JXm gRpja[JXm [JXm8gRpka[JXmPgRpmbgRpvc[JXnxgRpwd[JXnx[JXnx[JXogRpxd[JXo[JXo[JXo[JXo[JXo[JXo[JXo[JXo[JXo[JXogRpyegRp3("z $n "-=$3Dh+,<@d5 $z "-=$3D|+,I
A<@++W#h-=h-=,.<@`+"+
+haW$pr-=<@-=,g<L ,<Lh`,Z1l1`+,<L 6 V+:,>,(1l3 xgO/$4@ $ -=$ Dh h2V,gO h2T/gOG h2RXgOG h2P(gO	D"g?F@{g?F@g?F@g?F@g?F@
g?F@g?F@g?F@"@}|poHc`mog[JXop[JXp gRpg[JXp8[JXp8gRpigRpigRp	j[JXq[JXqgRp	kgRpk[JXq`E2X=8gfh
B!LOOPgfh
BcALGLOOPgfh
BOUTgfh
B
RETURNE2X=8E/gRpmE/gRpsE/gRptgRpugRpu[JXrh[JXsgRpvgRpw[JXs([JXtgRp!xgRp#x[JXt8# A@,G4V,W<L`,-<L`+,<L>o,^o>`K+hk:]k{]6.<pO-=4<@,1<L7@+ 0V+,9<L + ;0V+,=<L+,@<L7@+,<@+h Eu|S; -=F<@,B<L,J<L:,L<LOv@g?F@7g?F@H@? uP/t1s1rwH?xBwhBw0Bx DxHFwy" ?[JXuXgRp-y[JXupgRp/z[JXv[JXvgRp1{gRp2|E2XH?HgfhbTgRp4|[JXv@E2X?HE2X?HE/gRp7~E/gRp9gRp:[JXw([JXw8gRp;[JXw8[JXwPgRp=[JXwpgRp?[JXwp[JXxgRp@	[JXx [JXx [JXx(gRpB
[JXx@gRpD
[JXx@[JXxPgRpE
[JXx`gRpF[JXx`E2XA0E2XA0E/gRpH
,O+hG",:xeY](-=P<@v-=,>Rg?F@Ug?F@X" 	[JXyxE2XB0E2XB0E/gRpRE/gRpU7E// [,>,>X,>X-=X h.6,>,>,>X,>X-=X h.6,>,>,>X,>X-=X" h.6,>,>,>X,>X-=X% h.6,>,>,>X,>X-=X h.6,>,>,>X,>X-=X h.6,>,>,>X,>X-=X h.6,>,>,>X,>X-=X h.6	,>,>,>X,>X-=X
 h.6
,>,>,>X,>X-=X h.6,>,>,>X,>X
D"g?F@\g?F@ag?F@eg?F@jg?F@ng?F@sg?F@wg?F@|g?F@g?F@" gRpY9gRp]9gRpb:gRpf:gRpk;gRpo;gRpt<gRpx<gRp}=gRp=" @	-=X h.6
,>,>,>X,>X-=Xo h.6,>,>,>X,>X-=Xl h.6,>,>,>X@,>X-=Xr h.6,>,>,>X,>X-=XLh4V 6 Vh+:h ,>+@h3 xgO/ 4@] h..hX-=0@+D"g?F@	g?F@g?F@g?F@g?F@g?F@ g?F@*@`0$" gRp>gRp
>gRp?gRp?gRp@gRp@gRp!A[JX[JX gRp"B[JX [JXxgRp'C[JXx[JX8 ( 
+,<@`,I<@ $ "-=$3D+,I<@+.,.<@(`+++@h2@h+Ovh+#+;KN2q'# -=h-=8+! -=+haW&h9SI9-=><@,M<L,B<L,D<L,E<LH-=1@gD"g?F@/g?F@:g?F@;g?F@=g?F@@g?F@I@@305h7P7p8=H;z8" 6gRp+DgRp-EgRp.E[JXh[JXgRp1E[JX0gRp3FgRp4F[JXH[JXH[JXXgRp5G[JXX[JXpgRp7G[JXx[JXx[JXgRp8I[JXPgRp=IE2XPIgfhbLEGALCOMMANDgfh.COMMANDgfhbIgfh
B:EARLYEXITgRp=I[JXXE2XIE2XIgfhvNE/gRp@KE/gRpBQgRpDQgRpERgRpGRgRpHS[JX	/""AKOAD4@,G<L,	<@H,L<L,k<L,O<L A,R<L,S<L ?0V+,U<L,X<L,Y<L @,[<L,\<L+haW&
WG&\Rf-=`<@7@+ A,^<L7@+,e<L7@K+,h<L,j<L,l<L A,m<L,o<L,p<L,r<L,s<L,u<L,v<Lg?F@b@}|	@R
xY
Pg
xi" ?[JX	HgRpLTgRpNTgRpOUgRpQU[JX
 gRpRXgRpSXgRpUYgRpVY[JX
h[JXgRpXZ[JXgRpY[gRp[\gRp\\gRp^]gRp_][JXxE2XKXE2XKXE/gRpb_E/gRpdb[JX
H[JX
XgRpeb[JX
pgRpgb[JX
p[JXhb[JXmegRpofgRppfgRprggRpsggRpuhgRpvhgRpx(y,x<L,y<L" igRpyigRp{j+(  |,{<L V0V+,|<L+ ~0V+,<L,	 <L,	<L,	<L,	<L,		<L,	
<L,	
<L,	,	<L,	<L,	<L,	A<L 	0V+,	<LL4V,	<L,	<L+ 	 D0V+,	<LL	4V,	!<LL	"4V,	#<L@p	(				8		0	%X	'" ?gRp|jgRp~k[JX`[JXxgRpk[JXgRp	k[JX[JX0gRp	lgRp	mgRp	mgRp	n[JX[JXgRp		ogRp	
ogRp	
pgRp	qgRp	qgRp	rgRp	rgRp	sgRp	sgRp	t[JX[JXgRp	ugRp	u[JX0[JX@gRp	u[JXXgRp	v[JXxgRp	w[JXx[JXgRp	!xgRp	"x[JX([JX8gRp	#x[JXPgRp	%y[JXP[JX`gRp	&y(	',	&<L7@+,	'<L,	*<L,	+<L,	-@~	)p	)	+"+,	N<L+@~@	6x	9`	9X	@	Cx	Cp	I(	L	L	T" ?gRp	.|gRp	0|gRp	1}gRp	3}[JX0[JXHgRp	4}[JXhgRp	6~[JXh[JXgRp	8~[JX[JXgRp	9~gRp	;gRp	<[JXH[JX`gRp	>[JXgRp	@[JX[JXgRp	A[JX0[JX0gRp	CgRp	DgRp	F[JX`[JXxgRp	G[JXgRp	I[JX[JX0gRp	K[JXH[JXHgRp	LgRp	NgRp	O[JXx[JXgRp	P[JX[JX gRp	R[JX@gRp	T#(  	T 	P0V+,	R<L,	U<L+ 	T0V+,	W<L+ A
( 	Y0V+,	Z<L,	^<Le,	_<L,	a<L	E 	\0V+  E
,	b<L+ 	d0V+,	e<L,	i<L	M,	j<L	OL	O4V @ A 	g0V+,	l<L+ 	n0V+,	p<L,	s<L+@P	W8	W	Y 	\X	_@	_	aP	g	jp	jx	r0	u	u`	w" ?[JX@[JXXgRp	U[JXp[JXpgRp	W[JXgRp	Y[JX[JX(gRp	Z[JXHgRp	\[JXH[JX`gRp	^[JXx[JXxgRp	_[JXgRp	a	gRp	b
gRp	d
[JX@[JXXgRp	e
[JXxgRp	g[JXx[JXgRp	i[JX([JX(gRp	jgRp	l
gRp	m
[JXX[JXhgRp	n[JX8gRp	s[JXP[JXPgRp	u[JXpgRp	w[JX("	w 	r0V+,	u<L+ 	w0V+,	x<L	,	|<L	`,	}
<L	b 	z0V+,	<L,
<L+ 
0V+@p	z8	} 	}h	 
" p[JXgRp	x[JX(gRp	z[JX([JX@gRp	|[JXX[JXXgRp	}[JXpgRp	gRp
[JX [JX  gRp
gRp
[JX XgRp
[JX X[JX p("A
,
<L,
<L	,
<L	/,

<L,
<L,
<L A,
<L,
<L,
<L,
<L,
<L,
<LP"A,
<L	
<L,
<LM,
<L,
<L,
<L( 
,
 <L,
"<L,
#<L@x h
 P
"  gRp
[JX![JX!gRp
gRp

gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
 gRp
"gRp
# " 
&,
%<L,
&<L,
(<L,
)<L,
+<L,
, <L,
.<L,
/<L,
1<L,
2<L,
4<L,
5
("<L
,
7<L
,
8<L
!,
:<L,
;<L
,
=<L
,
>" gRp
% gRp
&!gRp
("gRp
)"gRp
+#gRp
,#gRp
.$gRp
/$gRp
1%gRp
2%gRp
4&gRp
5&gRp
7'gRp
8'gRp
:(gRp
;(gRp
=)gRp
>)""E

@<L
,
@<L
 ,
A<L
;,
C<L,
D<L,
F<L
D A,
G<L,
I<L,
J<L,
L<L
H,
M<L,
O<L
& A,
P<L,
R<L,
S<L,
U<L,
V<L,
X<L A,
Y<L,
[<L,
\<L,
^<L,
_<L" "gRp
@*gRp
A*gRp
C+gRp
D+gRp
F,gRp
G,gRp
I-gRp
J-gRp
L.gRp
M.gRp
O/gRp
P/gRp
R0gRp
S1gRp
U1gRp
V2gRp
X2gRp
Y3gRp
[3gRp
\4gRp
^4gRp
_5gRp
a5(P E
b,
a<L
?,
b<L,
d<L,
e<L
\,
g<L,
h<L A,
j<L,
k<L,
m<L,
n<L,
p<L,
q<L A,
s<L,
t<L,
v<L,
w<L,
y<L,
z<L" gRp
b6gRp
d6gRp
e7gRp
g7gRp
h8gRp
j9gRp
k9gRp
m:gRp
n:gRp
p;gRp
q;gRp
s<gRp
t<gRp
v=gRp
w>gRp
y?gRp
z?#""
},
|<L,
}<L,
<L,<L,<L
c, <L,<L,<L,<L,	<L 
0V+, <L,<L,<L,<L,<L
h,<L,"<L,<L,<L,<L,<L,<L@`1X" 'gRp
|@gRp
}@gRp
AgRpAgRpBgRpBgRpCgRpCgRpDgRp	DgRpEgRp
F[JX1H[JX1`gRpGgRpGgRpH[JX2(gRpIgRpIgRpJgRpKgRpKgRpLgRpLgRpMgRpM( E ,<L, <L,!<L,#<L
N,$<L,&<L( A,'<L,)<L,*<L,,<L,-<L,/<L,0<L,2<L" gRp NgRp!NgRp#OgRp$OgRp&PgRp'PgRp)RgRp*RgRp,SgRp-SgRp/TgRp0TgRp2U)" 4,3<L,5<L,6<L,8<L,9<L,;<L,<<L 
0V+,><L+ ?0V+,A<L D( ,D<L7@	)+,F<L	+,H<L,J<L,K<L,M<L,N<L C0V+,<@+ Q0V+,<@"E,P<L
,X<L(,Y<L,[@8C8@F8(F9J:(U:`X:HX" 9gRp3UgRp5VgRp6VgRp8WgRp9WgRp;XgRp<XgRp>YgRp?Y[JX7x[JX8gRpAY[JX80gRpCZ[JX80[JX8HgRpDZ[JX8`[JX8`gRpFZgRpG[[JX8x[JX9gRpH[[JX9 gRpJ[gRpK\gRpM\gRpN]gRpP]gRpQ^[JX:[JX:0gRpS^[JX:PgRpU^[JX:P[JX:hgRpV^[JX;[JX;gRpX_gRpY_gRp[` ]< A(]<L,\<L,^<L,_<L,a<LZ,b<L A,d<L,e<L,g<L,h<L,j<L,k<L A,m<L,n<L,p<L,q<L,s<L,t<L"E,v<L%,w<Lc,y<L,z<L,|<L,}<L A,<L,
<L,
<L,
<L,
<L,
<L A,
<L,
	<L,
<L,
<L,
<L,
<L A,
<L,
<L,
<L,
<L" <gRp\agRp^agRp_bgRpabgRpbcgRpddgRpedgRpgegRphegRpjfgRpkfgRpmggRpnggRpphgRpqhgRpsigRptigRpvjgRpwjgRpykgRpzlgRp|lgRp}mgRpmgRp
ngRp
ogRp
ogRp
pgRp
pgRp
qgRp
	rgRp
rgRp
sgRp
tgRp
tgRp
ugRp
ugRp
vgRp
wgRp
w(
,
<L,
" gRp
x: A
<L,
<L,
<L,
<Lz,
<L,
 <L A
,
!<L,
#<L,
$<L
,
&<L,
'<L,
)<L" 7@i+,
*<L,
-<L,
.<L,
0<L,
1<L,
3 <L,
4<L,
6<L,
7<L,
9<L,
:<L,
<
Q"<L9,
=<L
8,
?<L,
@<L
;,
B<L
=,
C<L
>,
E
*<L
@,
F<L,
H<L
OI-=1@+,
I<L,
M<L ,
O<L,
P<L,
Rg?F@
L" =gRp
xgRp
ygRp
ygRp
zgRp
 {gRp
!{gRp
#|gRp
$|gRp
&}gRp
'}gRp
)~gRp
*~gRp
,[JXE@[JXEPgRp
-gRp
.gRp
0gRp
1gRp
3gRp
4gRp
6gRp
7gRp
9gRp
:gRp
<gRp
=gRp
?gRp
@gRp
BgRp
CgRp
EgRp
F	gRp
H	gRp
I
gRp
K
[JXI0[JXIXgRp
M
gRp
O
gRp
P
R$ E 
T<L,
S<Ln U0V+,<@L4V,<@L
Y  4V,<@,
U<L
F,<@+ 
V0V+,<@L
\4V,<@L
e4V,<@,
^<L
_,<@,<@
K A
,
j<L,
n<L,
p<L
V 
b0V+,
q<L,
t<L+@~K 
\KH
^Jx
bLX
gM
jL0
mL
mIP
pEH
pN@
x" ?gRp
SgRp
UgRp
V[JXJh[JXKgRp
XgRp
Y[JXK[JXK(gRp
Z[JXK@gRp
\[JXK@[JXKPgRp
][JXKhgRp
^gRp
`[JXL gRp
b[JXL [JXL8gRp
cgRp
e[JXLP[JXL`gRp
f[JXLxgRp
g[JXLx[JXMgRp
h[JXM gRp
jgRp
k[JXMP[JXMPgRp
mgRp
n[JXN[JXNgRp
pgRp
qgRp
s[JXN0[JXNHgRp
tgRp
v[JXOgRp
x[JX( E
x 
s0V+,
v<L,
y<L,/<Lh0,
{<L,
~<L A,
<L,xO
|Nx
|" O[JXOgRp
ygRp
{[JXOH[JXOHgRp
|gRp
~ gRp
!gRpA
,
<L 
x0V+,,
|<Lh
},,w,
J+,,Q`
$gRp[JXQhgRp
r0+,,V0gRp-=
8YgRpE2XgpE2Xg E/gRp
cpp.6 Vp p0V+,>,>,>p,>p-= =hp+ p0Vg?F@
[JX\@gRpX\xgRp,=hp+p0V+,>,>,>p,>p-=M=hp+p.6gVp,YgRpY[JX`P[JX`hgRpZgRp[gRp	[gRp\gRp
\gRp]gRp]gRp^gRp^gRpgRpgRp`; A<@,
,,,=gRp`gRpagRpagRpbgRpbgRp cgRp!cgRp#dgRp$dgRp&egRp'egRp)fgRp*fgRp,ggRp-ggRp/hgRp0hgRp2i[JXf@gRp4j[JXf@[JXfXgRp5kgRp7kgRp8lgRp:lgRp;mgRp=mgRp>ngRp@ngRpAogRpCogRpDpgRpFpgRpGqgRpIqgRpJrgRpLrgRpMsgRpOsgRpPtgRpRt! AT<@,
,+L4V,h<L7@k+D,l<L7@d+,n<LLmLA4V@g?F@cg?F@f@}|fPbf8bXm8mm`pnr"?gRpSugRpUugRpVvgRpXvgRpYwgRp[wgRp\xgRp^xgRpygRpay[JXl([JXl(gRpbzgRpc{E2XXo0gfhbTYPEgfhbINDEXgfhARRAYNAMEgfh<B,{
 A<L
G,|<L7@
g+ x0V+,~<L,<L7@j+ ,<L@pnXxo{nx{n@|m(" ![JXnH[JXn`gRpv[JXogRpx[JXo[JXogRpy[JXo0[JXo0gRp{[JXoHgRp|gRp~[JXoxgRp[JXox[JXpgRp
[JXp[JXpXgRpgRp(
,<L7@G+,<LI,
<L,<L,,<L,<L+ 0V+,<L,<LE
7@	+,<L,<L
,<L,@@pX	qps " "gRp[JXqgRp	[JXq[JXq gRp
[JXq8gRpgRpgRp[JXrPgRp[JXrP[JXrhgRpgRpgRp[JXs[JXs(gRp[JXs@gRpgRp E<L,<L, <L,"<L,#<L,%<L A(,&<L,(<L,)<L,+<L,,<L
,/<L,1<L,2<L07@r+,4<L@xr`%rH%" gRpgRp gRp"gRp#[JXtP[JXtPgRp%gRp&gRp(gRp)gRp+gRp,gRp.gRp/gRp1gRp2gRp4 gRp5 [JXvX[JXvh" 7,6<L,8<L,9<L,;<L,<<L,> <L,?<L,A<L,B<L,D<L,E<L,G"<L7@p+,H<Lr7@+,K<L
:,0V+,M<L"A,P<L'gRp6!gRp8"gRp9"gRp;#gRp<#gRp>$gRp?$gRpA%gRpB%gRpD&gRpE&gRpG'gRpH'gRpJ([JXy [JXy0gRpK([JXyH[JXyHgRpL)[JXyH[JXyXgRpM*gRpO*[JXyp[JXzgRpP+gRpR,gRpS,"(V,U<L,V<L
k,X<L+ O0V+,Y<L"E
(,]<LS,^<LT,`<LN,a<L,c<LW,d<LY ,f<LL@pz[{Hi{0iyPipi" gRpU-gRpV-gRpX.gRpY.[JX{8gRp[/[JX{8[JX{PgRp]0gRp^1gRp`1gRpa2gRpc2gRpd3gRpf3gRpg4[JX}[JX}[JX}[JX}gRpi6[JX}"i4V [0V+,g<L,k<L,m<L
K-=1@"A+,n<L,r<Lp,t<L2,u<L,w<L,x<L ,z<L+ j0V+,{<L,<L_,<Lu p-=1@@g?F@qg?F@@x~ w}0}" #[JX} gRpj7[JX} [JX}8gRpk8gRpm8gRpn9gRpp9[JX~[JX~(gRpr:gRpt;gRpu;[JX~pgRpw<gRpx=gRpz=gRp{>[JXXgRp}?[JXX[JXpgRp@gRp@gRpAgRpA[JX8"( +,<Ls,<L,<L,	<L,<@,(<@,
<Lg7@L+
n-=1@+ }0V+,<@+ 0V+,<@g?F@@@X
hPP" [JX`gRpBgRpCgRp	C[JX(gRp
DgRp
EgRp[JXpgRpFgRpG[JX[JXgRpH[JX[JX@gRpI[JX@[JXXgRpI[JXxgRpI[JXx[JX",<@ 0V+,<L+ 0V+,<L"AA
,h+,!<L+ $0V+,%<L& '0V+,)<L+ *0V+,,<LL	m4V .0V@|p8P"p"P'*p*8.p1X1" 5gRpI[JX([JX(gRpJ[JX@[JX@gRpK[JX@[JXXgRpL[JXxgRpM[JXx[JXgRp!M[JX([JX(gRp"MgRp$N[JX@[JXXgRp%N[JXxgRp'N[JXx[JXgRp)N[JX([JX(gRp*O[JX([JX@gRp,O[JX`gRp.O[JX`[JXxgRp/O[JX[JXgRp1P[JX[JX gRp2Q[JX "3+,/" [JX8/ A4<L,3<L,5<L,6<L+ 20V+,8<LA"L14V,;<L,><L,b<L,?<L,B<L,C <L,E<L+haW$j7SN@-=H<@,F<LL= 
 1tgOA4V-=,m>
,>,>,>C,>-=T,L<L
 N Vh 6 Vh+:h2vh+,<P,A<L,V<LV,^<L
+Z :0V+Dg?F@Jg?F@Qg?F@U@~x0:X?0???}Alx [8a" ?gRp3RgRp5RgRp6SgRp8S[JX gRp:T[JX [JX8gRp;UgRp=V[JXP[JX`gRp>V[JXx[JXx[JXx[JXxgRp?W[JXgRpAXgRpBYgRpCYgRpEZgRpFZgRpH[[JX	E2X{0E2X{0E/gRpJ]E/gRpLbgRpNc[JX	`[JX
gRpQcE/gRpRdgRpVegRpXegRpYf[JX[JX@gRp\ggRp]ggRp^hgRp_h[JX
gRpai[JX
(c,_" [JX
0& @ Ac<L,c<L+ a0V+,d<L,h<L,i<L">o,^o>`K,k<LLi4V f0V+,n<L,r<L A,s<L,u<L,v<L,x<L+ p0V+,y<LP A,}<Lt,~<L,<L,<L,<L7@+(LsL5A4V@`
(f
xk
`k
n{H0" ?gRpcjgRpdk[JX
hgRpfl[JX
h[JXhmgRpim[JX`}pgfhbIgfhbJ[JXusgRpvsgRpxtgRpyt[JX8gRp{u[JX8[JXPgRp}vgRp~wgRpwgRpxgRpxgRpy[JX`[JX`[JX`gRpz[JX`[JXpgRp{[JXp[JXgRp	|(  	 {0V+,<L,
<L+ 	0V+,<@,<@ 0V+,<@,<@+@@ pX8" [JX[JX(gRp
}gRp
~[JX`gRp[JX`[JXxgRpgRp[JX([JX(gRp[JX([JX@gRpgRp[JXxgRp[JXx!( E
 0V+,<@,<@,
<L|,<L},<L  0V+,<L+  0V+,"<L,%<L $0V+,'<L+ (0V+,*<L,-<L ,0V+  D,/<L+ 00V+,2<L,5<L@pp$P'8',P/8/4P787" 7[JXgRpgRp[JX@[JX@gRp[JXXgRpgRpgRp [JX[JX gRp"[JX@gRp$	[JX@[JXXgRp%	[JXp[JXpgRp'	gRp([JX[JX gRp*[JX@gRp,[JX@[JXXgRp-[JXp[JXpgRp/
gRp0
[JX[JXgRp2[JXXgRp5[JXp[JXpgRp7 8((Q"8,7<L
I,8<L7@+ 40V+,:<L,><L A+ <0V+,?<L,C<L,D<L7@+,F<L"A ,H<L9,J<LLN4V,K<L,N<L_,O<L,Q
(<LN,R<L,T<LboA0V+,U<L+W0V+E,X<L,\<Le,]<L@~h:XA(FFJXRZ8]R]@`"?gRp8[JXgRp:gRp;[JX8[JXHgRp<[JXH[JX`gRp>gRp?[JXgRpA[JX[JX0gRpCgRpD[JX`[JX`gRpFgRpG[JXx[JXgRpH[JXgRpJgRpKgRpM[JXP[JX`gRpNgRpOgRpQX(gRpRgRpTgRpUgRpW[JXp[JXgRpX[JX(gRpZ[JX([JX@gRp\[JXX[JXXgRp] gRp 
<L+hO?%|h-=n&[JX`[JXpgRpo'gRpp'gRpr(gRps(gRpu)gRpv)gRpx*gRpy*gRp{+gRp|+gRp~,gRp,gRp-gRp-gRp.[JX XgRp/gRp/[JX p[JX!gRp0gRp
1gRp1[JX!PgRp(E/ E<@,<@'E-=0@+-=0@+,<@d~+,<L@g?F@g?F@@`"p" gRp4E/gRp:gRp:[JX"([JX"PgRp@[JX"P[JX"xgRp@[JX# gRpA)(Q",<L,<L	,I<@ $. "-=$3D#+,<@d"@" $ "-=$3D!+,I<@+$,.<@`+,<@,R >
,>,>,>,,>-=/LLA4V,<L+,3<L"@v,]<L,5<L-,8<L`+h[\[E`-=;<@-=,1l9@h+FY&I9G"$H[JX$xgRp'F[JX%[JX%gRp)G[JX%0gRp+HgRp,IgRp1I[JX&[JX&0gRp3I[JX&PgRp5J[JX&hgRp6J[JX&pgRp7KgRp8LgRp9LgRp;M[JX'0E2X	PE2X	PE/gRp=OE/gRp?SE/gRp@T D4-=g?F@E* PEh-=B $A h-=$ Dh h36+  $G h-=v h/6 Vh+F+ h.6 $K h-=v>o,^o>`K+h[\[0S:d@(D-=U<@-= X.6 VY,@1lP @h+aY&I9G"
BELETTERCHANGEgRpTY[JX*HE2XE2XE/gRpW[E/gRpYaE/gRpYbgRp[cgRp]dgRpbdgRpde[JX,H[JX,`gRpffgRphfgRpjg[JX- [JX- [JX-0gRpkg[JX-`gRpnhE2Xp
B`LETTERCHANGEgRp;  "o+h_B-kziC.@-=p<@-= "h-=+,[1l. @,~,>
Q`v`,>,>,>h,>h-=h 6 Vh+:h,>,v1l w3 xgO/&4@ $ h-=$  $h h-=v+ $ "-=$  $h h.6 -=t $ "-=$  $h h.6 -=t $ "-=$  $h h.6 -=t $ "-=$  $h h.6 -=t,<L``Ov,,<L`-=+h 6"  Vg 6 Vn 6 Vp 6 VT,x>
``D"g?F@rg?F@tg?F@ug?F@|g?F@g?F@g?F@
g?F@D"g?F@g?F@g?F@g?F@g?F@g?F@#@0.Xx/h08	.0$"o-oh[JX-xE2XpgRpqgRpqgRprgRp!rgRp"sgRp#sE2Xx8gfhFILENAMEgfhbIgRp$s[JX4@E2X8E2X8gRp$ygRp%zgRp&zgRp'{: A*,>,>,>,>-=+ 6 $- "-=v,(>
`C`,>,> T@,>$,>-=3%$4"C-=v&$5"C-=v$"-=$PD$"-=$D$P"-=$D($	"-=$D$`"-=$DL$"-=$D$""-=$D+$g?F@4g?F@6g?F@9g?F@;g?F@=g?F@@g?F@BD"g?F@Eg?F@Gg?F@Jg?F@Lg?F@Og?F@Tg?F@Wg?F@Zg?F@]@g?F@`g?F@c" gRp({gRp-|gRp0|gRp5}gRp7}gRp:~gRp<~gRp?gRpAgRpD	gRpF	gRpI	gRpK	gRpN	gRpP	 Q d,>,>,>w,>q-=e $ "-=$ Df $ "-=$ DeQ@,>,>,>Q,>-=m $ "-=$ D $ "-=$ D $D"g?F@fg?F@hg?F@jg?F@ng?F@pg?F@s" 	gRpQ	gRpg	gRpi	gRpl	gRpo	gRpr	,  u "-=$ D$ $ "-=$ DU $ "-=$ D $ "-=$ D $ "-=$ D% $ "-=$ DQ,<L`,<L
P `,<L``,<L`	,9<L,
<L,+gR-s V
 Q*U*S,>,>,>l,>U-=Ov0@v VG VM Vg Vn VJ V! V7 V	D"g?F@ug?F@xg?F@zg?F@}g?F@g?F@g?F@g?F@g?F@" gRpt	gRpw	gRpy	gRp|	gRp~	gRp	gRp	
gRp	gRp	gRp
	
gRp
	gRp	gRp	gRp	gRp	gRp	gRp	gRp	gRp	**
! V; Vc 6 V@v V V& V),<@Zl,>,>,>&,>Y-=("(,<L,*<L,I<@,>
8`ho,>,>,>,>
@-=13&-=0@+Dg?F@)g?F@2g?F@4" gRp	gRp"	gRp#	gRp%	gRp&	gRp*	 gRp+	 gRp-	!gRp.	!gRp3	"[JXF8[JXF`gRp6	"[JXF`[JXF`$" 6+,z<@3 6 V $A "-=$  $7 8-=$3Dg(O,>,1l;3`<gOAx/4@ A.6 VD+9,?1l@ 2@E+-=+,F1lG. ,~,0>
Q`I`,>,>,>,>-="(O 6 VG+:Q,>,I1lJ3 xgO/C4@ $T R-=$D"g?F@:g?F@<g?F@Hg?F@Pg?F@X@@FX6H8FILJ S" [JXFhgRp6	"gRp8	#gRp9	#[JXG[JXH@gRpD	#[JXH`gRpF	$[JXH`[JXIgRpH	$E/gRpI	%gRpQ	&[JXJ[JXJx "A Y  $P X-=v+R $9 "-=$  $Z Z.6 -=t  $ "-=$  $_ _.6 -=t $ "-=$  $d e@.6 -=t $ "-=$  $j j.6 -=t+,S1l"
o,~,L>
Q`s`,>,>,>W,>2	D"g?F@[g?F@]g?F@ag?F@cg?F@fg?F@hg?F@lg?F@ng?F@q@xJp\N(u" gRpW	&[JXKHgRp\	&gRpb	'gRpg	'gRpm	(("A"y-=xt,>,>,>y,>x-={>o,^o>`K,+<L,<L(  },<L,<L`,<L`,f<Lhp &41Vg
O V,<L`,<L`,<L` 6 V+:,>,s(1l3 xgO/V4@ $ -=$2DC+ /6 V++ + Yi3_IP-=h-=D"g?F@yg?F@|g?F@g?F@g?F@ @@IRSRh" %gRpr	(gRpz	)gRp}	)E2Xgfh
zTEMP[JXOpgRp	*gRp	*gRp	+gRp	-gRp	-gRp	.gRp	.gRp	/gRp@[JXSH*(Q ,<@),<@,<@`,.>
`h,>,>(Q,>%,>_-=),r<@+/gR-_? -=h@g?F@*g?F@." 	gRp	6gRp!	6gRp"	6gRp$	7gRp%	7gRp+	8-"D /-=,,I<@ $0V+ 00V+,I<@+3 $/ "-=$   D1 $ "-=$3D8+,<@` $6 "-=$3D:+,@"<@d# $= "-=$3D?+,I<@+B,.<@`,<@c Pf-=0@+Ov,<@`+/Ik-=0@+,?>,>*(,>,>,>-=S,z<@UOv,<@`+/OY-=0@+	D"g?F@/g?F@7g?F@9g?F@>g?F@Cg?F@Jg?F@Pg?F@Tg?F@[@V@6W0=V(=XPGXGY8OZZ" ?gRp,	<gRp0	<gRp1	<[JXV[JXV0gRp3	=[JXV0[JXVHgRp4	=[JXV`gRp6	>gRp8	>[JXW[JXW8gRp;	?[JXWX[JXWXgRp=	@[JXWX[JXXgRp@	AgRpB	B[JXX([JXXXgRpE	B[JXXp[JXXpgRpG	FgRpH	FgRpI	G[JXY[JXY@gRpL	KgRpL	KgRpN	L[JXYh[JXYh[JXYpgRpO	M[JXYp[JXZgRpQ	WgRpU	WgRpW	XgRpW	XgRpY	Y[JX[[JX[[JX[ gRpZ	Z[JX[ 0(P
(\,<@],?>,>,>,>],>\-=`,z<@ac-=D0@+ 6 V"+c-=0@+ 6 Vf+,<@`+/(( Zo-=0@+Ov!+/nt-=0@+,m<@,?>,>,>(Q" ,>E,>8-=w,z<@x,1lz0`+,<@dA 6 Vk
 +:2v+{ ..DX-=0@+,<@`+ 0V+,<@d~+D"g?F@ag?F@dg?F@hg?F@og?F@rg?F@xg?F@@@\Xg]k]0m\pm[@n^q_H``X`a
" ?[JX[HgRp\	_gRp^	`gRpb	`gRpc	a[JX\8[JX\`gRpf	a[JX\xgRpg	a[JX\x[JX] gRpj	a[JX]8gRpk	b[JX]X[JX]XgRpm	c[JX]X[JX]X[JX]`gRpn	d[JX]`[JX^gRpp	kgRpq	l[JX^[JX^[JX^gRpq	m[JX^[JX^@gRpt	qgRpu	qgRpy	rgRpz	r[JX_([JX_PgRp}	r[JX_pgRp	s[JX_p[JX` gRp	s[JX` [JX``gRp	t[JXa[JXagRp	t[JXa[JXa gRp((Q"
 .6 V
,%>
,>,>X,>X-=X,?>E
(,>,>,>,>w-=,z<@-=0@+ j.OvX+ "-=0@+ .@vX+,<@d g.!@vX+/q   x-=0@+Ov +/&}-=0@+Ov+/*-=0@+*@ Ov+/--=0@+OvD"g?F@g?F@g?F@g?F@g?F@'g?F@+g?F@.g?F@2@xa@c8d"d $cX$^8&e*e@-ex1" ?
	u[JXaHgRp
	u[JXa`gRp	vgRp	vgRp	wgRp	w[JXc[JXc@gRp	w[JXc`gRp	x[JXc`[JXdgRp 	x[JXd(gRp"	x[JXdH[JXdHgRp$	ygRp&	y[JXd`[JXd`[JXdhgRp&	z[JXdh[JXegRp)
gRp)
[JXe[JXe[JXe gRp*
[JXe [JXeHgRp,
gRp-
[JXeP[JXeP[JXeXgRp-
	[JXeX[JXfgRp0
gRp0
[JXf[JXf[JXfgRp1
[JXf[JXf8gRp34*@@4+/1-=0@gO 4
-=0@gOG4@Ov!*( V) V,<@`,"<L`,<L,A<L*,B<L"A,D<LC,E<L,7<L,?<L`+/8b-=0@+,mT <@,>
Bh'h3,>,>,>#,>-=R+/K]-=0@+"E ,m<@,O>
PhPhQ,>,>,>",>(-=\]4-=0@+ "@,<@`Ov<Ov<+/,@<@U-=0@+D"g?F@5g?F@9g?F@Lg?F@Sg?F@Vg?F@]g?F@_g?F@f@pf04g8KiXUlcjpd" ?
gRp4
[JXf@[JXf@[JXfHgRp4
[JXfH[JXg@gRp<
-gRp=
-gRp?
.gRpA
.gRpB
/gRpD
/gRpE
0gRpG
0gRpH
1gRpI
1gRpK
2[JXi0[JXi0[JXi8gRpK
3[JXi8[JXi`gRpN
7gRpO
7gRpT
8[JXjH[JXjH[JXjPgRpU
9[JXjP[JXjxgRpW
QgRpX
RgRp^
R[JXk`[JXlgRp`
SgRpb
T[JXl0gRpc
UgRpc
U[JXl8[JXl8[JXl@gRpd
[gRpe
[[JXlP[JX0(A"Eg,X>
^,>,>,>e,>b-=j,<@+e,R<@`,b<@((
k-=0@gO p-=0@gOG4@st-=(Q0@+,g>
h,>,>,>w,>j-=|,H<L,~<L,<@+w(Q"~p-=0@+,G<L,<L>?,<L,<L
{,>,>,>,>}D"g?F@kg?F@qg?F@tg?F@xg?F@}g?F@g?F@@@lpmop@np" ,lxgRpg
^gRpl
_[JXmXgRpm
`gRpo
bgRpp
c[JXn[JXnxgRpw
d[JXnx[JXo gRpz
kgRp~
lgRp
lgRp
m[JXp gRp
n[JXp [JXpHgRp
ugRp
vgRp
vgRp	
wgRp

wgRp
xgRp
x[JXqh[JXqpgRp
zgRp
zgRp
{[JXr[JXr@"D"A-=,<L,<L,<@+,R<@`,f<@g?F@@`r8" 
gRpgRpgRpgRp[JXs@gRpgRp.(Q +"o"L:_;&+v4-=h-=,<@{-=0@+ PP",
<@+$c-=0@+#.6 V+,<L,
<@,>,>,>,>-=4,W<@,<L,0<L(Q"2,8<L:,:<@,9<LL,4V,<<LO,><L5,@
 (<LR,A<L
+"(T-=0@+-=,<@o,>
,>,>,>ID"g?F@!g?F@"g?F@%g?F@)g?F@5g?F@Fg?F@G@~th(w`Cu(E" 8gRpgRp#
gRp$
[JXtH[JXtpgRp'gRp([JXu[JXu[JXugRp([JXu[JXu0gRp+gRp,gRp.gRp0gRp1gRp2gRp6gRp7gRp8gRp9gRp;gRp<gRp=[JXwX[JXwhgRp>$gRp@%gRpA%[JXx0gRpC&gRpD'[JXxH[JXxH[JXxPgRpE([JXxP[JXxxgRpG(E/gRpH49(Q Q
L,>n-=L,<@0^,>,>,>O,>/-=Q@vOv:@vO V"AE #.6 VU,C<L,.<LhV`,V<L17@c+-=,<@ ("W 6 V+:_2vZ+ $Y `-=$2D<+ b26`+ d.6" D( Vf+ g/6 V+ $a h-=$3D>+ j/6 Vi m/6 Vn 
A+sI'&Km-=h-=p $j o-=$3DAgO  $t @T" u-=$3DFgOA4D y/6 V}+s,<@^+ ~.6 ,~,I>
xQ`	D"g?F@Mg?F@Rg?F@\g?F@bg?F@kg?F@rg?F@sg?F@ug?F@y@p{x`|Xh|xjH" <gRpI5gRpN5gRpO6gRpS6gRpS7gRpT7gRpU8gRpV8gRpX9gRpZ9gRp[:[JX{8[JX{HgRp\:E/gRp];gRp^<[JX{h[JX|gRpa=[JX|[JX|HgRpd>[JX|H[JX|`gRpf>[JX}gRph>gRpi?[JX}[JX}[JX} gRpj@[JX} [JX}PgRpmAgRpnAgRppCgRptC[JX~H[JXPgRp}DgRp~D[JXh[JXh[JXpgRpE-((Phn,>,>,>,>V-= .6 V+`>o,^o>`K,
<@9EE
,>,>,>A,>4-=,W<@,7<L,Z<L,<L,<L,<L,<L(QQ D,<L;,:<@7@0+, <LI,#<L,%<L,&
"P"<L
7@[+ e V@v*,<@ + V+,(<LL=4V,.<L@g?F@g?F@@}H
|@
|
}s{@
0% ." ?gRpFgRpF[JX [JX [JX(gRp
HE2X9gfhj	POS1gfhjPOS2gfh
JrDITTO[JX@gRp
IgRpJgRpJgRpKgRpKgRpLgRpLgRpMgRpOgRpOgRpPgRpPgRp QgRp!SgRp"S[JX([JX8gRp#S[JXPgRp%TgRp&TgRp(UgRp)U[JX[JX(gRp*VgRp+WgRp,WgRp-X[JX`gRp.YgRp/Y[JXx[JXgRp*(Q*2,0<L)7@)+ - V-@v4,<@ 5 V5,2<L,8<L(P"E(,9<LB,;<L,<<L37@3+ 7 V7@v@,<@ A(  VA,><L+IC;y9M&tF@-=h-=F@v1,<@@vE (A?-=0@+Ov1LT4V Z2vC+,<@,m<@,>
((@hPhP,>,>,>R,>-=WOvO 6 VU+D g?F@Hg?F@Ig?F@Mg?F@X@|@8DE
[	x[	`[" ?0ZgRp2[gRp3[[JX8[JXHgRp4\gRp5]gRp6]gRp7^[JXgRp8_gRp9_gRp;`gRp<`gRp>agRp?a[JXx[JXgRp@bgRpAcgRpBcgRpCd[JX@gRpDe[JXXgRpEigRpJigRpJigRpKjgRpLj[JX	@[JX	hgRpNxgRpOy[JX	p[JX
gRpPz[JX
[JX
gRpQ{gRpS{gRpT|gRpY|gRpZ}[JX0[JX0[JX8gRp[*
[LB-=0@+@vN+[W-=0@+@g?F@\g?F@`@`X_" [JX8[JX`gRp^[JXpgRp_
	[JXp[JX
&(P
DaOvJ+_Z-=0@+OvK@v^LT4V,H<@+Lf4V,HE"<@,7<@,D<L,k<L7@Y+,m<L,<@Y,o(E
<L,r<L,t<LhL/4V,u<L?,x<L:,y<L(DP
<,{<Ll+,|<L,<@g,?>,>,>,>,>`-=(@,z<@@g?F@cg?F@@~
b
hh
Hhx|
 ~h~0~" ?gRpa
	[JX
(gRpb
[JX
([JX
PgRpe
gRpe
gRpf
[JX
`[JX
pgRpg
[JXh
"[JXi
"[JXj
"gRpk
#gRpm
#gRpn
$[JXo
%gRpq
%gRpr
&[JX@gRpt
'gRpu
'gRpw
([JXp[JXgRpx
)gRpy
)gRp{
*[JXHgRp|
+gRp~
+[JX`[JX`[JXh[JXh[JXh[JXhgRp~
,gRp
-gRp
-gRp
.gRp-**"O-=0@+Ov6LeA	LaALeA4VS.6 V
`,<L,=<@,7<@,<L,<L,<LM,<L(D(E,:<@,<@, <L}+I+L4V@vS 1V+,<@"Qd#+/_J$\V_? -=h-=,,I<@ $U "-=$3DD+D g?F@g?F@.g?F@/g?F@2@|
@P&p(" ?
.[JXp[JXgRp	
.[JX gRp

/[JX [JXXgRp
2gRp
2[JXp[JXgRp
3[JX[JXgRp
3[JX([JX(gRp
4gRp
5gRp
5gRp
6gRp
6gRp
7gRp
7gRp
8gRp 
8gRp"
9gRp#
9gRp$
:gRp%
:[JXX[JXX[JXhgRp&
>[JXh[JXxgRp'
>[JXgRp(
?[JX[JXgRp)
@gRp+
AgRp0
AgRp1
B[JX[JX@gRp4
B[JX@[JX*4+/,.<@`+I,=<@7@ +@x846" 
@[JXHgRp4
BgRp6
C[JX`[JX`[JXhgRp6
DgRp7
D[JXx[JX+( 8,$<L,<L-=1@+L
4VL74V,8<L Q ,?<LL>G4V,A<L,D<L7@=+,E<L 6"E V+:J,>,z1l;3 xgO/4@ $M K-=$ D R"Q(2VK+,"<LhR U2Vv+,T<LhV,W<LhU+K,H<L"(Q7@G+,Z<L,]<L ,^<L[,<@P@g?F@<g?F@Q@~;pA8E`GxI(K8UhXxZH^" ?gRp8
EgRp:
F[JX0gRp;
G[JX0[JXXgRp=
H[JXX[JXhgRp>
I[JXh[JXxgRp?
I[JXgRpA
IgRpB
J[JX([JX@gRpD
J[JXXgRpE
J[JXpgRpG
K[JXp[JXgRpH
K[JXgRpI
L[JX[JXgRpP
MgRpR
M[JX([JX@gRpT
M[JXXgRpU
N[JXX[JXpgRpW
N[JXgRpX
N[JX(gRpZ
OgRp\
P[JX@[JXPgRp]
P[JXhgRp^
PgRp`
QgRp'(
"c,?>,>,>,>b,>-=e,z<@f+; CG\L &A
D("LA4VLB4V,`<L@,n<L,o<L_,q<La7@i"D(+,r<L,u<Lr,v<Ls,:<L,x<L^,z<Lw"D ",|<L!Lj4V7@
+,}<L+,<L,<Ly7@tD+7@?+,<@7@i+g?F@f@xPiXoHtH  (x x	 h	" ?a
QgRpc
RgRpg
R[JXgRpi
S[JX[JXPgRpm
T[JXP[JX`gRpn
T[JXxgRpo
UgRpq
UgRpr
V[JX@gRpt
W[JX@[JXPgRpu
XgRpv
XgRpx
YgRpy
YgRpz
ZgRp|
ZgRp}
[[JXpgRp
^[JXp[JX gRp
_[JX [JX gRp
_[JX 0gRp
_[JX HgRp
_[JX `gRp
`[JX `[JX pgRp
a[JX p[JX!gRp
a[JX![JX!gRp	
b[JX![JX! *DE
LkAG4V,<L,y<L,
<L,@x!8
gRp

c[JX! [JX!@gRp

c[JX!X[JX!XgRp
dgRp
e$"E@(<L},<L~,:<@,<@+I>o,^o>`Kb(-=0@D+,J<@,I<@ $1 "-=$3D3++,.<@`,<@+( 
~-=0@+,J<@+)M&t;gP-=h-=&7@W+"A
,<LV,+<L,<@&,<L`,I<L`,<L`D"g?F@g?F@g?F@#g?F@(g?F@)@p`xp#`#"%(," ?gRp
egRp
fgRp
hgRp
igRp
i[JX"P[JX"P[JX"XgRp
jE2XM(gfhj(ERRCOUNTgfh
JHANSWERFINDgfh
JzWHICHCONTROLgfh
J.ORDERLOOP[JX"pgRp
k[JX"p[JX#gRp
qgRp
rgRp
r[JX#8[JX#hgRp
r[JX#h[JX#h[JX#pgRp
sgRp 
sgRp!
t[JX$[JX$[JX$ gRp"
u[JX$ [JX$HgRp$
xgRp%
ygRp*
y[JX% [JX%0gRp+
y[JX%HgRp,
zgRp.
zgRp/
{gRp1
{(4,2<L`,," gRp2
|gRp4
| Q6<L+,<@d*+=G",:vS:+ -=h-=:,I"<@ $ "-=$3D+,<@d8 $? "-=$3DA+,I

<@+D+LG>vLWY2Mi--=h-=I,.<@`+"+RgR~@-=h-=P-=	D"g?F@<g?F@=g?F@@g?F@Eg?F@Kg?F@Lg?F@Qg?F@Rg?F@S@~$@7(hH(H" ?gRp5
}gRp7
}[JX&p[JX&p[JX&xgRp7
gRpS
E2XQ(gfhjFCONTROLCHARgfhjjLANGUAGEgfhj5CARRIAGERETURNgfhj7LINEFEEDgfhj(TABCHARgfhjzBLANKgfhjHEXCLAMATIONgfhjVANSWERLENGTHgfhjCSAVEANLENgfhjZPOSgfhj!POS2gfhjPWPOSgfhjYCHARVALUEgfhjSDOUBLEQUOTEgfhjiA T" ?gfhjkZgfhj'FORMFEEDgfhjDOTgfhjYQCOUNTgfhj/TEXCOUNTgfhjXSEMICOLONgfhjcCOLONgfhjlEQUALSIGNgfhj$ERRLINESgfhjLABELCOUNTgfhjLINECOUNTgfhjMLEFTSQUAREgfhjPRIGHTSQUAREgfhj%SWITCHCOUNTgfhjSWITCHNUMBERgfhjQRIGHTMARGINgfhjqLCAAgfhjtLCAEgfhjvLCOEgfhj{UCAAgfhj~UCAEgfhjUCOEgfhjyLCEgfhjUCEgfh
"CONTROLSTARTgfh
hWORDgfh
FLESSONNAMEgfh
TCOPYRIGHTgfh
^TEACHERgfh
DANSWERgfh
rFIRSTRIGHTgfh
zPREVIOUSLABgfh
,NEXTLESSONgfh T" ?
fTEMPgfh
QUESTIONgfh
LABgfh
MAINLABgfh
RSAMEgfh
/INFILEgfh
SWITCHWORDgfh
.LINENUMBERgfh.
SWITCHNAMEgfhj	EXTRAgfhj
EMPTYgfhjmORDERgfhjRIGHTgfhj
NEUTRALgfhj'ALLNEUTRALgfhjOPENEDgfhjPUTgfhjpSGNOSISgfhjLNOCONTROLCgfhj*TRANSFERLESSONgfhj)JUSTIFYgfhjCONTROLINLINEgfhj"BELLgfhj3NAMEgfhjwLOCKgfhj=DISKgfhjLACKgfhjZEROPRINTEDgfhjbKEEPgfhjnRIGHTFOUNDgfhjSKIPgfhjLINENUMBEREDgfh(j SWITCHVALgfh(j$IFSETgfh(jiIFVALgfh T@@F`RS8 `!u=" ?<JWMAKEMAINLABgfh<J.GETCONTROLSTARTgfh<JzUPCASEgfh<JmPASTOPERATIONgfh>
?GETWORDgfh<JDELETgfh<JERRMESSgfh<JIGETLINEgfh<J	ALGLINgfh<JTEXTLINEgfh<J:TEXTLINESgfh<J
SHORTALGOLgfh<JGOANYWHERECOMMANDSgfh<JPUTAWAYgfh<J7UNKNOWNMESSAGEgfh<JHZEROPRINTgfh<JRCHECKPRECEDENCEgfh<J@PUTVARIABLESgfh<JbPUTPROCEDURESgfh<J
JSTARTgfh
JQSTOPgfh
JLEAVEFORgfh
J.STARTLOOPgfh
J!WHICHCONTROLgfh T+hHX=3340: A command@wx$)z`TpUUXVzXV(0W(8W" 	
J<CHECKLINEgfh
J(FINCLOSEgfh
JKCONTROLLINEgRpT
E2XQ(- Z line is required at this point.  As a result,[N]******  this line up to next command line will be ignored.Hf63330: Command is out of place here.  As a result,[N]****** this line up to next command line will be ignored.Hr	...and is ready.[N]Hu@[N]END;[N]Hwextratest;[N]HywrongmessageH|rightmessage @H~GOTO HIF NOT here(endofline) THEN GOTO HLACKH") TH@~'e&hq%Xt!Pv @x  {`}887 @EN GOTO Hpos:= 1;[N]IF NOT anywhere("H
here("HanywHIF8NOTHpos:=1;[N]Hpos:= 1;H13200: Expected answers must precede first [N]****** empty answer pattern. Command will be ignored.H!SAMEH# THEN[N]H%IF lasterrors =H'IF ihaveblanked THEN rest ore;[N]H,[N]next:[N]H.Write(right[[random]]);[N]Newline;[N]GOTO SAM@EQZXAAB;[N]H5giveanswer;[N]H8[N]simulate:[N]H:skip:= FALSE;[N]GOTO simu@xhP
back:= FALSE;[N]GOTO HE@ IF back THEN[N]HHstop:= FALSE;[N]GOTO endoflesson;[N]END;[N]HMIF stop THEN[N]HPtryagain;[N]HR	BEGIN[2N]repeat:[N]HUIF FALSE THEN[N] HXfirsttry:= TRUE;[N]lastrights:= lasterrors:= 0;[N]H^BEGIN[N]INTEGER subblock;[N]Hb
[4N]COMMENT: QuestionHfQZXAAAHhBEGIN[N]pause;[ N]Hk[4N]COMMENT: TextHn[2N]PROCEDURE Hp@xX>ADpGxL`OHQ0TWh]zxay(ewPguXjpXml o3 p)2727: Ignore this message if you meant to omit[N]****** teacher's name and address.Hz.SRT<155> files to receive teacher reports.H.DTA<155> and H@ ****** H2651: Ignore this message if you have createdH	/2545: Switch value neither 'TRUE' nor 'FALSE'.[N]****** The effect of this error is undefined.HFALSEHTRUEH+2538: More than 9 switches not allowed.[N]THIS switch w ill replace the old number nine.H!2536: This switch is@xiyhP~h gpd@chc a8`x 6 # doubly defined.H&#2530: No switchname in %SWITCH command.[N]****** Line w@ill be ignored.H. 2501: Unknown language.[N]****** GNOSIS will default to English.. H5SWEDISHH7ENGLISHH9;2482:  The GNOLIB.REL file must reside in 'SYS:'. [N]****** Load as follows: '.LOAD <lessonname>.ALG, SYS:GNOLIB.REL'.HF;2456:  The GNOLIB.REL file must reside in 'SYS:'. [N]****** Load as follows: '.LOAD <lessonname>.ALG, SYS:GNOLIB.REL'.HS=2435: A command line is required at this point.  A@_h%]P-]4\@6[8Y`EX R8 Xs a result,[N]******  this line up to next command line will be ignored.Ha 2430: You are not using '%' as a command indicator.Hg%Hi	" has begu n...[2N]Hl[2N]Translation of the lesson "HpOHrNHs@-->[B]Hu&[2N]Enter lesson name with extension, or push RETURN to exit from@ GNOSIS.[N]H~[2N]Do NOT type ahead while running the GNOSIS translator.[N] HCopyright (c) 1978 by Jacob Palme and Walter ManerH
GNOSISuVersionk2i(Ju@ne,1978)[N]H@pWP`WfP0hPkMPoLxqEHrE0tB}AhAP@P5" TTYHEH@H#H$HeH `H{H}HZH]]H!"H" !H$=H%:H'GH(LH*AH+ .H-GOTO next;[N]H/GOTO repeat;[N]H2=2187: A command line is required at this point.  As a result,[N]******  this line up to next command line will@  be ignored.H?GOTO SAMEHA#2177: No previous comment available.[N]*@@?h?@?>p>H> =x=9`9 8h!7H#7 $L &2@'<p)KH*p&`,&@.$@1#0>#@/  E***** Command will be ignored.HIWrite("!");[N]HL%IF firstname # "" THEN[N]BEGIN[N]Write(", ");[N]Write(firstname);[N]END;[N]HTWrite("[[2N]]Have a nice day");[N]HYOpenfile (1,"");[N]Openfile (3,"H]Selectinput(1);[N]Selectoutput(3);[N]Transfile;[N]Hc.SRT", %155);[N]HfClosefile(1);[N]HiOpenfile (1,"");[N]Openfile (2,"Hn Selectinput(1);[N]Breakoutput;[N]Selectoutput(2);[N]Transfile;[N]@x!HH!0K!S  X \ Pb(e`hHm6( tHu.DTA", %155);[N]HxOpenfile(1,"H{""...[[N]]");[N] H~
GOTO mess;[N]END;[N]H	
Write("MEDDELANDE: ");[N]H
Write("MESSAGE:U");[N]HHEND;[N]HIFbackTHEN[N]BEGIN[N]back:=NFALSE;[N]GOTOHWrite(prompt);[N]Breakoutput;[N]getline;[N]H![N]mess:[N]H$$Write("SlutamedaattHtrycka en extra g}ng p} RETURN-knappen.@t@wXz(}pPP@Hp X#5 *[[2N]]");[N]H,%Write("Om Du har n}got meddelande till l{raren, s} skriv det@ nu.[[N]]");[N]H5(Write("line at a time.  Finish with an EXTRA push on the RETURN k@ey.[[2N]]");[N]H>(Write("If you have any message for the teacher, then type it now,@ one[[N]]");[N]HG)Write(" totalt av[[NT]]-");[N]Print(qcount,3);[N]Write(" givna fr}gor.[[2N]]");[N]HP6Write(" total right out of a total of[[NT]]-");[N]Print(qcou@nt,3);[N]Write(" questions attempted.[[2N]]");[N]H\Print(latescore,3);[N]@|@+4p=hF0O[8(@H`Write(" f`rstasvar och[[NT]]-");[N]HdWrite(" right answers on first tries and[[NT]]-");[N]Hk4Print(latepercent,2,1);[N]Write("%  (");[N]Print(percen@t,2,1);[N]Write("%)[[NT]]-");[N]Print(score,3);[N]Hv
P6igs(not"theHlistingHDettasblad[kommeriatt[skrivas|utp} radskrivaren.H  [[2N]]Denna lektion har producerat ett rapportblad till l{raren.H' Write("This sheet will be printed on the line printer.[[N]]");[N]H.(Write("[[2N]]This lesson has produced a report sheet for the teacher.[[N]]");[N]H7$Write(" fr}gor gav Du r{t@t svar f`rsta g}ngen Du fick fr}gan.[[N]]");[N]H@Write(" g}nger.[[N]]P}");[N]Print(score,3);[N]HF"Write(" fr}gor, [[N]]och Du gav r{tt svar");[N]Print(latesco@ P&8-X6@?(E8 @Lre,3);[N]HN"" {r slut.[[N]]Du har svarat p}");[N]Print(qcount,3);[N]HUWrite("Lektion ""HX%Write(" questions your answer was right on your very first try.[[N]]");[N]H`Write(" times.[[N]]On");[N]Print(score,3);[N]Hf(Write(" questions,[[N]]and you gave the right answer");[N]Print(latescore,3);[N]Ho"" yo u answered");[N]Print(qcount,3);[N]Ht
GOTOstart;[N]END;[N]H!Write("utanm}stebacka(till lektionens}@~M`T(Waxe`n0splexitet[[N]]");[N]H 'Write("from this point.  It is going all the way back to the start.[[N]]");[N]H )Write("NOTE:  The backing procedure is unable to go back just ONE step [[N]]");[N]H #:[N]H %
IFFALSE THEN[N]BEGIN[N]H (ZQXAAAH *END of block started with makeblock INTEGER;[4N]H 0 BEGIN[N]INTEGER blockmaker;[N]H 4[N]start:[N]H 7page;[2N]H 9 @@
X 
@ "( "
x $C '	X )x /` 3 6p 86   9 `ver en fr}ga eller[[NT]]- g} tillbaka i lektionen.[[2N]]");[N]H @&Write("D{r efter kan du[[NT]]- avsluta hela lektionen eller[[NT]]- bara hoppaH I(Write("[[NT]](3) 'BACK' to return to the previous question (or text).[[2N]]");[N]H S&Write("[[NT]](2) 'SKIP' to move on to the next question (or text);; or");[N]H \Write("[[NT]](1) 'STOP' to end the lesson immediately;;");[N]H cWrite("GNOSIS will t hen explain how you can type");[N]H j#Write(" p} Din terminal och sedan trycka p} R@|H ? Hx R` [H b i8  nETURN-knappen.[[N]]");[N]H r$Write(" on your terminal and then pushing the RETURN button.[[2N]]");[N]H z""");[N]H |+Write("Du kan avbryta lektionen n{r som helst genom att skriva[[N]]det enda tecknet ""H!2Write("[[N]]IMPORTANT: You can interrupt the lesson at any time by typing the[[N]]single character ""H!Den l{rare som skrev den h{r lektionen {r...H!The author of this lesson is... @H!F`rsvarets forskningsanstalt, Stockholm.H!!f`r datorst`dd undervisning(DU) fr}nH!&Write@xP q  y  {h! !h!h!P! 8!%6 @ !&("[[N]]producerad av GNOSIS-systemet ");[N]H!,,");[N]H!.'");[N] H!0Write("[[2N]]Detta {r lektionen 'H!4,Write("Stockholm, Sweden, and the Old Dominion University Research Foundation.[[N]]");[N]H!>,Write("instruction  (CAI)  from  the  Research  Institute  of National Defense[[N]]");[N]H!H-Write("This lesson was  produced  by  the  GNOSIS  system  for  computer  aided[[N]]");[N]H!R
Write@(".[[2N]]");[N]H!UWrite(",[[N]]H!XWrite("'");[N]H!Z
Write(lessonnam@~)!+0!-!/H!30!=!G!Qp!T}x!W}`!Y7N@ !\e);[N]H!^Write("[[2N]]WelcomeDtoNtheRlesson]'");[N]H!c)Write("[[N]]SP$RNINGAVOV#NTADERSVAR:[[N]]");[N]Breakoutput;[N]Selectoutput(0);[N]H!m]);[N]H"Write("STUDENT'S NAME: ");[N]H"[[2N]]");[N]H"Write("[[P]]TEACHER REPORT FOR THE LESSON: @x}H!]}!b|@!l{`!p{(!uh!~z`"|"
z"6("H"Openfile(3,tempfile2,%057);[N]H"Openfile(2,tempfile1,%057);[N]H"tempfile2.[[pos+4]]:="T".[[1]];[N]H"atempfile2.[[pos+3]]:=r"R".[[1]];[N]H"$tempfile2.[[pos+2]]:="S".[[1]];[N]H")tempfile1.[[pos+4]]:=O"A".[[1]];[N]H"-tempfile1.[[pos+3]]:=N"T".[[1]];[N]H"2tempfile1.[[pos+2]]:=i"D".[[1]];[N]H"6ELSE.pos:="posN-2;[N]H":tempfile1.[[pos+1]]:=ptempfile2.[[pos+1]]:=m".".[[1]][N]H"AIFfirstname.[[Length(firstname)]]a# ".".[[1]]oTHEN)H"G5FORp@py"y"xh"xP"x8"#xa"(x",wp"1wX"5w@"9w("@w"F6"Hos:= 1 STEP 1 UNTIL Length(firstname)@DOtempfile1.[[pos]]:= tempfile2.[[pos]]:= firstname.[[pos]];[N]H"Stempfile1:= tempfile2:= Newstring(Length(firstname)+5,7);[N] H"ZWrite(firstname);[N]Write("!");[N]H"firstname:=Copy(answer,1,pos-1);[N] @H"cBEGIN[N]pos:=pos+1;[N]GOTO nameloop;[N]H"h
Selectoutput(0);[2N]H#qputmessage;[N]H#sL{raren {r tacksam om Du s{nder denna lista till honom.H#zPlease send this listing @ to the teacher.H#stopkc;[N]H$Input(1,"DSK");[N]Output(2,"DSK");[N]Output(3@,"DSK");[N]H$Output(2,"LPT");[N]Selectoutput(2);[N]H$
[N]Input(0,"TTY@");[N]H$
Nej, inte riktigt s}.H$
Det d{r {r inte riktigt.H$Tyv{rr inte r{tt.H$Nej, den h{r g}ngen svarade Du fel.@|op#mP#po(#rnp#yy@#~mx$mP$m$
l $l$kp$kX$k@$5(  $"H$#Det {r inte r{tt!H$&
Ditt svar var felaktigt.H$)	Du valde fel svar.H$,Nej!H$.Fel!H$/  Just det. Bara man anstr{nger sig lite s} g}r det bra.H$6  Bra! Forts{tt p} det s{ttet.H$:  #ntligen r{tt!  H$=	  Du g`r framsteg.H$@  S}ja, till slut g}r det bra!H$D  Javisst! Nu klarar Du det h{r.H$I  Nu har Du fattat det hela!H$M
  B{ttre och b{ttre!H$P
  Nu b`rjar Du fatta!H$S  Just det - Du klarar dig b{t@`k($"k$%jx$(j`$+jH$-j0$.j$5j$9ih$<iP$?i8$Ci $Hi$Lhp$OhX$R4 A$Vtre nu.H$XBra!H$Z
Du svarade r{tt igen.H$]Korrekt.H$_ R{tt!H$aPrecis r{tt.H$cUtm{rkt!H$eJavisst!H$gMycket bra.H$jBra gjort!H$l
No, you missed this one.H$oYou're mistaken .H$r
Thatywasn'twcorrect.H$uSorry.H$wrrect!H$}Youranswerwas wrong.H%
h($Wh$Ygx$\g`$^gH$`g0$bg$dg$ffh$if0$kf$nf$qeh$teP$ve8$ze $|e%dp%xdX%d@%1 %
ehang of it now.H%
  Keep up the good work!H%  Aren't you glad yo@@u kept trying?H%
  You're making progress.H%  There is hope for you after all!H%
  I knew you could do it.H% 
  Yo've got the idea now!H%$	  You@@'re improving!H%'
  Now you're catching on!H%*  You're doing better!H%.@ OK!H%/Excellent!H%1That's it!H%3Well done!H%5Right! H%7Exactly right!H%:Bravo@xd(%
d%cx%c`%cH%c0%c%#c%&bh%)h@%-b8%.b %0b%2ap%4aX%6a@%93" %:!H%<Sure!H%=Very good.H%?Good for you!H%B]]:= " A H%D[[H%EwrongH%GrightatlastH%IrightH%Klessonname:= "H%M".[[1]];[N]H%Pcontrolstart:= "H%Srandno:= 1;[N]nopause:= skip:= message:= FALSE;[N]H%Y!endofline:= Newstring(1,7);[N]endofline.[[1]]:= carriagereturn;[N]H%a
char:= Newstring(1,7);[N]H%d answer.[[134]]:= carriagereturn;[N]answer.[[135]]:= linefeed;[N]H%l0answer:= Newstr@xa(%;a%<`x%>_x%A98%C^8%D]X%F\x%H[%JZp%LZ@%OZ(%RZ%XYx%`Y`%cYH%k3 %ming(135,7);[N]answercopy:= Copy(" ");[N]firstname:= "";[N]prompt:= Copy("-->");[N]  H%wlcaa:= "}".[[1]];[N]lcae:= "{".[[1]];[N]lcoe:= "`".[[1]];[N]H%~ucaa:= "$"@.[[1]];[N]ucae:= "#".[[1]];[N]ucoe:= "@".[[1]];[N]H& blank:= " ".[[1]];uparrow:= "^ ".[[1]];[N]controlg:="".[[1]];[N]H&
/lastrights:= lastscorecount:= lastscorekount:@= lastlatescorecount:= lastlatescorekount:= 0;[N]H&:[4N]lasterrors:= latescore:= score:= lastqcount:= lastqkount:= qcount:= 0;[N]carriagereturn:= 1@pY0%vY%}Xh&XP&X8&8 & 3;[N]linefeed:= 10;[N]H&$Write("vilket skulle ha varit acceptabelt:[2N]-->"@);[N]H&*Write(" h{r {r ett svar[[N]]");[N]H&/ Newline;[N]personalize("F`r de n h{ndelse du {r intresserad,");[N]H&6 Write(" GNOSIS will simulate an acceptable answer:[[2N]]-->");[N]H&>Newline;[N]personalize("Just for the record,");[N]H&D@%RIGHT command for the preceding %QUESTION;[N]H&JThe answer given will always b e the one following the FIRST[N]H&Qthe question or who repeatedly fails to give a right answer.[N]H&Y@xW@&#W(&)W&.VX&5V@&=Ux&CU`&IUH&PU0&X6 &X'COMMENT:  'Giveanswer' displays a right answer to a student who is skipping[N]  H&b
PROCEDUREgiveanswer;[N]H&e[N]Newline;[N]Newline;[N]END;[2N]H&j,IFulasterrors >3THENwWrite("[[N]]Eller...avbryt2lektionenrgenom attHskrivatsymbolenY""aH&t,IFilasterrors =o3eTHENtWrite("[[N]]Ddushar eliminerat'fleram`jligheter(redan.")gELSE[N]H&~personalize("F`rs`knigen.");[N]H'"".");[N]H'*IFlasterrorse>t4oTHENWrite("[[N]]Or...interrupththeulessonfbyitypingHthe7symbolh""H'3@`U&aU&dT8&iTy&sT&}Th'RX'R@'N]H'>which varies according to circumstances.  In %NEUT@RAL mode,[N]H'F@R('R'#QH'(Q0'/Q'6Q'=Ph'E7 'E 'Tryagain' will output to such students a 'try again' message[N]H'M!answer, or an incomplete answer are usually repeated by GNOSIS.[N]H'U"COMMENT:  Questions output to students who give no answer, a wrong[N]H']PROCEDURE tryagain;[N] H'aend noanswer;[2N]H'd"".[[N]]");[N]H'fWrite("Om Du vill g} ut ur fr}gan, s} skriv det enda tecknet ""H'npersonalize("??? Du gav inget svar alls.");[N]Newline;[N]H'u&Write("If you want to interrupt the lesson, then type the single character @`PP'LP8'TP '\P'`Op'cO@'eO('mNp't7"'|""H'~personalize("??? You gave no answer at all.");[N]Newline;[N]H(PROCEDURE noanswer;[N]H(	Newline;[N]END;[2N]H(L{rarens namn och adress {r:H(vilken elev som s{nde den till honom.H(Du kan s{nda den anonymt - l{raren beh`ver inte vetaH(Han beh`ver den f`r att kunna g`ra lektionen b{ttre.H(!The name and address of the teacher is:H(&not know which student se@nt it to him.H(+You can send it anonymously - the teacher willH(1He needs the li@@NX'}N(Mx(MH(
M(Lp(LH(L( K`(%K8(*K(06  (3sting to improve the lesson.H(7was supplied with %TEACHER command);[N]H(<to the teacher -- unless no teacher's name and address[N]H(C'Putmessage' wi@ll tell the student to send hardcopy reports [N]H(J"COMMENT: If no disk files are being generated for teacher reports,[N]H(R
PROCEDURE putmessage;[N]H(V	Selec@toutput(0);[N]H(Y	Selectoutput(3);[N]H(\!FOR i:= 1 STEP 1 UNTIL answerlength  DO Outsymbol(answer.[[i]]);[N]H(dWrite(question);[N]Write(": ");[N]H(h	@~JH(6J0(;J(BJ(IIh(Q h(UH(XHH([H0(ch(g6 @(hSelectoutput(2);[N]H(kBreakoutput;[N]H(n
BEGIN[N]INTEGER i;[N]H(qVALUE question;[N]STRING question;[N]H(v!lesson. 'Putaway' writes the unexpe cted answers in these files;[N]H(~)<lessonname>.DTA and <lessonname>.SRT, which the teacher can use to improve the[N]H)#then unexpected student answers are written into a pair of reports,[N]H) COMMENT: If the lesson contained a report-generati@ng command,[N]H)PROCEDURE putaway(question);[N]H)END;[2n]H))@~(jFp(mFX(pF@(uF((}F)Ex)E`)E8)E )6 )lastlatepercent:= IF lastqkount = 0 or x = 0 THEN 0.0 ELSE 100.0 * x/lastqkount;[N] H)'6x:= latescore - lastlatescorekount;[N]lastlatescorekount:= latescore;[N]lastqkount:= qcount - lastqkount;[N]H)3or afterward;[N]H)6*since this PROCEDURE was last called whether student was correct on the first try[N]H)@*COMMENT: 'Lastl atepercent' returns the percentage of questions answered correctly[N]H)IREAL PROCEDURE lastlatepercent;[N]H)N'lastpercent:= IF lastqcount = 0 or x = 0 THEN 0.0 ELSE @|E)&DX)2D@)5D()?D)HC`)M9 )S100.0 * x/lastqcount;[N]H)W.x:= score - lastscorekount;[N]lastscorekount:= score;[N]lastqcount:= qcount - lastqcount;[N]H)a
BEGIN[N]INTEGER x;[N]H)eon the very first try since this PROCEDURE was last called;[N]H)l(COMMENT: 'Lastpercent' returns the percentage of questions answered correctly[N]H)uREAL PROCEDURE @lastpercent;[N]H)y1BEGIN[N]lastlatescore:= latescore - lastlatescorecount;[N]lastlat escorecount:= latescore[N]END;[2N]H*very first try or afterward;[N]H*	%since this PROCEDURE was last @`CH)VDp)`C)dC)kBh)tBP)xB8*B *7 @*
calledwhetherstudentwascorrectonthe[N]H*%COMMENT:'Lastlatescore'returnsnumberofquestionsansweredcorrectly[N]H*INTEGERPROCEDURElastlatescore;[N]H*'BEGIN[N]lastscore:=score-lastscorecount;[N]lastscorecount:=score[N]END;[2N]H*'veryfirsttrysincethisPROCEDUREwaslastcalled;[N]H*.&COMMENT:'Lastscore'returnsnumberofquestionsansweredcorrectlyonthe[N]H*7INTEGERPROCEDURElastscore;[N]H*;,latepercent:=IFqcount=0orlatescore=0THEN0.0ELSE100.0*lat@B*Ap*AX*A@*&A(*-A*6@x*:7*Bescore/qcount;[2N]H*Estudentwascorrectonthefirsttryorafterward;[N]H*Lbythestudentsincethestartofthelessonwhether[N]H*R(COMMENT:'Latepercent'returnsthepercentageofquestionsansweredcorrectly[N]H*[REALPROCEDURE@latepercent;[N]H*&percent:=IFqcount=0orscore=0THEN0.0ELSE100.0*score/@qcount;[2N]H*h#bythestudentonhisveryfirsttrysincethestartofthelesson;[N]H*p&COMMENT:'Percent'returnsthepercentageofquestionsansweredcorrectly[N]H*y@`7X,7@,#7(,+7,46x,;6`,B6H,I60,P7 ,Rver she has finished examining the displayed material.[N]H,Yin the display @of text to the student, and she can continue[N]H,` a limited screen size. The 'pa use' PROCEDURE produces a pause[N]H,hat a time. Another reason is that display ter@minals have[N]H,oOne reason for this is that it is easier to read a little[N]H,v!COMMENT: Lesson text is given to the student in small portions.[N]H,~	PROCE@ DURE pause;[N]H-personalize(wrong[[random]]);[N]Newline;[N]H-BEGIN[N]qcount:= qco@`6,X6,5h,g5P,n58,u5 ,}4p-4@-7  -unt+1;[N]firsttry:= FALSE;[N]H-
lasterrors:=slasterrors+1;[N]H-providelsomecvariationNinlthe;conversation;[N]H-areused-tochoosebetweenatendifferentmessagesin0order[N]H-and-thelesson6statisticseare[updated.t Randomtnumbers[N]H-%has)madeanerroneousFanswer.rHesistold aboutNthis,[N]H-+COMME@NT:S'Wrongmessage'risncalledrwhen[arstudent[N]H-2errors > 1 THEN Write(rightatlast[[random]]);[N]END;[N]H-Wpersonalize(right[[random]]);[N]H-["BEGIN[N]score:= score+1;[N]qcount:= qcount+1;[N]firsttry:= FALSE;[N]  H-c	IF firsttry THEN[N]H-flastrights:= lastrights+1;[N]H-jsome variation to the conversation;[N]H-oused to choose between ten different messages to g@`1p-E1@-I1(-V1-Z4(-b0`-e00-i0-n7 @-tive[N]H-vonly after previous fruitless attempts.  Random numbers are[N] H-~depending on whether he succeeds on the fist try or[N]H.score is updated. The message to the student is different[N]H.made a correct answer. He is told about this, and the[N]H.COMMENT: 'Rightmessage' is called when a student has[N] H.
/r./..p..X..@.&6H.+i]]);i:=uit+e1;[N]END;[N]H./ELSEiBEGIN[N]INTEGERei,ej;[N]i:=l1;[N]j:=Length(m@essage);[N]H.6BEGIN[N]IFofirstname=""vORdrandomo<y8NTHENWrite(message)[N]'H.>usesrthenstudent'sifirstnameinsconv@ersational[N]H.Z"PROCEDUREapersonalize(message);[N]VALUEmessage;[N]STRINGmessage@.(....5-x.=-`.A-H.I-0.Q-.Y8"@.a;[N]H.b
BEGIN[N]ihaveblanked:= FALSE;[N]H/it to other target patterns. This restoration is done here;[N]H/!answer, th@@,h.a,P.e, .i,.n+p.u+X.}S8/+(/+/*x/*`/6 /e original response must be restored before comparing[N]H/ (COMMENT: Since 'anywhere' substitutes blanks for matched parts of the student[N]H/)
PROCEDURE restore;[N]H/,
anywhere:=EFALSE;[N]H//BEGIN[N]pos:=nextpos;[N]GOTO]blankline;[N]H/5[N]nofit:[N]IFsanswercopy.[[pos]]#fcarriagereturnTHEN[N]H/<anywhere:=tihaveblanked:=HTRUE;[N]GOTOIout;[N]H/BBEGIN[N]answercopy.[[cpos]]:=blank ;[N]H/GFOR cpos:= pos-Length(comp) STEP 1 UNTIL pos-1 DO[N]H/M	nextpos:= @x*H/*0/(*/+)P/.)8/4) /;(p/A(X/F'H/L6 @/Npos+1;[N]H/PBEGIN[N]INTEGER cpos, nextpos;[N]H/U'%NOEXTRA mode, his answer will be wrong if any non-blank characters remain;[N]H/^any non-blank characters in the student answer. In the[N]H/e%NOEXTRA mode) to determine whether there are[N]H/kthe matched strings. This allows the program (e.g., in the[N]H/r'Anywhere' will substitute blanks for all characters in[N]H/ythe %EXTRA mode and in the %NOEXTRA %NOORDER mode.[N]H0unmatched strings will be bypassed. 'Any@`&h/O&P/T&8/]& /d&/j%p/q%X/x%@/8 0where' is used in[N]H0 found anywhere in the student answer after 'pos'.  Blanks and[N]H0"COMMENT: 'Anywhere' determines whether the argument string can be [N] H0 BOOLEAN PROCEDURE anywhere(comp);[N]VALUE comp;[N]STRING comp;[N]H0	[N]ou@t:[N]END;[2N]H0![N]nofit:[N]here:= FALSE;[N]H0%
BEGIN[N]INTEGER cpos;[N]H0Gfor answers matched in the %NOEXTRA mode;[N]H0Melse, may precede the matching word. 'Here' is mostly used[N]H0T beginning at 'p@os' in the student answer. Blanks, but nothing[N]H0\#COMMENT: 'Here' determines whether the argument string can be found[N]H0dBOOLEAN PROCEDURE here(comp);[N]VALUE comp;[N]STRING comp;[N]H0k
END;[2N]exit:[N]END;[2N]H0o'Write("Du vill inte @x'0<"X0C"@0F"(0L"0S!x0[!`0c!H0j!0n7 0qavbryta nu. Forts{tt d} med ditt ordinarie svar.[[N]]");[N]H0xWrite("to the P@REVIOUS '-->' or 'RETURN' prompt...[[N]]");[N]H0Write("Please continue, then,  giving your response[[N]]");[N]H1??? Backing not allowed in this lesson.H1
N]N]back:= TRUE;[N]H1Lektionen g}r tillbaka.H1	Lesson is backing.H1BACKAH1BACKH1
END[N]ELSE[N]BEGIN[N]H1???@H1???0Skippingnotallowedinthis lesson.H1#811"h1&5 @1'Fr}gan skippad.H1*Question skipped.H1-BEGIN[N]Write("H1/") THEN[N]H11SKIPPAH13SKIPH15
pos:= 1;[N]IF anywhere("H18
GOTO @exit;[N]END;[N]H1;Write("Lektionen avbr`t.[[N]]");[N]H1@Write("Lesson aborte d.");[N]H1Dstop:= TRUE;[N]H1F	") THEN[N]BEGIN[N]H1ISTOPPH1KSTOPH1LBEGIN[N]quit:= FALSE;[N]IF anywhere("H1QIF quit THEN[N]H1T@END;[N]END;[N]H1Vquit:= TRUE;[N]GOTO again;[N]H1ZWrite(prompt);[@	01)P1,81.@1012814@17(1:p1?@1C(1E1HX1J(1K1P;1S`1UH1Y2 1\N]Breakoutput;[N]H1_Outsymbol(controlg);[N]H1bWrite("""FORTS#TT""  om Du vill forts{tta.[[N]]");[N]H1i*Write("""BACKA"" om Du vill g} tillbaka till en tidigare del av lektionen,[[N]]");[N]H1rWrite("""SKIPPA"" om Du vill skippa denna fr}ga,[[N]]");[N]H1y"BEGIN[N]Write("Svara ""STOPP"" om Du vill l{mna lektionen,[[N]]");[N]H2Write("or 'CONTINUE'.[[N]]");[N]H2Write(", 'SKIP', 'BACK', ");[N]H2
BEGIN[N]Write("AnswerH'STOP'");[N]@`H1^1ap1hH1q 1xh2P2(2	7(2H2BEGIN[N]IF answer.[[1]] = controlstart THEN[N]H2
ihaveblanked:= FALSE;[N]H2Delete(answercopy);[N]answercopy:= Copy(answer,1,i);[N]H2#IF answerlength < 0 THEN answerlength:= 0;[N]H2(,[N]out:[N]Insymbol(t);[N]i:= i+1;[N]answer.[[i]]:= t;[N]pos:= 1;[N]answerlength:= i-2;[N] H22GOTO again;[N]H25END;[N]H27IF t = carriagereturn THEN GOTO out ;[N]H2<
answer.[[i]]:= t;[N]H2?IF t = lcoe THEN t:= ucoe;[N]H2CIF t = lcae THE@px2`22022"2'!21P24826 2;2>p2B5  2DN t:= ucae ELSE[N]H2GIF t = lcaa THEN t:= ucaa ELSE[N]H2L ELSE[N] @H2N;[N]H2OIF t >= 97 AND t <= 122 THEN t:= t-32H2TCOMMENT: Lower case transform;[N]H2YBEGIN[N]Insymbol(t);[N]H2\[N]again:[N]FOR i:= 1 STEP 1 UNTIL 132 DO[N]H2bBreakoutput;[N]quit:= FALSE;[N]H2fBEGIN[N]INTEGER s, t, i;[N]BOOLEAN quit;[N]H2lto interrupt the flow of the lesson;[N]H2qto see if the student typed '%', indicating that he wanted[N]H2x#dumping it@pX2F@2K X2MX2N@2S(2X2[x2a`2eH2k02p2w5  2y in the STRING 'answer'. Column one of the line is checked[N]H3!COMMENT: 'Getline' reads in a line of text input by the student,[N]H3	
PROCEDURE getline;[N]H3
FORWARD BOOLEAN PROCEDURE anywhere;[2N]H3FORWARD PROCEDURE putaway;[N]H3EXTERNAL PROCEDURE pub, nolpt, run, r;[2N]H3EXTERNAL PROCEDURE s topkc;[2N]H3STRING ARRAY right, rightatlast, wrong[[0:9]];[2N]H3%1STRING answer, answercopy, char, endofline, lessonname, firstname, tempfile1, tempfile2, prompt@`3
h3p3X3$7"3.;[N]H30INTEGER lastrights;[N]H33 INTEGER randno, answerlength, controlstart, controlg, uparrow;[N]H3;INTEGER lcaa, lcae, lcoe, ucaa, ucae, ucoe;[N] H3A)INTEGER lastscorecount, lastlatescorecount, lastscorekount, lastlatescorekount;[N]H3J7INTEGER lasterrors, score, latescore, qcount, lastqcount, lastqkount, carri agereturn, linefeed, pos, blank;[N]H3V#BOOLEAN firsttry, ihaveblanked, nopause, skip, back, stop, message;[N]H3^;H3`COMMENT: This lesson was written by[N] H3e@x@3/(323:
`3@
H3I
03U7p3]	X3g`(3d6"A3e";[N]H3fnCOMMENT:;ThisisHthelessonr"H3jBEGINH3l71161:.[Command[isoutofplacethere.doAstauresult,[N]******nthis.line]up;to]next4commandElineNwillbeign@ored.H3xnoanswer;[N]GOTOrepeat;[N]END;[N]H3|=0974: A command line is required at@|P3e83iP3kyh3wy83{x83x4w`4p4~h4s 4r@4oh46 4 this point.  As a result,[N]******  this line up to next command line will be ignored.H4$-0943: Semicolon omitted at end of '%GOTO' command.[N]****** GNOSIS will sup ply one for you.H4/ H40pause;[N]H42Newline;[N]H45@"[[N]]");[N]H47Write("H49H4:80527:  Unrecognized command line found.  As a result,[N]****** this line up to next command line will be ignored.H4G AIFNH4HIFEH4JIF H4KFINH4MNEXH4NNOCH4P@`jp4#8@4.h4/41h44[X468486X4964F5h4G584I"x4JYx4LY 4M^ 4O4" 4PSWIH4QSGNH4SLANH4TCOPH4VLOCH4WDISH4Y DSKH4ZBELH4\KEEH4]NAMH4TEAH4`ENDH4b QENH4cALGH4eINIH4fPROH4hVARH4iHELH4k NOJH4lJUSH4nTEXH4oGOTH4qGO H4rLACH4t NEUH4uQUEH4wNOEH4xEXTH4zNOOH4{ORDH4}SAMH4~WROH5RIGH50392: %IFEND on non-@]h4P[(4Ri@4Se(4Ug4VfP4Xe`4Ydp4[f4\jX4^$(4tP4arP4br 4do4elX4gp(4hdp4j`d84ku4mg@4ng4p
04qx4sxX4te`4ve(4wfP4yf4z"04|@4}	H405+ 5active switch -- will have no effect.H5&0371: Unknown switchname in %IF-class command.[N]****** Line will be ignored.H5$0368: No switchname in %IF-class command.[N]****** Line will be ignored.H5IFH5$-------------------------@---------------------------------------------[N]H5$0324: Command character not fi@rst in line.H5)0322: Character after line-number is not TAB.@|5x505855#P5((5.H5/0316: Long input line will be truncated to 132 characters.H56
****** ERROR Message No. H5=: H5?LINE @p5. 5559H5<x5>h7U*U*UWx7O Ix(`](6P6x5(9
`0(tU*U*U	0	=
=8
4pS{
up
DHBpBh9X:dP`(U*U*U:>>@>h?8?`@?@0$LrpXhhUj@j0k`U*U*UkH(@68 (p%@Z@<h<X  p!"!yH"8"C(#z(#U*E*Uz$%p$O@%c`%bh&5`&5@'b'(!(! )P)!0*!(*x+Cx+ p,^,U*U*DY@-% -e.`.(/f8/p0gP0 `11l(2
`pe/`pe%1`peM