\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=MzEdit
\FILE=MZEDIT.85P
:ClLCD
:ClDrw
:FnOff 
:CoordOff
:AxesOff
:InpST "New? ",NEW
:If NEW=="Y"
:Then
:{17,17}\->\dim MZ
:Fill(1,MZ)
:End
:Lbl OW
:Input "Start x: ",X
:Input "Start y: ",Y
:InpST "Direction: ",E
:If E=="S"
:1\->\D
:If E=="E"
:2\->\D
:If E=="N"
:3\->\D
:If E=="W"
:4\->\D
:D\->\MZ(1,3)
:If X>17 or X<0 or iPart X\<>\X or Y>17 or Y<0 or iPart Y\<>\Y
:Goto OW
:X\->\MZ(1,2)
:Y\->\MZ(1,1)
:0\->\MZ(Y,X)
:0\->\xMin
:18\->\xMax
:0\->\yMin
:62/3\->\yMax
:For(V,0,17)
:Line(V,0,V,17)
:Line(0,V,17,V)
:End
:For(R,1,17)
:For(C,1,17)
:If MZ(R,C)==0
:Then
:For(P,C-1,C,\Delta-x\)
:Line(P,R-1,P,R)
:End
:End
:End
:End
:PtOff(X-.5,Y-.5)
:Lbl CYC
:Input 
:iPart x+1\->\X
:iPart y+1\->\Y
:If X>17 or Y>17
:Then
:CoordOn
:AxesOn
:FnOn 
:Stop
:End
:If X\>=\16 or X\<=\2 or Y\>=\16 or Y\<=\2
:Goto CYC
:MZ(Y,X)\->\S
:If S==1
:Then
:0\->\MZ(Y,X)
:For(P,X-1,X,\Delta-x\)
:Line(P,Y-1,P,Y)
:End
:End
:If S==0
:Then
:1\->\MZ(Y,X)
:For(P,X-1+\Delta-x\,X-\Delta-x\,\Delta-x\)
:PtOff(P,Y-1+\Delta-y\)
:PtOff(P,Y-1+2*\Delta-y\)
:End
:End
:Goto CYC
\STOP85\