home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / terminat.arj / SCRIPT.EXE / DEMO.INC < prev    next >
Encoding:
Text File  |  1995-03-12  |  581 b   |  36 lines
  1.  
  2. Function Stars()
  3.   Set StarCount=1
  4.   Randomize
  5.   Repeat
  6.     Set Star=random(2)
  7.     If Star=0
  8.       Set StarChar="·"
  9.     Else
  10.       Set StarChar="."
  11.     Endif
  12.     Set x=random(scrcol)
  13.     Set y=random(scrlen)
  14.     Set Color=random(3)
  15.     If Color<2
  16.       SetAttr 1
  17.     Else
  18.       SetAttr 9
  19.     Endif
  20.     WriteStr x,y,StarChar
  21.     Set StarCount=StarCount+1
  22.   Until StarCount>=scrlen*7
  23. EndFunc
  24.  
  25. Function PopScreen()
  26.   Set X=1
  27.   Set Y=1
  28.   Repeat
  29.     Box 40-X,12-Y,40+X,12+Y,3,1
  30.     Set X=X+4
  31.     Set Y=Y+1
  32.   Until X>=36
  33.   Box 1,1,80,25,11,1
  34. EndFunc
  35.  
  36.