home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / reduce-iff.amos / reduce-iff.amosSourceCode
Encoding:
AMOS Source Code  |  1993-03-08  |  427 b   |  17 lines
  1. Load Iff Fsel$(""),1 : Screen Display 1,98,28,,
  2. SW=Screen Width : SH=Screen Height : NC=Screen Colour
  3. EW#=200 : EH#=200
  4.  
  5. RX#=SW/EW# : RY#=SH/EH#
  6. Screen Open 0,SW,SH,NC,Lowres : Flash Off : Get Palette 1 : Cls 0 : Screen Display 0,98,100,,
  7. While Y1#<SH
  8.    While X1#<SW
  9.       X1#=X1#+RX# : X=Int(X1#)
  10.       Screen Copy 1,X,Y,X+1,Y+1 To 0,XX,YY
  11.       Inc XX
  12.    Wend 
  13.    X1#=0
  14.    Y1#=Y1#+RY# : Y=Int(Y1#)
  15.    Inc YY : XX=0
  16. Wend 
  17. End