aboutsummaryrefslogtreecommitdiff
path: root/jindroush/chkbas/basic_xl.h
diff options
context:
space:
mode:
Diffstat (limited to 'jindroush/chkbas/basic_xl.h')
-rw-r--r--jindroush/chkbas/basic_xl.h213
1 files changed, 213 insertions, 0 deletions
diff --git a/jindroush/chkbas/basic_xl.h b/jindroush/chkbas/basic_xl.h
new file mode 100644
index 0000000..a97f8a7
--- /dev/null
+++ b/jindroush/chkbas/basic_xl.h
@@ -0,0 +1,213 @@
+// This program is free software; you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation; either version 2 of the License, or
+// any later version.
+//
+// This program is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with this program; if not, write to the Free Software
+// Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+//
+
+#define BXL_EXTEND 0x5A
+
+char* aCmdsBasicXl[] =
+{
+ "REM", //00
+ "DATA", //01
+ "INPUT", //02
+ "COLOR", //03
+ "LIST", //04
+ "ENTER", //05
+ "LET", //06
+ "IF", //07
+ "FOR", //08
+ "NEXT", //09
+ "GOTO", //0a
+ "GO TO", //0b
+ "GOSUB", //0c
+ "TRAP", //0d
+ "BYE", //0e
+ "CONT", //0f
+ "COM", //10
+ "CLOSE", //11
+ "CLR", //12
+ "DEG", //13
+ "DIM", //14
+ "END", //15
+ "NEW", //16
+ "OPEN", //17
+ "LOAD", //18
+ "SAVE", //19
+ "STATUS", //1a
+ "NOTE", //1b
+ "POINT", //1c
+ "XIO", //1d
+ "ON", //1e
+ "POKE", //1f
+ "PRINT", //20
+ "RAD", //21
+ "READ", //22
+ "RESTORE", //23
+ "RETURN", //24
+ "RUN", //25
+ "STOP", //26
+ "POP", //27
+ "?", //28
+ "GET", //29
+ "PUT", //2a
+ "GRAPHICS", //2b
+ "PLOT", //2c
+ "POSITION", //2d
+ "DOS", //2e
+ "DRAWTO", //2f
+ "SETCOLOR", //30
+ "LOCATE", //31
+ "SOUND", //32
+ "LPRINT", //33
+ "CSAVE", //34
+ "CLOAD", //35
+ "", //36 silent let
+ "ERROR -", //37 last Atari Basic command
+
+ "WHILE", //38
+ "ENDWHILE", //39
+ "TRACEOFF", //3A
+ "TRACE", //3B
+ "ELSE", //3C
+ "ENDIF", //3D
+ "DPOKE", //3E
+ "LOMEM", //3F
+ "DEL", //40
+ "RPUT", //41
+ "RGET", //42
+ "BPUT", //43
+ "BGET", //44
+ "TAB", //45
+ "CP", //46
+ "ERASE", //47
+ "PROTECT", //48
+ "UNPROTECT", //49
+ "DIR", //4A
+ "RENAME", //4B
+ "MOVE", //4C
+ "MISSILE", //4D
+ "PMCLR", //4E
+ "PMCOLOR", //4F
+ "PMGRAPHICS", //50
+ "PMMOVE", //51
+ "PMWIDTH", //52
+ "SET", //53
+ "LVAR", //54
+ "RENUM", //55
+ "FAST", //56
+ "NUM", //57
+ "END", //58
+
+ "?59?", //59
+ "BXL_EXTEND", //5A
+
+};
+
+char* aOpsBasicXl[] = {
+ "NHCONST", //0D
+ "NCONST", //0E
+ "SCONST", //0F
+ "NOUSE", //10
+ "NOUSE", //11
+ ",", //12
+ "$", //13
+ ":", //14
+ ";", //15
+ "EOL", //16
+ " GOTO ", //17
+ " GOSUB ", //18
+ " TO ", //19
+ " STEP ", //1A
+ " THEN ", //1B
+ "#", //1C
+ "<=", //1D
+ "<>", //1E
+ ">=", //1F
+ "<", //20
+ ">", //21
+ "=", //22
+ "^", //23
+ "*", //24
+ "+", //25
+ "-", //26
+ "/", //27
+ " NOT ", //28
+ " OR ", //29
+ " AND ", //2A
+ "(", //2B
+ ")", //2C
+ "=", //2D
+ "=", //2E
+ "<=", //2F
+ "<>", //30
+ ">=", //31
+ "<", //32
+ ">", //33
+ "=", //34
+ "+", //35
+ "-", //36
+ "(", //37
+ "(", //38
+ "(", //39
+ "(", //3A
+ "(", //3B
+ ",", //3C
+ "STR$", //3D
+ "CHR$", //3E
+ "USR", //3F
+ "ASC", //40
+ "VAL", //41
+ "LEN", //42
+ "ADR", //43
+ "ATN", //44
+ "COS", //45
+ "PEEK", //46
+ "SIN", //47
+ "RND", //48
+ "FRE", //49
+ "EXP", //4A
+ "LOG", //4B
+ "CLOG", //4C
+ "SQR", //4D
+ "SGN", //4E
+ "ABS", //4F
+ "INT", //50
+ "PADDLE", //51
+ "STICK", //52
+ "PTRIG", //53
+ "STRIG", //54 last Atari Basic
+ " USING ", //55
+ "%", //56
+ "!", //57
+ "&", //58
+ ";", //59
+ "BUMP(", //5A
+ "FIND(", //5B
+ "HEX$", //5C
+ "RANDOM(", //5D
+ "DPEEK", //5E
+ "SYS", //5F
+ "VSTICK", //60
+ "HSTICK", //61
+ "PMADR", //62
+ "ERR", //63
+ "TAB", //64
+ "PEN", //65
+ "LEFT$", //66
+ "RIGHT$", //67
+ "MID$", //68
+};
+
+#define BASICXL_CMD_NUM ( sizeof( aCmdsBasicXl ) / sizeof( aCmdsBasicXl[ 0 ] ) )
+#define BASICXL_OPS_NUM ( sizeof( aOpsBasicXl ) / sizeof( aOpsBasicXl[ 0 ] ) )
+