home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / procedures / screenwipes3.amos / screenwipes3.amosSourceCode < prev   
AMOS Source Code  |  1993-03-07  |  2KB  |  66 lines
  1. Curs Off : Flash Off : Cls 0
  2. '************to view all the screen wipes just run this
  3. '*********press keys 1-5 to view procedures
  4. 'get screen from bank 14 
  5. Unpack 14 To 0
  6. REDO:
  7. 'call screen proc  
  8. Repeat 
  9. K$=Inkey$
  10. If K$="1" : BOUNCE[0] : DNE=True : End If 
  11. If K$="2" : SLIDE_ON_DIAG[0] : DNE=True : End If 
  12. If K$="3" : SLIDE_OFF_DIAG[0] : Wait 10 : SLIDE_ON_DIAG[0] : DNE=True : End If 
  13. If K$="4" : SLIDE_OFF_DIAG2[0] : Wait 10 : SLIDE_ON_DIAG[0] : DNE=True : End If 
  14. If K$="5" : Screen Open 1,320,200,32,Lowres : Curs Off : Flash Off : Cls 0 : Get Palette(0) : PIC2 : DNE=True : Wait 10 : Screen Close 1 : End If 
  15. Until DNE
  16. Wait 30
  17. DNE=0
  18. Goto REDO
  19. Procedure BOUNCE[SCR]
  20.    For LOP=30 To 0 Step -10
  21.       For LOP1=1 To LOP Step 5
  22.          Screen Display SCR,,50-LOP1,,200
  23.          View 
  24.          Wait Vbl 
  25.       Next LOP1
  26.       For LOP2=LOP To 1 Step -5
  27.          Screen Display SCR,,50-LOP2,,200
  28.          View 
  29.          Wait Vbl 
  30.       Next LOP2
  31.    Next LOP
  32.    Screen Display SCR,,50,,200
  33.    View 
  34. End Proc
  35. Procedure SLIDE_ON_DIAG[NUM]
  36.    Y=-330
  37.    For LOP=432 To 128 Step -16
  38.       Screen Display NUM,LOP,Y,,
  39.       Add Y,20
  40.       Wait Vbl 
  41.    Next LOP
  42. End Proc
  43. Procedure SLIDE_OFF_DIAG[NUM]
  44.    Y=50
  45.    For LOP=128 To 432 Step 16
  46.       Screen Display NUM,LOP,Y,,
  47.       Add Y,-14
  48.       Wait Vbl 
  49.    Next LOP
  50. End Proc
  51. Procedure SLIDE_OFF_DIAG2[NUM]
  52.    Y=50
  53.    For LOP=128 To 432 Step 16
  54.       Screen Display NUM,LOP,Y,,
  55.       Add Y,14
  56.       Wait Vbl 
  57.    Next LOP
  58. End Proc
  59. Procedure PIC2
  60.    For C=0 To 16
  61.       For Y=C To 255 Step 16
  62.          Screen Copy 0,0,Y,320,Y+1 To 1,0,Y
  63.       Next Y
  64. Wait Vbl 
  65.    Next C
  66. End Proc