Merge pull request #383 from asarhaddon/ada2tco-do

[jackhill/mal.git] / basic / types.in.bas

diff --git a/basic/types.in.bas b/basic/types.in.bas
index cf63927..a5853e1 100644 (file)
--- a/basic/types.in.bas
+++ b/basic/types.in.bas
@@ -221,7 +221,7 @@ SLICE:
   W=R: REM temporary for return as R
   REM advance A to position B
   SLICE_FIND_B:
-    IF I<B AND Z%(A+1)<>0 THEN A=Z%(A,1):I=I+1:GOTO SLICE_FIND_B
+    IF I<B AND Z%(A+1)<>0 THEN A=Z%(A+1):I=I+1:GOTO SLICE_FIND_B
   SLICE_LOOP:
     REM if current position is C, then return
     IF C<>-1 AND I>=C THEN R=W:RETURN