  ,     QGen:
--------------------------------------------------------------------

    "#",     .    ,     "-",     ,   (   ).       "#"  ..

PS: 1)       ""!!!
    2)     __ .

 (    -   ):
-------------------------------------------------------------

#
	*pl 'It''s only test of new utility.'
	*pl 'That is all.'
	act '':
		goto 'next'
	end
- ( )

#next
	$s='   .'
	i=0
	:loop
		i=i+1
		*p mid($s,i,1)
		wait 200
	if i<len($s):jump 'loop'
	*nl & *p ' .'
-