home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / PROGRAM / BASIC / POWBASIC / LIBRARY1 / EXAMP1.ZIP / RMEX288.BAS < prev    next >
BASIC Source File  |  1990-07-31  |  1KB  |  30 lines
  1. 'set to medium-resolution graphics mode
  2. SCREEN 1,0
  3. PRINT " This is a sample of medium-res graphics mode."
  4. DELAY 3
  5. 'using WIDTH, set to high-resolution graphics
  6. WIDTH 80
  7. PRINT " This is a sample of hi-res graphics mode."
  8. DELAY 3
  9. 'set back to medium resolution graphics mode
  10. WIDTH 40
  11. PRINT " Note, the letters are bigger in medium graphics mode."
  12. DELAY 3
  13. SCREEN 0,1                  'text mode
  14. WIDTH 80
  15. PRINT " This is 80-character text mode."
  16. DELAY 3
  17. WIDTH 40                    '40-character text mode
  18. PRINT " This is 40-character text mode."
  19. DELAY 3                     'back to 80-character text mode
  20. WIDTH 80
  21. 'Ask if user's printer can continue the example
  22. INPUT " Are EPSON printer codes supported? (Y or N)"; ans$
  23. IF UCASE$(ans$) <> "Y" THEN END
  24. LPRINT CHR$(15)             'set compressed type
  25. WIDTH "LPT1:",130           'set logical WIDTH
  26. LPRINT "Testing in compressed mode set to 130 columns.";
  27. LPRINT " The same line continued to the end of the page."
  28. LPRINT CHR$(18)             'reset physical WIDTH
  29. WIDTH "LPT1:",80            'and normal type
  30. END