ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/PROG/MISC/FPCL1_7.ZIP/L4.ZIP/P4-11DC.SEQ

Text File | 1990-04-12 | 170 b | 8 lines

\ Problem 4.11   04/12/90 17:15:32.15

: CLEAR-TABLE   \ Sets all six values of the array TABLE to zero
        TABLE
        12 0 DO DUP I + 0 SWAP ! 2 +LOOP ;