home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARFIND / PRINTERS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  1.8 KB  |  33 lines
  1. 100  LPRINT TAB(10);"Changes to Documentation Programs to support Other Printers."
  2. 110  LPRINT
  3. 120  LPRINT TAB(10);"Both of the documentation programs ('director.bas' and"
  4. 130  LPRINT TAB(10);"'usermanu.bas') contain their own text processors.  There"
  5. 140  LPRINT TAB(10);"is a determination of whether each line is a command"
  6. 150  LPRINT TAB(10);"(begins with a period) or is normal text.  If it is a"
  7. 160  LPRINT TAB(10);"command, then additional processing is done, including"
  8. 170  LPRINT TAB(10);"the use of some of the characteristics of the printer."
  9. 180  LPRINT
  10. 190  LPRINT TAB(10);"Both of the documentation programs are identical in their
  11. 200  LPRINT TAB(10);"use of their built-in text processors, in that the same"
  12. 210  LPRINT TAB(10);"BASIC line-numbers are used for the same functions."
  13. 220  LPRINT
  14. 230  LPRINT TAB(10);"Following are the locations of the line numbers which"
  15. 240  LPRINT TAB(10);"must be considered for changes to other printers."
  16. 250  LPRINT
  17. 260  LPRINT TAB(10);"Line    Printer        Function"
  18. 270  LPRINT TAB(10);"Number  Control        Performed"
  19. 280  LPRINT TAB(10);"------  -------------  ---------------------------------"
  20. 290  LPRINT TAB(10);" 130    chr$(14)       Set Expanded Printing ON"
  21. 300  LPRINT TAB(10);" 140    chr$(18)       Set Expanded Printing OFF"
  22. 310  LPRINT TAB(10);" 150    chr$(27)+";CHR$(34);"E";CHR$(34);"   Set Emphasized Printing ON"
  23. 320  LPRINT TAB(10);" 160    chr$(27)+";CHR$(34);"F";CHR$(34);"   Set Emphasized Printing OFF"
  24. 330  LPRINT TAB(10);" 170    chr$(15)       Set Compressed Printing ON"
  25. 340  LPRINT TAB(10);" 180    chr$(18)       Set Compressed Printing OFF"
  26. 350  LPRINT TAB(10);" 190    chr$(12)       Skip to Top of Next Page"
  27. 360  LPRINT
  28. 370  LPRINT TAB(10);"For a printer whose control characters differ from the"
  29. 380  LPRINT TAB(10);"above, change the controls to the characters required by"
  30. 385  LPRINT TAB(10);"that printer."
  31. 390  FOR I = 1 TO 36 : LPRINT : NEXT I
  32. 400  END
  33.