PDP-10 Archive: 43,50323/gnosis.sav from decuslib10-04

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50323/gnosis.sav

There are no other files named gnosis.sav in the archive.

h'v571+x)5x-v7x/-=}x0<@-=,>g,>g "p@ $4x"&"(-=,>g,>g "F@ $5"&"(-=,>f,>g "F@ $5"&"(-=,>g,>g "F@ $5"&"(-=+W-=A<@,5X1l1`+G,5a<L+h-=zPH<@v,6w<L` 4_0V+i7@5+W,5+>

4w,>,>,>4p,>4p-=4p,6<L4p,A<@4p+^,6<L4O+[ 4`/6 ,~,63<LQ`Y`,6<L4M,5+>

4l`h4W,>,>,>4p,>4p-=4p,6<L4p,5{<L 4W1v+i,A<@4p 6 V4_+@h4@m,6<L4J+o,6<L4F,6<L,5{<L,6w<L`+h-=kxt<@-=+w-=h 4`.6 V4`@vh7@5+ 6 Vh+|:h0v+,5l<L` h $4w h-=v+|,5l<L` h1vgO Vh@v4 6 Vh+:h0vB++-=h,5l<L` h $4l h-=v h2V4S+ h1V+Ov4 h2V4U++ h2V4[+,5t<L` h0V++ h.6 Vh++,H<@`4?+-=h h/6 V4W $4l "-=$2D4V+$+w7@h+(,H<@`49++7@4++,H<@`44 4_1v+O 4_/6 V4_,6w<L`7@5+8,5+>

4w,>,>,>4p,>4p-=4p,6<L4p,A<@4p+@,6<L4O+< 4`/6 ,~,63<LQ`:`,6<L4M,5+>

4l`h4W,>,>,>4p,>4p-=4p,6<L4p,5{<L4W1v+K,A<@4p40V+N,6<L4+,6w<L`$4l"-=$3D4S+S+,F<P`4g4*-=0@+,]<P,R>,>,>,>4v,>4v-=4v,<P4v,5X1l4v0`+b,H<@dh4!6V4b+d:4b2v4a+j4b..4xX4v-=0@+i+n+c,H<@dh4+w+n-=h$4l"-=$2D4fgO$4l4"-=$2D4fgOG4D|5.4bLX4Vz,H<@`445.4b@vX+5.4bOvX$4l"-=$2D4VgO5.4bDX@v56V4b+:4b2v4a+

4l`x,>,>,>4g,>4g-=4g,<@4g h0V+R4g4-=0@+W+R4g4-=0@+Z+R4g4
-=0@+c+R4g4-=0@+f+R4g4-=0@+i+R4g4-=0@+l+R4g4-=0@+o+R4g4-=0@+r+R4g4-=0@+u+R4g3-=0@+x+R4g3~-=0@+{+R4g3|-=0@+~+R4g3{-=0@++R4g3y-=0@++R4g3x-=0@++R4g3v-=0@+
+R4g3u-=0@++R4g3r-=0@++R4g3p-=0@++R4g3o-=0@++R4g3m-=0@++R4g3l-=0@++R4g3j-=0@+"+R4g3i-=0@+%+R4g3g-=0@+(+R4g3f-=0@+++R4g3d-=0@+.+R4g3c-=0@+1+R4g3a-=0@+4+R4g3`-=0@+7+R4g3^-=0@+:+R4g3]-=0@+=+R4g3[-=0@+@+R4g3Z-=0@+C+R4g3X-=0@+F+R4g3W-=0@+I+R,H<@dh3J,s<@ $4l "-=$3D4S+P,s<@+L 6 Vh+J+h-=xpS>-= 4X Vh h1V+X+c+Y-=h $4l h-=$ Dh h2V4T+^+ h3V4V+a h.6 Vh+Y+c-=h $4l h-=$ Dh h2V4T+g+ h2V4V+k h.6 Vh+c $4l h-=$2D4T+n+ h.6 V4X+q-=h $4l 4X-=$ Dh h3V4VgO h3T4TgOA4V{ 4X.6 V4X+q+} 4X/6 ,~,5+>

4l`Q`{,>,>,>h,>h-=h+
+-=h3I,>,>,>h,>h-=h+
-=h>o,^o>`K+h-=~

<@ 6 V4Y+:4Y,>,5X1l3 xgO/f4@+ $h 4Y-=,~,5t<LN+,5{<L+h-=| <@-=,6<L3G 6 Vh+!:h,>,5X1l3 xgO/f4@6 $h h-=$ Dh h2V4ZgO h2T4]gOG h2R4`gOG h2P4agOG4V4,5t<L`,5t<L`+!,6<L3E>o,^o>`K+h-=H:<@-= "h-=+s-=l>>-= 4X Vh $4l h-=$ Dh h2V4T+E+l+G-=h $4l h-=$ Dh h2V4T+K+l h2V4VgO h2T4UgOG4VR h.6 Vh+G $4l h-=$2D4T+V+l h.6 V4X+Y-=h $4l 4X-=$ Dh h3V4VgO h3T4TgOA4Vb 4X.6 V4X+Y+e 4X/6 ,~,5+>

4l`Q`c,>,>,>h,>h-=h+q+l-=h3I,>,>,>h,>h-=h+q-=h>o,^o>`K+h,s<@L4~4V@vh $4l "-=$3D4S+ 4W0V+ h.6 Vh h06+,6<L3B+@vh,6<L3@+ h.6 Vh h1v
+,6<L3@@vh+,5+>

4l`h4W,>,>,>4p,>4p-=4p,~,<@^,A<@4p,s<@+v+W@vh@vh 6 Vh $4l "-=$3D4S+U 4W0V+07@h+',6<L3E h.6 Vh h06+#,6<L3B h.6 Vh+%,6<L3@@vh@vh 6 Vh+/ h.6 Vh h06+-,6<L3B h.6 Vh+/,6<L3@@vh+SOvhLh4V3,6<L3GOvh7@h+S,A<@,=>,>,>,>h,>h-=hh3I-=0@+=@vh+S,5X1l.h.  @h h264b+E,6<L,6<L3?+S,6<L3E h.6 Vh h1v
+L,6<L3@@vh,5X1l.  @h,6<L3G,6<L,6<L3?+3,s<@+7@h+W,6<L3E h1v	+Z,6<L3@,F<@`-=	+h-=}0]<@ 6 V4X+a:4X 4W.42v+g $4l 4X-=$2D4V+f+h+`+h-=h 4X V4X+j:4X 4W.42v+p $4l 4X-=$3D4V+p+r+j+r-=h+h-=~s<@,]<@ 4X2v4W++~,5+>

4lh4Xh4W,>,>,>4p,>4p-=4p,~,

<@^w,A<@4p+h-=s <@+-=h4g3|-=0@+	Ov4~+X4g3{-=0@+

@v4~+X4g4-=0@+Ov4y+X4g4-=0@+@v4y+X4g4-=0@+Ov4z+X4g4
-=0@+@v4z+X4g4-=0@gO 4g3-=0@gOG4@@-=+*,5+>

4l`h4W,>,>,>4p,>4p-=4p,~,

<@^# 4W Vh $4l h-=$2D4VgO h1vgOA4D5 h/6 Vh+, $4l h-=$3D4]+<,H<@`34,5t<Lh4],5{<L,A<@4p>o,^o>`K+X4g3s-=0@+X,r<@+E-=h,s<@ $4l "-=$2D4S+I+d 4W0V+L,5{<L+W+T,5+>

4l`h4W,>,>,>4p,>4p-=4p,~,

<@^M,A<@4p+E+X+h,s<@,$4l<"-=$3D4S+c,H<@dh3'+$4l,"-=$3D4S+c,s<@+^+d-=h,F<@`++h-=h+h-={Hi<@-=,6<L3$,63<Lh4\`,5X1l4q1`+	,6<L3# 6 V4X+t:4X,>,5X1l4q3 xgO/f4@	 $4q 4X-=$ Dh h2V4`gO h2T4agOG h2R4]gOG h2P4ZgOG4V,5t<L`,5t<L`+t,6<L3!>o,^o>`K+h-=~

,6<L3,6<L3Ov5+h-=s$<@v-=,>g,>e "p $h"&"(-=3c h.6,>,>,>X,>X-=X3o h.6,>,>,>X,>X-=X3d h.6,>,>,>X,>X-=X3^ h.6,>,>,>X,>X-=X3] h.6,>,>,>X,>X-=X3a h.6,>,>,>X,>X-=X3` h.6,>,>,>X,>X-=X3l h.6,>,>,>X,>X-=X3f h.6	,>,>,>X,>X-=X3j h.6
,>,>,>X,>X-=X3m h.6,>,>,>X,>X-=X3g h.6

,>,>,>X,>X-=X3i h.6,>,>,>X,>X-=X3y h.6,>,>,>X,>X-=X3v h.6,>,>,>X,>X-=XLh4V 6 Vh+u:h,>+@h3 xgO/f4@	4g h..hX-=0@+,H<@`2|,s<@ $4l "-=$3D4S+,s<@+,F<@`+
++@h2@h+Ovh+t+
-=h+r-=	+h-=|

<@,6<L2z,6<L2v,6<L4i,6<L2u4k3I-=1@gOA4|4@,6<L2p,

<@4k,6<L2n,5{<L,6<L2f,6<L2Z,6<L2Q 4T0V+%,6<L2K,6<L2C,6<L2@,6<L25,6<L2/+h-=4H,<@7@4}+0,6<L2+7@4~+2,6<L2%7@4|+5,6<L2!,6<L2,6<L2,6<L2,6<L2,6<L2,6<L1|,6<L1v,6<L1r,6<L1l,6<L1i,6<L1d,6<L1_ 4T0V+J,6<L1^+R 4T0V+R,6<L1\,6<L1W,6<L1S,6<L1O,6<L1L,6<L1G,6<L1E,6<L1B,6<L18,6<L13,6<L1,,6<L1),6<L1%,6<L1 4T0V+h,6<L1L54Vf,6<L1,6<L1+r 4T0V+r,6<L1	L54Vn,6<L1L54Vp,6<L0y,6<L0r7@4+t,6<L0o,6<L0j,6<L0f,6<L0d,6<L0a,6<L0\ 4T0V+,6<L0[+	 4T0V+	,6<L0Y,6<L0V,6<L0T 4T0V+		,6<L0P+

 4T0V+

,6<L0K,6<L0H,6<L0E 4T0V+	,6<L0C+	 4T0V+	,6<L0A,6<L0?,6<L0=L54V	" 4T0V+	,6<L0:+	  4T0V+	 ,6<L07,6<L03+	* 4T0V+	%,6<L0.+	( 4T0V+	(,6<L0-,6<L3E,6<L0),6<L0E 4T0V+	0,6<L0(+	3 4T0V+	3,6<L0&,6<L0?,6<L0=L54V	@ 4T0V+	;,6<L0#+	> 4T0V+	>,6<L0 ,6<L0+	H 4T0V+	C,6<L0+	F 4T0V+	F,6<L0-,6<L3E,6<L0) 4T0V+	N,6<L0,6<L0+	Q 4T0V+	Q,6<L/,6<L1B,6<L0d,6<L/{,6<L/t,6<L/l,6<L/d,6<L/],6<L/W,6<L/T,6<L/M,6<L/H,6<L1E,6<L/B,6<L3,6<L/;,6<L/9,6<L1E,6<L/5,6<L/1,6<L/.,6<L/&,6<L/,6<L/,6<L/,6<L/	,6<L/,6<L.{,6<L.u,6<L.n,6<L.e,6<L.`,6<L/M,6<L/H,6<L1E,6<L.],6<L/B,6<L3,6<L/;,6<L/9,6<L1E,6<L.W,6<L.R,6<L1E,6<L.L,6<L.E,6<L.?,6<L1E,6<L.<,6<L/.,6<L.9,6<L.0,6<L.(,6<L. ,6<L.,6<L.,6<L.,6<L.,6<L.,6<L-,6<L-z,6<L3,6<L-v,6<L-r,6<L.,6<L-j,6<L-b,6<L-Z,6<L-R,6<L-N,6<L-F,6<L-?,6<L-7,6<L-/,6<L--,6<L-),6<L-",6<L-,6<L-,6<L-,6<L-,6<L,,6<L,z,6<L3,6<L,v,6<L,s,6<L,k,6<L,g,6<L,Z 4T0V+
[,6<L,V,6<L,N,6<L,K,6<L,F,6<L.,6<L,B,6<L,;,6<L,5,6<L,.,6<L,&,6<L, ,6<L3,6<L,,6<L,s,6<L,,6<L1E,6<L,,6<L.,6<L,,6<L,,6<L+,6<L+x,6<L+p,6<L+i,6<L+a,6<L+Z,6<L+S,6<L+L,6<L+E,6<L+<,6<L+4,6<L+/,6<L+, 4T0V+

,6<L+(+ 4T0V+,6<L+$,6<L+!7@4+,6<L0o,6<L+,6<L+,6<L+,6<L+,6<L+
,4T0V+,<@++!<4T0V+!,<@*|,6<L0d,6<L.,6<L*y,6<L*s,6<L*l,6<L*e,6<L*^,6<L.,6<L*Z,6<L*Q,6<L*J,6<L*B,6<L*;,6<L*3,6<L3,6<L*.,6<L*+,6<L*",6<L*,6<L*,6<L*<L(^,6<L.,6<L(Y,6<L(P,6<L(F,6<L(C,6<L(q,6<L(7,6<L(.,6<L(,7@4|+

9,6<L(',6<L( ,6<L(,6<L(,6<L(,6<L(,6<L'~,6<L'{,6<L'x,6<L't,6<L'l,6<L3B,6<L'{,6<L'i,6<L't,6<L'l,6<L3B,6<L'{,6<L'f,6<L.4k3I-=1@+

9,6<L'b,6<L'Z,6<L'S,6<L'L,6<L'G,6<L3 4T0V+

+,<@'AL54V

%,<@';L54V

',<@'6,6<L3B,<@'1+

6 4T0V+

6,<@'+L54V

0,<@'$L54V

3,<@',6<L3B,<@',<@4k,6<L',6<L',6<L3 4T0V+

A,6<L',6<L'+

E 4T0V+

E,6<L&~,6<L&v,5t<Lh4S,6<L&t,6<L&q,6<L&m,6<L&e,6<L&],6<L&V,6<L&N,6<L&G,6<L&@,6<L&9 4T0V+

e,6<L*+,6<L&4,6<L&),6<L&,6<L&,5t<Lh4S,6<L&,6<L*

q 4T0V+

q,6<L*+,6<L&,6<L&,6<L%z,5t<Lh4S,6<L&,6<L%u,6<L%r,6<L%i,6<L%a,6<L%Z,6<L%T,6<L3 4T0V+

,6<L%N,6<L%F+6<L%4,6<L1E+h-=|0$q,6<L$i,6<L$c,6<L$`,5t<Lh4S,6<L$],6<L$[,6<L4i,6<L2u-= "h-=+
+> 4T0V+>,<@#,6<L#,6<L'{,6<L"~7@5+, 4T0V+X,6<L"w,6<L"l7@4|+L,6<L"d,6<L"\7@4+O,6<L0o,6<L"X,6<L"T,6<L"I,6<L"?,6<L"7,6<L"1+h 4T0V+h,6<L"),6<L"7@4+_,6<L0o,6<L"X,6<L"T,6<L",6<L"?,6<L",6<L",6<L",6<L",6<L",6<L!|,6<L!x,6<L!s,6<L1E,6<L1E,6<L!o,6<L!j,6<L1E7@5+,6<L!c,6<L!W,6<L!Q,6<L!J,6<L!F,6<L!B,6<L!=,6<L!9,6<L!4,6<L!0,6<L!+,6<L!',6<L!#7@4}+,6<L#7@4|+,,6<L'x 4T0V+,6<L!,6<L4i,6<L!,6<L!,6<L!,6<L3B,6<L!+, 4T0V+,,6<L!,6<L4i,6<L!,6<L'x,6<L },6<L!,6<L3B,6<L sL4}4V 4T0V+A,6<L n,6<L j,6<L h4j3I-=1@+:,6<L e,6<L4j,6<L3!,6<L b,6<L X,6<L N,6<L D+R 4T0V+R,6<L @,6<L4i,6<L >4j3I-=1@+N,6<L e,6<L4j,6<L <,6<L 6,<@ 1,<@ ,,6<L3B7@4|+_4k3I-=1@+_ 4T0V+[,<@ '+^ 4T0V+^,<@ ",<@4k 4T0V+c,6<L +f 4T0V+f,6<L

,5t<Lh4S 4T0V+k,6<L 
+n 4T0V+n,6<L 
 4T0V+q,6<L +t 4T0V+t,6<LzL54V 4T0V+},6<Ls,6<Ll,6<Lc,6<LY+ 4T0V+,6<LPL54V,6<LI,6<LG,5{<L,6<L4s,6<L4M,6<LD,6<L@+h-=gX

<@,6<L:L5 4_1tgOA4V/-=,5+>

8,>,>,>4s,>4s-=4s,6<L5 4_ Vh 6 Vh+:h2vh+#,<P,5{<L,6<L4s,6<L3+ 4T0V+(,6<L*,6<L!+, 4T0V+,,6<L,6<L,6<L

>o,^o>`K,6<LL4}4VG 4T0V+=,6<L,6<L4i,6<L,6<Lv,6<Lp,6<Lh+G 4T0V+G,6<Le,6<L4i,6<L^,6<LV,6<LP,6<LG7@4|+{L5L5A4V_ 4T0V+O,6<L>,6<L7+T 4T0V+T,<@/,<@) 4T0V+Y,<@#,<@+] 4T0V+],<@,<@,6<L#,6<L'{,6<L 4T0V+e,6<L
+h04T0V+h,6<L,6<L{4T0V+m,6<Lt+p<4T0V+p,6<Lp,6<Ll-4T0V+u,6<L`+x4T0V+x,6<LW,6<L'{,6<L'f,6<L3B7@4|+",4T0V+,6<LN,6<LE+ 4T0V+,6<L<,6<L4,6<L17@4+,6<L0o,6<L'f,6<L,L54V,6<L&,6<L4s,6<L$,6<L+,6<L ,6<L'x 4T0V+,6<L+ 4T0V+,6<L,6<L!,6<L,6<L'{,6<L'fL4}4V/ 4T0V+),6<L+, 4T0V+,,6<L,6<L4i,6<L7@5+G,6<L,6<L4i,6<L,6<L~,6<Ly,6<L4i,6<L,6<Lv,6<L,6<L4i,6<Ls,6<Lm,6<Li,6<L4i,6<Ls,6<L'f 4T0V+N,6<Ld,6<L\,6<LY+h-=zHO<@,<@4g4

4r,>,>,>4t,>4t-=4tL4zL4{A4Vt,6<L?+v,6<L=@v4y,5{<L,6<L4r,6<L3+h-=}H{<@-=,5X1l4r @h+-=h $4r h-=$ Dh h364[+
 4Z.$4r h-=vh/6,Vh++-=}0<@-= 4.6 V4,5X1l4s @h+-=h $4s h-=$ Dh h364[+ 4Z $4s h-=v h/6 Vh++" h.6 $4s h-=v>o,^o>`K+h-=p%<@-= "h-=++,5X1l4i. ,~,5E>

Q`(`,>,>,>h,>h-=h 6 Vh+2:h,>,5X1l4i3 xgO/f4@; $4i h-=$  $h h-=v+1 $; "-=$  $h h.6 -=t $: "-=$  $h h.6 -=t $8 "-=$  $h h.6 -=t $7 "-=$  $h h.6 -=t,7<L``Ov4|,6w<L`-=	+h 6 V4T 6 V4U 6 V4[ 6 V4U,5E>

``,>,>,>4w,>4w-=4w 6 $4w "-=v,5E>

`C`,>,>,>4l,>4l-=4l 4T $4l "C-=v 4U $4l "C-=v $5 "-=$ D4^ $4 "-=$ D4^ $2n "-=$ D4] $; "-=$ D4\ $3? "-=$ D4V $2 "-=$ D4V $1 "-=$ D4Z $$T "-=$ D4` $/ "-=$ D4a 6$ V4b3I,>,>,>4h,>4h-=4h,>,>,>4q,>4q-=4q,>,>,>4k,>4k-=4k,>,>,>4h,>4h-=4h,>,>,>4i,>4i-=4i,>,>,>4g,>4g-=4g,>,>,>4p,>4p-=4p $: "-=$ D4Z $. "-=$ D4[3I,>,>,>4r,>4r-=4r $, "-=$ D4c $+ "-=$ D4c $) "-=$ D4d $( "-=$ D4f $& "-=$ D4d $% "-=$ D4e $# "-=$ D4e $" "-=$ D4f,6E<L` ,6E<L`3i,6E<L`3i`,6M<L`3i,6<L,6<L,6<L+D-=h@v4a@v5 V5@v4`@v4_,5+>

8,>,>,>4s,>4s-=4sOv4y@v5 V4 V5 V4~ V5 V4} V4| V4z V5 V4| V4} 6 V4T@v4] V4\ V4S V4_,A<@4k3I,>,>,>4k,>4k-=4k,6<L,6<L,s<@,5+>

4l`h4W,>,>,>4u,>4u-=4u4u3I-=0@+f+d,<@4u 6 V4X $; "-=$  $4u 4X-=$3DgO,>,5X1l4u3`4XgOAx/f4@u 4X.6 V4X+h,5X1l4u2@4X+.-=+{,5X1l4u. ,~,5E>

Q`y`,>,>,>4Q,>4Q-=4Q 6 V4X+:4X,>,5X1l4u3 xgO/f4@

 $4u 4X-=$  $4Q 4X-=v+ $; "-=$  $4Q 4X.6 -=t $7 "-=$  $4Q 4X.6 -=t $ "-=$  $4Q 4X.6 -=t $ "-=$  $4Q 4X.6 -=t+$,5X1l4Q,~,5E>

Q`"`,>,>,>4u,>4u-=4u4Q,>,>,>4u,>4u-=4u>o,^o>`K,6<L|,6<L4u,6<Ly,7<L`4u,6q<L`,5l<Lh4X 4X&41VgO V5,7,<L`,7<L`4u,6q<L` 6 V4X+B:4X,>,5X1l4u3 xgO/f4@L $4u 4X-=$2D4\+K 4X/6 V4X+M+A+M-=h,A<@4k,A<@4j,A<@4i,5+>

4u`h4X,>,>,>4i,>4i-=4i,$<@+Z-=h,s<@ 4S0V+g 4W0V+_,s<@+\ $4l "-=$ D4S $w "-=$3D4S+g,H<@`q $4l "-=$3D4S+p,H<@dhc $4l "-=$3D4S+p,s<@+l,F<@`,<@4g3^-=0@+xOv4},H<@`V+Z4g3]-=0@+,R>,>,>,>4o,>4o-=4o,<@4oOv4~,H<@`I+Z4g3c-=0@+,A<@4h,R>,>,>,>4h,>4h-=4h,<@4h4hG-=0@+ 6 V4T+4hE-=0@+ 6 V4T+,H<@`>+Z4g3a-=0@+Ov4}+Z4g3`-=0@+P,]<@,R>,>,>,>4v,>4v-=4v,<@4v,5X1l4v0`+(,H<@dh6 6 V4b+*:4b2v4a+24v 4b..4xX-=0@+1,H<@`1+* 4a0V+6,H<@dh'+7 4a.6 V4a,5+>

4v 4a..4x,>,>,>X,>X-=X,R>,>,>,>4v,>4v-=4v,<@4v4v%-=0@+G 5.4aOvX+N4v$-=0@+L 5.4a@vX+N,H<@dh 5.4a@vX+Z4g3l-=0@+SOv5+Z4g3f-=0@+WOv5+Z4g3j-=0@+ZOv4+Z4g3m-=0@+^Ov5+Z4g3i-=0@gO 4g3g-=0@gOG4@uOv4| V5 V5,H<@`,6w<L`,6<L,6<L4i,6<L,6<L4i,6<L
,5{<L,6w<L`+Z4g3d-=0@+~,]<@,5+>

4lh4Xh4W,>,>,>4j,>4j-=4j+Z4g3o-=0@+

4lh4Xh4W,>,>,>4k,>4k-=4k4k3I-=0@+

,H<@`Ov5Ov4|+Z,

<@4g3x-=0@+,5+>

3s,>,>,>4g,>4g-=4g,<@+,#<@`,+<@4g3y-=0@gO 4g3v-=0@gOG4@84g3v-=0@++,5+>

3s,>,>,>4g,>4g-=4g,5{<L,5{<L,<@+!4g3y-=0@+8,6<L~,6<L>R,6<L1^,6<L3,9<@,6<L1E,<@+++,#<@`,

3s,>,>,>4g,>4g-=4g,5{<L,5{<L,<@+;,#<@`,*<@+I-=h,<@4g3r-=0@+N,r<@+U4g3~-=0@+k 4].6 V4],6<L{,63<Lh4]`,6<L1^,r<@4s,>,>,>4n,>4n-=4n,<@,5{<L,6<L4s,6<L3,9<@,6<LxL54Vi,6<L&,6<L4n,6<L$,6<L1E+I4g4-=0@+4-=,A<@4r,5+>

v,>,>,>4r,>4r-=4r,A<@4t3I,>,>,>4t,>4t-=4t@v4SOv4{@v5 V5 4\.6 V4\,6<Lr,63<Lh4\`,6<L1^7@4|+/-=,A<@4q 6 V4R+:4R2v4W+- $4l 4R-=$2D4^+- 4R264W+ 4R.6 V4R+ 4R/6 V4R+ $4l 4R-=$3D4^+- 4R/6 V4R 4R/6 V4R+-=h $4l 4R-=$3D4]gO  $4l 4R-=$3D4VgOA4D" 4R/6 V4R+,A<@4q+& 4R.6 ,~,5+>

4lQ`$h4R,>,>,>4q,>4q-=4q 4R.6 V4R+>o,^o>`K,r<@4s,>,>,>4n,>4n-=4n,<@,5{<L,6<L4s,6<L3,6<Ln,6<Lh,6<L1),6<Le,6<Lb,6<L`,6<L1E,6<L3B,9<@7@4+H,6<L0o,6<L"X,6<L],6<L37@4|+Q 4W V4W@v4W,h<@ 4W V4W,6<LXL54Vh,6<LU,6<L37@4|+[ 4W V4W@v4W,h<@ 4W V4W,6<LR,6<L4n,6<L$,6<LO,6<L37@4|+g 4W V4W@v4W,h<@ 4W V4W,6<LJ+j-=h@v4{,<@@v54g4-=0@+{Ov4zL54V{ 4X2v4W+{,A<@4m,]<@,5+>

4lh4Xh4W,>,>,>4m,>4m-=4mOv5 6 V4X+4g4-=0@+@v4z+4g4-=0@+Ov4{+4g4-=0@+Ov5@v4zL54V,<@+L54V
,<@,

<@,6<L1E,6<LH7@5+,6<LE,<@4m,6<L>,6<L<,6<L3@L54V,6<L&,6<L4n,6<L$,6<L1E+H,6<L7,A<@4h,R>,>,>,>4h,>4h-=4h,<@4h4h3I-=0@+*Ov4yL4zA4yL4{AL5A4VF 4S.6 V4S 4S0V+2L54V2,<@,6<L5+6 4S/6 ,~,63<LQ`4``,6<L3,{<@,

<@,5{<L,6<L1,6<L4r,6<L3,9<@,O<@,6<L1E+j+2L4{4VH@v4{ 4S1V+S,H<@dh&+M-=h,s<@ $4l "-=$3D4S+Q+M,F<@`+j,{<@7@4z+X,6<L$,5{<L4h3I-=1@+L54VdL4z4V^,6<L",6<L L4zG4y4Vb,6<L,6<L7@5+f,6<L 6 V4Y+h:4Y,>,5X1l4h3 xgO/f4@w $4h 4Y-=$ D4Y 4Y2V4Z+r,5t<Lh4Y 4Y2V4]+u,5t<Lh4],5t<Lh4Y+h,6<L7@5+{,6<L,6<L4r,6<L1^,A<@4h,R>,>,>,>4h,>4h-=4h,<@4h+X 4yG5L 4{A4yLA4VL4z4V

,6<L",6<L,6<L4r,6<L1^7@5+,6<L,6<L4r,6<L1^,5{<L,6<L,6<L4r,6<L3L4{4V#7@4z+ ,6<L

+!,6<L	,6<L1^7@5+&7@4|+&,h<@7@4y+*L4yA4{G4z4V*,6<L,5{<L,6<L1,6<L4r,6<L3,9<@,O<@+j>o,^o>`K4g3[-=0@+?,

<@,s<@ $4l "-=$3D4S+<+D,F<@`,<@+D4g3p-=0@+Q,

<@+D-=h7@4~+F,6<L4o,6<L,A<@4u,6q<L`,6w<L`,7,<L`,7,<L`,6<L+D,H<@dhv+U-=h,s<@ $4l "-=$3D4S+_,H<@dhh $4l "-=$3D4S+_,s<@+[+a-=h,F<@`+I+d-=h-=	+h|cPfHi=3340: A command line is required at this point.  As a result,[N]******  this line up to next command line will be ignored.Hw63330: Command is out of place here.  As a result,[N]****** this line up to next command line will be ignored.H	...and is ready.[N]H[N]END;[N]Hextratest;[N]H
wrongmessageHGOTO HIF NOT here(endofline) THEN GOTO HLACKH") THEN GOTO Hpos:= 1;[N]IF NOT anywhere("Hhere("HanywH!IF NOT H#pos:= 1;[N]H%pos:= 1;H'13200: Expected answers must precede first [N]****** empty answer pattern. Command will be ignored.H2SAMEH4 THEN[N]H6IF lasterrors =H8IF ihaveblanked THEN restore;[N]H=[N]next:[N]H?Write(right[[random]]);[N]Newline;[N]GOTO SAMEQZXAAB;[N]HFgiveanswer;[N]HI[N]simulate:[N]HKskip:= FALSE;[N]GOTO simulate;[N]END;[N]HPIF skip THEN[N]HS
back:= FALSE;[N]GOTO HVIF back THEN[N]HYstop:= FALSE;[N]GOTO endoflesson;[N]END;[N]H^IF stop THEN[N]Hatryagain;[N]Hc	BEGIN[2N]repeat:[N]HfIF FALSE THEN[N]Hifirsttry:= TRUE;[N]lastrights:= lasterrors:= 0;[N]HoBEGIN[N]INTEGER subblock;[N]Hs
[4N]COMMENT: QuestionHwQZXAAAHyBEGIN[N]pause;[N]H|[4N]COMMENT: TextH[2N]PROCEDURE H)2727: Ignore this message if you meant to omit[N]****** teacher's name and address.H.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.H%FALSEH&TRUEH(+2538: More than 9 switches not allowed.[N]THIS switch will replace the old number nine.H22536: This switch is doubly defined.H7#2530: No switchname in %SWITCH command.[N]****** Line will be ignored.H? 2501: Unknown language.[N]****** GNOSIS will default to English..HFSWEDISHHHENGLISHHJ;2482:  The GNOLIB.REL file must reside in 'SYS:'. [N]****** Load as follows: '.LOAD <lessonname>.ALG, SYS:GNOLIB.REL'.HW;2456:  The GNOLIB.REL file must reside in 'SYS:'. [N]****** Load as follows: '.LOAD <lessonname>.ALG, SYS:GNOLIB.REL'.Hd=2435: A command line is required at this point.  As a result,[N]******  this line up to next command line will be ignored.Hr2430: You are not using '%' as a command indicator.Hx%Hz	" has begun...[2N]H}[2N]Translation of the lesson "HOHNH-->[B]H&[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 ManerHGNOSIS Version 2 (June, 1978)[N]H!TTYH#EH$@H&#H'$H)eH*`H,{H-}H/ZH0]]H2"H3!H5=H6:H8GH9LH;AH<.H>GOTO next;[N]H@GOTO repeat;[N]HC=2187: A command line is required at this point.  As a result,[N]******  this line up to next command line will be ignored.HPGOTO SAMEHR#2177: No previous comment available.[N]****** Command will be ignored.HZWrite("!");[N]H]%IF firstname # "" THEN[N]BEGIN[N]Write(", ");[N]Write(firstname);[N]END;[N]HeWrite("[[2N]]Have a nice day");[N]HjOpenfile (1,"");[N]Openfile (3,"HnSelectinput(1);[N]Selectoutput(3);[N]Transfile;[N]Ht.SRT", %155);[N]HwClosefile(1);[N]HzOpenfile (1,"");[N]Openfile (2,"H Selectinput(1);[N]Breakoutput;[N]Selectoutput(2);[N]Transfile;[N]H.DTA", %155);[N]H	Openfile(1,"H

""...[[N]]");[N]HWrite("Leaving the lesson ""H
GOTO mess;[N]END;[N]H

Write("MEDDELANDE:T");[N]HWrite("MESSAGE:]");[N]H!ackTHEN[N]BEGIN[N]back:=NFALSE;[N]GOTOH-Write(prompt);[N]Breakoutput;[N]getline;[N]H2[N]mess:[N]H5$Write("Slutanmedatttrycka eneextraeg}ngip}aRETURN-knappen.[[2N]]");[N]H=%Write("OmnDutharln}gotrmeddelandeitillnl{raren,is}iskrivdetnu.[[N]]");[N]HF(Write("linetat}artime.ivFinishHwithanEXTRA]pushnonltheiRETURN key.[[2N]]");[N]HO(Write("Ifayou.haveanymessage(forithehteacher, thenrtypeditnnow, one[[N]]");[N]HX)Write("totalteav[[NT]]-");[N]Print(qcount,3);[N]Write(" givna fr}gor.[[2N]]");[N]Ha6Write("itotalfright out of a{totalaof[[NT]]-");[N]Print(qcount,3);[N]Write("]questionsattempted.[[2N]]");[N]HmPrint(latescore,3);[N]HqWrite("of`rstasvarhoch[[NT]]-");[N]HuWrite("sright3answerson first"triessand[[NT]]-");[N]H|4Print(latepercent,2,1);[N]Write("%W(");[N]Print(percent,2,1);[N]Write("%)[[NT]]-");[N]Print(score,3);[N]Hery first try.[[N]]");[N]HqWrite(" times.[[N]]On");[N]Print(score,3);[N]Hw(Write(" questions,[[N]]and you gave the right answer");[N]Print(latescore,3);[N]H"" you answered");[N]Print(qcount,3);[N]H
GOTO start;[N]END;[N]H!Write("utan m}ste backa till lektionens b`rjan. F`rl}t![[N]]");[N]H)Write("Jag kan inte g} en liten bit bak}t p.g.a. lektionens komplexitet[[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]H4:[N]H6

IFFALSEtTHEN[N]BEGIN[N]H9ZQXAAAH;ENDtofsblock[started with makeblock"INTEGER;[4N]HABEGIN[N]INTEGERublockmaker;[N]HE[N]start:[N]HHpage;[2N]HJct`ver"enfr}ga#eller[[NT]]-ag} tillbakavidlektionen.[[2N]]");[N]HQ&Write("D{refterhkanldu[[NT]]-.avslutahelalektioneneeller[[NT]]-sbaraahoppaHZ(Write("[[NT]](3)`'BACK'etoireturnDto thenprevious7questiont(or[text).[[2N]]");[N]Hd&Write("[[NT]](2)'SKIP';to]moveon?tothe"next]question(ortext);;[or");[N]HmWrite("[[NT]](1)r'STOP'ttokendmthewlessonaimmediately;;");[N]HtWrite("GNOSIStwill[then"explainhowyou,canttype");[N]H{#Write(" p}eDineterminalIochisedan tryckaip}aRETURN-knappen.[[N]]");[N]H$Write("lonsyouraterminalcand thentpushingSthe RETURN button.[[2N]]");[N]H]""");[N]H 
Write(".[[2N]]");[N]H fWrite(",[[N]]H iWrite("'");[N]H k
Write(lessonname);[N]HoWrite("[[2N]]WelcomeAtoAtheRlessonL'");[N]H!t)Write("[[N]]SP$RNING AVEOV#NTADEASVAR:[[N]]");[N]Breakoutput;[N]Selectoutput(0);[N]H!~#FOR pos:= 1 STEP 1 UNTIL answerlength DO Outsymbol(answer.[[pos]]);[N]H!Write("STUDENT'S NAME: ");[N]H![[2N]]");[N]H!Write("[[P]]TEACHER REPORT FOR THE LESSON: H!$Openfile(3,tempfile2,%057);[N]H!(Openfile(2,tempfile1,%057);[N]H!,tempfile2.[[pos+4]]:= "T".[[1]];[N]H!1tempfile2.[[pos+3]]:= "R".[[1]];[N]H!5tempfile2.[[pos+2]]:= "S".[[1]];[N]H!:tempfile1.[[pos+4]]:= "A".[[1]];[N]H!>tempfile1.[[pos+3]]:= "T".[[1]];[N]H!Ctempfile1.[[pos+2]]:= "D".[[1]];[N]H!GELSE pos:= pos - 2;[N]H!Ktempfile1.[[pos+1]]:= tempfile2.[[pos+1]]:= ".".[[1]][N]H!RIF firstname.[[Length(firstname)]] # ".".[[1]] THEN H!X5FOR pos:= 1 STEP 1 UNTIL Length(firstname) DO tempfile1.[[pos]]:= tempfile2.[[pos]]:= firstname.[[pos]];[N]H!dtempfile1:= tempfile2:= Newstring(Length(firstname)+5,7);[N]H!kWrite(firstname);[N]Write("!");[N]H!pfirstname:=Copy(answer,1,pos-1);[N]H!tBEGIN[N]pos:=pos+1;[N]GOTO nameloop;[N]H!y

[N]continue:[N]Write("Trevligtatttr{ffas,o");[N]H"Write("???[[N]]");[N]GOTOTrepeat;[N]H"BEGIN[N]Write("???[[N]]");[N]Newline;[N]GOTOerepeat;[N]END;[N]H"2[N]repeat:[N]Write("JagNskulleivilja[vetadittfullst{ndiga:namn--skriv'detip} terminalen.[[N]]");[N]H"*"Write("[[N]]Hej!heDetrh{r[{r]GNOSIS-programmetsomWtalar.[[N]]");[N]H"2[N]continue:[N]Write("Gladtomeet you, ");[N]H"8Write("That's only ONE of your names.[[N]]");[N]GOTO repeat;[N]H"@,FOR pos:= 1 STEP 1 UNTIL answerlength DO IF answer.[[pos]] = blank THEN GOTO continue;[N]H"J0BEGIN[N]Write("That's too short to be your FULL name.[[N]]");[N]Newline;[N]GOTO repeat;[N]END;[N]H"U
Selectoutput(0);[2N]H#putmessage;[N]H#L{raren {r tacksam om Du s{nder denna lista till honom.H#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.H#4Det {r inte r{tt!H#7

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#G  Bra! Forts{tt p} det s{ttet.H#K  #ntligen r{tt!H#N	  Du g`r framsteg.H#Q  S}ja, till slut g}r det bra!H#U  Javisst! Nu klarar Du det h{r.H#Z  Nu har Du fattat det hela!H#^
  B{ttre och b{ttre!H#a
  Nu b`rjar Du fatta!H#d  Just det - Du klarar dig b{ttre nu.H#iBra!H#k
Du svarade r{tt igen.H#nKorrekt.H#pR{tt!H#rPrecis r{tt.H#tUtm{rkt!H#vJavisst!H#xMycket bra.H#{Bra gjort!H#}

No, you missed this one.H$You're mistaken.H$
Thatywasn'twcorrect.H$Sorry.H$

Incorrect!H$YouranswerwasNwrong.H$g!H$  You've got the hang of it now.H$

  Keep up the good work!H$!  Aren't you glad you kept trying?H$&

  You're making progress.H$)  There is hope for you after all!H$.

  I knew you could do it.H$1

  Yo've got the idea now!H$5	  You're improving!H$8

  Now you're catching on!H$;  You're doing better!H$?OK!H$@Excellent!H$BThat's it!H$DWell done!H$FRight!H$HExactly right!H$KBravo!H$MSure!H$NVery good.H$PGood for you!H$S]]:= "H$U[[H$VwrongH$XrightatlastH$ZrightH$\lessonname:= "H$^".[[1]];[N]H$acontrolstart:= "H$drandno:= 1;[N]nopause:= skip:= message:= FALSE;[N]H$j!endofline:= Newstring(1,7);[N]endofline.[[1]]:= carriagereturn;[N]H$r

char:= Newstring(1,7);[N]H$u answer.[[134]]:= carriagereturn;[N]answer.[[135]]:= linefeed;[N]H$}0answer:= Newstring(135,7);[N]answercopy:= Copy(" ");[N]firstname:= "";[N]prompt:= Copy("-->");[N]H%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:= score:= lastqcount:= lastqkount:= qcount:= 0;[N]carriagereturn:= 13;[N]linefeed:= 10;[N]H%5Write("vilket skulle ha varit acceptabelt:[2N]-->");[N]H%;Write(" h{r {r ett svar[[N]]");[N]H%@ Newline;[N]personalize("F`r den h{ndelse du {r intresserad,");[N]H%G Write(" GNOSIS will simulate an acceptable answer:[[2N]]-->");[N]H%ONewline;[N]personalize("Just for the record,");[N]H%U%RIGHT command for the preceding %QUESTION;[N]H%[The answer given will always be the one following the FIRST[N]H%bthe question or who repeatedly fails to give a right answer.[N]H%j'COMMENT:  'Giveanswer' displays a right answer to a student who is skipping[N]H%s

PROCEDURE giveanswer;[N]H%v[N]Newline;[N]Newline;[N]END;[2N]H%{,IF lasterrors > 3 THEN Write("[[N]]Eller...avbryt lektionen genom att skriva symbolen ""H&,IF lasterrors = 3 THEN Write("[[N]]Ddu har eliminerat flera m`jligheter redan.") ELSE[N]H&personalize("F`rs`k igen.");[N]H&"".");[N]H&*IF lasterrors > 4 THEN Write("[[N]]Or...interrupt the lesson by typing the symbol ""H&3IF lasterrors = 4 THEN Write("[[N]](You might want to rethink some of your previous answers.)") ELSE[N]H&*2IF lasterrors = 3 THEN Write("[[N]]You have at least eliminated some of the possibilities.") ELSE[N]H&5personalize("Please try again.");[N]H&:the student has failed to give a correct response;[N]H&Athe content of the message depends on the number of times[N]H&Hthe message will always be 'Please try again'.  Otherwise,[N]H&Owhich varies according to circumstances.  In %NEUTRAL mode,[N]H&W 'Tryagain' will output to such students a 'try again' message[N]H&^!answer, or an incomplete answer are usually repeated by GNOSIS.[N]H&f"COMMENT:  Questions output to students who give no answer, a wrong[N]H&nPROCEDURE tryagain;[N]H&rend noanswer;[2N]H&u"".[[N]]");[N]H&wWrite("Om Du vill g} ut ur fr}gan, s} skriv det enda tecknet ""H&personalize("??? Du gav inget svar alls.");[N]Newline;[N]H'&Write("If you want to interrupt the lesson, then type the single character ""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'2The name and address of the teacher is:H'7not know which student sent it to him.H'<You can send it anonymously - the teacher willH'BHe needs the listing to improve the lesson.H'Hwas supplied with %TEACHER command);[N]H'Mto the teacher -- unless no teacher's name and address[N]H'T'Putmessage' will tell the student to send hardcopy reports [N]H'["COMMENT: If no disk files are being generated for teacher reports,[N]H'c

PROCEDURE putmessage;[N]H'g	Selectoutput(0);[N]H'j	Selectoutput(3);[N]H'm!FOR i:= 1 STEP 1 UNTIL answerlength DO Outsymbol(answer.[[i]]);[N]H'uWrite(question);[N]Write(": ");[N]H'y	Selectoutput(2);[N]H'|Breakoutput;[N]H'
BEGIN[N]INTEGER i;[N]H(VALUE question;[N]STRING question;[N]H(!lesson. 'Putaway' writes the unexpected 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-generating command,[N]H((PROCEDURE putaway(question);[N]H(-END;[2n]H(/)lastlatepercent:= IF lastqkount = 0 or x = 0 THEN 0.0 ELSE 100.0 * x/lastqkount;[N]H(86x:= latescore - lastlatescorekount;[N]lastlatescorekount:= latescore;[N]lastqkount:= qcount - lastqkount;[N]H(Dor afterward;[N]H(G*since this PROCEDURE was last called whether student was correct on the first try[N]H(Q*COMMENT: 'Lastlatepercent' returns the percentage of questions answered correctly[N]H(ZREAL PROCEDURE lastlatepercent;[N]H(_'lastpercent:= IF lastqcount = 0 or x = 0 THEN 0.0 ELSE 100.0 * x/lastqcount;[N]H(h.x:= score - lastscorekount;[N]lastscorekount:= score;[N]lastqcount:= qcount - lastqcount;[N]H(r
BEGIN[N]INTEGER x;[N]H(von the very first try since this PROCEDURE was last called;[N]H(}(COMMENT: 'Lastpercent' returns the percentage of questions answered correctly[N]H)REAL PROCEDURE lastpercent;[N]H)
1BEGIN[N]lastlatescore:= latescore - lastlatescorecount;[N]lastlatescorecount:= latescore[N]END;[2N]H)very first try or afterward;[N]H)%since this PROCEDURE was last called whether student was correct on the[N]H)"%COMMENT: 'Lastlatescore' returns number of questions answered correctly[N]H)+INTEGER PROCEDURE lastlatescore;[N]H)/'BEGIN[N]lastscore:= score - lastscorecount;[N]lastscorecount:= score[N]END;[2N]H)8very first try since this PROCEDURE was last called;[N]H)?&COMMENT: 'Lastscore' returns number of questions answered correctly on the[N]H)HINTEGER PROCEDURE lastscore;[N]H)L,latepercent:= IF qcount = 0 or latescore = 0 THEN 0.0 ELSE 100.0 * latescore/qcount;[2N]H)Vstudent was correct on the first try or afterward;[N]H)]by the student since the start of the lesson whether[N]H)c(COMMENT: 'Latepercent' returns the percentage of questions answered correctly[N]H)lREAL PROCEDURE latepercent;[N]H)p&percent:= IF qcount = 0 or score = 0 THEN 0.0 ELSE 100.0 * score/qcount;[2N]H)y#by the student on his very first try since the start of the lesson;[N]H*&COMMENT: 'Percent' returns the percentage of questions answered correctly[N]H*
nPROCEDUREhpercent;[N]H*Newline;[N]Newline;[N]H*5IFNanswercopy.[[pos]]N=Eblank]AND+answer.[[pos]][#]blanknTHEN]Outsymbol(uparrow)(ELSEpOutsymbol(blank);[N]H*FORRpos:=a1)STEP1UNTIL)answerlength[DO[N]H*#%FORNpos:=-1STEPE1IUNTIL[answerlength+2FDOoOutsymbol(answer.[[pos]]);[N]H*,	BEGIN[N]Newline;[N]H*/pos:=s1;[N]IFgNOTxhere(endofline);THEN[N]H*4%EXTRAhmode.chRecallNthatb'here'sscansTpastfleadingmblanks;[N]H*<E'Extratest'isFcallediautomaticallyofors%RIGHTtanswerssinothe[N]H*C!studentresponseOcontainediextrau(i.e.,Isuperfluous)acharacters[N]H*KwhichPWEREDmatchedcbylthebteachereanswerEpatternQIFSthe[N]H*R(COMMENT:,'Extratest' willeflageandEdisplayethoserparts,ofhtheNstudentbanswerh[N]H*[PROCEDUREdextratest;[N]H*lBEGIN[N]pause;[N]Outsymbol(12);[N]Outsymbol(12);[N]Newline;[N]H*fTheneffectNproducedqis,ofhcourse,terminalidependent;[N]H*mwantscto blanksthe]screenonaadisplayeterminal).[N]H*tCOMMENT:e'Page'scanvbeNcalledbythenteachernwhen he[N]H*z	PROCEDURErpage;[N]H*}???,DatornCv{ntade sigsbaraeRETURNgfr}n Dig.H+!Eh?smaThepcomputer[expectedyouwouldOjustRpushuthe[RETURN,button.H+IF[NOTnhere(endofline)nTHEN[N]BEGIN[N]H+	BEGIN[N]pos:=+1;[N]H+ FALSE;[N]H,lasterrors:= lasterrors+1;[N]H,!provide some variation in the conversation;[N]H,'are used to choose between ten different messages in order[N]H,/and the lesson statistics are updated.  Random numbers[N]H,6has made an erroneous answer. He is told about this,[N]H,<COMMENT: 'Wrongmessage' is called when a student[N]H,C
PROCEDURE restore;[N]H.=
anywhere:= FALSE;[N]H.@BEGIN[N]pos:= nextpos;[N]GOTO blankline;[N]H.F[N]nofit:[N]IF answercopy.[[pos]] # carriagereturn THEN[N]H.Manywhere:= ihaveblanked:= TRUE;[N]GOTO out;[N]H.SBEGIN[N]answercopy.[[cpos]]:= blank;[N]H.XFOR cpos:= pos-Length(comp) STEP 1 UNTIL pos-1 DO[N]H.^	nextpos:= pos+1;[N]H.aBEGIN[N]INTEGER cpos, nextpos;[N]H.f'%NOEXTRA mode, his answer will be wrong if any non-blank characters remain;[N]H.oany non-blank characters in the student answer. In the[N]H.v%NOEXTRA mode) to determine whether there are[N]H.|the matched strings. This allows the program (e.g., in the[N]H/'Anywhere' will substitute blanks for all characters in[N]H/
theR%EXTRAGmodeoand[inthe%NOEXTRAp%NOORDER+mode.[N]H/unmatched[strings#willpbe[bypassed.E'Anywhere'iis[usedin[N]H/cfound anywhere inTtheLstudentoanswer[after'pos'.BBlanks]and[N]H/"COMMENT:l'Anywhere'determines[whetherlthe:argumentsstringycanpbe][N]H/'NBOOLEANPROCEDURE anywhere(comp);[N]VALUE comp;[N]STRING comp;[N]H//	[N]out:[N]END;[2N]H/2[N]nofit:[N]here:= FALSE;[N]H/6

BEGIN[N]INTEGER cpos;[N]H/Xfor answers matched in the %NOEXTRA mode;[N]H/^else, may precede the matching word. 'Here' is mostly used[N]H/e beginning at 'pos' in the student answer. Blanks, but nothing[N]H/m#COMMENT: 'Here' determines whether the argument string can be found[N]H/uBOOLEAN PROCEDURE here(comp);[N]VALUE comp;[N]STRING comp;[N]H/|

END;[2N]exit:[N]END;[2N]H0'Write("Duivill intetavbryta.nu.Forts{ttLd}smedidittcordinariesvar.[[N]]");[N]H0	Write("to the PREVIOUS '-->' or 'RETURN' prompt...[[N]]");[N]H0Write("Please continue, then, giving your response[[N]]");[N]H0??? Backing not allowed in this lesson.H0
END[N]ELSE[N]BEGIN[N]H0.???H0/???dSkippingnotuallowedsinpthislesson.H04N[N]Write("H0@") THEN[N]H0BSKIPPAH0DSKIPH0F

pos:= 1;[N]IF anywhere("H0I
GOTO exit;[N]END;[N]H0LWrite("Lektionen avbr`t.[[N]]");[N]H0QWrite("Lesson aborted.");[N]H0Ustop:= TRUE;[N]H0W	") THEN[N]BEGIN[N]H0ZSTOPPH0\STOPH0]BEGIN[N]quit:= FALSE;[N]IF anywhere("H0bIF quit THEN[N]H0eEND;[N]END;[N]H0gquit:= TRUE;[N]GOTO again;[N]H0kWrite(prompt);[N]Breakoutput;[N]H0pOutsymbol(controlg);[N]H0sWrite("""FORTS#TT"" om Du vill forts{tta.[[N]]");[N]H0z*Write("""BACKA"" om Du vill g} tillbaka till en tidigare del av lektionen,[[N]]");[N]H1Write("""SKIPPA"" om Du vill skippa denna fr}ga,[[N]]");[N]H1
"BEGIN[N]Write("SvaraN""STOPP""omDu vill l{mna lektionen,[[N]]");[N]H1Write("or 'CONTINUE'.[[N]]");[N]H1Write(", 'SKIP', 'BACK', ");[N]H1BEGIN[N]Write("Answer 'STOP'");[N]H1 BEGIN[N]IF answer.[[1]] = controlstart THEN[N]H1&

ihaveblanked:= FALSE;[N]H1-Delete(answercopy);[N]answercopy:= Copy(answer,1,i);[N]H14IF answerlength < 0 THEN answerlength:= 0;[N]H19,[N]out:[N]Insymbol(t);[N]i:= i+1;[N]answer.[[i]]:= t;[N]pos:= 1;[N]answerlength:= i-2;[N]H1CGOTO again;[N]H1FEND;[N]H1HIF t = carriagereturn THEN GOTO out;[N]H1M
answer.[[i]]:= t;[N]H1PIF t = lcoe THEN t:= ucoe;[N]H1TIF t = lcae THEN t:= ucae ELSE[N]H1XIF t = lcaa THEN t:= ucaa ELSE[N]H1] ELSE[N]H1_;[N]H1`IF t >= 97 AND t <= 122 THEN t:= t-32H1eCOMMENT: Lower case transform;[N]H1jBEGIN[N]Insymbol(t);[N]H1m[N]again:[N]FOR i:= 1 STEP 1 UNTIL 132 DO[N]H1sBreakoutput;[N]quit:= FALSE;[N]H1wBEGIN[N]INTEGER s, t, i;[N]BOOLEAN quit;[N]H1}to interrupt the flow of the lesson;[N]H2to see if the student typed '%', indicating that he wanted[N]H2	#dumping it in the STRING 'answer'. Column one of the line is checked[N]H2!COMMENT: 'Getline' reads in a line of text input by the student,[N]H2
PROCEDURElgetline;[N]H2FORWARDoBOOLEANgPROCEDUREHanywhere;[2N]H2"FORWARDePROCEDURErputaway;[N]H2&EXTERNAL PROCEDUREepub,nnolpt, run,er;[2N]H2,EXTERNALIPROCEDURE3stopkc;[2N]H20STRING;ARRAYright,rightatlast,Ewrong[[0:9]];[2N]H261STRINGianswer,ranswercopy,pchar, endofline,llessonname, firstname, tempfile1, tempfile2,nprompt;[N]H2AINTEGERlastrights;[N]H2DaINTEGERfrandno,'answerlength,*controlstart,icontrolg, uparrow;[N]H2LINTEGERlcaa,3lcae,lcoe,;ucaa,ucae,ucoe;[N]H2R)INTEGERNlastscorecount,3lastlatescorecount,3lastscorekount,8lastlatescorekount;[N]H2[7INTEGERslasterrors,Nscore,*latescore, qcount,elastqcount,llastqkount, carriagereturn,linefeed,Hpos,blank;[N]H2g#BOOLEANfirsttry,Nihaveblanked,Enopause,skip,Oback,stop,message;[N]H2o;H2qCOMMENT:Thislessonwaswrittenby[N]H2v";[N]H2wCOMMENT:ThismistheElesson3"H2{BEGINH2}71161:CommandisoutofplaceHhere.AsAaGresult,[N]******thiswlineupOtoHnextcommandline3willbeEignored.H3	noanswer;[N]GOTOrepeat;[N]END;[N]H3GOTH4GO H4LACH4NEUH4QUEH4NOEH4	EXTH4NOOH4

ORDH4SAMH4WROH4RIGH40392: %IFEND on non-active switch -- will have no effect.H4&0371: Unknown switchname in %IF-class command.[N]****** Line will be ignored.H4"$0368: No switchname in %IF-class command.[N]****** Line will be ignored.H4+IFH4,$----------------------------------------------------------------------[N]H450324: Command character not first in line.H4:0322: Character after line-number is not TAB.H4@0316: Long input line will be truncated to 132 characters.H4G

****** ERROR Message No. H4N: H4PLINE x}h5gS< \. N5  @5! R5!S"g(B $S* 5( 5)@)@. @. @=d5 J5 J5  5	`+5 .X<5+  5	`+5+5
&5"	b+5ggx5INXX5054Pg(5!2
?ALGOL object time system ALGNNN.SHR not found
h5'+$:5%|h5)G?@h-=5)>xx?@hP+@h D` % 5B . ?Bh+582ph h<B58 1. . h2p /9p5: 0+5? 5C "& & 4B5>. `,` $h ( '`-=	+h`0}X5C]>=S:9 -=5C>xx h4`5J0`Z "& h4@5T```D& 4B5O. , BhSh(@l @P@h hl  @h+h@@hSh(@ @h+h5VYt}-=5V1`+@h %7@g 5^ @h+h`~P5_Id]-=5_<@+@h % a`+hZ4B5i  ,>,
,^@@@@+h5jS;110P-=5j<@t+Bh,>-= ,^+@h+h(5rW&>6E>a -=5r<@x h <h+~X5x]=J7J(h-=5x<@x  >@h h4`6 6-= 6-==@5`r-=+hp6oJNI%zH6-=6<@+@h % ( <6
g
-<60606+64*6$*+06.*+h+06+6"*+61V.=66#6-=>6-==j6`r-=+6#6-=/6-=A6-==j6&+6#7601.=-==j6)+6`96,+hp6CS;] 6Dh-=6C<@xxx
X@@h+6S{P6KW&@xxx
X   @h>Bh+6SP@@h@@h@@h6"h0"1"+6^+Bh  h h,7@+h6Dh+@h5D+@+@h % 6n0   4@6h 
!,A@./$4$6h0d-+6h0$/$D0N(96c@hQh-hPh,6Dh+@h7@+h5D+@`h6ngdXzS;]H6p-=6n<@x &+6z~x6tgdXzW&
Xt>Bh+7P@@h@@h@@h@@h6"h0"+@h Dh6Dh+@h,>6@h+Bh,> h % 7( @j4@7 7) 0,7"1D97D1097,7"0D97.0 7) 2,7"D<R797,^x hSh(H 
h,,^,^7@+h/  6@h+@h6D+
2p+7/$4$7'0d-+7'0$ /$,~ $,~`HH 7*G2~93S2) -=7*<@x6"h0",x70+h+5