I haven't Scripted for a few months now. But I'm pretty sure the above has a few issues (output text, and ($parm1 < SECTORS)).
Code:
isnumber $numck $parm1
if ($numck = TRUE)
if ($parm1 > 0) and ($parm1 <= SECTORS)
setvar $s $parm1
GOSUB :SPIT_IT_OUT
elseif ($parm1 = 0)
setvar $s CURRENTSECTOR
GOSUB :SPIT_IT_OUT
end
end
Echo "**"
HALT
:SPIT_IT_OUT
uppercase $parm2
if ($parm2 = "E")
setVar $ERASE TRUE
end
listSectorParameters $s $parms
echo ansi_15 & "**Parameter" & ANSI_7 & "/" & ansi_10 & "Value*"
setVar $b 1
while ($b <= $parms)
if ($ERASE)
setSectorparameter $s $parms[$b] ""
end
getSectorParameter $s $parms[$b] $value
echo ANSI_15 & $parms[$b] & ANSI_7 & "=" & ANSI_10 & $value & "*"
add $b 1
end
RETURN
Was trolling with a case of scriptitis.
Code:
Echo "**!!HAPPY NEW YEAR!!**"