#SET N$ !N
#PUSH !R
#XPUSH !n $INIT
//MOVEINT !3 TO !1
!A [] $082 !3 !1
#IF (!0>3)
// IF !1 LE !5 GOTO FOR$!r
!A [] $4004 !1 !5 |11 |2
!A [|11] $041 |CL0
#FREF FOR$!r !a
#ENDIF
#$ !A 0 0 0 $041 |CL0
#FREF END$!r !a
#$ BEGIN$!r:
#$ WHILE$!r:
#IF !0=3
#$ !A [] $083 !1
#ELSE
#$ !A [] $083 !1 !5
#$ !A [|122] $041 |CL0
#FREF END$!r !a
#ENDIF
FOR$!r: