home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Amiga Extras 1.3 Amiga Basic 1.2 / Lowe_AmigaExtras1_3AmigaBasic1_2.adf / BasicDemos / Picture2 < prev    next >
Encoding:
Text File  |  1988-09-06  |  394 b   |  21 lines
  1. DEFINT P-Z
  2. DIM P(2500)
  3. CLS
  4. LINE(0,0)-(120,120),,BF
  5. ASPECT = .1
  6.     WHILE ASPECT<20
  7.        CIRCLE(60,60),55,0,,,ASPECT
  8.        ASPECT = ASPECT*1.4
  9.     WEND
  10. GET (0,0)-(127,127),P
  11. CheckMouse:
  12.    IF MOUSE(0)=0 THEN CheckMouse
  13.    IF ABS(X-MOUSE(1)) > 2 THEN MovePicture
  14.    IF ABS(Y-MOUSE(2)) < 3 THEN CheckMouse
  15. MovePicture:
  16.    PUT(X,Y),P
  17.    X=MOUSE(1): Y=MOUSE(2)
  18.    PUT(X,Y),P
  19.    GOTO CheckMouse
  20.  
  21.