lrcvs
Member
Posts: 56


« on: August 24, 2009, 06:26:16 AM » 

Program of ordination or classification 3D
Name: "CLASS 3D"
lrcvs 24.08.09
( Is limited, but...power)
CLS
DIM a$(9, 9, 9)
FOR n = 1 TO 1000 RANDOMIZE TIMER x$ = LTRIM$(STR$(INT(RND * 999))) IF LEN(x$) < 3 THEN l$ = STRING$(3  (LEN(x$)), "0"): x$ = l$ + x$ a$(VAL(LEFT$(x$, 1)), VAL(MID$(x$, 2, 1)), VAL(RIGHT$(x$, 1))) = x$ NEXT n
FOR x = 0 TO 9 FOR y = 0 TO 9 FOR z = 0 TO 9
IF a$(x, y, z) <> "" THEN PRINT a$(x, y, z); " ";
NEXT z, y, x
