AMOS Basic v134  >\>N  &ab3:includes/256pal\@t>| @@rt>|\@gt>|\ @bt>| n@t>|<a>>@rta|!tn|TXn\>@gta|!tn|TXn\> @bta|!tn|TXn\>F!^>R$ Print "CALCULATING WATER FILE...." RRReserve As Work 15,8192*8' R N=Start(15) RFor D=16 To 1 Step -1 RTS=N RWR=(134*D)/16 RWG=(204*D)/16 RWB=(255*D)/16 R 'WR=WR*$100 R 'WG=WG*$10 R'WB=WB RHide On RFor A=0 To 255R RR=(R(A)*180)/255 RG=(G(A)*180)/255 RB=(B(A)*180)/255RRIf D>12 R V=D-12 R R=Min(255,R+(40*V)/4)R G=Min(255,G+(40*V)/4) R B=Min(255,B+(40*V)/4)REnd If RRIf D<12 R R=(R*D)/12 R G=(G*D)/12 R B=(B*D)/12 REnd If R R DQ=10000000 RTC=0 RFor Z=0 To 255 RDR=Abs(R-R(Z)) RDG=Abs(G-G(Z)) RDB=Abs(B-B(Z))RRND=(DR*3)+(DG*4)+(DB*2) RIf ND\> > n@t>|<d>@>V> $tsn*wrt>d|>0wgt>d|>6wbt>d|> R WR=WR*$100 R WG=WG*$10 RWB=WB <a>><r@rta|Bg@gta|Hb @bta| d> vd> !rt>\rt>v|> |!gt>\gt>v|> |!bt>\bt>v|> | d>!rtrd|> gtgd|> btbd|>  Tdq> Ztc><L`z>>fdrt<r@rt`z||ldgtBg@gt`z||rdbtHb @bt`z||'xndtfdr>|tldg>|trdb>|!:xndTdqTdqxndTZtc`zF !n\tc Xn\>FF R For A=0 To 5 R For B=0 To 255 R Doke N,Deek(TS) R Add TS,2 RAdd N,2 RNext RNext  >\>\>\>\ FT 4T >  >\6&0In a moment you will be prompted for a filename.v#&;Click on the file you created using the 256TEXTURE program.v%&@This program will save out a similar file with a .PAL extension.v & Press a key.1fTt& ab3:includes/\&newtexturemaps\&!Select your existing TEXTURE file|f&.PAL\@t>|nAmBs