www.jupiter-ace.co.uk

Previous Page > Listings Index > Ace VOCAB Select

  Ace VOCAB Select listing from Personal Computing World April 1983


ACE VOCAB SELECT
Users of the Jupiter Ace will find that when using VLIST their latest words rapidly scroll off the top of the screen to make room for the standard Forth vocabulary.

The following word, LISTV, lists only the user defined words
after clearing the screen, ending with the latest:
LISTV occupies 84 bytes (82 if CLS omitted), not including comments. I find it invaluable, using it frequently with REDEFINE and FORGET to edit the vocabulary.

John M Dixon 
: LISTV
  CLS HERE 15440         (limits of user vocab.)
  DO
   I C@ DUP 127 AND      (fetch char. and strip
                          inverse bit)
   EMIT 127 >            (print. check if inverse, ie
                          last char.)
   IF
     SPACE I 1+ @ DUP    (fetch length field)
     0=
     IF
       LEAVE             (if 0 last word has been
                          listed)
     THEN
     1+                  (add to length to increment
                          loop index)
   ELSE
     1                   (increment index to next
                          char in name)
   THEN
 +LOOP