home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd463 / amos1.34_progs / horiz_venetian.amos / horiz_venetian.amosSourceCode < prev    next >
AMOS Source Code  |  1993-01-17  |  309b  |  20 lines
  1. Rem Venetian Blind (Horizontal)
  2. '
  3. ' Press any key to see the effect
  4. '
  5. Unpack 2 To 0
  6. Screen Open 1,320,256,16,Lowres : Flash Off : Curs Off : Hide : Cls 0
  7. Get Palette 0
  8. '
  9. Wait Key 
  10. '  
  11. For A=0 To 30
  12.    For N=0 To 320 Step 30
  13.       Screen Copy 0,N,0,A+N,200 To 1,N,0
  14.    Next N
  15. Next A
  16. '
  17. Wait Key 
  18. '
  19. Default 
  20. Edit