Missing file from last revision 31

M2000Interpreter · May 24, 2023 · 7d8835e · 7d8835e
1 parent 44e76d5
commit 7d8835e
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/counter.cls b/counter.cls
@@ -136,7 +136,6 @@ Private Function BytesToStr(ab() As Byte) As String
 
 End Function
 Private Function TaskInterface_Tick() As Boolean
-
  Dim X As Integer, mycnt As Long
 Dim lpBuffer(2048) As Byte
 On Error GoTo there

diff --git a/pic.bas b/pic.bas
@@ -372,7 +372,7 @@ Public Function MaskLowLongLong() As Variant
 End Function
 Public Function Signed(A) As Long
     Dim p
-    p = CDec(Int(A))
+    p = Fix(CDec(A))
     Signed = MemLong(VarPtr(p) + 8)
 End Function
 Public Function UnsignedSub(A As Long, b As Long)