home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / DS40.ZIP / WINDDEMO.BAS < prev   
Encoding:
BASIC Source File  |  1990-07-27  |  1001 b   |  24 lines
  1. ' $INCLUDE: 'DOORSORC.INT'
  2. PROGNAME$ = "Window Demo"  ' Setup DS Program variables
  3. RELEASE$ = "1.0"
  4. CALL ClrScrn               ' Update screen and close config file
  5. CLOSE #1
  6.  
  7. DIM TEXT$(10) ' MAKE SURE TO MAKE THE ARRAY AS LARGE AS THE WINDOW IS TALL!
  8.     TEXT$(1) = "This is a demo of..."             ' Setup text to be printed
  9.     TEXT$(2) = "WINDOWS in Door Source 2.0"
  10.     TEXT$(3) = "This can be slow if it's a BIG window"
  11.  
  12. A$ = "And now for some WINDOWS!": CALL Center(A$) ' Print out a little
  13. CALL Send(A$, No, Yes, 10)                        ' message
  14.  
  15. CALL Windows(10, 10, 14, 70, 12, 1, 14, 1, 1, Yes, TEXT$())
  16. '           ULR,ULC,LRR,LRC,FORE,BACK|  |  |   |   Text to print in window
  17. '                                    |  |  |   SHADOW
  18. '                                    |  |  BORDER
  19. '                                    |  TBACK
  20. '                                    TFORE
  21. I1$ = "PRESS": CALL ScriptCMD               ' Wait for a key to be pressed
  22. CALL ExitDoor
  23.  
  24.