aboutsummaryrefslogtreecommitdiff
path: root/jindroush/chkbas/basic_tb.h
diff options
context:
space:
mode:
authorB. Watson <urchlay@slackware.uk>2024-05-16 01:43:09 -0400
committerB. Watson <urchlay@slackware.uk>2024-05-16 01:43:09 -0400
commita4cc3ad3504d634e379369862c9f9fd8eed379f3 (patch)
tree7b6f55c352a4ca62dddaa1b4a6854799111d2d2f /jindroush/chkbas/basic_tb.h
parentb33c25d1363110e6e4a714530f460b0ff951f56b (diff)
downloadbw-atari8-tools-a4cc3ad3504d634e379369862c9f9fd8eed379f3.tar.gz
Add Jindrich Kubec's tools.
Diffstat (limited to 'jindroush/chkbas/basic_tb.h')
-rw-r--r--jindroush/chkbas/basic_tb.h223
1 files changed, 223 insertions, 0 deletions
diff --git a/jindroush/chkbas/basic_tb.h b/jindroush/chkbas/basic_tb.h
new file mode 100644
index 0000000..8547948
--- /dev/null
+++ b/jindroush/chkbas/basic_tb.h
@@ -0,0 +1,223 @@
+// 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.
+//
+
+char* aCmdsTBasic[] =
+{
+ "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
+ "DPOKE", //38
+ "MOVE", //39
+ "-MOVE", //3A
+ "*F", //3B
+ "REPEAT", //3C
+ "UNTIL", //3D
+ "WHILE", //3E
+ "WEND", //3F
+ "ELSE", //40
+ "ENDIF", //41
+ "BPUT", //42
+ "BGET", //43
+ "FILLTO", //44
+ "DO", //45
+ "LOOP", //46
+ "EXIT", //47
+ "DIR", //48
+ "LOCK", //49
+ "UNLOCK", //4A
+ "RENAME", //4B
+ "DELETE", //4C
+ "PAUSE", //4D
+ "TIME$=", //4E
+ "PROC", //4F
+ "EXEC", //50
+ "ENDPROC", //51
+ "FCOLOR", //52
+ "*L", //53
+ "------------------------------", //54
+ "RENUM", //55
+ "DEL", //56
+ "DUMP", //57
+ "TRACE", //58
+ "TEXT", //59
+ "BLOAD", //5A
+ "BRUN", //5B
+ "GO#", //5C
+ "#", //5D
+ "*B", //5E
+ "PAINT", //5F
+ "CLS", //60
+ "DSOUND", //61
+ "CIRCLE", //62
+ "\%PUT", //63
+ "\%GET", //64
+};
+
+char* aOpsTBasic[] = {
+ "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
+ "DPEEK", //55
+ "&", //56
+ "!", //57
+ "INSTR", //58
+ "INKEY$", //59
+ " EXOR ", //5A
+ "HEX$", //5B
+ "DEC", //5C
+ " DIV ", //5D
+ "FRAC", //5E
+ "TIME$", //5F
+ "TIME", //60
+ " MOD ", //61
+ " EXEC ", //62
+ "RND", //63
+ "RAND", //64
+ "TRUNC", //65
+ "%0", //66
+ "%1", //67
+ "%2", //68
+ "%3", //69
+ " GO# ", //6A
+ "UINSTR", //6B
+ "ERR", //6C
+ "ERL", //6D
+};
+
+#define TBASIC_CMD_NUM ( sizeof( aCmdsTBasic ) / sizeof( aCmdsTBasic[ 0 ] ) )
+#define TBASIC_OPS_NUM ( sizeof( aOpsTBasic ) / sizeof( aOpsTBasic[ 0 ] ) )
+