home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CDPD Public Domain Collection for CDTV 4
/
CDPD_IV.bin
/
fish
/
931-950
/
ff947
/
mand2000d
/
arexx
/
printcommands.mnd2
< prev
next >
Wrap
Text File
|
1993-12-22
|
2KB
|
59 lines
/* This script is supplied with the Mand2000 demo and release */
/* versions and may be freely distributed. */
/* Copyright 1993 Cygnus Software. */
/* Print the available commands of the current project, or the */
/* entire program. Pass 'project' or 'global' as a parameter. */
/* Default is global. */
/* Typically this command is run from the menus which are */
/* installed by the default startup.mnd2 script. */
portname = address() /* Retrieve the current port name. */
/* If the portname does not start with MAND2000 then this script must */
/* have been run with rx, rather than from Mand2000. Therefore we */
/* need to set the port name. We do not always set the port name */
/* because it is better to let Mand2000 set it for us, so that */
/* this script can be used with windows other than the one with */
/* port name MAND2000.1. */
if (left(portname, 8) ~= "MAND2000") THEN
address 'MAND2000.1'
options results
say
/* Get the argument passed to this script. */
parse arg command
command = upper(command) /* Make sure the command is in upper case. */
if (command = PROJECT) THEN DO
say " Project commands are:"
/* Ask for the list of available commands. */
help
CommandList = result
numcommands = Words(CommandList)
/* Ask for help on all commands. */
do command = 1 to numcommands
Word(CommandList, command) "?"
say result
END
END
ELSE DO
address MAND2000
say " Global commands are:"
/* Ask for the list of available commands. */
help
CommandList = result
numcommands = Words(CommandList)
/* Ask for help on all commands. */
do command = 1 to numcommands
Word(CommandList, command) "?"
say result
END
END
exit