2016 Update

Task/Dutch-national-flag-problem/ZX-Spectrum-Basic/dutch-national-flag-problem.zx

@@ -0,0 +1,14 @@
+10 LET r$="Red": LET w$="White": LET b$="Blue"
+20 LET c$="RWB"
+30 DIM b(10)
+40 PRINT "Random:"
+50 FOR n=1 TO 10
+60 LET b(n)=INT (RND*3)+1
+70 PRINT VAL$ (c$(b(n))+"$");" ";
+80 NEXT n
+90 PRINT ''"Sorted:"
+100 FOR i=1 TO 3
+110 FOR j=1 TO 10
+120 IF b(j)=i THEN PRINT VAL$ (c$(i)+"$");" ";
+130 NEXT j
+140 NEXT i