* labels.inv 08/18/83
SET PRINT ON
SET CONSOLE OFF
* set printer codes for small type
? CHR(29)
? CHR(27) + chr(56)
SET PRINT OFF
SET CONSOLE ON
ERASE
STORE t TO lineup
DO WHILE LINEUP
STORE '?' TO command
@ 10,00
@ 11,00
@ 10,10 SAY 'Please line up the top of the ribbon with the top of the label'
@ 11,10 SAY 'When lined up hit ENTER for a print check.'
SET CONSOLE OFF
WAIT
SET PRINT ON
SET MARGIN TO 0
? 'THE TOP OF THE TOP LINE SHOULD BE ABOUT'
? '1/4" FROM THE TOP OF THE LABEL'
? ' '
SET PRINT OFF
SET CONSOLE ON
@ 10,00
@ 11,00
@ 10,10 SAY 'Are you lined up to print (Y/N) '
@ 10,44 GET command picture '!'
READ
CLEAR GETS
IF command = 'Y'
SET PRINT ON
? ' '
? ' '
? ' '
? ' '
SET PRINT OFF
STORE f TO lineup
STORE t TO printlab
ENDIF command = y
ENDDO while lineup
ERASE
DO WHILE printlab = t
STORE '?' TO command
STORE 0 to VOLNO
STORE 0 TO PRNTNO
@ 10,00
@ 11,00
@ 12,00
@ 13,00
@ 15,00
@ 12,12 SAY "What volume do you want to label ? " GET VOLNO
READ
@ 13,12 SAY "         How many shall we print ? " GET PRNTNO
@ 15,00 SAY "USE 999 as quantity to print one of each from starting volume"
READ
LOCATE FOR disk = volno
* prints a full set - one each from starting point when quantity is 999
IF PRNTNO = 999
DO WHILE .NOT. EOF
SET PRINT ON
SET CONSOLE OFF
SET MARGIN TO 0
? ' '
? ' '
?? "SIG/M SOFTWARE LIBRARY  VOL"
?? disk
? '  ' + line1
? '  ' + line2
? '  ' + date()
? ' '
? ' '
? ' '
SKIP
ENDDO while not eof
STORE 0 TO PRNTNO
ENDIF prntno
DO WHILE PRNTNO > 0
SET PRINT ON
SET CONSOLE OFF
SET MARGIN TO 0
? ' '
? ' '
?? "SIG/M SOFTWARE LIBRARY  VOL"
?? disk
? '  ' + line1
? '  ' + line2
? '  ' + date()
? ' '
? ' '
? ' '
STORE PRNTNO - 1 TO PRNTNO
ENDDO while prntno
SET PRINT OFF
SET CONSOLE ON
@ 10,00
@ 11,00
@ 12,00
@ 13,00
@ 15,00
@ 10,12 SAY "Do you want to print more labels ? " GET COMMAND picture '!'
READ
IF command = 'Y'
STORE t TO printlab
ELSE
STORE f TO printlab
SET CONSOLE OFF
SET PRINT ON
? CHR(30)
? CHR(27) + CHR(54)
EJECT
SET PRINT OFF
SET CONSOLE ON
ENDIF command = Y
ENDDO while printlab
ERASE
RELEASE all
STORE t TO first
STORE t TO more
STORE '?' TO command