home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd593 / o_de_res.amos / o_de_res.amosSourceCode
AMOS Source Code  |  1986-08-03  |  501b  |  32 lines
  1. '
  2. '********************************
  3. '
  4. '         POWER ZOOM 
  5. '             OR 
  6. '           DE-RES 
  7. '         ------------ 
  8. '
  9. '     By Malcolm Lavery 1993 
  10. '
  11. '    AMOS NOT FAST ENOUGTH 
  12. '      FOR THIS ROUTINE! 
  13. '
  14. '********************************
  15. '
  16. Load ":PICTURE.abk",10
  17. Unpack 10 To 0
  18. Wait 10
  19. '
  20. Screen Open 1,320,256,32,Lowres
  21. Get Palette 0
  22. Flash Off 
  23. '
  24. X1=0 : X2=320 : Y1=0 : Y2=256 : MAG=10
  25. '
  26. Do 
  27.    Zoom 0,X1,Y1,X2,Y2 To 1,0,0,320,256
  28.    Add X1,MAG
  29.    Add Y1,MAG
  30.    Add X2,-MAG
  31.    Add Y2,-MAG
  32. Loop