home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / prtdrv.zip / PRTTEST.PRG < prev   
Text File  |  1987-03-02  |  1KB  |  42 lines
  1. * Program...: PrtTest.PRG  
  2. * Author....: Kent Irwin
  3. * Date......: May 1, 1987
  4. * Version...: dBASE III PLUS
  5. * Note(s)...: Printer driver demo program.
  6. *
  7. SET TALK OFF
  8. CLEAR
  9. f_name = SPACE(8)
  10. @ 10,15 SAY "Name of Setup .MEM file";
  11.     GET f_name; 
  12.     PICTURE "@!"
  13. READ
  14. IF AT('.MEM',f_name) = 0
  15.     IF AT('.',f_name) <> 0
  16.         f_name = LEFT(f_name,AT('.',f_name)-1)
  17.     ENDIF
  18.     f_name = LEFT(f_name,MIN(8, LEN(TRIM(f_name)))) + '.MEM'
  19. ENDIF        
  20. RESTORE FROM &f_name 
  21. @ 22,0 SAY "Ready printer, then press any key to begin printing."
  22. @ 23,0
  23. WAIT
  24. CLEAR
  25. SET PRINT ON
  26. ? "Printer driver filename: "  + p_name
  27. ? p_cmpr_on + "Compressed"     + p_cmpr_off
  28. ? p_nlq_on  + "Letter Quality" + p_nlq_off
  29. ? p_bold_on + "Bold"           + p_bold_off
  30. ? p_und_on  + "Underline"      + p_und_off
  31. ? p_ital_on + "Italic"         + p_ital_off
  32. ? p_emph_on + "Emphasized"     + p_emph_off
  33. ? p_dbl_on  + "Double-Strike"  + p_dbl_off
  34. ? p_expn_on + "Expanded"       + p_expn_off
  35. ? p_supr_on + "Superscript"    + p_supr_off     
  36. ? p_sub_on  + "Subscript"      + p_sub_off      
  37. SET PRINT OFF
  38. EJECT
  39. CLEAR ALL
  40. SET TALK ON
  41. * EOP PrtTest.PRG
  42.