home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / labeler / labdata5.txt < prev    next >
Text File  |  1992-10-29  |  5KB  |  90 lines
  1. \BLA #320,0,639,#322\ON KEY F10 JUMP REDO_ALL\IF LABTYPE<>'3.5"'\JUMP SETUP_HP\ENDIF
  2. \X DO_BONUS\LENGTH #160\IF A=0\CALL RESET_BONUS\ENDIF
  3. \MOVE 'Y' TO #200\CALLM PR_LBL
  4. \LOC #320,0\WID #321 DOT
  5. Below are the current bonus label settings for the dozen bonus labels included on your label sheets.  Are all of these settings okay? (Y or N)
  6. \"
  7. \"
  8. \CALL PR_BONUS
  9. \CURS CRSR_XLOC,4\QUES #200,1\IF #200<>'Y' AND #200<>'N'\BEEP 67,89\JUMP DO_BONUS\ENDIF
  10. \IF #200='Y'\JUMP SETUP_HP\ENDIF
  11. \X WHICHBONUS\LOC #320,0\WID #321 DOT
  12. Enter the bonus label number you wish to change. (1 through 12.)  Enter 0 (zero) or just press <RETURN> to leave all as is.  Enter -1 (negative 1) to reset to default values.
  13. \"
  14. \"
  15. \"
  16. \BLA #320,260,639,#322\CURS CRSR_XLOC,4\QUES #200,0
  17. \IF #200=0\JUMP SETUP_HP\ELSE\MOVE 'Y' TO CHGD_LBL\IF #200=-1\CALL RESET_BONUS\CALL PR_BONUS\JUMP WHICHBONUS\ELSE\IF #200<1 OR #200>12\BEEP 72,66\JUMP WHICHBONUS\ENDIF\MOVE 'Y' TO CHGD_LBL
  18. \MOVE #200+159 TO G\CURS CRSR_XLOC,17,CRSR_XLOC+11,18\QUES #G,24,1,L\CALL PR_BONUS\JUMP WHICHBONUS
  19. \X PR_BONUS\LOC #320,100\WID 20 DOT C
  20. 1
  21. 2
  22. 3
  23. 4
  24. 5
  25. 6
  26. 7
  27. 8
  28. 9
  29. 10
  30. 11
  31. 12
  32. \MOVE 160 TO G\X PRINTB\BLA #320+20,100+((G-160)*11),639,100+(((G+1)-160)*11)
  33. \LOC #320+20,100+((G-160)*11)\DISPLAY #G\ADD 1 TO G\IF G<172\JUMP PRINTB\ENDIF
  34. \RETURN
  35. \X SETUP_HP\MOVE PRT_LOC TO #200\LOCATE #320,0\WIDTH #321 DOTS\HEIGHT 400\BLA #320,0,639,#322
  36. Where is your printer located? (LPT1:, LPT2: or LPT3:.)  Enter a 1, 2 or a 3 now.  Just press <RETURN> to use the current setting.
  37. \CURSOR CRSR_XLOC,5,CRSR_XLOC,5\QUEST #200,1\IF #200<'1' OR #200>'3'\BLANK #320,0,639,#322\BEEP 49,49\JUMP SETUP_HP\ENDIF
  38. \IF #200<>PRT_LOC\MOVE 'Y' TO CHGD_LBL\MOVE #200 TO PRT_LOC\ENDIF
  39. \LOCATE #320,0\BLA #320,0,639,#322
  40. Some printers require "SETUP" or "CONFIGURATION" codes to work properly.
  41. \"
  42. You might use these codes to set margins for older HP printers or, if you are not using a HEWLETT PACKARD brand printer you may be able to set your printer in HP EMULATION mode with these codes.
  43. \"
  44. Most compatible printers have front panel switches to configure them in HP LASERJET mode.  Some boot up in HP mode.
  45. \"
  46. To send non-printable ASCII characters, enclose them in brackets.  For example to send code 27, the "escape" code, type [27].  To send an open-bracket ([), code two of them in a row.
  47. \"
  48. See your printer documentation to find out if you need these codes.  You may enter up to 4 code lines.  A blank line will stop accepting code lines.
  49. \"
  50. \IF LABTYPE<>'3.5"'\BLA 0,#301,639,412\ENDIF
  51. NOTE: If you use ANY codes, we will NOT automatically send the RESET and margin setup codes.  Normally, this means that after sending your codes to put your printer in HP EMULATION, you should send [27]E ('escape','E').
  52. \MOVE 1 TO Z
  53. \MOVE #550 TO #200\X LINE1\IF LABTYPE='3.5"'\CURSOR CRSR_XLOC,25,80,26\ELSE\CURSOR CRSR_XLOC,14,80,15\ENDIF
  54. \QUEST #200,70,Z,L\CALL PARSE_LINE\IF Z>1\JUMP LINE1\ENDIF\BLA #320,422,639,#322
  55. \IF #550<>#200\MOVE 'Y' TO CHGD_LBL\ENDIF
  56. \MOVE #200 TO #550\IF #200=' '\JUMP GO_WRT\ENDIF
  57. \MOVE #551 TO #200\X LINE2\CURSOR CRSR_XLOC,24,80,25\QUEST #200,70,Z,L\CALL PARSE_LINE\IF Z>1\JUMP LINE2\ENDIF\BLA #320,422,639,#322
  58. \IF #551<>#200\MOVE 'Y' TO CHGD_LBL\ENDIF
  59. \MOVE #200 TO #551\IF #200=' '\JUMP GO_WRT\ENDIF
  60. \MOVE #552 TO #200\X LINE3\CURSOR CRSR_XLOC,24,80,25\QUEST #200,70,Z,L\CALL PARSE_LINE\IF Z>1\JUMP LINE3\ENDIF\BLA #320,422,639,#322
  61. \IF #552<>#200\MOVE 'Y' TO CHGD_LBL\ENDIF
  62. \MOVE #200 TO #552\IF #200=' '\JUMP GO_WRT\ENDIF
  63. \MOVE #553 TO #200\X LINE4\CURSOR CRSR_XLOC,24,80,25\QUEST #200,70,Z,L\CALL PARSE_LINE\IF Z>1\JUMP LINE4\ENDIF\BLA #320,422,639,#322
  64. \IF #553<>#200\MOVE 'Y' TO CHGD_LBL\ENDIF
  65. \MOVE #200 TO #553\IF #200=' '\JUMP GO_WRT\ENDIF
  66. \X GO_WRT\READ K:LABWRITE.TXT
  67. \X REDO_ALL\READ K:LAB_DATA.TXT
  68. \X PARSE_LINE\MOVE 1 TO Z
  69. \LENGTH #200\MOVE A TO Q\MOVE 1 TO V\X PARLOOP
  70. \MOVE #200[V,1] TO #201\IF #201='['\IF V<Q\ADD 1 TO V\MOVE #200[V,1] TO #202\IF #202='['\ELSE\CALL FINDNMBR\IF V<=Q AND Z=1\JUMP PARLOOP\ENDIF
  71. \ADD 1 TO V\IF V<=Q\JUMP PARLOOP\ENDIF
  72. \RETURN
  73. \X FINDNMBR\MOVE V TO U
  74. \X FNMBR2\MOVE #200[U,1] TO #204\IF #204=']'\ELSE\ADD 1 TO U\IF U<=Q\JUMP FNMBR2\ENDIF\IF U>V
  75. \MOVE #200[V,U-V] TO #203\LENGTH #203\MOVE A TO G
  76. \CALL CHK_NMBR\IF G=0
  77. \CONVERT #203\IF #203>255 OR #203<0\MOVE U TO Z\ELSE\ELSE\MOVE U TO Z\ENDIF
  78. \MOVE U TO V\ADD 1 TO V
  79. \X FNMBR4\IF Z>1\LOC #320,420
  80. ERROR! Values in brackets must be all numeric and >-1 and <256.  Brackets must be "balanced".  Review syntax rules, above.
  81. \ENDIF\RETURN
  82. \X CHK_NMBR\MOVE #203[G,1] TO #204\IF #204>='0' AND #204<='9'\SUB 1 FROM G\IF G>0\JUMP CHK_NMBR\ENDIF\RETURN
  83. \X RESET_BONUS\MOVE 'PGM BACKUP  #___ OF #___' TO #160\MOVE 'H. D. BACKUP#___ OF #___' TO #161\+
  84. \MOVE '    DISK      ENCLOSED' TO #162\MOVE '  MAGNETIC      MEDIA' TO #163\+
  85. \MOVE '3.5" MEDIA   ENCLOSED' TO #164\MOVE '     NO       MAGNETS!' TO #165\+
  86. \MOVE 'CONFIDENTIAL INFORMATION' TO #166\MOVE ' MASTER DISK VERS. #____' TO #167\+
  87. \MOVE ' BACKUP OF  MASTER DISK' TO #168\MOVE '  WORK IN     PROGRESS' TO #169\+
  88. \MOVE 'ENCRYPTED      DATA' TO #170\MOVE 'FOR OFFSITE   STORAGE' TO #171\+
  89. \RETURN
  90.