forked from KolibriOS/kolibrios
10 lines
255 B
FortranFixed
10 lines
255 B
FortranFixed
|
\ $Id: comments.f,v 1.2 2002/06/18 14:50:22 anfilat Exp $
|
|||
|
|
\ <20><><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> :-) (~ruvim)
|
|||
|
|
: (* ( -- )
|
|||
|
|
BEGIN
|
|||
|
|
NextWord DUP 0=
|
|||
|
|
IF NIP REFILL 0= IF DROP TRUE THEN
|
|||
|
|
ELSE S" *)" COMPARE 0= THEN
|
|||
|
|
UNTIL
|
|||
|
|
; IMMEDIATE
|