home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / randbmp.zip / RANDBMP.BAS next >
BASIC Source File  |  1990-04-10  |  357b  |  26 lines
  1. DEFINT A-Z
  2.  
  3. DIM BMP$(100)
  4. RANDOMIZE TIMER
  5.  
  6. CALL EXIST("BMP.LST", FOUND)
  7. IF NOT FOUND THEN END
  8.  
  9. OPEN "BMP.LST" FOR INPUT AS #1
  10.  
  11. WHILE NOT EOF(1)
  12.         A = A + 1
  13.         INPUT #1, BMP$(A)
  14. WEND
  15.  
  16. NEWBMP = INT(RND * A) + 1
  17.  
  18. CALL EXIST(BMP$(NEWBMP), FOUND)
  19. IF NOT FOUND THEN END
  20.  
  21. SHELL "COPY " + BMP$(NEWBMP) + " BGRD.BMP > NUL"
  22. END
  23.  
  24.  
  25.  
  26.