1 files changed, 100 insertions, 0 deletions
diff --git a/challenge-200/paulo-custodio/basic/ch-2.bas b/challenge-200/paulo-custodio/basic/ch-2.bas
new file mode 100644
index 0000000000..f02f84a487
--- /dev/null
+++ b/challenge-200/paulo-custodio/basic/ch-2.bas
@@ -0,0 +1,100 @@
+' Challenge 200
+'
+' Task 2: Seven Segment 200
+' Submitted by: Ryan J Thompson
+' A seven segment display is an electronic component, usually used to display
+' digits. The segments are labeled 'a' through 'g' as shown:
+'
+'
+' Seven Segment
+'
+'
+' The encoding of each digit can thus be represented compactly as a truth table:
+'
+' my @truth = qw<abcdef bc abdeg abcdg bcfg acdfg acdefg abc abcdefg abcfg>;
+' For example, $truth[1] = ‘bc’. The digit 1 would have segments ‘b’ and ‘c’ enabled.
+'
+' Write a program that accepts any decimal number and draws that number as a
+' horizontal sequence of ASCII seven segment displays, similar to the following:
+'
+'
+' -------  -------  -------
+'       |  |     |  |     |
+'       |  |     |  |     |
+' -------
+' |        |     |  |     |
+' |        |     |  |     |
+' -------  -------  -------
+' To qualify as a seven segment display, each segment must be drawn (or not drawn)
+' according to your @truth table.
+'
+' The number "200" was of course chosen to celebrate our 200th week!
+
+const a as integer = 1
+const b as integer = 2
+const c as integer = 4
+const d as integer = 8
+const e as integer = 16
+const f as integer = 32
+const g as integer = 64
+
+dim shared truth(9) as integer
+truth(0)=a+b+c+d+e+f
+truth(1)=b+c
+truth(2)=a+b+d+e+g
+truth(3)=a+b+c+d+g
+truth(4)=b+c+f+g
+truth(5)=a+c+d+f+g
+truth(6)=a+c+d+e+f+g
+truth(7)=a+b+c
+truth(8)=a+b+c+d+e+f+g
+truth(9)=a+b+c+f+g
+
+sub draw_number(n as integer)
+    dim s as string, i as integer, j as integer, digit as integer
+
+    s=trim(str(n))
+
+    ' draw a
+    for i=1 to len(s)
+        digit=val(mid(s,i,1))
+        if (truth(digit) and a)=a then print " ####   "; else print "        ";
+    next
+    print
+    ' draw f, b
+    for j=1 to 2
+        for i=1 to len(s)
+            digit=val(mid(s,i,1))
+            if (truth(digit) and f)=f then print "#"; else print " ";
+            print "    ";
+            if (truth(digit) and b)=b then print "#"; else print " ";
+            print "  ";
+        next
+        print
+    next
+    ' draw g
+    for i=1 to len(s)
+        digit=val(mid(s,i,1))
+        if (truth(digit) and g)=g then print " ####   "; else print "        ";
+    next
+    print
+    ' draw e, c
+    for j=1 to 2
+        for i=1 to len(s)
+            digit=val(mid(s,i,1))
+            if (truth(digit) and e)=e then print "#"; else print " ";
+            print "    ";
+            if (truth(digit) and c)=c then print "#"; else print " ";
+            print "  ";
+        next
+        print
+    next
+    ' draw d
+    for i=1 to len(s)
+        digit=val(mid(s,i,1))
+        if (truth(digit) and d)=d then print " ####   "; else print "        ";
+    next
+    print
+end sub
+
+draw_number(val(command(1)))