Add files via upload

READMEFIRST

@@ -0,0 +1,56 @@
+4-16-2020
+
+This should work under most any Linux and Linux under
+WSL (Ubuntu, Debian) for windows at the command prompt.
+
+If running this under Linux you will need 'gcc' compiler.
+To see if it's installed type in  gcc --version  if OK
+then simply do the following:
+
+tar -xf bwbasic-3.2a.tar
+
+cd <here>
+
+To make 'cls' work as it does in DOS perform once
+
+sudo ln /usr/bin/clear /usr/bin/cls
+
+Now lets build bwbasic
+
+sh compile
+
+Read prompts
+
+That's it.
+
+bwbasic and renum are in /usr/local/bin
+
+If you want bwbasic to work from a GUI:
+(1) copy bwbasic.sh to a suitable location
+    and make sure to  chmod 755 bwbasic.sh
+    so it's executable.
+(2) copy bwbasic.png to a suitable location
+(3) edit bwbasic.desktop and change references
+    for File Location then cp bwbasic.desktop to ~/Desktop/.
+    and it should work from the desktop.
+
+If running under Windows 10 you will need 'gcc' compiler.
+To see if it's installed type in  gcc --version  if you
+think you have gcc installed verify your 'path'. If OK
+then at the command prompt
+
+cd <here>
+
+compile.bat
+
+Read prompts
+
+That's it.
+
+Move bwbasic.exe and renum.exe to locations in your path.
+
+There are many, many examples in BAS-EXAMPLES and information
+in INFO.
+
+All should work fine. But as usual no guarentee is implied.
+

relays.bas

@@ -0,0 +1,91 @@
+    2 rem Relay control program in bwbasic 3.2   4-15-2020 Ken.
+    3 rem As of 4-13-2020 Debian apt get install bwbasic installs an old 2.2.
+    4 rem Assumes bwbasic 3.2. bwbasic 2.2 has issues see changelog.
+    5 rem Download 3.2a tar file. Untar then cd bwbasic-3.2a then sh compile
+    8 rem Set terminal to ANSI mode. Only 3.2 or newer
+   10 option terminal ANSI
+   12 rem Clear screen on initial startup. Only 3.2 or newer
+   15 cls
+   16 print : print "=== Relay games on ";DATE$;" at ";TIME$;" ===" : print " ";
+   17 shell "cat /etc/dogtag"
+   18 print
+   19 rem If an error occurs gosub to line 1000
+   20 on error gosub 1000
+   24 rem b$ = Base address Beaglebone Black Debian 10.3 3-26-2020
+   30 let b$="/sys/class/gpio/gpio"
+   40 call close
+   50 print "0 Off, 1 On, s State, sa State All,";
+   52 print " ao All Off, l Label or x Exit  "; : input m$
+   60 IF m$ = "0" or m$ = "1" or m$ = "l" or m$ = "s" then goto 70
+   63 IF m$ = "x" or m$ = "e" then end : rem Stop program
+   64 IF m$ = "sa" then gosub 500 : goto 16 : rem State all
+   65 IF m$ = "ao" then gosub 600 : goto 16 : rem All Relays off
+   66 print "Mode error. Only 0, 1, s, l, ao All Off, sa State All ";
+   67 print "or x allowed" : goto 50
+   70 print "Relay # = gpio: 1 = 20, 2 = 7, 3 = 112, 4 = 115 or r to Return. ";
+   71 print "Enter gpio # ";
+   72 input s$
+   75 IF s$ = "20" or s$ = "7" or s$ = "112" or s$ = "115" then goto 80
+   76 IF s$ = "r" then goto 16 : rem Start over
+   78 print "Relay gpio number error. Only 20, 7, 112, 115 or r" : goto 70
+   80 print
+   82 IF m$ = "l" then gosub 400 : goto 16 :         rem     l = Label
+   84 IF m$ = "s" then gosub 300 : print : goto 16 : rem     s = State
+   86 IF m$ = "0" or m$ = "1" then gosub 100 : goto 16 : rem Change Relay state
+   90 print : print "Error. Code fall through at line 90" : print : end
+  100 rem Change state of a Relay.
+  101 rem p$ = Complete address to gpio. b$ is the Base + gpio# + end of string
+  102 let p$=b$ + s$ + "/value"
+  110 call open("O",#1,p$) : rem Open for Output and write m$
+  150 print #1,m$ : rem          Print to gpio string m$
+  160 call close(#1)
+  210 call open("I",#1,p$) : rem  Open for Input
+  250 read #1,x : rem             Read numeric result
+  255 call close(#1)
+  256 IF s$ = "20"  then print "#1 ";
+  257 IF s$ = "7"   then print "#2 ";
+  258 IF s$ = "112" then print "#3 ";
+  259 IF s$ = "115" then print "#4 ";
+  260 gosub 700
+  299 return
+  300 rem p$ = Complete address to gpio. b$ is the Base + gpio# + end of string
+  304 let p$=b$ + s$ + "/value"
+  310 call open("I",#1,p$) : rem Open for Input
+  350 read #1,x : rem Read numeric result
+  355 call close(#1)
+  360 gosub 700
+  396 return : rem Start over
+  400 rem p$ = Complete address to gpio. b$ is the Base + gpio# + end of string
+  404 let p$=b$ + s$ + "/label"
+  410 call open("I",#1,p$)
+  420 read #1,l$
+  425 call close(#1)
+  430 print "Label for gpio ";s$;" is ";l$
+  440 return
+  500 rem Display the state of all Relays 'sa'
+  505 print
+  510 let s$ = "20" :  print "#1 "; : gosub 300
+  520 let s$ = "7"   : print "#2 "; : gosub 300
+  530 let s$ = "112" : print "#3 "; : gosub 300
+  540 let s$ = "115" : print "#4 "; : gosub 300
+  550 return
+  600 rem Turn all Relays off 'ao'
+  610 print
+  612 let m$ = "0"   : rem Set mode to '0' off
+  620 let s$ = "20"  : gosub 100
+  624 let s$ = "7"   : gosub 100
+  626 let s$ = "112" : gosub 100
+  628 let s$ = "115" : gosub 100
+  630 return
+  700 rem Print relay state gathered from 'read'
+  704 print "Relay gpio ";s$," state is now = ";x;
+  770 IF x = 0 then print " Off"
+  780 IF x = 1 then print " On"
+  790 IF x > 1 or x < 0 then print " Error"
+  799 return
+  999 rem Trap errors here. Hopefuly you will not get here.
+ 1000 print : print "Error code ";err;" Error line ";erl
+ 1040 print
+ 1060 rem CLOSE will fail on 2.2 and loop but not 3.2+
+ 1070 call close : rem Just in case something is open.
+ 1100 end : rem Stop program