0 VARIABLE KA
0 VARIABLE K
0 VARIABLE JB
0 VARIABLE JA
0 VARIABLE IL
0 VARIABLE IA
0 VARIABLE SEED
0 VARIABLE TM

: RND
   SEED @ 49 + 255 AND DUP SEED !
   SWAP MOD 1+
   ;

: CARPET
   NOWIMPS
   13 MODE
   TIME DUP TM ! 255 AND SEED !
   640 512 ORIGIN
   12 KA !
   BEGIN
      KA @ 40 * 20 + K !
      BEGIN
         63 RND DUP JB !
         JA @ <>
      UNTIL
      JB @ JA !
      3 JA @ GCOL2
      K @ 4/ NEGATE IA !
      BEGIN
         IA @ 4* IL !
         K @ IL @ MOVE
         K @ NEGATE IL @ NEGATE DRAW
         IL @ K @ NEGATE MOVE
         IL @ NEGATE K @ DRAW
         1 IA +!
         IA @ K @ 4/ >
      UNTIL
      -1 KA +!
      KA @ 3 <
   UNTIL
   TIME TM @ - TM !
 (   ." Press Any Key"
   KEY DROP
   WIMPS
   CR ." Time was " TM ? ." centiseconds" CR )
   ;

: CAR
   BEGIN
      CARPET
      KEY
      32 =
   UNTIL
   WIMPS
   ;

      