; Створення та використання функцій прямо у тілі скрипта
$S=@Dialog.Ask Введіть число DEFAULT=2
@Breakif $S
; Виклик функції квадрату
$Q=@Function Sqr $S
; Виклик функції квадратного кореня
$T=@Function Sqrt $S
@Dialog.Message Квадрат числа $S дорівнює $Q, а корінь $T
;
; Опис функцій, які викликаються командою @Function
;
%Function Sqr
$Result=$Parameters*$Parameters
;
%Function Sqrt
@If $Parameters<0 then {@Dialog.Error Помилка: Від'ємне значеня $Parameters у функції квадратного кореня; @Break} 
$Result=@Calc Sqrt($Parameters)