#
# test2.pasm
#
# Copyright (C) 2001 The Parrot Team. All rights reserved.
# This program is free software. It is subject to the same
# license as The Parrot Interpreter.
#
# $Id: test2.pasm,v 1.5 2001/10/03 17:30:41 gregor Exp $
#

        set_i_ic I2, 1
        set_i_ic I1, 0
        set_s_sc S1, "Hello World"
        set_i_ic I3, 0
        set_i_ic I4, 0
        length_i_s I5, S1
WAX:    substr_s_s_i S2, S1, I3, I4
        print_s S2
        add_i I4, I4, I2
        eq_i_ic I4, I5, WANE
	branch WAX
WANE:   length_i_s I1, S1
        print_s S1
        chopn_s_ic S1, 1
        eq_i_ic I1, I3, DONE
	branch WANE
DONE:   end