home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / armforth / !ARMforth / Examples / carpet next >
Encoding:
Text File  |  1990-03-24  |  868 b   |  58 lines
  1. 0 VARIABLE KA
  2. 0 VARIABLE K
  3. 0 VARIABLE JB
  4. 0 VARIABLE JA
  5. 0 VARIABLE IL
  6. 0 VARIABLE IA
  7. 0 VARIABLE SEED
  8. 0 VARIABLE TM
  9.  
  10. : RND
  11.    SEED @ 49 + 255 AND DUP SEED !
  12.    SWAP MOD 1+
  13.    ;
  14.  
  15. : CARPET
  16.    NOWIMPS
  17.    13 MODE
  18.    TIME DUP TM ! 255 AND SEED !
  19.    640 512 ORIGIN
  20.    12 KA !
  21.    BEGIN
  22.       KA @ 40 * 20 + K !
  23.       BEGIN
  24.          63 RND DUP JB !
  25.          JA @ <>
  26.       UNTIL
  27.       JB @ JA !
  28.       3 JA @ GCOL2
  29.       K @ 4/ NEGATE IA !
  30.       BEGIN
  31.          IA @ 4* IL !
  32.          K @ IL @ MOVE
  33.          K @ NEGATE IL @ NEGATE DRAW
  34.          IL @ K @ NEGATE MOVE
  35.          IL @ NEGATE K @ DRAW
  36.          1 IA +!
  37.          IA @ K @ 4/ >
  38.       UNTIL
  39.       -1 KA +!
  40.       KA @ 3 <
  41.    UNTIL
  42.    TIME TM @ - TM !
  43.  (   ." Press Any Key"
  44.    KEY DROP
  45.    WIMPS
  46.    CR ." Time was " TM ? ." centiseconds" CR )
  47.    ;
  48.  
  49. : CAR
  50.    BEGIN
  51.       CARPET
  52.       KEY
  53.       32 =
  54.    UNTIL
  55.    WIMPS
  56.    ;
  57.  
  58.