"start setup
setup:
"cmode
"text "fetch minmnu.xsb^m"
"rtn
"key g
"xcall minmnu,statements
"message xbuf
"rtn
%define choice
"text %0
"text ^i
"text %1
"text ^m
endm
Statements:
"%choice "ampm","Enter AM or PM (same as text ^+S:7)"
"%choice "andeq","Use above IF for AND bolean logic (equal to)"
"%choice "andgt","Use above IF for AND bolean logic (greater than)"
"%choice "andge","Use above IF for AND bolean logic (greater or equal)"
"%choice "andlt","Use above IF for AND bolean logic (less than)"
"%choice "andle","Use above IF for AND bolean logic (less or equal)"
"%choice "arguments} variable","Pick up arguments after Command Mode command"
"%choice "asc} x,y","Convert from ASCII character (x) to decimal number (y)"
"%choice "beep","Make the CRT beep"
"%choice "block","Test character @ cursor: EQ if marked, NE if not marked"
"%choice "boom","Pop everything off the EXTRA internal stack"
"%choice "byp} x","Strip leading blanks from variable"
"%choice "calc} @","Perform math mode function: @ load, + add, - sub, * mul, / div"
"%choice "call} label","Call the subroutine at label"
"%choice "center","Center text on current line (same as text ^+s^+c)"
"%choice "chain","Set up command file to be executed by operating system"
"%choice "chkcrt","Check CRT paramaters"
"%choice "chr","Convert from decimal number to ASCII character"
"%choice "cmd?","Test to see if in Command Mode, EQ if yes, NE if not"
"%choice "cmode","Force into Command Mode"
"%choice "cmp","Compare text at cursor with a constant"
"%choice "cmpnum} x,y","Compare two numeric values"
"%choice "cmpstr} x,y","Compare two text strings"
"%choice "col?} x","Compare column number with a constant"
"%choice "copy} filename","Copy another source file into this one during compilation"
"%choice "cr","Move cursor to start of next line in document (same as text ^+m)"
"%choice "crlf","Move cursor to start of next line on screen (display only)"
"%choice "crt","Perform special CRT functions and move CRT cursor"
"%choice "crtcols","Determine how many columns CRT has"
"%choice "crtrows","Determine how many rows CRT has"
"%choice "date","Type current date into document (same as text ^+s@)"
"%choice "day","Type in current day of the month (same as text ^+s@5)"
"%choice "ding","Make the CRT beep"
"%choice "display-half","Re-enable SuperVUE display and redisplay text below cursor"
"%choice "display-line","Re-enable SuperVUE display and redisplay current line"
"%choice "display-off","Turn off all SuperVUE display"
"%choice "display-pos","Re-enable SuperVUE display and position the cursor"
"%choice "dmode","Force SuperVUE into Display Mode"
"%choice "do} command","Create new Command Mode command"
"%choice "down","Move cursor down one line (same as text ^+j)"
"%choice "draw} down","Turn on drawing mode: up, down, right, left"
"%choice "dv-column} name","Perform DV selections in column name"
"%choice "dv-columname} variable","Retrieve the current column name"
"%choice "dv-first","Move to first record in database"
"%choice "dv-get column",<Get data from specified column into XBUF>
"%choice "dv-last","Move to last record in database"
"%choice "dv-next","Skip to the next record that matches the current criteria"
"%choice "dv-nextsummary","Skip to the next summary record"
"%choice "dv-open} file","Open a DataVUE file"
"%choice "dv-previous","Skip to the previous record that matches the current criteria"
"%choice "dv-previoussummary","Skip to the previous summary record"
"%choice "dv-search} string","Find the first occurance of the string in the current column"
"%choice "dv-search-next","Find the next occurance of the string in the current column"
"%choice "dv-search-previous","Find the previous occurance of the string in the current column"
"%choice "dv-summary","Test to see if the current record is a summary record"
"%choice "dv-width} variable","Return the width of the current column"
"%choice "edit-buffer} <row> [startchar] <prompt string> [terminators]","Edit the text in XBUF under program control"
"%choice "else","Perform following statements if preceeding IF was false"
"%choice "endif","Perform following statements no matter what the preceeding IF result was"
"%choice "enduser","Terminates the user mode translation list (see the USER statement)"
"%choice "eof","Test to see if on last line of document, EQ if on last line, else NE"
"%choice "eof","Test to see if on last character of line, EQ if on last char, else NE"
"%choice "esc","Simulates the ESCAPE key (same as text ^+[)"
"%choice "first-char","Move the cursor to the first printing character on the line"
"%choice "flag} chr","Display a character in the upper right hand corner of the screen"
"%choice "force","Simulate a keystroke with the value in XCHAR"
"%choice "getfield} variable","Copy text from the cursor into the variable. Stop when 2 blanks or eol"
"%choice "getname} variable","Put name of file being edited into the variable"
"%choice "home","Move cursor to upper left hand corner of document (same as text ^+^+)"
"%choice "hour12","Type in the hour in AM/PM format (same as text ^+:6)"
"%choice "hour24","Type in the hour in military format (same as text ^+:3)"
"%choice "ifeq","Execute the following statements if logical state is EQUAL TO"
"%choice "ifge","Execute the following statements if logical state is GREATER THAN or EQUAL TO"
"%choice "ifgt","Execute the following statements if logical state is GREATER THAN"
"%choice "ifle","Execute the following statements if logical state is LESS THAN or EQUAL TO"
"%choice "iflt","Execute the following statements if logical state is LESS THAN"
"%choice "input} <row> [startchar] <prompt string> [terminators]","Prompt the user to enter a line of text"
"%choice "insert","Turn on insert mode"
"%choice "jeq} label","Jump to label if logical state is EQUAL TO"
"%choice "jge} label","Jump to label if logical state is GREATER THAN or EQUAL TO"
"%choice "jgt} label","Jump to label if logical state is GREATER THAN"
"%choice "jle} label","Jump to label if logical state is LESS THAN or EQUAL TO"
"%choice "jlt} label","Jump to label if logical state is LESS THAN"
"%choice "jmp} label","Jump to label"
"%choice "kbstat} variable","If typeahead input is waiting it will be returned, otherwise null string"
"%choice "key} chr","Define a display mode function that can be started with ^+G chr"
"%choice "left","Move the cursor left one position (same as text ^h)"
"%choice "length} x,y","Find length of x and put result in y"
"%choice "loadmacro} variable","Convert note macro at cursor into playable sequence in variable"
"%choice "loadvar} variable,file","Load entire file into the specified variable"
"%choice "loop} value","Loop through the statements up to the corresponding NEXT statement"
"%choice "lowercase} variable","Convert variable to lowercase"
; %choice "macro-off","Disable macro expansion (allow % and #)"
"macro-off
"text "macro-off^iDisable macro expansion (allow % and #)^m"
"macro-on
"%choice "macro-on","Re-enable macro expansion"
"%choice "map} variable,length","Define a variable with the specified length"
"%choice "margin-release","Release the margins"
"%choice "math","Turn on math mode"
"%choice "message} string","Display a string on the message line (usually 25th line)"
"%choice "minutes","Type in the current minutes (same as text ^+s:4)"
"%choice "mm","Type in the current month as two digits (same as text ^+s@4)"
"%choice "mon","Type in the current month as three letters (same as text ^+s@8)"
"%choice "month","Type in the current month fully spelled out (same as text ^+s@7)"
"%choice "next","Search for next occurance (same as text ^+x)"
"%choice "oncall","Multiple way call"
"%choice "onjmp","Multiple way jump"
"%choice "oreq","Use above IF for OR bolean logic (equal to)"
"%choice "orgt","Use above IF for OR bolean logic (greater than)"
"%choice "orge","Use above IF for OR bolean logic (greater or equal)"
"%choice "orlt","Use above IF for OR bolean logic (less than)"
"%choice "orle","Use above IF for OR bolean logic (less or equal)"
"%choice "pad} x,y","Force first variable to be length specified by second variable"
"%choice "page","ASK TIM WHAT THE HECK THIS IS"
"%choice "pause","Wait for one (or more) characters from keyboard, result in XCHAR"
"%choice "play} variable","Playback macro stored in variable"
"%choice "pop","Remove item from internal stack"
"%choice "print","Print list of variables and/or constants"
"%choice "range","Check to see if character at cursor is in one or more ranges"
"%choice "recall","Recall text in scrap buffer (same as text ^+s^+o)"
"%choice "record} variable","Record keystrokes into variable"
"%choice "reformat","Reformat paragraph (same as text ^+s^+f)"
"%choice "req","Return from subroutine if logical state is EQUAL TO"
"%choice "return","Return from subroutine call"
"%choice "rge","Return from subroutine if logical state is GREATER THAN or EQUAL TO"
"%choice "rgt","Return from subroutine if logical state is GREATER THAN"
"%choice "rle","Return from subroutine if logical state is LESS THAN or EQUAL TO"
"%choice "rlt","Return from subroutine if logical state is LESS THAN"
"%choice "row} constant","Redisplay screen so that cursor is on specified row"
"%choice "row?} constant","Check to see if cursor is on specified row"
"%choice "rtn","Return from subroutine call"
"%choice "rubout","Delete character in front of cursor (same as text ^+$)"
"%choice "ruler","Get ruler character at current column position into XCHAR"
"%choice "",""