June 2018 Update

Task/Floyds-triangle/BASIC/floyds-triangle-1.basic

@@ -0,0 +1,11 @@
+ 100 :
+ 110  REM  FLOYD'S TRIANGLE
+ 120 :
+ 130  DEF  FN Q(A) =  INT ( LOG (A) /  LOG (10)) + 1
+ 140 N = 14
+ 150  DIM P(N): P(0) =  - 1: FOR J = 1 TO N: I = (N * N - N) / 2 + J
+ 160 P(J) = P(J - 1) + FN Q(I) + 1: NEXT J
+ 200  FOR R = 1 TO N: FOR C = 1 TO R
+ 210 NR = NR + 1:COL = P(C) - ( FN Q(NR) - 1)
+ 220  HTAB COL: PRINT NR;: NEXT C
+ 230  PRINT : NEXT R

Task/Floyds-triangle/BASIC/floyds-triangle-2.basic

@@ -0,0 +1,12 @@
+      n = 14
+      num = 1
+      last = (n^2 - n + 2) DIV 2
+      FOR row = 1 TO n
+        col = last
+        FOR num = num TO num + row - 1
+          @% = LEN(STR$(col)) + 1 : REM set column width
+          PRINT num ;
+          col += 1
+        NEXT
+        PRINT
+      NEXT row