Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50334/gnotop.exe
There are no other files named gnotop.exe in the archive.
?p ?x O:~:9Kb) +<] ` INX Q F: { A) += {B E@ ,/ y
67,> ,> ,> 60,> 61-= 60, 7F<L 60, B<@ 60+ b, 7F<L 6+ ^ 6 /6 ,~ , 7t<L Q` \` , 7F<L 6, 6l>
6,` h 6,> ,> ,> 60,> 61-= 60, 7F<L 60, 7;<L 61v + m, B<@ 60 6 V 6 +@h 4@ q, 7F<L 6
+ r, 7F<L 6, 7F<L , 7;<L , 87<L ` + h O%J7J -= w <@ -= + O%i<i2Mi- -= h -= | 6 .6 V 6 @vh 7@ 6D+ 6 Vh + :h 0v + , 7-<L ` h $ 67 h -= v + , 7-<L ` h 1v g O Vh @v 6? 6 Vh + :h 0v B+ '+ Y>~@-= h -= , 7-<L ` h $ 6, h -= v h 2V 6+ h 1V + Ov 6? h 2V 6+ + , h 2V 6 + ', 75<L ` h 0V + %+ h .6 Vh + ,+ , K<@ ` 5+ , _W# -= h -= * h /6 V 6 $ 6, " -= $ 2D 6+ 2+ 7@h + 6, K<@ ` 5z+ 97@ 6?+ 9, K<@ ` 5t 6 1v + ] 6 /6 V 6 , 87<L ` 7@ 6D+ F, 6l>
67,> ,> ,> 60,> 61-= 60, 7F<L 60, B<@ 60+ N, 7F<L 6+ J 6 /6 ,~ , 7t<L Q` H` , 7F<L 6, 6l>
6,` h 6,> ,> ,> 60,> 61-= 60, 7F<L 60, 7;<L 61v + Y, B<@ 60 6 0V + \, 7F<L 5l, 87<L ` 6$ 6,6" -= $ 3D 6+ a+ ", ^<P ` 6' 5j-= 0@ + , !<P , o> ,> ,> ,> 66,> 67-= 66, *<P 66, 71l 660` + p, K<@ d 5b 6 V 6"+ r: 6"2v 6"+ x 6". . 68 X 66-= 0@ + w+ ~+ q, K<@ d 5Y+ + ~ M?-i 0d =g O ,> +@h h -= $ 1$ 0g O Ax / 4D C+@h h -= $ /$ ,> +@h h -= x t / + Y 60V + Y+@h h -= $ 2D 6#+ K,> 6%+@h h -= x r / + Y+@h h -= $ 2D 6$+ R,> 6%+@h h -= x r / + Y+@h h -= $ 2D 6$+ Y,> 6&+@h h -= x r / + .> o,^o> ` K+ h O$;wiJ}LzCK -= [ <@ z + d eX:4 -= h -= a, B<@ 6', 6l>
6,` x ,> ,> ,> 6',> 6(-= 6', *<@ 6' h 0V + m 6' 5P-= 0@ + r+ m 6' 5O-= 0@ + u+ m 6' 5M-= 0@ + x+ m 6' 5L-= 0@ + {+ m 6' 5J-= 0@ + ~+ m 6' 5I-= 0@ + + m 6' 5G-= 0@ + + m 6' 5F-= 0@ + + m 6' 5D-= 0@ +
+ m 6' 5C-= 0@ + + m 6' 5@-= 0@ + + m 6' 5>-= 0@ + + m 6' 5=-= 0@ + + m 6' 5;-= 0@ + + m 6' 5:-= 0@ + + m 6' 58-= 0@ + "+ m 6' 57-= 0@ + %+ m 6' 55-= 0@ + (+ m 6' 54-= 0@ + ++ m 6' 52-= 0@ + .+ m 6' 51-= 0@ + 1+ m 6' 5/-= 0@ + 4+ m 6' 5.-= 0@ + 7+ m 6' 5,-= 0@ + :+ m 6' 5+-= 0@ + =+ m 6' 5)-= 0@ + @+ m 6' 5(-= 0@ + C+ m 6' 5&-= 0@ + F+ m 6' 5%-= 0@ + I+ m 6' 5#-= 0@ + L+ m 6' 5"-= 0@ + O+ m 6' 5 -= 0@ + R+ m 6' 5 -= 0@ + U+ m 6' 5 -= 0@ + X+ m 6' 5 -= 0@ + [+ m 6' 5-= 0@ + ^+ m 6' 5-= 0@ + a+ m 6' 5-= 0@ + d+ m, K<@ d 5 , y<@ $ 6, " -= $ 3D 6+ k, y<@ + g 6 Vh + d+ h O&{yH -= m > -= 6 Vh h 1V + u+ + x iFKAP -= h -= u $ 6, h -= $ Dh h 2V 6+ ~+ , h 3V 6+ h .6 Vh + x+ E2
+ , h 2V 6+ h .6 Vh + $ 6, h -= $ 2D 6+ + , h .6 V 6+ o?K_AP -= h -= $ 6, 6-= $ Dh h 3V 6g O h 3T 6g O A 4V ! 6.6 V 6+ + # 6/6 ,~ , 6l>
6,` Q` !,> ,> ,>h ,>h -= h + 4+ , ]VeF@-= h -= * 5
,> ,> ,>h ,>h -= h + 4 ,W#7 -= h -= 1> o,^o> ` K+ h C2=J7 -= 7 <@ +6 V 6+ =: 6,> , 71l 3 x g O / 4@ F+ D-$h 6-= ,~ , 75<L N B+ =, 7;<L + h iFK] -= H <@ -= , 7F<L 5 6 Vh + P:h ,> , 71l 3 x g O / 4@ h $h h -= $ Dh h 2V 6g O h 2T 6 g O G h 2R 6!g O G h 2P 6!g O G 4V c, 75<L ` h 0V
h .6 Vh + $ 6, h -= $ 2D 6+ + * h .6 V 6+ o?K_AP -= h -= $ 6, 6-= $ Dh h 3V 6g O h 3T 6g O A 4V 6.6 V 6+ + ! 6/6 ,~ , 6l>
6,` Q` ,> ,> ,>h ,>h -= h + 2+ * ]VeF@-= h -= ( 5
,> ,> ,>h ,>h -= h + 2 _W# -= h -= /> o,^o> ` K+ h , y<@ L 6?4V U@vh $ 6, " -= $ 3D 6+ T 60V + C h .6 Vh h 06 + A, 7F<L 5+ C@vh , 7F<L 4+ S h .6 Vh h 1v
+ H, 7F<L 4@vh + P, 6l>
6,` h 6,> ,> ,> 60,> 61-= 60 ,~ , J<@ ^ I, B<@ 60, y<@ + 7+ @vh @vh 6 Vh $ 6, " -= $ 3D 6+ 60V + q7@h + h, 7F<L 5 h .6 Vh h 06 + d, 7F<L 5 h .6 Vh + f, 7F<L 4@vh @vh 6 Vh + q h .6 Vh h 06 + o, 7F<L 5 h .6 Vh + q, 7F<L 4@vh + Ovh Lh 4V t, 7F<L 5Ovh 7@h + , B<@ , t> ,> ,> ,>h ,>h -= h h 5
-= 0@ + @vh + , 71l . h . @h h 26 6#+ , 7F<L , 7F<L 4~+ , 7F<L 5 h .6 Vh h 1v
+ F<L 4@vh , 71l . :@h , 7F<L 5, 7F<L , 7F<L 4~+ u, y<@ + W7@h + , 7F<L 5-h 1v + , 7F<L 4, ^<@ ` -= + h a KxKJJ7\ -= <@ 6 V 6+ %: 6 6.4 2v + + $ 6, 6-= $ 2D 6+ *+ .+ $+ . EN]
6,h 6h 6,> ,> ,> 60,> 61-= 60 ,~ , 9<@ ^ C, B<@ 60+ h O>5;-= 0@ + ]@v 6?+ , 6' 5I-= 0@ + aOv 69+ , 6' 5G-= 0@ + d@v 69+ , 6' 5L-= 0@ + hOv 6:+ , 6' 5J-= 0@ + k@v 6:+ , 6' 5A-= 0@ g O 6' 5@-= 0@ g O G 4@ -= + {, 6l>
6,` h 6,> ,> ,> 60,> 61-= 60 ,~ , 9<@ ^ t 66Vh 5$ 6, h -= $ 2D 6g O h 1v g O A 4D h /6 Vh + }6$ 6, h -= $ 3D 6 + : 60V + , 7;<L + ++ (, 6l>
6,` h 6,> ,> ,> 60,> 61-= 60 ,~ , 9<@ ^ !, B<@ 60+ + ,+ @, y<@ $ 6, " -= $ 3D 6+ 7, K<@ d 4f $ 6, " -= $ 3D 6+ 7, y<@ + 2+ : _W# -= h -= 7, ^<@ ` + U+ @ e&\W4 -= h -= =+ h aW$ pr -= B <@ -= , 7F<L 4c, 7t<L h 6 ` , 71l 611` + d, 7F<L 4b 6 V 6+ P: 6,> , 71l 613 x g O / 4@ d $ 61 6-= $ Dh h 2V 6!g O h 2T 6!g O G h 2R 6 g O G h 2P 6g O G 4V b, 75<L ` , 75<L ` + O, 7F<L 4`> o,^o> ` K+ h k:]k{]6.<pO -= h <@ , 7F<L 4^7@ 6<+ v 60V + r, 7F<L 4X+ u 60V + u, 7F<L 4R+ w, 7F<L 4O7@ 6=+ y, D<@ + h u|S; -= z <@ , 7F<L 4K, 7F<L 4^, 7F<L 4GOv 6B+ h G",:xe Y]( -= <@ v -= ,> ,> "p $h "& "( -= 5# h .6 ,> ,> ,>X ,>X -= X 5/ h .6 ,> ,> ,>X ,>X -= X 5% h .6 ,> ,> ,>X ,>X -= X 5 h .6 ,> ,> ,>X ,>X -= X 5 h .6 ,> ,> ,>X ,>X -= X 5" h .6 ,> ,> ,>X ,>X -= X 5 h .6 ,> ,> ,>X ,>X -= X 5, h .6 ,> ,> ,>X ,>X -= X 5& h .6 ,> ,> ,>X ,>X -= X 5+ h .6
,> ,> ,>X ,>X -= X 5. h .6 ,> ,> ,>X ,>X -= X 5( h .6
,> ,> ,>X ,>X -= X 5) h .6 ,> ,> ,>X ,>X -= X 5: h .6 ,> ,> ,>X ,>X -= X 57 h .6 ,> ,> ,>X ,>X -= X Lh 4V p 6 Vh + W:h ,> +@h 3 x g O / 4@ k 6' h . .h X -= 0@ + i, K<@ ` 4;, y<@ $ 6, " -= $ 3D 6+ f, y<@ + b, ^<@ ` + o+ k+@h 2@h + kOvh + W+ o KN2q'# -= h -= l+ T-= + h aW&h9SI9 -= q <@ , 7F<L 49, 7F<L 45, 7F<L 6), 7F<L 44 6+ 5
-= 1@ g O A 6=4@ , 7F<L 4/, 9<@ 6+, 7F<L 4-, 7;<L , 7F<L 4%, 7F<L 4, 7F<L 4 60V +
, 7F<L 4, 7F<L 3, 7F<L 3t, 7F<L 3n+ h aW&
WG&\Rf -= <@ 7@ 6>+ , 7F<L 3j7@ 6>+ , 7F<L 3d7@ 6=+ , 7F<L 3`, 7F<L 3[, 7F<L 3V, 7F<L 3S, 7F<L 3O7@ 6>+ (, 7F<L 3M, 7F<L 3K, 7F<L 3H, 7F<L 3@, 7F<L 37, 7F<L 30, 7F<L 3+, 7F<L 3%, 7F<L 3!, 7F<L 3, 7F<L 3, 7F<L 3, 7F<L 3 60V + =, 7F<L 37@ 6@+ g, 7F<L 2 , 7F<L 2, 7F<L 2, 7F<L 2, 7F<L 2, 7F<L 2
+ u 60V + u, 7F<L 2
, 7F<L 2, 7F<L 2 60V + |, 7F<L 2+ 60V + , 7F<L 1|, 7F<L 1y, 7F<L 1v 60V +
, 7F<L 1t+
60V +
, 7F<L 1r, 7F<L 1p, 7F<L 1nL 6A4V
60V +
, 7F<L 1k+
60V +
, 7F<L 1h, 7F<L 1d+
60V +
, 7F<L 1_+
60V +
, 7F<L 1^, 7F<L 5, 7F<L 1Z, 7F<L 1v 60V +
#, 7F<L 1Y+
& 60V +
&, 7F<L 1W, 7F<L 1p, 7F<L 1nL 6A4V
3 60V +
., 7F<L 1T+
1 60V +
1, 7F<L 1Q, 7F<L 1M+
; 60V +
6, 7F<L 1H+
9 60V +
9, 7F<L 1^, 7F<L 5, 7F<L 1Z 60V +
A, 7F<L 1@, 7F<L 19+
D 60V +
D, 7F<L 10, 7F<L 2s, 7F<L 2, 7F<L 1,, 7F<L 1%, 7F<L 1 , 7F<L 1, 7F<L 1, 7F<L 1, 7F<L 1, 7F<L 0~, 7F<L 0y, 7F<L 3K, 7F<L 0s, 7F<L 4^, 7F<L 0l, 7F<L 0j, 7F<L 3K, 7F<L 0f, 7F<L 0b, 7F<L 0_, 7F<L 0W, 7F<L 0O, 7F<L 0H, 7F<L 0A, 7F<L 0:, 7F<L 03, 7F<L 0,, 7F<L 0&, 7F<L 0 , 7F<L 0, 7F<L 0, 7F<L 0~, 7F<L 0y, 7F<L 3K, 7F<L 0, 7F<L 0s, 7F<L 4^, 7F<L 0l, 7F<L 0j, 7F<L 3K, 7F<L 0, 7F<L 0, 7F<L 3K, 7F<L /}, 7F<L /v, 7F<L /p, 7F<L 3K, 7F<L /m, 7F<L 0_, 7F<L /j, 7F<L /a, 7F<L /Y, 7F<L /Q, 7F<L /M, 7F<L /E, 7F<L /C, 7F<L /?, 7F<L /7, 7F<L /0, 7F<L /+, 7F<L 4^, 7F<L /', 7F<L /#, 7F<L /C, 7F<L /, 7F<L /, 7F<L / , 7F<L /, 7F<L ., 7F<L .w, 7F<L .p, 7F<L .h, 7F<L .`, 7F<L .^, 7F<L .Z, 7F<L .S, 7F<L .L, 7F<L .E, 7F<L .?, 7F<L .7, 7F<L .0, 7F<L .+, 7F<L 4^, 7F<L .', 7F<L .$, 7F<L . , 7F<L ., 7F<L . 60V + N, 7F<L ., 7F<L -, 7F<L -|, 7F<L -w, 7F<L /C, 7F<L -s, 7F<L -l, 7F<L -f, 7F<L -_, 7F<L -W, 7F<L -Q, 7F<L 4^, 7F<L -M, 7F<L .$, 7F<L -G, 7F<L 3K, 7F<L -B, 7F<L /C, 7F<L -?, 7F<L -7, 7F<L -0, 7F<L -), 7F<L -!, 7F<L -, 7F<L -, 7F<L - , 7F<L -, 7F<L ,}, 7F<L ,v, 7F<L ,m, 7F<L ,e, 7F<L ,`, 7F<L ,] 60V + , 7F<L ,Y+
60V +
, 7F<L ,U, 7F<L ,R7@ 6@+
, 7F<L 2 , 7F<L ,N, 7F<L ,G, 7F<L ,C, 7F<L ,@, 7F<L ,; 60V +
, J<@ ,3+
60V +
, J<@ ,-, 7F<L 2, 7F<L /C, 7F<L ,*, 7F<L ,$, 7F<L , , 7F<L ,, 7F<L ,, 7F<L /C, 7F<L , , 7F<L ,, 7F<L +{, 7F<L +s, 7F<L +l, 7F<L +d, 7F<L 4^, 7F<L +,, 7F<L +\, 7F<L +S, 7F<L +N, 7F<L +B, 7F<L +>, 7F<L 3K, 7F<L /C, 7F<L +:, 7F<L +1, 7F<L +), 7F<L + , 7F<L + , 7F<L +, 7F<L +
, 7F<L *, 7F<L )w, 7F<L )t, 7F<L *", 7F<L )h, 7F<L )), 7F<L )]7@ 6=+ ),, 7F<L )), 7F<L )$, 7F<L ) , 7F<L 5, 7F<L ),, 7F<L ), 7F<L )$, 7F<L ) , 7F<L 5, 7F<L ),, 7F<L ), 7F<L /C 6+ 5
-= 1@ + ), 7F<L )
, 7F<L ), 7F<L ({, 7F<L (v, 7F<L 4^+ 60V + (H, 7F<L (D, 7F<L 4^, 60V + (>, 7F<L /C+ 7F<L ', 7F<L ' , 7F<L ', 7F<L 4^< 60V + 75<L h 6, 7F<L &
, 7F<L & , 7F<L 6), 7F<L 44-= "h -= + A Z -= <@ =h p 0V + 5@vp p .6 Vp p 0V + ) &,> ,> ,>p ,>p -= =h p + 5 p 0V + / &,> ,> ,>p ,>p -= =h p + 5 p 0V + 5 &,> ,> ,>p ,>p -= =h p + 7 p .6 Vp , 7F<L , 7F<L &, 7t<L ` ` , 7F<L & , 7F<L , 7F<L 44+ h @vh 6 Vh 60V + q, <@ %~, <@ %|, <@ %z, <@ %x, <@ %v, <@ %t, <@ %r, <@ %p, <@ %n, <@ %l, <@ %i, <@ %e, <@ %b, <@ %_, <@ %[, <@ %W, <@ %S, <@ %O, <@ %K, <@ %G, <@ %E, <@ %C, <@ %?, <@ %<, <@ %:, <@ %6, <@ %4, <@ %1, <@ %., <@ %*+ 60V + , <@ %(, <@ %&, <@ %$, <@ %", <@ % , <@ % , <@ % , <@ %, <@ %, <@ %l, <@ %, <@ %, <@ % , <@ %, <@ %, <@ $, <@ $|, <@ $y, <@ $u, <@ $n, <@ $l, <@ $k, <@ $h, <@ $d, <@ $a, <@ $], <@ $Z, <@ $V, <@ $S, <@ $O, 7;<L -= + h aW% 0I -= " <@ , 7F<L $K7@ 6=+ :L 6A4V +, 7F<L $F7@ 6A+ -, 7F<L $?L 6AL 6CA 4V 7 60V + 3, J<@ $:+ 6 60V + 6, J<@ $3, 7F<L $1, 7F<L ),, 7F<L $-7@ 6>+ =, 7F<L 3M7@ 6@+ & 60V + R, 7F<L $&, 7F<L $7@ 6=+ F, 7F<L $, 7F<L $ 7@ 6@+ I, 7F<L 2 , 7F<L $, 7F<L $, 7F<L #x, 7F<L #n, 7F<L #f, 7F<L #`+ b 60V + b, 7F<L #X, 7F<L #M7@ 6@+ Y, 7F<L 2 , 7F<L $, 7F<L $, 7F<L #E, 7F<L #n, 7F<L #@, 7F<L #:, 7F<L #6, 7F<L #4, 7F<L #/, 7F<L #+, 7F<L #', 7F<L #", 7F<L 3K, 7F<L 3K, 7F<L # , 7F<L #, 7F<L 3K7@ 6A+
, 7F<L #, 7F<L #, 7F<L # , 7F<L "y, 7F<L "u, 7F<L "q, 7F<L "l, 7F<L "h, 7F<L "c, 7F<L "_, 7F<L "Z, 7F<L "V, 7F<L "R7@ 6>+
, 7F<L 3M7@ 6=+ &, 7F<L )) 60V + , 7F<L "M, 7F<L 6), 7F<L "J, 7F<L "F, 7F<L ">, 7F<L 5, 7F<L "4+ & 60V + &, 7F<L "/, 7F<L 6), 7F<L "J, 7F<L )), 7F<L "+, 7F<L ">, 7F<L 5, 7F<L "!L 6=4V ~ 60V + ;, 7F<L ", 7F<L ", 7F<L " 6* 5
-= 1@ + 4, 7F<L ", 7F<L 6*, 7F<L 4`, 7F<L ", 7F<L ", 7F<L !|, 7F<L !r+ L 60V + L, 7F<L !m, 7F<L 6), 7F<L !k 6* 5
-= 1@ + H, 7F<L ", 7F<L 6*, 7F<L !i, 7F<L !c, J<@ !^, J<@ !Y, 7F<L 57@ 6=+ Y 6+ 5
-= 1@ + Y 60V + U, J<@ !U+ X 60V + X, J<@ !O, J<@ 6+ 60V + ], 7F<L !D+ ` 60V + `, 7F<L !:, 75<L h 6 60V + e, 7F<L !8+ h 60V + h, 7F<L !8 60V + k, 7F<L !/+ n 60V + n, 7F<L !'L 6A4V } 60V + w, 7F<L !!, 7F<L !, 7F<L !, 7F<L !+ } 60V + }, 7F<L ~L 6A4V }, 7F<L v, 7F<L t, 7;<L , 7F<L 63, 7F<L 6, 7F<L r, 7F<L n+ h aW$j7SN@ -= <@ , 7F<L hL 6A 6 1t g O A 4V +-= , 6l>
f,> ,> ,> 63,> 64-= 63, 7F<L b7 6 Vh )6 7Vh + :h 2vh + , <P , 7;<L , 7F<L 63, 7F<L a+ 60V + $, 7F<L LW, 7F<L LN+ ( 60V + (, 7F<L E, 7F<L =, 7F<L 9> o,^o> ` K, 7F<L L5L 6=4V C7 60V + 9, 7F<L 1, 7F<L 6), 7F<L ,, 7F<L #, 7F<L , 7F<L + C7 60V + C, 7F<L , 7F<L 6), 7F<L , 7F<L , 7F<L }, 7F<L u7@ 6=+ wL 6CL 6AA 4V [7 60V + K, 7F<L l, 7F<L d+ P 60V + P, J<@ ], J<@ W 60V + U, J<@ P, J<@ J+ Y7 60V + Y, J<@ D, J<@ ?, 7F<L $1, 7F<L ),, 7F<L :7 60V + a, 7F<L 7+ d 60V + d, 7F<L 3, 7F<L ' 60V + i, 7F<L !+ l 60V + l, 7F<L , 7F<L 60V + q, 7F<L + h 64 5
-= 0@ + W, K<@ d |+ \, 7F<L z, 7F<L 64, 7F<L 3+ f, y<@ + b, ^<@ ` + t, B<@ 64, 6l>
62,> ,> ,> 64,> 65-= 64L 6;L 6;A 4V r, 7F<L j+ t, 7F<L g@v 6:, 7;<L , 7F<L 62, 7F<L @a+ h [\[E` -= y <@ -= , 71l 62@@h + Y&I9G"71l 6). ,~ , 7>
Q` 3` ,> ,> ,>h ,>h -= h 6 Vh + =:h ,> , 71l 6)3 x g O / 4@ F $ 6) h -= $ $h h -= v + < $ f " -= $ $h h .6 -= t $ d " -= $ $h h .6 -= t $ c " -= $ $h h .6 -= t $ a " -= $ $h h .6 -= t , 8@<L ` ` Ov 6<, 87<L ` -= + h 6 V 6 6 V 6 6 V 6 6 V 6, 7>
` ` ,> ,> ,> 67,> 68-= 67 6 $ 67 " -= v , 7>
` C` ,> ,> ,> 6,,> 6--= 6, 6 $ 6, " C-= v 6 $ 6, " C-= v $ ` " -= $ D 6 $ ^ " -= $ D 6 $ 4- " -= $ D 6 $ f " -= $ D 6 $ 4~ " -= $ D 6 $ ] " -= $ D 6 $ [ " -= $ D 6 $ & " -= $ D 6! $ Z " -= $ D 6! 6 $ V 6# 5
,> ,> ,> 6(,> 6)-= 6(,> ,> ,> 61,> 62-= 61,> ,> ,> 6+,> 6,-= 6+,> ,> ,> 6(,> 6)-= 6(,> ,> ,> 6),> 6*-= 6),> ,> ,> 6',> 6(-= 6',> ,> ,> 60,> 61-= 60 $ d " -= $ D 6 $ X " -= $ D 6 5
,> ,> ,> 62,> 63-= 62@$ W " -= $ ,D 6#>$ U " -= $ D 6$ $ T " -= $ D 6$ $ R " -= $ D 6& $ 5 " -= $ D 6% $ Q " -= $ D 6% $ O " -= $ D 6& $ N " -= $ D 6', 8<L ` L, 8<L ` 5), 8<L ` 5)` , 8<L ` 5), 7F<L H, 7F<L B, 7F<L :+ Q gR-
f,> ,> ,> 63,> 64-= 63Ov 69@v 6@ V 6@ V 6A V 6> V 6A V 6> V 6< V 6: V 6C V 6= V 6= 6 V 6@v 6 V 6 V 6 V 6 , B<@ 6+ 5
,> ,> ,> 6+,> 6,-= 6+, 7F<L 1, 7F<L /, y<@ , 6l>
6,` h 6,> ,> ,> 65,> 66-= 65 65 5
-= 0@ + t+ , *<@ 65 6 V 6 $ f " -= $ $ 65 6-= $ 3D g O ,> , 71l 653` 6g O A x / 4@ 6.6 V 6+ v, 71l 652@ 6+ <-= + , 71l 65. ,~ , 7>
Q` ` ,> ,> ,> 6,> 6-= 6 6 V 6+ : 6,> , 71l 653 x g O / 4@ $ 65 6-= $ $ 6 6-= v + $ f " -= $ $ 6 6.6 -= t $ a " -= $ $ 6 6.6 -= t $ . " -= $ $ 6 6.6 -= t $ , " -= $ $ 6 6.6 -= t + 2, 71l 6,~ , 7>
Q` 0` ,> ,> ,> 65,> 66-= 65 6,> ,> ,> 65,> 66-= 65> o,^o> ` K, 7F<L (, 7F<L 65, 7F<L %, 8@<L ` 65, 81<L ` , 7-<L h 6 6&4 1V g O V 6D, 8l<L ` , 8@<L ` 65, 81<L ` 6 V 6+ P: 6,> , 71l 653 x g O / 4@ Z $ 65 6-= $ 2D 6 + Y 6/6 V 6+ ]+ O+ ] Yi3_IP -= h -= Z, B<@ 6+, B<@ 6*, B<@ 6), 6l>
65` h 6,> ,> ,> 6),> 6*-= 6), /<@ + m gR-_? -= h -= j, y<@ 60V + { 60V + s, y<@ + p $ 6, " -= $ D 6 $ # " -= $ 3D 6+ {, K<@ ` $ 6, " -= $ 3D 6+ , K<@ d $ 6, " -= $ 3D 6+ , y<@ + , ^<@ ` , P<@ 6' 5 -= 0@ +
Ov 6>, K<@ ` + m 6' 5 -= 0@ + , o> ,> ,> ,> 6/,> 60-= 6/, *<@ 6/Ov 6>, K<@ ` u+ m 6' 5#-= 0@ + +, B<@ 6(, o> ,> ,> ,> 6(,> 6)-= 6(, *<@ 6( 6( s-= 0@ + % 6 V 6+ + 6( q-= 0@ + ) 6 V 6+ +, K<@ ` j+ m 6' 5"-= 0@ + /Ov 6=+ m 6' 5 -= 0@ + d, !<@ , o> ,> ,> ,> 66,> 67-= 66, *<@ 66, 71l 660` + <, K<@ d b 6 V 6"+ >: 6"2v 6"+ F 66 6". . 68X -= 0@ + E, K<@ ` ]+ > 6"0V + J, K<@ d S+ K 6".6 V 6", 6l>
66 6". . 68,> ,> ,>X ,>X -= X , o> ,> ,> ,> 66,> 67-= 66, *<@ 66 66 Q-= 0@ + [ 6E. 6"OvX + b 66 P-= 0@ + ` 6E. 6"@vX + b, K<@ d E 6F. 6"@vX + m 6' 5,-= 0@ + gOv 6C+ m 6' 5&-= 0@ + kOv 6A+ m 6' 5+-= 0@ + nOv 6@+ m 6' 5.-= 0@ + rOv 6@+ m 6' 5)-= 0@ g O 6' 5(-= 0@ g O G 4@ Ov 6= V 6C V 6A, K<@ ` @, 87<L ` , 7F<L >, 7F<L 6), 7F<L ;, 7F<L 6), 7F<L 6, 7;<L , 87<L ` + m 6' 5%-= 0@ + , !<@ , 6l>
6,h 6h 6,> ,> ,> 6*,> 6+-= 6*+ m 6' 5/-= 0@ + !, !<@ , 6l>
6,h 6h 6,> ,> ,> 6+,> 6,-= 6+ 6+ 5
-= 0@ + , K<@ ` ,Ov 6COv 6=+ m, t<@ 6' 58-= 0@ + +, 6l>
54,> ,> ,> 6',> 6(-= 6', P<@ + ", <@ ` , <@ 6' 5:-= 0@ g O 6' 57-= 0@ g O G 4@ L 6' 57-= 0@ + ?, 6l>
54,> ,> ,> 6',> 6(-= 6', 7;<L , 7;<L , P<@ + 5 6' 5:-= 0@ + L, 7F<L *, 7F<L > o, 7F<L 3
54,> ,> ,> 6',> 6(-= 6', 7;<L , 7;<L , P<@ + O, <@ ` , $<@ + ` o"L:4;&+v4 -= h -= \, P<@ 6' 52-= 0@ + f, ><@ + z 6' 5>-= 0@ + 6 .6 V 6 , 7F<L ', 7t<L h 6 ` , 7F<L 3
",> ,> ,> 62,> 63-= 62, B<@ 64 5
,> ,> ,> 64,> 65-= 64@v 6Ov 6<@v 6B:V 6C2 6 .6 V 6 , 7F<L , 7t<L h 6 ` , 7F<L 3 V 6+ ' 6/6 V 6+ 1 $ 6, 6-= $ 3D 6 + G 6/6 V 6 6/6 V 6+ 1 I'&Km -= h -= . $ 6, 6-= $ 3D 6 g O $ 6, 6-= $ 3D 6g O A 4D < 6/6 V 6+ 1, B<@ 61+ @ 6.6 ,~ , 6l>
6,Q` >h 6,> ,> ,> 61,> 62-= 61 6.6 V 6+ > o,^o> ` K, ><@ 63,> ,> ,> 6.,> 6/-= 6., <@ , 7;<L , 7F<L 63, 7F<L a, 7F<L , 7F<L , 7F<L 2Z, 7F<L , 7F<L , 7F<L
, 7F<L 3K, 7F<L 5, n<@ 7@ 6@+ b, 7F<L 2 , 7F<L $, 7F<L
, 7F<L 4^7@ 6=+ k 6 V 6@v 6, D<@ 6 V 6, 7F<L L 6A4V , 7F<L , 7F<L 4^7@ 6=+ u 6 V 6@v 6, D<@ 6 V 6, 7F<L ~, 7F<L 6., 7F<L P, 7F<L |, 7F<L 4^7@ 6=+ 6 V 6@v 6, D<@ 6 V 6, 7F<L w+ C; y9M&tF@-= h -= @v 6;, P<@ @v 6B 6' 5P-= 0@ + Ov 6;L 6C4V 62v 6+ , B<@ 6-, !<@ , 6l>
6,h 6h 6,> ,> ,> 6-,> 6.-= 6-Ov 6C 6 V 6+ < 6' 5O-= 0@ + @v 6;+ < 6' 5D-= 0@ + Ov 6;+ < 6' 5C-= 0@ + &Ov 6B@v 6;L 6B4V %, |<@ + <L 6B4V (, |<@ , j<@ , 7F<L 3K, 7F<L t7@ 6C+ 1, 7F<L r, J<@ 6-, 7F<L k, 7F<L h, 7F<L 4L 6A4V :, 7F<L S, 7F<L 6., 7F<L P, 7F<L 3K+ _, 7F<L d, B<@ 6(, o> ,> ,> ,> 6(,> 6)-= 6(, *<@ 6( 6( 5
-= 0@ + GOv 6:L 6;A 6:L 6;A L 6BA 4V d 6.6 V 6 60V + PL 6B4V P, |<@ , 7F<L a+ T 6/6 ,~ , 7t<L Q` R` ` , 7F<L _, {<@ , j<@ , 7;<L , 7F<L ^, 7F<L 62, 7F<L a, n<@ , M<@ , 7F<L 3K+ + SL 6;4V e@v 6< 61V + t, K<@ d S+ l _J$\V_? -= h -= i, y<@ $ 6, " -= $ 3D 6+ r+ l, ^<@ ` + , {<@ 7@ 6:+ x, 7F<L Q, 7;<L 6( 5
-= 1@ + &L 6B4V L 6:4V ~, 7F<L N, 7F<L LL 6:G 694V , 7F<L K, 7F<L I7@ 6B+ , 7F<L E 6 ,V 6+ : 6,> , 71l 6(3Lx g O / 4@ <$ 6(, 6-= $ D 6- 62V 6+ , 75<L h 6< 62V 6 + , 75<L h 6 , 75<L h 6+ , 7F<L B7@ 6B+ , 7F<L A, 7F<L 62, 7F<L 3F<L 6/, 7F<L 1, B<@ 65, 81<L ` , 87<L ` , 8l<L ` , 8l<L ` , 7F<L .+ Q, K<@ d "+ z G",:vS:+ -= h -= w, y<@ $ 6, " -= $ 3D 6+ , K<@ d $ 6, " -= $ 3D 6+ , y<@ + +
G>vLWY2Mi- -= h -= , ^<@ ` + `+ gR~@-= h -= result,[N]****** this line up to next command line will be ignored. H # 63330: 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 2 [N]END;[N]H 4 extratest;[N] H 7 wrongmessage H 9 rightmessage H < GOTO H = IF NOT here(endofline) THEN GOTO H B LACK H C ") THEN GOTO H F pos:= 1;[N]IF NOT anywhere(" H J here(" H L anyw H M IF NOT H O pos:= 1;[N] H R pos:= 1; H T 13200: Expected answers must precede first [N]****** empty answer pattern. Command will be ignored. H SAME H ` THEN[N] H b IF lasterrors =H e IF ihaveblanked THEN restore;[N] H i [N]next:[N] H l Write(right[[random]]);[N]Newline;[N]GOTO SAMEQZXAAB;[N] H s giveanswer;[N] H u [N]simulate:[N]H x skip:= FALSE;[N]GOTO simulate;[N]END;[N]H } IF skip THEN[N]H
back:=rFALSE;[N]GOTOH H IFNbackeTHEN[N]H stop:=SFALSE;[N]GOTOHendoflesson;[N]END;[N] H IFtstoplTHEN[N]H 0;[N]H BEGIN[N]INTEGER subblock;[N] H
[4N]COMMENT:tQuestion H # QZXAAA H % :[N]BEGIN[N] H ( [4N]COMMENT: Text H + [2N]PROCEDURE H - )2727: Ignore this message if you meant to omit[N]****** teacher's name and address. H 7 .SRT<155> files to receive teacher reports. H < .DTA<155> and H ? ****** H A 2651: Ignore this message if you have createdH F /2545: Switch value neither 'TRUE' nor 'FALSE'.[N]****** The effect of this error is undefined. H Q FALSEH R TRUE H T +2538: More than 9 switches not allowed.[N]THIS switch will replace the old number nine. H ^ 2536: This switch is doubly defined. H c #2530: No switchname in %SWITCH command.[N]****** Line will be ignored.H k 2501: Unknown language.[N]****** GNOSIS will default to English..H r SWEDISH H t ENGLISH H v ;2482: The GNOLIB.REL file must reside in 'SYS:'. [N]****** Load as follows: '.LOAD <lessonname>.ALG, SYS:GNOLIB.REL'. H ;2456: The GNOLIB.REL file must reside in 'SYS:'. [N]****** Load as follows: '.LOAD <lessonname>.ALG, SYS:GNOLIB.REL'. H =2435: A command line is required at this point. As a result,[N]****** this line up to next command line will be ignored. H 2430: You are not using '%' as a command indicator. H $ % H & " has begun...[2N] H ) [2N]Translation of the lesson " H - O H / N H 0 -->[B] H 2 &[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 C Copyright (c) 1978 by Jacob Palme and Walter ManerH I GNOSIS Version 2 (June, 1978)[N] H M TTY H O E H P @ H R # H S e H U ` H V { H X } H Y Z H [ ]] H \ " H ^ ! H = H a : H b G H d L H e A H g . H h GOTO next;[N] H k GOTO repeat;[N]H m =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 } #2177: No previous comment available.[N]****** Command will be ignored.H Write("!");[N] H %IF firstname # "" THEN[N]BEGIN[N]Write(", ");[N]Write(firstname);[N]END;[N]H Write("[[2N]]Have a nice day");[N] H Openfile (1,"");[N]Openfile (3," H Selectinput(1);[N]seloutputandstopkc(3);[N]Transfile;[N] H .SRT", %155);[N] H # Closefile(1);[N] H & Openfile (1,"");[N]Openfile (2," H * #Selectinput(1);[N]Breakoutput;[N]seloutputandstopkc(2);[N]Transfile;[N] H 3 .DTA", %155);[N] H 6 Openfile(1," H 8 ""...[[N]]");[N] H ;
GOTO mess;[N]END;[N]H F
Write("MEDDELANDE:T");[N]H J Write("MESSAGE:]");[N] H M ack THEN[N]BEGIN[N]back:=2FALSE;[N]GOTO[ H Y Write(prompt);[N]Breakoutput;[N]getline;[N] H E [N]mess:[N] H a $Write("Slutarmedrattttrycka en extratg}ng p}nRETURN-knappen.[[2N]]");[N] H j %Write("OmDuehar n}gottmeddelandeitill l{raren,(s}tskrivldetinu.[[N]]");[N]H r (Write("line atravtime. pFinishkwithran.EXTRA^push on2theDRETURNekey.[[2N]]");[N]H { (Write("Ifdyoulhaveranynmessage for thetteacher,sthen type it now,tone[[N]]");[N]H )Write("[totaltmav[[NT]]-");[N]Print(qcount,3);[N]Write("dgivnapfr}gor.[[2N]]");[N] H 6Write(" total righteoutfofgartotalDof[[NT]]-");[N]Print(qcount,3);[N]Write("[questions]attempted.[[2N]]");[N] H Print(latescore,3);[N] H Write("if`rstasvarroch[[NT]]-");[N]H " Write("Prightlanswerseon)firstHtries and[[NT]]-");[N] H ( 4Print(latepercent,2,1);[N]Write("% (");[N]Print(percent,2,1);[N]Write("%)[[NT]]-");[N]Print(score,3);[N]H 4
""D{rislut.[[N]]Dunhar svarat6p}");[N]Print(qcount,3);[N] H ] Write("Lektion "" H %Write(" questions your answer was right on your very first try.[[N]]");[N] H Write(" times.[[N]]On");[N]Print(score,3);[N]H $ (Write(" questions,[[N]]and you gave the right answer");[N]Print(latescore,3);[N]H - "" you answered");[N]Print(qcount,3);[N]H 2
GOTO start;[N]END;[N] H > !Write("utan m}ste backa till lektionens b`rjan. F`rl}t![[N]]");[N] H F )Write("Jag kan inte g} en liten bit bak}t p.g.a. lektionens komplexitet[[N]]");[N] H O 'Write("from this point. It is going all the way back to the start.[[N]]");[N] H X )Write("NOTE: The backing procedure is unable to go back just ONE step [[N]]");[N] H b :[N] H c
IF FALSE THEN[N]BEGIN[N] H g ZQXAAA H i END of block started with makeblock INTEGER;[4N] H o BEGIN[N]INTEGER blockmaker;[N]H s [N]start:[N] H u page;[2N] H w `ver en fr}ga eller[[NT]]- g} tillbaka i lektionen.[[2N]]");[N] H &Write("D{refter kan du[[NT]]- avsluta hela lektionen eller[[NT]]- bara hoppa H ! (Write("[[NT]](3) 'BACK' to return to the previous question (or text).[[2N]]");[N] H ! &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 !" Write("GNOSIS will then explain how you can type");[N] H !( #Write(" p} Din terminal och sedan trycka p} RETURN-knappen.[[N]]");[N]H !0 $Write(" on your terminal and then pushing the RETURN button.[[2N]]");[N] H !9 """);[N] H !; +Write("Du kan avbryta lektionen n{r som helst genom att skriva[[N]]det enda tecknet "" H !E 2Write("[[N]]IMPORTANT: You can interrupt the lesson at any time by typing the[[N]]single character "" H !P Den l{rare som skrev den h{r lektionen {r... H !V The author of this lesson is... H !Z F`rsvarets forskningsanstalt, Stockholm.H !_ f`r datorst`dd undervisning(DU) fr}n H !d Write("[[N]]producerad av GNOSIS-systemet ");[N] H !j ,");[N] H !l '");[N] H !n Write("[[2N]]Detta {r lektionen ' H !s ,Write("Stockholm, Sweden, and the Old Dominion University Research Foundation.[[N]]");[N] H !} ,Write("instruction (CAI) from the Research Institute of National Defense[[N]]");[N] H " -Write("This lesson was produced by the GNOSIS system for computer aided[[N]]");[N]H "
Write(".[[2N]]");[N]H " Write(",[[N]] H " Write("'");[N] H "
Write(lessonname);[N] H " Write("[[2N]]WelcomeAtoAtheRlessonL'");[N] H "" ,Write("[[N]]SP$RNING[AVEOV#NTADEASVAR:[[N]]");[N]Breakoutput;[N]seloutputandstopkc(0);[N] H ", ? #FORepos:=]1NSTEP]1 UNTILNanswerlengthaDO[Outsymbol(answer.[[pos]]);[N]H "G Write("STUDENT'SsNAME:d");[N] H "K [[2N]]");[N] H "N Write("[[P]]TEACHEReREPORT{FORNTHESLESSON:m H "S Openfile(3,tempfile2,%057);[N]H "W Openfile(2,tempfile1,%057);[N]H "[ tempfile2.[[pos+4]]:=l"T".[[1]];[N]H "` tempfile2.[[pos+3]]:=N"R".[[1]];[N]H "d tempfile2.[[pos+2]]:=l"S".[[1]];[N]H "i tempfile1.[[pos+4]]:= "A".[[1]];[N]H "m tempfile1.[[pos+3]]:= "T".[[1]];[N]H "r tempfile1.[[pos+2]]:=w"D".[[1]];[N]H "v ELSE[pos:=Hpos- 2;[N] H "z tempfile1.[[pos+1]]:= tempfile2.[[pos+1]]:= ".".[[1]][N] H # IF firstname.[[Length(firstname)]] # ".".[[1]] THEN H # 5FOR pos:= 1 STEP 1 UNTIL Length(firstname) DO tempfile1.[[pos]]:= tempfile2.[[pos]]:= firstname.[[pos]];[N] H # tempfile1:= tempfile2:= Newstring(Length(firstname)+5,7);[N]H # Write(firstname);[N]Write("!");[N] H # firstname:=Copy(answer,1,pos-1);[N]H ## BEGIN[N]pos:=pos+1;[N]GOTO nameloop;[N] H #(
#Write("[[NT]]generate personal datapbasedsonethis session.)[[2N]]");[N] H $ Write("[[NT]](UnlessiyouhenterHa made-upPname, GNOSIShwill");[N] H $ 2[N]repeat:[N]Write("I'd"like)toNknowpyour,full"name--[[N]]justDtype;it]in afterGthe arrow.[[N]]");[N] H $' Write("[[N]]Hello!$LThis is GNOSIS talking.[[N]]");[N] H $.
[N]Input(0,"TTY");[N] H $P T
Nej, inte riktigt s}. H $W
Det d{r {r inte riktigt. H $[ Tyv{rr inte r{tt. H $^ Nej, den h{r g}ngen svarade Du fel.H $b Det {r inte r{tt! H $e
Ditt svar var felaktigt. H $i Du valde fel svar. H $l Nej! H $m Fel! H $o Just det. Bara man anstr{nger sig lite s} g}r det bra. H $v Bra! Forts{tt p} det s{ttet.H $z #ntligen r{tt! H $} Du g`r framsteg. H % S}ja, till slut g}r det bra!H % Javisst! Nu klarar Du det h{r. H % Nu har Du fattat det hela! H %
B{ttre och b{ttre!H %
Nu b`rjar Du fatta! H % Just det - Du klarar dig b{ttre nu. H % Bra! H %
Du svarade r{tt igen. H % Korrekt. H % R{tt!H % Precis r{tt. H %# Utm{rkt! H %% Javisst! H %' Mycket bra. H %) Bra gjort!H %+
No, you missed this one. H %/ You're mistaken. H %2
Thatywasn'twcorrect.H %5 Sorry. H %7 !H %= Your answer was wrong. H %@ ng of it now. H %L
Keep up the good work! H %P Aren't you glad you kept trying? H %T
You're making progress.H %X There is hope for you after all! H %\
I knew you could do it.H %`
Yo've got the idea now!H %c You're improving! H %f
Now you're catching on!H %j You're doing better! H %m OK! H %o Excellent!H %q That's it!H %s Well done!H %u Right! H %w Exactly right! H %y Bravo! H %{ Sure!H %} Very good.H % Good for you! H & ]]:= " H & [[ H & wrongH & rightatlast H & rightH &
lessonname:= " H & controlstart:= " H & randno:= 1;[N]nopause:= skip:= message:= FALSE;[N]H & !endofline:= Newstring(1,7);[N]endofline.[[1]]:= carriagereturn;[N] H &
char:= Newstring(1,7);[N]H &$ answer.[[134]]:= carriagereturn;[N]answer.[[135]]:= linefeed;[N] H &+ 0answer:= Newstring(135,7);[N]answercopy:= Copy(" ");[N]firstname:= "";[N]prompt:= Copy("-->");[N] H &6 lcaa:= "}".[[1]];[N]lcae:= "{".[[1]];[N]lcoe:= "`".[[1]];[N]H &= ucaa:= "$".[[1]];[N]ucae:= "#".[[1]];[N]ucoe:= "@".[[1]];[N]H &D blank:= " ".[[1]];uparrow:= "^".[[1]];[N]controlg:="".[[1]];[N] H &L /lastrights:= lastscorecount:= lastscorekount:= lastlatescorecount:= lastlatescorekount:= 0;[N] H &V carriagereturn:= 13;[N]linefeed:= 10;[N]H &[ &[4N]lasterrors:= latescore:= score:= lastqcount:= lastqkount:= qcount:= 0;[N] H &d Write("vilket skulle ha varit acceptabelt:[2N]-->");[N]H &k Write(" h{r {r ett svar[[N]]");[N] H &o Newline;[N]personalize("F`r den h{ndelse du {r intresserad,");[N]H &w Write(" GNOSIS will simulate an acceptable answer:[[2N]]-->");[N]H &~ Newline;[N]personalize("Just for the record,");[N]H ' %RIGHT command for the preceding %QUESTION;[N] H '
The answer given will always be the one following the FIRST[N] H ' the question or who repeatedly fails to give a right answer.[N] H ' 'COMMENT: 'Giveanswer' displays a right answer to a student who is skipping[N] H '"
PROCEDURE giveanswer;[N] H '& [N]Newline;[N]Newline;[N]END;[2N] H '* ,IF lasterrors > 3 THEN Write("[[N]]Eller...avbryt lektionen genom att skriva symbolen "" H '4 ,IF lasterrors = 3 THEN Write("[[N]]Ddu har eliminerat flera m`jligheter redan.") ELSE[N] H '> personalize("F`rs`k igen.");[N] H 'C "".");[N] H 'E *IF lasterrors > 4 THEN Write("[[N]]Or...interrupt the lesson by typing the symbol "" H 'N 3IF lasterrors = 4 THEN Write("[[N]](You might want to rethink some of your previous answers.)") ELSE[N] H 'Z 2IF lasterrors = 3 THEN Write("[[N]]You have at least eliminated some of the possibilities.") ELSE[N]H 'e personalize("Please try again.");[N] H 'j the student has failed to give a correct response;[N] H 'p the content of the message depends on the number of times[N]H 'w the message will always be 'Please try again'. Otherwise,[N] H ' which varies according to circumstances. In %NEUTRAL mode,[N] H ( 'Tryagain' will output to such students a 'try again' message[N] H ( !answer, or an incomplete answer are usually repeated by GNOSIS.[N] H ( "COMMENT: Questions output to students who give no answer, a wrong[N] H ( PROCEDURE tryagain;[N] H (! end noanswer;[2N] H ($ "".[[N]]");[N] H (' Write("Om Du vill g} ut ur fr}gan, s} skriv det enda tecknet "" H (. personalize("??? Du gav inget svar alls.");[N]Newline;[N] H (5 &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 (E PROCEDURE noanswer;[N] H (I Newline;[N]END;[2N] H (L L{rarens namn och adress {r: H (P vilken elev som s{nde den till honom. H (U 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{ttre. H (b The name and address of the teacher is: H (g not know which student sent it to him. H (l You can send it anonymously - the teacher will H (r He needs the listing to improve the lesson. H (w was supplied with %TEACHER command);[N] H (| to the teacher -- unless no teacher's name and address[N] H ) 'Putmessage' will tell the student to send hardcopy reports [N] H ) "COMMENT: If no disk files are being generated for teacher reports,[N] H )
PROCEDURE putmessage;[N] H )
seloutputandstopkc(0);[N]H )
seloutputandstopkc(3);[N]H ) !FOR i:= 1 STEP 1 UNTIL answerlength DO Outsymbol(answer.[[i]]);[N] H )% Write(question);[N]Write(": ");[N] H )*
seloutputandstopkc(2);[N]H )- Breakoutput;[N]H )0
BEGIN[N]INTEGER i;[N] H )3 VALUE question;[N]STRING question;[N] H )8 !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 )J #then unexpected student answers are written into a pair of reports,[N]H )R COMMENT: If the lesson contained a report-generating command,[N] H )Y 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 )i 6x:= latescore - lastlatescorekount;[N]lastlatescorekount:= latescore;[N]lastqkount:= qcount - lastqkount;[N] H )u or afterward;[N] H )x *since this PROCEDURE was last called whether student was correct on the first try[N] H * *COMMENT: 'Lastlatepercent' returns the percentage of questions answered correctly[N] H * REAL PROCEDURE lastlatepercent;[N] H * 'lastpercent:= IF lastqcount = 0 or x = 0 THEN 0.0 ELSE 100.0 * x/lastqcount;[N] H * .x:= score - lastscorekount;[N]lastscorekount:= score;[N]lastqcount:= qcount - lastqcount;[N] H *#
BEGIN[N]INTEGERpx;[N] H *' on theeveryefirstetrynsince this PROCEDURE waswlastpcalled;[N] H *. (COMMENT:p'Lastpercent'Treturnsstheopercentage ofSquestionsoanswered;correctly[N]H *7 REAL PROCEDUREUlastpercent;[N]H *; 1BEGIN[N]lastlatescore:=TlatescoreL-alastlatescorecount;[N]lastlatescorecount:=]latescore[N]END;[2N] H *F very first tryorsafterward;[N] H *K %sinceHthis]PROCEDURE was lastRcalled.whetherlstudenthwas'correctpontthe[N] H *S %COMMENT:+'Lastlatescore'treturnslnumbertofaquestionsoanswered correctly[N] H *\ INTEGERuPROCEDUREolastlatescore;[N]H *` 'BEGIN[N]lastscore:=tscore]- lastscorecount;[N]lastscorecount:=tscore[N]END;[2N] H *i veryefirstHtrysinceCthisNPROCEDUREtwas'lastlcalled;[N]H *p &COMMENT:s'Lastscore'dreturnswnumberHof,questions answered correctly on the[N] H *y INTEGER PROCEDURE lastscore;[N] H *} ,latepercent:= IF qcount = 0 or latescore = 0 THEN 0.0 ELSE 100.0 * latescore/qcount;[2N] H + student was correct on the first try or afterward;[N] H + by the student since the start of the lesson whether[N]H + (COMMENT: 'Latepercent' 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 +* #by the student on his very first try since the start of the lesson;[N]H +2 &COMMENT: 'Percent' returns the percentage of questions answered correctly[N] H +;
PROCEDUREhextratest;[N] H , BEGIN[N]pause;[N]Outsymbol(12);[N]Outsymbol(12);[N]Newline;[N] H , Theleffect]produced[is, of course,terminalodependent;[N] H , wants]torblankEtheNscreen]on aHdisplay terminal).[N] H ,% COMMENT:,'Page'BcanNbeNcalled by the teacherowhenehe[N]H ,+ PROCEDURESpage;[N] H ,. ???eDatornhv{ntade sigebaraiRETURN fr}n Dig. H ,4 !Eh?nhiTheecomputer,expectedeyouawouldcjustnpushttheuRETURNTbutton. H ,< IFoNOTshere(endofline)NTHEN[N]BEGIN[N] H ,A BEGIN[N]pos:=o1;[N] H ,D rial.[N] H ,~ but GNOSIS will introduce ADDITIONAL automatic pause points[N] H - PROCEDURE is called between each %TEXT or %QUESTION,[N]H -
ToRgowon,gshessimply]pushes the 'RETURN'ckey.=Normally,ethis[N] H - whenever shewhasefinished[examining the"displayedzmaterial.[N] H - inatheodisplayaofitextitoythe;student,.and sheFcanscontinue[N] H -" NaNlimited screen size. The 'pause' PROCEDURE produces a pause[N] H -* at a time. Another reason is that display terminals have[N] H -1 One reason for this is that it is easier to read a little[N]H -8 !COMMENT: Lesson text is given to the student in small portions.[N] H -@ PROCEDURE pause;[N] H -C personalize(wrong[[random]]);[N]Newline;[N] H -H BEGIN[N]qcount:= qcount+1;[N]firsttry:= FALSE;[N] H -N lasterrors:= lasterrors+1;[N] H -R provide some variation in the conversation;[N] H -X are used to choose between ten different messages in order[N] H -` and the lesson statistics are updated. Random numbers[N] H -g has made an erroneous answer. He is told about this,[N]H -m COMMENT: 'Wrongmessage' is called when a student[N] H -t
9END[N]ELSE[N]BEGIN[N]personalize(right[[random]]);[N]IF lasterrors">o1)THENWWrite(rightatlast[[random]]);[N]END;[N]H . personalize(right[[random]]);[N] H . "BEGIN[N]score:=iscore+1;[N]qcount:=Hqcount+1;[N]firsttry:=IFALSE;[N] H .% IF]firsttrytTHEN[N] H .( lastrights:=Glastrights+1;[N] H ., somemvariation toithemconversation;[N] H .1 used to choose between ten different messages to give[N] H .8 only after previous fruitless attempts. Random numbers are[N] H .@ depending on whether he succeeds on the fist try or[N] H .F score is updated. The message to the student is different[N]H .M made a correct answer. He is told about this, and the[N] H .T COMMENT: 'Rightmessage' is called when a student has[N]H .[
!I/O tongivedavpersonal touch/to therlessons.raTonavoidrmonotony[N] H / $COMMENT:af'Personalize'ausessthe]student's firstnamebinwconversational[N] H / "PROCEDUREppersonalize(message);[N]VALUE'message;[N]STRINGemessage;[N] H /$ es a random[N] H /@ INTEGER PROCEDURE random;[N] H /D END;[2N] H /F "Delete(answercopy);[N]answercopy:= Copy(answer,1,answerlength+2);[N] H /N BEGIN[N]ihaveblanked:= FALSE;[N] H /R it to other target patterns. This restoration is done here;[N] H /Z !answer, the original response must be restored before comparing[N] H /b (COMMENT: Since 'anywhere' substitutes blanks for matched parts of the student[N]H /k
PROCEDURE restore;[N] H /n
anywhere:=EFALSE;[N]H /q BEGIN[N]pos:=:nextpos;[N]GOTOmblankline;[N] H /w [N]nofit:[N]IFsanswercopy.[[pos]];#NcarriagereturnFTHEN[N] H /~ anywhere:=tihaveblanked:=HTRUE;[N]GOTOIout;[N] H 0 BEGIN[N]answercopy.[[cpos]]:=blank;[N] H 0 FORecpos:=[pos-Length(comp)HSTEP]1 UNTIL pos-1 DO[N] H 0 nextpos:= pos+1;[N] H 0 BEGIN[N]INTEGER cpos, nextpos;[N] H 0 '%NOEXTRA mode, his answer will be wrong if any non-blank characters remain;[N] H 0 any non-blank characters in the student answer. In the[N] H 0' %NOEXTRA mode) to determine whether there are[N] H 0- the matched strings. This allows the program (e.g., in the[N] H 04 'Anywhere' will substitute blanks for all characters in[N] H 0; the %EXTRA mode and in the %NOEXTRA %NOORDER mode.[N] H 0B unmatched strings will be bypassed. 'Anywhere' is used in[N]H 0I found anywhere in the student answer after 'pos'. Blanks and[N] H 0P "COMMENT: 'Anywhere' determines whether the argument string can be [N] H 0X BOOLEAN PROCEDURE anywhere(comp);[N]VALUE comp;[N]STRING comp;[N]H 0` [N]out:[N]END;[2N] H 0c [N]nofit:[N]here:= FALSE;[N] H 0g
BEGIN[N]INTEGER cpos;[N] H 1 for answers matched in the %NOEXTRA mode;[N] H 1 else, may precede the matching word. 'Here' is mostly used[N] H 1 beginning at 'pos' in the student answer. Blanks, but nothing[N] H 1 #COMMENT: 'Here' determines whether the argument string can be found[N]H 1& BOOLEAN PROCEDURE here(comp);[N]VALUE comp;[N]STRING comp;[N] H 1-
END;[2N]exit:[N]END;[2N] H 11 'Write("Duivill intetavbryta.nu. Forts{ttLd}smedidittcordinarie svar.[[N]]");[N] H 1: Write("to the PREVIOUS '-->' or 'RETURN' prompt...[[N]]");[N] H 1A Write("Please continue, then, giving your response[[N]]");[N] H 1I ??? Backing not allowed in this lesson. H 1N
END[N]ELSE[N]BEGIN[N] H 1 ??? H 1` ???dSkipping notuallowedsinpthis lesson.H 1e N[N]Write("H 1q ") THEN[N]H 1s SKIPPA H 1u SKIP H 1w
pos:= 1;[N]IF anywhere(" H 1z
GOTOexit;[N]END;[N]H 1} Write("Lektionen avbr`t.[[N]]");[N]H 2 Write("Lesson2aborted.");[N] H 2 stop:=uTRUE;[N]H 2 ")aTHEN[N]BEGIN[N] H 2 STOPPH 2eakoutput;[N] H 2! Outsymbol(controlg);[N] H 2$ Write("""FORTS#TT"" om Du vill forts{tta.[[N]]");[N] H 2+ *Write("""BACKA"" om Du vill g} tillbaka till en tidigare del av lektionen,[[N]]");[N]H 24 Write("""SKIPPA"" om Du vill skippa denna fr}ga,[[N]]");[N] H 2; "BEGIN[N]Write("Svara ""STOPP"" om Du vill l{mna lektionen,[[N]]");[N] H 2C Write("or 'CONTINUE'.[[N]]");[N] H 2H Write(", 'SKIP', 'BACK', ");[N] H 2L BEGIN[N]Write("Answer 'STOP'");[N] H 2Q BEGIN[N]IF answer.[[1]] = controlstart THEN[N] H 2W
ihaveblanked:= FALSE;[N] H 2^ Delete(answercopy);[N]answercopy:= Copy(answer,1,i);[N]H 2e IF answerlength < 0 THEN answerlength:= 0;[N]H 2j ,[N]out:[N]Insymbol(t);[N]i:= i+1;[N]answer.[[i]]:= t;[N]pos:= 1;[N]answerlength:= i-2;[N] H 2t GOTO again;[N] H 2w IF t = carriagereturn THEN GOTO out;[N] H 2|
answer.[[i]]:= t;[N]H 2 IF t = lcoe THEN t:= ucoe;[N] H 3 IF t = lcae THEN t:= ucae ELSE[N] H 3 IF t = lcaa THEN t:= ucaa ELSE[N] H 3
ELSE[N] H 3 ;[N] H 3 IF t >= 97 AND t <= 122 THEN t:= t-32 H 3 COMMENT: Lower case transform;[N] H 3 BEGIN[N]Insymbol(t);[N] H 3 [N]again:[N]FOR i:= 1 STEP 1 UNTIL 132 DO[N] H 3" Breakoutput;[N]quit:= FALSE;[N] H 3& BEGIN[N]INTEGER s, t, i;[N]BOOLEAN quit;[N] H 3, to interrupt the flow of the lesson;[N] H 31 to see if the student typed '%', indicating that he wanted[N] H 38 #dumping it in the STRING 'answer'. Column one of the line is checked[N] H 3A !COMMENT: 'Getline' reads in a line of text input by the student,[N] H 3I
PROCEDURElgetline;[N] H 3L END;[N] H 3N stopkc;[N]H 3P BEGIN Selectoutput(chan);[N] H 3T INTEGER chan;[N] H 3W PROCEDURErseloutputandstopkc(chan);[N] H 3\ FORWARD BOOLEAN]PROCEDURE anywhere;[2N] H 3a FORWARDEPROCEDURE putaway;[N] H 3e EXTERNALiPROCEDUREipub,inolpt,srun,er;[2N] H 3k EXTERNALpPROCEDUREcstopkc;[2N]H 3o STRING.ARRAY right,-rightatlast,lwrong[[0:9]];[2N]H 3u 1STRINGaanswer,*answercopy, char,sendofline,flessonname,Hfirstname, tempfile1, tempfile2,]prompt;[N] H 4 INTEGER lastrights;[N] H 4 INTEGER randno, answerlength, controlstart,5controlg, uparrow;[N]H 4 INTEGER lcaa, lcae, lcoe, ucaa, ucae, ucoe;[N] H 4 )INTEGER lastscorecount, lastlatescorecount, lastscorekount, lastlatescorekount;[N] H 4 7INTEGER lasterrors, score, latescore, qcount, lastqcount, lastqkount, carriagereturn, linefeed, pos, blank;[N]H 4& #BOOLEAN firsttry, ihaveblanked, nopause, skip, back, stop, message;[N]H 4. ; H 40 COMMENT: This lesson was written by[N] H 45 ";[N]H 46 COMMENT: This is the lesson "H 4: BEGINH 4< 71161: Command is out of place here. As a result,[N]****** this line up to next command line will be ignored.H 4H noanswer;[N]GOTO repeat;[N]END;[N] H 4L
80527:NIUnrecognizedocommand line found. As a result,[N]****** this line up to next command line will be ignored. H 5 IFN H 5 IFE H 5 IF H 5 FIN H 5 NEX H 5 NOC H 5! SWI H 5# SGN H 5$ LAN H 5& COP H 5' LOC H 5) DIS H 5* DSK H 5, BEL H 5- KEE H 5/ NAM H 50 TEA H 52 END H 53 QEN H 55 ALG H 56 INI H 58 PRO H 59 VAR H 5; HEL H 5< NOJ H 5> JUS H 5? TEX H 5A GOT H 5B GO H 5D LAC H 5E NEU H 5G QUE H 5H NOE H 5J EXT H 5K NOO H 5M ORD H 5N SAM H 5P WRO H 5Q RIG H 5S 0392: %IFEND on non-active switch -- will have no effect. H 5Z &0371: Unknown switchname in %IF-class command.[N]****** Line will be ignored. H 5c $0368: No switchname in %IF-class command.[N]****** Line will be ignored. H 5k IF H 5m $----------------------------------------------------------------------[N] H 5u 0324: Command character not first in line. H 5{ 0322: Character after line-number is not TAB.H 6 0316: Long input line will be truncated to 132 characters. H 6
****** ERROR Message No. H 6 : H 6 LINE x INX O:~:9gfh (i g S< \ . N 6a @ 6a R 6bS" p(B $ S* 6i 6i@ )@ . @ . @ =d 6N J 6Z J 6\ 6Y ` + 6V .X< 6^+ 6\ ` + 6X+ 6T
& 6c b + 6Sgg INX 0 6H 6 p 2
?ALGOL object time system ALGNNN.SHR not found
+ $ : 6f G?@ h -= 6j > x x ?@h P +@h D` % 7 . ?Bh + 6y2ph h <B 6y 1. . h 2p / 9p 6{ 0 + 7 7 " & & 4B 6~. ` , ` $h ( '` -= + h ` 0 ]>=S:9 -= 7 > x x h 4` 7
0` Z " & h 4@ 7``` D & 4B 7. , Bh S h (@ l @ P@h h l @h + h @@h S h (@ @h + h Yt} -= 7 1` +@h % 7@ g 7 @h + h ` Id] -= 7 <@ +@h % a` + h Z 4B 7) ,> ,
,^ @@ @@ + h S; 1_0P -= 7+ <@ t +Bh ,> -= ,^ +@h + h _W&>6E>a -= 73 <@ x h <h + ]=J7J( h -= 79 <@ x >@h h 4` 7C 6 -= 6 -= =@ 7@`r -= + h oJNI% -= 7D <@ +@h % ( < 7N " 7l<"h 4V 7K+ p -< 7K1V -+@ 7m1V .+@ 7n+@ 7p < 7M+ g
g
-< 7K06 06 + 7X4* 7R$* +0 7W.*_h+0 7W+ 7R"* + 7R1V .= 7M5j 7Z8J 7RA6 /1V )+ 7i1V *+ 7i1V (+ 7e0V !1V '+ 7a0V !+ 7Q+ 7d 6 -= 6 -= =j 7a`r -= + 7R 6 -= 6 -= 6 -= =j 7g+ 7c7 7q . -= =j 7j+ 7R ` 9 7M9 7M= 7P9 7P= 7M= 7P9 7P+ 7P+ 7R aJMm h -= 7q <@ x x >Jh + (7x P @@h @@h #h #h #o}/"( [ A ` $ 1@p = 8A ~ 1@ = 81J * 0@ $ h , + h S;] h -= 8 <@ x x x
X @@h + 8 W&@ x x x
X @h >Bh + 8 P @@h @@h @@h 6"h 0" 1" + 8 +Bh h h , 7@ + h 6Dh +@h 5D +@ +@h % 8.0 4@ 8)
!,A@ . /$ 4$ 8)0d -+ 8)0$ /$ D 0N( 9 8$ h Qh -h Ph , 6Dh +@h 7@ + h 5D +@ ` gdXzS;] -= 8/ <@ x & + 8: gdXzW&
X t >Bh + 8F P @@h @@h @@h @@h 6"h 0" +@h Dh 6Dh +@h ,> 6@h +Bh ,> h % 8i @j 4@ 8[ 8i 0 , 8c1D 9 8WD 10 9 8R, 8c0D 9 8U.0 8j 2 , 8cD <R 8[9 8X,^x h Sh (H
h , ,^ ,^ 7@ + h / 6@h +@h 6D +
2p + 8Z /$ 4$ 8h0d -+ 8h0$ /$ ,~ $ ,~ ` H H G2~93S2) -= 8j <@ x 6"h 0" , + h 6 8q 6 8q M7@ 6pea 8lKTP8jAo? Ao>Z peM 8@r:^I@8>pe% 87pe 81 xHP8/pd} 8p_i 8 |G;P8AoDT p_- 7t &rOP7qAo> p_ 7F Ic?P7Dp^] 7;SM6H`79pXe 75u^vg`73pXQ 7-^|02`7+Ao> nk% 7!_%N?P7 Ao>2 nk 7"QOP7nj} 7SMd`7Ao>\ Ao> ne- 6l R9@6jJ'e 6HJ- MG8 6IAW ?F u6
6h 6H?= 6H B`6HDEX pDFB: Jq~k 2B CB p
cI ?ZS( 0.
"* 0\B: /\>X \>5 '\7N +\2g 'r'I (\)8 *\)7 \ &\ )\+ ,\6 .\. ,[rO .O[mN O[m O[m O[l| [l{ &O[l+ O[k O[k O[j] O[jR O[i% r%H ([Z [Qg r% 0[Ms /[M" -[M +[L ,[FG [@v *r#e OD^w'` w]!+{ 0