: Specialshow ( -- )              
"" result !              
0 toggle !              
"Magic Talent" 30 left "Allowable Ratings" 30 left strcat .tell              
rpsystem "Jobs/" target @ strcat "/Special" strcat getpropstr dup not if pop "None" .tell exit then              
":" explode repeat !              
0 temp !              
begin              
"" result !              
"/" explode pop              
30 left result @ swap strcat result !              
"`" explode max !              
0 target !              
begin              
    ", " strcat              
    result @ swap strcat result !              
    target @ 1 + target !              
    target @ max @ =              
until              
result @ strlen 2 - result @ swap strcut pop .tell              
temp @ 1 + temp ! temp @ repeat @ =              
until              
;              

: info ( s -- )
0 toggle !
"" result !
dup not if "Type +jobinfo (Job)" .tell pop exit then
target !
rpsystem "Jobs/" target @ strcat "/Desc" strcat getpropstr "Info for " target @ strcat ": " strcat swap strcat .tell
"Requirements" 75 center .tell
"Job" 15 left "Lv." 4 left strcat dup strcat .tell
rpsystem "Jobs/" target @ strcat "/Requirement" strcat getpropstr dup not if "None" .tell else
":" explode repeat !
0 temp !
begin
"/" explode pop
15 left swap 3 center strcat " " strcat result @ swap strcat result !
temp @ 2 % if result @ .tell "" result ! then
temp @ 1 + temp ! temp @ repeat @ =
until
result @ if result @ .tell then
"" result !
then
"Basic Skills" 75 center .tell
"Skill Name" 15 left "Cap" 4 left strcat dup strcat .tell
rpsystem "Jobs/" target @ strcat "/Skills" strcat getpropstr dup not if pop exit then
":" explode repeat !
0 temp !
begin
"/" explode pop
15 left swap 3 center strcat " " strcat result @ swap strcat result !
temp @ 2 % if result @ .tell "" result ! then
temp @ 1 + temp ! temp @ repeat @ =
until
result @ if result @ .tell then
SpecialShow
;

: ShowSkills ( -- )
"" result !
0 toggle !
rpsystem "Jobs/Default/Skills" getpropstr dup not if pop exit then
":" explode repeat !
0 temp !
begin
"/" explode pop
skill ! pop target @ skill @ getstat dup not if
    pop
else
    skill @ 20 left swap intostr 3 right " " strcat strcat
    result @ swap strcat result !
    toggle @ 1 + toggle !
    toggle @ 3 = if result @ .tell "" result ! 0 toggle ! then
then
temp @ 1 + temp ! temp @ repeat @ =
until
toggle @ if result @ .tell then
;

: ShowSSkills ( -- )
"" result !
0 toggle !
"^green^Magic Talent" 30 left "^yellow^Rating" 7 center strcat dup strcat .tell
target @ "@rp/special/" nextprop dup not if pop "None" .tell exit then
curprop !
begin
    curprop @ "/" rinstring
    curprop @ swap strcut swap pop
    1 strcut swap TOUPPER swap strcat
    "^Green^" swap strcat 30 left
    target @ curprop @ getpropval intostr
    "^Yellow^" swap strcat 7 center strcat
    result @ swap strcat result !
    toggle @ 1 + toggle !
    toggle @ 2 = if
        result @ .tell
        "" result !
        0 toggle !
    then
    target @ curprop @ nextprop curprop !
    curprop @ not
until
toggle @ if result @ .tell then
;