Data commit

Task/Stem-and-leaf-plot/ASIC/stem-and-leaf-plot.asic

@@ -0,0 +1,64 @@
+REM Stem-and-leaf plot
+DIM A(120)
+DATA  12, 127,  28,  42,  39, 113,  42,  18,  44, 118,  44,  37, 113, 124
+DATA  37,  48, 127,  36,  29,  31, 125, 139, 131, 115, 105, 132, 104, 123
+DATA  35, 113, 122,  42, 117, 119,  58, 109,  23, 105,  63,  27,  44, 105
+DATA  99,  41, 128, 121, 116, 125,  32,  61,  37, 127,  29, 113, 121,  58
+DATA 114, 126,  53, 114,  96,  25, 109,   7,  31, 141,  46,  13,  27,  43
+DATA 117, 116,  27,   7,  68,  40,  31, 115, 124,  42, 128,  52,  71, 118
+DATA 117,  38,  27, 106,  33, 117, 116, 111,  40, 119,  47, 105,  57, 122
+DATA 109, 124, 115,  43, 120,  43,  27,  27,  18,  28,  48, 125, 107, 114
+DATA  34, 133,  45, 120,  30, 127,  31, 116, 146
+FOR I = 0 TO 120
+  READ A(I)
+NEXT I
+N = 121
+NMin1 = N - 1
+GOSUB LeafPlot:
+END
+
+LeafPlot:
+  GOSUB ShellSortInt:
+  I = A(0) / 10
+  I = I - 1
+  FOR J = 0 TO NMin1
+    D = A(J) / 10
+    WHILE D > I
+      I = I + 1
+      IF J <> 0 THEN
+        PRINT
+      ENDIF
+      SI$ = STR$(I)
+      SI$ = RIGHT$(SI$, 2)
+      PRINT SI$;
+      PRINT " |";
+    WEND
+    AJMod10 = A(J) MOD 10
+    SI$ = STR$(AJMod10)
+    SI$ = RIGHT$(SI$, 2)
+    PRINT SI$;
+  NEXT J
+  PRINT
+RETURN
+
+ShellSortInt:
+  Incr = N / 2
+  WHILE Incr > 0
+    FOR I = Incr TO NMin1
+      J = I - Incr
+      JPlIncr = J + Incr
+      WHILE J >= 0
+        IF A(J) > A(JPlIncr) THEN
+          Tmp = A(J)
+          A(J) = A(JPlIncr)
+          A(JPlIncr) = Tmp
+          JPlIncr = J
+          J = J - Incr
+        ELSE
+          J = -1
+        ENDIF
+      WEND
+    NEXT I
+    Incr = Incr / 2
+  WEND
+RETURN