home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / amos1.34_progs / fancy_appear_1.amos / fancy_appear_1.amosSourceCode
Encoding:
AMOS Source Code  |  1993-01-17  |  409 b   |  25 lines
  1. F$="df0:amospro/calc/iff/amospro_calc.iff"
  2. '
  3. ' F$ holds the name of the Iff picture 
  4. ' press any key to see the effect
  5. '
  6. Load Iff F$,0
  7. '
  8. Screen Open 1,320,256,4096,Lowres
  9. Flash Off : Curs Off : Hide : Cls 0
  10. Get Palette 0
  11. '
  12. While Inkey$=""
  13. Wend 
  14. '
  15. For N=0 To 128
  16.    Screen Copy 0,0,N,320,N+1 To 1,0,N
  17.    Screen Copy 0,0,256-N,320,256-N+1 To 1,0,256-N
  18.    Wait Vbl 
  19. Next N
  20. '
  21. While Inkey$=""
  22. Wend 
  23. '
  24. Default 
  25. Edit