home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l078 / 1.img / BALL.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-04-02  |  3.7 KB  |  122 lines
  1. '┌───────────────────────────────────────────────────────────────────────────┐
  2. '│                BALL.BAS                     │
  3. '│                             VERSION 1.0                                   │
  4. '│                                         │
  5. '│                   Turbo Basic                     │
  6. '│        (C) Copyright 1987 by Borland International             │
  7. '│                                         │
  8. '│ System Requirements:                                 │
  9. '│   - DOS Version 2.0 or later                             │
  10. '│   - 320K                                     │
  11. '│                                         │
  12. '│   This  program is a simple demonstration of the graphics capabilities    │
  13. '│ of Turbo Basic.  It displays a "bouncing ball" that uses random numbers   │
  14. '│ to figure out which directions to bounce off to.                          │
  15. '│                                         │
  16. '│    In order to run this program do the following:                 │
  17. '│      1. Load Turbo Basic by typing TB at the DOS prompt.              │
  18. '│      2. Load the file BALL.BAS from the Load option of the File         │
  19. '│         pulldown menu.                             │
  20. '│      3. Select Run from the Main menu                     │
  21. '└───────────────────────────────────────────────────────────────────────────┘
  22.  
  23.  
  24. '  logic:
  25. '    draw the ball
  26. '    use GET to store pixels into an array
  27. '    set CurrentPosition = OldPosition = StartPoint
  28. '    DO
  29. '      Erase (PUT with XOR) the object at the OldPosition
  30. '      CurrentPosition = CurrentPosition + Increment
  31. '      Display (PUT) the object at the CurrentPosition
  32. '      DELAY a small amount of time
  33. '      OldPosition = CurrentPosition
  34. '    LOOP UNTIL any key is hit
  35. '    end of program
  36. '
  37. DEFINT A-Z
  38. RANDOMIZE TIMER
  39. '
  40. '  dimension the save buffer for the pixels
  41. '
  42. DIM GraphicsBuffer(1000)
  43.  
  44. SCREEN 1
  45. '
  46. '  set screen min and max based on screen number
  47. '
  48. Max.X = 319 : Min.X = 0
  49. Max.Y = 199 : Min.Y = 0
  50. '
  51. '  set size of ball
  52. '
  53. SizeOfBall = 15
  54. '
  55. '  set up the starting center position for the ball
  56. '
  57. Start.X = 15
  58. Start.Y = 15
  59. '
  60. '  build the ball on the screen
  61. '
  62. CIRCLE (Start.X,Start.Y),SizeOfBall,2
  63. PAINT (Start.X,Start.Y),1,2
  64. '
  65. '  store the pixels in a graphics save buffer
  66. '
  67. GET (Start.X-SizeOfBall,Start.Y-SizeOfBall)-(Start.X+SizeOfBall,Start.Y+SizeOfBall),GraphicsBuffer
  68. '
  69. '  initialize the position of the ball
  70. '
  71. CurrentPosition.X = OldPosition.X = Start.X
  72. CurrentPosition.Y = OldPosition.Y = Start.Y
  73. '
  74. '  set current X direction to Right, Y direction to Down
  75. '
  76. Direction.X = 1
  77. Direction.Y = 1
  78.  
  79. DO
  80.   '
  81.   '  erase previous ball by doing a PUT at the old position
  82.   '
  83.   PUT (OldPosition.X,OldPosition.Y),GraphicsBuffer
  84.   '
  85.   '  calculate new X position,
  86.   '  if at right edge set direction to Left
  87.   '  if at left edge set direction to right
  88.   '  if ball hits an edge, make a sound
  89.   '
  90.   Increment.X = RND*8
  91.   IF CurrentPosition.X+Increment.X+30 > Max.X THEN Direction.X = -1 : sound 200+rnd*250,.5
  92.   IF CurrentPosition.X-Increment.X < Min.Y THEN Direction.X = 1 : sound 200+rnd*300,.5
  93.   CurrentPosition.X = CurrentPosition.X + (Increment.X*Direction.X)
  94.   '
  95.   '  calculate new Y position,
  96.   '  if at bottom edge set direction to the up
  97.   '  if at top edge set direction to the down
  98.   '  if ball hits an edge, make a sound
  99.   '
  100.   Increment.Y = RND*8
  101.   IF CurrentPosition.Y+Increment.Y+30 > Max.Y THEN Direction.Y = -1 : sound 200+rnd*275,.5
  102.   IF CurrentPosition.Y-Increment.Y < Min.Y THEN Direction.Y = 1 : sound 200+rnd*325,.5
  103.   CurrentPosition.Y = CurrentPosition.Y + (Increment.Y*Direction.Y)
  104.   '
  105.   '  display the ball at the new position
  106.   '
  107.   PUT (CurrentPosition.X,CurrentPosition.Y),GraphicsBuffer
  108.   '
  109.   '  wait some time for smoother animation
  110.   '
  111.   DELAY .03
  112.   '
  113.   '  save current position so the ball can be erased before next move
  114.   '
  115.   OldPosition.X = CurrentPosition.X
  116.   OldPosition.Y = CurrentPosition.Y
  117.   '
  118.   '  keep looping until any key is hit
  119.   '
  120. LOOP UNTIL INSTAT
  121. END
  122.