Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50334/tops9t.exe
There are no other files named tops9t.exe in the archive.
?p ?x i?6:Kb) |ae ` INX Q F: { A) - {B E@8 -M -N :
q -= 6 <@ v , (d<L t + h O%J7J -= > <@ -= , 'c<L @vh + G C 6 Vh h $ &c h -= v h 2V &\+ X+ \+ J+ G+ \ W# -= h -= Y, 'T<L ` h .6 Vh h $ &c h -= v 6 V &] h /6 V &` &`06 + g@v &`, 'I<L &d, '>
&c` ` ,> ,> ,> &d,> &d-= &d@v &V &`0V + { $ &c " -= $ 2D &a+ {, 's<L &O, 's<L &L, 's<L &I, 's<L &k, 'c<L Ovh + G7@h + @vh , @8p &G4@ Ov &X, 's<L &E+ 6 V &], @8p &C4@ , 's<L &@Ov &W+ 6 V &], @8p &?4@
, 's<L &;Ov &W+ , 's<L &5, 's<L &/+ G+ KbNF@-= h -= > o,^o> ` K+ h QP -= 8` -= + E2$ 3D + 0+ 63 &].6 +V &]+ %Ovh + ;+ 6 ]>5 &]/ Vh + `:h &]/4 2v + e &] $ &d h -= v + `Ov &V Vh + s+ j ]>5
&c` Q` },> ,> ,> &d,> &d-= &d+ h etKv -= 1` ' &`$6 &4 / V &` &`&4 +'Th + h a;wC2O) -= h lh -= ,~ , '\<L N !Yh .6 KVh + , 's<L &-, 's<L &h+ ,$h Fh -= ,~ , '\<L N *> o,^o> ` K+ h e&= + h oJ}ivKO r -= R <@ &Y.6 =V &Y7@ &U+ [@ &Z.6 VV &Z@v &U+ ^, 1` . . &n ,~ , <@ N [, 'h<L + h a.9 -= a <@ 7@ &V+ g@v &V+ t, 's<L &$, 's<L &k, @<@ , 'h<L 7@ &X+ n@v &X+ ; &`1v + t6 V &], 8` &fL 4@ t, 's<L & + h a<P -= u <@ , c<@ , '\<L ` , '\<L ` , 'h<L + h Kc&(:KO -= ~ <@ 6 V &], 8` &fL 4@ ,, 'h<L 6 V &]+ : &] &`.4 2v + + 3@ -= &Z/ & Vh &Z V & &Z/ &[ V &[ &[0V g O h 0T g O G 4V pS + s &[-< ' h -< ' H @h > o,^o> ` K+ h ]>
, 's<L %~+ &Y1v + , 's<L %x, 'h<L , 'h<L + h O'4X7g^. -= <@ , 'h<L , <@ %u, 's<L %o+ h @v &Z V &[ V &[ V &Y V &Z V &Y 6 V &\ 6 V &\@v &_ V &^ V &_ V &^ V &b $ %m " -= $ D &] $ %l " -= $ D &b $ %j " -= $ D &a, '->
` C` ,> ,> ,> &c,> &c-= &c, '>
%m,> ,> ,> &d,> &d-= &d &.,> ,> ,> &h,> &h-= &h, '>
%i,> ,> ,> &k,> &k-= &k &\ $ &c " C-= v &\ $ &c " C-= v , '->
` ` ,> ,> ,> &e,> &e-= &e, '->
` ` ,> ,> ,> &f,> &f-= &f &\ $ &f " -= v 6 V &`@v &X V &W V &V $ %g " -= $ D &a %e,> ,> ,> &g,> &g-= &g %c &l.6 ,> ,> ,>X ,>X -= X %a &l.6 ,> ,> ,>X ,>X -= X %_ &l.6 ,> ,> ,>X ,>X -= X %] &l.6 ,> ,> ,>X ,>X -= X %[ &l.6 ,> ,> ,>X ,>X -= X %Y &l.6 ,> ,> ,>X ,>X -= X %W &l.6 ,> ,> ,>X ,>X -= X %U &l.6 ,> ,> ,>X ,>X -= X %S &l.6 ,> ,> ,>X ,>X -= X %Q &l.6 ,> ,> ,>X ,>X -= X %N &m.6 ,> ,> ,>X ,>X -= X %J &m.6 ,> ,> ,>X ,>X -= X %G &m.6 ,> ,> ,>X ,>X -= X %D &m.6 ,> ,> ,>X ,>X -= X %@ &m.6 ,> ,> ,>X ,>X -= X %< &m.6 ,> ,> ,>X ,>X -= X %8 &m.6 ,> ,> ,>X ,>X -= X %4 &m.6 ,> ,> ,>X ,>X -= X %0 &m.6 ,> ,> ,>X ,>X -= X %, &m.6 ,> ,> ,>X ,>X -= X %* &n.6 ,> ,> ,>X ,>X -= X %( &n.6 ,> ,> ,>X ,>X -= X %$ &n.6 ,> ,> ,>X ,>X -= X %! &n.6 ,> ,> ,>X ,>X -= X % &n.6 ,> ,> ,>X ,>X -= X % &n.6 ,> ,> ,>X ,>X -= X % &n.6 ,> ,> ,>X ,>X -= X % &n.6 ,> ,> ,>X ,>X -= X % &n.6 ,> ,> ,>X ,>X -= X % &n.6 ,> ,> ,>X ,>X -= X , (3<L ` %, 's<L %
, 's<L &g, 's<L %, 's<L %, 's<L $~, 's<L $v, 's<L $m, 'h<L , 's<L $c, 's<L $\, 's<L $V, 's<L $Q, 's<L $J, 's<L $B, v<@ + v uGD04 -= h -= s+ { gR-
, 's<L $, c<@ 7@ &W+ @v &W+ u+ uGD14 -= h -= , 's<L $ , 's<L #{, 'h<L , 's<L #s, 's<L #n, 'h<L , 's<L #g, 's<L #_, 's<L #X, 's<L #U, 'h<L , 's<L #N, 's<L #I, 's<L #C, c<@ 7@ &W+ .@v &W+ + 2 uGD24 -= h -= /-= Ov &U@v &Y V &b@v &V+ ;+ 9 eX:4 -= h -= 6, <@ , 'h<L , 's<L #<, 's<L #4, 's<L &k, @<@ 7@ &X+ D@v &X+ ;7@ &W+ F@v &W+ 7@ &W+ H@v &W+ @7@ &V+ J, x<@ 6 V &], 8` #1L 4@ N+ ], 8` #.L 4@ Q+ ], 8` &fL 4@ T+ ], 2<@ + X gl\=q
&@-= h -= U+ M+ ] ckD14 -= h -= Z7@ &V+ `, x<@ 6 V &], 8` #+L 4@ d+ t, 8` #.L 4@ g+ t, 8` &fL 4@ j+ t, 2<@ + o gl\=q
6@-= h -= l+ M+ t ckD14 -= h -= q7@ &V+ w, x<@ 6 V &], 8` #1L 4@ {+
, 8` #)L 4@ ~+
, 8` &fL 4@ +
, 2<@ + gl\=q
F@-= h -= + M+
ckD24 -= h -= 7@ &V+ !, 8` #)L 4@ + !, 8` &fL 4@ + !, 2<@ + gl\=q
V@-= h -= + M+ ! ckD24 -= h -= 7@ &V+ $, x<@ 6 V &], @8` &CL 4@ (+ 3, T<@ + , gl\=q
f@-= h -= ), 's<L #"+ 9+ 3 ckD34 -= h -= 07@ &V+ 6, x<@ 6 V &], @8` # L 4@ :+ E, T<@ + > gl\=q
v@-= h -= ;, 's<L #+ 9+ E ckD34 -= h -= B7@ &V+ H, x<@ +6 ,V &], @8` #L 4@ L+ W, T<@ + P gl\=q T<@ + z gl\=q
+ , T<@ + gl\=q, 's<L "c+ 9+ ckD54 -= h -= &`0V + , x<@ + 97@ &V+ , x<@ 6 ,V &]86 V &], @8` #L 4@ $+ (+ 7+ ( Y <=q
+ } Y <=q, T<@ + gl\=q 's<L ""+ 9+
ckD74 -= h -= 7@ &V+ , x<@ &Y0V + , T<@ + gl\=q@-= h -= , 's<L ", 's<L ", 's<L "+ 9+ ckD84 -= h -= 7@ &V+ !, x<@ &Y0V + -, T<@ + ' gl\=q@-= h -= $+ + , ckD84 -= h -= )7@ &V+ /, x<@ &Y0V + ;, T<@ + 5 gl\=q&@-= h -= 2+ 9+ : ckD94 -= h -= 7, T<@ + @ g&n[iP -= h -= =, <@ , 's<L " + G, 1` . . &l ,~ , 's<L N D, 'h<L + X+ M ]FF@-= h -= J, c<@ 7@ &W+ Q@v &W+ > o,^o> ` K+ V uGD24 -= h -= S-= Ov &U@v &Y V &b@v &V+ _+ ] eX:4 -= h -= Z, <@ , 'h<L , 's<L ", 's<L " , 's<L !y, 's<L !u, 's<L &k, @<@ 7@ &X+ k@v &X+ ;7@ &W+ m@v &W+ 17@ &W+ o@v &W+
/7@ &V+ q, x<@ 6 V &], 8` !sL 4@ u+
, 8` !rL 4@ x+
, 8` !pL 4@ {+
, 8` &fL 4@ ~+
, 2<@ +
gl\=q
&@-= h -= +
<+
ckD14 -= h -=
7@ &V+
, x<@ 6 V &], 8` !sL 4@
+
!, 8` !rL 4@
+
!, 8` !oL 4@
+
!, 8` &fL 4@
+
!, 2<@ +
gl\=q
6@-= h -=
+
<+
! ckD14 -= h -=
7@ &V+
$, x<@ 6 V &], @8` !mL 4@
(+
E, @8` "pL 4@
++
E, @8` !lL 4@
.+
E, @8` !rL 4@
1+
E, @8` "4L 4@
4+
E, @8` !jL 4@
7+
E, <@ +
; gl\=q
F@-= h -=
8, 's<L !c, 's<L ![, 's<L !X+ ]+
<+
E ckD24 -= h -=
B7@ &V+
H, x<@ 6 V &], @8` !mL 4@
L+
e, @8` "pL 4@
O+
e, @8` !lL 4@
R+
e, @8` !rL 4@
U+
e, @8` "4L 4@
X+
e, @8` #L 4@
[+
e, <@ +
` gl\=q
V@-= h -=
]+
;+
e ckD24 -= h -=
b7@ &V+
h, x<@ 6 V &], @8` !lL 4@
l+
u, T<@ +
p gl\=q
f@-= h -=
m+
;+
u ckD34 -= h -=
r7@ &V+
x, x<@ 6 V &], @8` # L 4@
|+ , T<@ + gl\=q
v@-= h -=
~, 's<L #+ ]+ ckD34 -= h -= 7@ &V+
, x<@ 6 V &], @8` !WL 4@ + , T<@ + gl\=q-= h -= 7@ &V+ , x<@ 46 +V &], @8` !IL 4@ "+ +, T<@ + & gl\=q gl\=q &], @8` #L 4@ {+ +
+ Y <=q T<@ +
gl\=q
, 's<L ! + ]+
ckD64 -= h -=
7@ &V+
, x<@ &Y0V +
, T<@ +
gl\=q
, 's<L !, 's<L !+
+
ckD74 -= h -=
7@ &V+
, x<@ &Y0V +
+, T<@ +
% gl\=q
"+ ]+
* ckD74 -= h -=
', T<@ +
/ g&n[iP -= h -=
,, <@ , 's<L !+
6, 1` . . &l ,~ , 's<L N
3, 'h<L +
+
< ]FF@-= h -=
:, c<@ 7@ &W+
@@v &W+ 1> o,^o> ` K+
E uGD34 -= h -=
B, 's<L !
, 's<L !, 's<L {, 's<L s, 's<L m, 'h<L , 's<L e, 's<L ^, 's<L [, c<@ 7@ &W+
V@v &W+ V &Z1v +
a+
[ uGD34 -= h -=
X, 's<L X, c<@ 7@ &W+
a@v &W+
E+
d uGD44 -= h -=
a-= Ov &U@v &Y V &b@v &V+
n+
l eX:4 -= h -=
i, <@ , 'h<L , 's<L P, 's<L H, 's<L A, 's<L <, 's<L &k, @<@ 7@ &X+
y@v &X+ ;7@ &W+
{@v &W+
Z7@ &W+
}@v &W+ 7@ &V+
, x<@ 6 LV &], 8` 9L 4@
&@-= h -= -= h -= 4@
6@-= h -= -= h -= 4@
F@-= h -= -= h -= 4@
V@-= h -= -= h -= 4@
f@-= h -= -= h -= 4@
v@-= h -= -= h -= 4@ , 's<L +
l+ ckD44 -= h -= 7@ &V+ , x<@ 6 V &], @8`
l+ ckD44 -= h -= 7@ &V+ , x<@ 6 V &], @8` ~L 4@ "+ /, T<@ + ' gl\=q
l+ / ckD54 -= h -= , &`0V + 3, x<@ +
l7@ &V+ 5, x<@ ?6 TV &] 6 GV &], @8` "pL 4@ :+ B 6 V &], @8` #L 4@ >+ B+ Q+ B Y <=q
l+ Q ckD54 -= h -= N7@ &V+ T, x<@ 6 V &], @8` \L 4@ X+ d, T<@ + \ gl\=q
l+ d ckD64 -= h -= a7@ &V+ g, x<@ 6 V &], @8` PL 4@ k+ x, T<@ + p gl\=q
l+ x ckD64 -= h -= u7@ &V+ {, x<@ 6 V &], @8` "pL 4@ + , @8` #L 4@ + , T<@ + gl\=q
l+ ckD74 -= h -= , T<@ + g&n[iP -= h -= , <@ , 's<L 2+ , 1` . . &l ,~ , 's<L N , 'h<L +
Z> o,^o> ` K+ * uGD44 -= h -= ', 's<L ,, 's<L ', 'h<L , 's<L , 's<L , 's<L , 's<L
, 'h<L , 's<L , 'h<L , 's<L }, 's<L y, 'h<L , 's<L r, 's<L j, 's<L f, c<@ 7@ &W+ D@v &W+
d+ G uGD54 -= h -= D, 's<L a, 's<L \, 'h<L , 's<L T, 's<L L, 's<L E, 's<L B, 'h<L , 's<L :, 's<L 3, 's<L ,, 's<L %, 's<L , 's<L , 's<L , 'h<L , 's<L , 's<L , 's<L , c<@ , c<@ 7@ &W+ g@v &W+ *+ k uGD54 -= h -= h-= Ov &U@v &Y V &b@v &V+ t+ r eX:4 -= h -= o, <@ , 'h<L , 's<L y, 's<L r, 's<L n, 's<L f, 's<L b, 's<L [, 's<L U, 's<L &k, @<@ 7@ &X+ @v &X+ ;7@ &W+ @v &W+ F7@ &W+ @v &W+ g7@ &V+
, x<@ 6 V &], 8` QL 4@ + , 8` &fL 4@ + , 2<@ + gl\=q
&@-= h -= + t+ ckD14 -= h -= 7@ &V+ , x<@ 6 V &], 8` QL 4@ "+ 5, 8` PL 4@ %+ 5, 8` &fL 4@ (+ 5, 2<@ + , gl\=q
6@-= h -= ), 's<L H, 's<L ?+ T+ t+ 5 ckD14 -= h -= 27@ &V+ 8, x<@ 6 V &], 8` QL 4@ <+ N, 8` PL 4@ ?+ N, 8` >L 4@ B+ N, 8` &fL 4@ E+ N, 2<@ + I gl\=q
F@-= h -= F+ ,+ N ckD24 -= h -= K7@ &V+ Q, x<@ 6 V &], @8` &CL 4@ U+ b, T<@ + Z gl\=q
V@-= h -= W, 's<L 6, 's<L 3+ r+ b ckD24 -= h -= _7@ &V+ e, x<@ 6 V &], @8` 1L 4@ i+ w, T<@ + m gl\=q
f@-= h -= j, 's<L *, 's<L ", 's<L + r+ w ckD34 -= h -= t7@ &V+ z, x<@ 6 V &], @8` L 4@ ~+
, T<@ + gl\=q
v@-= h -= , 's<L , 's<L + r+
ckD34 -= h -= 7@ &V+ $, T<@ + gl\=q, 's<L m, 's<L e+ r+ $ ckD44 -= h -= !7@ &V+ ', x<@ <6 +V &], @8` ~L 4@ ++ 9, T<@ + / gl\=ql, 's<L e, 's<L ^, 's<L V, 's<L R+ r+ G ckD84 -= h -= D7@ &V+ J, x<@ 6 V &], @8` L 4@ N+ [, @8` !IL 4@ Q+ [, T<@ + V gl\=q@-= h -= S+ ;+ [ ckD84 -= h -= X7@ &V+ ^, x<@ 6 V &], @8` L 4@ b+ k, T<@ + f gl\=q&@-= h -= c+ ;+ k ckD94 -= h -= h7@ &V+ n, x<@ 6 V &], @8` sL 4@ r+ }, T<@ + w gl\=q6@-= h -= t, 's<L J+ r+ } ckD94 -= h -= z &`0V + , x<@ + r7@ &V+ , x<@ 6 V &] 6 V &], @8` sL 4@ +
+ +
Y <=qF@-= h -= , T<@ + gl\=qF@-= h -= , 's<L B, 's<L ;+ r+ ckD:4 -= h -= 7@ &V+ , x<@ 6 V &] 6 V &], @8` L 4@ "+ &+ 3+ & Y <=qV@-= h -= #, T<@ + + gl\=qV@-= h -= (, 's<L 3, 's<L 1+ r+ 3 ckD:4 -= h -= 07@ &V+ 6, x<@ &Y0V + B, T<@ + < gl\=qf@-= h -= 9+ ++ A ckD;4 -= h -= >7@ &V+ D, x<@ &Y0V + U, T<@ + J gl\=qv@-= h -= G, 's<L *, 's<L #, 's<L + ++ T ckD;4 -= h -= Q7@ &V+ W, x<@ &Y0V + c, T<@ + ] gl\=q@-= h -= Z+ ++ b ckD<4 -= h -= _, T<@ + g g&n[iP -= h -= d, <@ , 's<L + n, 1` . . &l ,~ , 's<L N k, 'h<L + + t ]FF@-= h -= r, c<@ 7@ &W+ x@v &W+ F> o,^o> ` K+ } uGD64 -= h -= z-= Ov &U@v &Y V &b@v &V+ + eX:4 -= h -= , <@ , 'h<L , 's<L , 's<L
, 's<L &k, @<@ 7@ &X+ @v &X+ ;7@ &W+ @v &W+ j7@ &W+ @v &W+ #7@ &V+ , x<@ 6 V &], 8`
L 4@ + &, 8` &fL 4@ + &, 2<@ + ! gl\=q
&@-= h -= + 0+ & ckD14 -= h -= #7@ &V+ ), x<@ 6 V &], 8` PL 4@ -+ 9, 8` &fL 4@ 0+ 9, 2<@ + 4 gl\=q
6@-= h -= 1+ 0+ 9 ckD14 -= h -= 67@ &V+ <, x<@ 6 V &], @8` L 4@ @+ K, T<@ + E gl\=q
F@-= h -= B, 's<L + + K ckD24 -= h -= H &`0V + O, x<@ + 7@ &V+ Q, x<@ 6 V &] 6 V &], @8` L 4@ V+ Z+ f+ Z Y <=q
V@-= h -= W, T<@ + ` gl\=q
V@-= h -= ], 's<L x+ + f ckD24 -= h -= c7@ &V+ i, x<@ 6 V &] 6 V &], @8` L 4@ n+ r+ ~+ r Y <=q
f@-= h -= o, T<@ + x gl\=q
f@-= h -= u, 's<L s+ + ~ ckD34 -= h -= {7@ &V+ , x<@ &Y0V + , T<@ + gl\=q
v@-= h -= , 's<L l+ + ckD34 -= h -= 7@ &V+ , x<@ &Y0V + , T<@ + gl\=q 's<L f+ *, 1` . . &l ,~ , 's<L N ', 'h<L + !+ 0 ]FF@-= h -= -, c<@ 7@ &W+ 4@v &W+ j> o,^o> ` K, #3@ C, 's<L @, 's<L &k, @<@ 7@ &X+ m@v &X+ ;7@ &W+ o@v &W+ I7@ &W+ q@v &W+ 7@ &V+ s, x<@ 6 V &], 8` >L 4@ w+ , 8` &fL 4@ z+ , 2<@ + ~ gl\=q
&@-= h -= {+ + ckD14 -= h -= 7@ &V+ , x<@ 6 V &], 8` L 4@
+ , 8` &fL 4@ gl\=q
6@-= h -= + + ckD14 -= h -= 7@ &V+ , x<@ 6 V &], 8` =L 4@ + -, 8` &fL 4@ !+ -, T<@ + % gl\=q
F@-= h -= ", 's<L 5, 's<L 2+ a+ - ckD24 -= h -= *7@ &V+ 0, x<@ 6 V &], @8` L 4@ 4+ A, T<@ + 9 gl\=q
V@-= h -= 6, 's<L *, 's<L #+ a+ A ckD24 -= h -= >7@ &V+ D, x<@ 6 V &], @8` L 4@ H+ T, T<@ + L gl\=q
f@-= h -= I, 's<L , <@ + a+ T ckD34 -= h -= Q7@ &V+ W, x<@ &`0V + Z, x<@ + a &Y0V + g, T<@ + ` gl\=q
v@-= h -= ], 's<L + a+ f ckD34 -= h -= c7@ &V+ i, x<@ , &Y0V + u, T<@ + o gl\=q 's<L + , 1` . . &l ,~ , 's<L N
, 's<L , 'h<L , 's<L {, 's<L s, 's<L B, 'h<L , 's<L l, 's<L d, 'h<L , 's<L b, 's<L _, 's<L ], 's<L [, 's<L Y, 's<L Q, 's<L J, 's<L G, c<@ 7@ &W+ =@v &W+ Y+ @ uGD84 -= h -= =, 's<L @, 's<L 8, c<@ 7@ &W+ G@v &W+ + K gVmX9rh -= h -= H+ O uGD94 -= h -= L, 's<L 6, 's<L 4, 'h<L , 's<L 1, 's<L -, 's<L ), 's<L #, 's<L , 's<L , 's<L , 's<L
, 's<L , c<@ 7@ &W+ e@v &W+ @, c<@ > o,^o> ` K+ 8+ k uGD14 -= h -= h+ p uGD14 -= h -= m+ t uGD24 -= h -= q+ y uGD24 -= h -= v+ } uGD34 -= h -= z+ uGD34 -= h -= + uGD44 -= h -= + uGD44 -= h -= + uGD54 -= h -=
+ uGD54 -= h -= + uGD64 -= h -= + uGD64 -= h -= + ! uGD74 -= h -= + & uGD74 -= h -= #+ * uGD84 -= h -= '+ / uGD84 -= h -= ,+ 3 uGD94 -= h -= 0, 's<L , 's<L x+ {+ < K:%yVKO {M -= h -= 8, 'h<L , 's<L s, (!<L h &Z` , 's<L n, (!<L h &Z` , 's<L k, (!<L h &Y` , 's<L d, 'h<L , 'c<L , 9<@ ` , 's<L `, 9<@ ` , 's<L ] &h &.-= 1@ + W, 's<L &-, 's<L &h, 's<L [-= + h H \ ! H ^ [2N]Have a nice day H a Leaving the lesson "TOPS9T"...[N] H e questions your answer was right on your very first try.[N] H l times.[N]On H o questions,[N]and you gave the right answer H t During the lesson "TOPS9T" you answered H y from this point. It is going all the way back to the start.[N] H !NOTE: The backing procedure is unable to go back just ONE step [N] H the text at the pointer.[N] H
understand why!!![N]H K be done with the TECO command string "L1XAKLGA$$". Try to[N]H R " and want to get the lines in alphabetical order. This can[N] H Z BBBB[N] H \ CCCC[N] H ^ "AAAA[N] H `
You have the text[N]H c Example:[N] H e file again by writing "Gi" where i is the Q-register name.[N] H m You can then move the contents of the Q-register back to the[N] H t n is the number of lines to insert and i is the name of the[N] H | #To insert text from the file into a Q-register you write "nXi" where[N] H =================================================[N] H Using Q-registers to store and move text segments.[N] H MM$$[N] H The correct answer is "MM$$".[N] H A hint: Use the "M" command of TECO.[N] H Your answer is right except for the extra characters in it.[N] H $ is stored in the Q-register. Do not write any "*".[N] H + #The "*" is used to store something in a Q-register, not to use what[N]H 3 does nothing.[N] H 6 !Why did you write one but not two ESCAPEs? That ESCAPE in itself[N] H > MM H ? MM H A in Q-register M.[N] H D What do you write to execute a command string which is saved[N] H K And if you want to execute the command string once more.[N] H R were a little too easy for you...[N] H W You are a tough man (or woman). I think that these questions[N] H _ "This is a very difficult lesson, but you are clever and stubborn.[N] H g *M$$[N] H i The correct answer is "*M$$".[N] H m First write "*" and then the name of the Q-register.[N]H t A hint: Use the "*" command of TECO.[N] H y Your answer does not contain the Q-register name "M".[N] H M H %You only need write the Q-register name "M" once in your command string.[N]H
MM H *M H write to savedithinpQ-registerlM?[N]H Nowgyou]know that youswantnto execute.that commandystring[N]H n with,[N] H + Yes, this is a very difficult exercise when TECO[N] H 2 "BEGIN".[N] H 4 !First you write "NBEGIN$" to find the next occurence of the word[N] H < by the string "BEGIN" that you are searching for.[N] H C !To search for "BEGIN" you write the search command "N" followed[N] H K "You forgot the ESCAPE after "BEGIN" to finish the search request.[N] H S to the end of the previous line.[N]H W and then move backwards past the LINE FEED and CARRIAGE RETURN[N]H will first move to the beginning of the next line ("L")[N] H f use a search command. Instead, you simply write "L2R" which[N] H m The shortest way of finding the end of the line is not to[N]H t NBEGIN H v !FEED which are always found between one line and the next line.[N] H ~ and then move past the two characters CARRIAGE RETURN and LINE[N]H !to move to the beginning of the next line with the "L" command,[N] H A simple way of finding the end of a line is[N] H NBEGIN H next line to the end of the previous line, you write "2R".[N] H To move two characters backward, from the beginning of the[N] H % NBEGINL H ' text comment by writing "ICOMMENT$".[N] H , !After putting the pointer at the end of the line you insert the[N] H 4 NBEGINL2RH 6 You forgot the ESCAPE after "ICOMMENT".[N] H ; NBEGINL2RICOMMENT H > $After "ICOMMENT$" you write "0T" to print the line up to the pointer.[N] H G NBEGINL2RICOMMENT H J After "0T" you should write the two final ESCAPES.[N] H P
NBEGINL2RICOMMENT0T H T instead.[N] H V "for the found string, which was not required. Use the "N" command[N] H ^ !Do not use the "FN" command. That command substitutes something[N] H f !possible TECO command string, you should use "0T" and not "0TT".[N] H n and "0T". But since you were asked to write the shortest[N] H u of a line, you can print the whole line with both "0TT"[N] H | Therefore, if you know that the pointer is at the end[N] H "0T" means print the current line up to the pointer.[N]H
"0TT"wmeansBprint.the whole currentaline.[N] H 0TT H commandiyet,cIswill)ask you to do thattlater.[N] H "Domnot insert thedcommandostringginto any Q-registerMwith[the "*"[N] H * H t be used.[N] H # !"N"ttoesearch skipping page boundaries. In your case, "N" should[N] H + The "S" search command is used to search within a page and the[N]H 2 SBEGIN H 4 write %.[N] H 7 !To skip to the end of a line, write L2R. To skip this question,[N] H ? H @ %but I accept that answer, since I intended to ask you to do that later.[N] H I #I did not ask you to insert the command string into Q-register "M",[N]H Q *M H R NBEGINL2RICOMMENT0T H V Include the two final ESCAPES in your answer.[N] H \ d) Print the line up to and including the inserted word.[N] H c c) Insert the text "COMMENT".[N] H g b) Move to the end of the line in which "BEGIN" was found.[N] H o
Every time thereafter, when you search through the file for[N] H if you had written "NERROR$0TT$$" once more.[N] H the TECO command string in Q-register M, that is exactly as[N] H The next time you just write "MM$$" which means "execute[N] H & "*M" to store this command string in the Q-register M.[N] H - "NERROR$0TT$$". Immediately after that you write[N] H 4 the word "ERROR". The first time you write the command string[N] H ; "Example: You want to look, one at a time, on all lines containing[N] H C Q-register.[N] H F executing the command string that you want to store in the[N] H M write "*" followed by the Q-register name, immediately after[N] H U !If you want to store a TECO command string in a Q-register, you[N] H ] ===================================[N] H b Macros = saved TECO command strings.[N] H g than one place in the text.[N]H k "in the text to another place, or which you want to insert at more[N] H s b) To store text in them which you want to move from one place[N]H z want to execute many times.[N]H ~ a) To store a complex TECO command string in them which you[N] H Two common uses for Q-registers are[N] H either one of the letters A-Z or one of the digits 0-9.[N] H are called Q-register and they have one-character names:[N] H in which you can store information for later use. These cells[N] H TECO like most other programming languages has variable cells[N] H ( ======================================[N] H - Q-registers for temporary data storage.[N] H 3 <Nelse$0t;t>[N]H 5 in it, and then you write a "T" command to print that line.[N] H = Inside < > you first put "NELSE$" to find a line with "ELSE"[N] H D no more "ELSE" can be found in the text.[N] H J After finding "ELSE" you write ";" to leave the loop when[N]H Q NELSE H S
witht"ELSE" in it.[N] H V AfterA"NELSE$;"tyouewritet"0TT"itoaprintsthe wholeeline[N] H ] NELSE; H T youMwant toTdo many.times.[N] H c !loop,sthateis surroundingdthatcparteofhtheecommandHstring which[N] H k "There are no loop brackets, "<" and ">" surrounding the iteration[N] H s substitute anything this time.[N] H x Use the "N", not the "FN" command, since you do not want to[N] H FN H program going into an infinite loop.[N] H !You forgot the ";" after "NELSE$" which is necessary to stop the[N] H <NELSE0TT> H the next "ELSE" in the text.[N] H !will find the same "ELSE" again infinitely, instead of moving to[N] H "the pointer at the beginning of the line, the next loop iteration[N] H % "0LT" will print the whole line. But since the "L" positions[N] H , 0LT H . <NELSE0TT;> H 0 <NELSE0TT;> H 3 <NELSE;0TT> H 5 <NELSE;0TT> H 8 <NELSE0T;T> H : <NELSE0T;T> H = line is to be output to the terminal.[N]H B Every time that the word "ELSE" occurs in the text, the whole[N] H I the whole text file from the pointer to the end of the file.[N] H Q !Write the shortest TECO command string which will search through[N] H Y You are doing fine![N] H \ "HAPPINESS".[N]H of the whole text file and change every occurence of "WORK" to[N]H f Example "<FNWORK$HAPPINESS$;>$$" will search through all pages[N]H n which stops the loop at the end of the text file.[N] H t loop to stop it. One common such command is the ";" command,[N] H | infinitely. However, there are commands you can put inside the[N]H ! loop brackets. If there is no such number, the loop continues[N] H ! You do not have to put any number at all in front of the[N] H ! 8<c i $>[N] H ! skip one character and then insert a blank.[N] H ! You must make a loop eight times, and in each iteration[N] H !! Your answer did not include any loop bracket pair "<"...">".[N] H !) $using the "C" command, then you insert a space using the "I" command.[N] H !1 #Inside the loop, you do two things. First you advance one character[N]H !9 You forgot the ESCAPE ending the parameter to the "I" command.[N]H !A Write "8" in front of "<" since you should insert 8 spaces.[N] H !H <CI H !J N H !K the "C" and "I" commands of TECO.[N] H !P There is no need to use a search command. You only need to use[N]H !X S H !Y command string.[N] H !\ You can therefore write "C" instead of "1C" to get a shorter[N] H !d If there is no integer number before "C" then "1" is default.[N] H !k > H !m 1C H !n 8 H !p > H !q > H !s I H !t 8<C H !v
5<FSmotorcar$dangerous vehicle$>$$[N] H " once.[N] H " Put them around the command which is to be executed more than[N] H " "You did not include any loop brackets "<" and ">" in your answer.[N] H "# substitution string.[N] H "& ends the search string, and the second "ESCAPE" ends the[N] H "- There should be two "ESCAPE"s after "FS". The first "ESCAPE"[N] H "5 H "6 the search string and substitute the substitution string.[N]H "= "FS... search string ...$... substitution string ...$" to find[N]H "E Use the "FS" command. The format of that command is:[N]H "K FS H "M There is no left bracket "<".[N] H "Q then you should use the loop-brackets "<" and ">".[N] H "X "If you want to repeat the same TECO command string more than once,[N] H "` There is no right bracket ">".[N] H "d digit five("5") in front of the "<".[N] H "i "Since you should make the same thing five times, you should put a[N] H "q < H "s "to find the word "MOTORCAR" and change it once in each iteration.[N] H "{ (Between the brackets, write the command string "FSMOTORCAR$DANGEROUS VEHICLE$"[N] H # > H # 5< H # There must be an ESCAPE before "DANGEROUS VEHICLE".[N] H # VEHICLE H # $DANGEROUSH # You forgot the ESCAPE after "VEHICLE".[N] H # VEHICLE> H # "You should not include any double apostrophe ('"') in your answer.[N] H #! " H ## If you want to skip this question, then write "%" first.[N] H #* VEHICLE> H #, 5<FNMOTORCARDANGEROUS H #/ VEHICLE> H #2 5<FSMOTORCARDANGEROUS H #5 occurences of "MOTORCAR" and change it to "DANGEROUS VEHICLE".[N]H #= Write the shortest TECO command string to find the next five[N] H #D "this text line, change the line to:"[N] H #J "this text line, change the line to:"[N]H #O Thus, the command example above will, if it is applied to[N]H #V
changedctoetwo spaces.[N]H #Y threeTtimes. Once in each iteration, a space is found and[N]H #` TECO to execute the command string inside the "<" ">" brackets[N]H #h Example: "3<FS $ $>$$" indicates a loop. The number 3 tells[N] H #o string and finally the character ">".[N]H #t A loop consists of a number, the character "<", a TECO command[N]H #| =================================[N] H $ Writing iterative loops with TECO.[N] H $ more than once if you use a loop.[N] H $ You do not have to type in the string of the same TECO command[N]H $ %if you want to do the same editing action at several places in the text.[N]H $ #The simplest case of a program is a loop. A loop in TECO can be used[N] H $# in general go beyond the scope of this introductory course.[N] H $+ "write executable text editing routines. However, such capabilities[N] H $3 TECO is in reality a programming language in which you can[N] H $: ==============================[N] H $? TECO as a programming language.[N] H $C [NT](3) 'BACK' to return to the previous question (or text).[2N] H $K [NT](2) 'SKIP' to move on to the next question (or text); orH $R [NT](1) 'STOP' to end the lesson immediately;H $W GNOSIS will then explain how you can type H $] on your terminal and then pushing the RETURN button.[2N] H $d -[N]IMPORTANT: You can interrupt the lesson at any time by typing the[N]single character "%" H $n %Stockholm, Sweden, and the Old Dominion University Research Foundation.[N] H $w %instruction (CAI) from the Research Institute of National Defense[N] H $ %This lesson was produced by the GNOSIS system for computer aided[N]H % .[2N]H % ' H %
No, you missed this one. H % You're mistaken. H %
Thatywasn'twcorrect.H % Sorry. H % !H %" Your answer was wrong. H %% ng of it now. H %1
Keep up the good work! H %5 Aren't you glad you kept trying? H %9
You're making progress.H %= There is hope for you after all! H %A
I knew you could do it.H %E
Yo've got the idea now!H %H You're improving! H %K
Now you're catching on!H %O You're doing better! H %R OK! H %T Excellent!H %V That's it!H %X Well done!H %Z Right! H %\ Exactly right! H %^ Bravo! H %` Sure!H %b Very good.H %d Good for you! H %f TOPS9T H %h % H %j --> H %k H %m ^ H %n H %p GNOSIS will simulate an acceptable answer:[2N]-->H %v
Just for the record,H %y [N]Or...interrupt the lesson by typing the symbol "%". H % [N](You might want to rethink some of your previous answers.) H & [N]You have at least eliminated some of the possibilities. H & Please try again. H & %If you want to interrupt the lesson, then type the single character "%".[N]H & ??? You gave no answer at all.H & "Eh? The computer expected you would just push the RETURN button.[N] H &% [N]Push RETURN H &( [N]I must admit that last one was a bit tricky! H &. , H &/ H &0 to the PREVIOUS '-->' or 'RETURN' prompt...[N] H &6 Please continue, then, giving your response[N] H &<
Lesson is backing.[N] H &@ BACK H &A
Question skipped.[N]H &D SKIP H &F Lesson aborted.H &H STOP H &J or 'CONTINUE'.[N] H &M , 'SKIP', 'BACK', H &P Answer 'STOP' X INX i?6:gfh (i g S< \ . N ' @ ' R 'S" p(B $ S* ' '@ )@ . @ . @ =d &u J ' J ' ' ` + &| .X< '+ ' ` + &~+ &{
& ' b + &ygg INX 0 &o &Q p 2
?ALGOL object time system ALGNNN.SHR not found
+ $ : '
` + p G?@ h -= ' > x x ?@h P +@h D` % '* . ?Bh + ' 2ph h <B ' 1. . h 2p / 9p '" 0 + '' '+ " & & 4B '&. ` , ` $h ( '` -= + h ` 0 ]>=S:9 -= '+ > x x h 4` '20` Z " & h 4@ '<``` D & 4B '7. , Bh S h (@ l @ P@h h l @h + h @@h S h (@ @h + h Yt} -= '> 1` +@h % 7@ g 'F @h + h ` Id] -= 'G <@ +@h % a` + h Z 4B 'Q ,> ,
,^ @@ @@ + h S; 1_0P -= 'R <@ t +Bh ,> -= ,^ +@h + h _W&>6E>a -= 'Z <@ x h <h + EJ,wkS] -= '` <@ <h + ]=J7J( h -= 'f <@ x >@h h 4` 'p 6 -= 6 -= =@ 'm`r -= + h oJNI% -= 'q <@ +@h % ( < '{ " (<"h 4V 'x+ p -< 'x1V -+@ (1V .+@ (+@ ( < 'z+ g
g
-< 'x06 06 + (4* '$* +0 (.*_h+0 (+ '"* + '1V .= 'z5j (8J 'A6 /1V )+ (1V *+ (1V (+ (0V !1V '+ (0V !+ '~+ ( 6 -= 6 -= =j (`r -= + ' 6 -= 6 -= 6 -= =j (+ (7 ( . -= =j (+ ' ` 9 'z9 'z= '}9 '}= 'z= '}9 '}+ '}+ ' aJMm h -= ( <@ x x >Jh + ((% P @@h @@h #h #h #o}/"( [ A ` $ 1@p = (/A ~ 1@ = (/1J * 0@ $ h , + h S;] h -= (0 <@ x x x
X @@h + (@ W&@ x x x
X @h >Bh + (A P @@h @@h @@h 6"h 0" 1" + (K+Bh h h , 7@ + h 6Dh +@h 5D +@ +@h % ([0 4@ (V
!,A@ . /$ 4$ (V0d -+ (V0$ /$ D 0N( 9 (Q h Qh h h , 6Dh +@h 7@ + h 5D +@ ` gdXzS;] -= (\ <@ x & + (g gdXz W& 6 (k 6 (k M7@ &Qpe% (dpe (^ xH@(\pd} (;pi (3 |G;P(0AoDT p- (! &rOP( Ao> p 's Ic?P'qp^] 'hSM6H`'fpY! 'c6%.`'`pXe '\u^vg`'ZpXQ 'T^|02`'RAo> nk% 'I%N?P'GAo>2 nk '@"QOP'>nj} '-SMd`'+Ao>\ Ao> ne- ' R9@' u '
`'J'e &oJ- MG8 &oAW ?F u6
' &o?= &o B`&oDEX pDFB: Jq~k 2B CB p
cI ?ZS( 0l *w 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