equal
deleted
inserted
replaced
333 index, nextIndex: LongInt; |
333 index, nextIndex: LongInt; |
334 wrongParameter: boolean; |
334 wrongParameter: boolean; |
335 //var tmpInt: LongInt; |
335 //var tmpInt: LongInt; |
336 begin |
336 begin |
337 |
337 |
338 paramIndex:= 1; |
338 paramIndex:= {$IFDEF HWLIBRARY}0{$ELSE}1{$ENDIF}; |
339 paramTotal:= ParamCount; //-1 because pascal enumeration is inclusive |
339 paramTotal:= ParamCount; //-1 because pascal enumeration is inclusive |
340 (* |
340 (* |
341 WriteLn(stdout, 'total parameters: ' + inttostr(paramTotal)); |
341 WriteLn(stdout, 'total parameters: ' + inttostr(paramTotal)); |
342 tmpInt:= 0; |
342 tmpInt:= 0; |
343 while (tmpInt <= paramTotal) do |
343 while (tmpInt <= paramTotal) do |