*     BYMAIL.LBL     -LABEL/FORM PROGRAM
STORE '       '  TO MQ:MODE
STORE 10 TO MQ:LSIZE
STORE  '                                                                  '  TO MQ:SLCT
STORE 'Y' TO MQ:ANS
@ 21,10 SAY 'DO YOU WISH TO dSCAN? (Y/N)'  GET MQ:ANS
READ
@ 21,10
IF !(MQ:ANS)='Y'
 @ 21,10 SAY 'PLEASE ENTER SELECTION CRITERIA'
 @ 23,10 GET MQ:SLCT
 READ
 @ 21,10
 @ 23,10
ELSE
 STORE 'T' TO MQ:SLCT
ENDIF
@ 21,10 SAY  ' HOW MANY LINES PER LABEL/FORM?  '
@ 22,10 SAY  ' (ENTER 0 TO GET PAGE EJECTS) '
@ 23,10 SAY  ' PLEASE COUNT THE SPACE BETWEEN LABELS  '  GET MQ:LSIZE
READ
GOTO TOP
@ 23,10 SAY  ' PLEASE SET UP YOUR PRINTER                          '
SET CONSOLE OFF
WAIT
SET CONSOLE ON
* REPEAT UNTIL FILE ENDS
DO WHILE .NOT. EOF
 IF &MQ:SLCT
  STORE first TO MQ1:01
  STORE last TO MQ1:02
  STORE company TO MQ1:03
  STORE address TO MQ1:04
  STORE city TO MQ1:05
  STORE st TO MQ1:06
  STORE zip TO MQ1:07
  STORE home TO MQ1:08
  STORE work TO MQ1:09
  STORE comments TO MQ1:10
 ELSE
  SKIP
  LOOP
 ENDIF
SET PRINT ON
 ?  '       '+'First Name:'+'  '+MQ1:01+'   '+'Last Name:'+'   '+MQ1:02
 ?  '             '+'Company Name:'+'    '+MQ1:03
 ?  '--------------------'+'--------------------'+'--------------------'+'--------------------'
 ?  '       '+'Address:'+'     '+MQ1:04
 ?  '--------------------'+'--------------------'+'--------------------'+'--------------------'
 ?  'City:'+'    '+MQ1:05+'    '+'State:'+'   '+MQ1:06+'    '+'Zip:'+'   '+MQ1:07
 ?  '--------------------'+'--------------------'+'--------------------'+'--------------------'
 ?  '           '+'Home Phone:'+'  '+MQ1:08+'      '+'Work Phone:'+'  '+MQ1:09
 ?  '--------------------'+'--------------------'+'--------------------'+'--------------------'
 ?  'Comments:'+'    '+MQ1:10
 ?  '--------------------'+'--------------------'+'--------------------'+'--------------------'
 ?  '                         '+'*** Please use all C'+'aps!!! ***'
 STORE 0 TO MQ:COUNT
* IF LABEL IS LARGER, SKIP SOME LINES
 IF MQ:LSIZE >   12
  DO WHILE MQ:COUNT < (MQ:LSIZE -   12 )
   ? '   '
   STORE MQ:COUNT + 1 TO MQ:COUNT
  ENDDO  MQ:COUNT
 ELSE
 IF MQ:LSIZE = 0
  EJECT
 ENDIF  0
 ENDIF  >
 SKIP
ENDDO   NOT EOF
SET PRINT OFF
SET CONSOLE ON
RELEASE MQ:LSIZE,MQ:COUNT,MQ:ANS,MQ:SLCT
  RELEASE MQ1:01
  RELEASE MQ1:02
  RELEASE MQ1:03
  RELEASE MQ1:04
  RELEASE MQ1:05
  RELEASE MQ1:06
  RELEASE MQ1:07
  RELEASE MQ1:08
  RELEASE MQ1:09
  RELEASE MQ1:10