home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / printer / laser / texlsdmo.prg < prev    next >
Encoding:
Text File  |  1991-07-21  |  2.9 KB  |  101 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TEXLSDMO.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. CLEAR SCREEN
  12. SET CURSOR OFF
  13.  
  14. SET COLOR TO B/B
  15. @ 01, 01, 24, 30 BOX SPACE(09)
  16. SET COLOR TO W/W
  17. @ 01, 31, 12, 80 BOX SPACE(09)
  18. SET COLOR TO R/R
  19. @ 13, 31, 24, 80 BOX SPACE(09)
  20. SET COLOR TO W/N
  21. _frame = CHR(218)+CHR(196)+CHR(191)+CHR(179)+CHR(217)+CHR(196)+CHR(192)+CHR(179)+CHR(32)
  22. @ 06, 20, 20, 58 BOX _frame
  23.  
  24. @ 10, 25 SAY 'Welcome to the TexAS Laser    '
  25. @ 11, 25 SAY 'Printer Library. You can add  '
  26. @ 12, 25 SAY '"Desktop Publishing" quality  '
  27. @ 13, 25 SAY 'to your reports and documents.'
  28. @ 14, 25 SAY 'The Library will give you     '
  29. @ 15, 25 SAY 'complete control over the     '
  30. @ 16, 25 SAY 'printer and your output.      '
  31. INKEY(10)
  32.  
  33. @ 08, 25 SAY 'Print the following examples  '
  34. @ 09, 25 SAY 'to see a few of the ways we   '
  35. @ 10, 25 SAY 'use the Library. Please look  '
  36. @ 11, 25 SAY 'at the demo code to see how   '
  37. @ 12, 25 SAY 'simple the functions are to   '
  38. @ 13, 25 SAY 'use. After using the Library, '
  39. @ 14, 25 SAY 'you will want all your users  '
  40. @ 15, 25 SAY 'to get laser printers.        '
  41. @ 16, 25 SAY '                              '
  42. @ 18, 27 SAY 'Press any Key to Continue'
  43. INKEY(0)
  44.  
  45. @ 05, 10, 21, 68 BOX _frame
  46. @ 06, 29 SAY "Press <esc> to exit"
  47.  
  48. SET MESSAGE TO 20 Center
  49.  
  50. DO WHILE LASTKEY() != 27
  51.    @ 08, 14 PROMPT "Print Welcome to Demo"
  52.    @ 09, 14 PROMPT "Print Invoice        "
  53.    @ 10, 14 PROMPT "Print Labels         "
  54.    @ 11, 14 PROMPT "Print Patterns       "
  55.    @ 12, 14 PROMPT "Print Shading        "
  56.    @ 13, 14 PROMPT "Print Graph          "
  57.    @ 14, 14 PROMPT "Print Available Fonts"
  58.    @ 15, 14 PROMPT "Print Bar Codes      " MESSAGE "Print 3 of 9 Barcodes"
  59.    @ 16, 14 PROMPT "Print Scalable Fonts " MESSAGE "Print on HP LaserJet III only"
  60.    @ 17, 14 PROMPT "Print HCFA1500 Forms " MESSAGE "Print on HP LaserJet III only"
  61.    @ 18, 14 PROMPT "Print Calendar       "
  62.    @ 08, 41 PROMPT "Print Envelope       "
  63.  
  64.    MENU TO _choice
  65.  
  66.    DO CASE
  67.    CASE _choice = 0
  68.       EXIT
  69.    CASE _choice = 1
  70.       txinit()
  71.       txgraphic(0, 0, "initial.fnt", 1)
  72.       txmacexec(1)
  73.       txclear()
  74.    CASE _choice = 2
  75.       DO txinvoic
  76.    CASE _choice = 3
  77.       DO txlabels
  78.    CASE _choice = 4
  79.       DO txpatter
  80.    CASE _choice = 5
  81.       DO txshade
  82.    CASE _choice = 6
  83.       DO txgraph
  84.    CASE _choice = 7
  85.       DO txfonts
  86.    CASE _choice = 8
  87.       DO txbarcod
  88.    CASE _choice = 9
  89.       DO txscales
  90.    CASE _choice = 10
  91.       DO txinsure
  92.    CASE _choice = 11
  93.       DO txclndar
  94.    CASE _choice = 12
  95.       DO txenvelp
  96.    ENDCASE
  97. ENDDO
  98.  
  99. SET CURSOR ON
  100. *: EOF: TEXLSDMO.PRG
  101.