AMOS Basic V1.3 JR& STORM SUPER CRUNCHER v1.2 - Jan 1992 R%RB SIMPLE ONE LINE INSTRUCTIONS TO PRODUCE AN EFFECTIVE ICON SYSTEM!&RD FEEL FREE TO EXAMINE THE CODE BUT IF YOU WISH TO ADD FURTHER STUFF R4 FOR A PD RELEASE THEN GET IN TOUCH WITH ME FIRST. &RD I HOPE THE REMS MAKE IT EASIER TO READ!...BETTER CLARITY AT LEAST! 'RF NOTE TO CODERS IN AMOS - USE A BIT OF PRESENTATION! FOR GODS SAKE! - RR6 ANY BUGS,REPORTS AND CRITISMS WRITE TO EJBER OZKAN :- R 222 TUNNEL AVE R GREENWICHR LONDON R ENGLAND R SE10 OPL Z&DF0: @Beft>|,Beft|\def\ z\lth\cfs\a\$cflash-*vslow\0slow\6norm\<fast\Bvfast\Hda\Nteam $cflash&-Z00main ppacker vmain >\>\>\>\ FT 4T>T>TD>T >T >\>\>(\>\>n t>|\ t>| t>|\ t>d|>v0`ppackerR /\/\/\/\/\/\/\/\/\/\/\/\ R \/SETUP/ROUTINES!/1992\/ R /\/\/\/\/\/\/\/\/\/\/\/\ ?vslow>Tslow>Tnorm>Tfast>Tvfast>Tcoml>QBeft>|&VSLOWTBeft>|&SLOW TBeft>|&NORM TBeft>|&FAST TBeft>|&VFASTdef>Tcfs>F> rgb><F i>>  i\ i>>F i  >\6 %x>\>Tvtt&LOAD FILE TO PACK\>|\>|$x>\>Tvtt&SAVE PACKED FILE\>|\>|*x>&\>Tvt&) \>|Rx>\>Tvt&COLOUR FLASH 00\>|x>\>Tvtt&+\>|\>|x>\>Tvtt&-\>|\>|Rx>\>Tvt&EFFICIENT VSLOW\>|x>+\>Tvtt&+\>|\>|x>.\>Tvtt&-\>|\>|0>Tx>1\>Tvtt&STORM AMOS CRUNCHER v1.2 1993 \>|\>|R>x>\>Tvt&FILE SIZE: \>|x>\>Tvt&NEW SIZE: \>|x>)\>Tvt&SECONDS: \>|x>9\>Tvt&GAINED: \>|x>K\>Tvtt&QUIT\> |\>|R%x>\> Tvtt&LOAD AND UNCRUNCH\> |\>|&x>\> Tvtt&SAVE DECRUNCHED FILE\> |\>|R(x>*\> Tvt&%CHIP: FAST: TOT: \>|R)x>\> Tvtt&CRUNCH COMPILED AMOS FILES\>|\>|R$x>\> Tvtt&ENTER CLI - ESC\>|\>|R R /\/\/\/\/\/\/\ R \/\MAIN/LOOP\/ R /\/\/\/\/\/\/\ ~za,za>X2>hlpack*za>X2>\sack*za>X2>c0l1*za>X2>c0l2,za>X2>cheff,za>X2>cheff2*za>X2>vbom*za> X2>quit,za> X2>@luack,za> X2>2suack,za>X2>debre*za>X2>clit>E|>climem>RRR droop*x>&\>Tvt&) \>|x>(\>Tv& FREE DF0:dd/VNt&df1:|>Z&df1:Tx>>\>Tv& FREE DF1:ddTZ&df0:`R R /\/\/\/\/\/\/\/ R \/MEM/CONTROL/\ R /\/\/\/\/\/\/\/ R cli.coml>$Tcoml>T`.coml>$Tcoml>T``RR memx>/\> Tv!zdx><\> Tv !dx>H\> Tv !!zd`R quit3req& DO YOU REALLY WANT TO QUIT\& THE CRUNCHER?!\& YES\& NO!z>`z>NT` R /\/\/\/\/\/ R \/ABOUT?!/\ R /\/\/\/\/\/  bom*>\>\>\>\>(>\>\>x\>\> D>\&#(100,4)(700,4)(d00,4)(700,4)(100,4)!x>>\> Tvtt& CLICK ME!\> |\>|Pza\za> X2>`>  >\>\>\>\> 4R)x>\> Tvtt&CRUNCH COMPILED AMOS FILES\>|\>|$x>\> Tvtt&ENTER CLI - ESC\>|\>|`R /\/\/\/\/\/\/\/\/\/\/\/\ R \/THE/PACKING/ROUTINE!\/ R /\/\/\/\/\/\/\/\/\/\/\/\  lpackELt> |>req& ARE YOU SURE YOU WANT TO\& LOAD AND CRUNCH NEW FILE?\&CONTINUE\& CANCELz>`Lt> |>!^> *x>&\>Tvt&) \>| droopalt&\&\&CHOOSE A FILE TO LOAD| a&`x>\>Tvt&FILE SIZE: \>|x>\>Tvt&NEW SIZE: \>|x>)\>Tvt&SECONDS: \>|x>9\>Tvt&GAINED: \>| >\alth|t>|x> \>Tvlthd > > \lth>sta@t> |lth2Lt> |>$bneta|H\$bne>*abta\>\>|T*ab|t*ab|T0*abaT*ab|t*ab|x>(\>Tv&LOADING:*ab  a\sta*x>&\>Tvt&) \>|$bnet*ab|H\$bne>*abta\>\>|T*ab|t*ab|T0*ab*abT*ab|t*ab|x>(\>Tv&CRUNCHING FILE:*ab>T0temp2defmem$@def>Xdef>defvfast,def>defvfast*def>deffast*def>defnorm*def>defslow,def>defvslow(6jefNtsta\lth2\>\def\cfs| team6jef R Print TEAM*x>&\>Tvt&) \>|x>1\>Tv>2mem/V6jef>x>(\>Tv&FINISHED CRUNCHING FILETjobsT`;n6jef>x>(\>Tv&TERMINATED WITH CONTROL-CTdef0temp2T!^> T`9j6jef>x>(\>Tv&LONGER THAN ORIGINAL!Tdef0temp2T!^> T``R /\/\/\/\/\/\/\/\/\ R \/SAVING ROUTINE\/ R /\/\/\/\/\/\/\/\/\  sack no_use@t> |>` jefssz>` droopalt&\&\& SAVE FILE AS| a&`*x>&\>Tvt&) \>|$bneta|H\$bne> *abta\>\> |T*ab|t*ab|T0*abaT*ab|t*ab|x>(\>Tv&SAVING:*ab<etateam> RPrint TEAM;LTH!@t> |<eta\lthR"Print "hel:";Leek(Start(12)+ETA); a\@t> |@t> |Btemp>*x>&\>Tvt&) \>|`R /\/\/\/\/\/\/\/\/\/\/\/\ R \/DECRUNCHING/ROUTINE!\/ R /\/\/\/\/\/\/\/\/\/\/\/\  luackB|Lt> |>req& ARE YOU SURE YOU WANT TO\& DECRUNCH NEW FILE?\&CONTINUE\& CANCELz>`Lt> |>!^> droopalt&\&\&LOAD FILE TO DECRUNCH| a&` >\aHlth4|t>|x> \>TvHlth4d >  > \Hlth4sta@t> |$bneta|H\$bne>*abta\>\>|T*ab|t*ab|T0*abaT*ab|t*ab|*x>&\>Tvt&) \>|x>(\>Tv&LOADING:*ab  a\staNader!t@t> |Hlth4>|!^>  > \Nader a\@t> |*x>&\>Tvt&) \>|x>\>Tvt&FILE SIZE: \>|x>\>Tvt&NEW SIZE: \>|x>)\>Tvt&SECONDS: \>|x>9\>Tvt&GAINED: \>|x> \>TvHlth4dx>\>TvNaderd$bnet*ab|H\$bne>*abta\>\>|T*ab|t*ab|T0*abaT*ab|t*ab|x>(\>Tv&DECRUNCHING FILE:*ab>memTluNtsta\Nader|*x>&\>Tvt&) \>|x>1\>Tv>2x>(\>Tv&!DECRUNCHED FILE!.. NOW SAVE FILE!mem`R /\/\/\/\/\/\/\/\/\/\/\/\/\/\ R \/SAVING\DECRUNCHED/ROUTINE/ R /\/\/\/\/\/\/\/\/\/\/\/\/\/\  suack no_use2@t> |>` jenmz>` droopalt&\&\&SAVE DECRUNCHED FILE AS| a&`*x>&\>Tvt&) \>|$bneta|H\$bne> *abta\>\> |T*ab|t*ab|T0*abaT*ab|t*ab|x>(\>Tv&SAVING:*aba\@t> |@t> |Lt> |*x>&\>Tvt&) \>|` R /\/\/\/\/\ R \/ERROR!\/ R /\/\/\/\/\  no_use8req& YOU MUST FIRST LOAD A FILE!\&YOU CANT SAVE NOTHING!t|\&CONTINUE\& 0NjefssR  no_use27req& YOU MUST FIRST LOAD A FILE!\& YOU CANT SAVE NOTHING!\&CONTINUE\&0&jenmR jobsx>\>Tv6jefdZgnalth26jefx>?\>TvZgnad Btemp6jefdef0temp2x>$\>TvBeftdef|d`RR R debre*x>&\>Tvt&) \>| droopalt&\&\&CHOOSE A FILE TO LOAD| a&`x>\>Tvt&FILE SIZE: \>|x>\>Tvt&NEW SIZE: \>|x>)\>Tvt&SECONDS: \>|x>9\>Tvt&GAINED: \>| >\alth|t>|x> \>Tvlthd > droopdalt&\&\&CHOOSE A NEW FILENAME| da&`_squash_a_proga\da\>$bneta|H\$bne> *abta\>\> |T*ab|t*ab|T0*abaT*ab|t*ab|x>\>)Tv& CRUNCHED:*ab`R0 /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ R0 \/\ROUTINES/FOR/CHANGING\COLOURS\AND\SPEED!/\/ R0 /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\  c0l1cfs>` Xcfs\>x> \>Tvcfs`R c0l2cfs>` Xcfs\>x> \>Tvcfs`R cheffdef>` Xdef\>x>$\>TvBeftdef|d`R cheff2def>` Xdef\>x>$\>TvBeftdef|d`!vJreqt1\t2\ b1\b2 z >\>\><\>\  >\>\>\\n>\>>^\> 4 >T TF 6\6\6\6F> 8tt1|>!t1(tt1\>!| 8tt2|>!t2(tt2\>!| 8t b1|> b1(t b1\>| 8tb2|>b2(tb2\>|D>T>\>>\>4D>T>\>>\>;D>T>\>>\>:D>T>\> >\>D>Tt>\>>\>D>Tt>\>>\> t b1|>D>T>\>%>\>4D>Tt>\>4>\>4D>Tt>\>4>\>%tb2|>D>T>h\>%>\>4D>Tt>h\>4>\>4D>Tt>\>4>\>% P>\>J>\>\t1J>\>\t2J>\>/\ b1J>l\>/\b2$@t b1|>h>\>\>%>\>4$@tb2|>h>\>h\>%>\>4~zgz>X2>D>T>\>%>\>4TD>Tt>\>4>\>4TD>Tt>\>4>\>%T> T >T n>TTT<gz>X2>D>T>h\>%>\>4TD>Tt>h\>4>\>4TD>Tt>\>4>\>%T> T >T n>TTT<vp0inter >\>\>\>\  >T 4D>t>\>>\>t>\>> \>t> \>>\> t>\> > \> t> \> >\>t>\>>\>t>\>>\>D> >\>>\>\>\>>\> >RRFrom AMOS COMPILER V1.0 R By Francios ! RSlight mod by ejber!R#v bx_squash_a_progs\d\ firstRR >\s >\dRhead1t>\> |nhunk!tthead1|>| head2t>\>t>nhunk||Rj>\head1dj>\head2dR<$h>nhunk>6*flag>TT firstf>X$h>Xnhunk>T*flag>T sqhunk T0brk !thead2|>t>$h|\6hhFR r0brk> t>|> j>\head2d<lprog|t>|20d <lprog> VsqendR  sqerror0d kk<lprog> VsqendR sqhunk#Bht>\>|Tt>|t>|>6hh!ttBh||X6.Hlp!ttBh|>|T6hh6hhLHlpT">\HlpXHlp\>> Nf>RRErase 8  >\Hlp>RToldpoft>|R  _once_againZap@t>|T`p>P,fl>T>`pflHlpTflHlp`pTllat>\fl|!tlla|\tlla|flZapX`p\flTXZap\fl \`pHlpR Zap@t>|R*flagf>XNf>!tZap|f6xVdg R dmemR cflash&-Ztcfs|( x>\>Tvt&EFFICIENT FAST \>|Tdef>, flNtZap>\Hlp> \>\>\cfs|R( L=Squash(AP+8,LP-12,-1,512,17) `fl>$ t>|ToldpofTNf>T~ _once_again " <fl>T0brk>Tp_abortT R  rlhtfl>|X6& !Zap>\Zap>rlhZap>> - !Zap>\6xVdgT!Zap> \HlpT!Zap>\fl Xrlh\> T!Zap>\rlh> 6hht6hhX6|Ltrlh>| !Zap>rlh\6 Hlp>rlh>Rlla^t>|T`p>P,fl>T>`pflHlpTflHlp`pT!Zap\Zapfltlla|j>\(tlla\fl|dX`p\flTXZap\fl \`pHlpR _abortx>)\>Tv&CRUNCHING ABORTED!!^>`RR memx>/\> Tv!zdx><\> Tv !dx>H\> Tv !!zd` sqend <lprogAmBsAmSp c|` ~ @fU33ss77w `