Initial data commit

Task/Ordered-words/BBC-BASIC/ordered-words.basic

@@ -0,0 +1,19 @@
+      dict% = OPENIN("unixdict.txt")
+      IF dict%=0 ERROR 100, "Failed to open dictionary file"
+
+      max% = 2
+      REPEAT
+        A$ = GET$#dict%
+        IF LENA$ >= max% THEN
+          i% = 0
+          REPEAT i% += 1
+          UNTIL ASCMID$(A$,i%) > ASCMID$(A$,i%+1)
+          IF i% = LENA$ THEN
+            IF i% > max% max% = i% : list$ = ""
+            list$ += A$ + CHR$13 + CHR$10
+          ENDIF
+        ENDIF
+      UNTIL EOF#dict%
+      CLOSE #dict%
+      PRINT list$
+      END