home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / labeler / labdata2.txt < prev    next >
Text File  |  1992-10-21  |  949b  |  17 lines
  1. \X DO_BRDR\BLA #320,0,639,#322\ON KEY F10 JUMP REDO_ALL
  2. \CALL BRDR_PATROL\WAIT LIM -1\READ K:LABDATA3.TXT
  3. \X BRDR_PATROL\CALLM SET_STNDRDS\LOC #320,0\WID #321 DOT
  4. 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.
  5. \"
  6. Leave blank and just press <RETURN> to keep current settings.
  7. \MOVE 401 TO G\LOC #320+2,160\DISP "CURRENT SETTING: "
  8. \X DSPL
  9. \IF #G=1\DISP '1'\ELSE\DISP '0'\ENDIF\ADD 1 TO G\IF G<407\JUMP DSPL\ENDIF
  10. \CALLM PR_LBL\MOVE ' ' TO #200\CURS CRSR_XLOC,8,80,8\QUES #200,6
  11. \IF #200<>' '\CALL SET_BRDR\ENDIF\RETURN
  12. \X SET_BRDR\MOVE 'Y' TO CHGD_LBL\MOVE 401 TO G
  13. \X SBRD\MOVE 0 TO #G
  14. \MOVE #200[(G-400),1] TO #201\IF #201='1'\MOVE 1 TO #G\ENDIF\ADD 1 TO G
  15. \IF G<407\JUMP SBRD\ENDIF\RETURN
  16. \X REDO_ALL\WAIT LIM -1\READ K:LAB_DATA.TXT
  17.