home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / WINDOWS.TRU < prev   
Encoding:
Text File  |  1985-01-09  |  1.2 KB  |  54 lines
  1. ! Illustrate use of windows
  2. !
  3. ! a True BASIC(tm) product
  4. !
  5. ! ABSTRACT
  6. !      WINDOWS opens three different windows on the screen
  7. !      and frames each of them.  It draws an ellipse and
  8. !      plots text in each.  Finally, it clears the first
  9. !      window and prints text.  The program displays each 
  10. !      window in a different color.
  11. !
  12. ! Copyright (c) 1985 by True BASIC, Inc.
  13.  
  14. set mode "graphics"
  15. OPEN #1: screen 0,.5,.5,1       ! Open 3 windows
  16. SET COLOR "red"
  17. OPEN #2: screen .1,.4,0,.4
  18. SET COLOR "green"
  19. OPEN #3: screen .6,1,.2,.8
  20. SET COLOR "yellow"
  21.  
  22. FOR w = 1 to 3                  ! Move window to window
  23.     WINDOW #w
  24.     SET WINDOW -w,w,-w,w
  25.     BOX LINES -w,w,-w,w         ! Frame
  26. NEXT w
  27.  
  28. FOR w = 1 to 3                  ! Plot in each
  29.     WINDOW #w
  30.     BOX CIRCLE -1,1,-1,1
  31. NEXT w
  32.  
  33. FOR w = 1 to 3                  ! Write in each
  34.     WINDOW #w
  35.     PLOT TEXT, at -w/4, 0 : "# " & str$(w)
  36. NEXT w
  37.  
  38. PAUSE 2
  39. WINDOW #1
  40. ASK max cursor row,col
  41. CLEAR
  42. SET CURSOR 3,1
  43. PRINT " Windows can be"
  44. PRINT " used for text"
  45. PRINT " and graphics."
  46. PRINT
  47. PRINT " This window has"
  48. PRINT row;"rows and"
  49. PRINT col;"columns."
  50. BOX LINES -1,1,-1,1
  51.  
  52.  
  53. END
  54.