home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / asm_programming / HSTARS.ZIP / HSTAR.BAS < prev    next >
BASIC Source File  |  1993-04-15  |  709b  |  39 lines
  1.     print "This creates the file 'HSTARS.DW'"
  2.  
  3.     open "hStars.dw" for output as 1
  4.     print #1, "TheStars Star ";
  5.  
  6.     count = 2
  7.     Randomize (Timer)
  8.  
  9.     for I = 0 to 100
  10.         x= int (rnd*320)
  11.         y= int (rnd*200)
  12.  
  13.         count = count +1
  14.         if i = 100 then
  15.  
  16.             print #1, "<";:print#1, using "###"; x;:print #1, ",";
  17.             print #1, using "###"; Y;
  18.             print #1, ",0>"
  19.  
  20.         else
  21.             if count > 6 then
  22.  
  23.                 print #1, "<";:print#1, using "###"; x;:print #1, ",";
  24.                 print #1, using "###"; Y;
  25.                 print #1, ",0>"
  26.                 count = 1:print #1, " Star ";
  27.  
  28.             else
  29.  
  30.                 print #1, "<";:print#1, using "###"; x;:print #1, ",";
  31.                 print #1, using "###"; Y;
  32.                 print #1, ",0>,";
  33.  
  34.             end if
  35.         end if
  36.     NEXT
  37.  
  38.     close #1
  39.