home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / LASER / FORMSET.ZIP / PHONEDIR.PRN < prev    next >
Encoding:
Text File  |  1986-11-04  |  2.1 KB  |  48 lines
  1.  
  2. File Date: 11-4-86                                       PHONEDIR.TXT                                           Page 1
  3.  
  4.  
  5. reset                              ; reset the printer
  6.  
  7. portrait                           ; select portrait mode
  8. char 28,50                         ; make slightly narrower characters
  9. offset 5,0                         ; offset to center form on page
  10. bold 4                             ; select a bold line
  11. box 1,1,80,61                      ; draw a box around form
  12.  
  13. placetext cc                       ; place text in center-center
  14. font re10                          ; select a large font
  15. box 1,1,80,3                       ; draw box for title
  16. text /ADDRESS & PHONE DIRECTORY/   ; insert text
  17.  
  18. box 1,3,25,5                       ; draw a box for headings
  19. text /Name or Firm/                ; insert text
  20.  
  21. box 25,3,63,5                      ; draw a box for headings
  22. text /Address/                     ; insert text
  23. box 63,3,80,5                      ;
  24. text /Phone/                       ;
  25.  
  26. vertical 25,5,56                   ; draw a vertical column
  27. vertical 63,5,56                   ; draw a vertical column
  28.  
  29. dupprocedure 14, 0, 4              ; repeat the following 14 times
  30.                                    ;   incrementing by 4 lines
  31.   bold 1                           ; select a thin line
  32.   duphorizontal 25, 6, 38, 3, 1    ; draw 3 thin lines
  33.   bold 4                           ; select a bold line
  34.   horizontal  1,9,79               ; draw one line full width
  35. dupend                             ; end the duplicated procedure
  36.  
  37. ; print the advertisement
  38. block  2,61,79,62                  ; define a window for the text
  39. font re3                           ; select a small font
  40. placetext cl                       ; place text center-left
  41. text /Produced by FormSet/         ; insert the text
  42. placetext cc                       ; place the text center-center
  43. text /Printed with HP LaserJet Plus Resident Fonts/
  44. placetext cr                       ; place text center-right
  45. text /FORM: PHONEDIR/              ; insert the text
  46. print                              ; print the form
  47.  
  48.