Petitverse

やっとREPEAT命令をLOGO坊もどきに追加しましたが、REPEAT命令の中でREPEAT命令を使う事ができません。
と言うのも、どこからどこまでをREPEATするのかの判別を上手くさせる方法が分かりません
下に今のプログラムを貼っておくので、わかるひと教えて下さい。
ちなみに公開キーもあります
公開キー:CKXNEJQF
(前略)
@INPUT
LINPUT ">";PRG$
@READ
CLS
IF PRG$=="" THEN GOTO @INPUT
I=INSTR(PRG$," ")
IF I==-1 THEN A$=PRG$ PRG$="" GO TO @JUDG
A$==LEFT$(PRG$,I)
PRG $=SUBST$(PRG$,0,I+1,"")

@JUDG
(中略)
IF A$=="REPEAT" THEN GOSUB @JUDG GOTO @READ
?"構文エラー"
GO TO @INPUT

@REPART
IF PRG$=="" THEN ?"構文エラー"　GOTO @READ
I=INSTR(PRG$," ")
IF I==-1 THEN ?"構文エラー" GOTO @READ
IF I!=-1 THEN NUM=VAL(LEFT$(PRG$,I)) PRG$=SUBST$(PRG$,0,I+1,"")
S=INSTR(PRG$,"[")
E=INSTR(PRG$,"]")
IF S==-1 or E==-1 THEN ?"構文エラー"　GOTO @READ
PRG$[0]="":PRG$[E-1]=""
REPEAT$=LEFT$(PRG$,E-S)
PUSH REPEAT$," "
FOR I=2 TO NUM
UNSHIFT PRG$,REPEAT$
NEXT
RETURN
(後略)