#
# 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