pick - 如何运行带参数的程序（Pick BASIC）

Question

在 Pick BASIC 源代码中，我看到诸如

CALL SOMEPROGRAM (PARAM1, PARAM2)

如何从 TCL 命令提示符调用同一行？我尝试了以下变体，但似乎没有任何效果。

SOMEPROGRAM ('1','2')

我发现的唯一方法是使用单行命令编写和编译程序，然后运行该程序。

标签： pick

Answer 1

如果这是你的日常：

SUBROUTINE REALPROG(A,B)
PRINT "A is ":A
PRINT "B is ":B
END

要从命令行调用它，您将构建此例程：

PROGRAM WRAPPERPROG
COMMAND.RECEIVED = SENTENCE()
VAR1 = FIELD(COMMAND.RECEIVED,' ',2)
VAR2 = FIELD(COMMAND.RECEIVED,' ',3)
CALL REALPROG(VAR1, VAR2)
END

假设您从 TCL/ECL 命令行键入：

WRAPPERPROG DOG CAT

VAR1 是 DOG，VAR2 是 CAT

...并会使用这些参数调用 REALPROG，您应该会看到

A is DOG
B is CAT