home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Wobbler.asc < prev   
Text File  |  1996-01-21  |  634b  |  28 lines
  1. 'This routine is very simple and effective - Jok/NFA 
  2. '
  3. Load "Wobbler.abk"
  4. Unpack 6 To 1
  5. '
  6. Screen Open 0,320,50,2,0
  7. '
  8. Set Rainbow 1,1,60,"","","" : Rainbow 1,0,40,60
  9. For A=10 To 30 : Rain(1,A)=$12F : Rain(1,A+20)=$8 : Next A : View 
  10. '
  11. C#=3.24 : Rem  ****** try changing this! 
  12. PIXELS=9 : Rem ****** this is the variable for the amount of wave 
  13. '              ****** you can put on your logo ... try from 2 to 10
  14. '
  15. Do 
  16.    For A=0 To 20
  17.       Screen Copy 1,0,A,320,A+1 To 0,0+Sin(X/C#)*PIXELS,A
  18.    Inc X : Next A
  19.    Get Block 1,0,0,320,20 : Vrev Block 1 : Put Block 1,0,20
  20.    Wait Vbl 
  21.    If Mouse Key : C#=C#+0.01 : End If 
  22. Loop 
  23.  
  24.  
  25.  
  26.  
  27.  
  28.