*     foobar.LBL     -LABEL/FORM PROGRAM
STORE '       '  TO MQ:MODE
STORE 10 TO MQ:LSIZE
@ 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
SET PRINT ON
* REPEAT UNTIL FILE ENDS
DO WHILE .NOT. EOF
 ?  'Name:'
 ??  '  '+ NAME
 STORE 0 TO MQ:COUNT
* IF LABEL IS LARGER, SKIP SOME LINES
 IF MQ:LSIZE >    1
  DO WHILE MQ:COUNT < (MQ:LSIZE -    1 )
   ? '   '
   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