@echo off
rem ****************************
rem Сценарий: fibo_proc.bat
rem Дата создания 7/10/2008
rem Последнее изменение: 7/15/2008
rem Автор: Шашкин Н. С. kolan klmn
rem E-mail: xalava@bk.ru
rem ****************************
rem Описание:  рекурсивная процедура
rem для вычисления чисел Фибоначи.
rem Не вызывайте непосредственно,
rem используйте скрипт fibo
rem Arg1 - номер числа Фибоначи
rem Arg2, Arg3 - последовательно идущие 2 числа Фибоначи
rem ****************************
rem Файлы: может работать ваще без винта
rem ****************************

if %Arg1%==1 goto :EOF
if %Arg1%==2 goto :EOF
set /a Arg1=%Arg1%-1
set /a tmp=%Arg3%
set /a Arg3=%Arg2%+%Arg3%
set /a Arg2=%tmp%
call fibo_proc Arg1 Arg2 Arg3