@library(gsi-patbo)
@library(lisp)
@library(gsi)

@tolerance 300
@overfullrule 0in
@setpagewidth  6.25in
@textbodyindent = 0.5in
@begin(document)
@baselineskip 13pt
@parskip = 0.2in
@parindent = 0in
@secheadingskip .25in

Here's how @ctrl[c] and @meta[c] work:

@settabs 7 @columns
@<@i[When you type:]                 @\@\@\@i[Your LISP Listener responds with:] @cr
@<@cr
@<@l[(setq s1 "STRING-1")]       @\@\@\@l[S1] @cr
@<@l[(setq s2 "STRING-2")]      @\@\@\@l[S2] @cr
@<@l[(setq s3 "STRING-3")]       @\@\@\@l[S3] @cr
@<@cr
@<@ctrl[c]                           @\@\@\@l[(setq s3 "STRING-3")] @cr
@<@cr
@<@meta[c]                           @\@\@\@l[(setq s2 "STRING-2"))] @cr
@<@cr
@<@meta[c]                           @\@\@\@l[(setq s1 "STRING-1"))] @cr
@<@cr
@<@meta[-] @meta[c]                  @\@\@\@l[(setq s2 "STRING-2"))] @cr
@<@cr
@<@meta[-] @meta[c]                  @\@\@\@l[(setq s3 "STRING-3"))] @cr
@<@cr
@<@cr
@<Here's how @ctrl[!] and @meta[!] work: @cr
@<@cr
@<@i[When you type:]                 @\@\@\@iYour LISP Listener responds with:] @cr
@<@cr
@<@l[(print "STRING-1")]       @\@\@\@l[STRING-1] @cr
@<@l[(print "STRING-2")]       @\@\@\@l[STRING-2] @cr
@<@l[(setq s4 "STRING-4")]      @\@\@\@l[S4] @cr
@<@l[(setq s5 "STRING-5")]       @\@\@\@l[S5] @cr
@<@cr
@<@l[(setq]                          @\@\@\@l[(setq] @cr
@<@cr
@<@ctrl[!]                           @\@\@\@l[(setq s5 "STRING-5")] @cr
@<@cr
@<@meta[!]                           @\@\@\@l[(setq s4 "STRING-4")] @cr
@<@cr
@<@meta[!]                           @\@\@\@l[(setq s3 "STRING-3")] @cr
@<@cr
@<@meta[!]                           @\@\@\@l[(setq s2 "STRING-2")] @cr
@<@cr
@<@meta[-] @meta[!]                  @\@\@\@l[(setq s3 "STRING-3")] @cr
@<@cr
@<@meta[-] @meta[!]                  @\@\@\@l[(setq s4 "STRING-4")] @cr
@<@cr

@end(document)