;COMPILE with OBASLIB and LINK B:$1.BAS
SUBTOOL B:$1.BAS
BASCOM =B:$1/C/E/O
SUBTOOL
L80 B:$1,B:$1/N/E
ERA B:$1.REL