BASIC, bc, Cobol, csh, Erlang, Forth, Fortran, and Pascal solutions for week 107, part 1

9 files changed, 97 insertions, 0 deletions

diff --git a/challenge-107/abigail/README.md b/challenge-107/abigail/README.md
index 623f2c81c7..035449ae0f 100644
--- a/challenge-107/abigail/README.md
+++ b/challenge-107/abigail/README.md
@@ -29,10 +29,18 @@ the definition of Self-descriptive Number is
 ### Solutions
 * [AWK](awk/ch-1.awk)
 * [Bash](bash/ch-1.awk)
+* [BASIC](basic/ch-1.bas)
+* [bc](bc/ch-1.bc)
 * [Befunge-93](befunge-93/ch-1.bf93)
 * [C](c/ch-1.c)
+* [Cobol](cobol/ch-1.cb)
+* [Csh](csh/ch-1.csh)
+* [Erlang](erlang/ch-1.erl)
+* [Forth](forth/ch-1.fs)
+* [Fortran](fortran/ch-1.fs)
 * [Lua](lua/ch-1.lua)
 * [Node.js](lua/ch-1.js)
+* [Pascal](pascal/ch-1.pl)
 * [Perl](perl/ch-1.pl)
 * [Python](python/ch-1.py)
 * [Ruby](ruby/ch-1.rb)
diff --git a/challenge-107/abigail/basic/ch-1.bas b/challenge-107/abigail/basic/ch-1.bas
new file mode 100644
index 0000000000..6f0a11aabb
--- /dev/null
+++ b/challenge-107/abigail/basic/ch-1.bas
@@ -0,0 +1,9 @@
+010 REM 
+020 REM See ../README.md
+030 REM 
+
+040 REM 
+050 REM Run as: basic ch-1.bas
+060 REM 
+
+100 PRINT "1210, 2020, 21200"
diff --git a/challenge-107/abigail/bc/ch-1.bc b/challenge-107/abigail/bc/ch-1.bc
new file mode 100644
index 0000000000..258f8a522d
--- /dev/null
+++ b/challenge-107/abigail/bc/ch-1.bc
@@ -0,0 +1,10 @@
+#
+# See ../README.md
+#
+
+#
+# Run as: bc ch-1.bc
+#
+"1210, 2020, 21200
+"
+quit
diff --git a/challenge-107/abigail/cobol/ch-1.cb b/challenge-107/abigail/cobol/ch-1.cb
new file mode 100644
index 0000000000..c3be4e79a8
--- /dev/null
+++ b/challenge-107/abigail/cobol/ch-1.cb
@@ -0,0 +1,14 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. XXXX.
+
+*>
+*> See ../README.md
+*>
+
+*>
+*> Run as: cobc -xF -o ch-1.o ch-1.cb; ./ch-1.o
+*>
+
+PROCEDURE DIVISION.
+    DISPLAY "1210, 2020, 21200".
+    STOP RUN.
diff --git a/challenge-107/abigail/csh/ch-1.csh b/challenge-107/abigail/csh/ch-1.csh
new file mode 100644
index 0000000000..510f8e2ae4
--- /dev/null
+++ b/challenge-107/abigail/csh/ch-1.csh
@@ -0,0 +1,11 @@
+#!/bin/csh
+
+#
+# See ../README.md
+#
+
+#
+# Run as: csh ch-1.csh
+#
+
+echo "1210, 2020, 21200"
diff --git a/challenge-107/abigail/erlang/ch-1.erl b/challenge-107/abigail/erlang/ch-1.erl
new file mode 100644
index 0000000000..17abba2e3c
--- /dev/null
+++ b/challenge-107/abigail/erlang/ch-1.erl
@@ -0,0 +1,15 @@
+%
+% See ../README.md
+%
+
+%
+% Run as: ln ch-1.erl ch1.erl
+%         erl -compile ch1
+%         erl -noshell -s ch1 main -s init stop
+%
+
+-module (ch1).
+-export ([main/0]).
+
+main () ->
+    io:fwrite ("1210, 2020, 21200\n").
diff --git a/challenge-107/abigail/forth/ch-1.fs b/challenge-107/abigail/forth/ch-1.fs
new file mode 100644
index 0000000000..022fe0f6cc
--- /dev/null
+++ b/challenge-107/abigail/forth/ch-1.fs
@@ -0,0 +1,5 @@
+\
+\ See ../README.md
+\
+
+.( 1210, 2020, 21200)
diff --git a/challenge-107/abigail/fortran/ch-1.f90 b/challenge-107/abigail/fortran/ch-1.f90
new file mode 100644
index 0000000000..70a7ad8707
--- /dev/null
+++ b/challenge-107/abigail/fortran/ch-1.f90
@@ -0,0 +1,12 @@
+!
+! See ../README.md
+!
+
+!
+! Run as: gfortran -o ch-1.o ch-1.f90; ./ch-1.o
+!
+
+program ch1
+    implicit none
+    write(*, *) "1210, 2020, 21200"
+end
diff --git a/challenge-107/abigail/pascal/ch-1.p b/challenge-107/abigail/pascal/ch-1.p
new file mode 100644
index 0000000000..b24ebeab57
--- /dev/null
+++ b/challenge-107/abigail/pascal/ch-1.p
@@ -0,0 +1,13 @@
+Program SelfDescribing;
+
+(*                  *)
+(* See ../README.md *)
+(*                  *)
+
+(*                                           *)
+(* Run as: fpc -och-1.out ch-1.p; ./ch-1.out *)
+(*                                           *)
+
+begin
+    writeln ('1210, 2020, 21200');
+end.