" <-APL2-------------------- sam281.txt ---------------------------->
" <- Bug testing --------------------------------------------------->
Lfx 'z#oper a' 'z#!a'
Goper[0.1] 'entering oper'G
oper -3
Llc
oper -6
a#6
$Llc_1
a#3
$Llc_1
Lfx 'z#factr a' 'a#a_1' 'z#!a'
factr -3
Llc
)si
Gfactr[H2]G
$Llc
Llc " Line counter s/b empty now.
" <- Fix (Lfx) pp 292-296 ------------------------------------------>
" The "r" in "Lfx r" m/b simple character matrix, or a vector whose items
" are character vectors or character scalars.
Lfx 'z#fmt r' 'z#Fr'
fmt 'abcdef'
Lfx 'z#fn r' 'z#1+rX2' Lav[1]
" <- Index Origin (Lio) p 297 -------------------------------------->
Lio#1
r#34 18 24
r[1]
Lio#0
r[1]
r[0]
Lio#1
Ar
Lio#0
Ar
Lio#1
" <- Canonical Reprsentation (Lcr) --------------------------------->
Lfx L#c#'z#left add right' 'z#left+right'
Lcr 'add'
1 add 2
" <- Line Counter (Llc) pp 300-301 --------------------------------->
Lfx 'g' '''g line 1''' '''g: '',Llc' 'h'
c # 'h' '''h line 1''' '''h line 2''' '''h line 3''' '''h: '',Llc'
Lfx c, 'j' '''h line 6'''
c # 'j' '''j line 1''' '''j line 2''' '''j line 3''' '''j line 4'''
Lfx c, '''j line 5 '''  '''j: '',Llc' '''j line 7'''
Lcr 'g'
Lcr 'h'
Lcr 'j'
g
Gj[6.1] JJJJJJG
Lfx 'z#factr a' 'z#!a'
factr -3
Llc
factr -6
Llc
g
Llc
)si
Gj[H7]G
$Llc
)off