是否可以在过程中调用过程，如果是，如何调用？ （图灵）

Question

我为Turing中的一个程序制作了打字机程序，但我需要它使用不同的字体。我已经尝试过Font.Draw，但由于这是一个程序，所以我不会让它在Typewriter 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

您可以像调用常规程序一样调用它。只需在所有内容之外创建第一个过程，在第一个过程之外创建第二个过程，然后在第二个过程中调用第一个过程。