home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / asic / ascsu215 / width.asi < prev    next >
Text File  |  1991-11-11  |  574b  |  39 lines
  1. start:
  2.  
  3. rem WIDTH.COM
  4.  
  5. rem This program is designed to change from 40- to 80-column mode and back again
  6. rem at whim.
  7.  
  8. rem It requires approximately 64K of RAM.
  9.  
  10. a$=command$
  11. if a$=" 40" then width40:
  12. if a$=" 80" then width80:
  13. goto help:
  14.  
  15. rem This is the routine for 80 column mode.
  16.  
  17.    width80:
  18.  
  19.        width 80
  20.        goto finish:
  21.  
  22. rem This is the routine for 40 column mode.
  23.  
  24.    width40:
  25.  
  26.        width 40
  27.        goto finish:
  28.  
  29. help:
  30. print
  31. print
  32. print "You must specify the width, either 40 or 80 column mode."
  33. print
  34. print
  35.  
  36. finish:
  37.  
  38. end
  39.