.FINDAPPV
ClrHome
{_E9830}^r→P→U

Data(0,0^^r,0^^r,0^^r,0^^r,0)->Str1IN
21→{Str1IN
Fill(+1,8,0

0→I→N
~1→L→Q

NxtAV(

!If LvlOk()
Disp "No level pack",i,"found!
Pause 1800
Return
Else
L++
End

While 1

If P>{_E982E}^r and getKey(1)
P→U
I→N
NxtAV(
ClrHome
End

If I>0 and getKey(4)
{_E9830}^r→P
I--
L--
If I>0
0→N
0→Q
While 1
Next(
N++
LvlOk()+Q→Q
EndIf LvlOk() and (N≥I or (Q≥L))
N→I
Q→L
End
ClrHome
End

Output(0,,"Type:",{P}>Dec
Output(0,+1,"Namelength:",{P-6}>Dec
GtNam(
Output(0,+2,"Name:",Str1IN+1
Pause 225
EndIf getKey(15)
Return

Lbl Next
P-7-{P-6}→P
Return

Lbl NxtAV
While 1
!If P>{_E982E}^r
U→P
N→I
Return
End
Next(
I++
EndIf LvlOk()
L++
Return

Lbl LvlOk
If {P}=21
GtNam(
GetCalc(Str1IN,Y1)
{Y1}^rr=_E4755
Else
0
End
Return

Lbl GtNam
Fill(Str1IN+1,8,0
For(r1,1,{P-6}
{P-6-r1}→{Str1IN+r1
End

Generated by the BBify'r (http://clrhome.org/resources/bbify/)