home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / MBOX.ZIP / MBOX.BAS < prev   
Encoding:
BASIC Source File  |  1996-08-18  |  748 b   |  37 lines
  1. RANDOMIZE TIMER
  2.  
  3. CLS
  4.  
  5. 'XX = INT(300 * RND)
  6. 'YY = INT(200 * RND)
  7. 'X = INT(300 * RND)
  8. 'Y = INT(200 * RND)
  9.  
  10. SCREEN 13
  11.  
  12. WHILE INKEY$ = ""
  13. a$ = INKEY$
  14. 'IF a$ <> "" THEN GOTO 231
  15. IF xx >= 319 THEN aa = -1 * (1 + INT(RND * 5))
  16. IF yy >= 199 THEN bb = -1 * (1 + INT(RND * 5))
  17. IF xx <= 0 THEN aa = 1 + INT(RND * 5)
  18. IF yy <= 0 THEN bb = 1 + INT(RND * 5)
  19. IF x >= 319 THEN a = -1 * (1 + INT(RND * 5))
  20. IF y >= 199 THEN B = -1 * (1 + INT(RND * 5))
  21. IF x <= 0 THEN a = 1 + INT(RND * 5)
  22. IF y <= 0 THEN B = 1 + INT(RND * 5)
  23. x = x + a
  24. y = y + B
  25. xx = xx + aa
  26. yy = yy + bb
  27. C = C + .5
  28. IF C = 100 THEN C = 32
  29. f = f + 1
  30. IF f = 250 THEN f = 0: C = 16
  31. LINE -(x, y), C, BF
  32. FOR D = 1 TO 100: NEXT D
  33. LINE (x, y)-(xx, yy), 0, B
  34. COLOR 15
  35. WEND
  36.  
  37.