From 0975903757fb90e44cbdbb4c9e70e85dabe8f37f Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Mon, 10 Jul 2017 19:41:23 +0900
Subject: [PATCH] Fix label parsing

---
 SMILEBASIC/builtinfunctions.d | 8 ++++----
 SMILEBASIC/parser.d           | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/SMILEBASIC/builtinfunctions.d b/SMILEBASIC/builtinfunctions.d
index 952113d..f1edba8 100644
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -2296,11 +2296,11 @@ class BuiltinFunction
     }
     static void BGMSTOP(PetitComputer p, int track)
     {
-        writeln("NOTIMPL:BGMSTOP %d", track);
+        writefln("NOTIMPL:BGMSTOP %d", track);
     }
     static void BGMSTOP(PetitComputer p, int track, int fade)
     {
-        writeln("NOTIMPL:BGMSTOP %d,%d", track, fade);
+        writefln("NOTIMPL:BGMSTOP %d,%d", track, fade);
     }
     static int BGMCHK(PetitComputer p)
     {
@@ -2309,11 +2309,11 @@ class BuiltinFunction
     }
     static void BGMSETD(int no, wstring label)
     {
-        writeln("NOTIMPL:BGMSETD %d,%s", no, label);
+        writefln("NOTIMPL:BGMSETD %d,%s", no, label);
     }
     static void BGMSET(int no, wstring mml)
     {
-        writeln("NOTIMPL:BGMSET %d,%s", no, mml);
+        writefln("NOTIMPL:BGMSET %d,%s", no, mml);
     }
     static int CHKCHR(PetitComputer p, int x, int y)
     {
diff --git a/SMILEBASIC/parser.d b/SMILEBASIC/parser.d
index c91d4f2..eb9ce59 100644
--- a/SMILEBASIC/parser.d
+++ b/SMILEBASIC/parser.d
@@ -270,7 +270,7 @@ class Lexical
                 }
                 if (isLabel)
                 {
-                    token = Token(TokenType.Label, TokenValue(iden));
+                    token = Token(TokenType.Label, TokenValue(std.uni.toUpper(iden)));
                 }
                 else
                 {