\BLA #320,0,639,#322\ON KEY F10 JUMP REDO_ALL\IF LABTYPE<>'3.5"'\JUMP SETUP_HP\ENDIF
\X DO_BONUS\LENGTH #160\IF A=0\CALL RESET_BONUS\ENDIF
\MOVE 'Y' TO #200\CALLM PR_LBL
\LOC #320,0\WID #321 DOT
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)
\"
\"
\CALL PR_BONUS
\CURS CRSR_XLOC,4\QUES #200,1\IF #200<>'Y' AND #200<>'N'\BEEP 67,89\JUMP DO_BONUS\ENDIF
\IF #200='Y'\JUMP SETUP_HP\ENDIF
\X WHICHBONUS\LOC #320,0\WID #321 DOT
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.
\"
\"
\"
\BLA #320,260,639,#322\CURS CRSR_XLOC,4\QUES #200,0
\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
\MOVE #200+159 TO G\CURS CRSR_XLOC,17,CRSR_XLOC+11,18\QUES #G,24,1,L\CALL PR_BONUS\JUMP WHICHBONUS
\X PR_BONUS\LOC #320,100\WID 20 DOT C
1
2
3
4
5
6
7
8
9
10
11
12
\MOVE 160 TO G\X PRINTB\BLA #320+20,100+((G-160)*11),639,100+(((G+1)-160)*11)
\LOC #320+20,100+((G-160)*11)\DISPLAY #G\ADD 1 TO G\IF G<172\JUMP PRINTB\ENDIF
\RETURN
\X SETUP_HP\MOVE PRT_LOC TO #200\LOCATE #320,0\WIDTH #321 DOTS\HEIGHT 400\BLA #320,0,639,#322
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.
\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
\IF #200<>PRT_LOC\MOVE 'Y' TO CHGD_LBL\MOVE #200 TO PRT_LOC\ENDIF
\LOCATE #320,0\BLA #320,0,639,#322
Some printers require "SETUP" or "CONFIGURATION" codes to work properly.
\"
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.
\"
Most compatible printers have front panel switches to configure them in HP LASERJET mode.  Some boot up in HP mode.
\"
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.
\"
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.
\"
\IF LABTYPE<>'3.5"'\BLA 0,#301,639,412\ENDIF
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').
\MOVE 1 TO Z
\MOVE #550 TO #200\X LINE1\IF LABTYPE='3.5"'\CURSOR CRSR_XLOC,25,80,26\ELSE\CURSOR CRSR_XLOC,14,80,15\ENDIF
\QUEST #200,70,Z,L\CALL PARSE_LINE\IF Z>1\JUMP LINE1\ENDIF\BLA #320,422,639,#322
\IF #550<>#200\MOVE 'Y' TO CHGD_LBL\ENDIF
\MOVE #200 TO #550\IF #200=' '\JUMP GO_WRT\ENDIF
\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
\IF #551<>#200\MOVE 'Y' TO CHGD_LBL\ENDIF
\MOVE #200 TO #551\IF #200=' '\JUMP GO_WRT\ENDIF
\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
\IF #552<>#200\MOVE 'Y' TO CHGD_LBL\ENDIF
\MOVE #200 TO #552\IF #200=' '\JUMP GO_WRT\ENDIF
\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
\IF #553<>#200\MOVE 'Y' TO CHGD_LBL\ENDIF
\MOVE #200 TO #553\IF #200=' '\JUMP GO_WRT\ENDIF
\X GO_WRT\READ K:LABWRITE.TXT
\X REDO_ALL\READ K:LAB_DATA.TXT
\X PARSE_LINE\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\ENDIF
\ADD 1 TO V\IF V<=Q\JUMP PARLOOP\ENDIF
\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\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 must be all numeric and >-1 and <256.  Brackets must be "balanced".  Review syntax rules, above.
\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 RESET_BONUS\MOVE 'PGM BACKUP  #___ OF #___' TO #160\MOVE 'H. D. BACKUP#___ OF #___' TO #161\+
\MOVE '    DISK      ENCLOSED' TO #162\MOVE '  MAGNETIC      MEDIA' TO #163\+
\MOVE '3.5" MEDIA   ENCLOSED' TO #164\MOVE '     NO       MAGNETS!' TO #165\+
\MOVE 'CONFIDENTIAL INFORMATION' TO #166\MOVE ' MASTER DISK VERS. #____' TO #167\+
\MOVE ' BACKUP OF  MASTER DISK' TO #168\MOVE '  WORK IN     PROGRESS' TO #169\+
\MOVE 'ENCRYPTED      DATA' TO #170\MOVE 'FOR OFFSITE   STORAGE' TO #171\+
\RETURN