Index: /Include/basic/command.sbp
===================================================================
--- /Include/basic/command.sbp	(revision 250)
+++ /Include/basic/command.sbp	(revision 251)
@@ -170,5 +170,5 @@
 	FileNumber--
 
-	buffer=ZeroString(GetFileSize(_System_hFile[FileNumber],0))
+	buffer=ZeroString(GetFileSize(_System_hFile[FileNumber],0) + 1)
 
 	i=0
Index: /Include/basic/function.sbp
===================================================================
--- /Include/basic/function.sbp	(revision 250)
+++ /Include/basic/function.sbp	(revision 251)
@@ -810,52 +810,5 @@
 	Else
 		'10進数
-		If buf[0]=&H2D Then
-			'マイナス値
-			i4=1
-			buf++
-		Else
-			'プラス値
-			i4=0
-			If buf[0]=&H2B Then
-				buf++
-			End If
-		End If
-
-		i=0
-
-		While 1
-			'数字以外の文字の場合は抜け出す
-			i3=buf[i]-&H30
-			If Not (0<=i3 And i3<=9) Then Exit While
-
-			i++
-		Wend
-
-		'整数部
-		dbl=1
-		i3=i-1
-		While i3>=0
-			Val += dbl*(buf[i3]-&H30)
-
-			dbl *= 10
-			i3--
-		Wend
-
-		If buf[i]=Asc(".") Then
-			'小数部
-			i++
-			dbl=10
-			While 1
-				'数字以外の文字の場合は抜け出す
-				i3=buf[i]-&H30
-				If Not (0<=i3 And i3<=9) Then Exit While
-
-				Val += (buf[i] - &H30) / dbl
-				dbl *= 10
-				i++
-			Wend
-		End If
-
-		If i4 Then Val=-Val
+		sscanf(buf,"%lf",VarPtr(Val))
 	End If
 End Function
Index: /Include/crt.sbp
===================================================================
--- /Include/crt.sbp	(revision 250)
+++ /Include/crt.sbp	(revision 251)
@@ -57,3 +57,5 @@
 #endif
 
+Declare Function sscanf CDecl Lib _CrtDllName (buffer As PSTR, format As PCSTR, ...) As Long
+
 #endif '_INC_CRT