1 files changed, 55 insertions, 0 deletions
diff --git a/src/user/app/kbasic/main.c b/src/user/app/kbasic/main.c
new file mode 100644
index 0000000..1003a7b
--- /dev/null
+++ b/src/user/app/kbasic/main.c
@@ -0,0 +1,55 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <readline.h>
+
+#include "basic.h"
+
+int main(int argc, char **argv) {
+	char *p_buf;
+
+	srand(0);	// not very usefull...
+
+	readline_history hist;
+	hist.str = 0; hist.max = 10;
+
+	interp_name = argv[0];
+	init();
+
+	if(argc == 2) {
+		/* load the program to execute */
+		if(!(p_buf = load_file(argv[1]))) exit(1);
+
+		load_program(p_buf);
+		start(p_buf);
+	} else if (argc == 1) {
+		printf("KBASIC 0.1\n"
+				"Press ^D to quit interpreter.\n\n");
+
+		for (;;) {
+			printf("> ");
+			char *l = freadline(stdin, &hist);
+			if (l == NULL) break;
+
+			if (!strcmp(l, "exit")) {
+				free(l);
+				break;
+			}
+
+			prog_ip = l;
+			get_token();
+			if (token_type == NUMBER) {		// label. insert line.
+				insert_line(l, atoi(token));
+			} else {						// directly execute
+				start(l);
+			}
+			free(l);
+		}
+	} else {
+		printf("usage:\n\t%s <filename>\trun BASIC file\n", argv[0]);
+		printf("\n\t%s\t\t\tinteractive BASIC interpreter\n", argv[0]);
+		exit(1);
+	}
+
+	return 0;
+}
+