home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd511 / zoomdemons.amos / zoomdemons.amosSourceCode < prev   
AMOS Source Code  |  1991-07-27  |  502b  |  10 lines
  1. Screen Open 1,320,256,32,Lowres : Flash Off : Change Mouse 2 : Cls 0 : Unpack 10 To 1
  2. Limit Mouse 128,50 To 448,305 : Box 0,0 To 101,101 : Wait 30 : Rem Music 1 : Tempo 17 
  3. Do : X=X Screen(1,X Mouse)-10 : Y=Y Screen(1,Y Mouse)-10
  4.    If X>297 Then X=297
  5.    If X<0 Then X=0
  6.    If Y<0 Then Y=0
  7.    If Y>235 Then Y=235
  8.    Zoom 1,X,Y,X+20,Y+20 To 1,1,1,101,101
  9. If Mouse Click Then Goto SHUTUP Else Loop 
  10. SHUTUP: Fade 5 : For T=63 To 0 Step -1 : Mvolume T : Wait 1 : Next : Wait 50 : Music Off : Led On : Edit