CLS RANDOMIZE TIMER n% = 10 m% = 0 DIM z%(1 TO n%) 'array mit nullen auffllen FOR u% = 1 TO n% z%(u%) = INT(RND * 3) NEXT u% COLOR 10 FOR i% = 1 TO n% PRINT z%(i%); NEXT i%