home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / forth / !FORTH / TestProgs / dotS < prev    next >
Encoding:
Text File  |  1990-05-02  |  146 b   |  6 lines
  1. PRINT_MODE DUP @ 1 OR SWAP !
  2. : .S DUP 'S S0 @ 4- DO I> @ . -4 +LOOP DROP ;
  3. : C.S DUP 'S S0 @ 4- DO I> C@ . -1 +LOOP DROP ;
  4. 1 2 3 4 .S
  5. 1 2 3 4 C.S
  6.