BB^6 #MACRO FDPTLEN
BCDQ LDX %A %B
BCYB #STRING %C
BDD2 STO %A %C
BDXL FDESC %A
BFC= MOD LDX %A 0,%A
BFWW SLC %A 10
BGBG ANDN %A #160
BGW6 #STRING %C
BH*Q (
BHTB SBN %A 1
BJ*2 ORS %A %C
BJSL ERS %A %C
BK#= ADN %A 1
BKRW )
BL?G #NORMAL