%ë7:Ó=’+&1A00:òi:òs:òl:òc:òp:òsa:à ÐÝòi:Þ g%(30),v$(150),ca$(150),b 255:q=&22:h=&26:n=0:ga=&8D:na=0:d=&DE:va$="ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz":vb$=va$+"0123456789":h$="0123456789ABCDEF":e=&FF:r=&D:ra=&F4:sb=—"*":o=&EE }da=&DC:t=&8C:ea=&8B:cb=—":":db=&DD:sc=£:sd=32:se=¹:eb=r:ia=&E7:f=£:pa=“:oa=&FFF7:ãla=0¸150:v$(la)=½&FF:ca$(la)=½&FF:íla:á (=Ýòl:è"Enter source filename: "fa$:ÿ"LOAD "+fa$+" "+Ã~pa:á 2WÝòsa:ï7,7:è"Enter packed output filename: "fa$:ÿ"SAVE "+fa$+" "+Ã~pa+" "+Ã~(nb+2):á <Ýòc:ï26:Û:çpbŒï2‹ï3 FÏñ"Program - ";fa$;:ñŠ6);"Variable reference table."':ñ"Current Variable Name";Š30);"New Name":ñ:ï28,0,24,39,5:oc=pa:od=oc?3:nb=pa:oe=4:õ:nc=4:ãla=0¸2:b?la=oc?la:íla:ògb:sc=£:nd=£:se=¹:õ:òrb:çcc=cb€seŒòrc Pçcc=dŒsc=¹ Zçcc=sb€seŒse=£:òrd:ått@ dçcc=ra„cc=rŒnd=¹:ått@ nçcc=daŒòrd:nd=¹:ått@ xçcc=qŒòre:ått@ ‚çcc=hŒòrf:ått@ Œç§va$,½(cc))<>0Œòrg:ått@ –çcc=gaŒòga:ått@ çcc=t„cc=ea„cc=cbŒse=¹‹se=£ ªòta:ògb ´[ýnd„oe>od:ne=nc:ãla=0¸ne:nb?la=b?la:í:nb?3=ne:nb=nb+ne:òsf:nb?0=r:ýoc?1=e:nb?1=e:ï3,7:á ¾Ýòrb:çscŒá Èõ:çcc=sdŒògb Ò ýcc<>sd:á Ü Ýòrd:ãla=oe¸od:òta:ògb:íla:á æ"Ýòre:õ:òta:ògb:ýcc=q:òta:ògb:á ð"Ýòrf:õ:òta:ògb:ý§h$,½(cc))=0:á úÝòrg:êsg$,cd$,ce$:òsh:òpc:á <Ýòsh:êla,fb:sg$=¤rh:fb=£:la=0:õ:la=la+1:çsg$=v$(la)Œfb=¹ ýfb„la>n:çfbŒcd$=ca$(la):á >n=n+1:v$(n)=sg$:cd$=¤cf(n):ca$(n)=cd$:ñv$(n);Š30);ca$(n):á "4Ýòpc:êcc:ãla=1¸©(cd$):cc=—(Ácd$,la,1)):òta:íla:á ,SÝ¤rh:êsg$,ce$,la:sg$="":ce$=½(cc):õ:sg$=sg$+ce$:ògb:ce$=½(cc):ý§vb$,ce$)=0:=sg$ 69Ý¤cf(la):êcd$,nf,fb,ng$:cd$=Àv$(la),1):ç¬¤u(cd$)Œ=cd$ @Mõ:nf=—"a":õ:ng$=cd$+½(nf):fb=¤u(ng$):nf=nf+1:ýnf>—"z"„¬fb:çfbŒcd$=cd$+"a" J ý¬fb:=ng$ T4Ý¤u(sg$):êla,fb:fb=£:ãla=1¸n-1:çca$(la)=sg$Œfb=¹ ^ í:=fb hÝògb:cc=oc?oe:oe=oe+1:á rÝòta:b?nc=cc:nc=nc+1:á |–Ýòga:êcg%,ch%,ci%,lb,la,lc%:lc%=oe:ãla=1¸4:òta:ògb:íla:cg%=oc?lc%:ch%=oc?(lc%+1):ci%=oc?(lc%+2):lb=(ci%€&3F)*&100+(ch%€&3F):ç(cg%€4)=0Œlb=lb+&4000 †ç(cg%€16)=0Œlb=lb+&40 ç(cg%€32)=32Œlb=lb+&80 šç¤ua(lb)Œá ¤na=na+1:g%(na)=lb:á ®Ýòp:êvc%,pd,fc:pd=”(nb+2-pa):ñ'"Program length - ";pd;:vc%=¼:oc=pa:nb=pa:oe=4:nc=4:od=oc?3:nh=nb?3:òfd:òsf:õ:nh=od+b?3:fc=oc?4:ç¤ua(lb)Œf=¹ ¸çnh>240Œf=¹ Âçfc=db„fc=da„fc=sbŒf=¹ ÌçfŒòec:òfd‹òa ÖKòsf:ýoc?1=e:òec:nb?0=r:nb?1=e:ñŠ0,vc%);"Program length - ";”(nb+2-pa):á àÝòri:êld:ld=-1:ògb:çcc=ebŒá ê"õ:õ:ç(cc=cb)€(ld=-1„ld=cb)Œògb ô)ý¬((cc=cb)€(ld=-1„ld=cb)):çcc=ebŒT\B þòta:çcc=da„cc=ia„cc=oŒf=¹ !çcc=sb€(ld=ea„ld=t„ld=-1)Œf=¹ ld=cc:ògb ýcc=eb:á &Ý¤ua(lb):êfb,la:çna=0Œ=£ 0!fb=£:ãla=1¸na:çg%(la)=lbŒfb=¹ :íla:=fb DÝòec:êla:çnc=4ŒDXB N,ãla=0¸nc:nb?la=b?la:íla:nb=nb+nc:nb?0=eb Xnc=4:f=£:á b.Ýòfd:êla:ãla=0¸3:b?la=oc?la:íla:nc=4:òri:á lÝòa:çod=4Œá vçnc<>4Œcc=cb:òta €*òri:b?3=nc:pd=pd-3:ñŠ17,vc%);pd;" ";:á ŠÝòrc:õ:çcc=cb€seŒògb ” ýcc<>cb:á ž1Ýòsf:oe=4:oc=oc+od:od=oc?3:lb=oc?2+oc?1*256:á ¨¼Ýòs:êaa$:õ:Û:ñŠ13);"Program Packer."Š0,2);"Do you wish to use a printer? ";:pb=¤y:pe=0:çpb:pe=¤pf:çpe:ñŠ0,4);"Please switch on the printer.";Š0,6)"Then press a key to continue. ":aa$=¾ ²ýpe„(¬pb):Û:á ¼Ý¤pf Æ*FX15,3 Ð.ï2,13,13,13,3:A%=&98:X%=3:Y%=0:A%=º(&FFF4) Ú*FX15,3 ä=1 î.Ý¤y:êab%:õab%=¥€223:ýab%=89„ab%=78:=ab%=89 ÿ