June 2018 Update

Task/Pascals-triangle/ZX-Spectrum-Basic/pascals-triangle-1.zx

@@ -0,0 +1,24 @@
+ 10 INPUT "How many rows? ";n
+ 15 IF n<1 THEN GO TO 210
+ 20 DIM c(n)
+ 25 DIM d(n)
+ 30 LET c(1)=1
+ 35 LET d(1)=1
+ 40 FOR r=1 TO n
+ 50 FOR i=1 TO (n-r)
+ 60 PRINT " ";
+ 70 NEXT i
+ 80 FOR i=1 TO r
+ 90 PRINT c(i);" ";
+100 NEXT i
+110 PRINT
+120 IF r>=n THEN GO TO 140
+130 LET d(r+1)=1
+140 FOR i=2 TO r
+150 LET d(i)=c(i-1)+c(i)
+160 NEXT i
+165 IF r>=n THEN GO TO 200
+170 FOR i=1 TO r+1
+180 LET c(i)=d(i)
+190 NEXT i
+200 NEXT r

Task/Pascals-triangle/ZX-Spectrum-Basic/pascals-triangle-2.zx

@@ -0,0 +1 @@
+RUN