home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / procedures / wavy3.amos / wavy3.amosSourceCode < prev   
AMOS Source Code  |  1993-03-07  |  711b  |  46 lines
  1. Hide On 
  2. MXSCREEN=6
  3. SPNUM=1
  4. '
  5. ' Open screens 
  6. '
  7. For I=0 To MXSCREEN
  8.    Screen Open I,320,200,16,Lowres
  9.    Flash Off 
  10.    Curs Off 
  11.    Cls 0
  12.    Autoback 0
  13.    Get Sprite Palette 
  14.    Screen Hide I
  15. Next 
  16. '  
  17. ' Generate screens   
  18. '
  19. For T=0 To MXSCREEN
  20.    Screen Hide SCR
  21.    Add SCR,1,0 To MXSCREEN
  22.    Screen Show SCR : Screen To Front SCR : Screen SCR
  23.    For LOP1=0 To 160 Step 70
  24.       For LOP=0 To 250 Step 25
  25.          Paste Bob LOP,LOP1,SPNUM
  26.       Next LOP
  27.    Next LOP1
  28. Bell 
  29.    Wait Key 
  30.    Add SPNUM,1,1 To 7
  31. Next T
  32. '
  33. ' Do swaps 
  34. '
  35. For LOP=1 To 500
  36.    Screen Hide SCR
  37.    Add SCR,1,0 To MXSCREEN
  38.    Screen Show SCR : Screen SCR
  39.    Wait 5
  40. Next LOP
  41. '
  42. ' Close screens
  43. '
  44. While Screen<>-1
  45.    Screen Close Screen
  46. Wend