AMOS Basic V1.3 ςR STORM AMOS CRUNCHERv2R" Programmed By Ejber Ozkan 1993 R#R> This is a no - holds bared attempt to copy Powerpacker v3 + R2 Its meant to be a joke! and is not as powerfull! "R< It uses the AMOS V1.34 Squash instruction to good effect R. You can obtain V 1.1 on pick n mix disk one !R6 You are free to use the code here but you must state R, Who wrote it... namely me (ejber Ozkan)!!! R R* Will not work with AMOS Pro Version 1.00 RRRRRRR6 ANY BUGS,REPORTS AND CRITISMS WRITE TO EJBER OZKAN :- R 222 TUNNEL AVE R GREENWICHR LONDON R ENGLAND R SE10 OPL Z&DF0: R Dim EF$(6) R Dim SPEED(6)R( Globalize variable for use by all procs%def\lth\ z\cfs\a\cflash-$vslow\*slow\0norm\6fast\<vfast\Bda\Hteam.Nopts\Tspc1\Zspc2\`spc3\fspc4\lversion\rtemsxspo\~responsewhatload\whatcol\firstf\chef8me1\me2\me3\me4\me5\me6\me7\me8\me98me10\me11\me12\me13\me14\me15\me16\me17\me18c\c2\c3R Fill some variables! lversion&2.0b5$vslow>T*slow>T0norm>T6fast>T<vfast>8xspo>Twhatload>Twhatcol>Tfirstf>Tchef>R.SPEED(0)=VLSOW : SPEED(1)=SLOW : SPEED(2)=NORMRSPEED(3)=FAST : SPEED(4)=VFASTTspc1Rt>|TZspc2Rt>|`spc3Rt>|R Messages for program!me1&Loading Data File... me2&Saving Data File... me3&Crunching Data File... me4&Done.me5&Original Length:me6&Crunched Length:me7&Decrunching Data File... me8&Gainedme9&No File Loaded.me10&)Crunching Press Control-C to Abort Crunchme11&Time Taken For (De)Crunch :me12&Nothing to save!me13&Crunch Aborted!me14&&Crunched File is Longer than Original!me15&Loading Crunched Data File... me16&!Saving (De)Crunched Data File... me17&DeCrunched Length:me18&!Not a Storm AMOS Cruncher File!!! Nopts>R Open a workbench screen !!!  _openwork R RUN proggy!! reorg constructmenuspmain vemain >\>\>\>\ FT 4T>T>TD>T >T >\>\>(\>\>n t>|\ t>| t>|\ t>d|> vreorg >\>\>\>\  >  _screenset3tbar&Storm AMOS cruncher version& spc2& 1993 Ejber Ozkan RSH[100,100,SPC3$,3] -D>T>g\>>v\>TD>T>i\>>t\>D>T>l\>>y\> (D>Tt>`\>>`\> Tt>_\>>_\> F>h>\>a\>>z\> D>T>\>e>~\>9D>Tt>\>d>\>dTt>\>d>\>Tt>\>d>\>9D>Tt>\>d>\>Tt>~\>d>~\>Tt>\>>\>"sh>\>-\&Version version\>sh>d\><\& Free Chip :\>sh>d\>F\& Largest :\>sh>d\>P\& Free Fast :\>sh>d\>Z\& Total Free :\>sh>,\><\&File Name :\>sh>,\>F\&File Length :\>sh>,\>P\&(De)Crunched :\>\ _filename3me9>\>\>>\>\> RPaste Bob 115,21,5>\>#\>>\>n\>g\><\>\ >T>TF n>> >Tv constructmenusR dt>|&Project\&(IN 1,1)(IN 2,3)Project$ dt>|&(LO 10,0)Prefs\&(LO 10,0)(IN 1,1)(IN 2,3)Prefs( dt>|&(LO 10,0)Recrunch\&!(LO 10,0)(IN 1,1)(IN 2,3)RecrunchR( dt>\>|&Load File... \&(IN 1,1)(IN 2,3)Load File... ( dt>\>|&Save File... \&(IN 1,1)(IN 2,3)Save File...  dt>\>|&--------------\&--------------( dt>\>|&Delete File...\&(IN 1,1)(IN 2,3)Delete File...  dt>\>|&--------------\&--------------( dt>\>|&About... \&(IN 1,1)(IN 2,3)About... ( dt>\>|&Quit... \&(IN 1,1)(IN 2,3)Quit... RB dt>\>|&'Data File... (LO 170,0)(BO1)\&7(IN 1,1)(IN 2,3)Data File... (LO 170,0)(BO1)2 dt>\>|&AMOS Compiled File... \&((IN 1,1)(IN 2,3)AMOS Compiled File... * dt>\>|&------------------------\&------------------------> dt>\>|&Decrunch Colour... spc1\&'(IN 1,1)(IN 2,3)Decrunch Colour.... spc1> dt>\>|&Efficiency spc1\&'(IN 1,1)(IN 2,3)Efficiency spc1> dt>\>|&Screen Prefs spc1\&'(IN 1,1)(IN 2,3)Screen Prefs spc1R8 dt>\>|& Load & DeCrunch Data File... \&.(IN 1,1)(IN 2,3) Load & DeCrunch Data File... 8 dt>\>|& Save DeCrunched Data File... \&.(IN 1,1)(IN 2,3) Save DeCrunched Data File... R8 dt>\>\>|& Colour 0 (LO 80,0)(BO1)\&*(IN 1,1)(IN 2,3) Colour 0 (LO 80,0)(BO1)* dt>\>\>|& Colour 1 \&(IN 1,1)(IN 2,3) Colour 1 * dt>\>\>|& Colour 2 \&(IN 1,1)(IN 2,3) Colour 2 * dt>\>\>|& Colour 3 \&(IN 1,1)(IN 2,3) Colour 3 R: dt>\>\>|& Slow (LO 90,0)(BO1)\&,(IN 1,1)(IN 2,3) Slow (LO 90,0)(BO1), dt>\>\>|& Mediocre \&(IN 1,1)(IN 2,3) Mediocre , dt>\>\>|& Normal \&(IN 1,1)(IN 2,3) Normal , dt>\>\>|& Fast \&(IN 1,1)(IN 2,3) Fast , dt>\>\>|& Very Fast \&(IN 1,1)(IN 2,3) Very Fast R2 dt>\>\>|& Change Palette... \&#(IN 1,1)(IN 2,3) Change Palette... .RTMenu$(2,6,2)="(SS 3) Change Music... ","(SS 3)(IN 1,1)(IN 2,3) Change Music... "R<8i>> t>\i|Fi<8i>> t>\i|Fit>\>\>|>\><@i>>t>\>\i|Fit>\>\>|>\><@i>>t>\>\i|Fit>\>\>| RMenu Static(2,6,2)t>\>\>|>\> vvpmain R Read menus ~<R p% c ~t>|Tc2 ~t>|Tc3 ~t>| c> *c2>  _loaddata  *c2>  _savedata  (c2> _delete  &c2> 0_about  &c2> _quit R c> *c2> R _whichload  R ,c2> > _whichload2 R c> 8c2>Xc3> _col0  8c2>Xc3> _col1  8c2>Xc3> _col2  8c2>Xc3> x_col3  R Hc2>Xc3> d _changespeed>  Hc2>Xc3> d _changespeed>  Hc2>Xc3> d _changespeed>  Hc2>Xc3> d _changespeed>  Hc2>Xc3> d _changespeed>  :c2>Xc3> `_palette  c> 4c2> R  _loadcrunch  6c2> R _savedecrunch RLocate 30,20 : Print WHATLOAD R2Locate 30,10 : Print Choice(1),Choice(2),Choice(3)&>X2>_getport  _getmemory`v _getmemoryf>TP>\>J>\><\t!z|J>\>P\t!|J>\>Z\t!z!| v_col08 dt>\>\>|& Colour 0 (LO 80,0)(BO1)\&*(IN 1,1)(IN 2,3) Colour 0 (LO 80,0)(BO1)* dt>\>\>|& Colour 1 \&(IN 1,1)(IN 2,3) Colour 1 * dt>\>\>|& Colour 2 \&(IN 1,1)(IN 2,3) Colour 2 * dt>\>\>|& Colour 3 \&(IN 1,1)(IN 2,3) Colour 3 uwhatcol> v_col1* dt>\>\>|& Colour 0 \&(IN 1,1)(IN 2,3) Colour 0 8 dt>\>\>|& Colour 1 (LO 80,0)(BO1)\&*(IN 1,1)(IN 2,3) Colour 1 (LO 80,0)(BO1)* dt>\>\>|& Colour 2 \&(IN 1,1)(IN 2,3) Colour 2 * dt>\>\>|& Colour 3 \&(IN 1,1)(IN 2,3) Colour 3 uwhatcol> v_col2* dt>\>\>|& Colour 0 \&(IN 1,1)(IN 2,3) Colour 0 * dt>\>\>|& Colour 1 \&(IN 1,1)(IN 2,3) Colour 1 8 dt>\>\>|& Colour 2 (LO 80,0)(BO1)\&*(IN 1,1)(IN 2,3) Colour 2 (LO 80,0)(BO1)* dt>\>\>|& Colour 3 \&(IN 1,1)(IN 2,3) Colour 3 uwhatcol> v_col3* dt>\>\>|& Colour 0 \&(IN 1,1)(IN 2,3) Colour 0 * dt>\>\>|& Colour 1 \&(IN 1,1)(IN 2,3) Colour 1 * dt>\>\>|& Colour 2 \&(IN 1,1)(IN 2,3) Colour 2 8 dt>\>\>|& Colour 3 (LO 80,0)(BO1)\&*(IN 1,1)(IN 2,3) Colour 3 (LO 80,0)(BO1) uwhatcol>v  _changespeednum num>: dt>\>\>|& Slow (LO 90,0)(BO1)\&,(IN 1,1)(IN 2,3) Slow (LO 90,0)(BO1), dt>\>\>|& Mediocre \&(IN 1,1)(IN 2,3) Mediocre , dt>\>\>|& Normal \&(IN 1,1)(IN 2,3) Normal , dt>\>\>|& Fast \&(IN 1,1)(IN 2,3) Fast , dt>\>\>|& Very Fast \&(IN 1,1)(IN 2,3) Very Fast spo>< num>, dt>\>\>|& Slow \&(IN 1,1)(IN 2,3) Slow : dt>\>\>|& Mediocre (LO 90,0)(BO1)\&,(IN 1,1)(IN 2,3) Mediocre (LO 90,0)(BO1), dt>\>\>|& Normal \&(IN 1,1)(IN 2,3) Normal , dt>\>\>|& Fast \&(IN 1,1)(IN 2,3) Fast , dt>\>\>|& Very Fast \&(IN 1,1)(IN 2,3) Very Fast spo>< num>, dt>\>\>|& Slow \&(IN 1,1)(IN 2,3) Slow , dt>\>\>|& Mediocre \&(IN 1,1)(IN 2,3) Mediocre : dt>\>\>|& Normal (LO 90,0)(BO1)\&,(IN 1,1)(IN 2,3) Normal (LO 90,0)(BO1), dt>\>\>|& Fast \&(IN 1,1)(IN 2,3) Fast , dt>\>\>|& Very Fast \&(IN 1,1)(IN 2,3) Very Fast spo><R num>, dt>\>\>|& Slow \&(IN 1,1)(IN 2,3) Slow , dt>\>\>|& Mediocre \&(IN 1,1)(IN 2,3) Mediocre , dt>\>\>|& Normal \&(IN 1,1)(IN 2,3) Normal : dt>\>\>|& Fast (LO 90,0)(BO1)\&,(IN 1,1)(IN 2,3) Fast (LO 90,0)(BO1), dt>\>\>|& Very Fast \&(IN 1,1)(IN 2,3) Very Fast spo><R num>, dt>\>\>|& Slow \&(IN 1,1)(IN 2,3) Slow , dt>\>\>|& Mediocre \&(IN 1,1)(IN 2,3) Mediocre , dt>\>\>|& Normal \&(IN 1,1)(IN 2,3) Normal , dt>\>\>|& Fast \&(IN 1,1)(IN 2,3) Fast : dt>\>\>|& Very Fast (LO 90,0)(BO1)\&,(IN 1,1)(IN 2,3) Very Fast (LO 90,0)(BO1) spo><v _whichloadB dt>\>|&'Data File... (LO 170,0)(BO1)\&7(IN 1,1)(IN 2,3)Data File... (LO 170,0)(BO1)2 dt>\>|&AMOS Compiled File... \&((IN 1,1)(IN 2,3)AMOS Compiled File... {whatload>v _whichload22 dt>\>|&Data File... \&((IN 1,1)(IN 2,3)Data File... B dt>\>|&'AMOS Compiled File... (LO 170,0)(BO1)\&7(IN 1,1)(IN 2,3)AMOS Compiled File... (LO 170,0)(BO1) {whatload> v. _about^>>vt<$i>>(Fi"0_pw&Storm AMOS Cruncher Vversion\>(0_pw&Programmed by Ejber Ozkan spc2& 1993\>-0_pw&;Amos Compiled cruncher V1.34 Only! NOT AMOS PRO COMPATIBLE!\>0_pw&This is Freeware \> 0_pw&"But Donation are always welcome!!!\>"0_pw&&For a nice chat and more info write to\>'0_pw&0222 Tunnel Ave,Greenwich,London,England SE10 OPL\>0_pw&PICK N MIX III\>^>><$i>> (Fi n> >T>c>Tc2>Tc3>v `* _loaddataR /\/\/\/\/\/\/\/\/\/\/\/\ R \/THE/PACKING/ROUTINE!\/ R /\/\/\/\/\/\/\/\/\/\/\/\ r{whatload> _amoscompiledc>Tc2>Tc3>< lpack Lt> |>Iquest& \& Are You sure You want to\& Load and Crunch new file\&\>x\>F\>Xresponse>c>Tc2>Tc3>T<Lt> |>!^>  _closeworkalt&\&\&CHOOSE A FILE TO LOAD|C~a&c>Tc1>Tc2>T0_pw&Aborted.\>T _openworkT< >\alth|t>|L_filelthlth > > \lth>sta@t> | lth2Lt> |>0_pwcme1&'a&'\>  a\sta ofirstf> _justnamea\ _filenametems0_pwWme3\>0_pw-me10\>>Ttemp2def  _getmemory,spo>spovslow*spo>sposlow*spo>sponorm*spo>spofast,spo>spovfast*jefNtsta\ lth2\>\spo\uwhatcol| teamjefaccum>2  _getmemory >team>0_pwQme4\>#0_pw'me11taccum|& Seconds\>"0_pwKme5tlth|& Kbytes\>"0_pwEme6tteam|& Kybtes\>$efylthteamC0_pw9me8tt>d$efy|lth|&% (tlthteam|& Kbytes) !\><_newshowjefc>Tc2>Tc3> ichef>  _openwork<team>0_pwme13\>c>Tc2>Tc3>  _openwork<team>0_pwme14\>c>Tc2>Tc3>!^> \ _filename3me9 ofirstf>  _openwork<v _savedataR /\/\/\/\/\/\/\/\/\ R \/SAVING ROUTINE\/ R /\/\/\/\/\/\/\/\/\ ichef>c>Tc2>Tc3>0_pw&Use Save in Recrunch option!\><|ofirstf>c>Tc2>Tc3>0_pw!me12\>< sack  _closeworkalt&\&\& SAVE FILE AS| a&c>Tc2>Tc3>0_pw&Aborted.\>  _openwork<0_pw me16&'a&'\>etateam>!@t> |eta\ltha\@t> |@t> |team>c>Tc2>Tc3>0_pwQme4\>  _openworkv _loadcrunchR /\/\/\/\/\/\/\/\/\/\/\/\ R \/DECRUNCHING/ROUTINE!\/ R /\/\/\/\/\/\/\/\/\/\/\/\ {whatload>c>Tc2>Tc3>0_pw&Use Load in Project option!\>< luackLt> |>Jquest& \& Are You sure You want to\& Load and DeCrunch new file\&\>x\>F\>,Presponse>c>Tc2>Tc3>T<Lt> |>!^>  _closeworkalt&\&\&LOAD FILE TO DECRUNCH|C~a&c>Tc2>Tc3>T0_pw&Aborted.\>T _openworkT< >\alth4|t>|L_filelthlth4 >  > \lth4sta@t> |  a\sta _justnamea\ _filenametems0_pwme15&'a&'\> ader!t@t> |lth4>| ader>L ader>!^> c>Tc2>Tc3>0_pwme18\>\ _filename3me9L_filelth>  _openwork<!^>  > \ adersta@t> | a\@t> |0_pwKme5tlth4|\>0_pwme17t ader|\>0_pw?me7\><_newshow ader>luNtsta\lth4>|%0_pw'me11t>2|& Seconds !!!!\>0_pwQme4\>c>Tc2>Tc3>ichef>Tofirstf>  _openworkv _savedecrunch ichef>c>Tc2>Tc3>0_pw&No DeCrunched File In Memory\><ofirstf>c>Tc2>Tc3>0_pw& Use Save File in Project option!\><  _closeworkalt&\&\&SAVE DECRUNCHED FILE AS|C~a&c>Tc2>Tc3>T0_pw&Aborted.\>T _openworkT<0_pw me16&'a&'\>a\@t> |@t> |Lt> |c>Tc2>Tc3>0_pw&Done.\>  _openworkv_amoscompiled  _closework*0_pw&6Please note that this is NOT more than 30% succesfull!\>!alt&\&\&Choose A Compiled File To Load|(Ha&0_pw&Aborted.\>T _openworkT< >\alth5|t>|0_pw&Source Length:tlth5|\> >&0_pw&.Now You Must Give A New Filename To Crunch To!\> 0_pw&"Press mouse button to continue... \>P\2>"dalt&\&\& Choose A NEW Filename To Save To|(Hda&0_pw&Aborted\>T _openworkT<>p_squash_a_proga\da\>$0_pw'me11t>2|& Seconds !!\>"0_pw&%Done. Crunched An AMOS Compiled File!\>0_pw&Will Run From Workbench ect!.\>  _openworkvn_delete  _closeworkalt&\&\&CHOOSE A FILE TO DELETE|C~a&c>Tc2>Tc3>T0_pw&Aborted\>T _openworkT<0_pw& Deleting 'a&' ...\>0a0_pwQme4\>  _openworkv _screensetFT 4T>T>TP>\>T >_palsopts R Mouse colours >\6T >\6T >\6v|tbartrD>T>\>>\> zsh2>\>\tr\>v_palsaw aw>t1T< aw>t2T< aw>t3T< aw>t4T< aw>t5T< aw>t6T< aw>t7T< aw>t8T<< t1" 6 \6|\6\6\6\6\6\6` t2" 6S\6 p\6\6\6\6\6\6` t3" 6\6 \6\6\6\6\6\6` t4" 6@\6\6\6\6\6\6\6` t5" 6\6 \6\6p\6\6\6\6` t6" 6\6 \6\6o\6\6\6\6` t7" 6$\68\6\6\6\6\6\6` t8" 6\6`\6\6 \6\6\6\6` vshtx\ty\ t\i R Colour 3,$FB5f>D>TJtx>\ty>\ tR Text TX-1,TY-1,T$ DiTJtx\ty\ t!vsh2tx\ty\ t\i R Colour 3,$FB5f>R Ink 0 : Text TX+1,TY+1,T$R Text TX-1,TY-1,T$ DiTJtx\ty\ t!v <reqt1\t2\ q1\q2 >\>\>Q\>\  > >\>\>(\\>F> ~response  _screenset > >9lthtt1|Tlth2tt2|Tlth3t q1|T$lth4tq2|4lth>(t1(tt1\>(|4lth2>(t2(tt2\>(|4lth3>  q1(t q1\> |4$lth4> q2(tq2\> | n>n>\>(>m\>MR D>T">>x\>>\>2">RD>#t>\>>\>Tt>\>>\>D>4t>\>>\>Tt>\>>\>Tt>\>>\>D>T>\>>\>RD>>x\>>\>2D>t>\>1>\>R Zlth3>D>T>\>">\>.TD>zsh2>\>*\ q1\>D>(t>\>!>\>!TD>Tt>\>!>\>/(t>\>/>\>/TD>Tt>\>/>\>!h>\>\>!>\>/R p$lth4>D>T>\>">\>. P>\>zsh2>\>*\q2\>D>(t>\>!>\>!TD>Tt>\>!>\>/D>(t>\>/>\>/TD>Tt>\>/>\>!h>\>\>!>\>/Rzsh2>\>\t1\>zsh2>\>\t2\>R >#>*erno> >Tdef>Tder def> der<`0i>>3 Xdef\> >\\>(\\0i F0iR~6mz n><p6mz>X2>rrp1Tresponse>TNT~hasT >T n>TTT<<p6mz>X2>frp2Tresponse>TNT~hasT >T n>TTT<RR hasdefdef><h0i>3>V> Xdef\> >\\>(\\0i F0i`R rp1D>(t>\>!>\>!TD>Tt>\>!>\>/(t>\>/>\>/TD>Tt>\>/>\>!D> >\>"zsh2>\>*\ q1\>> `R rp2D>(t>\>!>\>!TD>Tt>\>!>\>/D>(t>\>/>\>/TD>Tt>\>/>\>!D> >\>"zsh2>\>*\q2\>> `v _filenamerD>>\>5>\>= P>\>J>\><\rvX_filelthnb P>\>J>\>F\tnb|vX_newshownc P>\>J>\>P\tnc|v~ _pwt\i^> iT> tTv n> >T>v* _justnamenmftnm\&:| temtnm\f>|ft tem\&/| Nf>temst tem\f>|< 0f> tems tem v0_quitTquest& \&! Are You Sure You Want To Quit??\& Storm Amos Cruncher Vversion\&\>\>P\>response>*Lresponse>c>Tc2>Tc3>vp0inter >\>\>\>\  >T 4D>t>\>>\>t>\>> \>t> \>>\> t>\> > \> t> \> >\>t>\>>\>t>\>>\>D> >\>>\>\>\>>\> >v _openwork0>\&*RAW:0/0/640/40/ Storm Amos Cruncher V2.0b spc2& 1993 Ejber Ozkaneforcol&3j>\&Now the FUN begins!!!.....HeHevZ_getport$ereseteforcol&2#j>\&3Press [Return] in this window to RETURN to Crunchereforcol&3j>\&Ejber Ozkan 1993.~ at>| ^af>aRta| "a> $< v6eresetj>\Rt>|&cdvVeforcoltj>\Rt>|&[3t&mdv" _closework >RR,New requester copyright 1993 ejber ozkan!!! 1v zHquestt1\t2\ t3\t4\x\y\$i >\>\>\>\  >  _screenset mangy n> R For I=0 To 3*tchartt1|**tchar> *tchar> RIf TCHARRNext IRMANGY:0tpix*tchar>  >> P>\> D>T">$x\yx0tpix>\y>P">D>$x\yx0tpix>\y>PR$x\yx0tpix>\y>RInk 0 R Bar X+140,Y+2 To X+140+20,Y+4(h>\x\yx0tpix>\y> P>\>Jx>\y>\&System RequestRD>,x> \y> x0tpix> \y>2D>,x> \y> x0tpix> \y>2)nbut&CONTINUE\x> \y><\>\>.nbut&CANCEL\x0tpix>6\y><\>\>D> R Set Pattern 2 R Paint X+9,Y+9D>,tx> \y> x0tpix> \y> &tx> \y> x> \y>2RD$iJx> \y>\t1Jx> \y>\t2Jx> \y>%\ t3Jx> \y>/\t4 RScreen Copy 0 To 6~6zh,6zh>X2>Jmoveit 6zh>X2>& nbfil&CONTINUE\x> \y><\> >) nbut&CONTINUE\x> \y><\>\> response> >> > < 6zh>X2>+nbfil&CANCEL\x0tpix>6\y><\>>.nbut&CANCEL\x0tpix>6\y><\>\> response>  >> ><R moveitD>  >>n>\>6>g\>PR$Locate 0,0 : Print X Mouse,Y Mouse; <er t| Byr 8t$|f>$<er\Byr<er0tpix>\Byr>Pf>$<er\Byr<er0tpix>\Byr>P\2f>D>x<erTyByrRBox X,Y To X+TPIX+20,Y+80 fT Xmangy`R&vJ$nbutt\x\ y\i\ztchartt|tpixtchar> D>$x\ yxtpix>\ y>D>$x\ yxtpix>\ y>)hz\x\ yxtpix>\ y>D>tx\ yx\ y> tx\ yxtpix>\ y Pi\>Jx> \ y> \t"v$nbfilt\x\ y\itchartt|tpixtchar> D>$x\ yxtpix>\ y>D>$x\ yxtpix>\ y>D>tx\ yx\ y> tx\ yxtpix>\ y Pi\>Jx> \ y> \tRRFrom AMOS COMPILER V1.0 R By Francios ! RSlight mod by ejber!R#v n~_squash_a_progs\d\ firstRR dc> >\s >\dR R TRC=Lof(1) R& _PW["Original Length:"+Str$(TRC),3]head1t>\> |nhunk!tthead1|>| $head2t>\>t>nhunk||Rj>\head1dj>\$head2dR<*h>nhunk>60flag>TT firstf>X*h>Xnhunk>T0flag>T "sqhunk T6brk !t$head2|>t>*h|\<hhFR r6brk> t>|> j>\$head2dBlprog|t>|p0d Blprog>0_pw&Crunching Aborted Control - C! \> sqendR  sqerror0d kkBlprog>0_pw&Error While Crunching!\> sqendR sqhunk#Hht>\>|Tt>|t>|><hh!ttHh||X6.Nlp!ttHh|>|T<hh<hhLNlpT">\NlpXNlp\>> Tf>RRErase 8  >\Nlp>RZoldpoft>|R  _once_again `ap@t>|Tfp>TXdc\>'0_pw&Loading & Crunching Next Hunk :tdc|\>P,ll>T>fpllNlpTllNlpfpTrlat>\ll|!trla|\trla|ll`apXfp\llTX`ap\ll \fpNlpR `ap@t>|R0flagf>XTf>\!t`ap|f6xVdg R R Gosub MEM  _getmemoryR cflash&-Ztuwhatcol|. llNt`ap>\Nlp> \>\>\uwhatcol|R( L=Squash(AP+8,LP-12,-1,512,17) `ll>$ t>|ZoldpofTTf>T _once_again " <ll>T6brk>T_abortT R  xlhtll>|X6& !`ap>\`ap>xlh`ap>> - !`ap>\6xVdgT!`ap> \NlpT!`ap>\ll Xxlh\> T!`ap>\xlh> <hht<hhX6|Ltxlh>| !`ap>xlh\6 Nlp>xlh>Rrla^t>|Tfp>P,ll>T>fpllNlpTllNlpfpT!`ap\`aplltrla|j>\(trla\ll|dXfp\llTX`ap\ll \fpNlpR _abort R DC=DC+LP %RB _PW["Loading & Crunching Next Hunk "+Str$((100*DC)/TRC)+"%",3] !^>  _getmemory`RR sqend  _getmemory0_pw&Done.\> Blprogv^_palette >\>\>d\>\  n>FT 4T>T>T >T > >\>\>(\>\>dtbar&"Palette Editor V1.1 By John Collet Rpalet&0  n>T > > n>c>Tc2>Tc3>R$R@ ============= Procedures called by PALET[mode$] =============v,paletf f&1flt&*.IFF\&\&Load an IFF file|T&ff&Tf\>T. ff&0TfT wx\&wy\,psw X nc ^WR P$="$000,$79A,$FFF,$FB5,$FF0,$0F0,$F00,$800,$9DF,$59F,$D00,$ACC,$FC0,$D80,$840,$FCC,$FFF,$DDD,$CCC,$AAA,$999,$777,$666,$444,$FB0,$EA0,$C90,$B80,$A60,$950,$740,$630" p&! n>Tsk ^T<di>sk>ppt ,ti|\>|&,FT n>F nc>T 4TFwxsw>>2Twy>*!:tf&0|Ltf&|TresetTPDpalwin\> v2palwin wx\&wy\2choyce open_window>TF prepare_sampler<choyce>Tht ,t>|\>|T display_hTslider_valuesTpz>8main againt> |  again v main" wx\&wy\>x\ z\2choyce\,pnc ^n>\>*>\>*Pm2Tz2z>T2sliderzb z>Xz> Xm xTx tx|= pz>dup_col\range\quit\saive\,fiks\reset\newpos |; ntz> |Xtztnc> ||XmTchoose_colourTm>T !\mf>Xtz>Lzt> || z v fiks,pxw_sh>r\>K\&Fix\>nc ^ p&<di>nc>ppt ,ti|\>|&,Fxw_sh>r\>K\&Fix\> vreset,pnc ^<i>nc>1 cttp\ti>|>\>||T i\t c|F vquit vsaive Xopts\>&opts> opts>_palsopts> < wx\&wy\,pxw_sh>\>@\&Save\>>\&RAM:palset.ASC j>\&&j>\&9 The characters between < and > may be assigned to P$'j>\&< in the 11th line of Procedure PALET[]. For this, there%j>\&7 must be FOUR characters in each element (e.g. $F00j>\&" should not be reduced to $F). j>\& j>\&< j>\p j>\&> j>\&(j>\&> The data may, of course, be useful in other applications. >xw_sh>\>@\&Save\>vLdup_col wx\&wy\2choyce\>xd1tt ,tchoyce|\>||f>xwx>1mboss>n\>#\>\>,Txw_sh>q\>*\&To?\>h1mboss>\>#\>\>,Txw_sh>\>*\&With\>-newz>TP"T mBTnewzT\newz> X md2tt ,tnewz> |\>|| newz> \d1xwx>1mboss>n\>#\>\>,Txw_sh>q\>*\&Copy\> choyce\d22mboss>\>#\>\>,Txw_sh>\>*\&Swap\>Tf> vrange ohdear wx\&wy\2choycexw_sh>\>5\&To?\>#P"TmBTnewzT\newz> Xm<D>TNw_bar>\>/\>\>6T firstchoyceTlastnewz> c1t ,t first|\>|Ir1t(tc1\>||T$g1t&$tc1\>\>||T*b1t&$6tc1\>||0c2t ,tlast|\>|I6r2t(t0c2\>||T<g2t&$t0c2\>\>||TBb2t&$6t0c2\>||+Hcasestlast first|T last firstT<T^Nrdirtr16r2|tr16r2|TTgdirt$g1<g2|t$g1<g2|TZbdirt*b1Bb2|t*b1Bb2|-`rdisttr16r2|Tfr_piecet`rdistHcases|-lgdistt$g1<g2|Trg_piecetlgdistHcases|6xbdistt*b1Bb2|T~b_piecetxbdistHcases|Tt><k first>last>Dt[newrr1Nrdirtfr_pieceTnewg$g1Tgdirtrg_pieceTnewb*b1Zbdirt~b_pieceVthiscoltttnewrF@|\>|6tttnewgF@|\>|\>|6tttnewbF@|\>|\>|| k\thiscolF nope n>< ohdear > ernoEerno>nreq&! YOU CAN ONLY RANGE FORWARD!\& I.E FROM COLOUR 5 TO 20\& OKAY\& OKAY erno>0nopevchoose_colour wx\&wy\ z\2choyce\Dhchoycez>  display_h choyce\th|!DchoyceTNw_bar>\>\>#\> slider_valuesv display_h wx\&wy\2choyce\Dhht ,tchoyce|\>|7f>TP>\>TJwx> \wy>\6th\>|TP>\>v Tprepare_sampler  wx\&wy1mboss>\>\>$\>Tmboss>\>\>$\>!@w_zone> \>\>\>$\>/xw_sh>,\> \&R\>Txw_sh>,\>\&G\>xw_sh>,\>\&B\>x1>8Tx2>< i>>Ay1> i> Ty2>  i> Tmbossx1\y1\x2\y2&@w_zone i>\x1\y1\x2\y2M i>TD>T<nj>>Tjw_plotwx\wy\x1j>\y2>TFTFMmboss>n\>#\>\>,Tmboss>\>#\>\>,T@w_zone>\>n\>#\>\>,5mboss>n\>.\>\>7T@w_zone>\>n\>.\>\>75mboss>n\>9\>\>BT@w_zone>\>n\>9\>\>B5mboss>\>9\>\>BT@w_zone>\>\>9\>\>B5mboss>n\>D\>\>MT@w_zone>\>n\>D\>\>M5mboss>\>D\>\>MT@w_zone> \>\>D\>\>MJxw_sh>q\>*\&Copy\>Txw_sh>\>*\&Swap\>Txw_sh>r\>5\&Range\>0xw_sh>r\>@\&OK\>Txw_sh>\>@\&PreS\>1xw_sh>r\>K\&Fix\>Txw_sh>\>K\&Rset\> R Sample rows %x1>Ty1>$Tx2>fTy2>L$nc ^%mbossx1>\y1\x2\y2>@*nrows>>t$nc> |T0ncols$nct>t>t$nc>|||%6rstep>(*nrowsT<cstep>`0ncols/Br1y1THc1x1Tc2x2<cstepT i><Nr>*nrows<Rc>0ncols9 D iTNw_barHc1\Br1>\Hc1<cstep>\Br16rstep@ @w_zone i> \Hc1>\Br1>\Hc1<cstep>\Br16rstep bHc1\<cstep\x1c2TD iFXBr1\6rstepFR MBOSS[200,10,340,30] R" W_SH[216,20,"Rotate Preset",3] R" Set Zone NC+11,200,10 To 250,90v open_windown  wx\&wywxtwx>|>>n\wx\wy\>\> TFT 4(D>T">TNw_bar>\>\>\>OT">x2wx>T y2wy>O%D>Twx\ y2x2\ y2x2\wy%D>Twx\ y2wx\wyx2\wy"vmbossx1\y1\ x2\y2  wx\&wyR* X1=WX+X1 : Y1=WY+Y1 : X2=WX+X2 : Y2=WY+Y2-Xx1\wxTXy1\wyTX x2\wxTXy2\wyD>Tx1\y1 x2\y2%D>Tx1\y2 x2\y2 x2\y1%D>Tx1\y2x1\y1 x2\y1!vw_shtx\ty\ t\i  wx\&wyf>(D>TJwxtx>\wyty>\ t D>TJwxtx\wyty\ tf>"vhw_plotwx\wy\ x\y<wx x\wyy"vw_drawx1\y1\ x2\y2  wx\&wy*twxx1\wyy1wx x2\wyy2"vw_barx1\y1\ x2\y2  wx\&wy*wxx1\wyy1wx x2\wyy2'vw_zonen\x1\ y1\x2\y2  wx\&wy/hn\wxx1\wy y1wxx2\wyy2v Hsliderz wx\&wy\ z\2choyce\Dh px> h2> x t|$Rz>XxfpxXxwx>8  display_hL  red&$th\>\>|Tgreen&$th\>\>|Tblue&$6th\>|R x1wx>9T$x2xT*x3x1>~T0y1wy>tz>|> T6y20y1> x1>$x2X$x2*x3T1 D>T"> Tx1>\0y1>$x2\6y2>T">- R$x2>*x3TD>T$x2\0y1*x3\6y2T RSet colour as bar moves  <distancet$x2x1|> B<distance> Bdistt<distance| 2BdistRt>7<distance|  0z>T redBdist z2z>TgreenBdist:,z>TblueBdistT 2 h&$6t red\>|6tgreen\>|6tblue\>|8 choyce\t&$6t red\>|6tgreen\>|6tblue\>||7 DchoyceTwx>\wy>wx>#\wy>T display_h  pxxtv*0slider_values wx\&wy\DhLred&$th\>\>|Tgreen&$th\>\>|T blue&$6th\>|x1wx>9Tx3x1>~<z>>4z>Tx2tred|h 6z>Tx2tgreen| $ x2t blue| Gx2wx>8x2>>T$y1wy>tz>|> T*y2$y1>5D>T"> Tx1>\$y1>x2>\*y2>T">-Rx2>x3TD>Tx2\$y1x3\*y2TF vn$newpos<  wx\&wysw Xm>TD>Tf> h"m> x t|Ty 8t$|S xfoxXyfoyT x\y x>\y>PT x\y x>\y>PTmBTox xToyyt D>Tf>+wx t|T:wxsw>Twxsw>T!wy 8t$|T&wy>Twy>Twxtwx>|>>AmBsAmSp f6< c66c?<>>8 8q?`8@`` p9#(x |~!>40P@@1% d@pc% 0@'@!a8 G||G@wWgͽ ;ݼ;o~ooox3co0lco~wwmko6ffnffff`mfomf`mmmlfvvffmffffh{γko<193co0 }fU33ss77w `