Commit: 149 - kmbasic (svn)

BASIC compiler/interpreter for PIC32MX/MZ-80K (suspended)

Commit MetaInfo

• Revision: 149 (tree)
• Time: 2016-08-05 03:39:28
• Author: kmorimatsu

Log Message

Update trunk with MachiKania type Z ver 1.00

Change Summary

• modified: mips/trunk/music.c
• modified: mips/trunk/function.c
• modified: mips/trunk/globalvars.c
• modified: mips/trunk/run.c
• modified: mips/trunk/statement.c
• added: mips/trunk/float.c
• modified: mips/trunk/memory.c
• modified: mips/trunk/keyinput.c
• modified: mips/trunk/compiler.c
• modified: mips/trunk/basic.mcp
• modified: mips/trunk/api.h
• modified: mips/trunk/compiler.h
• modified: mips/trunk/file.c
• modified: mips/trunk/main.c
• modified: mips/trunk/linker.c
• modified: mips/trunk/help.txt
• added: mips/trunk/debug.c
• modified: mips/trunk/editor.c
• modified: mips/trunk/error.c
• added: mips/trunk/main.h
• added: mips/trunk/debug.h
• modified: mips/trunk/operator.c
• modified: mips/trunk/editor.h
• added: mips/trunk/exception.c
• added: mips/trunk/App_32MX170F256B.ld
• added: mips/trunk/videoout.h
• modified: mips/trunk/library.c
• modified: mips/trunk/string.c
• modified: mips/trunk/value.c

Incremental Difference

--- mips/trunk/music.c	(revision 148)
+++ mips/trunk/music.c	(revision 149)
@@ -7,7 +7,7 @@
 
 #include <xc.h>
 #include "compiler.h"
-#include "colortext32.h"
+#include "api.h"
 
 /*
 	Timer3: 1/32 prescaler, toggle mode : 894886.25 Hz
@@ -166,8 +166,8 @@
 	T3CON=0x0050;    // Prescaller: 1:32 (1.8 MHz), not yet started
 
 	// Timer4 is used to intterupt every 1/60 sec, just after NTSC view.
-	T4CON=0x0050;    // Prescaller: 1:32
-	PR4=29736;       // 3632*262/32-1
+	T4CON=0x0040;    // Prescaller: 1:16
+	PR4=59473;       // 3632*262/16-1
 	// Timer 4 interruption, IPL3
 	IPC4bits.T4IP=3;
 	IPC4bits.T4IS=0;
@@ -348,7 +348,7 @@
 	g_soundrepeat=g_soundstart=g_soundend=0;
 	pos=0;
 	do {
-		while(data[1]!=0x00000021) data++; // Seek DATA statement
+		while(data[1]!=0x00000020) data++; // Seek DATA statement
 		datalen=(data[0]&0x00007FFF)-1;    // Use bgezal statement containing data length.
 		data+=2;
 		while(0<datalen){
@@ -357,6 +357,12 @@
 			sound=data[0]&0x0000FFFF;
 			data++;
 			if (len) {
+				// Shift tone if graphic is used
+				if (g_use_graphic) {
+					// MUL_15 instead of MUL_16 for CPU clock.
+					// sound=sound*15/16
+					sound-=(sound+7)>>4;
+				}
 				g_sound[pos]=sound-1;
 				g_soundlen[pos]=len;
 				pos++;
@@ -452,6 +458,12 @@
 				g_mspos++;
 				len=len/musicGetNum();
 			}
+			// Shift tone if graphic is used
+			if (g_use_graphic) {
+				// MUL_15 instead of MUL_16 for CPU clock.
+				// tone=tone*15/16
+				tone-=(tone+7)>>4;
+			}
 			// Update music value array
 			IEC0bits.T4IE=0; // Stop interruption, first.
 			if (g_musicstart==g_musicend) {

--- mips/trunk/function.c	(revision 148)
+++ mips/trunk/function.c	(revision 149)
@@ -18,7 +18,16 @@
 	return 0;
 }
 
+char* cread_function(){
+	call_lib_code(LIB_CREAD);
+	return 0;
+}
+
 char* gosub_function(){
+	// Check if garbage collection has been done.
+	// This check is required because the used temporary area would be changed 
+	// in sub routine. 
+	if (g_temp_area_used) return ERR_GOSUB_ASH;
 	return gosub_statement();
 }
 char* strncmp_function(){
@@ -227,6 +236,202 @@
 	return 0;
 }
 
+char* args_function(void){
+	char* err;
+	int i;
+	err=get_value();
+	if (err) return err;
+	i=g_object[g_objpos-1];
+	if ((i>>16)==0x3402) {
+		// Previous object is "ori v0,zero,xxxx".
+		i&=0xffff;
+		i=(i+1)<<2;
+		g_object[g_objpos-1]=0x8EA20000|i; //   lw          v0,xx(s5)
+	} else {
+		check_obj_space(3);
+		g_object[g_objpos++]=0x00021080;   //   sll         v0,v0,0x2
+		g_object[g_objpos++]=0x02A21021;   //   addu        v0,s5,v0
+		g_object[g_objpos++]=0x8C420004;   //   lw          v0,4(v0)
+	}
+	return 0;	
+}
+
+char* system_function(void){
+	char* err;
+	err=get_value();
+	if (err) return err;
+	g_object[g_objpos++]=0x00402021; //   addu        a0,v0,zero
+	call_lib_code(LIB_SYSTEM);
+	return 0;
+}
+
+char* sprintf_function(void){
+	char* err;
+	err=get_string();
+	if (err) return err;
+	next_position();
+	if (g_source[g_srcpos]!=',') return ERR_SYNTAX;
+	g_srcpos++;
+	check_obj_space(2);
+	g_object[g_objpos++]=0x27BDFFFC; //addiu       sp,sp,-4
+	g_object[g_objpos++]=0xAFA20004; //sw          v0,4(sp)
+	err=get_float();
+	if (err) return err;
+	check_obj_space(3);
+	g_object[g_objpos++]=0x00022021; //addu        a0,zero,v0
+	g_object[g_objpos++]=0x8FA20004; //lw          v0,4(sp)
+	g_object[g_objpos++]=0x27BD0004; //addiu       sp,sp,4
+	call_lib_code(LIB_SPRINTF);
+	return 0;
+}
+
+char* floatstr_function(void){
+	char* err;
+	err=get_float();
+	if (err) return err;
+	check_obj_space(2);
+	g_object[g_objpos++]=0x00022021; //addu        a0,zero,v0
+	g_object[g_objpos++]=0x34020000; //ori         v0,zero,0x0000
+	call_lib_code(LIB_SPRINTF);
+	return 0;
+}
+
+char* floatsharp_function(void){
+	char* err;
+	err=get_value();
+	if (err) return err;
+	check_obj_space(1);
+	g_object[g_objpos++]=0x34050000|(FUNC_FLOAT&0x0000ffff);//   ori         a1,zero,xxxx
+	call_lib_code(LIB_FLOATFUNCS);
+	return 0;
+}
+
+char* valsharp_function(void){
+	char* err;
+	err=get_string();
+	if (err) return err;
+	check_obj_space(1);
+	g_object[g_objpos++]=0x34050000|(FUNC_VALSHARP&0x0000ffff);//   ori         a1,zero,xxxx
+	call_lib_code(LIB_FLOATFUNCS);
+	return 0;
+}
+
+char* int_function(void){
+	char* err;
+	err=get_float();
+	if (err) return err;
+	check_obj_space(1);
+	g_object[g_objpos++]=0x34050000|(FUNC_INT&0x0000ffff);//   ori         a1,zero,xxxx
+	call_lib_code(LIB_FLOATFUNCS);
+	return 0;
+}
+
+char* float_constant(float val){
+	volatile int i;
+	((float*)(&i))[0]=val;
+	if (i&0xFFFF0000) {
+		// 32 bit
+		check_obj_space(2);
+		g_object[g_objpos++]=0x3C020000|((i>>16)&0x0000FFFF); // lui   v0,xxxx
+		g_object[g_objpos++]=0x34420000|(i&0x0000FFFF);       // ori v0,v0,xxxx
+	} else {
+		// 16 bit
+		check_obj_space(1);
+		g_object[g_objpos++]=0x34020000|(i&0x0000FFFF); // ori v0,zero,xxxx
+	}
+	return 0;	
+}
+
+char* float_1param_function(enum functions func){
+	char* err;
+	err=get_float();
+	if (err) return err;
+	check_obj_space(1);
+	g_object[g_objpos++]=0x34050000|(func&0x0000ffff);//   ori         a1,zero,xxxx
+	call_lib_code(LIB_FLOATFUNCS);
+	return 0;
+}
+
+char* float_2param_function(enum functions func){
+	char* err;
+	err=get_float();
+	if (err) return err;
+	next_position();
+	if (g_source[g_srcpos]!=',') return ERR_SYNTAX;
+	g_srcpos++;
+	check_obj_space(2);
+	g_object[g_objpos++]=0x27BDFFFC; //addiu       sp,sp,-4
+	g_object[g_objpos++]=0xAFA20004; //sw          v0,4(sp)
+	err=get_float();
+	if (err) return err;
+	check_obj_space(4);
+	g_object[g_objpos++]=0x00022021; //addu        a0,zero,v0
+	g_object[g_objpos++]=0x8FA20004; //lw          v0,4(sp)
+	g_object[g_objpos++]=0x27BD0004; //addiu       sp,sp,4
+	g_object[g_objpos++]=0x34050000|(func&0x0000ffff);//   ori         a1,zero,xxxx
+	call_lib_code(LIB_FLOATFUNCS);
+	return 0;
+}
+
+char* float_function(void){
+	char* err;
+	if (nextCodeIs("FLOAT#(")) {
+		err=floatsharp_function();
+	} else if (nextCodeIs("VAL#(")) {
+		err=valsharp_function();
+	} else if (nextCodeIs("SIN#(")) {
+		err=float_1param_function(FUNC_SIN);
+	} else if (nextCodeIs("COS#(")) {
+		err=float_1param_function(FUNC_COS);
+	} else if (nextCodeIs("TAN#(")) {
+		err=float_1param_function(FUNC_TAN);
+	} else if (nextCodeIs("ASIN#(")) {
+		err=float_1param_function(FUNC_ASIN);
+	} else if (nextCodeIs("ACOS#(")) {
+		err=float_1param_function(FUNC_ACOS);
+	} else if (nextCodeIs("ATAN#(")) {
+		err=float_1param_function(FUNC_ATAN);
+	} else if (nextCodeIs("SINH#(")) {
+		err=float_1param_function(FUNC_SINH);
+	} else if (nextCodeIs("COSH#(")) {
+		err=float_1param_function(FUNC_COSH);
+	} else if (nextCodeIs("TANH#(")) {
+		err=float_1param_function(FUNC_TANH);
+	} else if (nextCodeIs("EXP#(")) {
+		err=float_1param_function(FUNC_EXP);
+	} else if (nextCodeIs("LOG#(")) {
+		err=float_1param_function(FUNC_LOG);
+	} else if (nextCodeIs("LOG10#(")) {
+		err=float_1param_function(FUNC_LOG10);
+	} else if (nextCodeIs("POW#(")) {
+		err=float_2param_function(FUNC_POW);
+	} else if (nextCodeIs("SQRT#(")) {
+		err=float_1param_function(FUNC_SQRT);
+	} else if (nextCodeIs("CEIL#(")) {
+		err=float_1param_function(FUNC_CEIL);
+	} else if (nextCodeIs("FLOOR#(")) {
+		err=float_1param_function(FUNC_FLOOR);
+	} else if (nextCodeIs("FABS#(")) {
+		err=float_1param_function(FUNC_FABS);
+	} else if (nextCodeIs("MODF#(")) {
+		err=float_1param_function(FUNC_MODF);
+	} else if (nextCodeIs("FMOD#(")) {
+		err=float_2param_function(FUNC_FMOD);
+	} else if (nextCodeIs("GOSUB#(")) {
+		err=gosub_function();
+	} else if (nextCodeIs("ARGS#(")) {
+		err=args_function();
+	} else if (nextCodeIs("PI#")) {
+		return float_constant(3.141593);
+	} else {
+		return ERR_SYNTAX;
+	}
+	if (err) return err;
+	if (g_source[g_srcpos]!=')') return ERR_SYNTAX;
+	g_srcpos++;
+	return 0;
+}
+
 char* str_function(void){
 	char* err;
 	if (nextCodeIs("CHR$(")) {
@@ -237,6 +442,18 @@
 		err=dec_function();
 	} else if (nextCodeIs("INPUT$(")) {
 		err=input_function();
+	} else if (nextCodeIs("GOSUB$(")) {
+		err=gosub_function();
+	} else if (nextCodeIs("ARGS$(")) {
+		err=args_function();
+	} else if (nextCodeIs("READ$(")) {
+		err=read_function();
+	} else if (nextCodeIs("SPRINTF$(")) {
+		err=sprintf_function();
+	} else if (nextCodeIs("FLOAT$(")) {
+		err=floatstr_function();
+	} else if (nextCodeIs("SYSTEM$(")) {
+		err=system_function();
 	} else {
 		return ERR_SYNTAX;
 	}
@@ -260,6 +477,8 @@
 		err=keys_function();
 	} else if (nextCodeIs("READ(")) {
 		err=read_function();
+	} else if (nextCodeIs("CREAD(")) {
+		err=cread_function();
 	} else if (nextCodeIs("GOSUB(")) {
 		err=gosub_function();
 	} else if (nextCodeIs("STRNCMP(")) {
@@ -280,6 +499,14 @@
 		err=val_function();
 	} else if (nextCodeIs("INKEY(")) {
 		err=inkey_function();
+	} else if (nextCodeIs("ARGS(")) {
+		err=args_function();
+	} else if (nextCodeIs("SYSTEM(")) {
+		err=system_function();
+	} else if (nextCodeIs("INT(")) {
+		err=int_function();
+	} else if (nextCodeIs("GCOLOR(")) {
+		err=graphic_statement(FUNC_GCOLOR);
 	} else {
 		return ERR_SYNTAX;
 	}
@@ -288,18 +515,3 @@
 	g_srcpos++;
 	return err;
 }
-
-/*
-int g_v0;
-int g_v1;
-int test(int v0,int v1){
-	g_v1=g_v0>0?g_v0:-g_v0;
-	asm volatile("addiu $v1,$v0,-1");
-	asm volatile("loop:");
-	asm volatile("lb $a0,1($v1)");
-	asm volatile("addiu $v1,$v1,1");
-	asm volatile("bne $a0,$zero,loop");
-	asm volatile("subu $v0,$v1,$v0");
-	return v0*v1;
-}
-//*/

--- mips/trunk/globalvars.c	(revision 148)
+++ mips/trunk/globalvars.c	(revision 149)
@@ -1,14 +1,16 @@
 /*
    This file is provided under the LGPL license ver 2.1.
-   Written by Katsumi.
+   Written by K.Tanaka & Katsumi
+   http://www.ze.em-net.ne.jp/~kenken/index.html
    http://hp.vector.co.jp/authors/VA016157/
-   [e-mail]
 */
 
 #include "compiler.h"
+#include "main.h"
 
-// Contain the valus of $gp (GPR of MIPS32)
+// Contain the valus of $gp and $s6 (GPR of MIPS32)
 int g_gp;
+int g_s6;
 
 // Line data when compiling
 int g_line;
@@ -23,6 +25,14 @@
 int g_sdepth;
 int g_maxsdepth;
 
+// Following var shows what type of variable was defined
+// in compiling the last code.
+enum variable g_lastvar;
+
+// Vars used for handling constant integer
+int g_intconst;
+char g_valueisconst;
+
 // Global vars associated to RAM
 char* g_source;
 int g_srcpos;
@@ -29,7 +39,8 @@
 int* g_object;
 int g_objpos;
 int* g_objmax;
-char RAM[RAMSIZE] __attribute__((persistent,address(0xA0008000-RAMSIZE)));
+char RAM[RAMSIZE] __attribute__((persistent,address(0xA0000000+PIC32MX_RAMSIZE-PERSISTENT_RAM_SIZE)));
+unsigned int g_ex_data[EXCEPTION_DATA_SIZE/4] __attribute__((persistent,address(0xA0000000+PIC32MX_RAMSIZE-EXCEPTION_DATA_SIZE)));
 
 // Global area for vars A-Z and three temporary string pointers
 int g_var_mem[ALLOC_BLOCK_NUM];
@@ -36,6 +47,9 @@
 unsigned short g_var_pointer[ALLOC_BLOCK_NUM];
 unsigned short g_var_size[ALLOC_BLOCK_NUM];
 
+// Flag to use temporary area when compiling
+char g_temp_area_used;
+
 // Heap area
 int* g_heap_mem;
 int g_max_mem;
@@ -48,3 +62,10 @@
 
 // Font data used for PCG
 unsigned char* g_pcg_font;
+
+// Use or do not use graphic
+char g_use_graphic;
+
+// Pointer to graphic RAM
+unsigned short* g_graphic_area;
+

--- mips/trunk/run.c	(revision 148)
+++ mips/trunk/run.c	(revision 149)
@@ -9,13 +9,8 @@
 #include "api.h"
 #include "compiler.h"
 #include "editor.h"
+#include "main.h"
 
-/* Prototypes */
-char* init_file(char* buff,char* appname);
-char* compile_file();
-void wait60thsec(unsigned short n);
-extern FSFILE* g_fhandle;
-
 char* printdec(int num){
 	char str[11];
 	int i;
@@ -67,11 +62,14 @@
 		return -1;
 	}
 
+	// Initialize parameters
 	g_pcg_font=0;
-	g_rnd_seed=0x3045;
+	g_use_graphic=0;
+	g_graphic_area=0;
 	clearscreen();
-	setcursor(0,0,7);
-	printstr("BASIC KM-1120\n");
+	setcursor(0,0,7);	
+
+	printstr("BASIC "BASVER"\n");
 	wait60thsec(15);
 	// Initialize music
 	init_music();
@@ -80,7 +78,7 @@
 
 	// Compile the file
 	err=compile_file();
-	FSfclose(g_fhandle);
+	close_file();
 	if (err) {
 		// Compile error
 		printstr(err);
@@ -112,6 +110,21 @@
 	if(test) return 0; //コンパイルのみの場合
 	wait60thsec(15);
 
+	// Initialize the other parameters
+	// Random seed
+	g_rnd_seed=2463534242;
+	// Clear variables
+	for(i=0;i<ALLOC_BLOCK_NUM;i++){
+		g_var_mem[i]=0;
+		g_var_size[i]=0;
+	}
+	// Clear key input buffer
+	for(i=0;i<256;i++){
+		ps2keystatus[i]=0;
+	}
+	// Reset data/read.
+	reset_dataread();
+
 	// Assign memory
 	set_free_area((void*)(g_object+g_objpos),(void*)(&RAM[RAMSIZE]));
 	// Execute program
@@ -119,6 +132,8 @@
 	// Work area (used for A-Z values) is next to the object code area.
 	start_program((void*)(&(RAM[0])),(void*)(&g_var_mem[0]));
 	printstr("\nOK\n");
+	set_graphmode(0);
+	g_use_graphic=0;
 
 	return 0;
 }

--- mips/trunk/statement.c	(revision 148)
+++ mips/trunk/statement.c	(revision 149)
@@ -8,6 +8,18 @@
 #include "api.h"
 #include "compiler.h"
 
+char* rem_statement(){
+	if (g_source[g_srcpos-4]<0x20) {
+		// This line contains only "REM" statement
+		// Delete $s6-setting command if exists.
+		if ((g_object[g_objpos-1]&0xffff0000)==0x34160000) g_objpos--;
+	}
+	while(0x20<=g_source[g_srcpos]){
+		g_srcpos++;
+	}
+	return 0;
+}
+
 char* sound_statement(){
 	char *err;
 	err=get_label();
@@ -42,21 +54,13 @@
 	b1=g_source[g_srcpos];
 	while('0'<=b1 && b1<='9' || b1=='-' || b1=='$'){
 		prevpos=g_objpos;
+		g_valueisconst=1;
 		err=get_simple_value();
+		if (!g_valueisconst) err=ERR_SYNTAX;
 		if (err) return err;
-		if (g_objpos==prevpos+1) {
-			// 16 bit value was taken
-			i=g_object[g_objpos-1]&0x0000FFFF;
-		} else if (g_objpos==prevpos+2) {
-			// 32 bit value was taken
-			i=g_object[g_objpos-2]&0x0000FFFF;
-			i<<=16;
-			i|=g_object[g_objpos-1]&0x0000FFFF;
-		} else {
-			return ERR_SYNTAX;
-		}
+		check_obj_space(1);
 		g_objpos=prevpos;
-		g_object[g_objpos++]=i;
+		g_object[g_objpos++]=g_intconst;
 		next_position();
 		b1=g_source[g_srcpos];
 		if (b1!=',') break;
@@ -63,26 +67,123 @@
 		g_srcpos++;
 		next_position();
 		b1=g_source[g_srcpos];
+		if (b1==0x0d || b1==0x0a) {
+			// Multiline DATA/EXEC statement
+			g_line++;
+			g_fileline++;
+			if (b1==0x0D && g_source[g_srcpos+1]==0x0A) g_srcpos++;
+			g_srcpos++;
+			// Maintain at least 256 characters in cache.
+			if (256<=g_srcpos) read_file(256);
+			next_position();
+			b1=g_source[g_srcpos];
+		}			
 	}
 	return 0;
 }
 
-char* data_statement(){
-	// 0x00000021(addu zero,zero,zero) is the sign of data region
-	int i,prevpos;
+char* cdata_statement(){
+	// 0x00000020, 0x00000021, 0x00000022, and 0x00000023 (add/addu/sub/subu zero,zero,zero) 
+	// are the sign of data region
+	int beginpos,prevpos;
 	char* err;
-	prevpos=g_objpos;
+	char b1;
+	char* cpy;
+	int shift=0;
+	int i=0;
+	beginpos=g_objpos;
 	check_obj_space(2);
 	g_object[g_objpos++]=0x04110000; // bgezal      zero,xxxx
-	g_object[g_objpos++]=0x00000021; // addu        zero,zero,zero
-	err=exec_statement();
-	if (err) return err;
+	g_object[g_objpos++]=0x00000020; // add         zero,zero,zero
+	next_position();
+	b1=g_source[g_srcpos];
+	while('0'<=b1 && b1<='9' || b1=='-' || b1=='$'){
+		prevpos=g_objpos;
+		g_valueisconst=1;
+		err=get_simple_value();
+		if (!g_valueisconst) err=ERR_SYNTAX;
+		if (g_intconst<0x00 || 0xff<g_intconst) err=ERR_SYNTAX;
+		if (err) return err;
+		g_objpos=prevpos;
+		i|=g_intconst<<shift;
+		shift+=8;
+		if (32<=shift) {
+			check_obj_space(1);
+			g_object[g_objpos++]=i;
+			shift=0;
+			i=0;
+		}
+		next_position();
+		b1=g_source[g_srcpos];
+		if (b1!=',') break;
+		g_srcpos++;
+		next_position();
+		b1=g_source[g_srcpos];
+		if (b1==0x0d || b1==0x0a) {
+			// Multiline CDATA statement
+			g_line++;
+			g_fileline++;
+			if (b1==0x0D && g_source[g_srcpos+1]==0x0A) g_srcpos++;
+			g_srcpos++;
+			// Maintain at least 256 characters in cache.
+			if (256<=g_srcpos) read_file(256);
+			next_position();
+			b1=g_source[g_srcpos];
+		}			
+	}
+	// Write the last 1-3 bytes and shift data if total # is not multipes of 4.
+	if (0<shift) {
+		// Convert shift value from bit-shift to data byte-shift.
+		shift=4-shift/8;
+		check_obj_space(1);
+		g_object[g_objpos++]=i;
+		for(cpy=(char*)&g_object[g_objpos]-1;(char*)&g_object[beginpos+2]<cpy;cpy--){
+			cpy[0]=cpy[0-shift];
+		}
+	}
 	// Determine the size of data
-	i=g_objpos-prevpos-1;
-	g_object[prevpos]=0x04110000|i; // bgezal zero,xxxx
+	i=g_objpos-beginpos-1;
+	g_object[beginpos]  =0x04110000|i;     // bgezal zero,xxxx
+	g_object[beginpos+1]=0x00000020|shift; // add         zero,zero,zero
 	return 0;
 }
 
+char* data_statement(){
+	// 0x00000020, 0x00000021, 0x00000022, and 0x00000023 (add/addu/sub/subu zero,zero,zero) 
+	// are the sign of data region
+	int i,prevpos;
+	char* err;
+	while(1){
+		prevpos=g_objpos;
+		check_obj_space(2);
+		g_object[g_objpos++]=0x04110000; // bgezal      zero,xxxx
+		g_object[g_objpos++]=0x00000020; // add         zero,zero,zero
+		next_position();
+		if (g_source[g_srcpos]=='"') {
+			// Constant string
+			// Store pointer to string. This is 3 words bellow of current position
+			g_object[g_objpos]=(int)(&g_object[g_objpos+3]);
+			g_objpos++;
+			g_object[prevpos]=0x04110002; // bgezal zero,xxxx
+			err=simple_string();
+			if (err) return err;
+			next_position();
+			if (g_source[g_srcpos]==',') continue;
+			return 0;
+		}
+		err=exec_statement();
+		if (err) return err;
+		// Determine the size of data
+		i=g_objpos-prevpos-1;
+		g_object[prevpos]=0x04110000|i; // bgezal zero,xxxx
+		if (g_source[g_srcpos]=='"') {
+			// Constant string
+			continue;
+		}
+		return 0;
+	}
+}
+
 char* clear_statement(){
 	call_lib_code(LIB_CLEAR);
 	return 0;
@@ -109,26 +210,44 @@
 char* dim_statement(){
 	char* err;
 	char b1;
+	int spos;
+	int stack;
 	while(1){
+		stack=0;
 		next_position();
 		b1=g_source[g_srcpos];
 		if (b1<'A' || 'Z'<b1) return ERR_SYNTAX;
 		g_srcpos++;
+		if (g_source[g_srcpos]=='#') g_srcpos++;
 		next_position();
 		if (g_source[g_srcpos]!='(') return ERR_SYNTAX;
-		g_srcpos++;
-		err=get_value();
-		if (err) return err;
+		check_obj_space(1);
+		spos=g_objpos++;           // addiu       sp,sp,xxxx
+		do {
+			g_srcpos++;
+			err=get_value();
+			if (err) return err;
+			stack+=4;
+			check_obj_space(1);
+			g_object[g_objpos++]=0xAFA20000|stack; // sw          v0,8(sp)
+		} while (g_source[g_srcpos]==',');
 		if (g_source[g_srcpos]!=')') return ERR_SYNTAX;
 		g_srcpos++;
-		check_obj_space(2);
-		g_object[g_objpos++]=0x24040000|(b1-'A'); //addiu       a0,zero,xx
+		check_obj_space(3);
+		g_object[g_objpos++]=0x24040000|(b1-'A');  // addiu       a0,zero,xx
+		g_object[g_objpos++]=0x24050000|(stack/4); // addiu       a1,zero,xxxx
+		g_object[g_objpos++]=0x03A01025;           // or          v0,sp,zero
 		call_lib_code(LIB_DIM);
+		// Stack -/+
+		check_obj_space(1);
+		g_object[g_objpos++]=0x27BD0000|stack;     // addiu       sp,sp,xxxx
+		stack=(0-stack)&0x0000FFFF;
+		g_object[spos]=0x27BD0000|stack;           // addiu       sp,sp,xxxx
 		next_position();
 		if (g_source[g_srcpos]!=',') break;
 		g_srcpos++;
 	}
-	return 0;	
+	return 0;
 }
 
 char* label_statement(){
@@ -157,16 +276,11 @@
 	if (err) return err;
 	if (g_label) {
 		// Constant label/number
-		if (g_label<65536) {
-			// 16 bit
-			check_obj_space(1);
-			g_object[g_objpos++]=0x34020000|g_label;              // ori         v0,zero,xxxx
-		} else {
-			// 32 bit
-			check_obj_space(2);
-			g_object[g_objpos++]=0x3C020000|(g_label>>16);        // lui         v0,xxxx
-			g_object[g_objpos++]=0x34420000|(g_label&0x0000FFFF); // ori         v0,v0,xxxx
-		}
+		// Use 32 bit mode also for values<65536
+		// This code will be replaced to code for v0 for pointer in linker.
+		check_obj_space(2);
+		g_object[g_objpos++]=0x3C020000|(g_label>>16);        // lui         v0,xxxx
+		g_object[g_objpos++]=0x34420000|(g_label&0x0000FFFF); // ori         v0,v0,xxxx
 	} else {
 		// Dynamic number
 		err=get_value();
@@ -176,7 +290,7 @@
 	return 0;
 }
 
-char* gosub_statement(){
+char* gosub_statement_sub(){
 	char* err;
 	err=get_label();
 	if (err) return err;
@@ -211,6 +325,50 @@
 	return 0;
 }
 
+char* gosub_statement(){
+	char* err;
+	int opos,spos,stack;
+	opos=g_objpos;
+	spos=g_srcpos;
+	err=gosub_statement_sub();
+	if (err) return err;
+	next_position();
+	// If there is no 2nd argument, return.
+	if (g_source[g_srcpos]!=',') return 0;
+
+	// There is (at least) 2nd argument.
+	// Rewind object and construct argument-creating routine.
+	g_objpos=opos;
+	stack=4;
+	g_object[g_objpos++]=0x27BD0000;           // addiu       sp,sp,-xx
+	do {
+		g_srcpos++;
+		stack+=4;
+		err=get_stringFloatOrValue();
+		if (err) return err;
+		check_obj_space(1);
+		g_object[g_objpos++]=0xAFA20000|stack; // sw          v0,xx(sp)
+		next_position();
+	} while(g_source[g_srcpos]==',');
+	check_obj_space(2);
+	g_object[g_objpos++]=0xAFB50004;           // sw          s5,4(sp)
+	g_object[g_objpos++]=0x03A0A821;           // addu        s5,sp,zero
+	g_object[opos]|=((0-stack)&0xFFFF);        // addiu       sp,sp,-xx (See above)
+	// Rewind source and construct GOSUB routine again.
+	opos=spos;
+	spos=g_srcpos;
+	g_srcpos=opos;
+	err=gosub_statement_sub();
+	if (err) return err;
+	// Remove stack
+	check_obj_space(2);
+	g_object[g_objpos++]=0x8FB50004;           // lw          s5,4(sp)
+	g_object[g_objpos++]=0x27BD0000|stack;     // addiu       sp,sp,xx
+	// All done, go back to wright source position
+	g_srcpos=spos;
+	return 0;
+}
+
 char* return_statement(){
 	char* err;
 	char b1;
@@ -218,7 +376,7 @@
 	b1=g_source[g_srcpos];
 	if (0x20<b1 && b1!=':') {
 		// There is a return value.
-		err=get_value();
+		err=get_stringFloatOrValue();
 		if (err) return err;
 	}
 	check_obj_space(3);
@@ -255,16 +413,31 @@
 	char* err;
 	int prevpos,bpos;
 	// Get value.
-	err=get_value();
+	err=get_floatOrValue();
 	if (err) return err;
 	// Check "THEN"
-	if (!nextCodeIs("THEN ")) return ERR_SYNTAX;
+	if (!nextCodeIs("THEN")) return ERR_SYNTAX;
+	// Check if statement follows after THEN statement
+	next_position();
+	if (nextCodeIs("REM")) {
+		// If REM statement follows, skip comment words.
+		rem_statement();
+	}
+	if (g_source[g_srcpos]<0x20) {
+		// End of line.
+		// Use IF-THEN-ENDIF mode (multiple line mode)
+		check_obj_space(3);
+		g_object[g_objpos++]=0x30000000; // nop (see linker)
+		g_object[g_objpos++]=0x10400000; // beq         v0,zero,xxxx
+		g_object[g_objpos++]=0x30000000; // nop (see linker)
+		return 0;
+	}
+	// One line mode
 	// If $v0=0 then skip.
 	bpos=g_objpos;
 	check_obj_space(2);
 	g_object[g_objpos++]=0x10400000; // beq         v0,zero,xxxx
 	g_object[g_objpos++]=0x00000000; // nop
-	// Next statement is either label or general statement
 	prevpos=g_srcpos;
 	if (statement()) {
 		// May be label
@@ -315,8 +488,61 @@
 	return 0;
 }
 
+char* elseif_statement(void){
+	// Multiple line mode
+	char* err;
+	g_object[g_objpos++]=0x08160100; // breakif (see linker)
+	g_object[g_objpos++]=0x30008000; // nop (see linker)
+	// Get value.
+	err=get_floatOrValue();
+	if (err) return err;
+	// Check "THEN"
+	if (!nextCodeIs("THEN")) return ERR_SYNTAX;
+	// Check if statement follows after THEN statement
+	next_position();
+	if (nextCodeIs("REM")) {
+		// If REM statement follows, skip comment words.
+		rem_statement();
+	}
+	if (0x20<=g_source[g_srcpos]) return ERR_SYNTAX;
+	// Statement didn't follow after THEM statement (that is correct).
+	g_object[g_objpos++]=0x10400000; // beq         v0,zero,xxxx
+	g_object[g_objpos++]=0x30000000; // nop (see linker)
+	return 0;
+	
+}
 
+char* else_statement(void){
+	// Multiple line mode
+	g_object[g_objpos++]=0x08160100; // breakif (see linker)
+	g_object[g_objpos++]=0x30008000; // nop (see linker)
+	g_object[g_objpos++]=0x30000000; // nop (see linker)
+	// Check if statement follows after THEN statement
+	next_position();
+	if (nextCodeIs("REM")) {
+		// If REM statement follows, skip comment words.
+		rem_statement();
+	}
+	if (0x20<=g_source[g_srcpos]) return ERR_SYNTAX;
+	// Statement didn't follow after THEM statement (that is correct).
+	return 0;
+}
 
+char* endif_statement(void){
+	// Multiple line mode
+	g_object[g_objpos++]=0x30008000; // nop (see linker)
+	g_object[g_objpos++]=0x30008000; // nop (see linker)
+	// Check if statement follows after THEN statement
+	next_position();
+	if (nextCodeIs("REM")) {
+		// If REM statement follows, skip comment words.
+		rem_statement();
+	}
+	if (0x20<=g_source[g_srcpos]) return ERR_SYNTAX;
+	// Statement didn't follow after THEM statement (that is correct).
+	return 0;
+}
+
 char* end_statement(void){
 	int i;
 	i=(int)&g_end_addr;
@@ -328,17 +554,70 @@
 	return 0;
 }
 
+char* let_dim_sub(char b1){
+	char* err;
+	g_srcpos++;
+	err=get_value();
+	if (err) return err;
+	check_obj_space(4);
+	g_object[g_objpos++]=0x00021080;              // sll v0,v0,0x2
+	g_object[g_objpos++]=0x8FC30000|((b1-'A')*4); // lw    v1,xx(s8)
+	g_object[g_objpos++]=0x00621821;              // addu  v1,v1,v0
+	g_object[g_objpos++]=0xAFA30004;              // sw    v1,4(sp)
+	while(g_source[g_srcpos]==','){
+		g_srcpos++;
+		err=get_value();
+		if (err) return err;
+		check_obj_space(4);
+		g_object[g_objpos++]=0x00021080;          // sll v0,v0,0x2
+		g_object[g_objpos++]=0x8FA30004;          // lw    v1,4(sp)
+		g_object[g_objpos++]=0x8C630000;          // lw    v1,0(v1)
+		g_object[g_objpos++]=0x00621821;          // addu  v1,v1,v0
+		g_object[g_objpos++]=0xAFA30004;          // sw    v1,4(sp)
+	}
+	if (g_source[g_srcpos]!=')') return ERR_SYNTAX;
+	g_srcpos++;
+	return 0;
+};
 
 char* let_statement(){
 	char* err;
-	char b1,b2;
+	char b1,b2,b3;
 	int i;
 	next_position();
 	b1=g_source[g_srcpos];
 	b2=g_source[g_srcpos+1];
+	b3=g_source[g_srcpos+2];
 	if (b1<'A' || 'Z'<b1) return ERR_SYNTAX;
 	g_srcpos++;
-	if (b2=='$') {
+	if (b2=='#' && b3=='(') {
+		// Float dimension
+		g_srcpos++;
+		check_obj_space(1);
+		g_object[g_objpos++]=0x27BDFFFC;              // addiu sp,sp,-4
+		let_dim_sub(b1);
+		next_position();
+		if (g_source[g_srcpos]!='=') return ERR_SYNTAX;
+		g_srcpos++;
+		err=get_float();
+		if (err) return err;
+		check_obj_space(3);
+		g_object[g_objpos++]=0x8FA30004;              // lw    v1,4(sp)
+		g_object[g_objpos++]=0x27BD0004;              // addiu sp,sp,4
+		g_object[g_objpos++]=0xAC620000;              // sw    v0,0(v1)
+		return 0;
+	} else if (b2=='#') {
+		// Float A-Z
+		g_srcpos++;
+		next_position();
+		if (g_source[g_srcpos]!='=') return ERR_SYNTAX;
+		g_srcpos++;
+		err=get_float();
+		if (err) return err;
+		check_obj_space(1);
+		g_object[g_objpos++]=0xAFC20000|((b1-'A')*4); // sw v0,xxx(s8)
+		return 0;
+	} else 	if (b2=='$') {
 		// String
 		g_srcpos++;
 		next_position();
@@ -352,17 +631,9 @@
 		return 0;
 	} else if (b2=='(') {
 		// Dimension
-		g_srcpos++;
-		err=get_value();
-		if (err) return err;
-		if (g_source[g_srcpos]!=')') return ERR_SYNTAX;
-		g_srcpos++;
-		check_obj_space(5);
-		g_object[g_objpos++]=0x00021080;              // sll v0,v0,0x2
-		g_object[g_objpos++]=0x8FC30000|((b1-'A')*4); // lw    v1,xx(s8)
-		g_object[g_objpos++]=0x00621821;              // addu  v1,v1,v0
+		check_obj_space(1);
 		g_object[g_objpos++]=0x27BDFFFC;              // addiu sp,sp,-4
-		g_object[g_objpos++]=0xAFA30004;              // sw    v1,4(sp)
+		let_dim_sub(b1);
 		next_position();
 		if (g_source[g_srcpos]!='=') return ERR_SYNTAX;
 		g_srcpos++;
@@ -389,7 +660,7 @@
 char* print_statement(){
 	char* err;
 	char b1;
-	int i,prevpos;
+	int i;
 	int status=0;// 1:',' 2:';' 0:none
 	while(1){
 		next_position();
@@ -396,17 +667,23 @@
 		b1=g_source[g_srcpos];
 		if (b1<0x20 || b1==':') break;
 		if (!strncmp(g_source+g_srcpos,"ELSE "  ,5)) break;	
-		prevpos=g_objpos;
-		err=get_string();
-		if (err) {
-			// Restore changes caused by trying get_string().
-			g_objpos=prevpos;
-			g_sdepth=0;
-			// May be integer
-			err=get_value();
-			if (err) return err;
-			// Use DEC$() function.
-			call_lib_code(LIB_DEC);
+		err=get_stringFloatOrValue();
+		if (err) return err;
+		switch(g_lastvar){
+			case VAR_INTEGER:
+				// Use DEC$() function.
+				call_lib_code(LIB_DEC);
+				break;
+			case VAR_FLOAT:
+				// Use FLOAT$() function.
+				check_obj_space(2);
+				g_object[g_objpos++]=0x00022021; //addu        a0,zero,v0
+				g_object[g_objpos++]=0x34020000; //ori         v0,zero,0x0000
+				call_lib_code(LIB_SPRINTF);
+				break;
+			case VAR_STRING:
+			default:
+				break;
 		}
 		// Call printstr() function
 		// First argument is the pointer to string
@@ -435,6 +712,14 @@
 	}
 	return 0;
 }
+
+char* break_statement(){
+	check_obj_space(2);
+	g_object[g_objpos++]=0x08160000; // j           xxxx     (See link() function)
+	g_object[g_objpos++]=0x00000000; // nop
+	return 0;
+}
+
 char* for_statement(){
 	char* err;
 	char b1;
@@ -455,10 +740,11 @@
 	//    4(sp): Address to return to in "NEXT" statement.
 	// Store "TO" value in stack
 	check_obj_space(2);
-	g_object[g_objpos++]=0x27BDFFF4; // addiu sp,sp,-12
+	g_object[g_objpos++]=0x0820FFF4; // addiu sp,sp,-12 (see linker)
 	g_object[g_objpos++]=0xAFA2000C; // sw v0,12(sp)
 	// Check if "STEP" exists
 	next_position();
+	g_valueisconst=1;
 	if (nextCodeIs("STEP ")) {
 		// "STEP" exists. Get value
 		err=get_value();
@@ -467,51 +753,133 @@
 		// "STEP" not exist. Use "1".	
 		check_obj_space(1);
 		g_object[g_objpos++]=0x24020001; // addiu v0,zero,1
+		g_intconst=1;
 	}
-	// Store "STEP" value in stack and jump to start address 
-	// while store return address to $ra.
-	check_obj_space(11);
-	g_object[g_objpos++]=0x04110009;              // bgezal     zero,label1
-	g_object[g_objpos++]=0xAFA20008;              // sw         v0,8(sp)
+	check_obj_space(14);
+	g_object[g_objpos++]=0xAFA20008;              // sw          v0,8(sp)       (STEP value)
+	g_object[g_objpos++]=0x04110004;              // bgezal      zero,check
+	g_object[g_objpos++]=0x8FC40000|((b1-'A')*4); // lw          a0,xx(s8)      (current var value)
 	// After executing "NEXT" statement, process reaches following line.
-	// Go to next step and check if variable reachs "TO" value.
-	// Note that $v1 is set to 12($sp) in NEXT statement.
-	// If yes, exit FOR-NEXT loop while restore stack pointer.
-	// Note that $ra contain the address to go to.
-	g_object[g_objpos++]=0x8FC20000|((b1-'A')*4); // lw          v0,xx(s8)
-	g_object[g_objpos++]=0x14430003;              // bne         v0,v1,label0
-	g_object[g_objpos++]=0x8FA30008;              // lw          v1,8(sp)
-	g_object[g_objpos++]=0x03E00008;              // jr          ra
-	g_object[g_objpos++]=0x27BD000C;              // addiu       sp,sp,12
-	                                              // label0
-	g_object[g_objpos++]=0x00431021;              // addu        v0,v0,v1
-	g_object[g_objpos++]=0x10000002;              // beq         zero,zero,label2 
-	g_object[g_objpos++]=0xAFC20000|((b1-'A')*4); // sw          v0,xx(s8)
-	                                              // label1:
+	// Update variable value by adding STEP value
+	// Note that STEP value is loaded onto $v0 in NEXT statement
+	g_object[g_objpos++]=0x8FC40000|((b1-'A')*4); // lw          a0,xx(s8)      (current var value)
+	g_object[g_objpos++]=0x00822021;              // addu        a0,a0,v0
+	g_object[g_objpos++]=0xAFC40000|((b1-'A')*4); // sw          a0,xx(s8)      (new var value)
+	// Value-checking routine and storing ra in stack
+	                                              // check:
+	g_object[g_objpos++]=0x8FA3000C;              // lw          v1,12(sp)      (TO value)
+	g_object[g_objpos++]=0x00641823;              // subu        v1,v1,a0
+	g_object[g_objpos++]=0x04420001;              // bltzl       v0,negative
+	g_object[g_objpos++]=0x00031823;              // subu        v1,zero,v1
+	                                              // negative:
+	g_object[g_objpos++]=0x04610003;              // bgez        v1,continue
 	g_object[g_objpos++]=0xAFBF0004;              // sw          ra,4(sp)
-	                                              // label2:
+	break_statement();                            // (2 words)
+	                                              // continue:
 	return 0;
 }
 
 char* next_statement(){
 	// Return to address stored in 4($sp)
-	// while set $v1 to 8($sp) (see for_statement) 
-	// and store return address to exit FOR-NEXT loop.
-	check_obj_space(3);
-	g_object[g_objpos++]=0x8FA20004; // lw          v0,4(sp)
-	g_object[g_objpos++]=0x0040F809; // jalr        ra,v0
-	g_object[g_objpos++]=0x8FA3000C; // lw          v1,12(sp)
+	// while set $v0 to 8($sp) (see for_statement) 
+	check_obj_space(4);
+	g_object[g_objpos++]=0x8FBF0004; // lw          ra,4(sp)
+	g_object[g_objpos++]=0x03E00008; // jr          ra
+	g_object[g_objpos++]=0x8FA20008; // lw          v0,8(sp)       (STEP value)
+	g_object[g_objpos++]=0x0830000C; // addiu       sp,sp,12 (see linker)
 	return 0;
 }
 
-char* rem_statement(){
-	while(0x20<=g_source[g_srcpos]){
-		g_srcpos++;
+char* do_statement(){
+	char* err;
+	// Usage of stack:
+	//    4(sp): Address to return to in "DO" statement.
+	check_obj_space(3);
+	g_object[g_objpos++]=0x04110001;//   bgezal      zero,label1:
+	g_object[g_objpos++]=0x0822FFFC;//   addiu       sp,sp,-4 (see linker)
+	                                //   label1:
+	g_object[g_objpos++]=0xAFBF0004;//   sw          ra,4(sp)
+	next_position();
+	if (nextCodeIs("WHILE ")) {
+		// DO WHILE
+		err=get_floatOrValue();
+		if (err) return err;
+		check_obj_space(2);
+		g_object[g_objpos++]=0x14400003; // bne         v0,zero,labe2
+		g_object[g_objpos++]=0x00000000; // nop
+		return break_statement();        // (2 words)
+			                             // label2:
+
+	} else if (nextCodeIs("UNTIL ")) {
+		// DO UNTIL
+		err=get_floatOrValue();
+		if (err) return err;
+		check_obj_space(2);
+		g_object[g_objpos++]=0x10400003; // beq         v0,zero,label2
+		g_object[g_objpos++]=0x00000000; // nop
+		return break_statement();        // (2 words)
+			                             // label2:
+	} else {
+		// DO statement without WHILE/UNTIL
+		return 0;
 	}
+}
+
+char* loop_statement(){
+	char* err;
+	next_position();
+	if (nextCodeIs("WHILE ")) {
+		// LOOP WHILE
+		err=get_floatOrValue();
+		if (err) return err;
+		check_obj_space(1);
+		g_object[g_objpos++]=0x10400003; // beq         v0,zero,label1
+	} else if (nextCodeIs("UNTIL ")) {
+		// LOOP UNTIL
+		err=get_floatOrValue();
+		if (err) return err;
+		check_obj_space(1);
+		g_object[g_objpos++]=0x14400003; // bne         v0,zero,label
+	} else {
+		// LOOP statement without WHILE/UNTIL
+	}
+	check_obj_space(4);
+	g_object[g_objpos++]=0x8FBF0004; // lw          ra,4(sp)
+	g_object[g_objpos++]=0x03E00008; // jr          ra
+	g_object[g_objpos++]=0x00000000; // nop
+	                                 // label1:
+	g_object[g_objpos++]=0x08320004; // addiu       sp,sp,4       (See link() function)
 	return 0;
 }
 
-char* palette_statement(){
+char* while_statement(){
+	char* err;
+	check_obj_space(3);
+	g_object[g_objpos++]=0x04110001; // bgezal      zero,label1:
+	g_object[g_objpos++]=0x0821FFFC; // addiu       sp,sp,-4 (see linker)
+	                                 // label1:
+	g_object[g_objpos++]=0xAFBF0004; // sw          ra,4(sp)
+	err=get_floatOrValue();
+	if (err) return err;
+	check_obj_space(2);
+	g_object[g_objpos++]=0x14400003; // bne         v0,zero,label2
+	g_object[g_objpos++]=0x00000000; // nop
+	return break_statement();        // (2 words)
+		                             // label2:
+}
+
+char* wend_statement(){
+	check_obj_space(4);
+	g_object[g_objpos++]=0x8FBF0004; // lw          ra,4(sp)
+	g_object[g_objpos++]=0x03E00008; // jr          ra
+	g_object[g_objpos++]=0x00000000; // nop
+	                                 // label1:
+	g_object[g_objpos++]=0x08310004; // addiu       sp,sp,4       (See link() function)
+	return 0;
+}
+
+char* palette_statement(enum libs lib){
+	// lib is either LIB_PALETTE or LIB_GPALETTE
 	// PALETTE N,R,G,B
 	char* err;
 	// Get N
@@ -547,7 +915,7 @@
 	g_object[g_objpos++]=0x8FA4000C; // lw          a0,12(sp)
 	g_object[g_objpos++]=0x27BD000C; // addiu       sp,sp,12
 	// a0=N, a1=(R<<16)|G, v0=B
-	call_lib_code(LIB_PALETTE);
+	call_lib_code(lib);
 	return 0;
 }
 
@@ -604,11 +972,30 @@
 	return 0;
 }
 
+char* usegraphic_statement(){
+	int objpos=g_objpos;
+	if (get_value()) {
+		// Getting integer failed.
+		// It supporsed to be not parameter
+		// and same as parameter=1.
+		g_objpos=objpos;
+		check_obj_space(1);
+		g_object[g_objpos++]=0x34020001; //ori         v0,zero,0x01
+	}
+	call_lib_code(LIB_USEGRAPHIC);
+	return 0;
+}
+
 char* cls_statement(){
 	call_lib_code(LIB_CLS);
 	return 0;
 }
 
+char* gcls_statement(){
+	call_lib_code(LIB_GCLS);
+	return 0;
+}
+
 char* color_statement(){
 	char* err;
 	err=get_value();
@@ -617,6 +1004,14 @@
 	return 0;
 }
 
+char* gcolor_statement(){
+	char* err;
+	err=get_value();
+	if (err) return err;
+	call_lib_code(LIB_GCOLOR);
+	return 0;
+}
+
 char* param2_statement(enum libs lib){
 	char* err;
 	// Get 1st
@@ -637,6 +1032,11 @@
 	return 0;
 }
 
+char* system_statement(){
+	// SYSTEM X,Y
+	return param2_statement(LIB_SYSTEM);
+}
+
 char* cursor_statement(){
 	// CURSOR X,Y
 	return param2_statement(LIB_CURSOR);
@@ -643,7 +1043,7 @@
 }
 
 char* scroll_statement(){
-	// CURSOR X,Y
+	// SCROLL X,Y
 	return param2_statement(LIB_SCROLL);
 }
 
@@ -662,14 +1062,208 @@
 	call_lib_code(LIB_WAIT);
 	return 0;
 }
+char* var_statement(){
+	// Clear flags
+	unsigned int flags=0;
+	// Prepare stack
+	// Note that 12 bytes is used in lib_var()
+	// Another 4 bytes is used for return address
+	short stack=12;
+	char b;
+	do {
+		// Seek variable
+		next_position();
+		b=g_source[g_srcpos++];
+		if (b<'A' || 'Z'<b) return ERR_SYNTAX;
+		flags|=1<<(b-'A');
+		stack+=4;
+		// Support float and string variables
+		b=g_source[g_srcpos];
+		if (b=='#' || b=='$') g_srcpos++;
+		// Seek ',' or end of statement
+		next_position();
+		b=g_source[g_srcpos++];
+	} while(b==',');
+	g_srcpos--;
+	// Jump to push routine, first
+	check_obj_space(2);
+	g_object[g_objpos++]=0x04110007;                    // bgezal      zero,label1
+	g_object[g_objpos++]=0x27BD0000|((0-stack)&0xffff); // addiu       sp,sp,-xx
+	// Process will be here after RETURN statement
+	// Pop routine
+	check_obj_space(1);
+	g_object[g_objpos++]=0x03A02821;                    // addu        a1,sp,zero
+	call_lib_code(LIB_VAR_POP);
+	// Restore stack and return
+	check_obj_space(4);
+	g_object[g_objpos++]=0x8FA30000|stack;              // lw          v1,xx(sp)
+	g_object[g_objpos++]=0x00600008;                    // jr          v1
+	g_object[g_objpos++]=0x27BD0000|stack;              // addiu       sp,sp,xx
+	// Push rotine
+	check_obj_space(4);                                 // label1:
+	g_object[g_objpos++]=0xAFBF0004;                    // sw          ra,4(sp)
+	g_object[g_objpos++]=0x03A02821;                    // addu        a1,sp,zero
+	g_object[g_objpos++]=0x3C040000|(flags>>16);        // lui         a0,XXXX
+	g_object[g_objpos++]=0x34840000|(flags&0xffff);     // ori         a0,a0,XXXX
+	call_lib_code(LIB_VAR_PUSH);
+	return 0;
+}
 
+char* graphic_statement(enum functions func){
+	/*
+		PSET X1,Y1[,C]
+		LINE X1,Y1,X2,Y2[,C]
+		BOXFILL X1,Y1,X2,Y2[,C]
+		CIRCLE X1,Y1,R[,C]
+		CIRCLEFILL X1,Y1,R[,C]
+		GPRINT X1,Y1,C,BC,S$
+		PUTBMP X1,Y1,M,N,BMP
+		$a0 cotains func (8 bits), X1 (12 bits) and Y1 (12 bits)
+		$a1 contains X2/R (12 bits) and Y2 (12 bits)
+		$v0 contains C/S$/BMP (32 bits)
+	*/
+	char* err;
+	int paramnum;
+	switch(func){
+		case FUNC_PSET:// X1,Y1[,C]
+		case FUNC_GCOLOR:// X1,Y1
+		case FUNC_POINT:// X1,Y1
+			paramnum=2;
+			break;
+		case FUNC_CIRCLE:// X1,Y1,R[,C]
+		case FUNC_CIRCLEFILL:// X1,Y1,R[,C]
+			paramnum=3;
+			break;
+		case FUNC_LINE:// X1,Y1,X2,Y2[,C]
+		case FUNC_BOXFILL:// X1,Y1,X2,Y2[,C]
+			paramnum=4;
+			break;
+		case FUNC_GPRINT:// X1,Y1,C,BC,S$
+		case FUNC_PUTBMP:// X1,Y1,M,N,BMP
+			paramnum=5;
+			break;
+		default:
+			return ERR_UNKNOWN;
+	}
+
+	next_position();
+	if (g_source[g_srcpos]==',') {
+		// X1 and Y1 is omitted. Set 0x800 for both.
+		check_obj_space(4);
+		g_object[g_objpos++]=0x27BDFFF8;              // addiu       sp,sp,-8
+		g_object[g_objpos++]=0x3C020080;              // lui         v0,0x0080
+		g_object[g_objpos++]=0x34420800;              // ori         v0,v0,0x0800
+		g_object[g_objpos++]=0xAFA20004;              // sw          v0,4(sp)
+	} else {
+		// X1
+		err=get_value();
+		if (err) return err;
+		check_obj_space(4);
+		g_object[g_objpos++]=0x27BDFFF8;              // addiu       sp,sp,-8
+		g_object[g_objpos++]=0x30420FFF;              // andi        v0,v0,0xfff
+		g_object[g_objpos++]=0x00021300;              // sll         v0,v0,0xc
+		g_object[g_objpos++]=0xAFA20004;              // sw          v0,4(sp)
+		// Y1
+		if (g_source[g_srcpos]!=',') return ERR_SYNTAX;
+		g_srcpos++;
+		err=get_value();
+		if (err) return err;
+		check_obj_space(4);
+		g_object[g_objpos++]=0x30420FFF;              // andi        v0,v0,0xfff
+		g_object[g_objpos++]=0x8FA40004;              // lw          a0,4(sp)
+		g_object[g_objpos++]=0x00441025;              // or          v0,v0,a0
+		g_object[g_objpos++]=0xAFA20004;              // sw          v0,4(sp)
+	}
+	if (2<paramnum) {
+		// X2, R, or M
+		if (g_source[g_srcpos]!=',') return ERR_SYNTAX;
+		g_srcpos++;
+		err=get_value();
+		if (err) return err;
+		check_obj_space(3);
+		g_object[g_objpos++]=0x30420FFF;          // andi        v0,v0,0xfff
+		g_object[g_objpos++]=0x00021300;          // sll         v0,v0,0xc
+		g_object[g_objpos++]=0xAFA20008;          // sw          v0,8(sp)
+		if (3<paramnum) {
+			// X2, BC, or N
+			if (g_source[g_srcpos]!=',') return ERR_SYNTAX;
+			g_srcpos++;
+			err=get_value();
+			if (err) return err;
+			check_obj_space(4);
+			g_object[g_objpos++]=0x30420FFF;      // andi        v0,v0,0xfff
+			g_object[g_objpos++]=0x8FA40008;      // lw          a0,8(sp)
+			g_object[g_objpos++]=0x00441025;      // or          v0,v0,a0
+			g_object[g_objpos++]=0xAFA20008;      // sw          v0,8(sp)
+		}
+	}
+	if (func==FUNC_GPRINT) {
+		// S$
+		if (g_source[g_srcpos]!=',') return ERR_SYNTAX;
+		g_srcpos++;
+		err=get_string();
+		if (err) return err;
+	} else if (func==FUNC_PUTBMP) {
+		// BMP
+		if (g_source[g_srcpos]!=',') return ERR_SYNTAX;
+		g_srcpos++;
+		err=get_label();
+		if (g_label && !err) {
+			// Label/number is constant.
+			// Linker will change following codes later.
+			// Note that 0x0814xxxx and 0x0815xxxx are specific codes for these.
+			check_obj_space(2);
+			g_object[g_objpos++]=0x08140000|((g_label>>16)&0x0000FFFF); // lui   v0,xxxx
+			g_object[g_objpos++]=0x08150000|(g_label&0x0000FFFF);       // ori v0,v0,xxxx
+			// Change func to FUNC_PUTBMP2 (label mode).
+			func=FUNC_PUTBMP2;
+		} else {
+			err=get_value();
+			if (err) return err;
+		}
+	} else {
+		// [,C]
+		if (g_source[g_srcpos]==',') {
+			g_srcpos++;
+			err=get_value();
+			if (err) return err;
+		} else {
+			// If C is omitted, use -1.
+			check_obj_space(1);
+			g_object[g_objpos++]=0x2402FFFF;      // addiu       v0,zero,-1
+		}
+	}
+	// Prepare $a0
+	check_obj_space(1);
+	g_object[g_objpos++]=0x34040000|(func&0x0ff); // ori         a0,zero,xxxx
+	g_object[g_objpos++]=0x00042600;              // sll         a0,a0,0x18
+	g_object[g_objpos++]=0x8FA30004;              // lw          v1,4(sp)
+	g_object[g_objpos++]=0x00832025;              // or          a0,a0,v1
+	// Prepare $a1
+	g_object[g_objpos++]=0x8FA50008;              // lw          a1,8(sp)
+	// Restore stack pointer
+	g_object[g_objpos++]=0x27BD0008;              // addiu       sp,sp,8
+	// Call library
+	call_lib_code(LIB_GRAPHIC);
+	return 0;
+}
+#ifdef __DEBUG
+	char* debug_statement(){
+		call_lib_code(LIB_DEBUG);
+		return 0;
+	}
+#endif
+
+
 char* statement(void){
 	char* err;
 	int prevpos;
 	next_position();
+	// Clear flag for temp area usage.
+	g_temp_area_used=0;
 	// Initialize stack handler used for value
 	g_sdepth=g_maxsdepth=0;
-	if (nextCodeIs("REM ")) {
+	if (nextCodeIs("REM")) {
 		err=rem_statement();
 	} else if (nextCodeIs("SOUND ")) {
 		err=sound_statement();
@@ -680,17 +1274,25 @@
 	} else if (nextCodeIs("CURSOR ")) {
 		err=cursor_statement();
 	} else if (nextCodeIs("PALETTE ")) {
-		err=palette_statement();
+		err=palette_statement(LIB_PALETTE);
+	} else if (nextCodeIs("GPALETTE ")) {
+		err=palette_statement(LIB_GPALETTE);
 	} else if (nextCodeIs("BGCOLOR ")) {
 		err=bgcolor_statement();
 	} else if (nextCodeIs("CLS")) {
 		err=cls_statement();
+	} else if (nextCodeIs("GCLS")) {
+		err=gcls_statement();
 	} else if (nextCodeIs("COLOR ")) {
 		err=color_statement();
+	} else if (nextCodeIs("GCOLOR ")) {
+		err=gcolor_statement();
 	} else if (nextCodeIs("RESTORE ")) {
 		err=restore_statement();
 	} else if (nextCodeIs("DATA ")) {
 		err=data_statement();
+	} else if (nextCodeIs("CDATA ")) {
+		err=cdata_statement();
 	} else if (nextCodeIs("LABEL ")) {
 		err=label_statement();
 	} else if (nextCodeIs("DIM ")) {
@@ -701,6 +1303,12 @@
 		err=print_statement();
 	} else if (nextCodeIs("IF ")) {
 		err=if_statement();
+	} else if (nextCodeIs("ELSEIF ")) {
+		err=elseif_statement();
+	} else if (nextCodeIs("ELSE")) {
+		err=else_statement();
+	} else if (nextCodeIs("ENDIF")) {
+		err=endif_statement();
 	} else if (nextCodeIs("END")) {
 		err=end_statement();
 	} else if (nextCodeIs("EXEC ")) {
@@ -727,6 +1335,42 @@
 		err=scroll_statement();
 	} else if (nextCodeIs("WAIT ")) {
 		err=wait_statement();
+	} else if (nextCodeIs("USEGRAPHIC")) {
+		err=usegraphic_statement();
+	} else if (nextCodeIs("PSET ")) {
+		err=graphic_statement(FUNC_PSET);
+	} else if (nextCodeIs("LINE ")) {
+		err=graphic_statement(FUNC_LINE);
+	} else if (nextCodeIs("BOXFILL ")) {
+		err=graphic_statement(FUNC_BOXFILL);
+	} else if (nextCodeIs("CIRCLE ")) {
+		err=graphic_statement(FUNC_CIRCLE);
+	} else if (nextCodeIs("CIRCLEFILL ")) {
+		err=graphic_statement(FUNC_CIRCLEFILL);
+	} else if (nextCodeIs("GPRINT ")) {
+		err=graphic_statement(FUNC_GPRINT);
+	} else if (nextCodeIs("PUTBMP ")) {
+		err=graphic_statement(FUNC_PUTBMP);
+	} else if (nextCodeIs("POINT ")) {
+		err=graphic_statement(FUNC_POINT);
+	} else if (nextCodeIs("VAR ")) {
+		err=var_statement();
+	} else if (nextCodeIs("DO")) {
+		err=do_statement();
+	} else if (nextCodeIs("LOOP")) {
+		err=loop_statement();
+	} else if (nextCodeIs("WHILE ")) {
+		err=while_statement();
+	} else if (nextCodeIs("WEND")) {
+		err=wend_statement();
+	} else if (nextCodeIs("BREAK")) {
+		err=break_statement();
+	} else if (nextCodeIs("SYSTEM")) {
+		err=system_statement();
+#ifdef __DEBUG
+	} else if (nextCodeIs("DEBUG")) {
+		err=debug_statement();
+#endif
 	} else {
 		err=let_statement();
 	}
@@ -733,5 +1377,11 @@
 	if (err) return err;
 	// Stack handler must be zero here.
 	if (g_sdepth!=0) return ERR_UNKNOWN;
+	// Check if temp area is used
+	if (g_temp_area_used) {
+		// Temp area is used. Insert a garbage collection flag setting routine.
+		check_obj_space(1);
+		g_object[g_objpos++]=0x7ED6F000;//   ext         s6,s6,0,31
+	}
 	return 0;
 }

--- mips/trunk/float.c	(nonexistent)
+++ mips/trunk/float.c	(revision 149)
@@ -0,0 +1,150 @@
+#include "./compiler.h"
+#include "stdlib.h"
+
+char* get_float_sub(int pr);
+
+char* get_simple_float(void){
+	int i;
+	float f;
+	char* err;
+	char b1,b2,b3;
+	next_position();
+	b1=g_source[g_srcpos];
+	if (b1=='(') {
+		// (...)
+		// Parenthesis
+		g_srcpos++;
+		next_position();
+		err=get_float_sub(priority(OP_VOID));
+		if (err) return err;
+		next_position();
+		if (g_source[g_srcpos]!=')') return ERR_SYNTAX;
+		g_srcpos++;
+	} else if (b1=='-') {
+		// Unary '-' operator
+		// Note that unary operators ( + and - ) have higher priority than the other operators
+		g_srcpos++;
+		err=get_simple_float();
+		if (err) return err;
+		check_obj_space(2);
+		g_object[g_objpos++]=0x3404;                         // ori a0,zero,0x123
+		g_object[g_objpos++]=0x34050000|(OP_SUB&0x0000FFFF); // ori a1,zero,xxxx
+		call_lib_code(LIB_FLOAT);
+	} else {
+		// Main routine of getting float value here
+		if (b1=='+') g_srcpos++; // Ignore unary '+' operator
+		next_position();
+		b1=g_source[g_srcpos];
+		b2=g_source[g_srcpos+1];
+		b3=g_source[g_srcpos+2];
+		if ('0'<=b1 && b1<='9') {
+			f=strtof((const char*)&g_source[g_srcpos],&err);
+			if (&g_source[g_srcpos]==err) return ERR_SYNTAX;
+			g_srcpos=err-g_source;
+			i=((int*)(&f))[0];
+			if (i&0xFFFF0000) {
+				// 32 bit
+				check_obj_space(2);
+				g_object[g_objpos++]=0x3C020000|((i>>16)&0x0000FFFF); // lui   v0,xxxx
+				g_object[g_objpos++]=0x34420000|(i&0x0000FFFF);       // ori v0,v0,xxxx
+			} else {
+				// 16 bit
+				check_obj_space(1);
+				g_object[g_objpos++]=0x34020000|(i&0x0000FFFF); // ori v0,zero,xxxx
+			}
+		} else {
+			if ('A'<=b1 && b1<='Z' && b2=='#' && b3=='(') {
+				// A( - Z(
+				// Dimension
+				g_srcpos++;
+				g_srcpos++;
+				g_srcpos++;
+				return get_dim_value(b1);
+			} else if ('A'<=b1 && b1<='Z' && b2=='#') {
+				// A-Z
+				// Simple value
+				g_srcpos++;
+				g_srcpos++;
+				check_obj_space(1);
+				g_object[g_objpos++]=0x8FC20000|((b1-'A')*4); // lw v0,xx(s8)
+			} else if ('A'<=b1 && b1<='Z') {
+				// Starts with A-Z
+				// Functions
+				return float_function();
+			} else {
+				return ERR_SYNTAX;
+			}
+		}
+	}
+	// No error 
+	return 0;
+}
+
+char* get_float_sub(int pr){
+	char* err;
+	enum operator op;
+	char b1,b2,b3;
+	int prevpos;
+	// Get a value in $v0.
+	err=get_simple_float();
+	if (err) return err;
+	while(1){
+		// Get the operator in op. If not valid operator, simply return without error.
+		prevpos=g_srcpos;
+		err=get_floatOperator();
+		if (err) return 0;
+		op=g_last_op;
+		// Compair current and previous operators.
+		// If the previous operator has higher priolity, return.
+		if (pr>=priority(op)) {
+			g_srcpos=prevpos;
+			return 0;
+		}
+		// Store $v0 in stack
+		g_sdepth+=4;
+		if (g_maxsdepth<g_sdepth) g_maxsdepth=g_sdepth;
+		check_obj_space(1);
+		g_object[g_objpos++]=0xAFA20000|g_sdepth; // sw v0,xx(sp)
+		// Get next value.
+		err=get_float_sub(priority(op));
+		if (err) return err;
+		// Get value from stack to $a0.
+		check_obj_space(1);
+		g_object[g_objpos++]=0x8FA40000|g_sdepth; // lw a0,xx(sp)
+		g_sdepth-=4;
+		// Calculation. Result will be in $v0.
+		err=calculation_float(op);
+		if (err) return err;
+	}
+}
+
+char* get_float(){
+	// Note that this can be called recursively.
+	// Value may contain function with a parameter of another value.
+	char* err;
+	int prevpos;
+	if (g_sdepth==0) {
+		// Initialize stack handler
+		g_maxsdepth=0;
+		prevpos=g_objpos;
+		// Stack decrement command will be filled later
+		check_obj_space(1);
+		g_objpos++;
+	}
+	err=get_float_sub(priority(OP_VOID));
+	if (err) return err;
+	if (g_sdepth==0) {
+		if (g_maxsdepth==0) {
+			// Stack was not used.
+			shift_obj(&g_object[prevpos+1],&g_object[prevpos],g_objpos-prevpos-1);
+			g_objpos--;
+		} else {
+			// Stack was used.
+			check_obj_space(1);
+			g_object[prevpos]=0x27BD0000 | (0-g_maxsdepth) & 0x0000FFFF; // addiu sp,sp,-xx
+			g_object[g_objpos++]=0x27BD0000 | g_maxsdepth & 0x0000FFFF;  // addiu sp,sp,xx
+		}
+	}
+	g_lastvar=VAR_FLOAT;
+	return 0;
+}
\ No newline at end of file

--- mips/trunk/memory.c	(revision 148)
+++ mips/trunk/memory.c	(revision 149)
@@ -8,15 +8,19 @@
 #include "compiler.h"
 
 /*
-	ALLOC_VAR_NUM:   # of variables used for allocation of memory (string/dimension).
-	                 0 is for A, 1 is for B, ... , and 25 is for Z.
-	                 This number also includes temporary area used for string construction etc.
-	                 Temporary area is cleared every line of BASIC code in alloc_memory().
-	ALLOC_BLOCK_NUM: # of blocks that can be used for memory allocation.
-	                 This # also includes the ones for ALLOC_VAR_NUM.
-	                 After ALLOC_VAR_NUM area, dedicated memory area information follows.
-	                 Currently, only PCG is used in this block.
-	                 Therefore, ALLOC_VAR_NUM+1 == ALLOC_BLOCK_NUM
+	ALLOC_VAR_NUM:    # of variables used for allocation of memory (string/dimension).
+	                  0 is for A, 1 is for B, ... , and 25 is for Z.
+	                  This number also includes temporary area used for string construction etc.
+	                  Temporary area is cleared every line of BASIC code in alloc_memory().
+	ALLOC_BLOCK_NUM:  # of blocks that can be used for memory allocation.
+	                  This # also includes the ones for ALLOC_VAR_NUM.
+	                  After ALLOC_VAR_NUM area, dedicated memory area and permanent area follows.
+	                  Currently, only PCG is used for permanent pourpose.
+                      10 permanant blocks can be used.
+	                  Therefore, ALLOC_VAR_NUM+11 == ALLOC_BLOCK_NUM
+	ALLOC_PERM_BLOCK: Start # of permanent blocks.
+                      The blocks after this number is permanently stored.
+                      Therefore, it must be released when it's not used any more.
 */
 
 void set_free_area(void* begin, void* end){
@@ -46,7 +50,8 @@
 	asm volatile("bltz $s6,_alloc_memory_main"); // Skip if $s6<0
 	// Following code will be activated after setting $s6 register
 	// every line and after label statement.
-	asm volatile("subu $s6,$zero,$s6");          // $s6=0-$s6
+	asm volatile("lui $v0,0x8000");
+	asm volatile("or $s6,$v0,$s6");              // $s6=0x80000000|$s6;
 	// Remove all temporary blocks
 	// Note that g_var_size is short integer.
 	// Note that ALLOC_VAR_NUM is used here (but not ALLOC_BLOC_NUM)
@@ -61,7 +66,7 @@
 	asm volatile("b _alloc_memory_main");
 }
 void* _alloc_memory_main(int size, int var_num){
-	int i,j,candidate,after_this;
+	int i,j,candidate;
 	// Assign temp var number
 	if (var_num<0) {
 		// Use ALLOC_VAR_NUM here but not ALLOC_BLOCK_NUM
@@ -76,6 +81,9 @@
 			return 0;
 		}
 	}
+	// Clear var to be assigned.
+	g_var_size[var_num]=0;
+	g_var_pointer[var_num]=0;
 	while(1){
 		// Try the block after last block
 		candidate=0;
@@ -87,26 +95,24 @@
 		}
 		if (candidate+size<=g_max_mem) break;
 		// Check between blocks
-		candidate=-1;
+		// Note that there is at least one block with zero pointer and zero size (see above).
 		for(i=0;i<ALLOC_BLOCK_NUM;i++){
-			after_this=g_max_mem;
+			// Candidate is after this block.
+			candidate=g_var_pointer[i]+g_var_size[i];
+			// Check if there is an overlap.
 			for(j=0;j<ALLOC_BLOCK_NUM;j++){
-				if (g_var_pointer[i]<g_var_pointer[j] && g_var_pointer[j]<after_this) {
-					after_this=g_var_pointer[j];
-				}
+				if (g_var_size[j]==0) continue;
+				if (candidate+size<=g_var_pointer[j]) continue;
+				if (g_var_pointer[j]+g_var_size[j]<=candidate) continue;
+				// This block overlaps with the candidate
+				candidate=-1;
+				break;
 			}
-			if (g_var_pointer[i]+g_var_size[i]+size<=after_this) {
-				// Possible block found.
-				candidate=g_var_pointer[i]+g_var_size[i];
-				// Check if this area is not used by others.
-				for(j=0;j<ALLOC_BLOCK_NUM;j++){
-					if (candidate+size<g_var_pointer[j]) continue;
-					if (g_var_pointer[j]+g_var_size[j]<=candidate) continue;
-					// This block is at least partly taken by another block.
-					candidate=-1;
-					break;
-				}
-				if (0<=candidate) break;
+			if (0<=candidate && candidate+size<=g_max_mem) {
+				// Available block found
+				break;
+			} else {
+				candidate=-1;
 			}
 		}
 		if (0<=candidate) break;
@@ -132,4 +138,38 @@
 			break;
 		}
 	}
+}
+
+void move_to_perm_block(int var_num){
+	int i;
+	// Find available permanent block
+	for (i=ALLOC_PERM_BLOCK;i<ALLOC_BLOCK_NUM;i++){
+		if (g_var_size[i]==0) break;
+	}
+	if (ALLOC_BLOCK_NUM<=i) err_no_block(); // Not found
+	// Available block found.
+	// Copy value from variable.
+	g_var_size[i]=g_var_size[var_num];
+	g_var_pointer[i]=g_var_pointer[var_num];
+	g_var_mem[i]=g_var_mem[var_num];
+	// Clear variable
+	g_var_size[var_num]=0;
+	g_var_mem[var_num]=0;
+}
+
+void move_from_perm_block(int var_num){
+	int i,pointer;
+	pointer=(int)g_var_mem[var_num]-(int)g_heap_mem;
+	pointer>>=2;
+	// Find stored block
+	for (i=ALLOC_PERM_BLOCK;i<ALLOC_BLOCK_NUM;i++){
+		if (0<g_var_size[i] && g_var_pointer[i]==pointer) break;
+	}
+	if (ALLOC_BLOCK_NUM<=i) err_unknown(); // Not found
+	// Stored block found.
+	// Replace pointer
+	g_var_size[var_num]=g_var_size[i];
+	g_var_pointer[var_num]=g_var_pointer[i];
+	// Clear block
+	g_var_size[i]=0;
 }
\ No newline at end of file

--- mips/trunk/keyinput.c	(revision 148)
+++ mips/trunk/keyinput.c	(revision 149)
@@ -6,7 +6,7 @@
 // キー入力、カーソル表示関連機能 by K.Tanaka
 // PS/2キーボード入力システム、カラーテキスト出力システム利用
 
-#include "colortext32.h"
+#include "videoout.h"
 #include "ps2keyboard.h"
 #include "keyinput.h"
 

--- mips/trunk/compiler.c	(revision 148)
+++ mips/trunk/compiler.c	(revision 149)
@@ -80,6 +80,11 @@
 	int len;
 	for(len=0;str[len];len++);
 	if (!strncmp(g_source+g_srcpos,str,len)) {
+		if ('A'<=str[len-1] && str[len-1]<='Z') {
+			// When the last character of str is alphabet, 
+			// the next character in source must be space, enter, or ':'.
+			if (0x20<g_source[g_srcpos+len] && g_source[g_srcpos+len]!=':') return 0;
+		}
 		// String matches in the current position in source.
 		g_srcpos+=len;
 		return len;
@@ -97,7 +102,14 @@
 	// Check if line number exists
 	next_position();
 	b1=g_source[g_srcpos];
-	if ('0'<=b1 && b1<='9') {
+	if (b1<0x20) {
+		// The end of line.
+		// Don't add $s6-setting command.
+		if (g_source[g_srcpos]==0x0D && g_source[g_srcpos+1]==0x0A) g_srcpos++;
+		g_srcpos++;
+		return 0;
+	} else if ('0'<=b1 && b1<='9') {
+		// Line number exists
 		err=get_label();
 		if (err) return err;
 		g_line=g_label;

--- mips/trunk/api.h	(revision 148)
+++ mips/trunk/api.h	(revision 149)
@@ -29,6 +29,10 @@
 	#define size_t unsigned int
 #endif
 
-#include "colortext32.h"
+// Used for asm("wait")
+#define WAIT "wait"
+
+#include "videoout.h"
 #include "SDFSIO.h"
 #include "ps2keyboard.h"
+#include "debug.h"

--- mips/trunk/compiler.h	(revision 148)
+++ mips/trunk/compiler.h	(revision 149)
@@ -9,14 +9,28 @@
 // Number of variables (including temporary ones)
 #define ALLOC_VAR_NUM 36
 // Number of blocks that can be assigned for memory allocation (including ALLOC_VAR_NUM)
-#define ALLOC_BLOCK_NUM 37
+#define ALLOC_BLOCK_NUM 48
 // Block # dedicated for PCG
 #define ALLOC_PCG_BLOCK 36
+// Block # dedicated for GRAPHIC
+#define ALLOC_GRAPHIC_BLOCK 37
+// Start # of permanent blocks
+#define ALLOC_PERM_BLOCK 38
 
+// Persistent RAM bytes used for object, heap and exception data
+#define PERSISTENT_RAM_SIZE (1024*56)
+// Exception data area bytes
+#define EXCEPTION_DATA_SIZE (64)
 // RAM size used for object and heap
-#define RAMSIZE (1024*25)
+#define RAMSIZE (PERSISTENT_RAM_SIZE-EXCEPTION_DATA_SIZE)
 
 /* Enums */
+enum variable{
+	VAR_INTEGER,
+	VAR_FLOAT,
+	VAR_STRING
+};
+
 enum operator{
 	OP_VOID=0,
 	OP_OR  =1,
@@ -28,11 +42,13 @@
 	OP_LTE =7,
 	OP_MT  =8,
 	OP_MTE =9,
-	OP_ADD =10,
-	OP_SUB =11,
-	OP_MUL =12,
-	OP_DIV =13,
-	OP_REM =14
+	OP_SHL =10,
+	OP_SHR =11,
+	OP_ADD =12,
+	OP_SUB =13,
+	OP_MUL =14,
+	OP_DIV =15,
+	OP_REM =16
 };
 enum libs{
 	LIB_SOUND,
@@ -41,12 +57,16 @@
 	LIB_SETDRAWCOUNT,
 	LIB_DRAWCOUNT,
 	LIB_PALETTE,
+	LIB_GPALETTE,
 	LIB_BGCOLOR,
 	LIB_CURSOR,
 	LIB_CLS,
+	LIB_GCLS,
 	LIB_COLOR,
+	LIB_GCOLOR,
 	LIB_KEYS,
 	LIB_RESTORE,
+	LIB_RESTORE2,
 	LIB_READ,
 	LIB_MIDSTR,
 	LIB_CLEAR,
@@ -69,13 +89,60 @@
 	LIB_PCG,
 	LIB_SCROLL,
 	LIB_WAIT,
+	LIB_VAR_PUSH,
+	LIB_VAR_POP,
+	LIB_SYSTEM,
+	LIB_SPRINTF,
+	LIB_FLOAT,
+	LIB_FLOATFUNCS,
+	LIB_CREAD,
+	LIB_USEGRAPHIC,
+	LIB_GRAPHIC,
+	LIB_DEBUG
 };
+enum functions{
+	FUNC_FLOAT,
+	FUNC_INT,
+	FUNC_VALSHARP,
+	FUNC_SIN,
+	FUNC_COS,
+	FUNC_TAN,
+	FUNC_ASIN,
+	FUNC_ACOS,
+	FUNC_ATAN,
+	FUNC_SINH,
+	FUNC_COSH,
+	FUNC_TANH,
+	FUNC_EXP,
+	FUNC_LOG,
+	FUNC_LOG10,
+	FUNC_POW,
+	FUNC_SQRT,
+	FUNC_CEIL,
+	FUNC_FLOOR,
+	FUNC_FABS,
+	FUNC_MODF,
+	FUNC_FMOD,
+	FUNC_PSET,
+	FUNC_LINE,
+	FUNC_BOXFILL,
+	FUNC_CIRCLE,
+	FUNC_CIRCLEFILL,
+	FUNC_GPRINT,
+	FUNC_PUTBMP,
+	FUNC_PUTBMP2,
+	FUNC_GCOLOR,
+	FUNC_POINT,
+};
 
-/* Global vars */
+/* Global vars (see globalvers.c) */
+extern int g_intconst;
+extern char g_valueisconst;
 extern int g_rnd_seed;
 extern unsigned int g_label;
 extern int g_sdepth;
 extern int g_maxsdepth;
+extern enum variable g_lastvar;
 extern char* g_source;
 extern int g_srcpos;
 extern int g_line;
@@ -88,14 +155,19 @@
 extern enum operator g_last_op;
 extern int g_end_addr;
 extern int g_gp;
+extern int g_s6;
 extern char RAM[RAMSIZE];
+extern unsigned int g_ex_data[EXCEPTION_DATA_SIZE/4];
 extern int g_var_mem[ALLOC_BLOCK_NUM];
 extern unsigned short g_var_pointer[ALLOC_BLOCK_NUM];
 extern unsigned short g_var_size[ALLOC_BLOCK_NUM];
+extern char g_temp_area_used;
 extern int* g_heap_mem;
 extern int g_max_mem;
 extern char g_disable_break;
 extern unsigned char* g_pcg_font;
+extern char g_use_graphic;
+extern unsigned short* g_graphic_area;
 
 /* Prototypes */
 int get_gp(void);
@@ -105,6 +177,11 @@
 char* compile_line(void);
 int nextCodeIs(char* str);
 
+char* init_file(char* buff,char* appname);
+void close_file();
+void read_file(int blocklen);
+char* compile_file();
+
 void err_break(void);
 void err_music(char* str);
 void err_data_not_found(void);
@@ -114,6 +191,7 @@
 void err_div_zero(void);
 void err_unkonwn(void);
 void err_unexp_next(void);
+void err_no_block(void);
 char* resolve_label(int s6);
 
 void set_sound(unsigned long* data);
@@ -123,15 +201,20 @@
 
 char* statement(void);
 char* gosub_statement();
+char* graphic_statement(enum functions func);
 
 char* function(void);
 char* str_function(void);
+char* float_function(void);
 
 void call_library(void);
+void reset_dataread();
 
 void free_temp_str(char* str);
 void* alloc_memory(int size, int var_num);
 void* calloc_memory(int size, int var_num);
+void move_to_perm_block(int var_num);
+void move_from_perm_block(int var_num);
 
 char* link(void);
 char* get_label(void);
@@ -138,13 +221,24 @@
 void* search_label(unsigned int label);
 
 char* get_string();
+char* simple_string(void);
 
 char* get_operator(void);
+char* get_floatOperator(void);
 char* calculation(enum operator op);
+char* calculation_float(enum operator op);
+int lib_float(int ia0,int iv0, enum operator a1);
 
+char* get_dim_value(char b1);
 char* get_simple_value(void);
 char* get_value();
+char* get_floatOrValue();
+char* get_stringFloatOrValue();
 
+void blue_screen(void);
+
+char* get_float();
+
 /* Error messages */
 #define ERR_SYNTAX (char*)(g_err_str[0])
 #define ERR_NE_BINARY (char*)(g_err_str[1])
@@ -160,6 +254,10 @@
 #define ERR_MULTIPLE_LABEL (char*)(g_err_str[11])
 #define ERR_BREAK (char*)(g_err_str[12])
 #define ERR_UNEXP_NEXT (char*)(g_err_str[13])
+#define ERR_NO_BLOCK (char*)(g_err_str[14])
+#define ERR_GOSUB_ASH (char*)(g_err_str[15])
+#define ERR_INVALID_BREAK (char*)(g_err_str[16])
+#define ERR_INVALID_ELSEIF (char*)(g_err_str[17])
 
 /* Macros */
 
@@ -167,27 +265,39 @@
 #define next_position() while(g_source[g_srcpos]==' ') {g_srcpos++;}
 
 // Check if object area is not full.
-#define check_obj_space(x) if (g_objmax<g_object+g_objpos+x) return ERR_NE_BINARY
+#define check_obj_space(x) if (g_objmax<g_object+g_objpos+(x)) return ERR_NE_BINARY
 
 // Returns priority of operator
-#define priority(x) (int)g_priority[(int)x]
+#define priority(x) (int)g_priority[(int)(x)]
 
 // Insert code for calling library
-//02E0F809   jalr        ra,s7
-//24070000   addiu       a3,zero,0000
+//02E0F809   jalr        ra,s7
+//24070000   addiu       a3,zero,0000
 #define call_lib_code(x) \
 	check_obj_space(2);\
 	g_object[g_objpos++]=0x02E0F809;\
-	g_object[g_objpos++]=0x24070000|(x&0x0000FFFF)
+	g_object[g_objpos++]=0x24070000|((x)&0x0000FFFF)
 
 // Division macro for unsigned long
 // Valid for 31 bits for all cases and 32 bits for some cases
-#define div32(x,y,z) ((((unsigned long long)((unsigned long)x))*((unsigned long long)((unsigned long)y)))>>z)
+#define div32(x,y,z) ((((unsigned long long)((unsigned long)(x)))*((unsigned long long)((unsigned long)(y))))>>(z))
 
 // Divide by 10 (valid for 32 bits)
 #define div10_32(x) div32(x,0xcccccccd,35)
-#define rem10_32(x) (x-10*div10_32(x))
+#define rem10_32(x) ((x)-10*div10_32(x))
 
 // Divide by 36 (valid for 32 bits)
 #define div36_32(x) div32(x,0xe38e38e4,37)
 #define rem36_32(x) (x-36*div36_32(x))
+
+// Check break key or buttons when executing BASIC code.
+// In PS/2 mode, detect ctrl-break.
+// In button mode, detect pushing four buttons are pushed simultaneously.
+#define check_break() \
+	if (g_disable_break==0) {\
+		if (inPS2MODE()) {\
+			if (ps2keystatus[0x03]) err_break();\
+		} else {\
+			if ((PORTB&0x4c80)==0) err_break();\
+		}\
+	}

--- mips/trunk/file.c	(revision 148)
+++ mips/trunk/file.c	(revision 149)
@@ -1,8 +1,8 @@
 /*
    This file is provided under the LGPL license ver 2.1.
-   Written by Katsumi.
+   Written by K.Tanaka & Katsumi
+   http://www.ze.em-net.ne.jp/~kenken/index.html
    http://hp.vector.co.jp/authors/VA016157/
-   [e-mail]
 */
 
 #include <xc.h>
@@ -9,14 +9,15 @@
 #include "api.h"
 #include "compiler.h"
 
-FSFILE* g_fhandle;
-char* g_fbuff;
+static FSFILE* g_fhandle;
+static char* g_fbuff;
+static int g_size;
 
-int init_file(char* buff,char* appname){
+char* init_file(char* buff,char* appname){
 	// Open file
 	g_fhandle=FSfopen(appname,"r");
 	if (!g_fhandle) {
-		return -1;
+		return ERR_UNKNOWN;
 	}
 	g_fbuff=buff;
 	g_line=0;
@@ -24,45 +25,70 @@
 	return 0;
 }
 
-char* compile_file(){
-	int i,size;
-	int in_string;
-	char* err;
-	
-	in_string=0;
+void close_file(){
+	FSfclose(g_fhandle);
+}
 
-	// Read first 512 bytes (all uppercase).
-	size=FSfread((void*)&g_fbuff[0],1,512,g_fhandle);
-	for(i=0;i<512;i++){
-		if ('a'<=g_fbuff[i] && g_fbuff[i]<='z' && !in_string) g_fbuff[i]+='A'-'a';
-		if (g_fbuff[i]=='"') in_string=1-in_string;
-		if (g_fbuff[i]==0x0a || g_fbuff[i]==0x0d) in_string=0;
-	}
-	while (size==512) {
-		while(g_srcpos<256){
-			err=compile_line();
-			if (err) return err;
-		}
+void read_file(int blocklen){
+	int i;
+	static char in_string, escape;
+	// blocklen is either 512 or 256.
+	if (blocklen==512) {
+		// This is first read. Initialize parameter(s).
+		in_string=0;
+		escape=0;
+	} else if (g_size<512) {
+		// Already reached the end of file.
+		return;
+	} else {
 		// Shift buffer and source position 256 bytes.
 		for(i=0;i<256;i++) g_fbuff[i]=g_fbuff[i+256];
 		g_srcpos-=256;
-		// Read next 256 line (all uppercase).
-		size=256+FSfread((void*)&g_fbuff[256],1,256,g_fhandle);
-		for(i=256;i<512;i++){
-			if ('a'<=g_fbuff[i] && g_fbuff[i]<='z' && !in_string) g_fbuff[i]+='A'-'a';
-			if (g_fbuff[i]=='"') in_string=1-in_string;
-			if (g_fbuff[i]==0x0a || g_fbuff[i]==0x0d) in_string=0;
+	}
+	// Read 512 or 256 bytes from SD card.
+	g_size=512-blocklen+FSfread((void*)&g_fbuff[512-blocklen],1,blocklen,g_fhandle);
+	// Some modifications of text for easy compiling.
+	for(i=512-blocklen;i<512;i++){
+		if (in_string) {
+			if (g_fbuff[i]=='\\' && !escape) {
+				escape=1;
+			} else {
+				escape=0;
+				if (g_fbuff[i]=='"') in_string=0;
+			}
+		} else {
+			// If not in string, all upper cases.
+			if (g_fbuff[i]=='"') in_string=1;
+			else if ('a'<=g_fbuff[i] && g_fbuff[i]<='z') g_fbuff[i]+='A'-'a';
+			// If not in string, tabs will be spaces.
+			else if ('\t'==g_fbuff[i]) g_fbuff[i]=' ';
 		}
+		if (g_fbuff[i]==0x0a || g_fbuff[i]==0x0d) in_string=escape=0;
 	}
-	// Null charcter at the end
-	g_source[size]=0x00;
+	return;
+}
+
+char* compile_file(){
+	int i;
+	char* err;
+	// Read first 512 bytes
+	read_file(512);
+	// Compile line by line
+	while (g_size==512) {
+		err=compile_line();
+		if (err) return err;
+		// Maintain at least 256 characters in cache.
+		if (256<=g_srcpos) read_file(256);
+	}
+	// Return code at the end
+	g_source[g_size]=0x0d;
 	// Compile last few lines.
-	while(g_srcpos<size-1){
+	while(g_srcpos<g_size-1){
 		err=compile_line();
 		if (err) return err;
 	}
-	// Add "END" statement.
-	g_source="END\n";
+	// Add "DATA 0" and "END" statements.
+	g_source="DATA 0:END\n";
 	g_srcpos=0;
 	err=compile_line();
 	if (err) return err;

--- mips/trunk/main.c	(revision 148)
+++ mips/trunk/main.c	(revision 149)
@@ -1,12 +1,13 @@
 /*
    This file is provided under the LGPL license ver 2.1.
-   Written by K.Tanaka
+   Written by K.Tanaka & Katsumi
    http://www.ze.em-net.ne.jp/~kenken/index.html
+   http://hp.vector.co.jp/authors/VA016157/
 */
 
 // main.c
-// MachiKania BASIC System
-// KM-BASIC 統合開発実行環境 for PIC32MX150F128B / PIC32MX250F128B by K.Tanaka
+// MachiKania BASIC System Ver Zoea
+// KM-BASIC 統合開発実行環境 for PIC32MX170F256B / PIC32MX270F256B by K.Tanaka
 
 // 利用システム
 // ps2keyboard.X.a : PS/2キーボード入力システムライブラリ
@@ -13,15 +14,12 @@
 // lib_colortext32.a : カラービデオ信号出力システムライブラリ（30×27テキスト版）
 // libsdfsio.a ： SDカードアクセス用ライブラリ
 
-#define SYSVER1 "Nauplia"
-#define SYSVER2 "1.01"
-#define BASVER "KM-1120"
-
 #include <xc.h>
 #include "api.h"
 #include "compiler.h"
 #include "editor.h"
 #include "keyinput.h"
+#include "main.h"
 
 //外付けクリスタル with PLL (16倍)
 #pragma config PMDL1WAY = OFF, IOL1WAY = OFF
@@ -28,13 +26,12 @@
 #pragma config FPLLIDIV = DIV_1, FPLLMUL = MUL_16, FPLLODIV = DIV_1
 #pragma config FNOSC = PRIPLL, FSOSCEN = OFF, POSCMOD = XT, OSCIOFNC = OFF
 #pragma config FPBDIV = DIV_1, FWDTEN = OFF, JTAGEN = OFF, ICESEL = ICS_PGx1
+#pragma config FCKSM = CSECMD
 
 #define mBMXSetRAMKernProgOffset(offset)	(BMXDKPBA = (offset))
 #define mBMXSetRAMUserDataOffset(offset)	(BMXDUDBA = (offset))
 #define mBMXSetRAMUserProgOffset(offset)	(BMXDUPBA = (offset))
 
-#define FILENAME_FLASH_ADDRESS 0x9D005800
-
 // INIファイル指定キーワード（8文字以内）
 const char InitKeywords[][9]={
 	"106KEY","101KEY","NUMLOCK","CAPSLOCK","SCRLLOCK"
@@ -122,9 +119,31 @@
 	}
 	FSfclose(fp);
 }
+
+void printhex8(unsigned char d){
+	printchar("0123456789ABCDEF"[d>>4]);
+	printchar("0123456789ABCDEF"[d&0x0f]);	
+}
+
+void printhex16(unsigned short d){
+	printhex8(d>>8);
+	printhex8(d&0x00ff);
+}
+
+void printhex32(unsigned int d){
+	printhex16(d>>16);
+	printhex16(d&0x0000ffff);
+}
+
 int main(void){
 	char *appname,*s;
 
+	if(DEVCFG1 & 0x8000){
+		// Set Clock switching enabled and reset
+		NVMWriteWord(&DEVCFG1,DEVCFG1 & 0xffff7fff);
+		SoftReset();
+	}
+
 	/* ポートの初期設定 */
 	TRISA = 0x0000; // PORTA全て出力
 	ANSELA = 0x0000; // 全てデジタル
@@ -138,14 +157,17 @@
 	RPB5R=4; //RPB5:SDO2
 
 	// Make RAM executable. See also "char RAM[RAMSIZE]" in globalvars.c
-	mBMXSetRAMKernProgOffset(0x8000-RAMSIZE);
-	mBMXSetRAMUserDataOffset(0x8000);
-	mBMXSetRAMUserProgOffset(0x8000);
+	mBMXSetRAMKernProgOffset(PIC32MX_RAMSIZE-RAMSIZE);
+	mBMXSetRAMUserDataOffset(PIC32MX_RAMSIZE);
+	mBMXSetRAMUserProgOffset(PIC32MX_RAMSIZE);
 
 	ps2mode(); //RA1オン（PS/2有効化マクロ）
 	init_composite(); // ビデオメモリクリア、割り込み初期化、カラービデオ出力開始
 	setcursor(0,0,COLOR_NORMALTEXT);
 
+	// Show blue screen if exception before soft reset.
+	blue_screen();
+
 	printstr("MachiKania BASIC System\n");
 	printstr(" Ver "SYSVER1" "SYSVER2" by KENKEN\n");
 	printstr("BASIC Compiler "BASVER"\n");
@@ -154,7 +176,7 @@
 	setcursorcolor(COLOR_NORMALTEXT);
 	printstr("Init File System...");
 	// Initialize the File System
-	if(FSInit()==NULL){ //ファイルシステム初期化
+	if(FSInit()==FALSE){ //ファイルシステム初期化
 		//エラーの場合停止
 		setcursorcolor(COLOR_ERRORTEXT);
 		printstr("\nFile System Error\n");
@@ -190,5 +212,5 @@
 	// buttonmode(); //ボタン有効化
 	g_disable_break=1; // Breakキー無効化
 	runbasic(tempfile,0);
-	while(1) asm("wait");
+	while(1) asm(WAIT);
 }

--- mips/trunk/linker.c	(revision 148)
+++ mips/trunk/linker.c	(revision 149)
@@ -60,8 +60,8 @@
 			g_srcpos++;
 			b1=g_source[g_srcpos];
 		} while ('0'<= b1 && b1<='9' || 'A'<=b1 && b1<='Z');
-		// Length of the label must be less than 7.
-		if (6<g_srcpos-prevpos) {
+		// Length of the label must be between 2 and 6.
+		if (g_srcpos-prevpos<2 || 6<g_srcpos-prevpos) {
 			g_srcpos=prevpos;
 			return ERR_LABEL_LONG;
 		}
@@ -122,20 +122,114 @@
 	}
 }
 
+void* search_breakout(unsigned int start){
+	unsigned int pos,code1,depth;
+	// Start search from start point where BREAK statement is used.
+	depth=0;
+	for(pos=start;pos<g_objpos;pos++){
+		code1=g_object[pos];
+		switch(code1>>16){
+			case 0x0411:
+				// "bgezal zero," assembly found. Skip following block (strig).
+				pos+=code1&0x0000FFFF;
+				pos--;
+				break;
+			case 0x0820: // FOR
+			case 0x0821: // WHILE
+			case 0x0822: // DO
+				depth++;
+				break;
+			case 0x0830: // NEXT
+			case 0x0831: // WEND
+			case 0x0832: // LOOP
+				if (0<depth) {
+					depth--;
+					break;
+				}
+				// Destination found.
+				return (void*)&g_object[pos];
+			default:
+				break;
+		}
+	}
+	return 0;
+}
+
+void* search_ifout(unsigned int start){
+	unsigned int pos,code1,depth;
+	// Start search from start point where BREAK statement is used.
+	depth=0;
+	for(pos=start;pos<g_objpos;pos++){
+		code1=g_object[pos];
+		switch(code1>>16){
+			case 0x0411:
+				// "bgezal zero," assembly found. Skip following block (strig).
+				pos+=code1&0x0000FFFF;
+				pos--;
+				break;
+			case 0x3000: // Block marker
+				if (code1&0x00008000) {
+					// end block
+					if (0<depth) {
+						depth--;
+						break;
+					}
+					// Destination found.
+					return (void*)&g_object[pos];
+				} else {
+					// begin block
+					depth++;
+				}
+			default:
+				break;
+		}
+	}
+	return 0;
+}
+
 /*
 	Following codes are dedicated to specific use:
 	0x0810xxxx, 0x0811xxxx: GOTO statement
 	0x0812xxxx, 0x0813xxxx: GOSUB statement
 	0x0814xxxx, 0x0815xxxx: SOUND etc, for setting v0 as pointer to DATA array.
+	0x0816xxxx: BREAK statemant and relatives
+		0x08160000: BREAK
+		0x08160100: Jump to next ELSE, ELSEIF or ENDIF
+	0x082xyyyy: Begin block (FOR/DO/WHILE)
+	0x083xyyyy: End block (NEXT/LOOP/WEND)
+	0x00000020, 0x00000021,
+	0x00000022, 0x00000023: Marker for begining the DATA region.
+	                        MLB 2 bits show skip byte length in DATA.
+	0x30000000: Begin block (IF-THEN-ELSEIF-ELSE-ENDIF)
+	0x30008000: End block (IF-THEN-ELSEIF-ELSE-ENDIF)
+
+	IF-THEN-ELSEIF-ELSE-ENDIF is written as follows:
+		IF-THEN: 0x30000000 0x10400000 0x30000000
+		ELSEIF-THEN: 0x08160100 0x30008000 (conditional expression) 0x10400000 0x30000000
+		ELSE: 0x08160100 0x30008000 0x30000000
+		ENDIF: 0x30008000 0x30008000 
+	, where "0x10400000 0x30000000" and "0x08160100 0x30008000" will be replaced by
+	codes jumping to next 0x30008000. The 0x30000000 - 0x30008000 blocks will be skipped.
 */
 
 char* link(void){
 	int pos;
 	unsigned int code1,code2,label;
+	g_fileline=0;
 	for(pos=0;pos<g_objpos;pos++){
 		code1=g_object[pos];
-		switch(code1&0xFFFF0000){
-			case 0x08100000:
+		switch(code1>>16){
+			case 0x0411:
+				// "bgezal zero," assembly found. Skip following block (strig).
+				pos+=code1&0x0000FFFF;
+				pos--;
+				break;
+			case 0x3416:
+				// "ori s6,zero,xxxx" found this is the first word in a line.
+				g_fileline++;
+				g_line=code1&0x0000FFFF;
+				break;
+			case 0x0810:
 				// GOTO
 				code2=g_object[pos+1];
 				if ((code2&0xFFFF0000)!=0x08110000) continue;
@@ -151,7 +245,7 @@
 				g_object[pos++]=code1;
 				g_object[pos]=0x00000000; // nop
 				break;
-			case 0x08120000:
+			case 0x0812:
 				// GOSUB
 				code2=g_object[pos+1];
 				if ((code2&0xFFFF0000)!=0x08130000) continue;
@@ -167,19 +261,105 @@
 				g_object[pos++]=0x00000000; // nop
 				g_object[pos]=code2;
 				break;
-			case 0x08140000:
+			case 0x0814:
 				// SOUND etc, for setting v0 as pointer to label/line
 				code2=g_object[pos+1];
 				if ((code2&0xFFFF0000)!=0x08150000) continue;
 				code1&=0x0000FFFF;
 				code2&=0x0000FFFF;
-				g_label=label;
 				label=(code1<<16)|code2;
 				code1=(int)search_label(label);
+				g_label=label;
 				if (!code1) return ERR_LABEL_NF;
 				g_object[pos++]=0x3C020000|((code1>>16)&0x0000FFFF); // lui   v0,xxxx
 				g_object[pos]  =0x34420000|(code1&0x0000FFFF);       // ori v0,v0,xxxx
 				break;
+			case 0x0816:
+				switch(code1&0xFFFF) {
+					case 0x0000:
+						// BREAK statement
+						// Find next the NEXT or WHILE statement and insert jump code after this.
+						g_label=g_line;
+						code1=(int)search_breakout(pos);
+						if (!code1) return ERR_INVALID_BREAK;
+						code1&=0x0FFFFFFF;
+						code1>>=2;
+						code1|=0x08000000; // j xxxx
+						g_object[pos]=code1;
+						break;
+					case 0x0100:
+						// Jump to next ENDIF
+						g_label=g_line;
+						// "pos+2" is for skipping next code (must be 0x30008000)
+						code1=(int)search_ifout(pos+2);
+						if (!code1) return ERR_INVALID_ELSEIF;
+						code1&=0x0FFFFFFF;
+						code1>>=2;
+						code1|=0x08000000; // j xxxx
+						g_object[pos]=code1;
+						break;
+					default:
+						break;
+				}
+				break;
+			case 0x3000:
+				// Block marker
+				switch(code1&0xFFFF) {
+					case 0x0000:
+						// Begin if block
+						if (g_object[pos-1]==0x10400000) { // beq v0,zero,xxxx
+							// IF-THEN or ELSEIF-THEN
+							// Jump to next ELSE, ELSEIF or ENDIF
+							g_label=g_line;
+							// "pos+1" is for skipping current code (0x30000000)
+							code1=(int)search_ifout(pos+1);
+							if (!code1) return ERR_INVALID_ELSEIF;
+							code1-=(int)(&g_object[pos]);
+							code1>>=2;
+							code1&=0x0000FFFF;
+							code1|=0x10400000; // beq v0,zero,xxxx
+							g_object[pos-1]=code1;
+							break;
+						}
+						break;
+					default:
+						break;
+				}
+				break;
+			case 0x0820: // FOR
+			case 0x0830: // NEXT
+			case 0x0821: // WHILE
+			case 0x0831: // WEND
+			case 0x0822: // DO
+			case 0x0832: // WHILE
+				// These are used for detecing the depth of structures.
+				// Change them to stack increase/decrease commands.
+				g_object[pos]=0x27BD0000|(code1&0x0000FFFF); //// addiu       sp,sp,xx
+				break;
+			case 0x2407:                                // addiu       a3,zero,xxxx
+				if (g_object[pos-1]!=0x02E0F809) break; // jalr        ra,s7
+				// call_lib_code(x)
+				switch(code1&0x0000FFFF){
+					case LIB_RESTORE:
+						// Convert label data to pointer if not dynamic
+						code1=g_object[pos-3];
+						code2=g_object[pos-2];
+						if ((code1>>16)!=0x3C02) break; // lui         v0,xxxx
+						if ((code2>>16)!=0x3442) break; // ori         v0,v0,xxxx
+						label=(code1<<16)|(code2&0x0000FFFF);
+						code1=(int)search_label(label);
+						g_label=label;
+						if (!code1) return ERR_LABEL_NF;
+						code2=code1&0x0000FFFF;
+						code1=code1>>16;
+						g_object[pos-3]=0x3C020000|code1;      // lui         v0,xxxx
+						g_object[pos-2]=0x34420000|code2;      // ori         v0,v0,xxxx
+						g_object[pos]=0x24070000|LIB_RESTORE2; // addiu       a3,zero,xxxx
+						break;
+					default:
+						break;
+				}
+				break;
 			default:
 				break;
 		}

--- mips/trunk/help.txt	(revision 148)
+++ mips/trunk/help.txt	(revision 149)
@@ -17,8 +17,9 @@
 「CHR$($22)」のように記述することが出来ます。
 
 ＜命令＞
-以下、x, y, z等は整数値を、x$, y$, z$は文字列を指します。xxx, yyy, zzz, 
-www等は任意のステートメントを指します。[ ]は省略可能である事を示します。
+以下、x, y, z等は整数値を、x$, y$, z$は文字列を、x#, y#, z#は浮動
+小数点型実数値を指します。xxx, yyy, zzz, www等は任意のステートメントを
+指します。[ ]は省略可能である事を示します。
 
 命令同士を「:」で区切ることにより、一行で複数のコマンドを処理すること
 が出来ます。
@@ -25,6 +26,10 @@
 
 BGCOLOR r,g,b
 	背景色指定。
+BREAK
+	FOR-NEXT, DO-LOOP, WHILE-WENDループから抜け出す。
+CDATA x[,y[,z[...]]]
+	データー列を8ビット整数値で指定する。
 CLEAR
 	すべての文字列型変数と整数型配列を破棄し、整数値を０とする。また、
 	PCGの使用をやめ、表示キャラクターをリセットする。
@@ -34,12 +39,27 @@
 	テキスト色指定。
 CURSOR x,y
 	カーソル位置指定。
-DATA x[,y[,z[...]]]
-	データー列を整数値で指定する。
+CDATA xxx[,yyy[,zzz[...]]]
+	データー列を８ビット整数値で指定する。
+DATA xxx[,yyy[,zzz[...]]]
+	データー列を整数値もしくは文字列で指定する。
 DIM xxx [, yyy [, zzz [, ... ]]]
-	整数型の一次元配列を割り当てる。
+	整数型もしくは浮動小数点型の配列を割り当てる。
 	xxx,yyy,zzzは、例えば「A(10)」のように記述する。この場合、A(0)から
-	A(10)までの１１個の整数型変数が確保される。
+	A(10)までの１１個の整数型変数が確保される。浮動小数点型配列の場合は、
+	「A#(10)」の様に記述する。多次元配列も、宣言することが出来る。
+DO WHILE x
+LOOP
+	x が0以外の場合、DO文からLOOP文までのステートメントを繰り返し実行する。
+DO UNTIL x
+LOOP
+	x が0の場合、DO文からLOOP文までのステートメントを繰り返し実行する。
+DO
+LOOP WHILE x
+	DO文からLOOP文までのステートメントを実行し、x が0以外の場合、繰り返す。
+DO
+LOOP UNTIL x
+	DO文からLOOP文までのステートメントを実行し、x が0の場合、繰り返す。
 DRAWCOUNT
 	DRAWCOUNT値を指定する。DRAWCOUNT値に付いては、DRAWCOUNT()関数を
 	参照。
@@ -53,21 +73,41 @@
 	までのステートメントを、繰り返し実行する。繰り返しのたび、xの値は
 	wwwずつ増加する（省略された場合は１ずつ）。「NEXT」の次に何も記述
 	しないことに注意。
-GOSUB xxx
-	現在の実行位置を記憶し、xxx行目(もしくはラベル)に移動する。
+GOSUB xxx [, yyy [, zzz [, ... ]]]
+	現在の実行位置を記憶し、xxx行目(もしくはラベル)に移動する。yyy, zzz
+	等は、サブルーチンに引き継がれる引数（ARGS()関数を参照）。
 GOTO xxx
 	xxx行目(もしくはラベル)に移動する。
-IF x THEN yyy [ ELSE zzz ]
-	xが０以外のとき、yyyを、０のときzzzを実行
+IF xまたはx# THEN yyy [ ELSE zzz ]
+	xが0以外のとき、yyyを、0のときzzzを実行。yyyおよびzzzは、複数のステート
+	メントを「:」で挟んで記述可能。
+IF xまたはx# THEN
+xxx
+[ELSEIF yまたはy# THEN
+yyy]
+[ELSE
+zzz]
+ENDIF
+	xが0以外の時xxxを、それ以外で且つyが0以外の時（記述された場合）yyyを、
+	それ以外の場合にzzzを実行。ELSEIFステートメントは、複数記述可。各行で、
+	THENステートメントの次には何も記入しないことに注意。
 LABEL xxx
 	GOTO/GOSUBのジャンプ先を登録する。xxxは、英数字６文字以内の文字列。
 [LET] x=yyy
-	yで示された計算結果を、xに代入する。「LET」は省略可。
+	yで示された計算結果を、x（整数型変数）に代入する。「LET」は省略可。
+[LET] x#=yyy
+	yで示された計算結果を、x（不動州数点方型変数）に代入する。「LET」は省略可。
 [LET] x$=yyy
 	yyyで示された文字列（もしくは連結結果;連結演算子は「+」）を、x$に
 	代入する。「LET」は省略可。
 MUSIC x$
 	BGMを演奏する。詳細は、下記<MUSIC>の項を参照。
+VAR xxx [, yyy [, zzz [, ... ]]]
+	サブルーチン内で使う、ローカル変数を指定する。xxx, yyy等は、A-Zの
+	アルファベットで指定する。
+WHILE x
+WEND
+	x が0以外の場合、WHILE文からWEND文までのステートメントを繰り返し実行する。
 PALETTE n,r,g,b
 	パレット指定。
 PCG x,y,z
@@ -75,7 +115,7 @@
 	ターデーター。詳細は、下記<PCG>の項を参照。
 POKE x,y
 	xで示される物理的アドレスに、yで示される値(１バイト値)を書き込む。
-PRINT [ xまたはx$ [ ,または; [ yまたはy$ [ ... ]]]]
+PRINT [ xまたはx$またはx# [ ,または; [ yまたはy$またはy# [ ... ]]]]
 	ディスプレイに、整数値または文字列を表示する。「;」を使用した場
 	合、次の表示が続けて行われる。「,」を使用した場合、１０文字ずつ
 	に区切って表示される。どちらも使用しない場合、次の表示は行を変え
@@ -93,6 +133,14 @@
 SOUND xxx
 	効果音を再生する。詳細は、下記<SOUND>の項を参照。xxxは行番号もしく
 	はラベル。
+SYSTEM x , y
+	様々なシステム値の設定を行なう。＜SYSTEM＞の項を参照。
+USEGRAPHIC [x]
+	グラフィックディスプレイを使用、もしくは使用停止する。x=0で使用停止、
+	x=1で使用、x=2で画面とパレットをクリアーして使用、x=3でグラフィック領
+	域を確保するが表示はキャラクターディスプレイのまま。ただし、グラフィッ
+	クディスプレイ未使用の状態でx=0の場合は、領域を確保する。xを省略した場
+	合は、x=1と同じ。
 USEPCG [x]
 	PCGを使用、もしくは使用停止する。x=0で使用停止、x=1で使用、x=2で
 	キャラクターをリセットして使用。xを省略した場合は、x=1と同じ。
@@ -101,24 +149,62 @@
 	xで示された時間、プログラムの実行を停止する。xが60の場合、約１秒間
 	停止。
 
-＜関数＞
+＜グラフィック関連命令＞
+
+BOXFILL [x1,y1],x2,y2[,c]
+	座標(x1,y1),(x2,y2)を対角線とするカラーcで塗られた長方形を描画。
+CIRCLE [x,y],r[,c]
+	座標(x,y)を中心に、半径r、カラーcの円を描画。
+CIRCLEFILL [x,y],r[,c]
+	座標(x,y)を中心に、半径r、カラーcで塗られた円を描画。
+GCLS
+	画面クリアー。
+GCOLOR c
+	それぞれの命令で、cを省略した場合の色を指定。
+GPALETTE n,r,g,b
+	パレット指定。
+GPRINT [x,y],c,bc,s$
+	座標(x,y)にカラーcで文字列s$を表示、bc:背景色（負数の場合背景色指定なし）。
+LINE [x1,y1],x2,y2[,c]
+	座標(x1,y1)から(x2,y2)にカラーcで線分を描画。
+POINT x,y
+	グラフィック現在位置を、設定する。
+PSET [x,y][,c]
+	座標(x,y)の位置にカラーcで点を描画。
+PUTBMP [x,y],m,n,bbb
+	横m*縦nドットのキャラクター(bbbで指定)を座標(x,y)に表示。
+	サイズm*nの配列bmpに、単純にカラー番号を並べる。
+	ただし、カラーが0の部分は透明色として扱う。ただし、bbbはラベル名もし
+	くは配列へのポインター。
+
+＜整数型関数＞
 以下、x, y, zは整数値を、x$, y$, z$は文字列を指します。[ ]は省略可能である事
 を示します。
 
 ABS(x)
 	xの絶対値を返す。
+ARGS(x)
+	サブルーチン中で、GOSUBに渡されたx番目の引数を整数値として取り出す。
 ASC(x$)
 	文字列の最初の一文字の、アスキーコードを返す。
+CREAD()
+	DATA文の後から、一つずつデーター（8ビット整数値）を読み出す。「READ()」
+	関数も参照。
 DRAWCOUNT()
 	DRAWCOUNT値を得る。DRAWCOUNTは１６ビット整数値で、1/60秒ごとに１ずつ
 	増える。
-GOSUB(xxx)
+GCOLOR(x,y)
+	グラフィック座標(x,y)の表示中パレット番号を返す。
+GOSUB(xxx [, y [, z [, ... ]]])
 	GOSUB命令と同じだが、戻り値(RETURNを参照)を得ることが出来る。xxxは、
-	ラベルもしくは行番号。
+	ラベルもしくは行番号。。yyy, zzz 等は、サブルーチンに引き継がれる引数（
+	ARGS()関数を参照）。
 INKEY([x])
 	xを指定しない場合、現在押されているキーのASCII値を返す。押されていな
 	い場合は、０。ASCII値でxを指定した場合、そのキーが押されているかどう
 	かを返す。
+INT(x#)
+	実数値x#を整数値に変換して返す。
 KEYS([x])
 	キー入力を得る。xの値は以下の通り。xを指定しない場合は、x=63と同じ。
 		KEYUP:    1
@@ -136,7 +222,8 @@
 PEEK(x)
 	xで示される物理アドレスから１バイト読み取り、返す。
 READ()
-	DATA文の後から、一つずつデーター（整数値）を読み出す。
+	DATA文の後から、一つずつデーター（32ビット整数値）を読み出す。「CREAD()」
+	関数も参照。
 RND()
 	0から32767までの擬似乱数を返す。
 SGN(x)
@@ -143,27 +230,97 @@
 	xの符号(-1, 0, または1)を返す。
 STRNCMP(x$,y$,z)
 	２つの文字列のうちz文字分を比較し、結果を返す。同じ文字列の場合は０。
+SYSTEM(x)
+	様々なシステム値を、整数値で返す。「＜システム変数＞」の項を参照。
 TVRAM([x])
 	ビデオRAMのx番目の内容を、バイト値で返す。xを省略した場合、ビデオ
 	RAMの開始位置の物理アドレスを返す。
 VAL(x$)
 	１０進数もしくは１６進数文字列としてのx$の値を、整数値で返す。
+
+＜浮動小数点型関数＞
+ACOS#(x#)
+	x# の逆余弦を実数値で返す。
+ARGS#(x)
+	サブルーチン中で、GOSUBに渡されたx番目の引数を実数値として取り出す。
+ASIN#(x#)
+	x# の逆正弦を実数値で返す。
+ATAN#(x#)
+	x# の逆正接を実数値で返す。
+CEIL#(x#)
+	x# 以上の最小の整数を実数値で返す。
+COS#(x#)
+	x# の余弦を実数値で返す。
+COSH#(x#)
+	x# の双曲線余弦を実数値で返す。
+EXP#(x#)
+	eを底とする x# の指数関数値を実数値で返す。
+FABS#(x#)
+	x# の絶対値を実数値で返す。
+FLOAT#(x)
+	整数値 x を浮動小数点型実数値に変換して返す。
+FLOOR#(x#)
+	x# 以下の最大の整数を実数値で返す。
+FMOD#(x#,y#)
+	x# を y# で割った剰余を実数値で返す。
+GOSUB#(xxx [, y [, z [, ... ]]])
+	GOSUB命令と同じだが、戻り値(RETURNを参照)を得ることが出来る。xxxは、
+	ラベルもしくは行番号。。yyy, zzz 等は、サブルーチンに引き継がれる引数（
+	ARGS()関数を参照）。
+LOG#(x#)
+	x# の自然対数を実数値で返す。
+LOG10#(x#)
+	x# の常用対数を実数値で返す。
+MODF#(x#)
+	x# の小数部を実数値で返す。
+PI#
+	3.141593を返す。
+POW#(x#,y#)
+	x# の y# 乗を実数値で返す。
+SIN#(x#)
+	x# の正弦を実数値で返す。
+SINH#(x#)
+	x# の双曲線正弦を実数値で返す。
+SQRT#(x#)
+	x# の平方根を実数値で返す。
+TAN#(x#)
+	x# の正接を実数値で返す。
+TANH#(x#)
+	x# の双曲線正接を実数値で返す。
+VAL#(x$)
+	１０進数文字列としてのx$の値を、実数値で返す。
+
+＜文字列型関数＞
 A$(x [,y])など
 	xの値が０の場合、文字列全体を返す。
 	xの値が正の場合、xで示される位置より右側の文字列を返す。
 	xの値が負のとき、文字列の右側x文字を返す。
 	yが指定された場合、y文字分の文字列を返す。
+ARGS$(x)
+	サブルーチン中で、GOSUBに渡されたx番目の引数を文字列として取り出す。
 CHR$(x)
 	xをアスキーコードとする文字を返す。
 DEC$(x)
 	xの値を、１０進数の文字列として返す。
+FLOAT$(x#)
+	実数値x#を、１０進数の文字列として返す。
+GOSUB$(xxx [, y [, z [, ... ]]])
+	GOSUB命令と同じだが、戻り値(RETURNを参照)を文字列として得ることが出来る。
+	xxxは、ラベルもしくは行番号。。yyy, zzz 等は、サブルーチンに引き継がれる引数
+	（ARGS()関数を参照）。
 HEX$(x [,y])
 	xの値を、１６進数の文字列として返す。yが指定された場合、yバイト長の
 	文字列になる。
 INPUT$()
 	文字列入力状態になり、入力が終了すると(Enterが押されると)文字列を返す。
+SPRINTF$(x$,y#)
+	x$で示される書式に従って、実数y#の内容を文字列として返す。
+SYSTEM$(x)
+	様々なシステム値を、文字列で返す。「＜システム変数＞」の項を参照。
+READ$()
+	DATA文の後から、一つずつ文字列データーを読み出す。
 
-＜演算子＞
+＜整数演算子＞
 -x
 	符号を反転
 x + y
@@ -176,6 +333,10 @@
 	整数除算
 x % y
 	整数剰余
+x >> y
+	xの値をyビット右シフト
+x << y
+	xの値をyビット左シフト
 x = y
 	２つの整数値が等しい場合に１、そうでないときに０
 x != y
@@ -194,8 +355,6 @@
 	xとyの値のビットごとの OR
 x XOR y
 	xとyの値のビットごとの XOR
-x$ + y$
-	文字列の連結
 
 なお、整数演算子の優先順位は、優先度が高いものから以下の順です。
 
@@ -202,6 +361,7 @@
 + - (単項演算子)
 * / %
 + - (加算・減算)
+<< >>
 < <= > >=
 = !=
 XOR
@@ -208,6 +368,48 @@
 AND
 OR
 
+＜文字列演算子＞
+x$ + y$
+	文字列の連結
+
+＜浮動小数点型演算子＞
+-x#
+	符号を反転
+x# + y#
+	実数加算
+x# - y#
+	実数減算
+x# * y#
+	実数乗算
+x# / y#
+	実数除算
+x# = y#
+	２つの実数値が等しい場合に１、そうでないときに０
+x# != y#
+	２つの実数値が等しい場合に０、そうでないときに１
+x# < y#
+	xがyより小さい場合に１、そうでないときに０
+x# <= y#
+	xがyより小さいか等しい場合に１、そうでないときに０
+x# > y#
+	xがyより多きい場合に１、そうでないときに０
+x# >= y#
+	xがyより多きいか等しい場合に１、そうでないときに０
+x# AND y#
+	xとyの値の論理積（ビットごとの AND でないことに注意）
+x# OR y#
+	xとyの値の論理和（ビットごとの OR でないことに注意）
+
+なお、実数演算子の優先順位は、優先度が高いものから以下の順です。
+
++ - (単項演算子)
+* /
++ - (加算・減算)
+< <= > >=
+= !=
+AND
+OR
+
 ＜MUSIC＞
 MUSIC命令では、BGM用のデーターを文字列で指定します。文字列の書式は、ABC 
 notationに準拠しています。ただし、すべての記法が使えるわけではありません。
@@ -265,12 +467,66 @@
 
 として下さい。
 
+＜システム変数＞
+SYSTEM関数及びSYSTEMステートメントを用いて、各種システム情報をやりとりするこ
+とが出来ます。
+
+SYSTEM$(0)
+	MachiKania バージョン文字列、"Zoea"を返す。
+SYSTEM$(1)
+	MachiKania バージョン文字列、"1.0"等を返す。
+SYSTEM$(2)
+	BASIC バージョン文字列、"KM-1200"等を返す。
+SYSTEM$(3)
+	現在実行中のHEXファイル名、"ZOEA.HEX"等を返す。
+SYSTEM(20)
+	キャラクターディスプレイ横幅を返す。
+SYSTEM(21)
+	キャラクターディスプレイ縦幅を返す。
+SYSTEM(22)
+	グラフィックディスプレイ横幅を返す。
+SYSTEM(23)
+	グラフィックディスプレイ横幅を返す。
+SYSTEM(24)
+	キャラクターディスプレイ用の指定色を返す。
+SYSTEM(25)
+	グラフィックディスプレイ用の指定色を返す。
+SYSTEM(26)
+	キャラクターディスプレイの、現在のX位置を返す。
+SYSTEM(27)
+	キャラクターディスプレイの、現在のY位置を返す。
+SYSTEM(28)
+	グラフィックディスプレイの、現在のX位置を返す。
+SYSTEM(29)
+	グラフィックディスプレイの、現在のY位置を返す。
+SYSTEM(40)
+	PS/2キーボードを使用中かどうかを返す。
+SYSTEM(41)
+	PS/2キーボード情報、vkeyを返す。
+SYSTEM(42)
+	PS/2キーボード情報、lockkeyを返す。
+SYSTEM(43)
+	PS/2キーボード情報、keytypeを返す。
+SYSTEM(100)
+	変数格納領域(g_var_mem)へのポインターを返す。
+SYSTEM(101)
+	乱数シードへのポインターを返す。
+SYSTEM(102)
+	キャラクターディスプレイ領域(TVRAM)へのポインターを返す。
+SYSTEM(103)
+	フォント領域へのポインターを返す。
+SYSTEM(104)
+	PCGフォント領域へのポインターを返す。
+SYSTEM(105)
+	グラフィックディスプレイ領域へのポインターを返す。
+SYSTEM 200,x
+	ディスプレイの表示を停止(xが0のとき)、もしくは開始(xが0以外の時)する。
+
 ＜ヒント＞
-FOR文では、TOステートメントの次に書かれた値に合致する場合（超えた時ではなく）
-に、ループから抜ける仕様です。また、FOR-NEXTループの途中で、GOTO文でループの
+FOR-NEXTループ、WHILE-WENDループ、DO-LOOPループの途中で、GOTO文でループの
 外に飛んだり、RETURN文を実行したりすると、予期せぬ結果（機器のリセット等）を
-引き起こします。ただし、GOSUB文でサブルーチンを呼んだり、別のFOR-NEXTをネス
-トして使う事は可能です。
+引き起こします。ただし、GOSUB文でサブルーチンを呼んだり、別のループをネスト
+して使う事は可能です。
 
 ON GOTO分やON GOSUB文はサポートしていません。ただし、例えば次のように記述す
 ることで、同様の動作をさせることは可能です。
@@ -286,6 +542,24 @@
 てみて下さい。
 
 ＜バージョン履歴＞
+・KM-1200 2016年8月公開。
+　１．グラフィックディスプレイ機能および、関連のステートメント群を追加。
+　２．浮動小数点演算機能、及び、算術演算関数群を追加。
+　３．VAR, BREAK, SYSTEMステートメントを追加。
+　４．DO-LOOP, WHILE-WENDループ構造文を追加。
+　５．IF THEN - ELSEIF - ELSE - ENDIFによる、複数行での条件分岐表現を追加。
+　６．GOSUBステートメント及びGOSUB()関数に第二以降の引数を指定出来る様にし、
+　　　サブルーチン中でARGS()関数により取り出せるようにした。
+　７．８ビット整数型を扱うCDATAステートメントとCREAD()関数を追加。
+　８．DATAステートメントで文字列を扱える様にし、READ$()で読めるようにした。
+　９．多次元配列をサポート。
+　10．例外発生時に、情報を表示するようにした。
+　11．FOR-NEXTループに於いて、TO値に一致する時だけではなく、値を超えた場合
+　　　でもループを抜けるようにした。
+　12．MUSICステートメント用のスクリプトにエラーがある際、エラー発生行が正し
+　　　く表示されない不具合を修正。
+　13．ビットシフト演算子を、追加。
+
 ・KM-1120 2016年2月公開。
 　１．PCG機能を追加。
 　２．SCROLL命令を追加。

--- mips/trunk/debug.c	(nonexistent)
+++ mips/trunk/debug.c	(revision 149)
@@ -0,0 +1,160 @@
+/*
+   This file is provided under the LGPL license ver 2.1.
+   Written by K.Tanaka & Katsumi
+   http://www.ze.em-net.ne.jp/~kenken/index.html
+   http://hp.vector.co.jp/authors/VA016157/
+*/
+
+#ifdef __DEBUG
+
+#include <xc.h>
+#include "api.h"
+#include "main.h"
+
+
+// Pseudo reading config setting for debug mode
+unsigned int g_DEVCFG1=0xFF7F4DDB;
+
+// Construct jump assembly in boot area.
+const unsigned int _debug_boot[] __attribute__((address(0xBFC00000))) ={
+	0x0B401C00,//   j           0x9d007000
+	0x00000000,//   nop         
+};
+
+// Use DEBUG.HEX as file name of this program.
+const unsigned char _debug_filename[] __attribute__((address(FILENAME_FLASH_ADDRESS))) ="DEBUG.HEX";
+
+static const char initext[];
+static const char bastext[];
+
+static char* readtext;
+static int filepos;
+
+/*
+    Override libsdfsio functions.
+    Here, don't use SD card, but the vertual files 
+    (initext[] and bastext[]) are used. 
+*/
+
+FSFILE fsfile;
+
+size_t FSfread(void *ptr, size_t size, size_t n, FSFILE *stream){
+	char b;
+	size_t ret=0;
+	if (!readtext) return 0;
+	while(b=readtext[filepos]){
+		filepos++;
+		((char*)ptr)[ret]=b;
+		ret++;
+		if (n<=ret) break;
+	}
+	return ret;
+}
+FSFILE* FSfopen(const char * fileName, const char *mode){
+	int i;
+	for(i=0;i<13;i++){
+		if (fileName[i]=='.') break;
+	}
+	if (i==13) {
+		// Unknown file name
+		// Force BAS file
+		readtext=(char*)&bastext[0];
+	} else if (fileName[i+1]=='I' && fileName[i+2]=='N' && fileName[i+3]=='I') {
+		// INI file
+		readtext=(char*)&initext[0];
+	} else if (fileName[i+1]=='B' && fileName[i+2]=='A' && fileName[i+3]=='S') {
+		// BAS file
+		readtext=(char*)&bastext[0];
+	} else {
+		readtext=0;
+		return 0;
+	}
+	filepos=0;
+	return &fsfile;
+}
+int FSfeof( FSFILE * stream ){
+	return readtext[filepos]?1:0;
+}
+int FSfclose(FSFILE *fo){
+	return 0;
+}
+int FSInit(void){
+	return 1;
+}
+int FSremove (const char * fileName){
+	return 0;
+}
+size_t FSfwrite(const void *ptr, size_t size, size_t n, FSFILE *stream){
+	return 0;
+}
+
+int FindFirst (const char * fileName, unsigned int attr, SearchRec * rec){
+	return 0;
+}
+int FindNext (SearchRec * rec){
+	return 0;
+}
+
+/*
+    ps2init() is not called.
+    Instead, not_ps2init_but_init_Timer1() is called.
+    Timer1 is used to update drawcount and drawing gloval variables.
+*/
+
+int not_ps2init_but_init_Timer1(){
+	PR1=0x0FFF;
+	TMR1=0;
+	IFS0bits.T1IF=0;
+	T1CON=0x8000;
+	// Timer1 interrupt: priority 4
+	IPC1bits.T1IP=4;
+	IPC1bits.T1IS=0;
+	IEC0bits.T1IE=1;
+
+	return 0;
+}
+
+#pragma interrupt timer1Int IPL4SOFT vector 4
+
+void timer1Int(){
+	IFS0bits.T1IF=0;
+	if (drawing) {
+		drawing=0;
+		drawcount++;
+	} else {
+		drawing=1;
+	}
+}
+
+/*
+    initext[] and bastext[] are vertual files 
+    as "MACHIKAN.INI" and "DEBUG.BAS".
+*/
+
+
+static const char initext[]=
+"#PRINT\n"
+"#PRINT\n";
+
+
+static const char bastext[]=
+"CLS\n"
+"\n";
+
+/*
+    Test function for constructing assemblies from C codes.
+*/
+
+int _debug_test(int a0, int a1){
+//	if (a0<0xa0008192) return 0xa0000000;
+	asm volatile("lw $v1,0($v1)");
+}
+
+/*
+	Break point used for debugging object code.
+
+g_object[g_objpos++]=0x0000000d;// break 0x0
+
+*/
+
+#endif // __DEBUG

--- mips/trunk/editor.c	(revision 148)
+++ mips/trunk/editor.c	(revision 149)
@@ -9,6 +9,7 @@
 #include "editor.h"
 #include "keyinput.h"
 #include "compiler.h"
+#include "main.h"
 
 struct _TBUF{
 //リンク付きのテキストバッファ
@@ -61,7 +62,7 @@
 void wait60thsec(unsigned short n){
 	// 60分のn秒ウェイト（ビデオ画面の最下行信号出力終了まで待つ）
 	n+=drawcount;
-	while(drawcount!=n) asm("wait");
+	while(drawcount!=n) asm(WAIT);
 }
 
 unsigned int bpixtopos(_tbuf *bp,unsigned int ix){
@@ -102,23 +103,30 @@
 // テキスト全体の先頭からline行目のテキストバッファ上の位置を返す
 // 戻り値　テキストバッファポインタ
 // *pix（戻り値）：戻り値テキストバッファの先頭からの位置（ポインタ渡し）
-	_tbuf *bp;
-	int ix;
+	_tbuf *bp,*bp2;
+	int ix,ix2;
 	bp=TBufstart;
+	bp2=TBufstart;
 	ix=0;
+	ix2=0;
 	while(line>1){
 		while(1){
 			if(ix>=bp->n){
+				if(bp->next==NULL) break;
 				bp=bp->next;
 				ix=0;
 				continue;
 			}
-			if(bp->Buf[ix++] == '\n') break;
+			if(bp->Buf[ix++] == '\n'){
+				bp2=bp;
+				ix2=ix;
+				break;
+			}
 		}
 		line--;
 	}
-	*pix=ix;
-	return bp;
+	*pix=ix2;
+	return bp2;
 }
 
 _tbuf * newTBuf(_tbuf *prev){
@@ -1015,7 +1023,7 @@
 			if(vk==VK_ESCAPE) return -1;
 		}
 		//ファイルシステム初期化
-		if(FSInit()!=NULL) return 0; //成功
+		if(FSInit()!=FALSE) return 0; //成功
 		//エラーの場合
 		setcursorcolor(COLOR_ERRORTEXT);
 		printstr((unsigned char *)Message2);//File System Error

--- mips/trunk/error.c	(revision 148)
+++ mips/trunk/error.c	(revision 149)
@@ -14,14 +14,18 @@
 	"Divided by zero",
 	"Not yet implemented",
 	"Label or line number not found: ",
-	"Label too long",
+	"Label too long or too short",
 	"String too complexed",
 	"Data not found",
 	"Unknown error",
-	"Music syntax error\n",
+	"Music syntax error:'",
 	" found more than twice",
 	"Break",
 	"Unexpected NEXT or RETURN statement",
+	"Cannot assign temporary block",
+	"GOSUB fuction cannot be used after string-handling",
+	"Invalid BREAK statement in line ",
+	"Invalid ELSE/IF statement in line ",
 };
 
 char* resolve_label(int s6){
@@ -61,7 +65,7 @@
 void pre_end_addr(int s6){
 	int i,j;
 	char str[7];
-	if (s6<0) s6=0-s6;
+	if (s6<0) s6=s6&0x7fffffff;
 	g_label=s6;
 	if (s6<65536) {
 		// Line number
@@ -121,6 +125,10 @@
 void err_music(char* str){
 	printstr(ERR_MUSIC);
 	printstr(str);
+	printstr("'\n");
+	// Restore s6 from g_s6
+	asm volatile("la $s6,%0"::"i"(&g_s6));
+	asm volatile("lw $s6,0($s6)");
 	end_exec();
 }
 
@@ -128,3 +136,8 @@
 	printstr(ERR_UNEXP_NEXT);
 	end_exec();	
 }
+
+void err_no_block(void){
+	printstr(ERR_NO_BLOCK);
+	end_exec();	
+}

--- mips/trunk/main.h	(nonexistent)
+++ mips/trunk/main.h	(revision 149)
@@ -0,0 +1,21 @@
+/*
+   This file is provided under the LGPL license ver 2.1.
+   Written by K.Tanaka & Katsumi
+   http://www.ze.em-net.ne.jp/~kenken/index.html
+   http://hp.vector.co.jp/authors/VA016157/
+*/
+
+#define SYSVER1 "Zoea"
+#define SYSVER2 "1.0"
+#define BASVER "KM-1200"
+
+#define INIFILE "MACHIKAZ.INI" // 初期設定ファイル
+#define HEXFILE "MACHIKAZ.HEX" // 実行中HEXファイル名がこれと一致した場合はエディタ起動
+
+#define FILENAME_FLASH_ADDRESS 0x9D005800
+#define PIC32MX_RAMSIZE 0x10000
+#define PIC32MX_FLASHSIZE 0x40000
+
+void printhex8(unsigned char d);
+void printhex16(unsigned short d);
+void printhex32(unsigned int d);

--- mips/trunk/debug.h	(nonexistent)
+++ mips/trunk/debug.h	(revision 149)
@@ -0,0 +1,25 @@
+/*
+   This file is provided under the LGPL license ver 2.1.
+   Written by K.Tanaka & Katsumi
+   http://www.ze.em-net.ne.jp/~kenken/index.html
+   http://hp.vector.co.jp/authors/VA016157/
+*/
+
+#ifdef __DEBUG
+
+// Pseudo reading config setting for debug mode
+extern unsigned int g_DEVCFG1;
+#define DEVCFG1 g_DEVCFG1
+
+// Do not use PS/2 keyboard
+#define ps2init() not_ps2init_but_init_Timer1()
+int not_ps2init_but_init_Timer1();
+
+// Do not use set_graphmode()
+#define set_graphmode(m) (0)
+
+// Do not use asm("wait") but use asm("nop")
+#undef WAIT
+#define WAIT "nop"
+
+#endif // __DEBUG

--- mips/trunk/operator.c	(revision 148)
+++ mips/trunk/operator.c	(revision 149)
@@ -12,6 +12,7 @@
 ()
 * / %
 + -
+<< >>
 < <= > >=
 = !=
 XOR
@@ -27,8 +28,9 @@
 	3, // OP_XOR
 	4,4, // OP_EQ, OP_NEQ
 	5,5,5,5, // OP_LT, OP_LTE, OP_MT, OP_MTE
-	6,6, // OP_ADD, OP_SUB
-	7,7,7 // OP_MUL, OP_DIV, OP_REM
+	6,6, // OP_SHL, OP_SHR
+	7,7, // OP_ADD, OP_SUB
+	8,8,8 // OP_MUL, OP_DIV, OP_REM
 };
 
 enum operator g_last_op;
@@ -46,8 +48,11 @@
 		case '-': g_last_op=OP_SUB; break;
 		case '+': g_last_op=OP_ADD; break;
 		case '>':
-			if (b2=='=') {
+			if (b2=='>') {
 				g_srcpos++;
+				g_last_op=OP_SHR;
+			} else if (b2=='=') {
+				g_srcpos++;
 				g_last_op=OP_MTE;
 			} else {
 				g_last_op=OP_MT;
@@ -54,8 +59,11 @@
 			}
 			break;
 		case '<':
-			if (b2=='=') {
+			if (b2=='<') {
 				g_srcpos++;
+				g_last_op=OP_SHL;
+			} else if (b2=='=') {
+				g_srcpos++;
 				g_last_op=OP_LTE;
 			} else {
 				g_last_op=OP_LT;
@@ -96,8 +104,28 @@
 	return 0;
 }
 
+char* get_floatOperator(void){
+	char* err;
+	int spos;
+	next_position();
+	spos=g_srcpos;
+	err=get_operator();
+	if (err) return err;
+	switch(g_last_op){
+		// Following operators cannot be used for float values.
+		case OP_XOR:
+		case OP_REM:
+		case OP_SHR:
+		case OP_SHL:
+			g_srcpos=spos;
+			return ERR_SYNTAX;
+		default:
+			return 0;
+	}
+}
+
 char* calculation(enum operator op){
-	// $v0 = $v0 <op> $v1;
+	// $v0 = $v1 <op> $v0;
 	switch(op){
 		case OP_OR:
 			check_obj_space(1);
@@ -139,6 +167,14 @@
 			g_object[g_objpos++]=0x0062102A; // slt         v0,v1,v0
 			g_object[g_objpos++]=0x38420001; // xori        v0,v0,0x1
 			break;
+		case OP_SHR:
+			check_obj_space(1);
+			g_object[g_objpos++]=0x00431006; // srlv        v0,v1,v0
+			break;
+		case OP_SHL:
+			check_obj_space(1);
+			g_object[g_objpos++]=0x00431004; // sllv        v0,v1,v0
+			break;
 		case OP_ADD:
 			check_obj_space(1);
 			g_object[g_objpos++]=0x00621021; // addu        v0,v1,v0
@@ -173,4 +209,67 @@
 			return ERR_SYNTAX;
 	}
 	return 0;
-}
\ No newline at end of file
+}
+
+char* calculation_float(enum operator op){
+	// $v0 = $a0 <op> $v0;
+	check_obj_space(1);
+	g_object[g_objpos++]=0x34050000|(op&0x0000FFFF); // ori a1,zero,xxxx
+	// All the calculations will be done in library code, lib_float function (see below).
+	call_lib_code(LIB_FLOAT);
+	return 0;
+}
+
+int lib_float(int ia0,int iv0, enum operator a1){
+	// This function was called from _call_library().
+	// Variable types must be all int.
+	// Casting cannot be used.
+	// Instead, by using pointer, put as int value, get as float value, 
+	// calculate, put as float value, then get as int value for returning.
+	volatile float a0,v0;
+	((int*)(&a0))[0]=ia0;
+	((int*)(&v0))[0]=iv0;
+	switch(a1){
+		case OP_EQ:
+			v0= a0==v0?1:0;
+			break;
+		case OP_NEQ:
+			v0= a0!=v0?1:0;
+			break;
+		case OP_LT:
+			v0= a0<v0?1:0;
+			break;
+		case OP_LTE:
+			v0= a0<=v0?1:0;
+			break;
+		case OP_MT:
+			v0= a0>v0?1:0;
+			break;
+		case OP_MTE:
+			v0= a0>=v0?1:0;
+			break;
+		case OP_ADD:
+			v0= a0+v0;
+			break;
+		case OP_SUB:
+			v0= a0-v0;
+			break;
+		case OP_MUL:
+			v0= a0*v0;
+			break;
+		case OP_DIV:
+			if (v0==0) err_div_zero();
+			v0= a0/v0;
+			break;
+		case OP_OR:
+			v0= a0||v0?1:0;
+			break;
+		case OP_AND:
+			v0= a0&&v0?1:0;
+			break;
+		default:
+			err_unknown();
+			return 0;
+	}
+	return ((int*)(&v0))[0];
+}; 
\ No newline at end of file

--- mips/trunk/editor.h	(revision 148)
+++ mips/trunk/editor.h	(revision 149)
@@ -4,7 +4,8 @@
    http://www.ze.em-net.ne.jp/~kenken/index.html
 */
 
-#define TBUFMAXLINE 101 //テキストバッファ数
+#define TBUFMAXLINE 201 //テキストバッファ数
+
 #define TBUFSIZE 200 //テキストバッファ1つのサイズ
 #define TBUFMAXSIZE (TBUFSIZE*(TBUFMAXLINE-1)) //最大バッファ容量（バッファ1行分空ける）
 #define EDITWIDTHX 30 //エディタ画面横幅
@@ -21,9 +22,8 @@
 #define ERR_CANTWRITEFILE -3
 
 #define TEMPFILENAME "~TEMP.BAS"
-#define INIFILE "MACHIKAN.INI" // 初期設定ファイル
-#define HEXFILE "MACHIKAN.HEX" // 実行中HEXファイル名がこれと一致した場合はエディタ起動
 
 void texteditor(void); //テキストエディタ本体
 int runbasic(char *s,int test); //コンパイルして実行
 extern unsigned char tempfile[13];
+void wait60thsec(unsigned short n);

--- mips/trunk/exception.c	(nonexistent)
+++ mips/trunk/exception.c	(revision 149)
@@ -0,0 +1,126 @@
+/*
+   This file is provided under the LGPL license ver 2.1.
+   Written by K.Tanaka & Katsumi
+   http://www.ze.em-net.ne.jp/~kenken/index.html
+   http://hp.vector.co.jp/authors/VA016157/
+*/
+
+#include <xc.h>
+#include "api.h"
+#include "main.h"
+#include "compiler.h"
+
+void _general_exception_handler (void){
+	int i;
+	// $v1 is g_ex_data
+	asm volatile("la $v1,%0"::"i"(&g_ex_data[0]));
+	// Prepare proper stack area before SoftReset
+	asm volatile("addiu $sp,$v1,0xfff0");
+	// g_ex_data[2]=$s6
+	asm volatile("sw $s6,8($v1)");
+	// g_ex_data[3]=Cause
+	asm volatile("mfc0 $v0,$13");
+	asm volatile("sw $v0,12($v1)");
+	// g_ex_data[4]=EPC 
+	asm volatile("mfc0 $v0,$14");
+	asm volatile("sw $v0,16($v1)");
+	// Exception occured
+	g_ex_data[0]=1;
+	// g_s6
+	g_ex_data[1]=g_s6;
+	// Clear 2 MLB bits of EPC
+	g_ex_data[4]&=0xfffffffc;
+	// If EPC is within RAM, store data in exception area.
+	if ((int)(&RAM[0])<=g_ex_data[4] && g_ex_data[4] <(int)(&RAM[RAMSIZE])) {
+		// g_ex_data[5] - g_ex_data[12]: assembly
+		for(i=-3;i<=3;i++){
+			g_ex_data[i+8]=((int*)g_ex_data[4])[i];
+		}
+	}
+	// Wait until all buttons are released and reset MachiKania.
+	#ifdef __DEBUG
+		asm volatile("j 0xBFC00000");
+	#else
+		buttonmode();
+		for(i=0;i<100000;i++){
+			if((KEYPORT&(KEYUP|KEYDOWN|KEYLEFT|KEYRIGHT|KEYSTART|KEYFIRE))
+				!=(KEYUP|KEYDOWN|KEYLEFT|KEYRIGHT|KEYSTART|KEYFIRE)) i=0;
+		}
+		asm volatile("j SoftReset");
+	#endif
+}
+
+void blue_screen(void){
+	int i,j,s6,s6g;
+	unsigned int* opos;
+	if (RCONbits.POR || RCONbits.EXTR) {
+		// After power on or reset. Reset flags and return.
+		RCONbits.POR=0;
+		RCONbits.EXTR=0;
+		for(i=0;i<RAMSIZE;i++){
+			// Reset all RAM area including g_ex_data[]
+			RAM[i]=0;
+		}
+		return;
+	} else if (g_ex_data[0]==0) {
+		// No exception found.
+		return;
+	}
+	// Exception occured before SoftReset().
+	// Prepare data
+	s6=g_ex_data[2];
+	s6g=g_ex_data[1];
+	s6=s6&0x7fffffff;
+	s6g=s6g&0x7fffffff;
+	opos=(int*)g_ex_data[4];
+	//set_bgcolor(255,0,0);
+	printstr("STOP");
+	printstr("\nException at ");
+	printhex32(g_ex_data[4]);
+	printstr("\n      Cause: ");
+	printhex32(g_ex_data[3]);
+	printstr("\n ");
+	switch((g_ex_data[3]>>2)&0x1f){
+		case 0:  printstr("(Interrupt)"); break;
+		case 1:  printstr("(TLB modification)"); break;
+		case 2:  printstr("(TLB load/fetch)"); break;
+		case 3:  printstr("(TLB store)"); break;
+		case 4:  printstr("(Address load/fetch error )"); break;
+		case 5:  printstr("(Address store error)"); break;
+		case 6:  printstr("(Bus fetch error)"); break;
+		case 7:  printstr("(Bus load/store error)"); break;
+		case 8:  printstr("(Syscall)"); break;
+		case 9:  printstr("(Breakpoint)"); break;
+		case 10: printstr("(Reserved instruction)"); break;
+		case 11: printstr("(Coprocessor Unusable)"); break;
+		case 12: printstr("(Integer Overflow)"); break;
+		case 13: printstr("(Trap)"); break;
+		case 23: printstr("(Reference to Watch address)"); break;
+		case 24: printstr("(Machine check)"); break;
+		default: printstr("(Unknown)"); break;
+	}
+	printstr("\n         s6: ");
+	printstr(resolve_label(s6));
+	printstr("\n       g_s6: ");
+	printstr(resolve_label(s6g));
+	printstr("\n");
+	printstr("Reset MachiKania to contine.\n\n");
+	// Show code where the exception happened.
+	for(i=-3;i<=3;i++){
+		printstr("\n ");
+		printhex32((unsigned int)&opos[i]);
+		printstr("  ");
+		if ((unsigned int)&RAM[0]<=(unsigned int)&opos[i] && (unsigned int)&opos[i]<(unsigned int)&RAM[RAMSIZE]) {
+			// Exception in RAM[RAMSIZE] area
+			printhex32(g_ex_data[i+8]);		
+		} else if (   0xA0000000<=(unsigned int)&opos[i] && (unsigned int)&opos[i]<0xA0000000+PIC32MX_RAMSIZE
+			|| 0x9D000000<=(unsigned int)&opos[i] && (unsigned int)&opos[i]<=0x9D000000+PIC32MX_FLASHSIZE) {
+			// Exception in outside RAM[RAMSIZE] or flash area
+			printhex32(opos[i]);
+		} else {
+			printstr("********");
+		}
+	}
+	printstr("\n");
+	while(1) asm("wait");
+}

--- mips/trunk/videoout.h	(nonexistent)
+++ mips/trunk/videoout.h	(revision 149)
@@ -0,0 +1,108 @@
+#define WIDTH_X	30 // 横方向文字数
+#define WIDTH_Y	27 // 縦方向文字数
+#define ATTROFFSET	(WIDTH_X*WIDTH_Y) // VRAM上のカラーパレット格納位置
+
+#define G_X_RES	256 // 横方向解像度
+#define G_Y_RES	224 // 縦方向解像度
+#define G_H_WORD	(G_X_RES/4) // 1行当りのワード数(16bit単位)
+
+
+// 入力ボタンのポート、ビット定義
+#define KEYPORT PORTB
+#define KEYUP 0x0400
+#define KEYDOWN 0x0080
+#define KEYLEFT 0x0100
+#define KEYRIGHT 0x0200
+#define KEYSTART 0x0800
+#define KEYFIRE 0x4000
+
+extern volatile char drawing;		//　表示期間中は-1
+extern volatile unsigned short drawcount;		//　1画面表示終了ごとに1足す。アプリ側で0にする。
+							// 最低1回は画面表示したことのチェックと、アプリの処理が何画面期間必要かの確認に利用。
+extern unsigned char TVRAM[]; //テキストビデオメモリ
+extern unsigned short *gVRAM; //グラフィックVRAM開始位置のポインタ
+
+extern const unsigned char FontData[]; //フォントパターン定義
+extern unsigned char *cursor;
+extern unsigned char cursorcolor;
+extern unsigned char *fontp;
+
+void start_composite(void); //カラーコンポジット出力開始
+void stop_composite(void); //カラーコンポジット出力停止
+void init_composite(void); //カラーコンポジット出力初期化
+void clearscreen(void); //テキスト画面クリア
+void set_palette(unsigned char n,unsigned char b,unsigned char r,unsigned char g); //テキストパレット設定
+void set_bgcolor(unsigned char b,unsigned char r,unsigned char g); //バックグランドカラー設定
+void set_graphmode(unsigned char m); //グラフィックモード変更
+void init_graphic(unsigned short *gvram); //グラフィック機能利用準備
+
+void vramscroll(void);
+	//1行スクロール
+void setcursor(unsigned char x,unsigned char y,unsigned char c);
+	//カーソル位置とカラーを設定
+void setcursorcolor(unsigned char c);
+	//カーソル位置そのままでカラー番号をcに設定
+void printchar(unsigned char n);
+	//カーソル位置にテキストコードnを1文字表示し、カーソルを1文字進める
+void printstr(unsigned char *s);
+	//カーソル位置に文字列sを表示
+void printnum(unsigned int n);
+	//カーソル位置に符号なし整数nを10進数表示
+void printnum2(unsigned int n,unsigned char e);
+	//カーソル位置に符号なし整数nをe桁の10進数表示（前の空き桁部分はスペースで埋める）
+void cls(void);
+	//テキスト画面消去し、カーソルを先頭に移動
+void startPCG(unsigned char *p,int a);
+	// RAMフォント（PCG）の利用開始、pがフォント格納場所、aが0以外でシステムフォントをコピー
+void stopPCG(void);
+	// RAMフォント（PCG）の利用停止
+
+void g_clearscreen(void);
+//グラフィック画面クリア
+void g_set_palette(unsigned char n,unsigned char b,unsigned char r,unsigned char g);
+//グラフィック用カラーパレット設定
+
+void g_pset(int x,int y,unsigned int c);
+// (x,y)の位置にカラーcで点を描画
+
+void g_putbmpmn(int x,int y,char m,char n,const unsigned char bmp[]);
+// 横m*縦nドットのキャラクターを座標x,yに表示
+// unsigned char bmp[m*n]配列に、単純にカラー番号を並べる
+// カラー番号が0の部分は透明色として扱う
+
+void g_clrbmpmn(int x,int y,char m,char n);
+// 縦m*横nドットのキャラクター消去
+// カラー0で塗りつぶし
+
+void g_gline(int x1,int y1,int x2,int y2,unsigned int c);
+// (x1,y1)-(x2,y2)にカラーcで線分を描画
+
+void g_hline(int x1,int x2,int y,unsigned int c);
+// (x1,y)-(x2,y)への水平ラインを高速描画
+
+void g_circle(int x0,int y0,unsigned int r,unsigned int c);
+// (x0,y0)を中心に、半径r、カラーcの円を描画
+
+void g_boxfill(int x1,int y1,int x2,int y2,unsigned int c);
+// (x1,y1),(x2,y2)を対角線とするカラーcで塗られた長方形を描画
+
+void g_circlefill(int x0,int y0,unsigned int r,unsigned int c);
+// (x0,y0)を中心に、半径r、カラーcで塗られた円を描画
+
+void g_putfont(int x,int y,unsigned int c,int bc,unsigned char n);
+//8*8ドットのアルファベットフォント表示
+//座標（x,y)、カラー番号c
+//bc:バックグランドカラー、負数の場合無視
+//n:文字番号
+
+void g_printstr(int x,int y,unsigned int c,int bc,unsigned char *s);
+//座標(x,y)からカラー番号cで文字列sを表示、bc:バックグランドカラー
+
+void g_printnum(int x,int y,unsigned char c,int bc,unsigned int n);
+//座標(x,y)にカラー番号cで数値nを表示、bc:バックグランドカラー
+
+void g_printnum2(int x,int y,unsigned char c,int bc,unsigned int n,unsigned char e);
+//座標(x,y)にカラー番号cで数値nを表示、bc:バックグランドカラー、e桁で表示
+
+unsigned int g_color(int x,int y);
+//座標(x,y)のVRAM上の現在のパレット番号を返す、画面外は0を返す

--- mips/trunk/library.c	(revision 148)
+++ mips/trunk/library.c	(revision 149)
@@ -6,53 +6,107 @@
 */
 
 #include <xc.h>
+#include "main.h"
 #include "compiler.h"
 #include "api.h"
 #include "keyinput.h"
+#include "stdlib.h"
+#include "math.h"
 
-int lib_read(unsigned int label){
-	unsigned int i,code;
+/*
+   Local global variables used for graphic
+ */
+
+static int g_gcolor=7;
+static int g_prev_x=0;
+static int g_prev_y=0;
+
+int lib_read(int mode, unsigned int label){
+	unsigned int i,code,code2;
 	static unsigned int pos=0;
 	static unsigned int in_data=0;
+	static unsigned char skip=0;
 	if (label) {
 		// RESTORE function
-		i=(int)search_label(label);
-		if (!i) {
+		switch(mode){
+			case 0:
+				// label is label data
+				i=(int)search_label(label);
+				if (!i) {
+					err_data_not_found();
+					return 0;
+				}
+				break;
+			case 1:
+				// label is pointer
+				i=label;
+				break;
+			case 2:
+			default:
+				// Reset data/read
+				pos=0;
+				in_data=0;
+				skip=0;
+				return 0;
+		}
+		i-=(int)(&g_object[0]);
+		pos=i/4;
+		in_data=0;
+	}
+	// Get data
+	if (in_data==0) {
+		for(i=pos;i<g_objpos;i++){
+			code=g_object[i];
+			code2=g_object[i+1];
+			if ((code&0xFFFF0000)!=0x04110000) continue;
+			// "bgezal zero," assembly found.
+			// Check if 0x00000020,0x00000021,0x00000022, or 0x00000023 follows
+			if ((code2&0xfffffffc)!=0x00000020) {// add/addu/sub/subu        zero,zero,zero
+				// If not, skip following block (it's strig).
+				i+=code&0x0000FFFF;
+				i--;
+				continue;
+			}
+			// DATA region found.
+			in_data=(code&0x0000FFFF)-1;
+			pos=i+2;
+			skip=code2&0x03;
+			break;
+		}
+		if (g_objpos<=i) {
 			err_data_not_found();
 			return 0;
 		}
-		i-=(int)(&g_object[0]);
-		pos=i/4;
-		return 0;
+	}
+	if (label) {
+		// RESTORE function. Return pointer.
+		return ((int)&g_object[pos])+skip;
 	} else {
-		// Get data
-		if (in_data==0) {
-			for(i=pos+1;i<g_objpos;i++){
-				code=g_object[i];
-				if ((code&0xFFFF0000)!=0x04110000) continue;
-				// "bgezal zero," assembly found.
-				// Check if 0x00000021 follows
-				if (g_object[i+1]!=0x00000021) {// addu        zero,zero,zero
-					// If not, skip following block (it's strig).
-					i+=code&0x0000FFFF;
-					i--;
-					continue;
+		switch(mode){
+			case 0:
+				// READ() function
+				in_data--;
+				return g_object[pos++];
+			case 1:
+			default:
+				// CREAD() function
+				i=g_object[pos];
+				i>>=skip*8;
+				i&=0xff;
+				if ((++skip)==4) {
+					skip=0;
+					in_data--;
+					pos++;
 				}
-				// DATA region found.
-				in_data=(code&0x0000FFFF)-1;
-				pos=i+2;
-				break;
-			}
-			if (g_objpos<=i) {
-				err_data_not_found();
-				return 0;
-			}
+				return i;
 		}
-		in_data--;
-		return g_object[pos++];
-	}	
+	}
 }
 
+void reset_dataread(){
+	lib_read(2,1);
+}
+
 char* lib_midstr(int var_num, int pos, int len){
 	int i;
 	char* str;
@@ -122,21 +176,13 @@
 }
 
 int lib_rnd(){
-	int i,j,rnd;
-	rnd=g_rnd_seed;
-	for (i=0;i<15;i++) {
-		j=rnd;
-		j^=(j>>1);
-		j^=(j>>2);
-		j^=(j>>9);
-		j>>=3;
-		j&=0x01;
-		j|=rnd<<1;
-		j&=0x0000FFFF;
-		rnd=j;
-	}
-	g_rnd_seed=rnd;
-	return rnd&0x00007FFF;
+	int y;
+	y=g_rnd_seed;
+	y = y ^ (y << 13);
+	y = y ^ (y >> 17);
+	y = y ^ (y << 5);
+	g_rnd_seed=y;
+	return y&0x7fff;
 }
 
 char* lib_chr(int num){
@@ -332,7 +378,7 @@
 	while(vkey!=0);
 	// Get string as a line
 	lineinput(str,63);
-	if (g_disable_break==0 && (ps2keystatus[0x03] || (PORTB&0x4c80)==0)) err_break();
+	check_break();
 	return str;
 }
 
@@ -449,15 +495,356 @@
 	for(i=0;i<period;i++){
 		dcount=drawcount;
 		while(dcount==drawcount){
-			asm ("wait");
-			if (g_disable_break==0 && (ps2keystatus[0x03] || (PORTB&0x4c80)==0)) err_break();
+			asm (WAIT);
+			check_break();
 		}
 	}
 }
 
+void allocate_graphic_area(){
+	if (!g_graphic_area) {
+		// Use this pointer like unsigned short GVRAM[G_H_WORD*G_Y_RES] __attribute__ ((aligned (4)));
+		g_graphic_area=(unsigned short*)alloc_memory(G_H_WORD*G_Y_RES/2,ALLOC_GRAPHIC_BLOCK);
+		// Start graphic and clear screen
+		init_graphic(g_graphic_area);
+		// Move current point to (0,0)
+		g_prev_x=g_prev_y=0;
+	}
+}
+
+void lib_usegraphic(int mode){
+	// Modes; 0: stop GRAPHIC, 1: use GRAPHIC, 2: reset GRAPHIC and use it
+	switch(mode){
+		case 0:
+			if (g_use_graphic){
+				// Stop GRAPHIC if used
+				set_graphmode(0);
+				g_use_graphic=0;
+				// Set timer4 for tempo
+				PR4=59473;       // 3632*262/16-1
+			} else {
+				// Prepare GRAPHIC area if not used and not allcated.
+				allocate_graphic_area();
+			}
+			break;
+		case 2:
+			// Reset GRAPHIC and use it
+			g_graphic_area=0;
+			// Continue to case 1:
+		case 1:
+		case 3:
+		default:
+			// Use GRAPHIC
+			allocate_graphic_area();
+			// Start showing GRAPHIC with mode 1, but not with mode 3
+			if (mode !=3 && !g_use_graphic){
+				set_graphmode(1);
+				g_use_graphic=1;
+				// Set timer4 for tempo
+				PR4=55756;       // ~=3405*262/16-1(55755.875)
+			}
+			break;
+	}
+}
+
+int lib_graphic(int a0, int a1, int v0){
+	unsigned char b;
+	enum functions func=(enum functions)(a0>>24);
+	int x1=(a0>>12)&0x0FFF;
+	int y1=a0&0x0FFF;
+	int x2=(a1>>12)&0x0FFF;
+	int y2=a1&0x0FFF;
+	// Disable if graphic area is not defined.
+	if (!g_graphic_area) return;
+	// Support 12 bit signed integer.
+	if (x1&0x0800) x1|=0x0FFFFF000;
+	if (y1&0x0800) y1|=0x0FFFFF000;
+	if (x2&0x0800) x2|=0x0FFFFF000;
+	if (y2&0x0800) y2|=0x0FFFFF000;
+	// If C is omitted in parameters, use current color.
+	if (v0==-1) {
+		v0=g_gcolor;
+	}
+	// If X1 or Y1 is -2048 (0xFFFFF800/0x0800), use the previous values.
+	if (x1==-2048) x1=g_prev_x;
+	if (y1==-2048) y1=g_prev_y;
+	switch(func){
+		case FUNC_POINT:// X1,Y1
+			g_prev_x=x1;
+			g_prev_y=y1;
+			break;
+		case FUNC_PSET:// X1,Y1[,C]
+			g_pset(x1,y1,v0&0x0F);
+			g_prev_x=x1;
+			g_prev_y=y1;
+			break;
+		case FUNC_LINE:// X1,Y1,X2,Y2[,C]
+			if (y1==y2) g_hline(x1,x2,y1,v0&0x0F);
+			else g_gline(x1,y1,x2,y2,v0&0x0F);
+			g_prev_x=x2;
+			g_prev_y=y2;
+			break;
+		case FUNC_BOXFILL:// X1,Y1,X2,Y2[,C]
+			g_boxfill(x1,y1,x2,y2,v0&0x0F);
+			g_prev_x=x2;
+			g_prev_y=y2;
+			break;
+		case FUNC_CIRCLE:// X1,Y1,R[,C]
+			g_circle(x1,y1,x2,v0&0x0F);
+			g_prev_x=x1;
+			g_prev_y=y1;
+			break;
+		case FUNC_CIRCLEFILL:// X1,Y1,R[,C]
+			g_circlefill(x1,y1,x2,v0&0x0F);
+			g_prev_x=x1;
+			g_prev_y=y1;
+			break;
+		case FUNC_GPRINT:// X1,Y1,C,BC,S$
+			g_printstr(x1,y1,x2,y2,(unsigned char*)v0);
+			// Move current X,Y according to the string
+			while(b=((unsigned char*)v0)[0]){
+				v0++;
+				if (b==0x0d) {
+					x1=0;
+					y1+=8;
+				} else {
+					x1+=8;
+				}
+			}
+			g_prev_x=x1;
+			g_prev_y=y1;
+			break;
+		case FUNC_PUTBMP2:// X1,Y1,M,N,BMP(label)
+			// Search CDATA
+			// It starts from either 0x00000020,0x00000021,0x00000022, or 0x00000023.
+			while((((unsigned int*)v0)[0]&0xfffffffc)!=0x00000020) v0+=4;
+			// CDATA starts from next word.
+			// MLB 3 bytes show skip byte(s).
+			v0+=4+(((unsigned int*)v0)[0]&0x03);
+			// Contunue to FUNC_PUTBMP.
+		case FUNC_PUTBMP:// X1,Y1,M,N,BMP(pointer)
+			g_putbmpmn(x1,y1,x2,y2,(const unsigned char*)v0);
+			g_prev_x=x1;
+			g_prev_y=y1;
+			break;
+		case FUNC_GCOLOR:// (X1,Y1)
+			v0=g_color(x1,y1);
+			break;
+		default:
+			break;
+	}
+	return v0;
+}
+
+void lib_var_push(int* sp,unsigned int flags){
+	unsigned int strflags=0;
+	int varnum;
+	int stack=0;
+	// Store flags in stack
+	// Note that sp[1] is used for string return address
+	sp[2]=flags;
+	for(varnum=0;varnum<26;varnum++){
+		if (flags&1) {
+			sp[(stack++)+4]=g_var_mem[varnum];
+			if (g_var_size[varnum] && g_var_mem[varnum]==(int)(&g_var_pointer[varnum])) {
+				// strflags change using varnum
+				strflags|=1<<varnum;
+				// Copy to VAR_BLOCK
+				move_to_perm_block(varnum);
+			}
+			// Clear variable
+			g_var_mem[varnum]=0;
+		}
+		flags>>=1;
+	}
+	sp[3]=strflags;
+}
+void lib_var_pop(int* sp){
+	// Note that sp is 4 bytes larger than that in lib_var_push
+	unsigned int flags;
+	unsigned int strflags;
+	int varnum;
+	int stack=0;
+	flags=sp[1];
+	strflags=sp[2];
+	for(varnum=0;varnum<26;varnum++){
+		if (flags&1) {
+			g_var_mem[varnum]=sp[(stack++)+3];
+			if (strflags&1) {
+				// Restore from VAR_BLOCK
+				move_from_perm_block(varnum);
+			}
+		}
+		flags>>=1;
+		strflags>>=1;
+	}
+}
+
+int lib_system(int a0,int v0){
+	switch(a0){
+		// Version info
+		case 0: return (int)SYSVER1;
+		case 1: return (int)SYSVER2;
+		case 2: return (int)BASVER;
+		case 3: return (int)FILENAME_FLASH_ADDRESS;
+		// Display info
+		case 20: return WIDTH_X;
+		case 21: return WIDTH_Y;
+		case 22: return G_X_RES;
+		case 23: return G_Y_RES;
+		case 24: return cursorcolor;
+		case 25: return g_gcolor;
+		case 26: return ((int)(cursor-TVRAM))%WIDTH_X;
+		case 27: return ((int)(cursor-TVRAM))/WIDTH_X;
+		case 28: return g_prev_x;
+		case 29: return g_prev_y;
+		// Keyboard info
+		case 40: return (int)inPS2MODE();
+		case 41: return (int)vkey;
+		case 42: return (int)lockkey;
+		case 43: return (int)keytype;
+		// Pointers to gloval variables
+		case 100: return (int)&g_var_mem[0];
+		case 101: return (int)&g_rnd_seed;
+		case 102: return (int)&TVRAM[0];
+		case 103: return (int)&FontData[0];
+		case 104: return (int)g_var_mem[ALLOC_PCG_BLOCK];
+		case 105: return (int)g_var_mem[ALLOC_GRAPHIC_BLOCK];
+		// Change system settings
+		case 200:
+			// ON/OFF monitor
+			if (v0) {
+				start_composite();
+			} else {
+				stop_composite();
+			}
+			break;
+		default:
+			break;
+	}
+	return 0;
+}
+
+char* lib_sprintf(char* format, int data){
+	char* str;
+	int i;
+	char temp[4];
+	if (!format) format="%g";
+	i=snprintf((char*)(&temp[0]),4,format,data)+1;
+	str=alloc_memory((i+3)/4,-1);
+	snprintf(str,i,format,data);
+	return str;
+}
+
+int lib_floatfuncs(int ia0,int iv0,enum functions a1){
+	volatile float a0,v0;
+	((int*)(&a0))[0]=ia0;
+	((int*)(&v0))[0]=iv0;
+	switch(a1){
+		case FUNC_FLOAT:
+			v0=(float)iv0;
+			break;
+		case FUNC_INT:
+			return (int)v0;
+		case FUNC_VALSHARP:
+			v0=strtof((const char*)iv0,0);
+			break;
+		case FUNC_SIN:
+			v0=sinf(v0);
+			break;
+		case FUNC_COS:
+			v0=cosf(v0);
+			break;
+		case FUNC_TAN:
+			v0=tanf(v0);
+			break;
+		case FUNC_ASIN:
+			v0=asinf(v0);
+			break;
+		case FUNC_ACOS:
+			v0=acosf(v0);
+			break;
+		case FUNC_ATAN:
+			v0=atanf(v0);
+			break;
+		case FUNC_SINH:
+			v0=sinhf(v0);
+			break;
+		case FUNC_COSH:
+			v0=coshf(v0);
+			break;
+		case FUNC_TANH:
+			v0=tanhf(v0);
+			break;
+		case FUNC_EXP:
+			v0=expf(v0);
+			break;
+		case FUNC_LOG:
+			v0=logf(v0);
+			break;
+		case FUNC_LOG10:
+			v0=log10f(v0);
+			break;
+		case FUNC_POW:
+			v0=powf(v0,a0);
+			break;
+		case FUNC_SQRT:
+			v0=sqrtf(v0);
+			break;
+		case FUNC_CEIL:
+			v0=ceilf(v0);
+			break;
+		case FUNC_FLOOR:
+			v0=floorf(v0);
+			break;
+		case FUNC_FABS:
+			v0=fabsf(v0);
+			break;
+		case FUNC_MODF:
+			v0=modff(v0,(void*)&a0);
+			break;
+		case FUNC_FMOD:
+			v0=fmodf(v0,a0);
+			break;
+		default:
+			err_unknown();
+			break;
+	}
+	return ((int*)(&v0))[0];
+};
+
+int* lib_dim(int varnum, int argsnum, int* sp){
+	int i,j;
+	static int* heap;
+	// Calculate total length.
+	int len=0;  // Total length
+	int size=1; // Size of current block
+	for(i=1;i<=argsnum;i++){
+		size*=sp[i]+1;
+		len+=size;
+	}
+	// Allocate memory
+	heap=calloc_memory(len,varnum);
+	// Construct pointers
+	len=0;
+	size=1;
+	for(i=1;i<argsnum;i++){
+		size*=sp[i]+1;
+		for(j=0;j<size;j++){
+			heap[len+j]=(int)&heap[len+size+(sp[i+1]+1)*j];
+		}
+		len+=size;
+	}
+	return heap;
+};
+
 int _call_library(int a0,int a1,int a2,enum libs a3);
 
 void call_library(void){
+	// Store s6 in g_s6
+	asm volatile("la $a2,%0"::"i"(&g_s6));
+	asm volatile("sw $s6,0($a2)");
+	// Copy $v0 to $a2 as 3rd argument of function
 	asm volatile("addu $a2,$v0,$zero");
 	asm volatile("j _call_library");
 }
@@ -465,11 +852,12 @@
 int _call_library(int a0,int a1,int v0,enum libs a3){
 	// usage: call_lib_code(LIB_XXXX);
 	// Above code takes 2 words.
-	if (g_disable_break==0 && (ps2keystatus[0x03] || (PORTB&0x4c80)==0)) err_break();
+	check_break();
 	switch(a3){
-		case LIB_DIV0:
-			err_div_zero();
-			return;
+		case LIB_FLOAT:
+			return lib_float(a0,v0,(enum operator)a1); // see operator.c
+		case LIB_FLOATFUNCS:
+			return lib_floatfuncs(a0,v0,(enum functions)a1);
 		case LIB_STRNCMP:
 			return strncmp((char*)a0,(char*)a1,v0);
 		case LIB_MIDSTR:
@@ -491,13 +879,23 @@
 			return (int)lib_connect_string((char*)a0, (char*)v0);
 		case LIB_STRING:
 			lib_string(a0);
-			return;
+			return v0;
 		case LIB_PRINTSTR:
 			printstr((char*)v0);
-			return;
+			return v0;
+		case LIB_GRAPHIC:
+			return lib_graphic(a0,a1,v0);
+		case LIB_SPRINTF:
+			return (int)lib_sprintf((char*)v0,a0);
+		case LIB_VAR_PUSH:
+			lib_var_push((int*)a1,a0);
+			return v0;
+		case LIB_VAR_POP:
+			lib_var_pop((int*)a1);
+			return v0;
 		case LIB_SCROLL:
 			lib_scroll(a0,v0);
-			return;
+			return v0;
 		case LIB_KEYS:
 			return lib_keys(v0);
 		case LIB_INKEY:
@@ -504,56 +902,83 @@
 			return (int)lib_inkey(v0);
 		case LIB_CURSOR:
 			setcursor(a0,v0,cursorcolor);
-			return;
+			return v0;
 		case LIB_SOUND:
 			set_sound((unsigned long*)v0);
-			return;
+			return v0;
 		case LIB_MUSICFUNC:
 			return musicRemaining();
 		case LIB_MUSIC:
 			set_music((char*)v0);
-			return;
+			return v0;
 		case LIB_SETDRAWCOUNT:
 			drawcount=(v0&0x0000FFFF);
-			return;
+			return v0;
 		case LIB_DRAWCOUNT:
 			return drawcount;
+		case LIB_SYSTEM:
+			return lib_system(a0,v0);
 		case LIB_RESTORE:
-			lib_read(v0);
-			return;
+			return lib_read(0,v0);
+		case LIB_RESTORE2:
+			return lib_read(1,v0);
 		case LIB_READ:
-			return lib_read(0);
+			return lib_read(0,0);
+		case LIB_CREAD:
+			return lib_read(1,0);
 		case LIB_LABEL:
 			return (int)lib_label(v0);
 		case LIB_INPUT:
 			return (int)lib_input();
+		case LIB_USEGRAPHIC:
+			lib_usegraphic(v0);
+			return v0;
 		case LIB_USEPCG:
 			lib_usepcg(v0);
-			return;
+			return v0;
 		case LIB_PCG:
 			lib_pcg(a0,a1,v0);
-			return;
+			return v0;
 		case LIB_BGCOLOR: // BGCOLOR R,G,B
 			set_bgcolor(v0,a0,a1); //set_bgcolor(b,r,g);
-			return;
+			return v0;
 		case LIB_PALETTE: // PALETTE N,R,G,B
 			set_palette(a0,v0,(a1>>16)&255,a1&255); // set_palette(n,b,r,g);
-			return;
+			return v0;
+		case LIB_GPALETTE:// GPALETTE N,R,G,B
+			if (g_graphic_area) g_set_palette(a0,v0,(a1>>16)&255,a1&255); // g_set_palette(n,b,r,g);
+			return v0;
 		case LIB_CLS:
 			clearscreen();
-			return;
+			return v0;
+		case LIB_GCLS:
+			if (g_graphic_area) g_clearscreen();
+			g_prev_x=g_prev_y=0;
+			return v0;
 		case LIB_COLOR:
 			setcursorcolor(v0);
-			return;
+			return v0;
+		case LIB_GCOLOR:
+			g_gcolor=v0;
+			return v0;
 		case LIB_WAIT:
 			lib_wait(v0);
-			return;
+			return v0;
 		case LIB_CLEAR:
 			lib_clear();
-			return;
+			return v0;
 		case LIB_DIM:
-			return (int)calloc_memory(v0+1, a0);
+			return (int)lib_dim(a0,a1,(int*)v0);
+#ifdef __DEBUG
+		case LIB_DEBUG:
+			asm volatile("nop");
+			return v0;
+#endif
+		case LIB_DIV0:
+			err_div_zero();
+			return v0;
 		default:
-			break;
+			err_unknown();
+			return v0;
 	}
 }
\ No newline at end of file

--- mips/trunk/string.c	(revision 148)
+++ mips/trunk/string.c	(revision 149)
@@ -7,7 +7,8 @@
 
 /*
   Public functions:
-    char* teg_string(void);
+    char* get_string(void);
+	char* simple_string(void);
 */
 
 #include "api.h"
@@ -15,7 +16,7 @@
 
 char* simple_string(void){
 	char* err;
-	char b1,b2;
+	unsigned char b1,b2;
 	int i,j;
 	next_position();
 	b1=g_source[g_srcpos];
@@ -23,8 +24,21 @@
 	if (b1=='"') {
 		// Constant string
 		// Count character number (+1 for \0)
-		for(i=1;g_source[g_srcpos+i]!='"';i++);
-		g_srcpos++;;
+		// This may be more than actual character number due to escape sequence.
+		i=0;
+		while(1){
+			i++;
+			b1=g_source[g_srcpos+i];
+			if (b1=='"') {
+				break;
+			} else if (b1=='\\') {
+				i++;
+			} else if (b1<0x20) {
+				// This is an error, that will be detected later again.
+				break;
+			}
+		};
+		g_srcpos++;
 		// Determine required word number
 		i=(i+3)/4;
 		// Determine address containing the string
@@ -34,9 +48,30 @@
 		check_obj_space(2+i);
 		g_object[g_objpos++]=0x04110000|((i+1)&0x0000FFFF);   // bgezal zero,xxxx
 		g_object[g_objpos++]=0x03E01021;                      // addu   v0,ra,zero
-
-
 		for(j=0;(b1=g_source[g_srcpos++])!='"';j++) {
+			if (b1=='\\') {
+				b1=g_source[g_srcpos++];
+				if (b1=='x' || b1=='X') {
+					// Hexadecimal
+					b1=g_source[g_srcpos++];
+					if ('0'<=b1 && b1<='9') b1=b1-'0';
+					else if ('A'<=b1 && b1<='F') b1=b1-'A'+10;
+					else if ('a'<=b1 && b1<='f') b1=b1-'a'+10;
+					else return ERR_SYNTAX;
+					b2=g_source[g_srcpos++];
+					if ('0'<=b2 && b2<='9') b2=b2-'0';
+					else if ('A'<=b2 && b2<='F') b2=b2-'A'+10;
+					else if ('a'<=b2 && b2<='f') b2=b2-'a'+10;
+					else return ERR_SYNTAX;
+					b1=(b1<<4)|b2;
+				} else if (b1<0x20) {
+					return ERR_SYNTAX;
+				} else {
+					// \\ or \"
+				}
+			} else if (b1<0x20) {
+				return ERR_SYNTAX;
+			}
 			((char*)(&g_object[g_objpos]))[j]=b1;
 		}
 		((char*)(&g_object[g_objpos]))[j]=0x00;
@@ -72,6 +107,8 @@
 				g_sdepth-=4;
 				if (g_source[g_srcpos]!=')') return ERR_SYNTAX;
 				g_srcpos++;
+				// Temp area will be used when executing.
+				g_temp_area_used=1;
 			} else {
 				return ERR_SYNTAX;
 			}
@@ -89,7 +126,11 @@
 		// Function
 		// String would be pointed by $v0
 		// Otherwise, it will be assinged in xxx_function() function.
-		return str_function();
+		err=str_function();
+		if (err) return err;
+		// Temp area would be used when executing.
+		g_temp_area_used=1;
+		return 0;
 	} else {
 		return ERR_SYNTAX;
 	}
@@ -123,6 +164,8 @@
 		check_obj_space(2);
 		g_object[g_objpos++]=0x8FA40000|g_sdepth;             // lw    a0,xx(sp)
 		call_lib_code(LIB_CONNECT_STRING);
+		// Temp area will be used when executing.
+		g_temp_area_used=1;
 		// Check if further connection operator exists
 		next_position();
 		b1=g_source[g_srcpos];
@@ -164,6 +207,7 @@
 			g_object[g_objpos++]=0x27BD0000 | g_maxsdepth & 0x0000FFFF;  // addiu sp,sp,xx
 		}
 	}
+	g_lastvar=VAR_STRING;
 	return 0;
 }
 

--- mips/trunk/value.c	(revision 148)
+++ mips/trunk/value.c	(revision 149)
@@ -14,6 +14,37 @@
 char* get_value();
 char* get_value_sub(int pr);
 
+char* get_dim_value(char b1){
+	char* err;
+	err=get_value_sub(priority(OP_VOID));
+	if (err) return err;
+	check_obj_space(4);
+	g_object[g_objpos++]=0x00021080;              // sll v0,v0,0x2
+	g_object[g_objpos++]=0x8FC30000|((b1-'A')*4); // lw v1,xx(s8)
+	g_object[g_objpos++]=0x00621821;              // addu v1,v1,v0
+	g_object[g_objpos++]=0x8C620000;              // lw v0,0(v1)
+	next_position();
+	if (g_source[g_srcpos]==','){
+		// 2D, 3D or more
+		check_obj_space(2);
+		g_object[g_objpos++]=0x27BDFFFC;          // addiu sp,sp,-4
+		do {
+			g_srcpos++;
+			g_object[g_objpos++]=0xAFA20004;      // sw v0,4(sp)
+			err=get_value_sub(priority(OP_VOID));
+			if (err) return err;
+			check_obj_space(5);
+			g_object[g_objpos++]=0x00021080;      // sll v0,v0,0x2
+			g_object[g_objpos++]=0x8FA30004;      // lw v1,4(sp)
+			g_object[g_objpos++]=0x00621821;      // addu v1,v1,v0
+			g_object[g_objpos++]=0x8C620000;      // lw v0,0(v1)
+		} while (g_source[g_srcpos]==',');
+		g_object[g_objpos++]=0x27BD0004;          // addiu sp,sp,4
+	}
+	if (g_source[g_srcpos]!=')') return ERR_SYNTAX;
+	g_srcpos++;
+	return 0;
+}
 
 char* get_simple_value(void){
 	int i;
@@ -39,6 +70,7 @@
 		if (err) return err;
 		check_obj_space(1);
 		g_object[g_objpos++]=0x00021023; // subu v0,zero,v0
+		g_intconst=-g_intconst;
 	} else {
 		// Main routine of getting value here
 		if (b1=='+') g_srcpos++; // Ignore unary '+' operator
@@ -63,6 +95,7 @@
 				}
 				g_srcpos++;
 			}
+			g_intconst=i;
 			if (i&0xFFFF0000) {
 				// 32 bit
 				check_obj_space(2);
@@ -73,36 +106,23 @@
 				check_obj_space(1);
 				g_object[g_objpos++]=0x34020000|(i&0x0000FFFF); // ori v0,zero,xxxx
 			}
-		} else if ('0'<=b1 && b1<='9' || b1=='-' && '0'<=b2 && b2<='9') {
-			if (b1=='-') {
-				// Starts with '-'
-				// Decimal number, negative
+		} else if ('0'<=b1 && b1<='9') {
+			// Starts with 0-9
+			// Decimal number
+			i=0;
+			while(b1=g_source[g_srcpos]) {
+				if ('0'<=b1 && b1<='9') {
+					i*=10;
+					i+=b1-'0';
+				} else {
+					break;
+				}
 				g_srcpos++;
-				i=0;
-				while(b1=g_source[g_srcpos]) {
-					if ('0'<=b1 && b1<='9') {
-						i*=10;
-						i+=b1-'0';
-					} else {
-						break;
-					}
-					g_srcpos++;
-				}
-				i=0-i;
-			} else {
-				// Starts with 0-9
-				// Decimal number
-				i=0;
-				while(b1=g_source[g_srcpos]) {
-					if ('0'<=b1 && b1<='9') {
-						i*=10;
-						i+=b1-'0';
-					} else {
-						break;
-					}
-					g_srcpos++;
-				}
 			}
+			// The next character should not be '.' or 'E'.
+			// Or, it must be recognized as a float value.
+			if (b1=='.' || b1=='E') return ERR_SYNTAX;
+			g_intconst=i;
 			if (i&0xFFFF0000) {
 				// 32 bit
 				check_obj_space(2);
@@ -113,33 +133,27 @@
 				check_obj_space(1);
 				g_object[g_objpos++]=0x34020000|(i&0x0000FFFF); // ori v0,zero,xxxx
 			}
-		} else if ('A'<=b1 && b1<='Z' && b2=='(') {
-			// A( - Z(
-			// Dimension
-			g_srcpos++;
-			g_srcpos++;
-			err=get_value_sub(priority(OP_VOID));
-			if (err) return err;
-			next_position();
-			if (g_source[g_srcpos]!=')') return ERR_SYNTAX;
-			g_srcpos++;
-			check_obj_space(4);
-			g_object[g_objpos++]=0x00021080;              // sll v0,v0,0x2
-			g_object[g_objpos++]=0x8FC30000|((b1-'A')*4); // lw v1,xx(s8)
-			g_object[g_objpos++]=0x00621821;              // addu v1,v1,v0
-			g_object[g_objpos++]=0x8C620000;              // lw v0,0(v1)
-		} else if ('A'<=b1 && b1<='Z' && (b2<'A' || 'Z'<b2)) {
-			// A-Z
-			// Simple value
-			g_srcpos++;
-			check_obj_space(1);
-			g_object[g_objpos++]=0x8FC20000|((b1-'A')*4); // lw v0,xx(s8)
-		} else if ('A'<=b1 && b1<='Z') {
-			// Starts with A-Z
-			// Functions
-			return function();
 		} else {
-			return ERR_SYNTAX;
+			g_valueisconst=0;
+			if ('A'<=b1 && b1<='Z' && b2=='(') {
+				// A( - Z(
+				// Dimension
+				g_srcpos++;
+				g_srcpos++;
+				return get_dim_value(b1);
+			} else if ('A'<=b1 && b1<='Z' && (b2<'A' || 'Z'<b2) && b2!='#' && b2!='$') {
+				// A-Z
+				// Simple value
+				g_srcpos++;
+				check_obj_space(1);
+				g_object[g_objpos++]=0x8FC20000|((b1-'A')*4); // lw v0,xx(s8)
+			} else if ('A'<=b1 && b1<='Z') {
+				// Starts with A-Z
+				// Functions
+				return function();
+			} else {
+				return ERR_SYNTAX;
+			}
 		}
 	}
 	// No error 
@@ -212,5 +226,46 @@
 			g_object[g_objpos++]=0x27BD0000 | g_maxsdepth & 0x0000FFFF;  // addiu sp,sp,xx
 		}
 	}
+	g_lastvar=VAR_INTEGER;
 	return 0;
-}
\ No newline at end of file
+}
+
+char* get_floatOrValue(){
+	char* err;
+	char b;
+	int opos,spos,sdpt;
+	sdpt=g_sdepth;
+	opos=g_objpos;
+	spos=g_srcpos;
+	// First try integer.
+	// Integer value has the higher priolity than float value.
+	err=get_value();
+	b=g_source[g_srcpos];
+	if (err) {
+		// Value is not integer. Let's try float.
+		g_sdepth=sdpt;
+		g_objpos=opos;
+		g_srcpos=spos;
+		return get_float();
+	} else {
+		// Value was recognized as an integer.
+		return 0;
+	}
+}
+
+char* get_stringFloatOrValue(){
+	char* err;
+	int opos,spos;
+	opos=g_objpos;
+	spos=g_srcpos;
+	// First try string, float, then integer.
+	err=get_string();
+	if (err) {
+		g_objpos=opos;
+		g_srcpos=spos;
+		return get_floatOrValue();
+	} else {
+		return 0;
+	}
+}
+