Subversion Repositories Shiroi

Rev

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

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