v3.10

* Implements most of the following BASIC dialects:
    OPTION VERSION DARTMOUTH        ' Dartmouth DTSS BASIC
    OPTION VERSION MARK-I           ' GE 265 Mainframe BASIC
    OPTION VERSION MARK-II          ' GE 435 Mainframe BASIC
    OPTION VERSION SYSTEM-360       ' IBM System/360 BASIC
    OPTION VERSION SYSTEM-370       ' IBM System/370 BASIC
    OPTION VERSION CBASIC-II        ' CBASIC-II for CP/M
    OPTION VERSION ECMA-55          ' ANSI Minimal BASIC
    OPTION VERSION HANDBOOK1        ' The BASIC Handbook, 1st Edition
    OPTION VERSION HANDBOOK2        ' The BASIC Handbook, 2nd Edition
    OPTION VERSION TRS-80           ' TRS-80 Model I/III/4 LBASIC
    OPTION VERSION BASIC-80         ' Microsoft BASIC-80 for Xenix
    OPTION VERSION ECMA-116         ' ANSI Full BASIC
 * from Howard Wulf, AF5NE

.cextrc

@@ -1,31 +0,0 @@
-#
-# File: .cextrc
-#
-#   This config file was generated by version 1.7 of cextract.
-#   Edit carefully.
-#
-#   Created: Sun Jan  4 17:13:28 2015
-#
-cpp-program: /lib/cpp -C
-!merge-output
-dual-output
-extract-only !ansi-code
-doc-only ansi-code
-show-anyway
-extract-only !sort
-doc-only sort-by-files
-wrap-parameters: 0
-tab-width: 8
-!break-after-types
-!first-comments
-!prepend-filename
-extract-only !yank-comments
-doc-only yank-comments
-extract-only statics: none
-doc-only statics: any
-extract-only externs
-doc-only !externs
-single-comments
-define: __CEXTRACT__
-doc-only define: __CEXTDOC__
-#

00INDENT.BAT

@@ -4,7 +4,7 @@ REM   Author:  Howard Wulf, AF5NE
 REM     Date:  2015-01-29
 REM   Uasage:  implementation defined
 REM  Example:
-REM            CD \sdcard\Download\BASIC\bwbasic-2.62\
+REM            CD \sdcard\Download\BASIC\bwbasic\
 REM            00INDENT.BAT
 REM
 call 01indent.bat BWBASIC.C

01INDENT.BAT

@@ -4,7 +4,7 @@ REM   Author:  Howard Wulf, AF5NE
 REM     Date:  2015-01-29
 REM   Uasage:  implementation defined
 REM  Example:
-REM            CD \sdcard\Download\BASIC\bwbasic-2.62\
+REM            CD \sdcard\Download\BASIC\bwbasic\
 REM            01INDENT.BAT bwbasic.c
 REM
 indent.exe %1 -bl -ncdb  -nfc1 -nce -ei

B15A/00test.sh

@@ -0,0 +1,86 @@
+# Puropose:  Verify existing BWBASIC behavior
+#   Author:  Howard Wulf, AF5NE
+#     Date:  2014-02-28
+#    Usage:  implementatino defined
+#  Example:
+#            cd /sdcard/Download/BASIC/bwbasic3/bwbtest
+#            ash ./00test.sh
+#
+
+rm *.80
+rm *.OUT
+rm *.LPT
+rm *.dif
+
+# ----------------------------------------------
+# Regression Tests
+# ----------------------------------------------
+testcase()
+{
+   TESTCASE=${1}
+   echo "TESTCASE=${TESTCASE}"
+   ~/bwbasic --tape ${TESTCASE}.INP --profile BW.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT
+   
+   
+   echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP
+   ~/bwbasic --profile BYWATER.PRO PAD80.BAS
+
+
+   diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif
+   if test -s  ${TESTCASE}.dif
+   then
+      echo    less ${TESTCASE}.dif
+   fi
+}
+
+# ---------------------------------------------
+echo "OPTION VERSION BYWATER" > BW.PRO
+
+
+echo "OPTION VERSION BYWATER" > BYWATER.PRO
+echo "OPTION LABELS OFF"     >> BYWATER.PRO
+
+testcase abs
+testcase assign
+testcase callfunc
+testcase callsub
+testcase chain1
+testcase chain2
+testcase dataread
+testcase deffn
+testcase dim
+testcase doloop
+testcase dowhile
+testcase elseif
+testcase end
+testcase err
+testcase fncallfn
+testcase fornext
+testcase function
+testcase gosub
+testcase gotolabl
+testcase ifline
+testcase input
+testcase lof
+testcase loopuntl
+testcase main
+testcase mlifthen
+testcase on
+testcase onerr
+testcase onerrlbl
+testcase ongosub
+testcase opentest
+testcase option
+testcase pascaltr
+testcase putget
+testcase random
+testcase selcase
+testcase snglfunc
+testcase stop
+testcase term
+testcase whilwend
+testcase width
+testcase writeinp
+# ----------------------------------------------
+# EOF
+# ----------------------------------------------

B15A/01test.sh

@@ -0,0 +1,20 @@
+# Filename:  01test.sh
+#  Purpose:  automted regression review
+#   Author:  Howard Wulf, AF5NE
+#     Date:  2015-01-29
+#   Uasage:  implementation defined
+#  Example:
+#            cd /sdcard/Download/BASIC/bwbasic/NBS2
+#            ash ./01test.sh
+#
+#
+
+# review ERRORS
+cat *.dif > dif.OUT
+if test -s  dif.OUT
+then
+    less dif.OUT
+fi
+# ----------------------------------------------
+# EOF
+# ----------------------------------------------

B15A/99test.sh

@@ -0,0 +1,17 @@
+# Puropose:  Cleanup after tests have passed
+#   Author:  Howard Wulf, AF5NE
+#     Date:  2014-03-28
+#    Usage:  implementatino defined
+#  Example:
+#            cd /sdcard/Download/BASIC/bwbasic3/BP100
+#            ash ./99test.sh
+#
+
+rm *.80
+rm *.OUT
+rm *.LPT
+rm *.dif
+
+# ----------------------------------------------
+# EOF
+# ----------------------------------------------

B15A/bwbasic.pro

@@ -0,0 +1 @@
+OPTION VERSION BYWATER

B15A/callfunc.bas

@@ -0,0 +1,39 @@
+
+rem ----------------------------------------------------
+rem CallFunc.BAS
+rem ----------------------------------------------------
+
+Print "CallFunc.BAS -- Test BASIC User-defined Function Statements"
+Print "The next printed line should be from the Function."
+Print
+testvar = 17
+
+x = TestFnc( 5, "Hello", testvar )
+
+Print
+Print "This is back at the main program. "
+Print "The value of variable <testvar> is now "; testvar
+Print "The returned value from the function is "; x
+
+Print "Did it work?"
+End
+
+rem ----------------------------------------------------
+rem Subroutine TestFnc
+rem ----------------------------------------------------
+
+Function TestFnc( xarg, yarg$, tvar )
+   Print "This is written from the Function."
+   Print "The value of variable <xarg> is"; xarg
+   Print "The value of variable <yarg$> is "; yarg$
+   Print "The value of variable <tvar> is "; tvar
+   tvar = 99
+   Print "The value of variable <tvar> is reset to "; tvar
+   TestFnc = xarg + tvar
+   rem
+   rem The following is considered a recursive call:
+   rem Print "The Function should return "; TestFnc
+   rem Instead of using the above, use the following:
+   Result = xarg + tvar
+   Print "The Function should return "; Result
+End Function

B15A/err.run

@@ -0,0 +1,5 @@
+                                                                                
+ERROR in line 20: Subscript out of range                                        
+                                                                                
+STACK TRACE:                                                                    
+20:print n(7)                                                                   

B15A/function.INP

@@ -0,0 +1,3 @@
+c
+A
+B

B15A/function.run

@@ -0,0 +1,47 @@
+ABS(-2.2):  2.2                                                                 
+DATE$: <01/21/2016>                                                             
+TIME$: <20:51:36>                                                               
+ATN(-2.2): -1.14417                                                             
+COS(-2.2): -.588501                                                             
+LOG(2.2):  .788457                                                              
+SIN(-2.2): -.808496                                                             
+SQR(2.2):  1.48324                                                              
+TAN(-2.2):  1.37382                                                             
+SGN(-2.2): -1                                                                   
+INT(-2.2): -3                                                                   
+Paused? c                                                                       
+RND(-2.2):  .396465                                                             
+CHR$(&h60): `                                                                   
+TAB(52): <                                         >                            
+SPC(5): <     >                                                                 
+SPACE$(5): <     >                                                              
+STRING$(5,X): <XXXXX>                                                           
+MID$(0123456789, 5, 4): <4567>                                                  
+LEFT$(0123456789, 5): <01234>                                                   
+RIGHT$(0123456789, 5): <56789>                                                  
+TIMER:  75096                                                                   
+Paused? A                                                                       
+VAL(X):  0                                                                      
+ERR:  0                                                                         
+ERL:  0                                                                         
+LEN(0123456789):  10                                                            
+CSNG(-2.2): -2.2                                                                
+EXP(-2.2):  .110803                                                             
+INSTR(0123456789, 234):  3                                                      
+STR$(-2.2): <-2.2>                                                              
+HEX$(27): <1B>                                                                  
+Paused? B                                                                       
+OCT$(27): <33>                                                                  
+CINT(-2.2): -2                                                                  
+ASC(0123456789):  48                                                            
+ENVIRON$(PATH): <                                                               
+/data/data/com.pdaxrom.cctools/root/cctools/sbin:/data/data/com.pdaxrom.cctools/
+root/cctools/bin:/system/xbin:/system/bin:/data/data/com.pdaxrom.cctools/root/cc
+tools/bin:/data/data/com.pdaxrom.cctools/root/cctools/sbin:/sbin:/vendor/bin:/sy
+stem/sbin:/system/bin:/system/xbin>                                             
+MKD$(17): <>                                                                    
+MKI$(17): < >                                                                   
+MKS$(17): <>                                                                    
+CVD(MKD$(17)):  17                                                              
+CVS(MKS$(17)):  17                                                              
+CVI(MKI$(17)):  17                                                              

B15A/main.run

@@ -0,0 +1,2 @@
+This is the MAIN subroutine.                                                    
+This should print.                                                              

B15A/profile.bas

@@ -0,0 +1,2 @@
+OPTION VERSION BYWATER
+REM OPTION LABELS OFF

B15A/random.run

@@ -0,0 +1,10 @@
+This is a first sequence of three RND numbers:                                  
+ 4.08989E-2                                                                     
+ .63474                                                                         
+ .63595                                                                         
+This is a second sequence of three RND numbers:                                 
+ .71534                                                                         
+ .317369                                                                        
+ .92797                                                                         
+The second sequence should have been differrent                                 
+from the first.