home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dataflo2.lbr / LABELII.CZD / LABELII.CMD
Encoding:
Text File  |  1993-10-26  |  2.3 KB  |  89 lines
  1. *LABELII.PRG
  2. *THIS PROGRAM WILL PRODUCE LABELS FROM KEY BOARD ENTRY AND NOT FROM A 
  3. *DATABASE IN SINGLE LINE OR DUAL LABEL FORMAT
  4. ERASE
  5. SET TALK OFF
  6. @ 1,0 SAY 'TO PRINT ON SINGLE LABEL <CR>'
  7. @ 2,0 SAY ' ELSE PRESS D FOR DUAL LABEL '
  8. @ 3,0 SAY ' PRESS "Q" TO QUIT'
  9. WAIT TO DEC
  10. STORE !(DEC) TO DEC
  11. ERASE
  12. IF DEC='Q'
  13. RETURN
  14. ENDIF
  15. STORE '                                   ' TO LINE1
  16. STORE '                                   ' TO LINE2
  17. STORE '                                   ' TO LINE3
  18. STORE '                                   ' TO LINE4
  19. STORE '                                   ' TO LINE5
  20. STORE 000 TO QTY
  21. IF DEC=' '
  22. @ 1,0 SAY 'LINE 1' GET LINE1
  23. @ 2,0 SAY 'LINE 2' GET LINE2
  24. @ 3,0 SAY 'LINE 3' GET LINE3
  25. @ 4,0 SAY 'LINE 4' GET LINE4
  26. @ 5,0 SAY 'LINE 5' GET LINE5
  27. @ 6,0 SAY 'NUMBER OF LABELS REQUIRED' GET QTY
  28. READ
  29. ERASE
  30. SET FORMAT TO PRINT
  31. SET PRINT ON
  32. DO WHILE QTY>0
  33. ? LINE1
  34. ? LINE2
  35. ? LINE3
  36. ? LINE4
  37. ? LINE5
  38. ?
  39. STORE QTY-1 TO QTY
  40. ENDDO
  41. SET PRINT OFF
  42. SET FORMAT TO SCREEN
  43. ENDIF
  44. IF DEC='D'
  45. STORE '                                   ' TO LINE1
  46. STORE '                                   ' TO LINE2
  47. STORE '                                   ' TO LINE3
  48. STORE '                                   ' TO LINE4
  49. STORE '                                   ' TO LINE5
  50. STORE '                                   ' TO LINE6
  51. STORE '                                   ' TO LINE7
  52. STORE '                                   ' TO LINE8
  53. STORE 000 TO QTY
  54. STORE 0 TO POS
  55. ERASE
  56. @ 1,0 SAY 'LINE 1' GET LINE1
  57. @ 2,0 SAY 'LINE 2' GET LINE2
  58. @ 3,0 SAY 'LINE 3' GET LINE3
  59. @ 4,0 SAY 'LINE 4' GET LINE4
  60. @ 5,0 SAY 'LINE 5' GET LINE5
  61. @ 6,0 SAY 'LINE 6' GET LINE6
  62. @ 7,0 SAY 'LINE 7' GET LINE7
  63. @ 8,0 SAY 'LINE 8' GET LINE8
  64. @ 9,0 SAY 'NUMBER OF LABELS REQUIRED' GET QTY
  65. READ
  66. SET FORMAT TO PRINT
  67. DO WHILE QTY>0
  68. @ POS,0 SAY LINE1
  69. @ POS,38 SAY LINE1
  70. @ POS+1,0 SAY LINE2
  71. @ POS+1,38 SAY LINE2
  72. @ POS+2,0 SAY LINE3
  73. @ POS+2,38 SAY LINE3
  74. @ POS+3,0 SAY LINE4
  75. @ POS+3,38 SAY LINE4
  76. @ POS+4,0 SAY LINE5
  77. @ POS+4,38 SAY LINE5
  78. @ POS+5,0 SAY LINE6
  79. @ POS+5,38 SAY LINE6
  80. @ POS+6,0 SAY LINE7
  81. @ POS+6,38 SAY LINE7
  82. @ POS+7,0 SAY LINE8
  83. @ POS+7,38 SAY LINE8
  84. STORE POS+9 TO POS
  85. STORE QTY-1 TO QTY
  86. ENDDO
  87. ENDIF
  88. SET FORMAT TO SCREEN
  89. SET PRINT OFF