:ClrDraw
:ClrHome
:RecallPic 2
:Disp
:44→A:14→B
:34→K
:"LN"→Str2
:"
:For(θ,0,7
:For(Z,0,15
:Ans+sub(Str2,pxl-Test(θ+A,Z+B)+1,1
:End
:Output(1,1,sub(Ans,2,length(Ans)-1
:End
:sub(Ans,2,128→Str1
:Repeat K=45
:Output(1,1,Str1
:Output(4,8,sub("ÌÏÌ ÎÎ",K-23,1
:Repeat max(K={24,25,26,34,33,45
:getKey→K
:End
:If K=33
:Then
:Text(0,0,"
:Repeat getKey=45
:Pxl-Change(A+3,B+7
:End
:Pxl-Off(A+3,B+7
:End
:If K=26 and B<79 and not(pxl-Test(A+3,B+8
:Then
:B+1→B
:"
:For(θ,0,7)
:Ans+sub(Str2,pxl-Test(A+θ,B+15)+1,1
:End
:sub(Ans,2,8
:sub(Str1,2,15)+sub(Ans,1,1)+sub(Str1,18,15)+sub(Ans,2,1)+sub(Str1,34,15)+sub(Ans,3,1)+sub(Str1,50,15)+sub(Ans,4,1)+sub(Str1,66,15)+sub(Ans,5,1)+sub(Str1,82,15)+sub(Ans,6,1)+sub(Str1,98,15)+sub(Ans,7,1)+sub(Str1,114,15)+sub(Ans,8,1→Str1
:End
:If K=24 and B and not(pxl-Test(A+3,B+6
:Then
:B-1→B
:"
:For(θ,0,7)
:Ans+sub(Str2,pxl-Test(A+θ,B)+1,1
:End
:sub(Ans,2,8
:sub(Ans,1,1)+sub(Str1,1,15)+sub(Ans,2,1)+sub(Str1,17,15)+sub(Ans,3,1)+sub(Str1,33,15)+sub(Ans,4,1)+sub(Str1,49,15)+sub(Ans,5,1)+sub(Str1,65,15)+sub(Ans,6,1)+sub(Str1,81,15)+sub(Ans,7,1)+sub(Str1,97,15)+sub(Ans,8,1)+sub(Str1,113,15→Str1
:End
:If K=34 and A<55 and not(pxl-Test(A+4,B+7
:Then
:A+1→A
:"
:For(Z,0,15)
:Ans+sub(Str2,pxl-Test(A+7,B+Z)+1,1
:End
:sub(Str1,17,112)+sub(Ans,2,16→Str1
:End
:If K=25 and A and not(pxl-Test(A+2,B+7
:Then
:A-1→A
:"
:For(Z,0,15)
:Ans+sub(Str2,pxl-Test(A,B+Z)+1,1
:End
:sub(Ans,2,16)+sub(Str1,1,112→Str1
:End
:End
Generated by SourceCoder (http://sc.cemetech.net)
© 2005-2010 Cemetech (http://www.cemetech.net)