KOS_qrcodes/programs/develop/SPForth/devel/~af/lib/comments.f at 87f9ff49e5ddfd4f4e6b58c4a7974fd6ee8a7429 - KOS_qrcodes - KolibriOS git

aabc2/KOS_qrcodes

forked from KolibriOS/kolibrios

Files

T

Leency 09488af869 KolSPForth12 uploaded to SVN

git-svn-id: svn://kolibrios.org@4867 a494cfbc-eb01-0410-851d-a64ba20cac60

2014-04-21 19:22:58 +00:00

10 lines

255 B

FortranFixed

Raw Blame History

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

 \ $Id: comments.f,v 1.2 2002/06/18 14:50:22 anfilat Exp $
 \ ¥é¥ ®¤¨ ¬®£®áâà®çë© ª®¬¥â à¨©  :-) (~ruvim)
 : (*  ( -- )
   BEGIN
     NextWord DUP 0=
     IF  NIP  REFILL   0= IF DROP TRUE THEN
     ELSE  S" *)" COMPARE 0=  THEN
   UNTIL
 ; IMMEDIATE