decman.tap

DEC-Man   <20><00><0C><03>S<00>i=1<00>9	:<3A><>i,0;"  ..............":<3A>i:<3A>p=22562"X:<3A>z=4
s<00>a:<3A>b:<3A>b()=<3D>a(g,(g-p<0))+<2B>a(g,-(g-p>0)):<3A>1,8,2,3,2,4,2
U<00>a<EFBFBD><61><EFBFBD>a,b;" ";<3B>a,17-b;" ";<3B>10
-a,b;" ";<3B>10
-a,17-b;" ":<3A>2
_<00>g=22831/Y:<3A>22689<00>X,129<00>:<3A>22704<00>X,129<00>:<3A>s=1<00>89Y<00>0:<3A>k$=<3D>
Y<00>.002xn<>,s/3:<3A>n=<3D>a(p,(32 *(k$="d"))-(32 *(k$="e"))-(k$="o")+(k$="p"))
^<00>a=(a*<2A>n)+n:<3A>p,0:<3A>q=<3D>(p+a):<3A>p=p+a*(q<>568):<3A>6,3,8,4,2
z<00>p=p+(-14*a*(q>99c)):<3A>q=<3D>p:<3A>p,546:<3A>j=g-p:<3A>4,4,4,6,4,8,0,1
Q<00>j=<3D>a(g,32 *(j<-18))+<2B>a(g,-32 *(j>18)):<3A>j=(<28>b()*<2A>j)+j:<3A>g,z
	><00>b=j-(b*<2A>j):<3A>g=g+b:<3A>z=<3D>g:<3A>g,40(:<3A>z=546<00>q=40(<00><>
X<00>s=s+1*(q=4):<3A>s:<3A>1,10
:<3A>:<3A>a(l,n)=n*(<28>(l+n)<29>568)
T