From 8ecb8e35eb1f9d28e39b9f0d688a495af67aef6c Mon Sep 17 00:00:00 2001
From: Andy McFadden <fadden@fadden.com>
Date: Sun, 27 Oct 2019 08:03:28 -0700
Subject: [PATCH] Fix INSTR( token in Apple /// Business BASIC

Should be "INSTR(" rather than "INSTR$(".  Fixes issue #38.
---
 reformat/BASIC.cpp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/reformat/BASIC.cpp b/reformat/BASIC.cpp
index bb2a239..565b900 100644
--- a/reformat/BASIC.cpp
+++ b/reformat/BASIC.cpp
@@ -607,7 +607,7 @@ static const char gExtendedBusinessTokens[128*10] = {
 /* 0xb8 */ "*error*\0  *error*\0  *error*\0  *error*\0  *error*\0  *error*\0  *error*\0  *error*\0  "
 /* 0xc0 */ "*error*\0  *error*\0  *error*\0  STR$(\0    HEX$(\0    CHR$(\0    LEN(\0     VAL(\0     "
 /* 0xc8 */ "ASC(\0     TEN(\0     *error*\0  *error*\0  CONV(\0    CONV&(\0   CONV$(\0   CONV%(\0   "
-/* 0xd0 */ "LEFT$(\0   RIGHT$(\0  MID$(\0    INSTR$(\0  *error*\0  *error*\0  *error*\0  *error*\0  "
+/* 0xd0 */ "LEFT$(\0   RIGHT$(\0  MID$(\0    INSTR(\0   *error*\0  *error*\0  *error*\0  *error*\0  "
 /* 0xd8 */ "*error*\0  *error*\0  *error*\0  *error*\0  *error*\0  *error*\0  *error*\0  *error*\0  "
 /* 0xe0 */ "*error*\0  *error*\0  *error*\0  *error*\0  *error*\0  *error*\0  *error*\0  *error*\0  "
 /* 0xe8 */ "*error*\0  *error*\0  *error*\0  *error*\0  *error*\0  *error*\0  *error*\0  *error*\0  "
@@ -738,7 +738,7 @@ int ReformatBusiness::Process(const ReformatHolder* pHolder,
                         (*srcPtr == 0xd0) ||    // LEFT$(
                         (*srcPtr == 0xd1) ||    // RIGHT$(
                         (*srcPtr == 0xd2) ||    // MID$(
-                        (*srcPtr == 0xd3))      // INSTR$(
+                        (*srcPtr == 0xd3))      // INSTR(
                         firstData = true;
                     else
                         firstData = false;