home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol129 / db2sig / m.lbr / LABELS.INV < prev    next >
Encoding:
Text File  |  1985-02-10  |  2.9 KB  |  122 lines
  1. * labels.inv 08/18/83
  2. SET PRINT ON
  3. SET CONSOLE OFF
  4. * set printer codes for small type
  5. ? CHR(29)
  6. ? CHR(27) + chr(56)
  7. SET PRINT OFF
  8. SET CONSOLE ON
  9. ERASE
  10. STORE t TO lineup
  11. DO WHILE LINEUP
  12.     STORE '?' TO command
  13.     @ 10,00
  14.     @ 11,00
  15.     @ 10,10 SAY 'Please line up the top of the ribbon with the top of the label'
  16.     @ 11,10 SAY 'When lined up hit ENTER for a print check.'
  17.     SET CONSOLE OFF
  18.     WAIT
  19.     SET PRINT ON
  20.     SET MARGIN TO 0
  21.     ? 'THE TOP OF THE TOP LINE SHOULD BE ABOUT'
  22.     ? '1/4" FROM THE TOP OF THE LABEL'
  23.     ? ' '
  24.     SET PRINT OFF
  25.     SET CONSOLE ON
  26.     @ 10,00
  27.     @ 11,00
  28.     @ 10,10 SAY 'Are you lined up to print (Y/N) '
  29.     @ 10,44 GET command picture '!'
  30.     READ
  31.     CLEAR GETS
  32.     IF command = 'Y'
  33.         SET PRINT ON
  34.         ? ' '
  35.         ? ' '
  36.         ? ' '
  37.         ? ' '
  38.         SET PRINT OFF
  39.         STORE f TO lineup
  40.         STORE t TO printlab
  41.     ENDIF command = y
  42. ENDDO while lineup
  43. ERASE
  44. DO WHILE printlab = t
  45.     STORE '?' TO command
  46.     STORE 0 to VOLNO
  47.     STORE 0 TO PRNTNO
  48.     @ 10,00
  49.     @ 11,00
  50.     @ 12,00
  51.     @ 13,00
  52.     @ 15,00
  53.     @ 12,12 SAY "What volume do you want to label ? " GET VOLNO
  54.     READ
  55.     @ 13,12 SAY "         How many shall we print ? " GET PRNTNO
  56.     @ 15,00 SAY "USE 999 as quantity to print one of each from starting volume"
  57.     READ
  58.     LOCATE FOR disk = volno
  59.     * prints a full set - one each from starting point when quantity is 999
  60.     IF PRNTNO = 999
  61.         DO WHILE .NOT. EOF
  62.             SET PRINT ON
  63.             SET CONSOLE OFF
  64.             SET MARGIN TO 0
  65.             ? ' '
  66.             ? ' '
  67.             ?? "SIG/M SOFTWARE LIBRARY  VOL"
  68.             ?? disk
  69.             ? '  ' + line1
  70.             ? '  ' + line2
  71.             ? '  ' + date()
  72.             ? ' '
  73.             ? ' '
  74.             ? ' '
  75.             SKIP
  76.         ENDDO while not eof
  77.         STORE 0 TO PRNTNO
  78.     ENDIF prntno
  79.     DO WHILE PRNTNO > 0
  80.         SET PRINT ON
  81.         SET CONSOLE OFF
  82.         SET MARGIN TO 0
  83.         ? ' '
  84.         ? ' '
  85.         ?? "SIG/M SOFTWARE LIBRARY  VOL"
  86.         ?? disk
  87.         ? '  ' + line1
  88.         ? '  ' + line2
  89.         ? '  ' + date()
  90.         ? ' '
  91.         ? ' '
  92.         ? ' '
  93.         STORE PRNTNO - 1 TO PRNTNO
  94.     ENDDO while prntno
  95.     SET PRINT OFF
  96.     SET CONSOLE ON
  97.     @ 10,00
  98.     @ 11,00
  99.     @ 12,00
  100.     @ 13,00
  101.     @ 15,00
  102.     @ 10,12 SAY "Do you want to print more labels ? " GET COMMAND picture '!'
  103.     READ
  104.     IF command = 'Y'
  105.         STORE t TO printlab
  106.     ELSE
  107.         STORE f TO printlab
  108.         SET CONSOLE OFF
  109.         SET PRINT ON
  110.         ? CHR(30)
  111.         ? CHR(27) + CHR(54)
  112.         EJECT
  113.         SET PRINT OFF
  114.         SET CONSOLE ON
  115.     ENDIF command = Y
  116. ENDDO while printlab
  117. ERASE
  118. RELEASE all
  119. STORE t TO first
  120. STORE t TO more
  121. STORE '?' TO command
  122.