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