Subversion Repositories Shiroi

Rev

Rev 8 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8 Rev 12
Line 1... Line 1...
1 
/* $Id: basic.c 8 2024-08-28 16:29:15Z nishi $ */
 1 
/* $Id: basic.c 12 2024-08-29 04:19:08Z nishi $ */
2 
 
 2 
 
3 
#include "text.h"
 3 
#include "text.h"
4 
 
 4 
 
5 
unsigned char basicbuffer[1024 * 30];
 5 
unsigned char basicbuffer[1024 * 30];
6 
 
 6 
 
Line 8... Line 8...
8 
	clear();
 8 
	clear();
9 
 
 9 
 
10 
	putstr("Shiroi Microcomputer BASIC\r\n");
 10 
	putstr("Shiroi Microcomputer BASIC\r\n");
11 
	cursor();
 11 
	cursor();
12 
	while(1){
 12 
	while(1){
13 
		char c = getch();
 13 
		char c = agetch();
14 
		killcursor();
 - 
 
15 
		if(c == '\n'){
 14 
		if(c == '\n'){
- 
 
 15 
			killcursor();
16 
			putstr("\r\n");
 16 
			putstr("\r\n");
17 
		}else{
 17 
		}else if(c != 0){
- 
 
 18 
			killcursor();
18 
			putchar(c);
 19 
			putchar(c);
19 
		}
 20 
		}
20 
		cursor();
 21 
		cursor();
21 
	}
 22 
	}
22 
}
 23 
}