home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / LASERPRO.ZIP / REPORT1A.PRG < prev    next >
Encoding:
Text File  |  1991-03-02  |  1021 b   |  42 lines
  1. * Program-id...: Report1A.prg
  2. * Author.......: Pinter Consulting Staff
  3. * Purpose......: Uses LaserLib procedure file routines to
  4. *              :  print a report.
  5.  
  6. SET TALK off
  7.  
  8. SET PROCEDURE TO test_lib
  9.  
  10. DO init_print
  11. ??? reset
  12.  
  13. ??? BOX( 1.00 , 9.00 , 1.00 , 7.00 ,  1 )
  14. ??? BOX( 1.03 , 1.33 , 1.03 , 6.97 ,  1 )
  15. ??? SHADING(1.03 , 1.33 , 1.03 , 6.97 ,  15 )
  16. ??? BOX( 1.36 , 8.97 , 1.03 , 6.97 ,  1 )
  17.  
  18. line_len1 = 8.97 - 1.36
  19. line_wid1 = 7.00 - 1.06
  20.  
  21.  
  22. ??? FONTLOAD("CHAN12.SFP",53,"LPT1")
  23. ??? SOFTFONT(53)
  24. ??? SAYIT( 1.25, 3.50, 'KQED Fund Drive','')
  25.  
  26. ??? sym_pc8 + pitch_12 + bold_off
  27. ??? SAYIT( 1.52, 1.25, 'Name','')
  28. ??? SAYIT( 1.52, 3.65, 'Address','')
  29. ??? SAYIT( 1.52, 5.25, 'Phone ','')
  30.  
  31. ??? VLINE( 1.36, 3.50, line_len1, 2 )
  32. ??? VLINE( 1.36, 5.15, line_len1, 2 )
  33.  
  34. * Draw horizontal lines - start at row (1.75"), col (1.03") and fill box.
  35. DO LineLoop WITH (line_len1 - .16),  1.45,  1.03, line_wid1, 6
  36.  
  37. ??? pitch_10 + bold_on
  38. ??? SAYIT( 9.25, 1.00, 'REPORT1A','' )
  39.  
  40. EJECT
  41.  
  42.