home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd453 / bobsine.amos / bobsine.amosSourceCode < prev    next >
AMOS Source Code  |  1993-01-08  |  340b  |  18 lines
  1. Degree 
  2. Priority Off 
  3. Dim Y(179)
  4. For A=45 To 224
  5.    Y(A-45)=Sin(A*2)*50+50
  6. Next 
  7. Cls 0
  8. Screen Open 0,320,200,8,Lowres : Flash Off : Curs Off : Cls 0
  9. Get Sprite Palette : Double Buffer 
  10. Bob 0,100,100,1
  11. Do 
  12.    View 
  13.    For A=1 To 179 : Rem 79 
  14.       Bob 0,100,Y(A)+50,1
  15.       If A+10>179 Then T=179-A Else T=A+10
  16.       Wait Vbl 
  17.    Next 
  18. Loop