Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: AZGUCI

AZGUCI.m

Go to the documentation of this file.

%AZGUCI ; WRITE CURRENT UCI

 D ^%GUCI

 U 0 W !,"You are in UCI """,%UCI,"""",!

%AZGUCI   ; WRITE CURRENT UCI

 +1        DO ^%GUCI

 +2        USE 0

           WRITE !,"You are in UCI """,%UCI,"""",!

 +3        QUIT