DS*N ...[??? FINDBICE SECT CENT FGN 21 DOC
DSKG #MAC FINDBICE
DT56 #DEF 21?=34?+0?+0]
DTJQ #SKI 22?<1$1
DW4B (
DWJ2 #CON COMMAND '%A' NOT CANCELLABLE
DX3L ! COMMAND '%A' NOT CANCELLABLE
DXH= #EXIT
DY2W )
DYGG #SKI 21?-20?
D^26 (
D^FQ #DEF 0?=0?+BICESIZE
D^^B #DEF 22?=22?-1
F2F2 FINDBICE %A
F2YL )
F3D= #NOR