第七十六章 使用 ^%IS - 示例

示例

调用 CURRENT^%IS 后，将 $X 和 $Y 设置为 DX 和 DY 以定位光标。

  DO CURRENT^%IS
  WRITE *27,*61,*DY+32,*DX+32 
  SET $X=DX,$Y=DY

IN^%IS 入场点

IN 是 ^%IS 中的一个内部入口点，可以由仅计划从设备进行 input 的例程调用。此入口点可用于确保您不选择仅输出设备，例如打印机。

%SYS> Do IN^%IS

Device: 3 
Right margin: 132= <RETURN>
[you can't read from this device] 
Device: <RETURN>  
Right margin: 80= <RETURN>
%SYS>

OUT^%IS 入口点

OUT 是 ^%IS 中的一个内部入口点，可以由仅计划向设备输出的例程调用。

Spooling

IRIS 假脱机独立于您的操作系统执行的假脱机。IRIS 中的假脱机是一种技术，可让自动将程序的输出保存在全局中，而不是立即打印。稍后可以通过将 global 的内容发送到打印机来打印输出。

助记词 SPOOL 是默认助记词。要指定假脱机，请输入 “SPOOL” 以响应 Device 提示符。然后，系统要求提供假脱机文件名和描述。这是 ^SPOOL 全局变量中使用的名称，而不是操作系统级别的单独文件名。

如果任何现有文件名以您指定的名称开头或与您指定的名称匹配，则会显示这些名称，并要求您选择一个名称。如果未选择任何现有文件，则系统允许您创建具有指定名称和描述的新文件，如以下示例所示：

Device: SPOOL
Name:TEST
1. 1 TEST 02 Nov 1999 10:17 am First test 
2. 2 TEST 02 Nov 1999 10:18 am Second Test 
Select one: <Return> not found
Create new document 'TEST'? Yes => yes
Description: Third Test

如果因为要继续添加到现有文件而重新选择现有文档，系统将为您提供以下选项：

1. 添加到文件的最末尾;
2. 在最后一页的顶部重新启动，在这种情况下，将被删除的行将显示在屏幕上;
3. 从第 1 页（开头）重新开始。

当你调用它进行假脱机时，你可以将下表中列出的变量传递给 ^%IS。

可以传递给 ^%IS 的假脱机变量