home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / dos / nbeta087.exe / MISCSTUF.EXE / RIPSTARF.UFO < prev    next >
Encoding:
INI File  |  1994-11-16  |  656 b   |  8 lines
  1. [comment rip_starfield - clears the screen and builds a starfield backdrop]
  2. [rip_erase_view rip_color blue]
  3. [copy var01 0 label rp random 639 var02 random 339 var03 rip_pixel var02 var03 inc var01 iflt var01 200 goto rp mark]
  4. [rip_color lightblue copy var01 0 label rr random 639 var02 random 339 var03 rip_pixel var02 var03 inc var01 iflt var01 170 goto rr mark]
  5. [rip_color lightcyan copy var01 0 label rq random 639 var02 random 339 var03 rip_pixel var02 var03 inc var01 iflt var01 30 goto rq mark]
  6. [rip_color white copy var01 0 label rs random 639 var02 random 339 var03 rip_pixel var02 var03 inc var01 iflt var01 100 goto rs mark]
  7. [rip_no_more]
  8.