home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / labeler / print_hp.txt < prev    next >
Text File  |  1992-10-29  |  10KB  |  227 lines
  1. \CALL SHEETS\CALLM MAKENM\IF B=14624\JUMP NOTOPEN\ENDIF
  2. \X PAGELOOP\CALLM RDSMLFON\LOC 520,168\MOVE #205+1-#204 TO #206\CONVERT #206\+
  3. \IF SRL_ACTV='Y'\DISPL #206[4,3],' OF ',#207[4,3]\ELSE\DISPL #207[4,3],' PAGES.'\ENDIF
  4. \X LABELLOOP\IF B=14624\JUMP EXITWRTPAGE\ENDIF\CALLM PRINT_SRL\CALLM UPSRL\CALL SET_CURSOR
  5. \CALL PRINTLABELS\IF CURR_LBL<LABSPERPG\JUMP LABELLOOP\ENDIF
  6. \IF LABTYPE<>'3.5"'\JUMP LABOUT\ENDIF
  7. \X BONUSLOOP\CALL SET_CURSOR\CALL PRINTBONUS\IF CURR_LBL<21\JUMP BONUSLOOP\ENDIF
  8. \X LABOUT\CALL WRT_SRL_AUX
  9. \IF SRL_ACTV='Y'\MOVE 0 TO CURR_LBL\SUB 1 FROM #204\IF #204>0\PRIN [12],\JUMP PAGELOOP\ENDIF
  10. \CALLM DONE_NOISE\JUMP EXITPAGE\X EXITWRTPAGE\CALL WRT_SRL_AUX ;THIS IS IN CASE YOU PRESSED SPACE BAR...
  11. \X EXITPAGE\PRIN [12],
  12. \X EXITHERE\PRIN [27],'E', ;RESET
  13. \IF PRT_LOC='3'\CLOSE LPT3:\ELSE\IF PRT_LOC='2'\CLOSE LPT2:\ELSE\CLOSE LPT1:\ENDIF
  14. \X NOTOPEN\READ K:081117PW.FON\MOVE 11 TO FNTY\READ K:LABINTRO.TXT ;GO BACK, START OVER!
  15. \X SET_CURSOR\IF #760<>'3.5"'\JUMP LOC_525S\ENDIF\PRIN [27],'&a',
  16. \IF CURR_LBL<1\CALL ACTV_MSG\PRIN '406V',\PRIN [27],'&a',20,'H',
  17. \LOC 520,156\DISPL '9 OF 9 '\ELSE\LOC 520,156\IF CURR_LBL<2\PRIN '406V',\PRIN [27],'&a',1992,'H',
  18. \DISPL '8 OF 9 '\ELSE\IF CURR_LBL<3\PRIN '406V',\PRIN [27],'&a',3964,'H',
  19. \DISPL '7 OF 9 '\ELSE\IF CURR_LBL<4\PRIN '2580V',\PRIN [27],'&a',20,'H',
  20. \DISPL '6 OF 9 '\ELSE\IF CURR_LBL<5\PRIN '2580V',\PRIN [27],'&a',1992,'H',
  21. \DISPL '5 OF 9 '\ELSE\IF CURR_LBL<6\PRIN '2580V',\PRIN [27],'&a',3964,'H',
  22. \DISPL '4 OF 9 '\ELSE\IF CURR_LBL<7\PRIN '4742V',\PRIN [27],'&a',20,'H',
  23. \DISPL '3 OF 9 '\ELSE\IF CURR_LBL<8\PRIN '4742V',\PRIN [27],'&a',1992,'H',
  24. \DISPL '2 OF 9 '\ELSE\IF CURR_LBL<9\PRIN '4742V',\PRIN [27],'&a',3964,'H',
  25. \DISPL '1 OF 9  '\ELSE\IF CURR_LBL<10\PRIN '6795V',\PRIN [27],'&a',20,'H',
  26. \DISPL ' BONUS  '\ELSE\IF CURR_LBL<11\PRIN '7147V',\PRIN [27],'&a',20,'H',
  27. \ELSE\IF CURR_LBL<12\PRIN '6795V',\PRIN [27],'&a',965,'H',
  28. \ELSE\IF CURR_LBL<13\PRIN '7147V',\PRIN [27],'&a',965,'H',
  29. \ELSE\IF CURR_LBL<14\PRIN '6795V',\PRIN [27],'&a',2100,'H',
  30. \ELSE\IF CURR_LBL<15\PRIN '7147V',\PRIN [27],'&a',2100,'H',
  31. \ELSE\IF CURR_LBL<16\PRIN '6795V',\PRIN [27],'&a',2955,'H',
  32. \ELSE\IF CURR_LBL<17\PRIN '7147V',\PRIN [27],'&a',2955,'H',
  33. \ELSE\IF CURR_LBL<18\PRIN '6795V',\PRIN [27],'&a',4000,'H',
  34. \ELSE\IF CURR_LBL<19\PRIN '7147V',\PRIN [27],'&a',4000,'H',
  35. \ELSE\IF CURR_LBL<20\PRIN '6795V',\PRIN [27],'&a',4945,'H',
  36. \ELSE\IF CURR_LBL<21\PRIN '7147V',\PRIN [27],'&a',4945,'H',
  37. \ENDIF\ADD 1 TO CURR_LBL\RETURN
  38. \X LOC_525S\PRIN [27],'&a',\IF CURR_LBL<1\CALL ACTV_MSG
  39. \PRIN '744V',\PRIN [27],'&a',0,'H',
  40. \LOC 520,156\DISPL '12 OF 12 '\ELSE\LOC 520,156\IF CURR_LBL<2\PRIN '744V',\PRIN [27],'&a',3000,'H',
  41. \DISPL '11 OF 12 '\ELSE\IF CURR_LBL<3\PRIN '1830V',\PRIN [27],'&a',0,'H',
  42. \DISPL '10 OF 12 '\ELSE\IF CURR_LBL<4\PRIN '1830V',\PRIN [27],'&a',3000,'H',
  43. \DISPL '9 OF 12  '\ELSE\IF CURR_LBL<5\PRIN '2916V',\PRIN [27],'&a',0,'H',
  44. \DISPL '8 OF 12 '\ELSE\IF CURR_LBL<6\PRIN '2916V',\PRIN [27],'&a',3000,'H',
  45. \DISPL '7 OF 12 '\ELSE\IF CURR_LBL<7\PRIN '4000V',\PRIN [27],'&a',0,'H',
  46. \DISPL '6 OF 12 '\ELSE\IF CURR_LBL<8\PRIN '4000V',\PRIN [27],'&a',3000,'H',
  47. \DISPL '5 OF 12 '\ELSE\IF CURR_LBL<9\PRIN '5084V',\PRIN [27],'&a',0,'H',
  48. \DISPL '4 OF 12 '\ELSE\IF CURR_LBL<10\PRIN '5084V',\PRIN [27],'&a',3000,'H',
  49. \DISPL '3 OF 12 '\ELSE\IF CURR_LBL<11\PRIN '6168V',\PRIN [27],'&a',0,'H',
  50. \DISPL '2 OF 12 '\ELSE\IF CURR_LBL<12\PRIN '6168V',\PRIN [27],'&a',3000,'H',
  51. \DISPL '1 OF 12 '\ENDIF\ADD 1 TO CURR_LBL\RETURN
  52. \X SHEETS\BLA #320,0,639,#322\LOC #320,4\WID #321 DOT\ON KEY 14624 JUMP NOTOPEN
  53. Number of SHEETS to print (9 labels per sheet, default is 1 sheet, maximum is 99 sheets)?
  54. (Press <SPACE BAR> now to return to opening menu.)
  55. \"
  56. \"
  57. \"
  58. \"
  59. \"
  60. \"
  61. \"
  62. BE SURE LABEL FORMS ARE CORRECTLY PLACED IN YOUR PRINTER, PROBABLY LABELS DOWN AND, FOR 3.5" LABELS, BONUS FORMS "OUT".  TRY A SHEET OF PLAIN PAPER IF YOU ARE UNSURE OF THE PROPER DIRECTION FOR THE FORMS.
  63. \CURS CRSR_XLOC,5,80,5\QUEST #204\IF #204=0\MOVE 1 TO #204\ENDIF
  64. \IF #204<1 OR #204>99\BEEP 44,99\JUMP SHEETS\ENDIF\MOVE #204 TO #205
  65. \MOVE #205 TO #207\CONVERT #207\ON KEY 14624
  66. \CALL DISPL_SCREEN\BLANK #320,0,639,#322\MOVE 0 TO CURR_LBL
  67. \MOVE 150 TO RESOLUTION
  68. \X STARTUP\IF PRT_LOC='3'\OPEN LPT3: IGNO\IF A=0 OR A=144\JUMP OPN_GOOD\ENDIF\+
  69. \IF PRT_LOC='2'\OPEN LPT2: IGNO\IF A=0 OR A=144\JUMP OPN_GOOD\ENDIF\+
  70. \IF PRT_LOC='1'\OPEN LPT1: IGNO\IF A=0 OR A=144\JUMP OPN_GOOD\ENDIF\JUMP PTR_ERROR
  71. \X OPN_GOOD\IF PRT_LOC='3'\OPEN LPT3:\IF A=0 OR A=144\JUMP PTR_GOOD\ENDIF\+
  72. \IF PRT_LOC='2'\OPEN LPT2:\IF A=0 OR A=144\JUMP PTR_GOOD\ENDIF\+
  73. \IF PRT_LOC='1'\OPEN LPT1:\IF A=0 OR A=144\JUMP PTR_GOOD\ENDIF\JUMP PTR_ERROR
  74. \X PTR_GOOD\IF B=14624\JUMP EXITWRTPAGE\ENDIF
  75. \IF #550<>' '\MOVE #550 TO #200\CALL PARSE_ESCODES\IF #551<>' '\MOVE #551 TO #200\CALL PARSE_ESCODES
  76. \IF #552<>' '\MOVE #552 TO #200\CALL PARSE_ESCODES\IF #553<>' '\MOVE #553 TO #200\CALL PARSE_ESCODES
  77. \ELSE\ELSE\ELSE\ELSE\PRIN [27],'E',
  78. \PRIN [27],'&l2A', ;pg sz
  79. \PRIN [27],,'9', ;clr hrztl margins
  80. \PRIN [27],'&l6D', ;lpi=6
  81. \PRIN [27],'&l66P', ;lns=66
  82. \PRIN [27],'&l0L', ;DISABLE perf skip
  83. \PRIN [27],'&l0E', ;top margin=0
  84. \ENDIF
  85. \IF SRL_ACTV='Y'\MOVE 1 TO Z\ELSE\MOVE #204 TO Z\ENDIF
  86. \PRIN [27],'&l',Z,'X'  ;# copies=Z
  87. \PRIN [27],'*t',RESOLUTION,'R',
  88. \LOC 386,168\DISPL "  PRINTING SHEET #:               "
  89. \RETURN
  90. \X PRINTLABELS\PRIN [27],'*r1A',
  91. \MOVE PRT_LOC TO #4406\CONVERT #4406
  92. \IF LABTYPE='3.5"'
  93. \BUILD #4404="HPRASTER.EXE W=0,5,366,393 P=",#4406
  94. \EXECUTE >(#4404)
  95. \PRIN [27],'*rB',
  96. \MOVE (#89+#86+#85) TO #4404\CONVERT #4404
  97. \MOVE 367-BRDRWIDTH-8 TO #4403\CONVERT #4403
  98. \MOVE #89 TO #4402\CONVERT #4402
  99. \MOVE BRDRWIDTH+8 TO #4401\CONVERT #4401
  100. \BUILD #4404="HPRASTER.EXE W=",#4401,",",#4402,",",#4403,",",#4404," A=1,1,-1,-1 P=",#4406
  101. \CALL SET_2CURSOR\PRIN [27],'*r1A',
  102. \ELSE
  103. \BUILD #4404="HPRASTER.EXE W=0,190,566,393 P=",#4406
  104. \ENDIF
  105. \EXECUTE >(#4404)
  106. \PRIN [27],'*rB',
  107. \RETURN
  108. \X PRINTBONUS\READ K:162017PW.FON\MOVE 20 TO FNTY
  109. \BLANK 400,320,639,390\MOVE CURR_LBL TO T\DIVIDE T BY 2 REM T
  110. \IF T=1\MOVE 16 TO T\ENDIF
  111. \LOC 412,325+T\MOVE CURR_LBL-LABSPERPG+159 TO G\DISPL #G[1,12]
  112. \LOC 412,353+T\DISPL #G[13,24]
  113. \PRIN [27],'*r1A',
  114. \BUILD #4404="HPRASTER.EXE W=400,322,566,388 P=",#4406
  115. \EXECUTE >(#4404)
  116. \PRIN [27],'*rB',
  117. \RETURN
  118. \X DISPL_SCREEN\IF LABTYPE='3.5"'
  119. \BLANK #320,0,639,#322\ELSE\BLANK 0,0,639,#322\ENDIF\RETURN
  120. \X WORKINGNOTE\IF LABTYPE='3.5"'\LOC 450,230\LINE 437,216,580,298,1,B
  121. \ELSE\LOC 132,50\LINE 119,36,262,118,1,B\ENDIF\WID 140 DOT C
  122. HARD AT WORK!
  123. \"
  124. PRESS <SPACE BAR> TO INTERUPT THIS STEP...
  125. \RETURN
  126. \X PTR_ERROR\BEEP 44,99\SAVE SCREEN\BLANK 0,0,639,412
  127. \LOC 376,0\WID 264 DOT
  128. Your printer returned the status value shown below.  A 1 in bits 0, 3, 5 or 6 or a 0 in bits 4 or 7 is an error.  Program requires HPLASERJET with 512K RAM, enough for 150 D.P.I. full-page graphics.
  129. \LOC 396,96\WID 260 DOT
  130.       PRINTER STATUS BYTE:
  131.   7   6   5   4   3   2   1   0
  132. \"
  133. Values should be: (x=don't care)
  134.    1   0   0   1   0   x   x   0
  135. \"
  136.             values are:
  137. \MOVE 416 TO W\MOVE 128 TO V\X PR_ERR\LOC W,176\ADD 24 TO W
  138. \IF A>=V\DISPL '1'\SUB V FROM A\ELSE\DISPL '0'\ENDIF\DIVIDE V BY 2\IF V>0\JUMP PR_ERR\ENDIF
  139. \LOC 386,200\WID 230 DOT
  140. BIT #      MEANING
  141. \"
  142.   7
  143.   6
  144.   5
  145.   4
  146.   3
  147.   2
  148.   1
  149.   0
  150. \LOC 424,222\WID 230 DOT
  151. 0=Printer Busy.
  152. 1=Acknowledgement from Printer.
  153. 1=Printer Out of Paper.
  154. 0=Printer Offline
  155. 1=Transfer (I/O) Error.
  156.   not used.
  157.   not used.
  158. 1=Time-out Error.
  159. \LOC 426,330\WID 150 DOT C\LINE 421,326,571,378,1,B
  160. Press <RETURN> to try again...
  161. Press <F10> to go to the opening menu...
  162. \ON KEY F10 JUMP RD_INTRO
  163. \ROUND -1 SPEED 84\MARQ 412,174,595,190,1\RESTORE SCREEN
  164. \ON KEY F10\JUMP OPN_GOOD
  165. \X WRT_SRL_AUX\IF SRL_ACTV='Y' AND SRL_TEMPRUN<>'Y'\BUILD #10000="LABEL FILE LAST WRITTEN: ",TIME&DATE\+
  166. \ON ERROR JUMP BADOSOBAD\WRITE (LABELNM)\CLEAR ON ERRORS\ENDIF\RETURN
  167. \X BADOSOBAD\BEEP 122,77\LOC #320,0\BLA #320,0,639,#322\WID #321 DOTS C
  168. \"
  169. ERROR!!
  170. \"
  171. Unable to write label file for serialization number update!  Run should be stopped until the problem has been rectified.
  172. \"
  173. Press any key to return to the opening menu...
  174. \WAIT NOW -1\JUMP EXITPAGE
  175. \X PARSE_ESCODES\MOVE 1 TO Z
  176. \LENGTH #200\MOVE A TO Q\MOVE 1 TO V\X PARLOOP
  177. \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\ELSE\JUMP CHKOUT44\ENDIF
  178. \PRIN #201,
  179. \ADD 1 TO V\IF V<=Q\JUMP PARLOOP\ENDIF
  180. \X CHKOUT44\RETURN
  181. \X FINDNMBR\MOVE V TO U
  182. \X FNMBR2\MOVE #200[U,1] TO #204\IF #204=']'\ELSE\ADD 1 TO U\IF U<=Q\JUMP FNMBR2\ENDIF\IF U>V
  183. \MOVE #200[V,U-V] TO #203\LENGTH #203\MOVE A TO G
  184. \CALL CHK_NMBR\IF G=0\CONVERT #203\IF #203>255 OR #203<0\MOVE U TO Z\ELSE
  185. \PRIN [#203],
  186. \ELSE\MOVE U TO Z\ENDIF\MOVE U TO V\ADD 1 TO V
  187. \X FNMBR4\IF Z>1\LOC #320,420
  188. ERROR! Values in brackets not numeric and >-1 and <256 or brackets not "balanced".  This error should have been caught at input time!  Please contact Russell Hoffman!
  189. \ENDIF\RETURN
  190. \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
  191. \X RD_INTRO\READ LABINTRO.TXT
  192. \X ACTV_MSG\CALL WORKINGNOTE
  193. \LOC 386,156\WID 639-(376+32) DOTS\DISPL "  PRINTING LABEL #:               "
  194. \LOC 392,10\WIDTH 639-(376+32) DOTS C
  195. LASER IMAGE NOW BEING CREATED FOR EACH DISKETTE LABEL AT 150 DOTS PER INCH.
  196. \IF LABTYPE='3.5"'
  197. BONUS LABELS ALSO BEING FORMATTED.
  198. \ELSE
  199. \"
  200. \"
  201. \ENDIF
  202. \"
  203. (Thanks to Daan Van Rooyen for the sound effects!)
  204. \DOT 561,77,1\DOT 564,77,1
  205. \"
  206. \"
  207. \"
  208. \"
  209. \"
  210. \RETURN
  211. \X SET_2CURSOR\PRIN [27],'&a',
  212. \MOVE 443+((40-(#86+#85))*5/2) TO #4005\CONVERT #4005
  213. \IF CURR_LBL=1\PRIN #4005,'V',\PRIN [27],'&a',60,'H',
  214. \ELSE\IF CURR_LBL=2\PRIN #4005,'V',\PRIN [27],'&a',2032,'H',
  215. \ELSE\IF CURR_LBL=3\PRIN #4005,'V',\PRIN [27],'&a',4004,'H',
  216. \ENDIF
  217. \MOVE 2620+((40-(#86+#85))*5/2) TO #4005\CONVERT #4005
  218. \IF CURR_LBL=4\PRIN #4005,'V',\PRIN [27],'&a',60,'H',
  219. \ELSE\IF CURR_LBL=5\PRIN #4005,'V',\PRIN [27],'&a',2032,'H',
  220. \ELSE\IF CURR_LBL=6\PRIN #4005,'V',\PRIN [27],'&a',4004,'H',
  221. \ENDIF
  222. \MOVE 4780+((40-(#86+#85))*5/2) TO #4005\CONVERT #4005
  223. \IF CURR_LBL=7\PRIN #4005,'V',\PRIN [27],'&a',60,'H',
  224. \ELSE\IF CURR_LBL=8\PRIN #4005,'V',\PRIN [27],'&a',2032,'H',
  225. \ELSE\IF CURR_LBL=9\PRIN #4005,'V',\PRIN [27],'&a',4004,'H',
  226. \ENDIF\RETURN
  227.