home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 24 DOS / 24-DOS.zip / dosrx10b.zip / STARS.R < prev    next >
Text File  |  1993-01-03  |  375b  |  17 lines
  1. /* display random stars */
  2. call load "conio.r"
  3. call cls
  4. colors = "white red yellow blue green magenta"
  5. address int2e
  6. do 100
  7.    x = random(0,79)
  8.    y = random(0,24)
  9.    call gotoxy x,y
  10.    call write ,'*'
  11.    "color" word(colors,random(1,words(colors))) " on black"
  12. /*   address int2e 'delay 1' */
  13.    call gotoxy x,y
  14.    call write ,'.'
  15. end
  16. 'color green on black'
  17.