WebSVN – Krakow BASIC – Diff – /trunk/BASIC/basic.c

-/* $Id: basic.c 36 2024-09-05 15:37:50Z nishi $ */
+/* $Id: basic.c 37 2024-09-05 15:59:22Z nishi $ */
 /* Krakow BASIC - Multi-platform simple BASIC */
 #if defined(PLATFORM_SHIROI)
 #ifndef LINES
 #define LINES (1024)
 #endif
-unsigned char basicbuffer[BUFFER_SIZE];
+unsigned char basicbuffer[BUFFER_SIZE / 2];
+unsigned char varbuffer[BUFFER_SIZE / 2];
 char linebuf[LINE_BUFFER_SIZE];
 int hexnum(char c) {
 	if('0' <= c && c <= '9') {
 		return c - '0';
 	putstr(" Max ");
 	putnum(LINES);
 	putstr(" lines");
 	putstr(NEWLINE);
 	putstr(" ");
+	putstr("Variable buffer ");
+	putnum(BUFFER_SIZE / 2);
+	putstr(" bytes");
+	putstr(NEWLINE);
+	putstr(" ");
 #endif
-	putnum(BUFFER_SIZE);
+	putnum(BUFFER_SIZE / 2);
 	putstr(" bytes free");
 	putstr(NEWLINE);
 	putstr(NEWLINE);
-	for(i = 0; i < BUFFER_SIZE; i++) {
+	for(i = 0; i < BUFFER_SIZE / 2; i++) {
 		basicbuffer[i] = 0;
+	}
 	putstr("Ready");
 	putstr(NEWLINE);

Subversion Repositories Krakow BASIC