home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / textra16.lha / Textra116 / Scripts / Art1.textra < prev    next >
Encoding:
Text File  |  1994-02-19  |  944 b   |  61 lines
  1. /* Textra ARexx art #1
  2.   
  3.    by Nick Didkovsky 
  4.    
  5.    17-Feb-94
  6.    
  7.    Run this script from Textra and watch the fun!
  8.    
  9.    Select Cancel ARexx Script from Textra's Utilities menu to stop this baby.
  10.    
  11. */
  12.  
  13. options results
  14.  
  15. OPENFILE 'CoolTextraArt'  /* open a new window */
  16.  
  17. hh = time('Hours')
  18. mm = time('m')
  19. ss = time('S')
  20. seed = (hh + mm + ss)
  21.  
  22. CharsPerLine = 75
  23.  
  24. DO slashes = 1 TO CharsPerLine
  25.     slashcode = random(0,1,seed)        /* min,max,seed */
  26.     IF slashcode = 1
  27.     then text '/'
  28.     else text '\'
  29. END
  30.  
  31. NewLine
  32.  
  33. SELECTLINE 0
  34. COPY
  35. UNSELECT
  36.  
  37. NumLines = 17
  38. DO CurrentLine = 1 to NumLines
  39.     LINE CurrentLine
  40.     PASTE 
  41.     NEWLINE
  42. END
  43.  
  44. DO forever
  45.     /* Check if the user wants to cancel... */
  46.        CheckCancel; if (result == CANCEL) then exit
  47.        
  48.     IF (random(0,1,seed) == 0)
  49.     THEN TheSlash = '/'
  50.     ELSE TheSlash = '\'
  51.  
  52.     DO CurrentLine = 0 to NumLines % 2
  53.         LINE CurrentLine * 2
  54.         Column 0
  55.         Text TheSlash
  56.         Column CharsPerLine + 1
  57.         backspace
  58.     END
  59.  
  60. END
  61.