================
R[hꊇ
CODE
X Y;count=Z;upto;
#X=JnAhX
#Y=ݒl
#Z=ݒoCg
================
tOl
CODE
#Kp͎ɂĎgp

$0 = X
#X=JnAhX

while

if @$0 != 00
break
endif

$0 = $0 + 1

endwhile

@$0 = value < 01
if @$0 == 0
$0 = $0 + 1
@$0 = 01
endif
================
tOl
CODE
#Kp͎ɂĎgp

$0 = X
#X=JnAhX

while

if @$0 != 00
break
endif

$0 = $0 + 1

endwhile

@$0 = value > 01
if @$0 == 0
$0 = $0 - 1
@$0 = 80
endif
