home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / amos1.34_progs / nd_box.amos / nd_box.amosSourceCode
Encoding:
AMOS Source Code  |  1993-01-17  |  504 b   |  37 lines
  1. ' Rubber Banding 
  2. '
  3. Flash Off : Curs Off : Hide 
  4. '
  5. For N=1 To 500
  6.    Plot Rnd(319),Rnd(199),Rnd(15)
  7. Next N
  8. '
  9. Global NX,NY
  10. Gr Writing 3
  11. '
  12. Proc COORD
  13. OX=NX : OY=NY
  14. Box NX,NY To NX+80,NY+50
  15. '
  16. Do 
  17.    '
  18.    If Key State(69) Then _QUIT
  19.    Proc COORD
  20.    '
  21.    If NX<>OX or NY<>OY
  22.       Box OX,OY To OX+80,OY+50
  23.       Box NX,NY To NX+80,NY+50
  24.       OX=NX : OY=NY
  25.    End If 
  26.    '
  27. Loop 
  28. '
  29. Procedure COORD
  30.    '
  31.    NX=X Screen(X Mouse) : NY=Y Screen(Y Mouse)
  32.    '
  33. End Proc
  34. Procedure _QUIT
  35.    Default 
  36.    Edit 
  37. End Proc