equal
deleted
inserted
replaced
319 index, nextIndex: LongInt; |
319 index, nextIndex: LongInt; |
320 wrongParameter: boolean; |
320 wrongParameter: boolean; |
321 var tmpInt: LongInt; |
321 var tmpInt: LongInt; |
322 begin |
322 begin |
323 |
323 |
324 paramIndex:= 1; |
324 paramIndex:= {$IFDEF HWLIBRARY}0{$ELSE}1{$ENDIF}; |
325 paramTotal:= ParamCount; //-1 because pascal enumeration is inclusive |
325 paramTotal:= ParamCount; //-1 because pascal enumeration is inclusive |
326 |
326 |
327 WriteLn(stdout, 'total parameters: ' + inttostr(paramTotal)); |
327 WriteLn(stdout, 'total parameters: ' + inttostr(paramTotal)); |
328 tmpInt:= 0; |
328 tmpInt:= 0; |
329 while (tmpInt <= paramTotal) do |
329 while (tmpInt <= paramTotal) do |