Quark-forth code

" kernel32.dll" LOADLIBRARY
" GetTickCount" GETPROCADDRESS CONSTANT 'GetTickCount

: GetTickCount \ ( -- ticks )
'GetTickCount API0 ;

VARIABLE RND

: RANDOMIZE GetTickCount RND ! ;
RANDOMIZE

: SGN \ ( u -- -1 | 0 | 1 )
DUP 0 = IF ELSE
DUP 0 MAX 0 = IF DROP -1 ELSE
1 THEN THEN ;

: NEGATE \ ( x -- -x )
0 SWAP - ;

: ABS \ ( x -- u )
DUP SGN -1 = IF NEGATE THEN ;


: RANDOM \  ( -- u )
RND @ 69069 * 31415 + 278720333 MOD DUP RND ! ;

: CHOOSE  \ ( u1 -- u2 )
   278720333 SWAP /
   RANDOM ABS SWAP /
;


CLS

: block 100 0 DO
100 0 DO
I J 200 PIXEL
LOOP LOOP ;

: pikcha 100 0 DO
100 0 DO
I J 100 CHOOSE PIXEL
LOOP LOOP ;
pikcha