home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 01 / anwendg / drucker.prg next >
Encoding:
Text File  |  1988-10-18  |  2.9 KB  |  69 lines
  1. * -------------------------------------------------------- *
  2. *                   DRUCKER.PRG                            *
  3. *   Das Programm demonstriert die Nutzung besonderer       *
  4. *   Druckereigenschaften (Cursor- und Fettdruck, Wechsel   *
  5. *   der Schriftart, etc.) unter dBase.                     *
  6. *                                                          *
  7. *           (c) 1988 by B.Born und TOOLBOX                 *
  8. * -------------------------------------------------------- *
  9.  
  10. SET TALK OFF
  11. SET ECHO OFF
  12. SET STATUS OFF
  13. CLEAR ALL
  14.  
  15. * -- Definition der Druckermodes (für EPSON Drucker) -------
  16.  
  17. ESC         = CHR(27)             && ESCape-Sequenz
  18. RES         = ESC + '@'           && Drucker Reset
  19. FETTON      = ESC + 'E'           && Fettdruck Ein
  20. FETTOFF     = ESC + 'F'           && Fettdruck Aus
  21. NLQ         = ESC + 'x' + '1'     && Near Letter Quality
  22. DRAFT       = ESC + 'x' + '0'     && Draft Schrift
  23. ROMAN       = ESC + 'k' + '0'     && Roman Schrift, NLQ
  24. SANSSERIF   = ESC + 'k' + '1'     && Sans Serif Schrift, NLQ
  25.  
  26. * Da CHR(0) in DBASE nicht funktioniert, wird 'A' eingesetzt.
  27. * Damit wird eine Kursiv PICA Schrift erzeugt
  28.  
  29. PICA        = ESC + '!' + 'A'     && 10 Pitch Pica Schrift
  30. ELITE       = ESC + '!' + CHR(1)  && 12 Pitch Elite Schrift
  31. SCHMALON    = CHR (15)            && Schmalschrift ein
  32. SCHMALOFF   = CHR (18)            && Schmalschrift aus
  33. BREITON     = ESC + 'W' + '1'     && Breitdruck ein
  34. BREITOFF    = ESC + 'W' + '0'     && Breitdruck aus
  35. HOCH        = ESC + 'S' + '0'     && Hochstellung
  36. TIEF        = ESC + 'S' + '1'     && Tiefstellung
  37. NORMAL      = ESC + 'T'           && Ende Hoch-/Tiefstellung
  38. UNTERSTRON  = ESC + '-' + '1'     && unterstreichen Ein
  39. UNTERSTROFF = ESC + '-' + '0'     && unterstreichen Aus
  40. KURSIVON    = ESC + '4'           && Kursivdruck Ein
  41. KURSIVOFF   = ESC + '5'           && Kursivdruck Aus
  42.  
  43. * Damit wird die Definition  der Druckercodes abgeschlossen
  44.  
  45. ? 'Beginn der Druckerdemo'
  46. SET DEVICE TO PRINT
  47.  
  48. @ 1,0 SAY RES + 'Ausdruck mit Standardeinstellung'
  49. @ 2,0 SAY NLQ + ROMAN + 'Roman Schrift (NLQ Mode)'
  50. @ 3,0 SAY SANSSERIF +  'Sans Serif Schrift (NLQ Mode)'
  51. @ 4,0 SAY PICA + 'Ausdruck mit Pica Schrift (NLQ Mode)'
  52. @ 5,0 SAY ELITE + 'Ausdruck mit Elite Schrift (NLQ Mode)'
  53. @ 6,0 SAY DRAFT + 'Nun wieder Standard-Schrift'
  54. @ 7,0 SAY FETTON + 'Ausdruck mit Fettschrift' + FETTOFF
  55. @ 8,0 SAY KURSIVON + '... mit Kursivschrift' + KURSIVOFF
  56. @ 9,0 SAY 'Auch Hoch- und Tiefstellungen sind möglich'
  57. @ 10,0 SAY 'Y = X' + HOCH + ' 2' + NORMAL + ' + X '
  58. @ 10,11 SAY TIEF + '(i) ' + NORMAL + ' + 1'
  59. @ 11,0 SAY  BREITON + 'Breite Schriften' + BREITOFF
  60. @ 11,25 SAY SCHMALON + 'und schmale Schriften' + SCHMALOFF
  61. @ 12,0 SAY RES + 'erlauben besondere Druckeffekte'
  62. @ 13,0 SAY UNTERSTRON + 'Unterstreichen funktioniert auch'
  63. @ 13,0 SAY UNTERSTROFF
  64. @ 14,0 SAY 'Damit ist die Demonstration abgeschlossen'
  65. @ 15,0 SAY 'Viel Spaß bei eigenen Experimenten'
  66.  
  67. SET DEVICE TO SCREEN
  68. ? 'Ende der Druckerdemo' 
  69.