home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / screen_bounce.amos / screen_bounce.amosSourceCode
AMOS Source Code  |  1993-01-08  |  604b  |  14 lines
  1. 'This procedure will bounce your screen into view
  2. 'File$ is thename of your file 
  3. 'C0L is the number of colours in your picture, 
  4. Procedure _SCREEN_BOUNCE[FILE$,C0L]
  5.    ' Proc by Brett George 
  6.    Screen Open 0,320,256,C0L,Lowres : Auto View Off : Hide On : Flash Off 
  7.    Load Iff FILE$,0
  8.    Channel 1 To Screen Display 0
  9.    BO$="Let Y=-170;M 0,250,180;M 0,-100,100;M 0,-10,12;M 0,110,80;M 0,-50,50;M"
  10.    BO$=BO$+" 0,-10,12;M 0,60,40;M 0,-20,20;M 0,-10,12;M 0,30,15;M 0,-5,10"
  11.    BO$=BO$+"M 0,-10,12;M 0,15,10"
  12.    Amal 1,BO$ : Amal On : Wait 1 : View : Auto View On 
  13.    Repeat : Until Chanmv(1)=0
  14. End Proc