#include "langbasic.h"
LangBasic ::LangBasic() {
fill();
init_switches();
doCaseKeys = No;
doLabels = Yes;
doAsmComnt = Yes;
doRemComnt = Yes;
}
void LangBasic ::fill() {
string K[] = {
"ABS","AND","ASC","BYE","CHR","CLS","DATA","DEL","DIM","END","FOR","GOSUB",
"GOTO","IF","INPUT","LEN","LET","LIST","LOAD","LOCATE","LOG","MERGE","MID",
"MOD","NEW","NEXT","NOT","ON","OR","POKE","PRINT","RAND","READ","RENUM",
"RESTORE","RETURN","RND","RUN","SAVE","SGN","SIN","SQR","SQRT","STOP",
"STR","TO","VAL","WEND","WHILE","XOR"
};
for(int k=0;k < 50;k++) {keys.push_back(K[k]);}
}