ANY_LU;= -1;M;
ASK;(text,str);I;
BEGIN;;K;
BOOL;;K;
BREAK_FLAG;= C4;M;
BREAK_MODE;= I1;M;
CHAR_SET;(len,str);M;
COPIES;= I16;M;
CREATE;(lu);I;
CUR;(row,pos);I;
CURRENT_INDEX;(lu) -> index;F;
CURRENT_KEY;(lu) -> key;F;
CUR_ROW;= I3;M;
CVT_STRING;(str,str) -> str;F;5
DATE;(mode) -> date;F;
DATE_ADD;(date,value);I;
DATE_CHECK;(date);I;
DATE_COMPARE;(date,str,date) -> bool;F;5
DATE_DIFF;(date,date);I;
DCLEAR;;I;
DECLARE;;K;
DEFINE;;C;
DELETE;(lu);I;
DO;= :;M;
DQUIT;= TRUE->C11:QUIT;M;
DQUIT_FLAG;= C11;M;
DSHOW;;I;
EC; -> int;F;
EC_DISC_FULL;= EC=41;M;
EC_DOUBLE_KEY;= EC=121;M;
EC_EOF;= (EC=34 OR EC=91);M;
EC_MEMORY_FULL;= EC=206;M;
EC_NO_ERROR;= EC=0;M;
EC_NO_FILE;= EC=21;M;
EC_NO_INDEX;= EC=124;M;
EC_NO_KEY;= EC=120;M;
EC_READ_CHECK;= EC=123;M;
ELSE;;K;
ELSE_IFL;(cond);K;
END;;K;
ENDDEF;;C;
ENDIFL;;K;
ENDREM;;C;
ENDREMARK;;C;
ENTER;(text,intype,value,str);I;
ENTRY;= W8;M;
EOF;= C17;M;
ERROR;(text);I;
ERR_CHECK;= C1;M;
ERR_LU;= -2;M;
EXEC_D;(lu,file);M;
EXEC_L;(lu,file);M;
EXEC_LINE;(str);I;
EXEC_MODULE;(lu,str);I;5
EXEC_PREVIEW;(lu,file);M;
EXEC_U;(lu,file);M;
EXITFUNC;;K;
EXIT_FLAG;= C12;M;
EXTERN;;K;
FALSE; -> bool;F;
FILE;= I18;M;
FIND_FIRST;(lu,key,index);I;
FIND_FIRST_EX;(lu,key,index,str,str,int);I;
FIND_LAST;(lu,key,index);I;
FIND_LAST_EX;(lu,key,index,str,str,int);I;
FIND_MATCH;(lu,key,index);I;
FIND_NEXT;(lu);I;
FIND_NEXT_EX;(lu);I;
FIND_PREVIOUS;(lu);I;
FIND_PREVIOUS_EX;(lu);I;
FUNCTION;;K;
GET_USING;(lu,form,row) -> str;F;5
GOFIELD;= GO_FIELD;M;
GOSUB;(adr);K;
GOTO;(adr);K;
GOVERIFY;= GO_VERIFY;M;
GO_FIELD;(int);I;
HELP;= C2;M;
HELP_MESSAGE;(text);I;
IF;(cond);K;
IFL;(cond);K;
INC;;C;
INCLUDE;;C;
INT;;K;
INTYPE;= W6;M;
IN_SET;(str,str) -> bool;F;
IN_STRING;(str,str,pos) -> pos;F;
KEY_MATCH;(lu,key,index);I;
LEFT;(str,len) -> str;F;
LEN;(str) -> len;F;
LIB_DIA;= I15;M;
LINES_LEFT;= I10;M;
LINE_FEED;(rows);I;
LIST_INIT;= I19;M;
LOAD_D;(lu,file,group);M;
LOAD_I;(lu,file,group);M;
LOAD_IG;(lu,file,group);M;
LOAD_IL;(lu,file,group);M;
LOAD_IP;(lu,file,group);M;
LOAD_L;(lu,file,group);M;
LOAD_T;(lu,file,group,rows,rows);M;
LOAD_TG;(lu,file,group,rows,rows);M;
LOAD_TL;(lu,file,group,rows,rows);M;
LOAD_TP;(lu,file,group,rows,rows);M;
LOAD_U;(lu,file,group);M;
LU_STATUS;(lu) -> int;F;
MATCH;= C16;M;
MESSAGE;(text);I;
MID;(str,pos,len) -> str;F;
NAME;(str);M;
NEGATIVE;= NOT C0;M;
NO;= 'N';M;
NO_MATCH;= NOT C16;M;
OBJECT;;K;
OK;= C18;M;
OLD_ENTRY;= W11;M;
ON;(int);K;
OUT;(str);K;
OUT_USING;form;I;
PAGE;;I;
PAUSE;(text);I;
PF_ADD;(int,int,str);I;
PF_DEF;(int);I;
PF_DEL;(int,int,str);I;
POSITIVE;= C0;M;
PR_SELECT;= I17;M;
QUIT;;I;
REM;;C;
REMARK;;C;
REPEAT;= WW_SETFOCUS(-5);M;
REPEAT_FLAG;= C10;M;
REPLY;= C0;M;
RESULT;= W9;M;
RETURN;;I;
RETURN_KEY;= CHR(I14);M;
RETUR_FLAG;= C14;M;
RIGHT;(str,pos) -> str;F;
RIGHT_ADJUST;(str,len) -> str;F;
ROUND;(value,value);I;
ROWS_LEFT;= I4;M;
RUNNING;= C8;M;
SECURE_ALL;;I;
SECURE_LU;(lu);I;
SET_GROUP;(lu,group);M;
SET_INTYPE;(intype,str,str);M;
SHOW;(str);K;
SKIP;= TRUE->C13:QUIT;M;
SKIP_FLAG;= C13;M;
STR;;K;
STRING;(int,str) -> str;F;5
SUBQUIT;;I;
TEST;= C6;M;
TIME;(mode) -> str;F;
TO_ANSI;(str) -> str;F;5
TRUE; -> bool;F;
T_APPEND;(lu);I;
T_CLEAR;(lu,col);I;
T_COPY;(lu,row,row);I;
T_CUR;(lu);M;
T_DELETE;(lu);I;
T_DIM_ROWS;(lu,rows);I;
T_DIM_TAIL;(lu,int);I;
T_FIND_FIRST;(lu);I;
T_FIND_LAST;(lu);I;
T_FIND_MATCH;(lu,key,col);I;
T_FIND_NEXT;(lu);I;
T_FIND_PREVIOUS;(lu);M;
T_FIND_ROW;(lu,row);I;
T_FIND_SET;(lu,str,col);I;
T_FIND_WMATCH;(lu,str,col);I;5
T_FREE;(lu);M;
T_INSERT;(lu);I;
T_MAX;(lu);M;
T_NEXT_MATCH;(lu,key,col);I;
T_NEXT_SET;(lu,str,col);I;
T_NEXT_WMATCH;(lu,str,col);I;5
T_PAR;(lu,int);I;
T_PREVIOUS_SET;(lu,str,col);I;
T_PREVIOUS_WMATCH;(lu,str,col);I;5
T_PUT_TABLE;(lu);I;
T_RELOAD;(lu);I;
T_SCRATCH;(lu,row);I;
T_SORT_EXEC;(row,row);I;
T_SORT_FILL;(col,str,mode);I;
T_SORT_INIT;(lu);I;
T_STAT;(lu,int) -> int;F;
T_USED;(lu);M;
UNLOAD_LU;(lu);M;
UPDATE;(lu);I;
UPPER_CASE;= W6&'U'->W6;M;
WEEK;(date) -> int;F;5
WEND;;K;
WHILE;(cond);K;
WQUIT;;K;
WRITE;(lu);I;
WRITE_ex;(lu,int);I;
W_AFTER_ME;= W10;M;
W_COMPARE;(bool,str,int,str) -> bool;F;5
W_COMPARETX;(int,str,str,str) -> bool;F;5
W_MATCH;(str,str) -> bool;F;5
YES;= 'J';M;
date) -> int;F;5
WEND;;K;
WHILE;(cond);K;
WQUIT;;K;
WRITE;(lu);I;
WRITE_ex;(lu,int);I;
W_AFTER_ME;= W10;M;
W_COMPARE;(bool,str,int,str) -> bool;F;5
W_COMPARETX;(int,str,str,str) -> bool;F;5
W_MATCH;(str,str) -> bool;F;5
YES;= 'J';M;
030409 har gjort funktioner för dessa se nedan. Är implementerade i RT;M;
P_DOWN;= W7='7';M;
STEP_UP;= W7='5';M;
STR;;K;
STRING;(int,str) -> str;F;5
TEST;= C6;M;
TIME;(mode) -> str;F;
TRUE; -> bool;F;
TURN_MODE;= (PF AND 'S3S4' ? W7);M;
T_APPEND;(lu);I;
T_CLEAR;(lu,col);I;
T_COPY;(lu,row,row);I;
T_CUR;(lu);M;
T_DELETE;(lu);I;
T_DIM_ROWS;(lu,rows);I;
T_DIM_TAIL;(lu,int);I;
T_FILEINFO;(lu);I;
T_FIND_FIRST;(lu);I;
T_FIND_LAST;(lu);I;
T_FIND_MATCH;(lu,key,col);I;
T_FIND_NEXT;(lu);I;
T_FIND_PREVIOUS;(lu);M;
T_FIND_ROW;(lu,row);I;
T_FIND_SET;(lu,str,col);I;
T_FIND_WMATCH;(lu,str,col);I;5
T_FREE;(lu);M;
T_INSERT;(lu);I;
T_MAX;(lu);M;
T_NEXT_MATCH;(lu,key,col);I;
T_NEXT_SET;(lu,str,col);I;
T_NEXT_WMATCH;(lu,str,col);I;5
T_PAR;(lu,int);I;
T_PREVIOUS_SET;(lu,str,col);I;
T_PREVIOUS_WMATCH;(lu,str,col);I;5
T_PUT_TABLE;(lu);I;
T_RELOAD;(lu);I;
T_SCRATCH;(lu,row);I;
T_SORT_EXEC;(row,row);I;
T_SORT_FILL;(col,str,mode);I;
T_SORT_INIT;(lu);I;
T_STAT;(lu,int) -> int;F;
T_USED;(lu);M;
UNLOAD_LU;(lu);M;
UPDATE;(lu);I;
UPPER_CASE;= W6&'U'->W6;M;
UPWARDS;= (PF AND 'S5' ? W7);M;
WARNING;(text,bool);I;6
WCLEAR;;I;
WEEK;(date) -> int;F;5
WEND;;K;
WHILE;(cond);K;
WINDOW;win;I;
WINDOW_ACTIVATE;(win,bool);I;6
WINDOW_ACTIVE;(win);M;
WINDOW_CHOICE;(win,row,rows,col,len) -> row;F;
WINDOW_CLOSE;(win);I;
WINDOW_ENTER;(win,text,intype,value,str,str);I;6
WINDOW_MOVE;(win,str);I;5
WINDOW_OFFSET;(win,row,col);I;5
WINDOW_OPEN;(win,rows,len,mode);I;
WINDOW_OPEN_OPT;(win,rows,len,mode,str,str);I;5
WINDOW_READ;(win,row,col,len) -> str;F;5
WINDOW_REMOVE;(int);I;6
WINDOW_SCROLL;(win,row,col,row,col,int);I;5
WINDOW_STAT;(win,int) -> int;F;5
WINDOW_TOP;(win,row);I;5
WINDOW_TYPE;(win) -> int;F;5
WQUIT;;K;
WRITE;(lu);I;
W_AFTER_ME;= W10;M;
W_COLS;(win);M;
W_CUR_COL;(win);M;
W_CUR_ROW;(win);M;
W_LAST_ROW;(win);M;
W_MATCH;(str,str) -> bool;F;5
W_ROWS;(win);M;
W_START_COL;(win);M;
YES;= 'J';M;
