Можно ли вызвать процедуру внутри процедуры, и если да, то как? (Тьюринг)

Question

Я сделал процедуру пишущей машинки для одной из моих программ в Turing, но мне нужно, чтобы она была другим шрифтом. Я попробовал Font.Draw, но так как это процедура, она не позволяет мне использовать ее внутри Proc для пишущей машинки. Это можно обойти?

var chars : array char of boolean 
var font : int

font := Font.New("Pokemon GB:18")

proc TypewriterPrint(text : string) 
loop 
  for i : 1..length(text) 
  Input.KeyDown (chars) 
 if chars (KEY_ENTER) then 
    delay(50) 
    put text(i) .. 
 else
  delay(100) 
  put text(i) .. 
 end if 
 end for 
 put "" 
end loop 
end TypewriterPrint 

Font.Draw (TypewriterPrint("This will be printed like a typewriter"), 150, 150, font, black)

Я пробовал функции, но это тоже не работает.

Answer 1

Вы бы назвали это так же, как вы вызываете обычную процедуру. Просто создайте первую процедуру вне всего, создайте вторую процедуру вне первой и вызовите первую процедуру из второй.