Can someone help me to translated in PBCC ?

[Stephane Fontaine]

Hey I have an part of pascal code:
I try translated :

SUB DownStack(BYVAL n AS INTEGER)
'Procedure DownStack(n:INTEGER);
'var i: INTEGER;
LOCAL i AS INTEGER
'Begin
IF n < 1 THEN n = 1
'IF n<1 THEN n:=1;
FOR i = n TO %NBSTACK - 1
Stack(i) = Stack(i + 1)
'FOR i:=n TO pred(NBSTACK) DO stack[i]:=stack[i+1];
'fillchar(stack[NBSTACK], SIZEOF(stack[NBSTACK]), 0)
'END;
NEXT
END SUB

Can please someone help me for translated ?

Kind regards
Stephane




------------------
Brainsoft Programmers

[Tom Hanlin]

Close.

[b]SUB DownStack(BYVAL n AS LONG)[/b]
'Procedure DownStack(n:INTEGER);
'var i: INTEGER;
[b]LOCAL i AS LONG[/b]
'Begin
IF n < 1 THEN n = 1
'IF n<1 THEN n:=1;
FOR i = n TO %NBSTACK - 1
Stack(i) = Stack(i + 1)
'FOR i:=n TO pred(NBSTACK) DO stack[i]:=stack[i+1];
'fillchar(stack[NBSTACK], SIZEOF(stack[NBSTACK]), 0)
'END;
NEXT
[b]stack(%NBSTACK) = 0[/b]
END SUB

It would be simpler to use ARRAY DELETE, though.


------------------
Tom Hanlin
PowerBASIC Staff