\X DO_BRDR\BLA #320,0,639,#322\ON KEY F10 JUMP REDO_ALL
\CALL BRDR_PATROL\WAIT LIM -1\READ K:LABDATA3.TXT
\X BRDR_PATROL\CALLM SET_STNDRDS\LOC #320,0\WID #321 DOT
The border on around the image is composed of 6 rectangles within each other.  Our sample uses some rectangles "on" and others "off".  Enter a string of 1's and 0's to change this. (1=on, 0=off, outermost rectangle first, 6 characters maximum.
\"
Leave blank and just press <RETURN> to keep current settings.
\MOVE 401 TO G\LOC #320+2,160\DISP "CURRENT SETTING: "
\X DSPL
\IF #G=1\DISP '1'\ELSE\DISP '0'\ENDIF\ADD 1 TO G\IF G<407\JUMP DSPL\ENDIF
\CALLM PR_LBL\MOVE ' ' TO #200\CURS CRSR_XLOC,8,80,8\QUES #200,6
\IF #200<>' '\CALL SET_BRDR\ENDIF\RETURN
\X SET_BRDR\MOVE 'Y' TO CHGD_LBL\MOVE 401 TO G
\X SBRD\MOVE 0 TO #G
\MOVE #200[(G-400),1] TO #201\IF #201='1'\MOVE 1 TO #G\ENDIF\ADD 1 TO G
\IF G<407\JUMP SBRD\ENDIF\RETURN
\X REDO_ALL\WAIT LIM -1\READ K:LAB_DATA.TXT