2 files changed, 12 insertions(+), 12 deletions(-)

M .gitignore
M src/main.tal

@@ 1,2 1,3 @@
 bin/
-untitled.orca>
\ No newline at end of file
+untitled.orca
+*snarf<
\ No newline at end of file

@@ 53,6 53,7 @@
 
 %TOGGLE { DUP LDZ #00 = SWP STZ }
 %GET-ITERATORS { SWP2k POP SWP POP }
+%GET-ITER { OVR2 SWP POP OVR SWP }
 
 %LOCKED-TYPE   { #01 } %PORTEL-TYPE   { #02 }
 %OPERATOR-TYPE { #03 } %PORTER-TYPE   { #04 }


@@ 319,10 320,10 @@ BRK
 			&no-open
 		DUP #72 ! ,&no-name JCN
 			#00 ;draw-filepath JSR2 
-		#52 ! ,&no-rename JCN
-			#00 .path/length STZ
-			#0000 .path/name STZ2
-			&no-rename
+			DUP #52 ! ,&no-rename JCN
+				#00 .path/length STZ
+				#0000 .path/name STZ2
+				&no-rename
 			;on-frame-trap .Screen/vector DEO2
 			;on-button-trap .Controller/vector DEO2
 			&no-name


@@ 1005,16 1006,14 @@ RTN
 
 @clear ( -- )
 
-	#00 .grid/height LDZ
+	.grid/height LDZ #00
 	&ver
-		#00 .grid/width LDZ
+		.grid/width LDZ #00
 		&hor
-			GET-ITERATORS CHAR-DOT SET-CELL
-			INCR
-			LTHk ,&hor JCN
+			GET-ITER CHAR-DOT SET-CELL
+			#01 + GTHk ,&hor JCN
 		POP2
-		INCR
-		LTHk ,&ver JCN
+		#01 + GTHk ,&ver JCN
 	POP2
 
 RTN