\CALL SHEETS\CALLM MAKENM\IF B=14624\JUMP NOTOPEN\ENDIF
\X PAGELOOP\CALLM RDSMLFON\LOC 520,168\MOVE #205+1-#204 TO #206\CONVERT #206\+
\IF SRL_ACTV='Y'\DISPL #206[4,3],' OF ',#207[4,3]\ELSE\DISPL #207[4,3],' PAGES.'\ENDIF
\X LABELLOOP\IF B=14624\JUMP EXITWRTPAGE\ENDIF\CALLM PRINT_SRL\CALLM UPSRL\CALL SET_CURSOR
\CALL PRINTLABELS\IF CURR_LBL<LABSPERPG\JUMP LABELLOOP\ENDIF
\IF LABTYPE<>'3.5"'\JUMP LABOUT\ENDIF
\X BONUSLOOP\CALL SET_CURSOR\CALL PRINTBONUS\IF CURR_LBL<21\JUMP BONUSLOOP\ENDIF
\X LABOUT\CALL WRT_SRL_AUX
\IF SRL_ACTV='Y'\MOVE 0 TO CURR_LBL\SUB 1 FROM #204\IF #204>0\PRIN [12],\JUMP PAGELOOP\ENDIF
\CALLM DONE_NOISE\JUMP EXITPAGE\X EXITWRTPAGE\CALL WRT_SRL_AUX ;THIS IS IN CASE YOU PRESSED SPACE BAR...
\X EXITPAGE\PRIN [12],
\X EXITHERE\PRIN [27],'E', ;RESET
\IF PRT_LOC='3'\CLOSE LPT3:\ELSE\IF PRT_LOC='2'\CLOSE LPT2:\ELSE\CLOSE LPT1:\ENDIF
\X NOTOPEN\READ K:081117PW.FON\MOVE 11 TO FNTY\READ K:LABINTRO.TXT ;GO BACK, START OVER!
\X SET_CURSOR\IF #760<>'3.5"'\JUMP LOC_525S\ENDIF\PRIN [27],'&a',
\IF CURR_LBL<1\CALL ACTV_MSG\PRIN '406V',\PRIN [27],'&a',20,'H',
\LOC 520,156\DISPL '9 OF 9 '\ELSE\LOC 520,156\IF CURR_LBL<2\PRIN '406V',\PRIN [27],'&a',1992,'H',
\DISPL '8 OF 9 '\ELSE\IF CURR_LBL<3\PRIN '406V',\PRIN [27],'&a',3964,'H',
\DISPL '7 OF 9 '\ELSE\IF CURR_LBL<4\PRIN '2580V',\PRIN [27],'&a',20,'H',
\DISPL '6 OF 9 '\ELSE\IF CURR_LBL<5\PRIN '2580V',\PRIN [27],'&a',1992,'H',
\DISPL '5 OF 9 '\ELSE\IF CURR_LBL<6\PRIN '2580V',\PRIN [27],'&a',3964,'H',
\DISPL '4 OF 9 '\ELSE\IF CURR_LBL<7\PRIN '4742V',\PRIN [27],'&a',20,'H',
\DISPL '3 OF 9 '\ELSE\IF CURR_LBL<8\PRIN '4742V',\PRIN [27],'&a',1992,'H',
\DISPL '2 OF 9 '\ELSE\IF CURR_LBL<9\PRIN '4742V',\PRIN [27],'&a',3964,'H',
\DISPL '1 OF 9  '\ELSE\IF CURR_LBL<10\PRIN '6795V',\PRIN [27],'&a',20,'H',
\DISPL ' BONUS  '\ELSE\IF CURR_LBL<11\PRIN '7147V',\PRIN [27],'&a',20,'H',
\ELSE\IF CURR_LBL<12\PRIN '6795V',\PRIN [27],'&a',965,'H',
\ELSE\IF CURR_LBL<13\PRIN '7147V',\PRIN [27],'&a',965,'H',
\ELSE\IF CURR_LBL<14\PRIN '6795V',\PRIN [27],'&a',2100,'H',
\ELSE\IF CURR_LBL<15\PRIN '7147V',\PRIN [27],'&a',2100,'H',
\ELSE\IF CURR_LBL<16\PRIN '6795V',\PRIN [27],'&a',2955,'H',
\ELSE\IF CURR_LBL<17\PRIN '7147V',\PRIN [27],'&a',2955,'H',
\ELSE\IF CURR_LBL<18\PRIN '6795V',\PRIN [27],'&a',4000,'H',
\ELSE\IF CURR_LBL<19\PRIN '7147V',\PRIN [27],'&a',4000,'H',
\ELSE\IF CURR_LBL<20\PRIN '6795V',\PRIN [27],'&a',4945,'H',
\ELSE\IF CURR_LBL<21\PRIN '7147V',\PRIN [27],'&a',4945,'H',
\ENDIF\ADD 1 TO CURR_LBL\RETURN
\X LOC_525S\PRIN [27],'&a',\IF CURR_LBL<1\CALL ACTV_MSG
\PRIN '744V',\PRIN [27],'&a',0,'H',
\LOC 520,156\DISPL '12 OF 12 '\ELSE\LOC 520,156\IF CURR_LBL<2\PRIN '744V',\PRIN [27],'&a',3000,'H',
\DISPL '11 OF 12 '\ELSE\IF CURR_LBL<3\PRIN '1830V',\PRIN [27],'&a',0,'H',
\DISPL '10 OF 12 '\ELSE\IF CURR_LBL<4\PRIN '1830V',\PRIN [27],'&a',3000,'H',
\DISPL '9 OF 12  '\ELSE\IF CURR_LBL<5\PRIN '2916V',\PRIN [27],'&a',0,'H',
\DISPL '8 OF 12 '\ELSE\IF CURR_LBL<6\PRIN '2916V',\PRIN [27],'&a',3000,'H',
\DISPL '7 OF 12 '\ELSE\IF CURR_LBL<7\PRIN '4000V',\PRIN [27],'&a',0,'H',
\DISPL '6 OF 12 '\ELSE\IF CURR_LBL<8\PRIN '4000V',\PRIN [27],'&a',3000,'H',
\DISPL '5 OF 12 '\ELSE\IF CURR_LBL<9\PRIN '5084V',\PRIN [27],'&a',0,'H',
\DISPL '4 OF 12 '\ELSE\IF CURR_LBL<10\PRIN '5084V',\PRIN [27],'&a',3000,'H',
\DISPL '3 OF 12 '\ELSE\IF CURR_LBL<11\PRIN '6168V',\PRIN [27],'&a',0,'H',
\DISPL '2 OF 12 '\ELSE\IF CURR_LBL<12\PRIN '6168V',\PRIN [27],'&a',3000,'H',
\DISPL '1 OF 12 '\ENDIF\ADD 1 TO CURR_LBL\RETURN
\X SHEETS\BLA #320,0,639,#322\LOC #320,4\WID #321 DOT\ON KEY 14624 JUMP NOTOPEN
Number of SHEETS to print (9 labels per sheet, default is 1 sheet, maximum is 99 sheets)?
(Press <SPACE BAR> now to return to opening menu.)
\"
\"
\"
\"
\"
\"
\"
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.
\CURS CRSR_XLOC,5,80,5\QUEST #204\IF #204=0\MOVE 1 TO #204\ENDIF
\IF #204<1 OR #204>99\BEEP 44,99\JUMP SHEETS\ENDIF\MOVE #204 TO #205
\MOVE #205 TO #207\CONVERT #207\ON KEY 14624
\CALL DISPL_SCREEN\BLANK #320,0,639,#322\MOVE 0 TO CURR_LBL
\MOVE 150 TO RESOLUTION
\X STARTUP\IF PRT_LOC='3'\OPEN LPT3: IGNO\IF A=0 OR A=144\JUMP OPN_GOOD\ENDIF\+
\IF PRT_LOC='2'\OPEN LPT2: IGNO\IF A=0 OR A=144\JUMP OPN_GOOD\ENDIF\+
\IF PRT_LOC='1'\OPEN LPT1: IGNO\IF A=0 OR A=144\JUMP OPN_GOOD\ENDIF\JUMP PTR_ERROR
\X OPN_GOOD\IF PRT_LOC='3'\OPEN LPT3:\IF A=0 OR A=144\JUMP PTR_GOOD\ENDIF\+
\IF PRT_LOC='2'\OPEN LPT2:\IF A=0 OR A=144\JUMP PTR_GOOD\ENDIF\+
\IF PRT_LOC='1'\OPEN LPT1:\IF A=0 OR A=144\JUMP PTR_GOOD\ENDIF\JUMP PTR_ERROR
\X PTR_GOOD\IF B=14624\JUMP EXITWRTPAGE\ENDIF
\IF #550<>' '\MOVE #550 TO #200\CALL PARSE_ESCODES\IF #551<>' '\MOVE #551 TO #200\CALL PARSE_ESCODES
\IF #552<>' '\MOVE #552 TO #200\CALL PARSE_ESCODES\IF #553<>' '\MOVE #553 TO #200\CALL PARSE_ESCODES
\ELSE\ELSE\ELSE\ELSE\PRIN [27],'E',
\PRIN [27],'&l2A', ;pg sz
\PRIN [27],,'9', ;clr hrztl margins
\PRIN [27],'&l6D', ;lpi=6
\PRIN [27],'&l66P', ;lns=66
\PRIN [27],'&l0L', ;DISABLE perf skip
\PRIN [27],'&l0E', ;top margin=0
\ENDIF
\IF SRL_ACTV='Y'\MOVE 1 TO Z\ELSE\MOVE #204 TO Z\ENDIF
\PRIN [27],'&l',Z,'X'  ;# copies=Z
\PRIN [27],'*t',RESOLUTION,'R',
\LOC 386,168\DISPL "  PRINTING SHEET #:               "
\RETURN
\X PRINTLABELS\PRIN [27],'*r1A',
\MOVE PRT_LOC TO #4406\CONVERT #4406
\IF LABTYPE='3.5"'
\BUILD #4404="HPRASTER.EXE W=0,5,366,393 P=",#4406
\EXECUTE >(#4404)
\PRIN [27],'*rB',
\MOVE (#89+#86+#85) TO #4404\CONVERT #4404
\MOVE 367-BRDRWIDTH-8 TO #4403\CONVERT #4403
\MOVE #89 TO #4402\CONVERT #4402
\MOVE BRDRWIDTH+8 TO #4401\CONVERT #4401
\BUILD #4404="HPRASTER.EXE W=",#4401,",",#4402,",",#4403,",",#4404," A=1,1,-1,-1 P=",#4406
\CALL SET_2CURSOR\PRIN [27],'*r1A',
\ELSE
\BUILD #4404="HPRASTER.EXE W=0,190,566,393 P=",#4406
\ENDIF
\EXECUTE >(#4404)
\PRIN [27],'*rB',
\RETURN
\X PRINTBONUS\READ K:162017PW.FON\MOVE 20 TO FNTY
\BLANK 400,320,639,390\MOVE CURR_LBL TO T\DIVIDE T BY 2 REM T
\IF T=1\MOVE 16 TO T\ENDIF
\LOC 412,325+T\MOVE CURR_LBL-LABSPERPG+159 TO G\DISPL #G[1,12]
\LOC 412,353+T\DISPL #G[13,24]
\PRIN [27],'*r1A',
\BUILD #4404="HPRASTER.EXE W=400,322,566,388 P=",#4406
\EXECUTE >(#4404)
\PRIN [27],'*rB',
\RETURN
\X DISPL_SCREEN\IF LABTYPE='3.5"'
\BLANK #320,0,639,#322\ELSE\BLANK 0,0,639,#322\ENDIF\RETURN
\X WORKINGNOTE\IF LABTYPE='3.5"'\LOC 450,230\LINE 437,216,580,298,1,B
\ELSE\LOC 132,50\LINE 119,36,262,118,1,B\ENDIF\WID 140 DOT C
HARD AT WORK!
\"
PRESS <SPACE BAR> TO INTERUPT THIS STEP...
\RETURN
\X PTR_ERROR\BEEP 44,99\SAVE SCREEN\BLANK 0,0,639,412
\LOC 376,0\WID 264 DOT
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.
\LOC 396,96\WID 260 DOT
      PRINTER STATUS BYTE:
  7   6   5   4   3   2   1   0
\"
Values should be: (x=don't care)
   1   0   0   1   0   x   x   0
\"
            values are:
\MOVE 416 TO W\MOVE 128 TO V\X PR_ERR\LOC W,176\ADD 24 TO W
\IF A>=V\DISPL '1'\SUB V FROM A\ELSE\DISPL '0'\ENDIF\DIVIDE V BY 2\IF V>0\JUMP PR_ERR\ENDIF
\LOC 386,200\WID 230 DOT
BIT #      MEANING
\"
  7
  6
  5
  4
  3
  2
  1
  0
\LOC 424,222\WID 230 DOT
0=Printer Busy.
1=Acknowledgement from Printer.
1=Printer Out of Paper.
0=Printer Offline
1=Transfer (I/O) Error.
  not used.
  not used.
1=Time-out Error.
\LOC 426,330\WID 150 DOT C\LINE 421,326,571,378,1,B
Press <RETURN> to try again...
Press <F10> to go to the opening menu...
\ON KEY F10 JUMP RD_INTRO
\ROUND -1 SPEED 84\MARQ 412,174,595,190,1\RESTORE SCREEN
\ON KEY F10\JUMP OPN_GOOD
\X WRT_SRL_AUX\IF SRL_ACTV='Y' AND SRL_TEMPRUN<>'Y'\BUILD #10000="LABEL FILE LAST WRITTEN: ",TIME&DATE\+
\ON ERROR JUMP BADOSOBAD\WRITE (LABELNM)\CLEAR ON ERRORS\ENDIF\RETURN
\X BADOSOBAD\BEEP 122,77\LOC #320,0\BLA #320,0,639,#322\WID #321 DOTS C
\"
ERROR!!
\"
Unable to write label file for serialization number update!  Run should be stopped until the problem has been rectified.
\"
Press any key to return to the opening menu...
\WAIT NOW -1\JUMP EXITPAGE
\X PARSE_ESCODES\MOVE 1 TO Z
\LENGTH #200\MOVE A TO Q\MOVE 1 TO V\X PARLOOP
\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
\PRIN #201,
\ADD 1 TO V\IF V<=Q\JUMP PARLOOP\ENDIF
\X CHKOUT44\RETURN
\X FINDNMBR\MOVE V TO U
\X FNMBR2\MOVE #200[U,1] TO #204\IF #204=']'\ELSE\ADD 1 TO U\IF U<=Q\JUMP FNMBR2\ENDIF\IF U>V
\MOVE #200[V,U-V] TO #203\LENGTH #203\MOVE A TO G
\CALL CHK_NMBR\IF G=0\CONVERT #203\IF #203>255 OR #203<0\MOVE U TO Z\ELSE
\PRIN [#203],
\ELSE\MOVE U TO Z\ENDIF\MOVE U TO V\ADD 1 TO V
\X FNMBR4\IF Z>1\LOC #320,420
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!
\ENDIF\RETURN
\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
\X RD_INTRO\READ LABINTRO.TXT
\X ACTV_MSG\CALL WORKINGNOTE
\LOC 386,156\WID 639-(376+32) DOTS\DISPL "  PRINTING LABEL #:               "
\LOC 392,10\WIDTH 639-(376+32) DOTS C
LASER IMAGE NOW BEING CREATED FOR EACH DISKETTE LABEL AT 150 DOTS PER INCH.
\IF LABTYPE='3.5"'
BONUS LABELS ALSO BEING FORMATTED.
\ELSE
\"
\"
\ENDIF
\"
(Thanks to Daan Van Rooyen for the sound effects!)
\DOT 561,77,1\DOT 564,77,1
\"
\"
\"
\"
\"
\RETURN
\X SET_2CURSOR\PRIN [27],'&a',
\MOVE 443+((40-(#86+#85))*5/2) TO #4005\CONVERT #4005
\IF CURR_LBL=1\PRIN #4005,'V',\PRIN [27],'&a',60,'H',
\ELSE\IF CURR_LBL=2\PRIN #4005,'V',\PRIN [27],'&a',2032,'H',
\ELSE\IF CURR_LBL=3\PRIN #4005,'V',\PRIN [27],'&a',4004,'H',
\ENDIF
\MOVE 2620+((40-(#86+#85))*5/2) TO #4005\CONVERT #4005
\IF CURR_LBL=4\PRIN #4005,'V',\PRIN [27],'&a',60,'H',
\ELSE\IF CURR_LBL=5\PRIN #4005,'V',\PRIN [27],'&a',2032,'H',
\ELSE\IF CURR_LBL=6\PRIN #4005,'V',\PRIN [27],'&a',4004,'H',
\ENDIF
\MOVE 4780+((40-(#86+#85))*5/2) TO #4005\CONVERT #4005
\IF CURR_LBL=7\PRIN #4005,'V',\PRIN [27],'&a',60,'H',
\ELSE\IF CURR_LBL=8\PRIN #4005,'V',\PRIN [27],'&a',2032,'H',
\ELSE\IF CURR_LBL=9\PRIN #4005,'V',\PRIN [27],'&a',4004,'H',
\ENDIF\RETURN