a # 1 61 R ' z#bksp                                                      '
a # a,[1]  ' $(0^=Lnc''`b`k'')/a1                                          '
a # a,[1]  ' `b`k#Lav[Lio+8]                                             '
a # a,[1]  'a1:z#`b`k                                                    '
a # a,[1]  ' $0                                                          '
a # a,[1]  '"bksp - set `b`k to backspace character                      '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.  '
Lfx a
`b`k#bksp
a # 1 61 R ' z#crtn                                                      '
a # a,[1]  ' $(0^=Lnc''`c`r'')/a1                                          '
a # a,[1]  ' `c`r#Lav[Lio+13]                                            '
a # a,[1]  'a1:z#`c`r                                                    '
a # a,[1]  ' $0                                                          '
a # a,[1]  '"crtn - set `c`r to carriage return character                '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.  '
Lfx a
`c`r#crtn
a # 1 61 R ' z#idlc                                                      '
a # a,[1]  ' $(0^=Lnc''`i`d'')/a1                                          '
a # a,[1]  ' `i`d#Lav[Lio+0]                                             '
a # a,[1]  'a1:z#`i`d                                                    '
a # a,[1]  ' $0                                                          '
a # a,[1]  '"idlc - set `i`d to idle character                           '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.  '
Lfx a
`i`d#idlc
a # 1 61 R ' z#lnfd                                                      '
a # a,[1]  ' $(0^=Lnc''`l`n'')/a1                                          '
a # a,[1]  ' `l`n#Lav[Lio+10]                                            '
a # a,[1]  'a1:z#`l`n                                                    '
a # a,[1]  ' $0                                                          '
a # a,[1]  '"lnfd - set `l`n to linefeed character                       '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.  '
Lfx a
`l`n#lnfd
a # 1 61 R ' z#tabc                                                      '
a # a,[1]  ' $(0^=Lnc''`t`b'')/a1                                          '
a # a,[1]  ' `t`b#Lav[Lio+9]                                             '
a # a,[1]  'a1:z#`t`b                                                    '
a # a,[1]  ' $0                                                          '
a # a,[1]  '"tabc - set `t`b to tab character                            '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.  '
Lfx a
`t`b#tabc