home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd453 / wobbletest.amos / wobbletest.amosSourceCode < prev   
AMOS Source Code  |  1993-01-08  |  332b  |  16 lines
  1. Screen Open 0,320,256,2,Lowres : Flash Off : Hide On 
  2. Palette 0,$AA1,
  3. Cls 0 : Curs Off 
  4. Cls 0 : Double Buffer : Autoback 0
  5. Dim SN(155) : Degree 
  6. For X=1 To 155
  7.  SN(X)=Sin(X*4)*5+4
  8. Next 
  9. Paste Bob 0,3,1
  10. A=1 : X=1
  11. Repeat 
  12.  Screen Copy Logic,A,1,A+2,150 To Physic,180+A,70+SN(X)
  13.   Add X,1,1 To 45
  14.   Add A,2,1 To 98
  15.  Until Mouse Key
  16. End