AMOS Basic v134 $  >\>@ @@rt>|\@gt>|\ @bt>| >\>\>\>\ FT 4T > Tn @@tyt>|!<>a>>T@tyta|>TF# >\>\>\&(1,0,1)\&(1,0,1)\&(1,0,1) >\>\>)\>D>>T\>>\>D>>\>>8>\>>D>  >\6  >\6> $co6>\>\>\\>\>\>\>\>>\>\>\>\>>\>(>\>2\>\>\>>\><>\>F\>\>\>  >\$coF>h>\>\>>\>h>\>\>(>\>2h>\>\><>\>F drscr7*r>T0g>T6b>T<mo>TBst>THen>D>t>@\Bst>H\Bstt>@\Hen>H\Hen*r>T0g>T6b> 10PFNx .t>\|TTy Ht>\$|x>\> TvTyd& Zm2`a `a&ssavfil$`a&S savsource `a&lfloafil$`a&LT loabrilfil \Zmf>Nx>@>*<mo>XNx>TXZm>/$cot*r>|6t0g>|6t6b>| t>\Ty>|$co1@rtTy|*rT@gtTy|0gT @btTy|6b|Zm>XNx>T1*r@rtTy|T0g@gtTy|T6b @btTy|/$cot*r>|6t0g>|6t6b>|slidx> \>Tv*rd& x> \>Tv0gd& x> \>Tv6bd& 7fNx>TXZm>D>Tt>@\Bst>H\BstTBstTy7fNx>TXZm>D>Tt>@\Hen>H\HenTHenTyD>Tt>@\Bst>H\Bstt>@\Hen>H\Hen+NHenBstfpHenTHenBstTBstfp >\>\>)\>>  20Nx>>Z5<Zm>D>T@tytTy|>&D>T@tytTy|>t>\Ty>>\Ty>  90lztNx\Ty| >T>Plz>findposT>\>>\>\>\rh\>T*rrhTx> \>Tv*rd& Plz>findposT>\>(>\>2\>\rh\>T0grhTx> \>Tv0gd& Plz>findposT>\><>\>F\>\rh\>T6brhTx> \>Tv6bd& ,Plz>Xlz> Xlzf><molz> lz>spread/$cot*r>|>t0g>|>t6b>|  >\$co> R slid>\>>\>\>\*r\>>\>(>\>2\>\0g\>>\><>\>F\>\6b\>  >\$co`R spreadxco1 t>\Bst|~co2 t>\Hen|1r1@rtBst|Tg1@gtBst|Tb1 @btBst|@r2@rtHen|r1Tg2@gtHen|g1Tb2 @btHen|b1dHenBst<a>drar1tr2a|dgag1tg2a|dbab1tb2a|d@rtaBst|ra@gtaBst|ga @btaBst|ba? t>\aBst>|tra>|>tga>|>tba>|F >\>\>)\>`R  findpos rhNx"rh>rh>`RvFdkvaZn\vaTXn\> drscrD>>> Fbilly< a>>Nxa>Nx\>Nx>\>xa>\> `aTv`a`aTxa>\>Tv`a!ha>\Nx\>Nx>\>F`R savfil >\>@\>\>\ FT 4T >  >\6>& filename dn n@t>|W<a>>TZn\@rta|TZn>\@gta|TZn>\ @bta|TXn\>TFn\@t>|n n> >`R  savsource >\>\>\>\ > FT 4T >  >\6>v&Saving source file& filename dn n@t>|<x>>V> c><bm>>v6 @bm6 RM$=" dc.w $106,"+Hex$(V)dk6Tdkv R Gosub POKIT <ba>>1*r@rtc|T0g@gtc|T6b @btc|*r*r>rtrx|>gtgx|>btbx|>*r>*r/$cot*r>|6t0g>|6t6b>|v6a>dkvTdk$coR M$=" dc.w "+Hex$(V)+","+Hex$(CO) R Print M$ : R Gosub POKIT Xc\>FF c>< bm>>v6@bm6 RM$=" dc.w $106,"+Hex$(V) R Gosub POKIT dk6Tdkv<^a>>1*r@rtc|T0g@gtc|T6b @btc|*r*r>rtrx|>gtgx|>btbx|>*r>*r/$cot*rX6|6t0gX6|6t6bX6|v6a>dkvTdk$coR M$=" dc.w "+Hex$(V)+","+Hex$(CO) R Print M$ R Gosub POKIT Xc\>FFdk6Tdk6RM$=" dc.w $ffff,$fffe" R Gosub POKIT Fn\@t>|n n> >`R pokit:<pt>tm|T!n\ttm\t\>||TXn\>TF!n\> TXn\>`R loafil >\>@\>\>\ FT 4T >  >\6>& filename dn n\@t>| n@t>|[<Pa>>T@rta|!tn|T@gta|!tn>|T @bta|!tn>|TXn\>L t>\a>|t@rta|>|6t@gta|>|6t @bta|>|F n> >`  loabrilfil >\>@\>\>\ FT 4T >  >\6>& filename dn n\@t>|$n!t@t>|@t>|>'\&CMAP|>[<Pa>>T@rta|!tn|T@gta|!tn>|T @bta|!tn>|TXn\>L t>\a>|t@rta|>|6t@gta|>|6t @bta|>|F n> >` billy+&P\& \&S\&t\&E\&n\&S\&p\&C\&oAmBs