home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / sri314_b.zip / DEMOPRGS.ZIP / ONELABEL.PRG < prev    next >
Text File  |  1990-10-03  |  2KB  |  65 lines
  1. ***************************************************************************
  2. **  ONELABEL.PRG
  3. **  (C) Copyright 1990, Sub Rosa Publishing Inc.
  4. **  A demonstration program provided to SR-Info and VP-Info users.
  5. **  This program may be copied freely. If it is used in commercial code,
  6. **  please credit the source, Sub Rosa Publishing Inc.
  7. **
  8. **  ONELABEL is a sample program to print mailing labels with very little
  9. **  effort. Key in the text lines and make one or many copies of each label.
  10. **  ONELABEL is compatible with all current versions of SR-Info and VP-Info.
  11. **
  12. **  Bernie Melman and Sid Bursten
  13. **
  14. ***************************************************************************
  15. ERASE
  16. CLEAR
  17. SET TALK OFF
  18. mlength=0
  19. DO WHILE mlength<6 OR mlength>18
  20.    INPUT "Label length in lines (6-18): " TO mlength
  21. ENDDO
  22. SET EJECT OFF ; INFO uses line feeds instead of form feed
  23. SET LENGTH TO mlength
  24. line1=blank(28)
  25. line2=blank(28)
  26. line3=blank(28)
  27. line4=blank(28)
  28. line5=blank(28)
  29. ON escape       ;tell SR-Info/VP-Info what to do when <Esc> pressed
  30.    SET eject on
  31.    SET length to 99
  32.    SET print off
  33.    WINDOW
  34.    CURSOR 22,0
  35.    CANCEL
  36. ENDON
  37. DO WHILE t      ;infinite loop - press escape to quit
  38.    SET PRINT Off
  39.    WINDOW 10,10,20,70
  40.    TEXT
  41.    PRESS <END> KEY TO PRINT A LABEL
  42.    PRESS <ESC> KEY TO EXIT
  43.  
  44.    Line1  @line1
  45.    Line2  @line2
  46.    Line3  @line3
  47.    Line4  @line4
  48.    Line5  @line5
  49.    ENDTEXT
  50.    READ
  51. *   SCREEN 2    ;make printing invisible on screen 1
  52.    SET print on
  53.    TEXT
  54. #line1
  55. #line2
  56. #line3
  57. #line4
  58. #line5
  59.    ENDTEXT
  60.    EJECT
  61. *   SCREEN 1    ;go back to displaying on screen 1
  62. ENDDO
  63. SET PRINT OFF
  64. SET EJECT ON
  65.