home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / labeler / labdata4.txt < prev    next >
Text File  |  1992-05-29  |  6KB  |  88 lines
  1. \X DO_BRDR\BLA #320,0,639,#322\ON KEY F10 JUMP REDO_ALL
  2. \X LABSRL\CALL SRL_NMBR\READ K:LABDATA5.TXT
  3. \X SRL_NMBR\CALLM MOVENO2TEMP  ;J.I.C.
  4. \BLA #320,0,639,#322\MOVE 0 TO #810\MOVE 2 TO CRSR_YLOC
  5. \IF SRL_XPOSI<LOWXPRN+10\MOVE LOWXPRN TO SRL_XPOSI\ENDIF
  6. \IF SRL_XPOSI>HIGHXPRN-100\MOVE HGHXPRN-100 TO SRL_XPOSI\ENDIF
  7. \IF LABTYPE='3.5"'\IF SRL_YPOSI<LOWYPRN+100\MOVE LOWYPRN+100 TO SRL_YPOSI\ENDIF
  8. \IF LABTYPE='5.25"'\IF SRL_YPOSI<LOWYPRN+10\MOVE LOWYPRN+10 TO SRL_YPOSI\ENDIF
  9. \IF SRL_YPOSI>HIGHYPRN-20\MOVE HIGHYPRN-20 TO SRL_YPOSI\ENDIF
  10. \LENGTH SRL_ACTV\IF A=0\JUMP SRL_INTRO\ENDIF
  11. \IF SRL_ACTV='Y'\JUMP GO_SRL\ENDIF
  12. \X SRL_INTRO\LOC #320,0\WID #321 DOTS\BLA #320,0,639,#322\HEIGHT 400
  13. You can print a serial number of up to 12 digits, with a leading prefix of up to 15 characters.  The default is not to do this.  Do you want to leave the disks "unserialized"? (Y to leave alone, N to add serialization.)
  14. \MOVE 'Y' TO #200\CURS CRSR_XLOC,5\QUES #200,1\IF #200<>'Y' AND #200<>'N'\BEEP 47,99\JUMP SRL_INTRO\ENDIF
  15. \IF #200='Y'\MOVE 'N' TO SRL_ACTV\JUMP SRL_OUT\ENDIF
  16. \X SETUP_SRL
  17. \LOC #320,0\BLA #320,0,639,#322
  18. The serial number can consist of 4, 8 or 12 digits.  It will automatically increment by a specified number for EACH label.  When it gets to the top you will have to change the prefix.  If needed, you can rerun from any number.
  19. \"
  20. How many digits do you want your serial number to be? (4, 8 or 12)
  21. \CURSOR CRSR_XLOC,8,80,8\QUES #200,0\IF #200=4 OR #200=8\JUMP SETSER3\ELSE\IF #200=12\JUMP SETSER3\ENDIF\BEEP 92,100\LOC #320,150
  22. The number must be 4, 8, or 12!
  23. \JUMP SETUP_SRL
  24. \X SETSER3\MOVE #200 TO SRL_LEN\IF SRL_TEMPRUN<>'Y'\MOVE 'Y' TO CHGD_LBL\ENDIF
  25. \MOVE 'XXXXXXXXXXXX' TO #200\X SETSER4\LOC #320,0\BLA #320,0,639,#322
  26. You can start at any number.  Enter a number now.  Be sure to replace all 'X's with numeric values.
  27. \MOVE SRL_LEN TO G\CURS CRSR_XLOC,5,80,5\QUEST #200,G\+
  28. \X CHKSER5\LENGTH #200\IF A<12 AND A>0\BUILD #200=#200,'0'\SUB 1 FROM A\IF A>0\JUMP CHKSER5\ENDIF
  29. \CALL CHK_SRL\IF G>0\BEEP 55,77\JUMP SETSER4\ENDIF
  30. \CALL SRL_SET_NMBRS
  31. \X SETSER6\LOC #320,0\BLA #320,0,639,#322
  32. The standard increment is 1.  You can make this any value from 1 to 1000.  Enter a value now.
  33. \MOVE 4 TO G\MOVE '0001' TO #200\CURS CRSR_XLOC,5,80,5\QUEST #200,4\CALL CHK_SRL\IF G>0\BEEP 45,77\JUMP SETSER6\ENDIF\CONVERT #200\IF #200>1000\BEEP 40,60\JUMP SETSER6\ELSE\MOVE #200 TO SRL_INCR\ENDIF
  34. \X SERPREF\BLA #320,0,639,#322\LOC #320,0\HEIGHT 400
  35. The serial number can have a prefix up to 15 characters.  (This can include characters that appear to be additional high-order serial numbers.)  Enter a prefix or blank out the default prefix shown below.
  36. \MOVE 'Serial #:' TO #200\CURSOR CRSR_XLOC,5,80,5\QUEST #200,15,1,L\MOVE #200 TO SRL_PRFX\MOVE 'Y' TO SRL_ACTV
  37. \X SRLPOSI\LOC #320,0\BLA #320,0,639,#322\WID #321 DOTS
  38. Now you should position the serial number where you want it to print.  Use the cursor keys or your mouse to move the crosshairs to the upper left edge of the desired position.  You will be able to see what it will look like and change it if you like.
  39. \"
  40. If you are using the keyboard, use the number keys above the QWERTY portion of the keyboard to make the cursor move faster.  Set it back to 1 (above the "Q") to position yourself EXACTLY.  Click any mouse button or press <RETURN> when finished.
  41. \CALL DSPL_LBL
  42. \CLEAR MOUSE
  43. \IF LABTYPE='3.5"'\MOUSE L=SRL_XPOSI,SRL_YPOSI W=LOWXPRN+10,LOWYPRN+100,HIGHXPRN-100,HIGHYPRN-20 ROUNDS=-1 FRAME=10,0\ELSE\+
  44. \MOUSE L=SRL_XPOSI,SRL_YPOSI W=LOWXPRN+10,LOWYPRN+10,HIGHXPRN-100,HIGHYPRN-20 ROUNDS=-1 FRAME=10,0\ENDIF\+
  45. \MOVE D TO SRL_XPOSI\MOVE E TO SRL_YPOSI
  46. \CALL DSPL_LBL\WID #321 DOTS
  47. \X REASK\LOC #320,0\BLA #320,0,639,#322
  48. Are you satisfied with this location or do you wish to reposition the serial number? (Y if satisfied, N if not)
  49. \CURSOR CRSR_XLOC,4,80,4\MOVE 'Y' TO #200\QUES #200,1\IF #200<>'Y' AND #200<>'N'\BEEP 55,99\JUMP REASK\ENDIF\+
  50. \IF #200='N'\JUMP SRLPOSI\ENDIF
  51. \RETURN
  52. \X GO_SRL\BLA #320,0,639,#322\LOC #320,0\HEI 400
  53. This label is serialized.  To continue printing in the series, press <RETURN>.
  54. \"
  55. If you want to print a separate run of serial numbers you may ONLY do so if there are no changes to your label.  You might want to do this if some labels were damaged or did not print correctly in an earlier run.
  56. \"
  57. \IF CHGD_LBL<>'Y'
  58. There are no changes to this label, so you can print a separate run.
  59. \"
  60. Enter 'Y' to continue printing the regular run, or enter 'N' to do a special run.
  61. \ELSE
  62. Since you have already made changes to this label, you cannot print a "separate" run.  You can, however PERMANENTLY turn off serialization for this label if you like.
  63. \"
  64. Enter 'Y' to continue printing the regular series, or enter 'N' to reset the serialization features.
  65. \ENDIF
  66. \CALLM PR_LBL\CALLM PRINT_SRL
  67. \IF LABTYPE='3.5"'\CURSR CRSR_XLOC,14,80,14\ELSE\CURS CRSR_XLOC,8,80,8\ENDIF
  68. \MOVE 'Y' TO #200\QUEST #200,1\IF #200<>'Y' AND #200<>'N'\BEEP 55,99\JUMP GO_SRL\ENDIF
  69. \IF #200='Y'\JUMP SRL_OUT\ENDIF
  70. \IF CHGD_LBL='Y'\JUMP SRL_INTRO\ENDIF
  71. \X SETTEMP\BLA #320,0,639,#322\LOC #320,0
  72. Enter the serial number you wish to start printing from.  The current settings for increment and serial number length will automatically be used.
  73. \CURSOR CRSR_XLOC,8,80,8\MOVE SRL_PR TO #200\MOVE SRL_LEN TO G\QUEST #200,G\CALL CHK_SRL\IF G>0\BEEP 144,44\JUMP SETTEMP\ENDIF
  74. \MOVE SRL4LOW TO SRL_LST4LOW\MOVE SRL4MID TO SRL_LST4MID\MOVE SRL4HGH TO SRL_LST4HGH\+
  75. \MOVE 'Y' TO SRL_TEMPRUN\CALL SRL_SET_NMBRS\MOVE #200 TO SRL_PR
  76. \JUMP SRL_OUT
  77. \X NO_SRL\MOVE 'N' TO SRL_ACTV
  78. \X SRL_OUT\RETURN
  79. \X SRL_SET_NMBRS\MOVE '0000' TO SRL4HGH\MOVE '0000' TO SRL4MID
  80. \IF SRL_LEN>8\MOVE #200[1,4] TO SRL4HGH\MOVE #200[5,4] TO SRL4MID\MOVE #200[9,4] TO SRL4LOW\ENDIF\+
  81. \IF SRL_LEN=8\MOVE #200[1,4] TO SRL4MID\MOVE #200[5,4] TO SRL4LOW\ENDIF\+
  82. \IF SRL_LEN<8\MOVE #200[1,4] TO SRL4LOW\ENDIF\+
  83. \CONVERT SRL4HGH\CONVERT SRL4MID\CONVERT SRL4LOW\RETURN
  84. \X CHK_SRL\MOVE #200[G,1] TO #201\IF #201>='0' AND #201<='9'\SUB 1 FROM G\IF G>0\JUMP CHK_SRL\ENDIF\RETURN
  85. \X DSPL_LBL\CALLM PR_LBL\CALLM SHOW_DISKDATA\CALLM SHOW_LABELINFO\CALLM SHOW_COMPANY\CALLM SHOW_LOGO\CALLM PRINT_SRL\WID #321 DOTS\RETURN
  86. \X REDO_ALL\READ K:LAB_DATA.TXT
  87. \END
  88.