home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a044 / 3.ddi / MISC / WINDOW.PRG < prev   
Encoding:
Text File  |  1993-08-31  |  1.2 KB  |  49 lines
  1. SET WINDOW TYPE TO 113
  2. CREATE WINDOW "WINDOW 1" FROM 1,2 TO 5,24
  3. @ 1,0 SAY "Window Type 1"
  4. @ 2,0 SAY "Has scroll bars"
  5. @ 3,0 SAY "and other styles"
  6. SET WINDOW TYPE TO 2
  7. CREATE WINDOW "WINDOW 2" FROM 1,28 TO 5,50
  8. @ 1,0 SAY "Window Type 2"
  9. @ 2,0 SAY "With caption"
  10. SET WINDOW TYPE TO 1041
  11. CREATE WINDOW "WINDOW 3" FROM 1,54 TO 5,76
  12. @ 1,0 SAY "Window Type 1"
  13. @ 2,0 SAY "No caption,"
  14. @ 3,0 SAY "resizeable border"
  15. SET WINDOW TYPE TO 4
  16. CREATE WINDOW "WINDOW 4" FROM 9,2 TO 14,24
  17. @ 1,0 SAY "Window Type 4"
  18. @ 2,0 SAY "Dialog frame"
  19. SET WINDOW TYPE TO 1028
  20. CREATE WINDOW "WINDOW 5" FROM 9,28 TO 14,50
  21. @ 1,0 SAY "Window Type 4"
  22. @ 2,0 SAY "With title"
  23. SET WINDOW TYPE TO 5
  24. CREATE WINDOW "WINDOW 6" FROM 9,54 TO 14,76
  25. @ 1,0 SAY "Window Type 5"
  26. @ 2,0 SAY "Has a border"
  27. SET WINDOW TYPE TO 6
  28. CREATE WINDOW "WINDOW 7" FROM 18,2 TO 23,24
  29. @ 1,0 SAY "Window Type 6"
  30. @ 2,0 SAY "Has no border"
  31. SET WINDOW TYPE TO 260
  32. CREATE WINDOW "WINDOW 8" FROM 18,28 TO 23,50
  33. @ 1,0 SAY "Window Type 4"
  34. @ 2,0 SAY "With a shadow"
  35. SET WINDOW TYPE TO 261
  36. CREATE WINDOW "WINDOW 9" FROM 18,54 TO 23,76
  37. @ 1,0 SAY "Window Type 5"
  38. @ 2,0 SAY "With a shadow"
  39. SELECT WINDOW "CONSOLE"
  40. WAIT ""
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.