home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / amos / how_many_bobs2.amos / how_many_bobs2.amosSourceCode < prev    next >
AMOS Source Code  |  1995-03-16  |  587b  |  28 lines
  1. Screen Open 0,640,256,16,Hires
  2. Double Buffer 
  3. Get Sprite Palette : Curs Off : Flash Off 
  4. Cls 0
  5. Default 
  6. Close Workbench 
  7. Led Off 
  8. Degree 
  9. Default 
  10. For T=0 To 4
  11.    Screen Open T,640,256,16,Hires
  12.    Flash Off : Hide On 
  13.    Get Sprite Palette 
  14.    Cls 0
  15. Next T
  16. For T=0 To 4 : Screen Display T,215,45,, : Next T
  17. HERE:
  18. T=-90 : A=0 : D#=80 : C=30 : C1=50 : D1#=20
  19. Repeat 
  20.    Inc A : If A=5 Then A=0
  21.    Wait Vbl 
  22.    Screen To Front A : Screen A
  23.    Paste Bob 145+(C*(Sin(T))),115+(D#*(Cos(T))),13
  24. Inc T : Inc T
  25. If T=>570
  26.    T=-90 : A=0 : C=90 : C1=50 : D#=90 : D1#=50
  27.    End If 
  28. Until Mouse Click