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
cI B CB p Jq~k 2DFB: DEX p " [> X.
"* I \`O:~:9C29t %Tyqy + -= <@ -= ,> ,> "p@ $ "& "( -= ,> ,> "F@ $ "& @@ "( -= ,> ,> "F@ $ "& "( -= ,> ,>
"F@ $ "& "( -= + @ Id] -= <@ , 1l 1` + , <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@ & @ v p 8 * " "E/ gRp XE/ E/ gRp iE/ gRp l[JX P [JX x gRp l[JX gRp l[JX E2X /6 ,~ , <L Q` ,` , *<L , ">
(@ ` h ,> ,> ,> ),> %-= 5, 0<L 7, g?F@ 6 @ x @ . 2 " gRp * }gRp , ~gRp 0 ~[JX gRp 2 gRp 7 /"" 9<L 41v + , <@ 8 6 V +@h 4@ , 7<L + , ?<L , A<L , 9<L , <L ` + h O%J7J -= G <@ Q-= + O O%i<i2Mi- -= h -= L ,.6 V P@vh 7@ !+ 6 Vh + :h 0v + , <L ` h $ # h -= v + U, V<L ` h 1v g O Vh @v 6 Vh + :h 0v B+ + e Y>~@-= h -= ( c, [<L ` D" g?F@ Ig?F@ Kg?F@ Ng?F@ Og?F@ Yg?F@ dg?F@ e @ ox 0 = = h A B H
H U
` [
0 _
a " ?gRp 9 gRp : [JX [JX 8 gRp ; [JX P [JX P gRp = gRp > [JX ` [JX p gRp ? [JX gRp A [JX ( gRp B gRp D gRp E gRp F [JX h E2X H E2X H gfh v TOGGLE gfh MESSAGE E/ gRp I E/ gRp K E/ gRp K gRp P gRp R gRp R [JX
( [JX
8 gRp S [JX
8 [JX
h gRp V gRp X [JX 0 gRp [ gRp \ [JX p gRp _ gRp _ [JX x [JX
( gRp b gRp !" h h $ 3 h -= v h 2V + h 1V + Ov h 2V + + h 2V + , <L ` h 0V + + 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
( w 0 h "X ? f gRp h gRp j [JX s [JX 0 [JX H gRp t [JX H [JX H [JX P gRp u gRp v [JX h [JX h [JX p [JX x gRp w gRp y gRp } gRp [JX p [JX gRp [JX [JX [JX ( gRp [JX ( [JX 8 gRp ![JX ` gRp ![JX ` [JX p gRp ( =1v + /6 V
@ ` X " "[JX [JX gRp "[JX [JX ( gRp
# 2((
, E<L ` 7@ R+ , 2>
X,> ,> ,> <,> 6-= , B<L "", <@ + , <L ++ Q/6 ,~ , .<L Q` ` , <L (D
( 1, >
` h ~,> ,> ,> ,> -= !, <L #, D<L 1v + , <@ $ 0V + , #<L ,
<L ` $ " -= $ 3D k+ + , <P ` -= 0@ + , <P , > ,> ,> ,> ,> -= 8, <P 9, 1l ;0` + D" g?F@ g?F@ "g?F@ .g?F@ 3g?F@ 9 @ ` ` p) , - 1 " 8gRp
$gRp [JX h gRp %gRp &gRp &[JX h gRp (gRp )gRp )[JX ` gRp *gRp # +gRp % +gRp & ,[JX ` [JX x gRp ' ,[JX gRp ) ,[JX [JX ( gRp * -[JX @ gRp , -[JX X gRp - 1[JX X [JX gRp 0 1[JX [JX [JX gRp 1 2gRp 2 2[JX ( [JX P gRp 5 6gRp 6 7gRp : 7gRp ; 8[JX 8 [JX ` 9( >, <@ d 6 V + : @2v + A. . X <-= 0@ D( + + + A, <@ d ? + O+ N M?-i
g O g . ^gDX @v g6 @V c+ : e2v B+ @ ]. fX b. h P ((@ . iIH L A G dgV m+ f+ O+ + r ]>Lf@-= h -= p" 7@ m+ + O6 TV > o D"g?F@ Eg?F@ Mg?F@ Ng?F@ Pg?F@ Tg?F@ `g?F@ qg?F@ r @ p X@ B hG (H [ p] Pd Xf pn Ho @u pu " =gRp > 8[JX gRp @ 8[JX [JX 0 gRp C 9[JX 0 [JX p gRp G 9[JX p [JX p [JX x [JX gRp H 9gRp J :[JX [JX gRp J ;gRp O ;[JX p [JX x gRp W C[JX x [JX gRp Y D[JX 8 gRp [ D[JX X gRp ] FgRp F[JX @ gRp d PgRp d Q[JX H [JX x gRp g Q[JX h gRp n R[JX h [JX h [JX x gRp o TgRp s T[JX 8 [JX H gRp t T[JX H [JX H [JX P [JX P gRp u U . v,^o> ` K+ h kB r -= x <@ -= 6 Vh + :h ,> , ;1l 3 x g O / 4@ +@h h -= $ 0d =g O ,> +@h h -= $ 1$ 0g O Ax / 4D +@h h -= $ /$ ,> +@h h -= x t / + 0V + +@h h -= $ 2D + ,> +@h h -= x r / + +@h h -= $ 2D + ,> +@h h -= x r / + +@h h -= $ D"g?F@ zg?F@ |g?F@ g?F@ g?F@
B NGETNEXTLINE gfh
B dLOOP gfh
B {OUT gfh
B qNOIF gfh
B MFOUNDgRp w U[JX x E2X X E2X X E/ gRp z WE/ gRp | [E/ gRp } \[JX P [JX 8 gRp ][JX 8 [JX !H gRp
^[JX "0 gRp ^[JX "0 [JX "H gRp _[JX "H [JX "x gRp _[JX #8 gRp `[JX #8 [JX #h gRp `[JX $( gRp " `[JX $( / @ $2D + ,> +@h h -= x r / !+ ~> o,^o> ` K+ h O$;w @
iJ}LzCK -= + <@ z + 4 eX:4 -= h -= 1, <@ (@ 2, >
_` x ,> ,> ,> 6,> -= :, z<@ ; h 0V + = -= 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@ ID g?F@ Lg?F@ Og?F@ R @ ~ $P) $ ) #0) "@) "() 0) 0 . (B (@E (pH ) K )PN * Q " ?[JX $X gRp % `[JX % [JX % [JX % [JX % [JX % [JX % gRp ) bE2X gfh b T gfh b I gRp + b[JX %0 E2X E2X gfh S E/ gRp . dE/ gRp 0 lgRp 5 lgRp 6 mgRp < mgRp = n[JX 'X [JX 'p gRp ? r[JX 'p [JX ( [JX ( gRp B s[JX ( [JX (H [JX (P gRp E s[JX (P [JX (x [JX ) gRp H t[JX ) [JX )( [JX )0 gRp K t[JX )0 [JX )X [JX )` gRp N u[JX )` [JX * [JX * gRp Q u[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 *@ gRp T v[JX *@ [JX *h [JX *p gRp W v[JX *p [JX + [JX + gRp Z w[JX + [JX +H [JX +P gRp ] w[JX +P [JX +x [JX , gRp ` x[JX , [JX ,( [JX ,0 gRp c x[JX ,0 [JX ,X [JX ,` gRp f y[JX ,` [JX - [JX - gRp i y[JX - [JX -8 [JX -@ gRp l z[JX -@ [JX -h [JX -p gRp o z[JX -p [JX . [JX . gRp r {[JX . [JX .H [JX .P gRp u {[JX .P [JX .x [JX / gRp x |[JX / [JX /( [JX /0 gRp { |[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@ D g?F@ g?F@ g?F@ @ | /P~ 0 00 0` 1
1@ 2 2P 3 30 3` 4" " 9[JX /` gRp ~ }[JX /` [JX 0 [JX 0 gRp }[JX 0 [JX 08 [JX 0@ gRp ~[JX 0@ [JX 0h [JX 0p gRp ~[JX 0p [JX 1 [JX 1 gRp
[JX 1P [JX 1H [JX 1P gRp [JX 2 [JX 2( [JX 20 gRp [JX 20 [JX 2X [JX 2` gRp [JX 2` [JX 3 [JX 3 gRp [JX 3 [JX 38 [JX 3@ gRp [JX 3@ [JX 3h [JX 3p gRp [JX 3p [JX 4 [JX 4[ gRp " [JX 4 " -= 0@ + + " -= 0@ + + % -= 0@ + + ( -= 0@ + + + -= 0@ + + . -= 0@ + + " D , <@ d I , I<@ $ 7 " -= $ 3D /+ , I<@ + 7 6 Vh + 4 D" g?F@ #g?F@ &g?F@ )g?F@ ,g?F@ /g?F@ 2g?F@ 8 @ 4@% 4p( 5 + 5P. 6 1 604 7; 68= 6= 5X= 5(= 4x= 4H= 4= 3h= 38= 3= 2X=` 2(= 1x= 1H= 1= 0h= 08= 0= /X= /(= .x= .H= .= -h= -8= -= " ?[JX 4H [JX 4P gRp % [JX 4P [JX 4x [JX 5 gRp ( [JX 5 [JX 5( [JX 50 gRp + [JX 50 [JX 5X [JX 5` gRp . [JX 5` [JX 6 [JX 6 gRp 1 [JX 6 [JX 68 [JX 6@ gRp 4 gRp 6 gRp 7 [JX 6p [JX 7 gRp : [JX 78 gRp ; gRp < [JX 7H [JX 7H [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P =+ h O&{yH -= = > -= u Vh h 1V + + + H ( iFKAP -= h -= E $ 7 h -= $ Dh h 2V + + h (3V a+ h .6 Vh + H+ U E2
B 3REPEAT E2X !0 gfh z I E/ gRp ? [JX 8H gRp D [JX 8H [JX 8H [JX 8P gRp E gRp I gRp L [JX 9@ [JX 9X gRp M [JX 9X [JX 9X [JX 9` gRp N [JX 9` [JX 9x gRp O gRp Q [JX : [JX : [JX : gRp Q gRp V gRp X [JX " X h 2V L+ + M h 2V N+ h .6 Vh + U $ V @ x ;Z ;8^ " ; [JX ; gRp Z [JX ; [JX ; [JX ;( gRp Z [JX ;( [JX ;@ gRp \ gRp ] [JX ;X [JX ;X [JX ;` gRp ^ [JX ;` ( @ ^ h -= $ 2D Y+ + Z h .6 V B+ f o?KAP -= h -= * c $ ^ b-= $ Dh h 3V [g O h 3T `g O A 4V h.6 (@" V o+ 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 >s 8HU <| ? 8 " .[JX < gRp a [JX < [JX < [JX < gRp a gRp c gRp g gRp j [JX = [JX =p gRp o gRp p [JX > [JX > [JX > gRp q !gRp y "[JX ? [JX ? gRp y #gRp } #gRp %gRp %E2X $P gfh b POS1 gfh b T gfh
B TBLANKLOOP gfh
B GTEXTLOOP gfh
B {NULL gfh
B eWORDLOOP gfh
B OUT gRp %[JX @h < " + h C2=J7 -= <@ 6 V + :
,> , 1l ( 3 x g O / (4@ + <$h -= , *<L R6 EVh + :h ,> E , 1l 3Jx g O / 4@ $h h -= $ gDh h 2V g O h 2T g O G Eh 2R g O G Sh 2P g O G 4V , <L ` EP , 1<L ` + , <L > o,^o> ` K+ h iFK] -= 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 'p gfh S E/ gRp : AE/ gRp < JE/ E/ 0 D B> -= q Vh $ t h -= $ Dh h 2V l+ + + L E2
T .6 V C+ a o?K_AP -= h -= ^ $ X ]-= $ Dh h 3V R @Q g O h 3T Zg O A 4V b.6 V i+ 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 @ | HxH JQ J`X K0\ Mk M8n " 9gRp @ NE/ gRp B PE/ gRp C QgRp D RgRp F R[JX Hh [JX I gRp H R[JX I [JX I [JX I gRp H TgRp M TgRp O T[JX Ix [JX J gRp Q T[JX J [JX J [JX J gRp Q U[JX J [JX Jh gRp V VgRp X V[JX K [JX K [JX K gRp X W[JX K [JX K8 gRp [ W[JX K8 [JX K8 [JX K@ gRp \ XgRp ] YgRp b YgRp d Z[JX LH [JX M gRp i [gRp k [[JX M0 [JX M0 [JX M8 $ q,>h ,>h -= h + + w ]VeF@-= h -= t },> ,> ,>h @ @,>h -= h + ~ _W# -= h -= |> o,^o> ` K+ h , I<@ L 4V @vh $ o " -= $ 3D 9+ &0V + h .6 Vh h 06 + , 5 "<L + @vh , <L + h .6 Vh h 1v
+ , <L @vh D" g?F@ rg?F@ vg?F@ wg?F@ zg?F@ }g?F@ ~g?F@ @ }` K8w N8~ H G` Q0 , gfh b POS1 gfh b T gfh
B vNULL gfh
B KBLANKLOOP gfh
B `WORDLOOP gfh
B }OUT gRp `[JX P E2X 0 , E2X 0 , gfh 8 GETNEXTWORD gRp agRp a[JX P( [JX P8 gRp bgRp c[JX P@ [JX Pp gRp d[JX Pp [JX Q gRp egRp
e[JX Q [JX Q8 gRp e[JX QX gRp j[JX R [JX R0 gRp kgRp " + , n>
` h " k[JX RP * Q E
,> ,> ,> (,> "-= ,~ , <@ ^ , <@ , I<@ D + + @vh @vh 6 Vh $ " -= $ 3D + 0V + 7@h + , @<L 6 h .6 Vh h 06 + , )<L
h .6 Vh + , -<L @vh @vh 6 Vh + h .6 Vh h 06 + , 1<L . h .6 Vh + " @ , 8<L 2@vh + Ovh Lh 4V , ;<L Ovh @ g?F@ g?F@ $ @ p RP Qx Ph! P0! UP1 V3 U5 Vx; W0= VH= Tx> WpA " ?gRp lgRp m[JX Sx gRp n[JX T [JX T gRp ! pgRp " qgRp " qgRp # r[JX T8 [JX Th gRp & s[JX Th [JX U gRp ( t[JX U [JX U gRp ) ugRp * ugRp , v[JX U@ [JX UX gRp - wgRp / w[JX V gRp 1 ygRp 2 z[JX V0 gRp 3 {gRp 3 {[JX VP gRp 5 }gRp 6 ~[JX Vh [JX W gRp 8 gRp 9 [JX W8 gRp ; gRp = [JX WX [JX WX [JX W` gRp > gRp > [JX Wh [JX Wx gRp ? [JX X A A7@h + , <@ , @> ,> ,> ,>h " gRp A gRp A [JX X [JX X( gRp B $ F,>h -= h h x-= 0@ + @vh + , !1l . h . @h h 26 + , ?<L , P<L + , Q<L * h .6 Vh h 1v
+ ", S<L <@vh , K1l . @h , X<L @, \<L , ^<L R(A(+ A, I<@ + #7@h + , _<L T h 1v + , d<L Y, .<@ ` -= D g?F@ Gg?F@ Ig?F@ j @ @ Y K YxS ZxZ Z0a Y0a X a WXa T`c \8e Te \hh " ?gRp D gRp H [JX Y [JX Y( gRp J [JX Y8 gRp K
gRp N
[JX Yh [JX Z gRp P gRp Q
[JX Z8 gRp S gRp U gRp V [JX Zh [JX [ gRp X gRp Y [JX [ gRp Z gRp \ gRp ^ gRp _ [JX \ [JX \ [JX \ [JX \ gRp a [JX \0 gRp c [JX \0 [JX \@ gRp d [JX \X [JX \X gRp e [JX \X [JX \p gRp g [JX ] gRp h gRp j E2X 0 3 gfh b OUTPOS gfh b SCREENLINES gfh NEXTWORD j+ h a KxKJJ7\ -= k <@ 6 g?F@ m @ X G8 Pm " gfh b WRITINGALINE gfh b MOREWORDS gfh >@GETNEXTWORD gRp j [JX ]( E2X 3 E2X 3 E/ gRp m E/ gRp o [JX ]x '(P
p V l+ : p &.4 2v + $ # q-= $ 2D e+ + + q+ { (P
EN] h -= x t V |+ : | q.4 2v + $ s }-= $ 3D u+ + + }+ W# -= h -= + h g"~-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{ `0 ap " )[JX ^8 gRp s [JX ^8 [JX ^h gRp v [JX ^h [JX ^h [JX ^p [JX ^x gRp w !gRp | ![JX _@ [JX ` gRp ![JX ` [JX `0 gRp ![JX `0 [JX `0 [JX `8 [JX `@ gRp "gRp "[JX a E2X 4( gfh
B zBSKIPgfh
B OUT E2X 4( E/ gRp
$E/ gRp
)gRp [JX ap (Q , <@ ^ , <@ + h O>[JX c E2X 50 E2X 50 0@ * [6 & N-= 0@ + Ov + (( ( * Q-= 0@ + @v ,+ - H-= 0@ + Ov + 1 K-= 0@ P P + @v 3+ 4 ]-= 0@ g O 8 `-= 0@ g O G 4@ 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@- ex1 f04 fh8 h G " 3E/ gRp -E/ gRp 8gRp # 8[JX d0 [JX dX gRp % 8[JX dh gRp & 9[JX dh [JX e gRp ) 9[JX e gRp * C[JX e [JX eH gRp , C[JX eX gRp - D[JX eX [JX f gRp 0 D[JX f gRp 1 J[JX f [JX f8 gRp 3 J[JX fH gRp 4 J[JX fH [JX fp gRp 7 J[JX g gRp 8 O[JX g [JX gx gRp ? TE/ gRp @ UgRp I UgRp J V[JX i .( L2D g O h 1v g O A 4D h /6 Vh + J $ J h -= $ "
3D *+ , <@ ` , 3<L h T, <L , <@ E> o,^o> ` K+ (
; x-= 0@ + ,
<@ + d C2=Kw`h -= h -= a, I<@ @" $ R " -= $ 2D %+ + I0V + , Y<L + + , @>
f` Q E
h j,> ,> ,> [,> D-= q ,~ , <@ ^ m, <@ r+ d+ + , I<@ D" g?F@ Sg?F@ ^g?F@ cg?F@ dg?F@ gg?F@ r @ x j R jPZ gp] mj m0m mPt mHw kxx o y kPy fxy f@y fy ePy ey d`y " ?[JX j gRp P V[JX j( gRp R V[JX j( [JX jX gRp U WgRp W XgRp Y X[JX k gRp Z YgRp [ ZE2X @ ; gfh b I [JX kX gRp ] Z[JX kX [JX l gRp ` _gRp a `gRp e `gRp f a[JX lh [JX m gRp i a[JX m [JX m [JX m gRp j a[JX m [JX m8 gRp k a[JX mP gRp m bgRp v c[JX nx gRp w d[JX nx [JX nx [JX o gRp x d[JX o [JX o [JX o [JX o [JX o [JX o [JX o [JX o [JX o [JX o gRp y egRp 3(" z $ n " -= $ 3D h+ , <@ d 5 $ z " -= $ 3D |+ , I
A <@ + + W#h -= h -= , .<@ ` + "+
+ h aW$ pr -= <@ -= , g<L , <L h ` , Z1l 1` + , <L 6 V + : ,> , ( 1l 3 x g O / $4@ $ -= $ Dh h 2V ,g O h 2T / g O G h 2R Xg O G h 2P (g O D"g?F@ {g?F@ g?F@ g?F@ g?F@
g?F@ g?F@ g?F@ " @ }| p oH c` m o g[JX op [JX p gRp g[JX p8 [JX p8 gRp igRp igRp j[JX q [JX q gRp kgRp k[JX q` E2X =8 gfh
B !LOOP gfh
B cALGLOOP gfh
B OUT gfh
B
RETURN E2X =8 E/ gRp mE/ gRp sE/ gRp tgRp ugRp u[JX rh [JX s gRp vgRp w[JX s( [JX t gRp ! xgRp # x[JX t8 # A@ ,G 4V , W<L ` , -<L ` + , <L > o,^o> ` K+ h k:]k{]6.<pO -= 4 <@ , 1<L 7@ + 0V + , 9<L + ;0V + , =<L + , @<L 7@ + , <@ + h E u|S; -= F <@ , B<L , J<L :, L<L Ov @ g?F@ 7g?F@ H @ ? uP/ t1 s1 r wH? x B whB w0B x D xHF w y " ?[JX uX gRp - y[JX up gRp / z[JX v [JX v gRp 1 {gRp 2 |E2X H ?H gfh b T gRp 4 |[JX v@ E2X ?H E2X ?H E/ gRp 7 ~E/ gRp 9 gRp : [JX w( [JX w8 gRp ; [JX w8 [JX wP gRp = [JX wp gRp ? [JX wp [JX x gRp @ [JX x [JX x [JX x( gRp B
[JX x@ gRp D
[JX x@ [JX xP gRp E
[JX x` gRp F [JX x` E2X A0 E2X A0 E/ gRp H
, O+ h G",:xe Y]( -= P <@ v -= ,> Rg?F@ Ug?F@ X " [JX yx E2X B0 E2X B0 E/ gRp R E/ gRp U 7E/ / [,> ,>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@ " gRp Y 9gRp ] 9gRp b :gRp f :gRp k ;gRp o ;gRp t <gRp x <gRp } =gRp = " @ -= X h .6
,> ,> ,>X ,>X -= X o h .6 ,> ,> ,>X ,>X -= X l h .6 ,> ,> ,>X @ ,>X -= X r h .6 ,> ,> ,>X ,>X -= X Lh 4V 6 Vh + :h ,> +@h 3 x g O / 4@ ] h . .h X -= 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 [JX x gRp ' C[JX x [JX 8 (
+, <@ ` , I<@ $ " -= $ 3D + , I<@ + ., .<@ ( ` + + +@h 2@h + Ovh + #+ ; KN2q'# -= h -= 8+ ! -= + h aW&h9SI9 -= > <@ , M<L , B<L , D <L , E<L H-= 1@ g D" g?F@ /g?F@ :g?F@ ;g?F@ =g?F@ @g?F@ I @ @ 305h7P7p8=H; z8 " 6gRp + DgRp - EgRp . E[JX h [JX gRp 1 E[JX 0 gRp 3 FgRp 4 F[JX H [JX H [JX X gRp 5 G[JX X [JX p gRp 7 G[JX x [JX x [JX gRp 8 I[JX P gRp = IE2X P I gfh b LEGALCOMMAND gfh . COMMAND gfh b I gfh
B :EARLYEXIT gRp = I[JX X E2X I E2X I gfh v N E/ gRp @ KE/ gRp B QgRp D QgRp E RgRp G RgRp H S[JX /""A KO A D4@ , G<L , <@ H, L<L , k<L , O<L A, R<L , S<L ?0V + , U<L , X<L , Y<L @ , [<L , \<L + h aW&
WG&\Rf -= ` <@ 7@ + A, ^<L 7@ + , e<L 7@ K+ , h<L , j<L , l<L A , m<L , o<L , p<L , r<L , s<L , u<L , v<L g?F@ b @ }| @R
xY
Pg
xi" ?[JX H gRp L TgRp N TgRp O UgRp Q U[JX
gRp R XgRp S XgRp U YgRp V Y[JX
h [JX gRp X Z[JX gRp Y [gRp [ \gRp \ \gRp ^ ]gRp _ ][JX x E2X KX E2X KX E/ gRp b _E/ gRp d b[JX
H [JX
X gRp e b[JX
p gRp g b[JX
p [JX h b[JX m egRp o fgRp p fgRp r ggRp s ggRp u hgRp v hgRp x ( y, x<L , y<L " igRp y igRp { j +( |, {<L V0V + , |<L + ~0V + , <L , <L , <L , <L , <L , <L ,
<L ,
<L , , <L , <L , <L , A <L 0V + , <L L 4V , <L , <L + D 0V + , <L L 4V , !<L L "4V , #<L @ p ( 8 0 %X ' " ?gRp | jgRp ~ k[JX ` [JX x gRp k[JX gRp k[JX [JX 0 gRp lgRp mgRp mgRp n[JX [JX gRp ogRp
ogRp
pgRp qgRp qgRp rgRp rgRp sgRp sgRp t[JX [JX gRp ugRp u[JX 0 [JX @ gRp u[JX X gRp v[JX x gRp w[JX x [JX gRp ! xgRp " x[JX ( [JX 8 gRp # x[JX P gRp % y[JX P [JX ` gRp & y ( ', &<L 7@ + , '<L , *<L , +<L , - @ ~ )p ) + " + , N <L + @ ~ @ 6x 9` 9X @ Cx Cp I( L L T " ?gRp . |gRp 0 |gRp 1 }gRp 3 }[JX 0 [JX H gRp 4 }[JX h gRp 6 ~[JX h [JX gRp 8 ~[JX [JX gRp 9 ~gRp ; gRp < [JX H [JX ` gRp > [JX gRp @ [JX [JX gRp A [JX 0 [JX 0 gRp C gRp D gRp F [JX ` [JX x gRp G [JX gRp I [JX [JX 0 gRp K [JX H [JX H gRp L gRp N gRp O [JX x [JX gRp P [JX [JX gRp R [JX @ gRp T #( T P0V + , R<L , U<L + T0V + , W<L + A
( Y0V + , Z<L , ^<L e, _<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 _@ _ a P g j p j x r 0 u u ` w " ?[JX @ [JX X gRp U [JX p [JX p gRp W [JX gRp Y [JX [JX ( gRp Z [JX H gRp \ [JX H [JX ` gRp ^ [JX x [JX x gRp _ [JX gRp a gRp b
gRp d
[JX @ [JX X gRp e
[JX x gRp g [JX x [JX gRp i [JX ( [JX ( gRp j gRp l
gRp m
[JX X [JX h gRp n [JX 8 gRp s [JX P [JX P gRp u [JX p gRp w [JX (" w r0V + , u<L + w0V + , x<L , |<L `, }
<L b z0V + , <L ,
<L +
0V + @ p z 8 } } h
" p [JX gRp x [JX ( gRp z [JX ( [JX @ gRp | [JX X [JX X gRp } [JX p gRp gRp
[JX [JX gRp
gRp
[JX X gRp
[JX X [JX p ("A
,
<L ,
<L ,
<L /,
<L ,
<L ,
<L A ,
<L ,
<L ,
<L ,
<L ,
<L ,
<L P"A ,
<L
<L ,
<L M,
<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
R 0gRp
S 1gRp
U 1gRp
V 2gRp
X 2gRp
Y 3gRp
[ 3gRp
\ 4gRp
^ 4gRp
_ 5gRp
a 5 (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
b 6gRp
d 6gRp
e 7gRp
g 7gRp
h 8gRp
j 9gRp
k 9gRp
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
AgRp AgRp BgRp BgRp CgRp CgRp DgRp DgRp EgRp
F[JX 1H [JX 1` gRp GgRp GgRp H[JX 2( gRp IgRp IgRp JgRp KgRp KgRp LgRp LgRp MgRp M ( 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 / TgRp 0 TgRp 2 U )" 4 , 3<L , 5<L , 6<L , 8<L , 9<L , ;<L , <<L
0V + , ><L + ?0V + , A<L D( , D<L 7@ )+ , F<L +, H<L , J<L , K<L , M<L , N<L C0V + , <@ + Q0V + , <@ "E , P<L
, X<L (, Y<L , [ @ 8 C8@ F8( F9 J:( U:` X:H X " 9gRp 3 UgRp 5 VgRp 6 VgRp 8 WgRp 9 WgRp ; XgRp < XgRp > YgRp ? Y[JX 7x [JX 8 gRp A Y[JX 80 gRp C Z[JX 80 [JX 8H gRp D Z[JX 8` [JX 8` gRp F ZgRp G [[JX 8x [JX 9 gRp H [[JX 9 gRp J [gRp K \gRp M \gRp N ]gRp P ]gRp Q ^[JX : [JX :0 gRp S ^[JX :P gRp U ^[JX :P [JX :h gRp V ^[JX ; [JX ; gRp X _gRp Y _gRp [ ` ] < A( ]<L , \<L , ^<L , _<L , a<L Z, 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<L c, 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 _ bgRp a bgRp b cgRp d dgRp e dgRp g egRp h egRp j fgRp k fgRp m ggRp n ggRp p hgRp q hgRp s igRp t igRp v jgRp w jgRp y kgRp z lgRp | lgRp } mgRp mgRp
ngRp
ogRp
ogRp
pgRp
pgRp
qgRp
rgRp
rgRp
sgRp
tgRp
tgRp
ugRp
ugRp
vgRp
wgRp
w (
,
<L ,
" gRp
x : A
<L ,
<L ,
<L ,
<L z,
<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"<L 9,
=<L
8,
?<L ,
@<L
;,
B<L
=,
C<L
>,
E
*<L
@,
F<L ,
H<L
O I-= 1@ + ,
I<L ,
M<L ,
O<L ,
P<L ,
R g?F@
L " =gRp
xgRp
ygRp
ygRp
zgRp
{gRp
! {gRp
# |gRp
$ |gRp
& }gRp
' }gRp
) ~gRp
* ~gRp
, [JX E@ [JX EP gRp
- gRp
. gRp
0 gRp
1 gRp
3 gRp
4 gRp
6 gRp
7 gRp
9 gRp
: gRp
< gRp
= gRp
? gRp
@ gRp
B gRp
C gRp
E gRp
F gRp
H gRp
I
gRp
K
[JX I0 [JX IX gRp
M
gRp
O
gRp
P
R $ E
T<L ,
S<L n U0V + , <@ L 4V , <@ 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
S gRp
U gRp
V [JX Jh [JX K gRp
X gRp
Y [JX K [JX K( gRp
Z [JX K@ gRp
\ [JX K@ [JX KP gRp
] [JX Kh gRp
^ gRp
` [JX L gRp
b [JX L [JX L8 gRp
c gRp
e [JX LP [JX L` gRp
f [JX Lx gRp
g [JX Lx [JX M gRp
h [JX M gRp
j gRp
k [JX MP [JX MP gRp
m gRp
n [JX N [JX N gRp
p gRp
q gRp
s [JX N0 [JX NH gRp
t gRp
v [JX O gRp
x [JX ( E
x
s0V + ,
v<L ,
y<L , /<L h 0,
{<L ,
~<L A ,
<L , x O
|Nx
| " O [JX O gRp
y gRp
{ [JX OH [JX OH gRp
| gRp
~ gRp
!gRp A
,
<L
x0V + , ,
|<L h
}, , w,
J+ , , Q`
$gRp [JX Qh gRp
r0 + , , V0 gRp -=
8 Y gRp E2X gp E2X g E/ gRp
c p p .6 Vp p 0V + ,> ,> ,>p ,>p -= =h p + p 0V g?F@
[JX \@ gRp X \x gRp ,=h p + p 0V + ,> ,> ,>p ,>p -= M=h p + p .6 gVp , YgRp Y[JX `P [JX `h gRp ZgRp [gRp [gRp \gRp
\gRp ]gRp ]gRp ^gRp ^gRp gRp gRp ` ; A <@ ,
, , , =gRp `gRp agRp agRp bgRp bgRp cgRp ! cgRp # dgRp $ dgRp & egRp ' egRp ) fgRp * fgRp , ggRp - ggRp / hgRp 0 hgRp 2 i[JX f@ gRp 4 j[JX f@ [JX fX gRp 5 kgRp 7 kgRp 8 lgRp : lgRp ; mgRp = mgRp > ngRp @ ngRp A ogRp C ogRp D pgRp F pgRp G qgRp I qgRp J rgRp L rgRp M sgRp O sgRp P tgRp R t ! A T<@ ,
,+ L 4V , h<L 7@ k+ D , l<L 7@ d+ , n<L L mL A 4V @ g?F@ cg?F@ f @ }| fPbf8bX m8mm`pnr " ?gRp S ugRp U ugRp V vgRp X vgRp Y wgRp [ wgRp \ xgRp ^ xgRp ygRp a y[JX l( [JX l( gRp b zgRp c {E2X X o0 gfh b TYPE gfh b INDEXgfh ARRAYNAME gfh <B , {
A<L
G, |<L 7@
g+ x0V + , ~<L , <L 7@ j+ , <L @ p nXxo{nx{n@|m( " ! [JX nH [JX n` gRp v [JX o gRp x [JX o [JX o gRp y [JX o0 [JX o0 gRp { [JX oH gRp | gRp ~ [JX ox gRp [JX ox [JX p gRp
[JX p [JX pX gRp gRp (
, <L 7@ G+ , <L I,
<L , <L , , <L , <L + 0V + , <L , <L E
7@ + , <L , <L
, <L , @ @ pX q ps " "gRp [JX q gRp [JX q [JX q gRp
[JX q8 gRp gRp gRp [JX rP gRp [JX rP [JX rh gRp gRp gRp [JX s [JX s( gRp [JX s@ gRp gRp E <L , <L , <L , "<L , #<L , %<L A(, &<L , (<L , )<L , +<L , ,<L
, /<L , 1<L , 2<L 07@ r+ , 4<L @ x r`%rH% " gRp gRp gRp " gRp # [JX tP [JX tP gRp % gRp & gRp ( gRp ) gRp + gRp , gRp . gRp / gRp 1 gRp 2 gRp 4 gRp 5 [JX vX [JX vh " 7 , 6<L , 8<L , 9<L , ;<L , <<L , > <L , ?<L , A<L , B<L , D<L , E<L , G"<L 7@ p+ , H<L r7@ + , K<L
:, 0V + , M<L "A , P<L 'gRp 6 !gRp 8 "gRp 9 "gRp ; #gRp < #gRp > $gRp ? $gRp A %gRp B %gRp D &gRp E &gRp G 'gRp H 'gRp J ([JX y [JX y0 gRp K ([JX yH [JX yH gRp L )[JX yH [JX yX gRp M *gRp O *[JX yp [JX z gRp P +gRp R ,gRp S , "( V , U<L , V<L
k, X<L + O0V + , Y<L "E
(, ]<L S, ^<L T, `<L N, a<L , c<L W, d<L Y , f<L L @ p z [{Hi{0iyPip i " gRp U -gRp V -gRp X .gRp Y .[JX {8 gRp [ /[JX {8 [JX {P gRp ] 0gRp ^ 1gRp ` 1gRp a 2gRp c 2gRp d 3gRp f 3gRp g 4[JX } [JX } [JX } [JX } gRp i 6[JX } " i4V [0V + , g<L , k<L , m<L
K-= 1@ "A+ , n<L , r<L p, t<L 2, u<L , w<L , x<L , z<L + j0V + , {<L , <L _, <L u p-= 1@ @ g?F@ qg?F@ @ x ~ w}0} " #[JX } gRp j 7[JX } [JX }8 gRp k 8gRp m 8gRp n 9gRp p 9[JX ~ [JX ~( gRp r :gRp t ;gRp u ;[JX ~p gRp w <gRp x =gRp z =gRp { >[JX X gRp } ?[JX X [JX p gRp @gRp @gRp AgRp A[JX 8 "( + , <L s, <L , <L , <L , <@ , (<@ ,
<L g7@ L+
n -= 1@ + }0V + , <@ + 0V + , <@ g?F@ @ @ X
hPP " [JX ` gRp BgRp CgRp C[JX ( gRp
DgRp
EgRp [JX p gRp FgRp G[JX [JX gRp H[JX [JX @ gRp I[JX @ [JX X gRp I[JX x gRp I[JX x [JX " , <@ 0V + , <L + 0V + , <L "A A
, h + , !<L + $0V + , %<L & '0V + , )<L + *0V + , ,<L L m4V .0V @ | p8 P "p"P'*p*8.p1X1 " 5gRp I[JX ( [JX ( gRp J[JX @ [JX @ gRp K[JX @ [JX X gRp L[JX x gRp M[JX x [JX gRp ! M[JX ( [JX ( gRp " MgRp $ N[JX @ [JX X gRp % N[JX x gRp ' N[JX x [JX gRp ) N[JX ( [JX ( gRp * O[JX ( [JX @ gRp , O[JX ` gRp . O[JX ` [JX x gRp / O[JX [JX gRp 1 P[JX [JX gRp 2 Q[JX " 3+ , / " [JX 8 / A 4<L , 3<L , 5<L , 6<L + 20V + , 8<L A" L 14V , ;<L , ><L , b<L , ?<L , B<L , C <L , E<L + h aW$j7SN@ -= H <@ , F<L L =
1t g O A 4V -= , m>
,> ,> ,> C,> -= T, L<L
N Vh 6 Vh + :h 2vh + , <P , A<L , V<L V, ^<L
+ Z :0V + D g?F@ Jg?F@ Qg?F@ U @ ~x 0:X?0???}Alx [ 8a " ?gRp 3 RgRp 5 RgRp 6 SgRp 8 S[JX gRp : T[JX [JX 8 gRp ; UgRp = V[JX P [JX ` gRp > V[JX x [JX x [JX x [JX x gRp ? W[JX gRp A XgRp B YgRp C YgRp E ZgRp F ZgRp H [[JX E2X {0 E2X {0 E/ gRp J ]E/ gRp L bgRp N c[JX ` [JX
gRp Q cE/ gRp R dgRp V egRp X egRp Y f[JX [JX @ gRp \ ggRp ] ggRp ^ hgRp _ h[JX
gRp a i[JX
( c, _ " [JX
0 & @ A c<L , c<L + a0V + , d<L , h<L , i<L " > o,^o> ` K, k<L L i4V f0V + , n<L , r<L A, s<L , u<L , v<L , x<L + p0V + , y<L P A , }<L t, ~<L , <L , <L , <L 7@ + ( L sL 5A 4V @ `
(f
xk
`k
n{H0 " ?gRp c jgRp d k[JX
h gRp f l[JX
h [JX h mgRp i m[JX ` }p gfh b I gfh b J [JX u sgRp v sgRp x tgRp y t[JX 8 gRp { u[JX 8 [JX P gRp } vgRp ~ wgRp wgRp xgRp xgRp y[JX ` [JX ` [JX ` gRp z[JX ` [JX p gRp {[JX p [JX gRp | ( {0V + , <L ,
<L + 0V + , <@ , <@ 0V + , <@ , <@ + @ @ pX8 " [JX [JX ( gRp
}gRp
~[JX ` gRp [JX ` [JX x gRp gRp [JX ( [JX ( gRp [JX ( [JX @ gRp gRp [JX x gRp [JX x !( E
0V + , <@ , <@ ,
<L |, <L }, <L 0V + , <L + 0V + , "<L , %<L $0V + , '<L + (0V + , *<L , -<L ,0V + D , /<L + 00V + , 2<L , 5<L @ p p $P'8',P/8/4P787 " 7[JX gRp gRp [JX @ [JX @ gRp [JX X gRp gRp gRp [JX [JX gRp " [JX @ gRp $ [JX @ [JX X gRp % [JX p [JX p gRp ' gRp ( [JX [JX gRp * [JX @ gRp , [JX @ [JX X gRp - [JX p [JX p gRp /
gRp 0
[JX [JX gRp 2 [JX X gRp 5 [JX p [JX p gRp 7 8 ((Q" 8, 7<L
I, 8<L 7@ + 40V + , :<L , ><L A+ <0V + , ?<L , C<L , D<L 7@ + , F<L "A , H<L 9, J<L L N4V , K<L , N<L _, O<L , Q
(<L N, R<L , T<L bo A0V + , U<L + W0V + E , X<L , \<L e, ]<L @ ~ h:XA(FF JXR Z8]R]@` " ?gRp 8 [JX gRp : gRp ; [JX 8 [JX H gRp < [JX H [JX ` gRp > gRp ? [JX gRp A [JX [JX 0 gRp C gRp D [JX ` [JX ` gRp F gRp G [JX x [JX gRp H [JX gRp J gRp K gRp M [JX P [JX ` gRp N gRp O gRp Q [JX ( gRp R gRp T gRp U gRp W [JX p [JX gRp X [JX ( gRp Z [JX ( [JX @ gRp \ [JX X [JX X gRp ] gRp
<L + h O?%|h -= n &[JX ` [JX p gRp o 'gRp p 'gRp r (gRp s (gRp u )gRp v )gRp x *gRp y *gRp { +gRp | +gRp ~ ,gRp ,gRp -gRp -gRp .[JX X gRp /gRp /[JX p [JX ! gRp 0gRp
1gRp 1[JX !P gRp ( E/ E <@ , <@ ' E-= 0@ + -= 0@ + , <@ d ~ + , <L @ g?F@ g?F@ @ ` "p " gRp 4E/ gRp :gRp :[JX "( [JX "P gRp @[JX "P [JX "x gRp @[JX # gRp A )(Q" , <L , <L , I<@ $ . " -= $ 3D #+ , <@ d "@" $ " -= $ 3D !+ , I<@ + $, .<@ ` + , <@ , R >
,> ,> ,> ,,> -= /L L A 4V , <L + , 3<L " @v , ]<L , 5<L -, 8<L `+ h [\[E` -= ; <@ -= , 1l 9 @h + F Y&I9G" $H [JX $x gRp ' F[JX % [JX % gRp ) G[JX %0 gRp + HgRp , IgRp 1 I[JX & [JX &0 gRp 3 I[JX &P gRp 5 J[JX &h gRp 6 J[JX &p gRp 7 KgRp 8 LgRp 9 LgRp ; M[JX '0 E2X P E2X P E/ gRp = OE/ gRp ? SE/ gRp @ T D4 -= g?F@ E * P E h -= B $ A h -= $ Dh h 36 + $ G h -= v h /6 Vh + F+ h .6 $ K h -= v > o,^o> ` K+ h [\[0S:d@(D -= U <@ -= X.6 V Y, @1l P @h + a Y&I9G"
B ELETTERCHANGE gRp T Y[JX *H E2X E2X E/ gRp W [E/ gRp Y aE/ gRp Y bgRp [ cgRp ] dgRp b dgRp d e[JX ,H [JX ,` gRp f fgRp h fgRp j g[JX - [JX - [JX -0 gRp k g[JX -` gRp n hE2X p
B `LETTERCHANGE gRp ; " o+ h _B-kziC.@ -= p <@ -= "h -= + , [1l . @ ,~ , >
Q` v` ,> ,> ,>h ,>h -= h 6 Vh + :h ,> , v1l w3 x g O / &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 " V g 6 V n 6 V p 6 V T, 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 - o h[JX -x E2X pgRp qgRp qgRp rgRp ! rgRp " sgRp # sE2X x 8 gfh FILENAME gfh b I gRp $ s[JX 4@ E2X 8 E2X 8 gRp $ ygRp % zgRp & zgRp ' { : A *,> ,> ,> ,> -= + 6 $ - " -= v , (>
` C` ,> ,> T@ ,> $,> -= 3 % $ 4 " C-= v & $ 5 " C-= v $ " -= $ P D $ " -= $ D $ P " -= $ D ( $ " -= $ D $ ` " -= $ D L $ " -= $ 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 - |gRp 0 |gRp 5 }gRp 7 }gRp : ~gRp < ~gRp ? gRp A gRp D gRp F gRp I gRp K gRp N gRp P Q d,> ,> ,> w,> q-= e $ " -= $ D f $ " -= $ D e Q @,> ,> ,> Q,> -= m $ " -= $ D $ " -= $ D $ D" g?F@ fg?F@ hg?F@ jg?F@ ng?F@ pg?F@ s " gRp Q gRp g gRp i gRp l gRp o gRp r , u " -= $ D $ $ " -= $ D U $ " -= $ D $ " -= $ D $ " -= $ D % $ " -= $ D Q, <L ` , <L
P ` , <L ` ` , <L ` , 9<L ,
<L , + gR-s V
Q*U* S,> ,> ,> l,> U-= Ov 0@v V G V M V g V n V J V ! V 7 V D"g?F@ ug?F@ xg?F@ zg?F@ }g?F@ g?F@ g?F@ g?F@ g?F@ " gRp t gRp w gRp y gRp | gRp ~ gRp gRp
gRp gRp gRp
gRp
gRp gRp gRp gRp gRp gRp gRp gRp **
! V ; V c 6 V @v V V & V ), <@ Z l,> ,> ,> &,> Y-= (" (, <L , *<L , I<@ , >
8` h o,> ,> ,> ,>
@ -= 1 3 &-= 0@ + D g?F@ )g?F@ 2g?F@ 4 " gRp gRp " gRp # gRp % gRp & gRp * gRp + gRp - !gRp . !gRp 3 "[JX F8 [JX F` gRp 6 "[JX F` [JX F` $" 6+ , z<@ 3 6 V $ A " -= $ $ 7 8-= $ 3D g (O ,> , 1l ;3` <g O A x / 4@ A.6 V D+ 9, ?1l @ 2@ E+ -= + , F1l G. ,~ , 0>
Q` I` ,> ,> ,> ,> -= "( O 6 V G+ : Q,> , I1l J3 x g O / C4@ $ T R-= $ D" g?F@ :g?F@ <g?F@ Hg?F@ Pg?F@ X @ @ FX6H8FILJ S " [JX Fh gRp 6 "gRp 8 #gRp 9 #[JX G [JX H@ gRp D #[JX H` gRp F $[JX H` [JX I gRp H $E/ gRp I %gRp Q &[JX J [JX Jx "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 @ x Jp\N(u " gRp W &[JX KH gRp \ &gRp b 'gRp g 'gRp m ( ("A" y-= x t,> ,> ,> y,> x-= {> o,^o> ` K, +<L , <L ( }, <L , <L ` , <L ` , f<L h p &4 1V g
O V , <L ` , <L ` , <L ` 6 V + : ,> , s(1l 3 x g O / V4@ $ -= $ 2D C+ /6 V + + + Yi3_IP -= h -= D" g?F@ yg?F@ |g?F@ g?F@ g?F@ @ @ I RS Rh " %gRp r (gRp z )gRp } )E2X gfh
zTEMP [JX Op gRp *gRp *gRp +gRp -gRp -gRp .gRp .gRp /gRp @ [JX SH *(Q , <@ ), <@ , <@ `, .>
` h ,> ,> (Q ,> %,> _-= ), r<@ + / gR-_? -= h @ g?F@ *g?F@ . " gRp 6gRp ! 6gRp " 6gRp $ 7gRp % 7gRp + 8 -"D /-= ,, I<@ $0V + 00V + , I<@ + 3 $ / " -= $ D 1 $ " -= $ 3D 8+ , <@ ` $ 6 " -= $ 3D :+ , @"<@ d # $ = " -= $ 3D ?+ , I<@ + B, .<@ ` , <@ c P f-= 0@ + Ov , <@ ` + / I k-= 0@ + , ?> ,> *(,> ,> ,> -= S, z<@ UOv , <@ ` + / O Y-= 0@ + D"g?F@ /g?F@ 7g?F@ 9g?F@ >g?F@ Cg?F@ Jg?F@ Pg?F@ Tg?F@ [ @ V@6W0=V(=XPGX GY8OZZ " ?gRp , <gRp 0 <gRp 1 <[JX V [JX V0 gRp 3 =[JX V0 [JX VH gRp 4 =[JX V` gRp 6 >gRp 8 >[JX W [JX W8 gRp ; ?[JX WX [JX WX gRp = @[JX WX [JX X gRp @ AgRp B B[JX X( [JX XX gRp E B[JX Xp [JX Xp gRp G FgRp H FgRp I G[JX Y [JX Y@ gRp L KgRp L KgRp N L[JX Yh [JX Yh [JX Yp gRp O M[JX Yp [JX Z gRp Q WgRp U WgRp W XgRp W XgRp Y Y[JX [ [JX [ [JX [ gRp Z Z[JX [ 0(P
( \, <@ ], ?> ,> ,> ,> ],> \-= `, z<@ a c -= D 0@ + 6 V "+ c -= 0@ + 6 V f+ , <@ ` + /(( Z o-= 0@ + Ov !+ / n t-= 0@ + , m<@ , ?> ,> ,> (Q" ,> E,> 8-= w, z<@ x, 1l z0` + , <@ d A 6 V k
+ : 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 [H gRp \ _gRp ^ `gRp b `gRp c a[JX \8 [JX \` gRp f a[JX \x gRp g a[JX \x [JX ] gRp j a[JX ]8 gRp k b[JX ]X [JX ]X gRp m c[JX ]X [JX ]X [JX ]` gRp n d[JX ]` [JX ^ gRp p kgRp q l[JX ^ [JX ^ [JX ^ gRp q m[JX ^ [JX ^@ gRp t qgRp u qgRp y rgRp z r[JX _( [JX _P gRp } r[JX _p gRp s[JX _p [JX ` gRp s[JX ` [JX `` gRp t[JX a [JX a gRp t[JX a [JX a 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@ + Ov D"g?F@ g?F@ g?F@ g?F@ g?F@ 'g?F@ +g?F@ .g?F@ 2 @ x a@c8 d "d $cX$^8&e*e@-ex1 " ?
u[JX aH gRp
u[JX a` gRp vgRp vgRp wgRp w[JX c [JX c@ gRp w[JX c` gRp x[JX c` [JX d gRp x[JX d( gRp " x[JX dH [JX dH gRp $ ygRp & y[JX d` [JX d` [JX dh gRp & z[JX dh [JX e gRp )
gRp )
[JX e [JX e [JX e gRp *
[JX e [JX eH gRp ,
gRp -
[JX eP [JX eP [JX eX gRp -
[JX eX [JX f gRp 0
gRp 0
[JX f [JX f [JX f gRp 1
[JX f [JX f8 gRp 3 4*@@ 4+ / 1 -= 0@ g O 4
-= 0@ g O G 4@ Ov !*( V ) V , <@ ` , "<L ` , <L , A<L *, B<L "A , D<L C, E<L , 7<L , ?<L ` + / 8 b-= 0@ + , mT <@ , >
Bh 'h 3,> ,> ,> #,> -= R+ / K ]-= 0@ + "E , m<@ , O>
Ph Ph Q,> ,> ,> ",> (-= \ ] 4-= 0@ + "@ , <@ ` Ov <Ov <+ /, @<@ U -= 0@ + D"g?F@ 5g?F@ 9g?F@ Lg?F@ Sg?F@ Vg?F@ ]g?F@ _g?F@ f @ p f04g8KiXUl cjpd " ?
gRp 4
[JX f@ [JX f@ [JX fH gRp 4
[JX fH [JX g@ gRp <
-gRp =
-gRp ?
.gRp A
.gRp B
/gRp D
/gRp E
0gRp G
0gRp H
1gRp I
1gRp K
2[JX i0 [JX i0 [JX i8 gRp K
3[JX i8 [JX i` gRp N
7gRp O
7gRp T
8[JX jH [JX jH [JX jP gRp U
9[JX jP [JX jx gRp W
QgRp X
RgRp ^
R[JX k` [JX l gRp `
SgRp b
T[JX l0 gRp c
UgRp c
U[JX l8 [JX l8 [JX l@ gRp d
[gRp e
[[JX lP [JX 0(A"E g, X>
^,> ,> ,> e,> b-= j, <@ + e, R<@ ` , b<@ ( (
k -= 0@ g O p -= 0@ g O G 4@ s t-= (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 " ,lx gRp g
^gRp l
_[JX mX gRp m
`gRp o
bgRp p
c[JX n [JX nx gRp w
d[JX nx [JX o gRp z
kgRp ~
lgRp
lgRp
m[JX p gRp
n[JX p [JX pH gRp
ugRp
vgRp
vgRp
wgRp
wgRp
xgRp
x[JX qh [JX qp gRp
zgRp
zgRp
{[JX r [JX r@ "D"A -= , <L , <L , <@ + , R<@ ` , f<@ g?F@ @ ` r8 "
gRp gRp gRp gRp [JX s@ gRp gRp .( Q + " o"L:_;&+v4 -= h -= , <@ {-= 0@ + PP",
<@ + $ c-= 0@ + #.6 V +, <L ,
<@ ,> ,> ,> ,> -= 4, W<@ , <L , 0<L (Q" 2, 8<L :, :<@ , 9<L L ,4V , <<L O, ><L 5, @
(<L R, A<L
+ " ( T-= 0@ + -= , <@ o, >
,> ,> ,> I D" g?F@ !g?F@ "g?F@ %g?F@ )g?F@ 5g?F@ Fg?F@ G @ ~ th(w`Cu(E " 8gRp gRp #
gRp $
[JX tH [JX tp gRp ' gRp ( [JX u [JX u [JX u gRp ( [JX u [JX u0 gRp + gRp , gRp . gRp 0 gRp 1 gRp 2 gRp 6 gRp 7 gRp 8 gRp 9 gRp ; gRp < gRp = [JX wX [JX wh gRp > $gRp @ %gRp A %[JX x0 gRp C &gRp D '[JX xH [JX xH [JX xP gRp E ([JX xP [JX xx gRp G (E/ gRp H 4 9(Q Q
L,> n-= L, <@ 0 ^,> ,> ,> O,> /-= Q@v Ov :@v O V "AE #.6 V U, C<L , .<L h V` , V<L 17@ c+ -= , <@ (" W 6 V + : _2v Z+ $ Y `-= $ 2D <+ b26 `+ d.6 " D( V f+ g/6 V + $ a h-= $ 3D >+ j/6 V i m/6 V n
A + s I'&Km -= h -= p $ j o-= $ 3D Ag O $ t @T" u-= $ 3D Fg O A 4D 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 " <gRp I 5gRp N 5gRp O 6gRp S 6gRp S 7gRp T 7gRp U 8gRp V 8gRp X 9gRp Z 9gRp [ :[JX {8 [JX {H gRp \ :E/ gRp ] ;gRp ^ <[JX {h [JX | gRp a =[JX | [JX |H gRp d >[JX |H [JX |` gRp f >[JX } gRp h >gRp i ?[JX } [JX } [JX } gRp j @[JX } [JX }P gRp m AgRp n AgRp p CgRp t C[JX ~H [JX P gRp } DgRp ~ D[JX h [JX h [JX p gRp E -((P h n,> ,> ,> ,> V-= .6 V + `> o,^o> ` K,
<@ 9EE
,> ,> ,> A,> 4-= , W<@ , 7<L , Z<L , <L , <L , <L , <L (QQ D, <L ;, :<@ 7@ 0+ , <L I, #<L , %<L , &
"P"<L
7@ [+ e V @v *, <@ + V +, (<L L =4V , .<L @ g?F@ g?F@ @ }H
|@
|
}s{@
0% . " ?gRp FgRp F[JX [JX [JX ( gRp
HE2X 9 gfh j POS1 gfh j POS2 gfh
J rDITTO[JX @ gRp
IgRp JgRp JgRp KgRp KgRp LgRp LgRp MgRp OgRp OgRp PgRp PgRp QgRp ! SgRp " S[JX ( [JX 8 gRp # S[JX P gRp % TgRp & TgRp ( UgRp ) U[JX [JX ( gRp * VgRp + WgRp , WgRp - X[JX ` gRp . YgRp / Y[JX x [JX gRp *(Q* 2, 0<L )7@ )+ - V -@v 4, <@ 5 V 5, 2<L , 8<L (P"E( , 9<L B, ;<L , <<L 37@ 3+ 7 V 7@v @, <@ A( V A, ><L + I C; y9M&tF@-= h -= F@v 1, <@ @v E (A ?-= 0@ + Ov 1L T4V Z2v C+ , <@ , m<@ , >
((@ h Ph P,> ,> ,> R,> -= WOv O 6 V U+ D g?F@ Hg?F@ Ig?F@ Mg?F@ X @ | @8 D E
[ x[ `[ " ? 0 ZgRp 2 [gRp 3 [[JX 8 [JX H gRp 4 \gRp 5 ]gRp 6 ]gRp 7 ^[JX gRp 8 _gRp 9 _gRp ; `gRp < `gRp > agRp ? a[JX x [JX gRp @ bgRp A cgRp B cgRp C d[JX @ gRp D e[JX X gRp E igRp J igRp J igRp K jgRp L j[JX @ [JX h gRp N xgRp O y[JX p [JX
gRp P z[JX
[JX
gRp Q {gRp S {gRp T |gRp Y |gRp Z }[JX 0 [JX 0 [JX 8 gRp [ *
[ L B-= 0@ + @v N+ [ W-= 0@ + @ g?F@ \g?F@ ` @ ` X_ " [JX 8 [JX ` gRp ^ [JX p gRp _
[JX p [JX
&(P
D aOv J+ _ Z-= 0@ + Ov K@v ^L T4V , H<@ + L f4V , HE"<@ , 7<@ , D<L , k<L 7@ Y+ , m<L , <@ Y, o(E
<L , r<L , t<L hL /4V , u<L ?, x<L :, y<L (DP
<, {<L l+ , |<L , <@ g, ?> ,> ,> ,> ,> `-= (@ , z<@ @ g?F@ cg?F@ @ ~
b
hh
Hhx|
~ h~ 0~ " ?gRp a
[JX
( gRp b
[JX
( [JX
P gRp e
gRp e
gRp f
[JX
` [JX
p gRp g
[JX h
"[JX i
"[JX j
"gRp k
#gRp m
#gRp n
$[JX o
%gRp q
%gRp r
&[JX @ gRp t
'gRp u
'gRp w
([JX p [JX gRp x
)gRp y
)gRp {
*[JX H gRp |
+gRp ~
+[JX ` [JX ` [JX h [JX h [JX h [JX h gRp ~
,gRp
-gRp
-gRp
.gRp -**" O-= 0@ + Ov 6L eA L aA L eA 4V S.6 V
` , <L , =<@ , 7<@ , <L , <L , <L M, <L (D(E , :<@ , <@ , <L }+ I+ L 4V @v S 1V + , <@ " Q d # + / _J$\V_? -= h -= ,, I<@ $ U " -= $ 3D D + D g?F@ g?F@ .g?F@ /g?F@ 2 @ |
@P&p( " ?
.[JX p [JX gRp
.[JX gRp
/[JX [JX X gRp
2gRp
2[JX p [JX gRp
3[JX [JX gRp
3[JX ( [JX ( gRp
4gRp
5gRp
5gRp
6gRp
6gRp
7gRp
7gRp
8gRp
8gRp "
9gRp #
9gRp $
:gRp %
:[JX X [JX X [JX h gRp &
>[JX h [JX x gRp '
>[JX gRp (
?[JX [JX gRp )
@gRp +
AgRp 0
AgRp 1
B[JX [JX @ gRp 4
B[JX @ [JX * 4+ /, .<@ ` + I, =<@ 7@ + @ x 846 "
@ [JX H gRp 4
BgRp 6
C[JX ` [JX ` [JX h gRp 6
DgRp 7
D[JX x [JX +( 8, $<L , <L -= 1@ + L
4V L 74V , 8<L Q , ?<L L >G 4V , A<L , D<L 7@ =+ , E<L 6 " E V + : J,> , z1l ;3 x g O / 4@ $ M K-= $ D R"Q(2V K+ , "<L h R U2V v+ , T<L h V, W<L h U+ K, H<L "(Q 7@ G+ , Z<L , ]<L , ^<L [, <@ P @ g?F@ <g?F@ Q @ ~ ;pA8E`GxI(K8UhXxZH^ " ?gRp 8
EgRp :
F[JX 0 gRp ;
G[JX 0 [JX X gRp =
H[JX X [JX h gRp >
I[JX h [JX x gRp ?
I[JX gRp A
IgRp B
J[JX ( [JX @ gRp D
J[JX X gRp E
J[JX p gRp G
K[JX p [JX gRp H
K[JX gRp I
L[JX [JX gRp P
MgRp R
M[JX ( [JX @ gRp T
M[JX X gRp U
N[JX X [JX p gRp W
N[JX gRp X
N[JX ( gRp Z
OgRp \
P[JX @ [JX P gRp ]
P[JX h gRp ^
PgRp `
QgRp '(
" c, ?> ,> ,> ,> b,> -= e, z<@ f+ ; CG \L &A
D("L A 4V L B4V , `<L @, n<L , o<L _, q<L a7@ i"D(+ , r<L , u<L r, v<L s, :<L , x<L ^, z<L w"D ", |<L !L j4V 7@
+ , }<L + , <L , <L y7@ tD + 7@ ?+ , <@ 7@ i+ g?F@ f @ x Pi Xo Ht H ( x x h " ? a
QgRp c
RgRp g
R[JX gRp i
S[JX [JX P gRp m
T[JX P [JX ` gRp n
T[JX x gRp o
UgRp q
UgRp r
V[JX @ gRp t
W[JX @ [JX P gRp u
XgRp v
XgRp x
YgRp y
YgRp z
ZgRp |
ZgRp }
[[JX p gRp
^[JX p [JX gRp
_[JX [JX gRp
_[JX 0 gRp
_[JX H gRp
_[JX ` gRp
`[JX ` [JX p gRp
a[JX p [JX ! gRp
a[JX ! [JX ! gRp
b[JX ! [JX ! *DE
L kA G 4V , <L , y<L ,
<L , @ x !8
gRp
c[JX ! [JX !@ gRp
c[JX !X [JX !X gRp
dgRp
e $"E@( <L }, <L ~, :<@ , <@ + I> o,^o> ` K b (-= 0@ D+ , J<@ , I<@ $ 1 " -= $ 3D 3+ + , .<@ ` , <@ + (
~-= 0@ + , J<@ + ) M&t;gP -= h -= &7@ W+ "A
, <L V, +<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 "X gRp
jE2X M( gfh j (ERRCOUNT gfh
J HANSWERFINDgfh
J zWHICHCONTROL gfh
J .ORDERLOOP [JX "p gRp
k[JX "p [JX # gRp
qgRp
rgRp
r[JX #8 [JX #h gRp
r[JX #h [JX #h [JX #p gRp
sgRp
sgRp !
t[JX $ [JX $ [JX $ gRp "
u[JX $ [JX $H gRp $
xgRp %
ygRp *
y[JX % [JX %0 gRp +
y[JX %H gRp ,
zgRp .
zgRp /
{gRp 1
{ ( 4, 2<L ` , , " gRp 2
|gRp 4
| Q 6<L + , <@ d * + = G",:vS:+ -= h -= :, I"<@ $ " -= $ 3D + , <@ d 8 $ ? " -= $ 3D A+ , I
<@ + D+ L G>vLWY2Mi- -= h -= I, .<@ ` + "+ R gR~@-= 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 " ?gRp 5
}gRp 7
}[JX &p [JX &p [JX &x gRp 7
gRp S
E2X Q( gfh j FCONTROLCHAR gfh j jLANGUAGE gfh j 5CARRIAGERETURN gfh j 7LINEFEED gfh j (TABCHAR gfh j zBLANKgfh j HEXCLAMATION gfh j VANSWERLENGTH gfh j CSAVEANLEN gfh j ZPOS gfh j !POS2 gfh j PWPOS gfh j YCHARVALUE gfh j SDOUBLEQUOTE gfh j iA T " ?gfh j kZ gfh j 'FORMFEED gfh j DOT gfh j YQCOUNT gfh j /TEXCOUNT gfh j XSEMICOLON gfh j cCOLONgfh j lEQUALSIGN gfh j $ERRLINES gfh j LABELCOUNTgfh j LINECOUNT gfh j MLEFTSQUAREgfh j PRIGHTSQUARE gfh j %SWITCHCOUNT gfh j SWITCHNUMBER gfh j QRIGHTMARGIN gfh j qLCAA gfh j tLCAE gfh j vLCOE gfh j {UCAA gfh j ~UCAE gfh j UCOE gfh j yLCE gfh j UCE gfh
"CONTROLSTART gfh
hWORD gfh
FLESSONNAMEgfh
TCOPYRIGHT gfh
^TEACHER gfh
DANSWER gfh
rFIRSTRIGHTgfh
zPREVIOUSLAB gfh
,NEXTLESSONgfh T " ?
fTEMP gfh
QUESTION gfh
LAB gfh
MAINLAB gfh
RSAME gfh
/INFILE gfh
SWITCHWORDgfh
.LINENUMBERgfh .
SWITCHNAMEgfh j EXTRAgfh j
EMPTYgfh j mORDERgfh j RIGHTgfh j
NEUTRAL gfh j 'ALLNEUTRALgfh j OPENED gfh j PUT gfh j pSGNOSIS gfh j LNOCONTROLCgfh j *TRANSFERLESSON gfh j )JUSTIFY gfh j CONTROLINLINE gfh j "BELL gfh j 3NAME gfh j wLOCK gfh j =DISK gfh j LACK gfh j ZEROPRINTED gfh j bKEEP gfh j nRIGHTFOUNDgfh j SKIP gfh j LINENUMBERED gfh (j SWITCHVAL gfh (j$IFSETgfh (jiIFVALgfh T @ @ F`RS8 `!u = " ?<JWMAKEMAINLAB gfh <J.GETCONTROLSTARTgfh <JzUPCASE gfh <JmPASTOPERATION gfh >
?GETWORD gfh <J DELETgfh <J ERRMESS gfh <J IGETLINE gfh <J ALGLIN gfh <JTEXTLINE gfh <J:TEXTLINES gfh <J
SHORTALGOLgfh <J GOANYWHERECOMMANDS gfh <JPUTAWAY gfh <J7UNKNOWNMESSAGE gfh <JHZEROPRINT gfh <JRCHECKPRECEDENCEgfh <J@PUTVARIABLES gfh <JbPUTPROCEDURES gfh <J
J STARTgfh
J QSTOP gfh
J LEAVEFOR gfh
J .STARTLOOP gfh
J !WHICHCONTROL gfh T+ h H X =3340: A command @ wx $) z`TpU U XV zXV(0W(8W "
J <CHECKLINE gfh
J (FINCLOSE gfh
J KCONTROLLINE gRp T
E2X Q( - Z line is required at this point. As a result,[N]****** this line up to next command line will be ignored. H f 63330: Command is out of place here. As a result,[N]*** *** this line up to next command line will be ignored. H r ...and is ready.[N] H u @ [N]END;[N]H w extratest;[N] H y wrongmessage H | rightmessage @ H ~ GOTO H IF NOT here(endofline) THEN GOTO H LACK H ") TH @ ~ 'e&hq%Xt!Pv @x { `} 88 7 @ EN GOTO H pos:= 1;[N]IF NOT anywhere(" H
here(" H anyw H IF8NOT H pos:= 1;[N] H pos:= 1; H 13200: Expected answers must precede first [N]****** empty answer pattern. Command will be ignored. H ! SAME H # 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] H 5 giveanswer;[N] H 8 [N]simulate:[N]H : skip:= FALSE;[N ]GOTO simu @ xh P
back:= FALSE;[N]GOTO H E @ IF back THEN[N]H H stop:= FALSE;[N]GOTO endoflesson;[N]END;[N] H M IF stop TH EN[N]H P tryagain;[N] H R BEGIN[2N]repeat:[N] H U IF FALSE THEN[N] H X firsttry:= TRUE;[N]lastrights:= lasterrors:= 0;[N]H ^ BEGIN[N]INTEGER subb lock;[N] H b
[4N]COMMENT: Question H f QZXAAA H h BEGIN[N]pause;[ N] H k [4N]COMMENT: Text H n [2N]PROCEDURE H p @ xX>ADpGxL`OHQ0T Wh]zxay(ewPguXjpXml o 3 p )2727: Ignore this message if you meant to omit[N]****** teacher's name and addre ss. H z .SRT<155> files to receive teacher reports. H .DTA<155> and H @ ****** H 2651: Ignore this message if you have createdH /2545: Swit ch value neither 'TRUE' nor 'FALSE'.[N]****** The effect of this error is undefined. H FALSEH TRUE H +2538: More than 9 switches not allowed.[N]THIS switch w ill replace the old number nine. H ! 2536: This switch is @ x i yhP~h gp d@ ch c 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.. H 5 SWEDISH H 7 ENGLISH H 9 ;2482: The GNOLIB.REL file must reside i n 'SYS:'. [N]****** Load as follows: '.LOAD <lessonname>.ALG, SYS:GNOLIB.REL'. H F ; 2456: The GNOLIB.REL file must reside in 'SYS:'. [N]****** Load as follows: '.LOAD <lesso nname>.ALG, SYS:GNOLIB.REL'. H S =2435: A command line is required at this point. A @ _h %]P -] 4\@ 6[ 8Y` EX R 8 Xs a result,[N]****** this line up to next command line will be ignored. H a 2430: You are not using '%' as a command indicator. H g % H i " has begu n...[2N] H l [2N]Translation of the lesson " H p O H r N H s @ -->[B] H u &[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] H Copyright (c) 1978 by Jacob Palme and Walter ManerH
GNOSISuVersionk2i(Ju @ ne, 1978)[N] H @ p WP `W fP0 hP kMP oLx qEH rE0 tB }Ah AP @P 5" TTY H E H @ H # H $ H e H ` H { H } H Z H ]] H ! " H " ! H $ = H % : H ' G H ( L H * A H + . H - GOTO next;[N] H / GOTO repeat;[N]H 2 =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 SAME H A #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.H I Write("!");[N] H L %IF firstname # "" TH EN[N]BEGIN[N]Write(", ");[N]Write(firstname);[N]END;[N]H T Write("[[2N]]Have a nice day");[N] H Y Openfile (1,"");[N]Openfile (3," H ] Selectinput(1);[N]Selecto utput(3);[N]Transfile;[N]H c .SRT", %155);[N] H f Closefile(1);[N] H i Openfile (1,"");[N]Openfile (2," H n Selectinput(1);[N]Breakoutput;[N]Selecto utput(2);[N]Transfile;[N] @ x !H H!0 K! S X \ P b ( e ` h H m 6( tH u .DTA", %155);[N] H x Openfile(1," H { ""...[[N]]");[N] H ~
GOTO mess;[N]END;[N]H
Write("MEDDELANDE: ");[N]H
Write("MESSAGE:U");[N] H H END;[N] H IF back THEN[N] BEGIN[N]back:=NFALSE;[N]GOTO H Write(prompt);[N]Breakoutput;[N]getline;[N] H ! [N]mess:[N] H $ $Write("Sluta medaattHtrycka en extra g}ng p} RETURN-knappen. @ t @ w X z ( } p P P @ H p X # 5 *[[2N]]");[N] H , %Write("Om Du har n}got meddelande till l{raren, s} skriv det @ nu.[[N]]");[N]H 5 (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]H G )Write(" totalt av[[NT]]-");[N]Print(qcount,3);[N]Write(" givna fr }gor.[[2N]]");[N] H P 6Write(" 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 =h F0 O [ 8( @ H ` Write(" f`rstasvar och[[NT]]-");[N]H d Write(" right answers on first tries and[[NT]]-");[N] H k 4Print(latepercent,2,1);[N]Write("% (");[N]Print(percen @ t,2,1);[N]Write("%)[[NT]]-");[N]Print(score,3);[N]H v
P 6i gs(not"theHlisting H Dettasblad[kommeriatt[skrivas|ut p} radskrivaren. H [[2N]]Denna lektion har producerat ett rapportblad till l{raren. H ' Write("Thi s 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]H 7 $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]Pr int(score,3);[N] H F "Write(" fr}gor, [[N]]och Du gav r{tt svar");[N]Print(latesco @ P &8 -X 6@ ?( E 8 @ Lre,3);[N] H N "" {r slut.[[N]]Du har svarat p}");[N]Print(qcount,3);[N] H U Write("Lektion "" H X %Write(" questions your answer was right on your very fi rst try.[[N]]");[N] H ` Write(" times.[[N]]On");[N]Print(score,3);[N]H f (Write (" questions,[[N]]and you gave the right answer");[N]Print(latescore,3);[N]H o "" yo u answered");[N]Print(qcount,3);[N]H t
GOTO start;[N]END;[N] H !Write("utan m}steba cka(till lektionens} @ ~ M` T( W ax e` n0 splexitet[[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 u nable to go back just ONE step [[N]]");[N] H # :[N] H %
IFFALSE THEN[N]BEGI N[N] H ( ZQXAAA H * END of block started with makeblock INTEGER;[4N] H 0 BEGIN[N]INTEGER blockmaker;[N]H 4 [N]start:[N] H 7 page;[2N] H 9 @ @
X
@ "( "
x $C ' X )x /` 3 6p 8 6 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 hoppa H I (Write("[[N T]](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 c Write("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 i 8 nETURN-knappen.[[N]]");[N]H r $Write(" on your terminal and then pushing the RETU RN 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: Yo u 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}n H !& Write @ x P q y {h! !h!h!P! 8!% 6 @ !&("[[N]]producerad av GNOSIS-systemet ");[N] H !, ,");[N] H !. '");[N] H !0 Write("[[2N]]Detta {r lektionen ' H !4 ,Write("Stockholm, Sweden, and the O ld Dominion University Research Foundation.[[N]]");[N] H !> ,Write("instruction (CAI) from the Research Institute of National Defense[[N]]");[N] H !H -Write("This les son was produced by the GNOSIS system for computer aided[[N]]");[N]H !R
Write @ (".[[2N]]");[N]H !U Write(",[[N]] H !X Write("'");[N] H !Z
Write(lessonnam @ ~ )!+ 0!- !/H!30!=!G !Q p!T}x!W}`!Y 7N@ !\e);[N] H !^ Write("[[2N]]WelcomeDtoNtheRlesson]'");[N] H !c )Write("[[N ]]SP$RNING AV OV#NTADERSVAR:[[N]]");[N]Breakoutput;[N]Selectoutput(0);[N] H !m ]);[N]H " Write("STU DENT'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 "a tempfile2.[[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 "2 tempfile1.[[pos+2]]:=i"D".[[1]];[N]H "6 ELSE.pos:="posN- 2;[N] H ": tempfile1.[[pos+1]]:=ptempfile2.[[pos+1]]:=m".".[[ 1]][N] H "A IF firstname.[[Length(firstname)]]a# ".".[[1]]oTHEN) H "G 5FOR p @ p y"y "xh"xP" x8"#xa"(x",wp"1wX"5w@"9w("@w"F 6 "Hos:= 1 STEP 1 UNTIL Length(firstname)@DOtempfile1.[[pos]]:= tempfile2.[[pos]]:= firs tname.[[pos]];[N] H "S tempfile1:= tempfile2:= Newstring(Length(firstname)+5,7);[N] H "Z Write(firstname);[N]Write("!");[N] H " firstname:=Copy(answer,1,pos-1);[N] @ H "c BEGIN[N]pos:=pos+1;[N]GOTO nameloop;[N] H "h
Selectoutput(0);[2N]H #q putmessage;[N] H #s L{raren {r tacksam om Du s{nder denna lista till honom.H #z Please 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 f el 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$R 4 A $Vtre nu. H $X Bra! H $Z
Du svarade r{tt igen. H $] Korrekt. H $_ R{tt!H $a Precis r{tt. H $c Utm{rkt! H $e Javisst! H $g Mycke t bra. H $j Bra gjort!H $l
No, you missed this one. H $o You're mistaken . H $r
Thatywasn'twcorrect.H $u Sorry. H $w rrect!H $} Your answer was wrong. H %
h($Wh$Ygx$\g`$^gH$`g0$bg$dg $ffh$if0$kf$nf $qeh$teP$ve8$ze $|e% dp%x dX%d@% 1 %
e hang 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 %1 That's it!H %3 Well done!H %5 Right! H %7 Exactly right! H %: Bravo @ xd(%
d%cx%c`%cH% c0% c%#c %&bh%)h@%-b8%.b %0b%2ap%4aX%6a@%9 3" %:! H %< Sure!H %= Very good.H %? Good for you! H %B ]]:= " A H %D [[ H %E wrongH %G rightatlast H %I rightH %K lessonname := " H %M ".[[1]];[N] H %P controlstart:= " H %S randno:= 1;[N]nopaus e:= skip:= message:= FALSE;[N]H %Y !endofline:= Newstring(1,7);[N]endofline.[[1]]:= ca rriagereturn;[N] H %a
char:= Newstring(1,7);[N]H %d answer.[[134]]:= carriage return;[N]answer.[[135]]:= linefeed;[N] H %l 0answer:= Newstr @ xa(%;a%<`x%>_x%A98%C^8%D]X%F\x%H[%JZp%LZ@%OZ(%RZ%XYx%`Y`%cYH%k 3 %ming(135,7);[N]answercopy:= Copy(" ");[N]firstname:= "";[N]prompt:= Copy("-->");[N] H %w lcaa:= "}".[[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:= s core:= lastqcount:= lastqkount:= qcount:= 0;[N]carriagereturn:= 1 @ p Y0%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 an swer:[[2N]]-->");[N]H &> Newline;[N]personalize("Just for the record,");[N]H &D @ %RIGHT command for the preceding %QUESTION;[N] H &J The answer given will always b e the one following the FIRST[N] H &Q the question or who repeatedly fails to give a right answer.[N] H &Y @ x W@&#W(&)W&.VX&5V@&=Ux&CU`&IUH&PU0&X 6 &X 'COMMENT: 'Giveanswer' displays a right answer to a student who is skipping[N] H &b
PROCEDURE giveanswer;[N] H &e [N]Newline;[N]Newline;[N]END;[2N] H &j , IFulasterrors > 3 THENwWrite("[[N]]Eller...avbryt2lektionenrgenom attHskrivatsymbolenY"" a H &t ,IFilasterrors =o3eTHENtWrite("[[N]]Ddushar eliminerat'fleram`jligheter(redan.") gELSE[N] H &~ personalize("F`rs`knigen.");[N] H ' "".");[N] H ' *IF la sterrorse>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'E 7 'E 'Tryagain' will output to such students a 'try again' message[N] H 'M !answe r, or an incomplete answer are usually repeated by GNOSIS.[N] H 'U "COMMENT: Quest ions output to students who give no answer, a wrong[N] H '] PROCEDURE tryagain;[N] H 'a end noanswer;[2N] H 'd "".[[N]]");[N] H 'f Write("Om Du vill g} ut u r fr}gan, s} skriv det enda tecknet "" H 'n personalize("??? Du gav inget svar alls. ");[N]Newline;[N] H 'u &Write("If you want to interrupt the lesson, then type the si ngle character @ ` PP'LP8'TP '\P'`Op'cO@'eO('mNp't 7" '|"" 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 veta H ( Han beh`ver den f`r att kunna g`ra lektionen b{ttr e. 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 will H (1 He ne eds the li @ @ NX'}N(Mx(MH(
M(Lp(LH(L( K`(%K8(*K(0 6 (3sting to improve the lesson. H (7 was 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 (d Write(question);[N]Write(": ");[N] H (h @ ~ JH(6J0(;J(BJ (IIh(Q h(UH(XHH([H0(ch(g 6 @ (hSelectoutput(2);[N] H (k Breakoutput;[N]H (n
BEGIN[N]INTEGER i;[N] H (q VALUE 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 writ ten 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]lastqkou nt:= qcount - lastqkount;[N] H )3 or 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 )I REAL PROCE DURE lastlatepercent;[N] H )N 'lastpercent:= IF lastqcount = 0 or x = 0 THEN 0.0 ELSE @ | E)&DX)2D@)5D()?D)HC`)M 9 )S100.0 * x/lastqcount;[N] H )W .x:= score - lastscorekount;[N]lastscorekount:= sco re;[N]lastqcount:= qcount - lastqcount;[N] H )a
BEGIN[N]INTEGER x;[N] H )e on the very first try since this PROCEDURE was last called;[N] H )l (COMMENT: 'Lastp ercent' returns the percentage of questions answered correctly[N]H )u REAL PROCEDURE @ lastpercent;[N]H )y 1BEGIN[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 @ *
called whether student was correct on the[N] H * %COMMENT: 'Lastlatescore' retur ns number of questions answered correctly[N] H * INTEGER PROCEDURE lastlatescore;[N] H * 'BEGIN[N]lastscore:= score - lastscorecount;[N]lastscorecount:= score[N]END;[2N] H *' very first try since this PROCEDURE was last called;[N]H *. &COMMENT: 'Lasts core' returns number of questions answered correctly on the[N] H *7 INTEGER PROCEDU RE lastscore;[N] H *; ,latepercent:= IF qcount = 0 or latescore = 0 THEN 0.0 ELSE 1 00.0 * lat @ B*Ap*AX* A@*&A(*-A*6@x*: 7 *Bescore/qcount;[2N] H *E student was correct on the first try or afterward;[N] H *L by the student since the start of the lesson whether[N]H *R (COMMENT: 'Latep ercent' returns the percentage of questions answered correctly[N]H *[ REAL PROCEDURE @ latepercent;[N]H * &percent:= IF qcount = 0 or score = 0 THEN 0.0 ELSE 100.0 * score/ @ qcount;[2N] H *h #by the student on his very first try since the start of the lesso n;[N]H *p &COMMENT: 'Percent' returns the percentage of questions answered correctly[N ] H *y @ ` 7X, 7@,#7(,+7,46x,;6`,B6H,I60,P 7 ,Rver she has finished examining the displayed material.[N] H ,Y in 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 ,h at a time. Another reason is that display ter @ minals have[N] H ,o One 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]qc ount:= qco @ ` 6,X6 ,5h,g5P,n58,u5 ,}4p- 4@- 7 -unt+1;[N]firsttry:= FALSE;[N] H -
lasterrors:=slasterrors+1;[N] H - provi delsomecvariationNinlthe;conversation;[N] H - are used-to choose betweenaten diff erentmessagesin0order[N] H - and-thelesson6statisticseare[updated.t Randomtnum bers[N] H -% has)made an erroneousFanswer.rHesis told aboutNthis,[N]H -+ COMME @ NT:S'Wrongmessage'risncalledrwhen[arstudent[N] H -2 errors > 1 THEN Write(rightatlast[[random]]);[N]END;[N]H -W personalize(right[[random ]]);[N] H -[ "BEGIN[N]score:= score+1;[N]qcount:= qcount+1;[N]firsttry:= FALSE;[N] H -c IF firsttry THEN[N] H -f lastrights:= lastrights+1;[N] H -j some varia tion to the conversation;[N] H -o used to choose between ten different messages to g @ ` 1p-E1@-I1(-V1-Z4(-b0`-e00-i0-n 7 @ -tive[N] H -v only after previous fruitless attempts. Random numbers are[N] H -~ depending on whether he succeeds on the fist try or[N] H . score is update d. The message to the student is different[N]H . made a correct answer. He is told a bout 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 .6 BEGIN[N]IFofirstname = ""vORdrandomo<y8NTHEN Write(message)[N] ' H .> usesrthenstudent'sifirstname insconv @ ersational[N] H .Z "PROCEDUREapersonalize(message);[N]VALUE message;[N]STRING message @ .(....5-x.=-`.A-H.I-0.Q-.Y 8" @ .a;[N] H .b
BEGIN[N]ihavebl anked:= 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 resto re;[N] H /,
anywhere:=EFALSE;[N]H // BEGIN[N]pos:= nextpos;[N]GOTO]blankline; [N] H /5 [N]nofit:[N]IFsanswercopy.[[pos]]#fcarriagereturn THEN[N] H /< anywh ere:=tihaveblanked:=HTRUE;[N]GOTOIout;[N] H /B BEGIN[N]answercopy.[[cpos]]:=blank ;[N] H /G FOR 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/L 6 @ /Npos+1;[N] H /P BEGIN[N]INTEGER cpos, nextpos;[N] H /U '%NOEXTRA mode, his a nswer will be wrong if any non-blank characters remain;[N] H /^ any non-blank charac ters in the student answer. In the[N] H /e %NOEXTRA mode) to determine whether ther e are[N] H /k the matched strings. This allows the program (e.g., in the[N] H /r 'Anywhere' will substitute blanks for all characters in[N] H /y the %EXTRA mode and in the %NOEXTRA %NOORDER mode.[N] H 0 unmatched strings will be bypassed. 'Any @ ` &h/O&P/T&8/]& /d&/j%p/q%X/x%@/ 8 0where' is used in[N]H 0 found anywhere in the student answer after 'pos'. Blan ks and[N] H 0 "COMMENT: 'Anywhere' determines whether the argument string can be [N] H 0 BOOLEAN PROCEDURE anywhere(comp);[N]VALUE comp;[N]STRING comp;[N]H 0 [N]ou @ t:[N]END;[2N] H 0! [N]nofit:[N]here:= FALSE;[N] H 0%
BEGIN[N]INTEGER cpos;[N] H 0G for answers matched in the %NOEXTRA mode;[N] H 0M else, may precede the matching word. 'Here' is mostly used[N] H 0T beginning at 'p @ os' in the student answer. Blanks, but nothing[N] H 0\ #COMMENT: 'Here' determines whe ther the argument string can be found[N]H 0d BOOLEAN PROCEDURE here(comp);[N]VALUE co mp;[N]STRING comp;[N] H 0k
END;[2N]exit:[N]END;[2N] H 0o 'Write("Du vill inte @ x ' 0<"X0C"@0F"(0L"0S!x0[!`0c!H0j! 0n 7 0qavbryta nu. Forts{tt d} med ditt ordinarie svar.[[N]]");[N] H 0x Write("to the P @ REVIOUS '-->' or 'RETURN' prompt...[[N]]");[N] H 0 Write("Please continue, then, giving your response[[N]]");[N] H 1 ??? Backing not allowed in this lesson. H 1
N ] N]back:= TRUE;[N] H 1 Lektionen g}r tillbaka. H 1 Lesson is backing. H 1 BACKAH 1 BACK H 1
END[N]ELSE[N]BEGIN[N] H 1 ??? @ H 1 ???0Skippingnot allowedinthis lesson.H 1# 81 1"h1& 5 @ 1'Fr}gan skippad.H 1* Question skipped. H 1- BEGIN[N]Write("H 1/ ") TH EN[N]H 11 SKIPPA H 13 SKIP H 15
pos:= 1;[N]IF anywhere(" H 18
GOTO @ exit;[N]END;[N]H 1; Write("Lektionen avbr`t.[[N]]");[N]H 1@ Write("Lesson aborte d.");[N] H 1D stop:= TRUE;[N]H 1F ") THEN[N]BEGIN[N] H 1I STOPPH 1K STOP H 1L BEGIN[N]quit:= FALSE;[N]IF anywhere(" H 1Q IF quit THEN[N]H 1T @ END;[N]END;[N] H 1V quit:= TRUE;[N]GOTO again;[N] H 1Z Write(prompt);[ @ 01) P1, 81.@1012 814@17(1:p1?@1C(1E1HX1J(1K1P;1S`1UH1Y 2 1\N]Breakoutput;[N] H 1_ Outsymbol(controlg);[N] H 1b Write("""FORTS#TT"" om Du vill forts{tta.[[N]]");[N] H 1i *Write("""BACKA"" om Du vill g} tillbaka till en tidigare del av lektionen,[[N]]");[N]H 1r Write("""SKIPPA"" om Du vill skippa denn a fr}ga,[[N]]");[N] H 1y "BEGIN[N]Write("Svara ""STOPP"" om Du vill l{mna lektionen,[[ N]]");[N] H 2 Write("or 'CONTINUE'.[[N]]");[N] H 2 Write(", 'SKIP', 'BACK', ");[N] H 2
BEGIN[N]Write("AnswerH'STOP'");[N] @ ` H1^1ap1hH1q 1xh2 P2(2 7( 2H 2 BEGIN[N]IF answer.[[1]] = controlstart THEN[N] H 2
ihaveblanked:= FALSE;[N] H 2 Delete(answercopy);[N]answerco py:= Copy(answer,1,i);[N]H 2# IF answerlength < 0 THEN answerlength:= 0;[N]H 2( , [N]out:[N]Insymbol(t);[N]i:= i+1;[N]answer.[[i]]:= t;[N]pos:= 1;[N]answerlength:= i-2;[N] H 22 GOTO again;[N] H 25 END;[N] H 27 IF t = carriagereturn THEN GOTO out ;[N] H 2<
answer.[[i]]:= t;[N]H 2? IF t = lcoe THEN t:= ucoe;[N] H 2C IF t = lcae THE @ p x2`22022" 2'!21P24826 2;2>p2B 5 2DN t:= ucae ELSE[N] H 2G IF t = lcaa THEN t:= ucaa ELSE[N] H 2L ELSE[N] @ H 2N ;[N] H 2O IF t >= 97 AND t <= 122 THEN t:= t-32 H 2T COMMENT: Lower case transform;[N] H 2Y BEGIN[N]Insymbol(t);[N] H 2\ [N]again:[N]FOR i:= 1 STE P 1 UNTIL 132 DO[N] H 2b Breakoutput;[N]quit:= FALSE;[N] H 2f BEGIN[N]INTEGER s, t, i;[N]BOOLEAN quit;[N] H 2l to interrupt the flow of the lesson;[N] H 2q to see if the student typed '%', indicating that he wanted[N] H 2x #dumping it @ p X2F@2K X2MX2N@2S(2X2[x2a`2eH2k02p2w 5 2y in the STRING 'answer'. Column one of the line is checked[N] H 3 !COMMENT: ' Getline' reads in a line of text input by the student,[N] H 3
PROCEDURE getline;[N ] H 3
FORWARD BOOLEAN PROCEDURE anywhere;[2N] H 3 FORWARD PROCEDURE putaway ;[N] H 3 EXTERNAL PROCEDURE pub, nolpt, run, r;[2N] H 3 EXTERNAL PROCEDURE s topkc;[2N]H 3 STRING ARRAY right, rightatlast, wrong[[0:9]];[2N]H 3% 1STRING ans wer, answercopy, char, endofline, lessonname, firstname, tempfile1, tempfile2, prompt @ ` 3
h3 p3 X3$ 7" 3.;[N] H 30 INTEGER lastrights;[N] H 33 INTEGER randno, answerlength, contr olstart, controlg, uparrow;[N]H 3; INTEGER lcaa, lcae, lcoe, ucaa, ucae, ucoe;[N] H 3A )INTEGER lastscorecount, lastlatescorecount, lastscorekount, lastlatescorekount;[ N] H 3J 7INTEGER lasterrors, score, latescore, qcount, lastqcount, lastqkount, carri agereturn, linefeed, pos, blank;[N]H 3V #BOOLEAN firsttry, ihaveblanked, nopause, skip , back, stop, message;[N]H 3^ ; H 3` COMMENT: This lesson was written by[N] H 3e @ x @3/ (32 3:
`3@
H3I
03U7p3] X3g`(3d 6" A 3e";[N]H 3f nCOMMENT:;This isHthelessonr"H 3j BEGINH 3l 71161:.[Command[ is outof placethere.doAstauresult,[N]******nthis.line]up;to]next4commandElineNwill beign @ ored.H 3x noanswer;[N]GOTOrepeat;[N]END;[N] H 3| =0974: A command line is required at @ | P3e83iP3k yh3w y83{ x83 x4 w`4p4~h4 s 4 r@4 oh4 6 4 this point. As a result,[N]****** this line up to next command line will be ignore d. H 4$ -0943: Semicolon omitted at end of '%GOTO' command.[N]****** GNOSIS will sup ply one for you. H 4/ H 40 pause;[N] H 42 Newline;[N] H 45 @" [[N]]");[N] H 47 Write(" H 49 H 4: 80527: Unrecognized command line fo und. As a result,[N]****** this line up to next command line will be ignored. H 4G AIFN H 4H IFE H 4J IF H 4K FIN H 4M NEX H 4N NOC H 4P @ ` jp4#8@4.h4/41 h44 [X46848 6X49 64F 5h4G 584I"x4JYx4LY 4M^ 4O 4" 4PSWI H 4Q SGN H 4S LAN H 4T COP H 4V LOC H 4W DIS H 4Y DSK H 4Z BEL H 4\ KEE H 4] NAM H 4 TEA H 4` END H 4b QEN H 4c ALG H 4e INI H 4f PRO H 4h VAR H 4i HEL H 4k NOJ H 4l JUS H 4n TEX H 4o GOT H 4q GO H 4r LAC H 4t NEU H 4u QUE H 4w NOE H 4x EXT H 4z NOO H 4{ ORD H 4} SAM H 4~ WRO H 5 RIG H 5 0392: %IFEND on non- @ ]h4P[(4Ri@4Se(4Ug4VfP4Xe`4Ydp4[f4\jX4^$(4tP4arP4br 4do 4elX4gp(4h dp4j` d84ku4m g@4n g4p
04q x4sxX4t e`4v e(4w fP4y f4z"04| @4} H4 05 + 5active switch -- will have no effect. H 5 &0371: Unknown switchname in %IF-cla ss command.[N]****** Line will be ignored. H 5 $0368: No switchname in %IF-class co mmand.[N]****** Line will be ignored. H 5 IF H 5 $------------------------- @ ---------------------------------------------[N] H 5$ 0324: Command character not fi @ rst in line. H 5) 0322: Character after line-number is not TAB. @ | 5 x5 05 85 5# P5( ( 5.H 5/ 0316: Long input line will be truncated to 132 characters. H 56
****** ERROR Message No. H 5= : H 5? LINE @ p 5. 55 59H5< x5> h 7U*U*UWx 7O Ix (` ]( 6P 6x 5 ( 9
` 0 ( t U*U*U 0 =
=8
4p S {
up
DH Bp Bh 9X : dP `( U*U*U: > >@ >h ?8 ?` @ ? @0 $L rp X hh U j@ j0 k` 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 /p 0gP 0 ` 1 1l( 2
`pe /`pe% 1`peM