home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / workdb.zip / LABELS.INV < prev    next >
Text File  |  1983-01-04  |  2KB  |  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.