From 9feb911a95bd4dc9bd9c2c6df2f102f1aed66aa9 Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Thu, 8 Dec 2016 23:37:57 +0900
Subject: [PATCH] Fix FORMAT$

---
 SMILEBASIC/builtinfunctions.d | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/SMILEBASIC/builtinfunctions.d b/SMILEBASIC/builtinfunctions.d
index 42cb847..ea4717f 100644
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -1448,6 +1448,7 @@ class BuiltinFunction
                     }
                 }
                 int d1, d2 = 6;
+                bool d2f;
                 wstring a1 = format[i..$];
                 if (a1[0] >= '0' && a1[0] <= '9')
                 {
@@ -1459,6 +1460,7 @@ class BuiltinFunction
                     if (a1[0] >= '0' && a1[0] <= '9')
                     {
                         d2 = parse!(int, wstring)(a1);
+                        d2f = true;
                     }
                 }
                 wstring buf;
@@ -1488,7 +1490,8 @@ class BuiltinFunction
                         {
                             auto val = args[j].castInteger;
                             spec.width = d1;
-                            spec.precision = d2;
+                            if (d2f)
+                                spec.precision = d2;
                             spec.flDash = left;
                             spec.flZero = zero;
                             spec.flPlus = sign;