LOOP
plan
STOF
CONT SMLC -1   SSUM SMLT DSDX XCMP GEOS DSDX TEMP SMLT DSDX YCMP GEOS DSDY TEMP
CONT SSUM SMLT DSDY XCMP GEOS DSDX TEMP SMLT DSDY YCMP GEOS DSDY TEMP
SMLC   -1 clr3&
TXT2  Q Vectors                                    .
STON
ENDL
