[v0.6.1]

- Restablert el exemplet de game.lua - Ficat Makefile per a tots, falta provar el de mac - Bàsicament, açò es per fer una release de binaris (fill de osiris).
Merge branch 'master' of https://gitea.sustancia.synology.me/JailDoctor/ascii
2023-09-07 10:46:38 +02:00 · 2023-09-07 10:35:50 +02:00 · 2023-07-10 22:01:39 +02:00 · 2023-01-08 09:10:02 +01:00 · 2023-01-08 09:09:41 +01:00 · 2023-01-08 09:09:27 +01:00
25 changed files with 2036 additions and 258 deletions
--- a/.gitignore
+++ b/.gitignore
@@ -3,3 +3,8 @@ ascii
 .vscode/*
 *.dll
 wiki/*
+scr_min.c
+tests.lua
+fake_editor.lua
+*.bin
+bin/*
--- a/27
+++ b/27
@@ -0,0 +1,27 @@
+executable = ascii
+source = *.cpp ./lua/*.c
+
+windows:
+	@echo off
+	g++ $(source) -Wall -Os -ffunction-sections -fdata-sections -Wl,--gc-sections -lmingw32 -lSDL2main -lSDL2 -mwindows -o "$(executable).exe"
+	strip -s -R .comment -R .gnu.version --strip-unneeded "$(executable).exe"
+
+windows_debug:
+	@echo off
+	g++ $(source) -D DEBUG -g -Wall -Os -lmingw32 -lSDL2main -lSDL2 -o "$(executable)_debug.exe"
+
+macos:
+	clang++ $(source) -Wall -Os -std=c++11 -ffunction-sections -fdata-sections -lSDL2 -o "$(executable)"
+
+macos_debug:
+	clang++ $(source) -D DEBUG -g -Wall -Os -std=c++11 -ffunction-sections -fdata-sections -lSDL2 -o "$(executable)_debug"
+
+macos_bundle:
+	clang++ $(source) -D MACOS_BUNDLE -Wall -Os -std=c++11 -framework SDL2 -F /Library/Frameworks -ffunction-sections -fdata-sections -o mini_bundle -rpath @executable_path/../Frameworks/ -target x86_64-apple-macos10.12
+
+linux:
+	g++ $(source) -Wall -Os -ffunction-sections -fdata-sections -Wl,--gc-sections -lSDL2 -o "$(executable)"
+	strip -s -R .comment -R .gnu.version --strip-unneeded "$(executable)"
+
+linux_debug:
+	g++ $(source) -D DEBUG -g -Wall -Os -ffunction-sections -fdata-sections -Wl,--gc-sections -lSDL2 -o "$(executable)_debug"
--- a/ascii.cpp
+++ b/ascii.cpp
@@ -5,6 +5,9 @@
 #include "rom.c"
 #include "play.h"

+#include <vector>
+#include <string>
+
 #define swap(a, b) {auto tmp=a;a=b;b=tmp;}

 #define AUDIO_NONE 0
@@ -18,6 +21,10 @@ uint8_t *char_screen = NULL;
 uint8_t *color_screen = NULL;
 uint8_t screen_width = 40;
 uint8_t screen_height = 30;
+int v_screen_w = 640;
+int v_screen_h = 480;
+uint8_t hborder = 40;
+uint8_t vborder = 40;
 uint8_t current_color = 0x1e;
 uint8_t current_border = 0;
 uint8_t current_mode = 1;
@@ -39,28 +46,31 @@ SDL_Texture *mini_bak = NULL;
 SDL_AudioDeviceID mini_audio_device;
 Uint32 *pixels;
 int pitch;
+Uint32 counter=0;

 uint32_t palette[16] = { 0x00000000, 0x000000AA, 0x0000AA00, 0x0000AAAA, 0x00AA0000, 0x00AA00AA, 0x00AA5500, 0x00AAAAAA,
                         0x00555555, 0x005555FF, 0x0055FF55, 0x0055FFFF, 0x00FF5555, 0x00FF55FF, 0x00FFFF55, 0x00FFFFFF };

-#define debug_line_size 80
-#define debug_num_lines 30
-#define debug_total_size 2400 //debug_line_size*debug_num_lines
-char debug_text[debug_total_size];
-int debug_cursor = 0;
-int debug_prompt = 0;
+int debug_prompt = -1;
 int debug_cursor_blink = 30;
+std::vector<std::string> cmd_list;
 bool should_reset = false;

-//Uint8 keymapping[6] = { SDL_SCANCODE_LEFT, SDL_SCANCODE_RIGHT, SDL_SCANCODE_UP, SDL_SCANCODE_DOWN, SDL_SCANCODE_Z, SDL_SCANCODE_X };
 const Uint8 *keys;
 Uint8 key_just_pressed = 0;

 int mouse_x, mouse_y, mouse_wheel;
 Uint32 mouse_buttons;

+const char* get_filename() {
+    return lua_filename;
+}
+
 void reinit() {
    if (mini_bak != NULL) SDL_DestroyTexture(mini_bak);
+    counter=0;
+    hborder = vborder = 40;
+    v_screen_w = 640; v_screen_h = 480;
    switch (current_mode) {
        case 0:
            screen_width = 80;
@@ -98,6 +108,22 @@ void reinit() {
            //SDL_RenderSetLogicalSize(mini_ren, 160, 120);
            mini_bak = SDL_CreateTexture(mini_ren, SDL_PIXELFORMAT_ARGB8888, SDL_TEXTUREACCESS_STREAMING, 160, 120);
            break;
+        case 3: 
+            hborder = 104;
+            vborder = 88;
+            v_screen_w = 512;
+            v_screen_h = 384;
+            screen_width = 32;
+            screen_height = 24;
+            current_color = 0x07;
+            current_border = 0;
+            cursor_x = 0;
+            cursor_y = 0;
+            char_screen = &mem[0];
+            color_screen = &mem[768];
+            //SDL_RenderSetLogicalSize(mini_ren, 640, 480);
+            mini_bak = SDL_CreateTexture(mini_ren, SDL_PIXELFORMAT_ARGB8888, SDL_TEXTUREACCESS_STREAMING, 256, 192);
+            break;
    }
 }

@@ -145,11 +171,13 @@ void romcpy() {
    SDL_memcpy(&mem[2560], rom, rom_size);
 }

+void debug_set_prompt();
+
 int main(int argc,char*argv[]) {
    SDL_strlcpy(lua_filename, "game.lua", 9);
    if (argc > 1) SDL_strlcpy(lua_filename, argv[1], 1023);

-    for (int i=0; i<debug_total_size;++i) debug_text[i] = 32;
+    //[TODEL]for (int i=0; i<debug_total_size;++i) debug_text[i] = 32;

    SDL_Init(49);
    mini_win = SDL_CreateWindow(window_title, SDL_WINDOWPOS_UNDEFINED, SDL_WINDOWPOS_UNDEFINED, 640+80, 480+80, SDL_WINDOW_SHOWN);
@@ -170,10 +198,12 @@ int main(int argc,char*argv[]) {
    lua_init(NULL);
    lua_call_init();

+    SDL_EventState(SDL_DROPFILE, SDL_ENABLE);
+
    while(!exit) {
        if (should_reset) {
            should_reset = false;
-            setmode(1);
+            mode(1);
            reinit();
            lua_init(lua_filename);
            lua_call_init();
@@ -182,20 +212,30 @@ int main(int argc,char*argv[]) {
        mouse_wheel = 0;
        while(SDL_PollEvent(&mini_eve)) {
            if (mini_eve.type == SDL_QUIT) { exit=true; break; }
+            if (mini_eve.type == SDL_DROPFILE) {
+                char* dropped_filedir = mini_eve.drop.file;
+                load(dropped_filedir);
+                //SDL_ShowSimpleMessageBox( SDL_MESSAGEBOX_INFORMATION, "File dropped on window", dropped_filedir, mini_win );
+                SDL_free(dropped_filedir);
+            }
            if (mini_eve.type == SDL_KEYDOWN) {
                if (mini_eve.key.keysym.scancode == SDL_SCANCODE_ESCAPE) {
                    if (lua_is_playing()) {
                        lua_pause();
                        //lua_quit();
-                        old_mode = current_mode;
-                        setmode(0);
+                        debug_set_prompt();
+                        //old_mode = current_mode;
+                        //setmode(0);
                    } else {
-                        setmode(old_mode);
+                        //setmode(old_mode);
                        lua_resume();
-                        //lua_init();
+                        //lua_quit();
+                        //reinit();
+                        //lua_init(lua_filename);
                        //lua_call_init();
                    }
                } else if (mini_eve.key.keysym.scancode == SDL_SCANCODE_F5) {
+                    execute_run();
                    lua_quit();
                    reinit();
                    lua_init(lua_filename);
@@ -209,17 +249,22 @@ int main(int argc,char*argv[]) {
            }
        }
        keys = SDL_GetKeyboardState(NULL);
-        mouse_buttons = SDL_GetMouseState(&mouse_x, &mouse_y);
-        mouse_x = (mouse_x-40) / (640/screen_width);
-        mouse_y = (mouse_y-40) / (480/screen_height);
+        int mx, my;
+        mouse_buttons = SDL_GetMouseState(&mx, &my);
+        if (mx>=hborder && my>=vborder && mx<(v_screen_w+hborder) && my<(v_screen_h+vborder)) {
+            mouse_x = (mx-hborder) / (v_screen_w/screen_width);
+            mouse_y = (my-vborder) / (v_screen_h/screen_height);
+        }
        
        if (lua_is_playing()) {
            lua_call_update();
+            if (!lua_is_playing()) debug_set_prompt();
        } else {
            debug_cursor_blink--;
            if (debug_cursor_blink == 0) {
-                debug_cursor_blink = 30;
-                debug_text[debug_cursor] = debug_text[debug_cursor]==32 ? 95 : 32;
+                debug_cursor_blink = 60;
+                const int pos = cursor_x+cursor_y*screen_width;
+                //char_screen[pos] = char_screen[pos]==32 ? 95 : 32;
            }
            loop();
        }
@@ -229,7 +274,10 @@ int main(int argc,char*argv[]) {
            case 0:
                for (int y=0; y<screen_height; ++y) {
                    for (int x=0; x<screen_width; ++x) {
-                        const uint8_t chr_color = current_color; //COLSCR(x,y);
+                        uint8_t chr_color = current_color; //COLSCR(x,y);
+                        if ((debug_cursor_blink<30)&&(cursor_x==x)&&(cursor_y==y)) {
+                            chr_color = (chr_color>>4)+((chr_color&0x0f)<<4);
+                        }
                        const uint32_t ink_color = palette[chr_color & 0x0f];
                        const uint32_t paper_color = palette[chr_color >> 4];
                        const uint8_t chr = CHRSCR(x,y);
@@ -248,6 +296,7 @@ int main(int argc,char*argv[]) {
                break;            
            case 1:
            case 2:
+            case 3:
                for (int y=0; y<screen_height; ++y) {
                    for (int x=0; x<screen_width; ++x) {
                        const uint8_t chr_color = COLSCR(x,y);
@@ -275,10 +324,11 @@ int main(int argc,char*argv[]) {
        SDL_SetRenderDrawColor(mini_ren, (palette[current_border] >> 16)&0xff, (palette[current_border] >> 8)&0xff, palette[current_border]&0xff, 0);
        //SDL_SetRenderDrawColor(mini_ren, 255, 0, 0, 0);
        SDL_RenderClear(mini_ren);
-        SDL_Rect rect = {40, 40, 640, 480};
+        SDL_Rect rect = {hborder, vborder, v_screen_w, v_screen_h};
        SDL_RenderCopy(mini_ren, mini_bak, NULL, &rect);
        //SDL_RenderCopy(mini_ren, mini_bak, NULL, NULL);
        SDL_RenderPresent(mini_ren);
+        counter++;
    }
    lua_quit();
    SDL_Quit();
@@ -288,12 +338,10 @@ int main(int argc,char*argv[]) {
 void cls(uint8_t value) {
    SDL_memset(char_screen, value, screen_width*screen_height);
    if (current_mode != 0) SDL_memset(color_screen, current_color, screen_width*screen_height);
-    if (!lua_is_playing()) {
-        SDL_memset(debug_text, 32, debug_total_size);
-        debug_cursor = 1;
-        debug_prompt = 0;
-        debug_text[debug_prompt] = '>';
-    }
+    cursor_x = cursor_y = 0;
+    //if (!lua_is_playing()) {
+    //    debug_set_prompt()
+    //}
 }

 void ink(uint8_t value) {
@@ -322,15 +370,22 @@ void print(const char *str, int x, int y) {
    if (x >= 0) cursor_x = min(x, screen_width-1);
    if (y >= 0) cursor_y = min(y, screen_height-1);
    int len = SDL_strlen(str);
-    if ((cursor_x+len) > screen_width) len -= ((cursor_x+len) - screen_width);
+    const int pos = cursor_x+cursor_y*screen_width;
+    if (pos+len > screen_width*screen_height) len -= ((pos+len) - screen_width*screen_height);
    //int offset = x+y*screen_width;
    for (int i=0; i < len; ++i) {
-        CHRSCR(cursor_x+i, cursor_y) = str[i];
-        if (current_mode != 0) COLSCR(cursor_x+i, cursor_y) = current_color;
+        char_screen[pos+i] = str[i];
+        if (current_mode != 0) color_screen[pos+i] = current_color;
        //char_screen[offset+i] = str[i];
        //if (current_mode != 0) color_screen[offset+i] = current_color;
    }
-    cursor_x += len;
+    cursor_x = (pos+len)%screen_width;
+    cursor_y = (pos+len)/screen_width;
+}
+
+void crlf() {
+    cursor_x=0;
+    cursor_y = min(cursor_y+1, screen_height-1);
 }

 bool btn(uint8_t i) {
@@ -423,46 +478,66 @@ int rnd(int x) {
    srand(x);
 }*/

-char tostr_tmp[256];
+char str_tmp[1024];
 const char* tostr(float val) {
-    return SDL_itoa(val, tostr_tmp, 10);
-}
-
-void debug_set_prompt() {
-    debug_prompt = debug_cursor++;
-    debug_text[debug_prompt] = '>';
+    return SDL_itoa(val, str_tmp, 10);
 }

 void debug_one_line_up() {
-    for (int i=0; i<debug_total_size-debug_line_size;++i) debug_text[i] = debug_text[i+debug_line_size];
-    for (int i=debug_total_size-debug_line_size; i<debug_total_size;++i) debug_text[i] = 32;
-    debug_cursor = debug_total_size-debug_line_size;
-    debug_set_prompt();
+    int total = screen_width*screen_height-screen_width;
+    for (int i=0; i<total;++i) char_screen[i] = char_screen[i+screen_width];
+    for (int i=total; i<screen_width*screen_height;++i) char_screen[i] = 32;
+    cursor_y = screen_height-1;
+    //debug_set_prompt();
+}
+
+void debug_set_prompt() {
+    if (debug_prompt == cursor_x+cursor_y*screen_width) return;
+    if (cursor_x>0) { cursor_x=0;cursor_y++;if(cursor_y>=screen_height) debug_one_line_up(); }
+    char_screen[cursor_x+cursor_y*screen_width] = '>';
+    cursor_x++;
+    debug_prompt = cursor_x+cursor_y*screen_width;
 }

 void debugchr(const uint8_t chr) {
+    int pos = cursor_x+cursor_y*screen_width;
    if (chr == 8) {
-        if (debug_cursor>(debug_prompt+1)) {
-            debug_text[debug_cursor--] = 32;
-            debug_text[debug_cursor] = 32;
+        if (cursor_x>1) {
+            char_screen[pos++] = 32;
+            char_screen[pos] = 32;
+            cursor_x--;
+        } else {
+            play("c");
        }
    } else {
-        debug_text[debug_cursor++] = chr;
-        if (debug_cursor >= debug_total_size) debug_one_line_up();
+        char_screen[pos] = chr;
+        cursor_x++;
+        if (cursor_x >= screen_width) {
+            cursor_x=0; cursor_y++;
+            if (cursor_y >= screen_height) debug_one_line_up();
+        }
    }
 }

-void debug(const char *str) {
+void debug(const char *str, const bool newline) {
    const int len = SDL_strlen(str);
+    int cursor = cursor_x+cursor_y*screen_width;
    for (int i=0; i<len;++i) {
-        debug_text[debug_cursor++] = str[i];
-        if (debug_cursor >= debug_total_size) debug_one_line_up();
+        char_screen[cursor++] = str[i];
+        if (cursor >= screen_width*screen_height) debug_one_line_up();
    }
-    debug_cursor = (int(debug_cursor/debug_line_size)+1)*debug_line_size;
-    if (debug_cursor >= debug_total_size) debug_one_line_up();
-    debug_set_prompt();
+    if (newline) {
+        cursor_x = 0;
+        cursor_y = (cursor/screen_width)+1;
+        if (cursor_y >= screen_height) debug_one_line_up();
+    } else {
+        cursor_x = cursor%screen_width;
+        cursor_y = cursor/screen_width;
+    }
+    //debug_set_prompt();
 }

+/*[TODEL]
 void pdebug() {
    int i=0;
    for (int y=0; y<debug_num_lines;++y) {
@@ -472,10 +547,54 @@ void pdebug() {
        }
    }
 }
-
+*/
+int cmd_index = 0;
 void debug_get_cmd() {
-    debug_text[debug_cursor] = 0;
-    lua_call_cmd(&debug_text[debug_prompt+1]);
+    char_screen[cursor_x+cursor_y*screen_width] = 0;
+    //char *tmp = (char*)&char_screen[1+cursor_y*screen_width];
+    char *tmp = (char*)&char_screen[debug_prompt];
+    cmd_list.push_back(tmp);
+    char_screen[cursor_x+cursor_y*screen_width] = 32;
+    cursor_x=0;cursor_y++;if(cursor_y>=screen_height)debug_one_line_up();
+    cmd_index=0;
+    const char* cmd = cmd_list[cmd_list.size()-1].c_str();
+
+    if (cmd[0]=='r' && cmd[1]=='u' && cmd[2]=='n' && cmd[3]=='\0') {
+        lua_quit();
+        reinit();
+        lua_init(lua_filename);
+        lua_call_init();
+    } else if (cmd[0]=='c' && cmd[1]=='o' && cmd[2]=='n' && cmd[3]=='t' && cmd[4]=='\0') {
+        lua_resume();
+    } else {
+        lua_call_cmd(cmd);
+        debug_set_prompt();
+    }
+}
+
+void get_cmd_by_index() {
+    if (cmd_list.size() == 0) return;
+    const char* cmd = cmd_list[cmd_list.size()-cmd_index-1].c_str();
+    int pos = cursor_x+cursor_y*screen_width;
+    for (int i=debug_prompt;i<=pos;++i) char_screen[i] = 32;
+    SDL_memcpy(&char_screen[debug_prompt], cmd, strlen(cmd));
+    pos = debug_prompt+strlen(cmd);
+    cursor_x = pos%screen_width;
+    cursor_y = pos/screen_width;
+}
+void next_cmd() {
+    if (cmd_index < cmd_list.size()-1) cmd_index++; else play("c");
+    get_cmd_by_index();
+}
+
+void prev_cmd() {
+    if (cmd_index > 0) cmd_index--; else play("c");
+    get_cmd_by_index();
+}
+
+void debug_set_cursor(uint8_t x, uint8_t y) {
+    cursor_x = x;
+    cursor_y = y;
 }

 uint8_t ascii(const char *str, uint8_t index) {
@@ -489,6 +608,12 @@ const char* chr(uint8_t ascii) {
    return chr_trans;
 }

+const char* substr(const char* str, uint8_t start, uint8_t length) {
+    memcpy(str_tmp, &str[start], length);
+    str_tmp[length] = '\0';
+    return str_tmp;
+}
+
 void setchar(uint8_t index, uint8_t b0, uint8_t b1, uint8_t b2, uint8_t b3, uint8_t b4, uint8_t b5, uint8_t b6, uint8_t b7) {
    mem[MEM_CHAR_OFFSET+index*8] = b0;
    mem[MEM_CHAR_OFFSET+index*8+1] = b1;
@@ -536,9 +661,10 @@ void play(const char* str) {
    audio_state = AUDIO_PLAY;
 }

-void setmode(const uint8_t mode) {
-    current_mode = mode;
+void mode(const uint8_t val) {
+    current_mode = val;
    reinit();
+    cls();
 }

 void load(const char* str) {
@@ -557,3 +683,29 @@ void filein(const char* str, uint16_t addr, uint16_t size) {
    fread(&mem[addr], size, 1, f);
    fclose(f);
 }
+
+void toclipboard(const char* str) {
+    SDL_SetClipboardText(str);
+}
+
+const char* fromclipboard() {
+    char* text = SDL_GetClipboardText();
+    int len = strlen(text);
+    if (len > 1023) {
+        len = 27;
+        SDL_memcpy(str_tmp, "ERROR! CLIPBOARD TOO LARGE", len);
+    } else {
+        SDL_memcpy(str_tmp, text, len);
+    }
+    str_tmp[len] = '\0';
+    SDL_free((void*)text);
+
+    return str_tmp;
+}
+
+uint32_t cnt() {
+    return counter;
+}
+void rst() {
+    counter = 0;
+}
--- a/ascii.h
+++ b/ascii.h
@@ -110,7 +110,27 @@
 #define KEY_RALT 230
 #define KEY_RGUI 231

+#define COLOR_BLACK 0
+#define COLOR_BLUE 1
+#define COLOR_GREEN 2
+#define COLOR_CYAN 3
+#define COLOR_RED 4
+#define COLOR_MAGENTA 5
+#define COLOR_BROWN 6
+#define COLOR_LIGHT_GRAY 7
+#define COLOR_DARK_GRAY 8
+#define COLOR_LIGHT_BLUE 9
+#define COLOR_LIGHT_GREEN 10
+#define COLOR_LIGHT_CYAN 11
+#define COLOR_LIGHT_RED 12
+#define COLOR_LIGHT_MAGENTA 13
+#define COLOR_YELLOW 14
+#define COLOR_WHITE 15
+
 void loop();
+void execute_run();
+
+const char* get_filename();

 void cls(uint8_t value=32);
 void ink(uint8_t value);                            // global::ink
@@ -120,6 +140,7 @@ void color(uint8_t ink, uint8_t paper, int8_t border=-1);

 void locate(uint8_t x, uint8_t y);                  // global::cursorx, global::cursory
 void print(const char *str, int x = -1, int y = -1);
+void crlf();

 bool btn(uint8_t i);
 bool btnp(uint8_t i);
@@ -157,12 +178,16 @@ int rnd(int x);
 const char* tostr(float val);

 void debugchr(const uint8_t chr);
-void debug(const char *str);
-void pdebug();
+void debug(const char *str, const bool newline=true);
+//void pdebug();
 void debug_get_cmd();
+void next_cmd();
+void prev_cmd();
+void debug_set_cursor(uint8_t x, uint8_t y);

 uint8_t ascii(const char *str, uint8_t index);
 const char* chr(uint8_t ascii);
+const char* substr(const char* str, uint8_t start, uint8_t length);

 void setchar(uint8_t index, uint8_t b0, uint8_t b1, uint8_t b2, uint8_t b3, uint8_t b4, uint8_t b5, uint8_t b6, uint8_t b7);
 uint8_t peek(uint16_t addr);
@@ -173,8 +198,14 @@ void sound(float freq, uint32_t len);
 void nosound();
 void play(const char* str);

-void setmode(const uint8_t mode);
+void mode(const uint8_t val);
 void load(const char* str);

 void fileout(const char* str, uint16_t addr, uint16_t size);
 void filein(const char* str, uint16_t addr, uint16_t size);
+
+void toclipboard(const char* str);
+const char* fromclipboard();
+
+uint32_t cnt();
+void rst();
--- a/chuleta_font.png
+++ b/chuleta_font.png
--- a/demos/breakout.lua
+++ b/demos/breakout.lua
@@ -1,5 +1,5 @@
 function init()
-    setmode(1)
+    mode(1)
    reset()
 end

--- a/demos/defender.lua
+++ b/demos/defender.lua
@@ -0,0 +1,38 @@
+function init()
+  mode(1)
+
+  mountains = {}
+  local val = 2
+  for i=0,99 do
+    val = mid(1,val+rnd(3)-1,4)
+    mountains[i] = val
+  end 
+
+  ox=0
+end
+
+function update()
+  cls()
+  draw_mountains()
+
+  if btn(KEY_RIGHT) then ox=(ox+1)%100 end
+  if btn(KEY_LEFT) then ox=(ox-1)%100 end
+end
+
+function draw_mountains()
+  color(COLOR_RED,COLOR_BLACK)
+  for i=0,39 do
+    local x=(ox+i)%100
+    for j=29-mountains[x],29 do
+      local chr="\143"
+      if j==29-mountains[x] then
+        if mountains[(x+1)%100] > mountains[x] then
+          print("\214",i,j-1) --chr="\214"
+        elseif mountains[(x+1)%100] < mountains[x] then
+          chr="\215"
+        end
+      end
+      print(chr,i,j)
+    end
+  end  
+end
--- a/demos/lorenrunner.lua
+++ b/demos/lorenrunner.lua
@@ -0,0 +1,114 @@
+score=0
+lives=5
+level=1
+tresors=0
+player = {x=0,y=0,oldtile=32,falling=false}
+malos = {
+    {x=0,y=0},
+    {x=0,y=0},
+    {x=0,y=0}
+}
+eixida={x=0,y=0}
+
+function init()
+    mode(2)
+    setchar(33,223,223,223,0,253,253,253,0)
+    setchar(34,255,255,255,255,255,255,255,0)
+    setchar(35,195,255,195,195,195,255,195,195)
+    setchar(36,195,243,195,195,195,207,195,195)
+    setchar(37,0,255,0,0,0,0,0,0)
+    setchar(38,0,0,0,126,66,66,126,0)
+
+    filein("level1.bin",0,600)
+
+    tresors=0
+    player.oldtile=32
+    local m=1
+    for i=0,299 do
+        if peek(i) == 248 then
+            poke(i,32)
+            player.x=i%20
+            player.y=flr(i/20)
+        elseif peek(i) == 249 then
+            poke(i,32)
+            poke(300+i, 0x0f)
+            malos[m].x=i%20 
+            malos[m].y=flr(i/20)
+        elseif peek(i) == 36 then
+            poke(i,32)
+            poke(300+i, 0x0f)
+            eixida.x=i%20 
+            eixida.y=flr(i/20)
+        elseif peek(i) == 38 then
+            tresors=tresors+1
+        end
+    end
+
+    ink(COLOR_YELLOW) print("000000",7,14)
+
+    -- anem a contar els tresors que hi ha, per a saber quan es deu activar l'escala de eixida
+end
+
+function update()
+    if not player.falling then
+        if btnp(KEY_LEFT) and player.x>0 and peek(player.x-1+player.y*20)~=33 then
+            poke(player.x+player.y*20, player.oldtile)
+            player.x=player.x-1
+            player.oldtile = peek(player.x+player.y*20)
+            check_tresors()
+        elseif btnp(KEY_RIGHT) and player.x<19 and peek(player.x+1+player.y*20)~=33 then
+            poke(player.x+player.y*20, player.oldtile)
+            player.x=player.x+1
+            player.oldtile = peek(player.x+player.y*20)
+            check_tresors()
+        elseif btnp(KEY_UP) and player.oldtile==35 then
+            if player.y>0 then 
+                poke(player.x+player.y*20, player.oldtile)
+                player.y=player.y-1
+                player.oldtile = peek(player.x+player.y*20)
+            else
+                -- endgame. Ja vorem, ara que faça el init de nou i au
+                init()
+            end
+        elseif btnp(KEY_DOWN) and (peek(player.x+(player.y+1)*20) == 35 or player.oldtile==37) then
+            poke(player.x+player.y*20, player.oldtile)
+            player.y=player.y+1
+            player.oldtile = peek(player.x+player.y*20)
+        end
+    end
+
+    if cnt()%5 == 0 then
+        if player.oldtile~=37 and (peek(player.x+(player.y+1)*20)==32 or peek(player.x+(player.y+1)*20)==38 or peek(player.x+(player.y+1)*20)==37) then
+            player.falling = true
+            poke(player.x+player.y*20, player.oldtile)
+            player.y=player.y+1
+            player.oldtile = peek(player.x+player.y*20)
+            check_tresors()
+        else
+            player.falling=false
+        end
+    end
+    poke(player.x+player.y*20, 248)
+
+end
+
+function check_tresors()
+    if player.oldtile==38 then
+        player.oldtile=32
+        update_score(100)
+        poke(300+player.x+player.y*20, 0x0f)
+        tresors=tresors-1
+        if tresors==0 then
+            for i=eixida.y,0,-1 do
+                poke(eixida.x+i*20,35)
+            end
+        end
+    end
+end
+
+function update_score(points)
+    score=score+points
+    local str= ""..score
+    while #str < 6 do str = "0"..str end
+    ink(COLOR_YELLOW) print(str,7,14)
+end
--- a/demos/matrix.lua
+++ b/demos/matrix.lua
@@ -0,0 +1,53 @@
+--[[
+===============================
+    MATRIX CODE DEMO
+    by JailDoctor
+===============================
+--]]
+
+function init()
+    mode(1)  -- fiquem el mode multicolor de 40x30 caracters
+    color(0,0)  -- tinta i fondo a negre
+    cls() -- borrem pantalla
+
+    -- La tabla 'col' conté, per a cada columna de la pantalla: la coordenada 'y' actual, la llargaria 's' i la espera 'w'
+    col = {}
+    for i=0,39 do
+        col[i] = {
+            y=rnd(30),      -- la coordenada y valdrà entre 0 i 29, ningún misteri...
+            s=rnd(5)+2,     -- la 's' valdrà entre 2 i 6. S'usarà tant per a definir la llargaria de la estela com per a especificar la velocitat
+            w=1             -- 'w' es un contador de espera: Fiquem 'w' a un valor, i a cada cicle se resta 1. Quan arribe a 0 updatem la columna i se reseteja 'w' al valor anterior.
+        }
+    end
+
+    -- Omplim la tabla 'ma' amb els caracters que volem usar
+    ma = {}
+    for i=176,191 do ma[1+#ma] = i end
+    for i=97,122 do ma[1+#ma] = i end
+    
+    -- Omplim la pantalla de caracters aleatoris (dins de la selecció que havem deixa a la tabla 'ma').
+    -- No es veuen perque havem ficat el color de tinta i fondo a negre.
+    for i=0,1199 do poke(i,ma[rnd(#ma)+1]) end
+end
+
+function update()
+    for i=0,39 do
+        col[i].w=col[i].w-1
+        if col[i].w == 0 then
+            col[i].w = col[i].s
+            col[i].y=col[i].y+1
+            if (col[i].y >= 30) then col[i].y = 0 end
+            local pos = 1200+i+col[i].y*40
+            poke(pos,15) pos=dec(pos)
+            poke(pos,14) pos=dec(pos)
+            for i=0,col[i].s do poke(pos,10) pos=dec(pos) end
+            for i=0,col[i].s do poke(pos,2) pos=dec(pos) end
+            for i=0,max(1,col[i].s-3) do poke(pos,8) pos=dec(pos) end
+            poke(pos,0)
+        end
+    end
+end
+
+-- Aquesta funció resta 40 a la adreça (per a pujar una linea). Si detecta que se'n va fora per dalt (menys de 1200), suma 1200 per a que aparega per baix
+
+function dec(value) return value-40 < 1200 and value+1160 or value-40 end
--- a/demos/old_sokoban.lua
+++ b/demos/old_sokoban.lua
@@ -0,0 +1,161 @@
+FLOOR = 0
+GOAL = 1
+BOX = 2
+PLAYER = 4
+WALL = 7
+
+function init()
+    mode(2)
+    level=1
+    player={}
+    menu.init()
+end
+
+-- ====================================================================================================
+-- MENU (game state)
+-- ====================================================================================================
+blink=0
+
+menu={
+    init = function()
+        update=menu.update
+    end,
+
+    update = function()
+        color(15,0) cls()
+        ink(1)  print("\x20\x20\x20\x87\x81\x87\x85\x85\x85\x87\x85\x87\x85\x87\x85\x87\x84\x20\x20\x20",0,2)
+        ink(9)  print("\x20\x20\x20\x83\x85\x85\x85\x8D\x81\x85\x85\x87\x84\x8D\x85\x85\x85\x20\x20\x20",0,3)
+        ink(11) print("\x20\x20\x20\x83\x81\x83\x81\x81\x81\x83\x81\x83\x81\x81\x81\x81\x81\x20\x20\x20",0,4)
+        ink(15*flr((blink%60)/30)) print("PRESS SPACE TO PLAY",1,9)
+        blink=blink+1
+
+        if btnp(KEY_SPACE) then
+            level=1
+            game.init()
+        end
+    end
+}
+
+-- ====================================================================================================
+-- GAME (game state)
+-- ====================================================================================================
+game={
+    init = function()
+        update=game.update
+        level.load_from_string("####|# .#|#  ###|#*@  #|#  $ #|#  ###|####")
+    end,
+    
+    update = function()
+        border(0)
+        color(1,0)
+        cls()
+        level.draw()
+    
+        if btnp(KEY_UP) then level.try_move(0,-1)
+        elseif btnp(KEY_DOWN) then level.try_move(0,1)
+        elseif btnp(KEY_LEFT) then level.try_move(-1,0)
+        elseif btnp(KEY_RIGHT) then level.try_move(1,0)
+        end
+    end
+}
+
+-- ====================================================================================================
+-- LOADING (game state)
+-- ====================================================================================================
+loading = {
+    init = function()
+        border(15)
+        update=loading.update
+        wait=120
+    end
+    
+    function inbetween_update()
+        color(15,0)
+        cls()
+        print("LEVEL "..level,6,6)
+        print("GOOD JOB!",4,8)
+        wait=wait-1
+        if wait==0 then
+            level=level+1
+            game_init()
+        end
+    end
+}
+
+function level_load_from_string(str)
+    map={}
+    local pos=0
+    local y,x=1,1
+    local maxx=0
+    map[y] = {}
+    while pos<#str do
+        local chr = ascii(str,pos)
+        if chr == 35 then map[y][x] = WALL end
+        if chr == 64 then player.x,player.y=x,y map[y][x] = FLOOR end
+        if chr == 43 then player.x,player.y=x,y map[y][x] = GOAL end
+        if chr == 36 then map[y][x] = BOX end
+        if chr == 42 then map[y][x] = GOAL+BOX end
+        if chr == 46 then map[y][x] = GOAL end
+        if chr == 32 then map[y][x] = FLOOR end
+        if chr == 124 then
+            y=y+1
+            map[y] = {}
+            if maxx < x then maxx=x end
+            x=0
+        end
+        pos=pos+1
+        x=x+1
+    end
+    ox = flr((20-maxx)/2)
+    oy = flr((15-y)/2)
+end
+
+function level_draw()
+    for y=1,#map do
+        for x=1,#map[y] do
+            if map[y][x] == WALL then color(4,15) print("\127",ox+x-1,oy+y-1)
+            elseif map[y][x] == BOX then color(0,6) print("\016",ox+x-1,oy+y-1)
+            elseif map[y][x] == BOX+GOAL then color(0,4) print("\016",ox+x-1,oy+y-1)
+            elseif map[y][x] == GOAL then color(4,0) print("\144",ox+x-1,oy+y-1)
+            end
+        end
+    end
+    color(15,0) print("\248",ox+player.x-1,oy+player.y-1)
+end
+
+function try_move(x,y)
+    if is_empty(x,y) then
+        move_player(x,y)
+    elseif is_box(x,y) and is_empty(x*2,y*2) then
+        move_box(x,y)
+    end
+end
+
+function is_empty(x,y)
+    return map[player.y+y][player.x+x] < 2
+end
+
+function is_box(x,y)
+    return map[player.y+y][player.x+x] < 4
+end
+
+function move_player(x,y)
+    player.x=player.x+x
+    player.y=player.y+y 
+end
+
+function move_box(x,y)
+    map[player.y+y*2][player.x+x*2] = map[player.y+y*2][player.x+x*2] + BOX
+    map[player.y+y][player.x+x] = map[player.y+y][player.x+x] - BOX
+    move_player(x,y)
+    check_finished()
+end
+
+function check_finished()
+    for y=1,#map do
+        for x=1,#map[y] do
+            if map[y][x] == GOAL then return end
+        end
+    end
+    inbetween_init()
+end
--- a/demos/pong.lua
+++ b/demos/pong.lua
@@ -0,0 +1,140 @@
+function init()
+    mode(1)
+    setchar(94, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
+    piano = { "_____", "\143\143\143\154\154", "     ", "\143\143\143\154\154", "^^^^^", "_____",
+        "\143\143\143\154\154", "     ", "\143\143\143\154\154", "     ", "\143\143\143\154\154", "^^^^^" }
+    notes = {"C ", "C#", "D ", "D#", "E ", "F ", "F#", "G ", "G#", "A ", "A#", "B "}
+    pnotes = {"c", "c#", "d", "d#", "e", "f", "f#", "g", "g#", "a", "a#", "b"}
+
+    piano_pos=18
+    mousewait=0
+    compas = 0
+    compasos = {}
+    for i=0,31 do compasos[i] = 108 end
+    compasos[0] = 49
+    compasos[1] = 49
+    compasos[2] = 49
+    compasos[7] = 50
+    compasos[8] = 50
+    compasos[9] = 50
+    compasos[10] = 50
+
+    old_mouse_x,old_mouse_y = 0,0
+end
+
+function update()
+    color(COLOR_WHITE, COLOR_BLACK)
+    cls()
+    for i=0,11 do
+        local k = 11-i
+        local pos = ((piano_pos+i)%12)+1
+        local oct = flr((piano_pos+i)/12)+1
+        color(COLOR_WHITE, COLOR_BLACK)
+        print(notes[pos], 1, 10+k)
+        color(COLOR_BLACK, COLOR_WHITE)
+        print(piano[pos], 3, 10+k)
+        color(COLOR_BLACK, COLOR_LIGHT_GRAY+flr(oct%2))
+        print("_______\003_______\003_______\003_______\003", 8, 10+k)
+        color(COLOR_BLACK, oct)
+        if pos==6 then
+            print(tostr(oct), 0, 10+k)
+        else
+            print(" ", 0, 10+k)
+        end
+    end
+
+    piano_pos = mid(0, piano_pos+mousewheel(), 96)
+
+    if mousewait>0 then mousewait=mousewait-1 end
+    if mousebutton(1) and mousewait==0 then
+        if mousex()<8 and mousey()>=10 and mousey()<=21 then
+            local note = piano_pos+(11-(mousey()-10))
+            play("l4o"..tostr(note/12)..pnotes[(note%12)+1])
+            mousewait=10
+        end
+    end
+
+    for i=0,31 do
+        local n = compasos[i]
+        if n>=piano_pos and n<=piano_pos+11 then
+            if i>0 and n~=compasos[i-1] then
+                local oct = flr(n/12)+1
+                color(COLOR_BLACK, COLOR_LIGHT_GRAY+flr(oct%2))
+                print("\003",7+i,10+11-(n-piano_pos))
+            end
+            color(COLOR_BLACK,COLOR_LIGHT_RED)
+            if i==31 or compasos[i+1]~=n then
+                print("\003",8+i,10+11-(n-piano_pos))
+            else
+                print("_",8+i,10+11-(n-piano_pos))
+            end
+        end
+    end
+    
+    if mousex()>=8 and  mousey()>=10 and mousey()<=21 then
+        if mousebutton(1) then
+            compasos[mousex()-8] = piano_pos+11-(mousey()-10)
+            if old_mouse_x ~= mousex() or old_mouse_y ~= mousey() then
+                local note = piano_pos+11-(mousey()-10)
+                play("l4o"..tostr(note/12)..pnotes[(note%12)+1])
+            end    
+            old_mouse_x,old_mouse_y = mousex(),mousey()
+        else
+            old_mouse_x,old_mouse_y = 0,0
+            if mousebutton(3) then
+                compasos[mousex()-8] = 108
+            end
+        end
+    end
+
+    if btnp(KEY_RETURN) then play_song() end
+
+    color(15,0)print("\143",0,0)
+    color(14,0)print("\143",1,0)
+    color(12,0)print("\143",2,0)
+    color(6,0)print("\143",3,0)
+    color(4,0)print("\143",4,0)
+    color(5,4)print("\143",5,0)
+    color(9,0)print("\143",6,0)
+    color(1,0)print("\143",7,0)
+    color(0,0)print("\143",8,0)
+
+end
+
+function play_song()
+    local note_size = {1,2,3,4,6,8,12,16,24,32}
+    local note_names = {"c","c#","d", "d#","e","f","f#","g","g#","a","a#","b"}
+    local song = ""
+
+    local current_note = 255
+    local current_octave = 4
+    local p=0
+    while p<32 do
+        current_note = compasos[p]
+        local d=0
+        while current_note == compasos[p] do d=d+1 p=p+1 end
+        local o = flr(current_note/12)
+        if o<9 and current_octave~=o then
+            current_octave=o
+            song=song.."o"..tostr(o)
+        end
+        local n = current_note%12
+        local note = note_names[n+1]
+        while d>0 do
+            local i=1
+            while d>note_size[i] do i=i+1 end
+            if note_size[i]>d then i=i-1 end
+            d=d-note_size[i]
+            if current_length~=i-1 then
+                current_length = i-1
+                song=song.."l"..tostr(i-1)
+            end
+            if o<9 then
+                song=song..note
+            else
+                song=song.."r"
+            end
+        end
+    end
+    play(song)
+end
--- a/demos/sokoban.lua
+++ b/demos/sokoban.lua
@@ -0,0 +1,184 @@
+FLOOR = 0
+GOAL = 1
+BOX = 2
+PLAYER = 4
+WALL = 7
+
+function init()
+    mode(2)
+    setchar(127,0xee,0xee,0xee,0x00,0xbb,0xbb,0xbb,0x00)
+    setchar(16,0xff,0xc3,0xa5,0x99,0x99,0xa5,0xc3,0xff)
+    menu.init()
+end
+
+-- ====================================================================================================
+-- MENU (game state)
+-- ====================================================================================================
+menu={
+    init = function()
+        rst()
+        update=menu.update
+    end,
+
+    update = function()
+        color(15,0) cls()
+        ink(1)  print("\x20\x20\x20\x87\x81\x87\x85\x85\x85\x87\x85\x87\x85\x87\x85\x87\x84\x20\x20\x20",0,2)
+        ink(9)  print("\x20\x20\x20\x83\x85\x85\x85\x8D\x81\x85\x85\x87\x84\x8D\x85\x85\x85\x20\x20\x20",0,3)
+        ink(11) print("\x20\x20\x20\x83\x81\x83\x81\x81\x81\x83\x81\x83\x81\x81\x81\x81\x81\x20\x20\x20",0,4)
+        ink(15*flr((cnt()%60)/30)) print("PRESS SPACE TO PLAY",1,9)
+
+        if btnp(KEY_SPACE) then
+            level.start()
+            game.init()
+        end
+    end
+}
+
+-- ====================================================================================================
+-- GAME (game state)
+-- ====================================================================================================
+game={
+    init = function()
+        update=game.update
+        level.load()
+    end,
+    
+    update = function()
+        border(0)
+        color(1,0)
+        cls()
+        level.draw()
+    
+        if btnp(KEY_UP) then level.try_move(0,-1)
+        elseif btnp(KEY_DOWN) then level.try_move(0,1)
+        elseif btnp(KEY_LEFT) then level.try_move(-1,0)
+        elseif btnp(KEY_RIGHT) then level.try_move(1,0)
+        end
+    end
+}
+
+-- ====================================================================================================
+-- LOADING (game state)
+-- ====================================================================================================
+loading = {
+    init = function()
+        border(15)
+        update=loading.update
+        rst()
+    end,
+    
+    update = function()
+        color(15,0)
+        cls()
+        print("LEVEL "..num_level,6,5)
+        print("GOOD JOB!",5,8)
+        if (cnt()%60)<15 then print("\248",9,10)
+        elseif (cnt()%60)<30 then print("\250",9,10)
+        elseif (cnt()%60)<45 then print("\248",9,10)
+        else print("\251",9,10) end
+        if cnt()==120 then
+            level.next()
+            game.init()
+        end
+    end
+}
+
+
+-- ====================================================================================================
+-- LEVEL
+-- ====================================================================================================
+levels= {
+    "####|# .#|#  ###|#*@  #|#  $ #|#  ###|####",
+    "######|#    #|# #@ #|# $* #|# .* #|#    #|######",
+    "  ####|###  ####|#     $ #|# #  #$ #|# . .#@ #|#########",
+    "########|#      #|# .**$@#|#      #|#####  #|    ####",
+    " #######| #     #| # .$. #|## $@$ #|#  .$. #|#      #|########",
+    "###### #####|#    ###   #|# $$     #@#|# $ #...   #|#   ########|#####",
+    "#######|# .$. #|# $.$ #|# .$. #|# $.$ #|#  @  #|#######",
+    "#####|#.  ##|#@$$ #|##   #| ##  #|  ##.#|   ###"
+}
+
+level = {
+    start = function() num_level=1 end,
+    next = function() num_level=num_level+1 end,
+
+    load = function()
+        local str = levels[num_level]
+        player={}
+        map={}
+        local pos=0
+        local y,x=1,1
+        local maxx=0
+        map[y] = {}
+        while pos<#str do
+            local chr = ascii(str,pos)
+            if chr == 35 then map[y][x] = WALL end
+            if chr == 64 then player.x,player.y=x,y map[y][x] = FLOOR end
+            if chr == 43 then player.x,player.y=x,y map[y][x] = GOAL end
+            if chr == 36 then map[y][x] = BOX end
+            if chr == 42 then map[y][x] = GOAL+BOX end
+            if chr == 46 then map[y][x] = GOAL end
+            if chr == 32 then map[y][x] = FLOOR end
+            if chr == 124 then
+                y=y+1
+                map[y] = {}
+                if maxx < x then maxx=x end
+                x=0
+            end
+            pos=pos+1
+            x=x+1
+        end
+        ox = flr((20-maxx)/2)
+        oy = flr((15-y)/2)
+    end,
+
+    draw = function()
+        for y=1,#map do
+            for x=1,#map[y] do
+                if map[y][x] == WALL then color(4,0) print("\127",ox+x-1,oy+y-1)
+                elseif map[y][x] == BOX then color(8,7) print("\016",ox+x-1,oy+y-1)
+                elseif map[y][x] == BOX+GOAL then color(3,11) print("\016",ox+x-1,oy+y-1)
+                elseif map[y][x] == GOAL then color(3,0) print("\144",ox+x-1,oy+y-1)
+                end
+            end
+        end
+        color(15,0) print("\248",ox+player.x-1,oy+player.y-1)
+    end,
+
+    try_move = function(x,y)
+        if level.is_empty(x,y) then
+            level.move_player(x,y)
+        elseif level.is_box(x,y) and level.is_empty(x*2,y*2) then
+            level.move_box(x,y)
+        end
+    end,
+
+    is_empty = function(x,y)
+        return map[player.y+y][player.x+x] < 2
+    end,
+    
+    is_box = function(x,y)
+        return map[player.y+y][player.x+x] < 4
+    end,
+    
+    move_player = function(x,y)
+        player.x=player.x+x
+        player.y=player.y+y 
+    end,
+    
+    move_box = function(x,y)
+        map[player.y+y*2][player.x+x*2] = map[player.y+y*2][player.x+x*2] + BOX
+        map[player.y+y][player.x+x] = map[player.y+y][player.x+x] - BOX
+        level.move_player(x,y)
+        level.check_finished()
+    end,
+    
+    check_finished = function()
+        for y=1,#map do
+            for x=1,#map[y] do
+                if map[y][x] == GOAL then return end
+            end
+        end
+        loading.init()
+    end
+}
--- a/demos/tetris.lua
+++ b/demos/tetris.lua
@@ -0,0 +1,175 @@
+--struct Tetromino { Uint16 figure; Uint8 orig, prev, next; };
+tetromino = { {figure=0x0660, orig=0, prev=0, next=0}, {figure=0x4444, orig=1, prev=2, next=2}, {figure=0x0F00, orig=1, prev=1, next=1}, {figure=0x0C60, orig=2, prev=4, next=4}, {figure=0x2640, orig=2, prev=3, next=3}, {figure=0x06C0, orig=3, prev=6, next=6}, {figure=0x4620, orig=3, prev=5, next=5}, {figure=0x4460, orig=4, prev=8, next=10}, {figure=0x2E00, orig=4, prev=9, next=7}, {figure=0xC440, orig=4, prev=10, next=8}, {figure=0x0E80, orig=4, prev=7, next=9}, {figure=0x44C0, orig=5, prev=12, next=14}, {figure=0x0E20, orig=5, prev=13, next=11},  {figure=0x6440, orig=5, prev=14, next=12}, {figure=0x8E00, orig=5, prev=11, next=13}, {figure=0x4640, orig=6, prev=16, next=18}, {figure=0x4E00, orig=6, prev=17, next=15}, {figure=0x4C40, orig=6, prev=18, next=16}, {figure=0x0E40, orig=6, prev=15, next=17} }
+starting = { 0, 1, 3, 5, 7, 11, 15 }
+papers = { COLOR_LIGHT_RED, COLOR_LIGHT_GREEN, COLOR_LIGHT_BLUE, COLOR_YELLOW, COLOR_LIGHT_CYAN, COLOR_LIGHT_MAGENTA, COLOR_BROWN, COLOR_WHITE }
+inks = { COLOR_RED, COLOR_GREEN, COLOR_BLUE, COLOR_BROWN, COLOR_CYAN, COLOR_MAGENTA, COLOR_RED, COLOR_LIGHT_GRAY }
+--colors = {0x4c, 0x2a, 0x19, 0x6e, 0x3b, 0xd5, 0x56, 0x7f}
+--Uint8 colors[8][3] { {255, 0, 0}, {0, 255, 0}, {0, 0, 255}, {255, 255, 0}, {0, 255, 255}, {255, 0, 255}, {255, 128, 0}, {255, 255, 255} };
+board = {} --[20][10];
+piece_pos = {x=3, y=0}
+current_piece,next_piece,level,lines,score = 0,0,0,0,0
+speed = (20-min(19, level))*3
+
+function is_valid_move()
+    local x = piece_pos.x+3
+    local y = piece_pos.y+3
+    local piece = tetromino[current_piece+1].figure
+    for i=0,15 do
+        if ((piece & 1 == 1) and ( (x >= 10) or (x < 0) or (y >= 20) or (board[x+y*10] ~= 0) ) ) then return false end
+        piece = piece >> 1
+        x=x-1
+        if x < piece_pos.x then
+            x=piece_pos.x+3
+            y=y-1
+        end
+    end
+    return true
+end
+
+function check_lines()
+    local count = 0
+    local line = 19
+    while line > 0 do
+        local complete = true
+        for x=0,9 do
+            complete = (board[x+line*10] ~= 0)
+            if not complete then break end
+        end
+        if complete then
+            count=count+1
+            for y=line,1,-1 do
+                for x=0,9 do
+                    board[x+y*10] = board[x+(y-1)*10]
+                end
+            end
+        else
+            line=line-1
+        end
+    end
+    lines=lines+count
+    local scoremult = {40,100,300,1200}
+    if count > 0 then score = score + scoremult[count] * (level+1) end
+    level = flr(lines / 10)
+end
+
+function fix_piece()
+    local x = piece_pos.x+3
+    local y = piece_pos.y+3
+    local piece = tetromino[current_piece+1].figure
+    for i=0,15 do
+        if piece & 1 == 1 then
+             board[x+y*10] = tetromino[current_piece+1].orig+1
+        end
+        piece = piece >> 1
+        x=x-1
+        if x < piece_pos.x then
+            x = piece_pos.x+3
+            y=y-1
+        end
+    end
+    piece_pos = {x=3, y=0}
+    current_piece = next_piece
+    next_piece = starting[rnd(7)+1]
+    check_lines()
+end
+
+function draw_cube(x,y,col)
+    color(inks[col+1],papers[col+1])
+    print("\001",x+1,y)
+end
+
+function draw_tetromino(init_x,init_y,piece_to_draw)
+    local x = init_x+3
+    local y = init_y+3
+    local piece = tetromino[piece_to_draw+1].figure
+    for i=0,15 do
+        if piece & 1 == 1 then
+            draw_cube(x, y, tetromino[piece_to_draw+1].orig)
+        end
+        piece = piece >> 1
+        x=x-1
+        if x < init_x then
+            x = init_x+3
+            y=y-1
+        end
+    end
+end
+
+--[[
+void print(int x, int y, const char* text, Uint8 color) {
+    int cc = 0;
+    SDL_SetTextureColorMod(sdlTexture, colors[color][0], colors[color][1], colors[color][2]);
+    SDL_Rect src {0, 0, 8, 8}, dst {x, y, 16, 16};
+    while (text[cc] != 0) {
+        if (text[cc] == 32) continue;
+        else if (text[cc] >= 65) { src.x = ((text[cc]-65)%6)*8; src.y = ((text[cc]-65)/6)*8; }
+        else if (text[cc] < 65) { src.x = ((text[cc]-22)%6)*8; src.y = ((text[cc]-22)/6)*8; }
+        SDL_RenderCopy(sdlRenderer, sdlTexture, &src, &dst);
+        cc++; dst.x+=16;
+    }
+}
+--]]
+
+function init()
+    mode(1)
+    current_piece = starting[rnd(7)+1]
+    next_piece = starting[rnd(7)+1]
+
+    piece_pos = {x=3, y=0}
+    level,lines,score = 0,0,0
+    speed = (20-min(19, level))*3
+
+    for i=0,20*10 do board[i] = 0 end
+    setchar(1,0xff,0x81,0x81,0x81,0x81,0x81,0x81,0xff)
+    border(COLOR_BLUE)
+end
+
+function update()
+    if btnp(KEY_RIGHT) then
+        piece_pos.x = piece_pos.x + 1
+        if not is_valid_move() then piece_pos.x=piece_pos.x-1 end
+    end
+    if btnp(KEY_LEFT) then
+        piece_pos.x = piece_pos.x - 1
+        if not is_valid_move() then piece_pos.x=piece_pos.x+1 end
+    end
+    if btnp(KEY_DOWN) then
+        piece_pos.y = piece_pos.y + 1
+        if not is_valid_move() then piece_pos.y=piece_pos.y-1 end
+    end
+    if btnp(KEY_UP) then 
+        current_piece = tetromino[current_piece+1].next
+        if not is_valid_move() then current_piece = tetromino[current_piece+1].prev end
+    end
+    paper(COLOR_BLACK)
+    cls()
+    ink(COLOR_BLUE) print("LEVEL "..tostr(level), 3, 5) -- color 2
+    ink(COLOR_RED) print("SCORE "..tostr(score), 3, 7) -- color 0
+    ink(COLOR_GREEN) print("LINES "..tostr(lines), 3, 9) -- color 1
+    color(COLOR_DARK_GRAY,COLOR_LIGHT_GRAY)
+    for i=0,20 do print ("\001",14,i+5) print("\001",25,i+5) end
+    print("\001\001\001\001\001\001\001\001\001\001\001\001",14,25)
+    for y=0,19 do
+        for x=0,9 do
+            if board[x+y*10] ~= 0 then
+                draw_cube(14+x, y+5, board[x+y*10]-1)
+            end
+        end
+    end
+    draw_tetromino(27, 5, next_piece)
+    draw_tetromino(14+piece_pos.x, 5+piece_pos.y, current_piece)
+    speed=speed-1
+    if speed == 0 then
+        speed = (20-min(19, level))*3
+        piece_pos.y=piece_pos.y+1
+        if not is_valid_move() then
+            piece_pos.y=piece_pos.y-1
+            if piece_pos.y==0 then
+                init()
+            else
+                fix_piece()
+                play("c")
+            end
+        end
+    end
+end
--- a/game.lua
+++ b/game.lua
@@ -1,9 +0,0 @@
-function init()
-    setmode(0)
-    cls()
-    play("o4v5l1crcl4dcferl1crcl4dcgfr")
-end
-
-function update()
-    
-end
--- a/game.lua
+++ b/game.lua
@@ -0,0 +1,20 @@
+function init()
+    mode(0)
+    cls()
+    play("o4v5l1crcl4dcferl1crcl4dcgfr")
+end
+
+function update()
+    cls()
+    locate(0,0)
+    if mousebutton(1) then
+        print("Has pulsat el boto esquerre")
+    elseif mousebutton(2) then
+        print("Has pulsat el boto del mig")
+    elseif mousebutton(3) then
+        print("Has pulsat el boto dret")
+    else
+        print("No has pulsat cap boto")
+    end
+    
+end
--- a/lua.cpp
+++ b/lua.cpp
@@ -2,6 +2,86 @@
 #include "lua/lua.hpp"
 #include "ascii.h"

+void reverse(char* str, int len) {
+    int i = 0, j = len - 1, temp;
+    while (i < j) {
+        temp = str[i];
+        str[i] = str[j];
+        str[j] = temp;
+        i++;
+        j--;
+    }
+}
+  
+int intToStr(int x, char str[], int d) {
+    int i = 0;
+    while (x) {
+        str[i++] = (x % 10) + '0';
+        x = x / 10;
+    }
+ 
+    while (i < d) str[i++] = '0';
+    reverse(str, i);
+    str[i] = '\0';
+    return i;
+}
+  
+int ftoa(float n, char* res, int afterpoint) {
+    int ipart = (int)n;
+    float fpart = n - (float)ipart;
+    int i = intToStr(ipart, res, 1);
+    fpart = fpart * SDL_pow(10, afterpoint);
+    if (int(fpart) != 0) {
+        res[i++] = '.';
+        i += intToStr((int)fpart, res + i, afterpoint);
+        while(res[i-1] == '0') res[--i] = '\0';
+    }
+    return i;
+}
+
+char tempstr[1024];
+uint16_t ts_index = 0;
+
+void table_to_str(lua_State *L, int indx);
+
+void value_to_str(lua_State *L, int indx) {
+    if (lua_isnoneornil(L, indx)) {
+        SDL_memcpy(&tempstr[ts_index], "nil", 3); ts_index+=3;
+    } else if (lua_isfunction(L, indx) || lua_iscfunction(L,indx)) {
+        SDL_memcpy(&tempstr[ts_index], "[function]", 10); ts_index+=10;
+    } else if (lua_istable(L, indx)) {
+        table_to_str(L, indx);
+    } else if (lua_type(L, indx) == LUA_TNUMBER) {
+        const float val = luaL_checknumber(L, indx);
+        const int len = ftoa(val, &tempstr[ts_index], 4); ts_index+=len;
+    } else if (lua_isboolean(L,indx)) {
+        if (lua_toboolean(L, indx)) {
+            SDL_memcpy(&tempstr[ts_index], "true", 4); ts_index+=4;
+        } else {
+            SDL_memcpy(&tempstr[ts_index], "false", 5); ts_index+=5;
+        }
+    } else if (lua_isstring(L,indx)) {
+        const char* str = luaL_checkstring(L,indx);
+        tempstr[ts_index++] = '"';
+        SDL_memcpy(&tempstr[ts_index], str, strlen(str)); ts_index+=strlen(str);
+        tempstr[ts_index++] = '"';
+    }
+}
+
+void table_to_str(lua_State *L, int indx) {
+    tempstr[ts_index++] = '{';
+    lua_pushnil(L);
+    bool first = true;
+    while (lua_next(L, indx) != 0) {
+        if (first) { first=false; } else { tempstr[ts_index++] = ','; }
+        value_to_str(L, lua_gettop(L)-1);
+        tempstr[ts_index++] = '=';
+        value_to_str(L, lua_gettop(L));
+        lua_pop(L, 1);
+    }
+    tempstr[ts_index++] = '}';
+}
+
 extern "C" {
    static int cpp_cls(lua_State *L) {
        uint8_t color = luaL_optinteger(L, 1, 32);
@@ -54,6 +134,11 @@ extern "C" {
        return 0;
    }

+    static int cpp_crlf(lua_State *L) {
+        crlf();
+        return 0;
+    }
+
    static int cpp_btn(lua_State *L) {
        uint8_t i = luaL_checkinteger(L, 1);
        lua_pushboolean(L, btn(i));
@@ -163,9 +248,28 @@ extern "C" {
        return 0;
    }
    static int cpp_tostr(lua_State *L) {
-        float val = luaL_checknumber(L, 1);
-        lua_pushstring(L, tostr(val));
+        ts_index=0;
+        value_to_str(L, 1); tempstr[ts_index] = '\0';
+        lua_pushstring(L, tempstr);
        return 1;
+        /*
+        if (lua_isnoneornil(L,1)) {
+            lua_pushstring(L, "nil");
+        } else if (lua_isfunction(L,1) || lua_iscfunction(L,1)) {
+            lua_pushstring(L, "[function]");
+        } else if (lua_istable(L,1)) {
+            lua_gettable
+            lua_pushstring(L, "[function]");
+        } else if (lua_isstring(L,1)) {
+            lua_pushstring(L, luaL_checkstring(L,1));
+        } else if (lua_isboolean(L,1)) {
+            lua_pushstring(L, lua_toboolean(L, 1) ? "true" : "false");
+        } else {
+            const float val = luaL_checknumber(L, 1);
+            lua_pushstring(L, tostr(val));
+        }
+        return 1;
+        */
    }
    static int cpp_ascii(lua_State *L) {
        const char* str = luaL_checkstring(L, 1);
@@ -183,6 +287,13 @@ extern "C" {
        lua_pushinteger(L, strlen(str));
        return 1;
    }
+    static int cpp_substr(lua_State *L) {
+        const char* str = luaL_checkstring(L, 1);
+        int start = luaL_checknumber(L, 2);
+        int length = luaL_checknumber(L, 3);
+        lua_pushstring(L, substr(str, start, length));
+        return 1;
+    }
    
    static int cpp_setchar(lua_State *L) {
        int index = luaL_checkinteger(L, 1);
@@ -237,9 +348,9 @@ extern "C" {
        return 0;
    }

-    static int cpp_setmode(lua_State *L) {
+    static int cpp_mode(lua_State *L) {
        int val = luaL_checkinteger(L, 1);
-        setmode(val);
+        mode(mid(0,val,3));
        return 0;
    }

@@ -270,6 +381,27 @@ extern "C" {
        filein(str, addr, size);
        return 0;
    }
+
+    static int cpp_toclipboard(lua_State *L) {
+        const char* str = luaL_checkstring(L, 1);
+        toclipboard(str);
+        return 0;
+    }
+
+    static int cpp_fromclipboard(lua_State *L) {
+        lua_pushstring(L, fromclipboard());
+        return 1;
+    }
+
+    static int cpp_cnt(lua_State *L) {
+        lua_pushinteger(L, cnt());
+        return 1;
+    }
+    
+    static int cpp_rst(lua_State *L) {
+        rst();
+        return 0;
+    }
 }

 #define STATE_STOPPED 0
@@ -278,35 +410,33 @@ extern "C" {

 lua_State *L;
 uint8_t lua_state = STATE_STOPPED;
-bool init_exists = false;
-bool update_exists = false;
+//bool init_exists = false;
+//bool update_exists = false;

 bool lua_is_playing() {
    return lua_state == STATE_PLAYING;
 }

-const char boot[] = "function init()setmode(1)cls()play('o5l0v5cegv4cegv3cegv2cegv1ceg')memcpy(360,4608,240)memcpy(1560,4848,240)ink(1)print('G A M E',8,16)ink(4)print('S Y S T E M',20,16)ink(7)print('mini',9,8)ink(8)print('v0.5.4',34,29)w=0 end function update()w=w+1 if w>90 then cls()load()end end";
+const char boot[] = "function init()mode(1)cls()play('o5l0v5cegv4cegv3cegv2cegv1ceg')memcpy(360,4608,240)memcpy(1560,4848,240)ink(1)print('G A M E',8,16)ink(4)print('S Y S T E M',20,16)ink(7)print('mini',9,8)ink(8)print('v0.6.1',34,29)w=0 end function update()w=w+1 if w>90 then cls()load()end end";

 void lua_init(const char* filename, const bool start_playing) {
    if (lua_state != STATE_STOPPED) lua_quit();
    L = luaL_newstate();
-    init_exists = update_exists = false;
+    //init_exists = update_exists = false;
    bool file_loaded = true;

    if (filename == NULL) {
        if (luaL_loadstring(L, boot)) {
-            debug("BOOT ERROR");
+            debug("BOOT ERROR:", false);
            debug(lua_tostring(L, -1));
            lua_pop(L,1);
-            setmode(0);
            file_loaded = false;
        }
    } else {
        if (luaL_loadfile(L, filename)) {
-            debug("ERROR LOADING GAME");
+            debug("ERROR LOADING GAME:",false);
            debug(lua_tostring(L, -1));
            lua_pop(L,1);
-            setmode(0);
            file_loaded = false;
        }
    }
@@ -319,6 +449,7 @@ void lua_init(const char* filename, const bool start_playing) {

    lua_pushcfunction(L,cpp_locate);       lua_setglobal(L, "locate");
    lua_pushcfunction(L,cpp_print);     lua_setglobal(L, "print");
+    lua_pushcfunction(L,cpp_crlf);     lua_setglobal(L, "crlf");

    lua_pushcfunction(L,cpp_btn);       lua_setglobal(L, "btn");
    lua_pushcfunction(L,cpp_btnp);      lua_setglobal(L, "btnp");
@@ -346,6 +477,7 @@ void lua_init(const char* filename, const bool start_playing) {
    lua_pushcfunction(L,cpp_ascii);     lua_setglobal(L, "ascii");
    lua_pushcfunction(L,cpp_chr);     lua_setglobal(L, "chr");
    lua_pushcfunction(L,cpp_strlen);     lua_setglobal(L, "strlen");
+    lua_pushcfunction(L,cpp_substr);     lua_setglobal(L, "substr");

    lua_pushcfunction(L,cpp_setchar);     lua_setglobal(L, "setchar");
    lua_pushcfunction(L,cpp_peek);     lua_setglobal(L, "peek");
@@ -354,12 +486,17 @@ void lua_init(const char* filename, const bool start_playing) {
    lua_pushcfunction(L,cpp_sound);     lua_setglobal(L, "sound");
    lua_pushcfunction(L,cpp_nosound);     lua_setglobal(L, "nosound");
    lua_pushcfunction(L,cpp_play);     lua_setglobal(L, "play");
-    lua_pushcfunction(L,cpp_setmode);     lua_setglobal(L, "setmode");
+    lua_pushcfunction(L,cpp_mode);     lua_setglobal(L, "mode");
    lua_pushcfunction(L,cpp_load);     lua_setglobal(L, "load");
    lua_pushcfunction(L,cpp_log);     lua_setglobal(L, "log");

    lua_pushcfunction(L,cpp_fileout);     lua_setglobal(L, "fileout");
    lua_pushcfunction(L,cpp_filein);     lua_setglobal(L, "filein");
+    lua_pushcfunction(L,cpp_toclipboard);     lua_setglobal(L, "toclipboard");
+    lua_pushcfunction(L,cpp_fromclipboard);     lua_setglobal(L, "fromclipboard");
+
+    lua_pushcfunction(L,cpp_cnt);     lua_setglobal(L, "cnt");
+    lua_pushcfunction(L,cpp_rst);     lua_setglobal(L, "rst");

    lua_pushinteger(L, 0); lua_setglobal(L, "KEY_UNKNOWN");
    lua_pushinteger(L, 4); lua_setglobal(L, "KEY_A");
@@ -489,13 +626,13 @@ void lua_init(const char* filename, const bool start_playing) {
    if (!file_loaded) return;

    if (lua_pcall(L,0, LUA_MULTRET, 0)) {
-        debug("RUNTIME ERROR");
+        debug("RUNTIME ERROR:", false);
        debug(lua_tostring(L, -1));
        lua_pop(L,1);
-        setmode(0);
        return;
    }

+/*
    lua_getglobal(L, "init");
    if (lua_isfunction(L,-1)) init_exists = true;
    lua_pop(L,1);
@@ -503,41 +640,55 @@ void lua_init(const char* filename, const bool start_playing) {
    lua_getglobal(L, "update");
    if (lua_isfunction(L,-1)) update_exists = true;
    lua_pop(L,1);
-
+*/
    lua_state = start_playing ? STATE_PLAYING : STATE_PAUSED;
 }

 void lua_call_cmd(const char* str) {
-    if (luaL_dostring(L, str)) {
-        debug(" ");
-        debug("ERROR");
-        debug(lua_tostring(L, -1));
-        lua_pop(L,1);
+    if (str[0]=='?') {
+        const int size = strlen(str)+14;
+        char* cmd = (char*)malloc(size);
+        memcpy(cmd, "print(tostr(", 12);
+        memcpy(&cmd[12], &str[1], strlen(str)-1);
+        cmd[size-1]='\0';
+        cmd[size-3]=cmd[size-2]=')';
+        if (luaL_dostring(L, cmd)) {
+            debug("ERROR:",false);
+            debug(lua_tostring(L, -1));
+            lua_pop(L,1);
+        }
+    } else {
+        if (luaL_dostring(L, str)) {
+            debug("ERROR:",false);
+            debug(lua_tostring(L, -1));
+            lua_pop(L,1);
+        }
    }
-    debug(" ");
 }

 void lua_call_init() {
-    if (!init_exists) return;
    lua_getglobal(L, "init");
-    if (lua_pcall(L, 0, 0, 0)) {
-        debug("RUNTIME ERROR");
-        debug(lua_tostring(L, -1));
-        lua_pop(L,1);
-        setmode(0);
-        lua_state = STATE_STOPPED;
+    if (lua_isfunction(L,-1)) {
+        if (lua_pcall(L, 0, 0, 0)) {
+            debug("RUNTIME ERROR:",false);
+            debug(lua_tostring(L, -1));
+            lua_pop(L,1);
+            lua_state = STATE_STOPPED;
+        }
    }
 }

 void lua_call_update() {
-    if (!update_exists) return;
    lua_getglobal(L, "update");
-    if (lua_pcall(L, 0, 0, 0)) {
-        debug("RUNTIME ERROR");
-        debug(lua_tostring(L, -1));
-        lua_pop(L,1);
-        setmode(0);
-        lua_state = STATE_STOPPED;
+    if (lua_isfunction(L,-1)) {
+        if (lua_pcall(L, 0, 0, 0)) {
+            debug("RUNTIME ERROR:",false);
+            debug(lua_tostring(L, -1));
+            lua_pop(L,1);
+            lua_state = STATE_STOPPED;
+        }
+    } else {
+        lua_state = STATE_PAUSED;
    }
 }

--- a/main.cpp
+++ b/main.cpp
@@ -1,57 +1,282 @@
 #include "ascii.h"
+#include <stdio.h>
+#include <string>
+#include <list>
+
+std::list<std::string> code;

 int current_editor = 0;

-void do_terminal() {
-    SDL_Keymod mods = SDL_GetModState();
-    const uint8_t key = whichbtn();
-    if (key != KEY_UNKNOWN) {
-        if (key < 30) {
-            if ((mods & KMOD_SHIFT) || (mods & KMOD_CAPS)) {
-                debugchr(key+61);
-            } else {
-                debugchr(key+93);
-            }
-        }
-        //else if (key < 39) debugchr(key+19);
-        else if (key == KEY_0) { if (mods & KMOD_SHIFT) { debugchr('='); } else { debugchr('0'); } }
-        else if (key == KEY_1) { if (mods & KMOD_SHIFT) { debugchr('!'); } else if (mods & KMOD_RALT) { debugchr('|'); } else { debugchr('1'); } }
-        else if (key == KEY_2) { if (mods & KMOD_SHIFT) { debugchr('"'); } else if (mods & KMOD_RALT) { debugchr('@'); } else { debugchr('2'); } }
-        else if (key == KEY_3) { if (mods & KMOD_SHIFT) { debugchr(144); } else if (mods & KMOD_RALT) { debugchr('#'); } else { debugchr('3'); } }
-        else if (key == KEY_4) { if (mods & KMOD_SHIFT) { debugchr('$'); } else if (mods & KMOD_RALT) { debugchr('~'); } else { debugchr('4'); } }
-        else if (key == KEY_5) { if (mods & KMOD_SHIFT) { debugchr('%'); } else if (mods & KMOD_RALT) { debugchr(180); } else { debugchr('5'); } }
-        else if (key == KEY_6) { if (mods & KMOD_SHIFT) { debugchr('&'); } else if (mods & KMOD_RALT) { debugchr(173); } else { debugchr('6'); } }
-        else if (key == KEY_7) { if (mods & KMOD_SHIFT) { debugchr('/'); } else { debugchr('7'); } }
-        else if (key == KEY_8) { if (mods & KMOD_SHIFT) { debugchr('('); } else { debugchr('8'); } }
-        else if (key == KEY_9) { if (mods & KMOD_SHIFT) { debugchr(')'); } else { debugchr('9'); } }
-        else if (key == KEY_RETURN) debug_get_cmd();
-        else if (key == KEY_SPACE) debugchr(32);
-        else if (key == KEY_BACKSPACE) debugchr(8);
-        else if (key == KEY_MINUS) { if (mods & KMOD_SHIFT) { debugchr('?'); } else { debugchr('\''); } }
-        else if (key == KEY_EQUALS) { if (mods & KMOD_SHIFT) { debugchr(174); } else { debugchr(175); } }
-        else if (key == KEY_COMMA) { if (mods & KMOD_SHIFT) { debugchr(';'); } else { debugchr(','); } }
-        else if (key == KEY_PERIOD) { if (mods & KMOD_SHIFT) { debugchr(':'); } else { debugchr('.'); } }
-        else if (key == KEY_SLASH) { if (mods & KMOD_SHIFT) { debugchr('_'); } else { debugchr('-'); } }
-        else if (key == KEY_LEFTBRACKET) { if (mods & KMOD_SHIFT) { debugchr(160); } else if (mods & KMOD_RALT) { debugchr('['); } else { debugchr(96); } }
-        else if (key == KEY_RIGHTBRACKET) { if (mods & KMOD_SHIFT) { debugchr('*'); } else if (mods & KMOD_RALT) { debugchr(']'); } else { debugchr('+'); } }
-    }
-    //cls(0);
-    pdebug();
-}
+void init_terminal();
+void do_terminal();
+
+void init_code_editor();
+void do_code_editor();
+void save_code();

 void loop() {
-    do_terminal();
-/*
    if (btnp(KEY_TAB)) {
-        current_editor = (++current_editor)%5;
+        current_editor = (++current_editor)%2;
+        switch(current_editor) {
+            case 0:
+                init_terminal();
+                break;
+            case 1:
+                init_code_editor();
+                break;
+        }
    }
    switch(current_editor) {
        case 0:
            do_terminal();
            break;
        case 1:
-            do_sprite_editor();
+            do_code_editor();
            break;
    }
-*/
+}
+
+void execute_run() {
+    if (current_editor == 1) save_code();
+}
+
+uint8_t get_char(uint8_t key) {
+    SDL_Keymod mods = SDL_GetModState();
+    if (key != KEY_UNKNOWN) {
+        if (key < 30) {
+            if ((mods & KMOD_SHIFT) || (mods & KMOD_CAPS)) {
+                return key+61;
+            } else {
+                return key+93;
+            }
+        }
+        else if (key == KEY_0) { if (mods & KMOD_SHIFT) { return '='; } else { return '0'; } }
+        else if (key == KEY_1) { if (mods & KMOD_SHIFT) { return '!'; } else if (mods & KMOD_RALT) { return '|'; } else { return '1'; } }
+        else if (key == KEY_2) { if (mods & KMOD_SHIFT) { return '"'; } else if (mods & KMOD_RALT) { return '@'; } else { return '2'; } }
+        else if (key == KEY_3) { if (mods & KMOD_SHIFT) { return 144; } else if (mods & KMOD_RALT) { return '#'; } else { return '3'; } }
+        else if (key == KEY_4) { if (mods & KMOD_SHIFT) { return '$'; } else if (mods & KMOD_RALT) { return '~'; } else { return '4'; } }
+        else if (key == KEY_5) { if (mods & KMOD_SHIFT) { return '%'; } else if (mods & KMOD_RALT) { return 180; } else { return '5'; } }
+        else if (key == KEY_6) { if (mods & KMOD_SHIFT) { return '&'; } else if (mods & KMOD_RALT) { return 173; } else { return '6'; } }
+        else if (key ==KEY_7) { if (mods & KMOD_SHIFT) { return '/'; } else { return '7'; } }
+        else if (key == KEY_8) { if (mods & KMOD_SHIFT) { return '('; } else { return '8'; } }
+        else if (key == KEY_9) { if (mods & KMOD_SHIFT) { return ')'; } else { return '9'; } }
+        else if (key == KEY_SPACE) return 32;
+        else if (key == KEY_MINUS) { if (mods & KMOD_SHIFT) { return '?'; } else { return '\''; } }
+        else if (key == KEY_EQUALS) { if (mods & KMOD_SHIFT) { return 174; } else { return 175; } }
+        else if (key == KEY_COMMA) { if (mods & KMOD_SHIFT) { return ';'; } else { return ','; } }
+        else if (key == KEY_PERIOD) { if (mods & KMOD_SHIFT) { return ':'; } else { return '.'; } }
+        else if (key == KEY_SLASH) { if (mods & KMOD_SHIFT) { return '_'; } else { return '-'; } }
+        else if (key == KEY_LEFTBRACKET) { if (mods & KMOD_SHIFT) { return 160; } else if (mods & KMOD_RALT) { return '['; } else { return 96; } }
+        else if (key == KEY_RIGHTBRACKET) { if (mods & KMOD_SHIFT) { return '*'; } else if (mods & KMOD_RALT) { return ']'; } else { return '+'; } }
+        else if (key == KEY_APOSTROPHE) { if (mods & KMOD_SHIFT) { return 162; } else if (mods & KMOD_RALT) { return '{'; } else { return 161; } }
+        else if (key == KEY_BACKSLASH) { if (mods & KMOD_SHIFT) { return 'C'; } else if (mods & KMOD_RALT) { return '}'; } else { return 'c'; } }
+        else if (key == KEY_GRAVE) { if (mods & KMOD_SHIFT) { return '>'; } else  { return '<'; } }
+        else if (key == KEY_NONUSBACKSLASH) { if (mods & KMOD_SHIFT) { return 164; } else if (mods & KMOD_RALT) { return '\\'; } else { return 163; } }
+        else return 0;
+    } else {
+        return 0;
+    }
+}
+
+void init_terminal() {
+    mode(0);
+    cls();
+}
+
+void do_terminal() {
+    //SDL_Keymod mods = SDL_GetModState();
+    const uint8_t key = whichbtn();
+    if (key != KEY_UNKNOWN) {
+        if (key == KEY_RETURN or key == KEY_KP_ENTER) debug_get_cmd();
+        else if (key == KEY_UP) next_cmd();
+        else if (key == KEY_DOWN) prev_cmd();
+        else if (key == KEY_BACKSPACE) debugchr(8);
+        else {
+            uint8_t chr = get_char(key);
+            if (chr != 0) debugchr(chr);
+        }
+    }
+}
+
+void save_code() {
+    const char* file = get_filename();
+    FILE *f = fopen(file, "w");
+    for (std::list<std::string>::iterator it = code.begin(); it != code.end(); it++) {
+        fprintf(f, "%s\n", (*it).c_str());
+    }
+    fclose(f);
+}
+
+void load_code() {
+    const char* file = get_filename();
+    FILE *f = fopen(file, "rb");
+    fseek(f, 0, SEEK_END);
+    long fsize = ftell(f);
+    fseek(f, 0, SEEK_SET);  /* same as rewind(f); */
+    char *buffer = (char*)malloc(fsize + 1);
+    fread(buffer, 1, fsize, f);
+    fclose(f);
+    buffer[fsize] = 0;
+
+    int start = 0;
+    for (int pos=0;pos<fsize;++pos) {
+        if (buffer[pos] == '\n') {
+            buffer[pos]='\0';
+            code.push_back(&buffer[start]);
+            start=pos+1;
+        } else if (buffer[pos] == '\r') {
+            buffer[pos]='\0';
+            code.push_back(&buffer[start]);
+            start=pos+1;
+            if (buffer[start] == '\n') {pos++; start++;}
+        }
+
+    }
+    free(buffer);
+}
+
+std::list<std::string>::iterator ls[28];
+static int col = 0;
+static int line = 0;
+
+void refresh_code_editor() {
+    color(COLOR_WHITE, COLOR_BLUE);
+    cls();
+    //print("  File  Edit  Run                                                               ",0,0);
+    //print("                                                                                ",0,29);
+    std::list<std::string>::iterator it = code.begin();
+    int i=0;
+    while (it != code.end() && i<28) {
+        ls[i] = it;
+        print((*it).c_str(), 0, i);
+        ++i; ++it;
+    }
+}
+
+void init_code_editor() {
+    mode(0);
+    code.clear();
+    load_code();
+    refresh_code_editor();
+}
+
+std::string get_current_line() {
+    return *ls[line];
+}
+
+void move_cursor_up() {
+    if (line > 0) {
+        line--;
+        if (get_current_line().size() < col) col = get_current_line().size();
+    }
+}
+
+void move_cursor_down() {
+    if (line < code.size()-1) {
+        line++;
+        if (get_current_line().size() < col) col = get_current_line().size();
+    }
+}
+
+void move_cursor_right() {
+    if ( col < get_current_line().size() ) {
+        col++;
+    } else {
+        if (line < code.size()-1) {
+            col = 0;
+            move_cursor_down();
+        }
+    }
+}
+
+void move_cursor_left() {
+    if (col > 0) {
+        col--;
+    } else {
+        if (line > 0) {
+            move_cursor_up();
+            col = get_current_line().size();
+        }
+    }
+}
+
+void move_line_end() {
+    col = get_current_line().size();
+}
+
+void move_line_home() {
+    col = 0;
+}
+
+void split_line() {
+    std::string str = get_current_line();
+    *ls[line] = str.substr(col);
+    std::list<std::string>::iterator newline = ls[line]++;
+    code.insert(newline, str.substr(0, col));
+
+    line++; col=0;
+    refresh_code_editor();
+}
+
+void join_lines() {
+    std::string str = get_current_line();
+    //std::list<std::string>::iterator prevline = ls[line]--;
+    code.erase(ls[line]);
+    line--;
+    const int line_size = (*ls[line]).size();
+    *ls[line] += str;
+    col = line_size;
+    refresh_code_editor();
+}
+
+void delete_char() {
+    if (col == 0) {
+        if (line > 0) join_lines();
+    } else {
+        std::string str = get_current_line();
+        std::string a = str.substr(0,col-1);
+        std::string b = str.substr(col);
+        *ls[line] = a+b;
+        col--;
+        refresh_code_editor();
+    }
+}
+
+void supr_char() {
+    if ((col == (*ls[line]).size()) && (line == code.size()-1)) return;
+    move_cursor_right();
+    delete_char();
+}
+
+void add_char(uint8_t chr) {
+    std::string str = get_current_line();
+    std::string a = str.substr(0,col);
+    std::string b = str.substr(col);
+    std::string c = " "; c[0] = chr;
+    *ls[line] = a+c+b;
+    col++;
+    refresh_code_editor();
+}
+
+void do_code_editor() {
+    const uint8_t key = whichbtn();
+    if (key != KEY_UNKNOWN) {
+        if (key == KEY_RETURN or key == KEY_KP_ENTER) {
+            split_line();
+        }
+        else if (key == KEY_UP) move_cursor_up();
+        else if (key == KEY_DOWN) move_cursor_down();
+        else if (key == KEY_LEFT) move_cursor_left();
+        else if (key == KEY_RIGHT) move_cursor_right();
+        else if (key == KEY_BACKSPACE) delete_char();
+        else if (key == KEY_DELETE) supr_char();
+        else if (key == KEY_END) move_line_end();
+        else if (key == KEY_HOME) move_line_home();
+        else {
+            uint8_t chr = get_char(key);
+            if (chr != 0) add_char(chr);
+        }
+    }
+
+    debug_set_cursor(col, line);
 }
--- a/pong.lua
+++ b/pong.lua
@@ -1,115 +0,0 @@
-function init()
-    -- mode 1: 40x30 characters
-    setmode(1)
-    -- prepare everything for the match
-    reset_match()
-    p1,p2=0,0   -- reset scores
-end
-
-function update()
-    cls()
-
-    -- ball movement
-    -- 'wait' is a counter to skip some cycles before moving the ball, so it starts slower
-    -- 'speed' defines how many cycles to skip. Every 5 hits to the paddles 'speed' goes down by 1, effectively increasing the ball's speed
-    -- 'speed' is reset every point
-    wait=wait-1
-    if wait==0 then
-        wait=speed
-        -- move ball
-        bx=bx+dx
-        by=by+dy
-        -- if ball hits top or down walls, bounce
-        if by==0 or by==29 then
-            dy=-dy
-            if playing then play("a") end   -- if we are not playing, be quiet
-        end
-
-        -- during a match, paddles bounce the ball and left and right walls award points
-        -- but before or after a match the ball just bounces around
-        if playing then
-            -- if ball hits left or right ball, reset the ball and award a point to the opposing paddle
-            if bx==0 then p2=p2+1 reset_ball() end
-            if bx==39 then p1=p1+1 reset_ball() end
-            -- if ball hits paddle, bounce
-            if (bx==1 and by>=y1 and by<=y1+4) or (bx==38 and by>=y2 and by<=y2+4) then
-                play("c")
-                dx=-dx
-                -- also, increase hits. Every 5 hits the ball will speed up (only if it's not already as fast as possible)
-                hits=hits+1
-                if (hits%5 == 0) and (speed>0) then speed=speed-1 end 
-            end
-        else
-            -- when not playing, just bounce freely
-            if bx==0 or bx==39 then dx=-dx end
-        end
-    end
-
-    -- player 1 controls
-    if btn(KEY_Q) and y1>0 then y1=y1-1 end
-    if btn(KEY_A) and y1<25 then y1=y1+1 end
-
-    -- player 2 controls
-    if btn(KEY_UP) and y2>0 then y2=y2-1 end
-    if btn(KEY_DOWN) and y2<25 then y2=y2+1 end
-
-    -- draw net
-    if playing then for i=0,29 do print("\145",20,i) end end
-
-    -- draw score
-    print(p1,18,3)
-    print(p2,22,3)
-
-    -- draw ball
-    print("\143",flr(bx),flr(by))
-
-    -- draw paddles
-    for i=0,4 do
-        print("\143",1,y1+i)
-        print("\143",38,y2+i)
-    end
-
-    if not playing then
-        -- while not playing show the messages
-        if p1==10 then print("PLAYER 1 WINS!", 14, 8)
-        elseif p2==10 then print("PLAYER 2 WINS!", 14, 8) 
-        else print("PONG!", 18, 10) end
-
-        print("Press SPACE to play", 11, 20)
-        if btn(KEY_SPACE) then
-            start_match()
-        end
-    end
-
-end
-
-function start_match()
-    playing=true
-    p1,p2=0,0   -- reset scores
-end
-
-function reset_match()
-    play("l2drl2d#l4e>l2crr<e>crr<l4e>crrrl2r cl4dl2d#l4el2cl4del2r<b>l4dl2rl4crrrl2r< drl2d#l4e>l2crr<e>crr<l4e>crrrl2r< l2argl4f#l2a>l4cl2errdl4cl2<al4>drrrl2r< l2drl2d#l4e>l2crr<e>crr<l4e>crrrl2r cl4dl2d#l4el2cl4del2r<b>l4dl2rl4crrrl2r<")
-
-    playing=false
-    bx,by=20,15 -- init ball's position
-    dx,dy=1,1   -- init ball's direction
-    y1,y2=14,14 -- init paddle's y coordinate
-    wait=1      -- reset wait counter
-    speed=4     -- reset speed
-    hits=0      -- reset hits counter
-end
-
-function reset_ball()
-    play("l0o3bagfedc") -- play sad tune
-    bx,by=20,15         -- reset ball's position
-    speed=4             -- reset speed
-    hits=0              -- reset hits counter
-    dx=-dx              -- invert x direction
-
-    -- si algu arriba a 10, la partida acaba
-    if p1==10 or p2==10 then
-        playing=false
-        play("o5l1crl0ergrl4o6c")
-    end
-end
--- a/readme.md
+++ b/readme.md
@@ -0,0 +1 @@
+miniASCi!
--- a/scr.bin
+++ b/scr.bin
@@ -0,0 +1 @@
+                                                                                                                                                                                                                                                                                                                                                                                ֏<><D68F><EFBFBD><EFBFBD>֏<EFBFBD><D68F><EFBFBD><EFBFBD>֏<EFBFBD><D68F><EFBFBD><EFBFBD>֏<EFBFBD>֏<EFBFBD>                <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԏ<EFBFBD><D48F><EFBFBD><EFBFBD>ԏ<EFBFBD><D48F><EFBFBD><EFBFBD><EFBFBD>                <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԏ<EFBFBD>ԏ<EFBFBD><D48F>   <20><>ԏ<EFBFBD><D48F>                <20><>ԏ<EFBFBD><D48F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>   <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>                <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֏<EFBFBD><D68F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԏ<EFBFBD>ԏ<EFBFBD><D48F><EFBFBD><EFBFBD><EFBFBD>                <20><>ԏ<EFBFBD>ԏ<EFBFBD><D48F><EFBFBD><EFBFBD>ԏ<EFBFBD><D48F><EFBFBD><EFBFBD>ԏ<EFBFBD>ԏ<EFBFBD><D48F>                                                        G A M E     S Y S T E M                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 <07><07><07><01><07>x<08><><EFBFBD>xxxx<07>x<0F><><EFBFBD>xxxxxx<0F>xxx<07>x<0C>				<0F>
--- a/tools/fontedit.lua
+++ b/tools/fontedit.lua
@@ -0,0 +1,65 @@
+function init()
+    mode(1)
+    sel = 127
+end
+
+clicked=false
+mx,my=0,0
+function update()
+    color(0,7)
+    cls()
+
+    color(8,0)
+    for y=0,15 do
+        for x=0,15 do
+            print(chr(x+y*16),x+1,y+1)
+        end
+    end
+    poke(1200+((sel%16)+1+(flr(sel/16)+1)*40),15)
+    
+    drawchar(sel,19,1)
+
+    if mousebutton(1) then
+        if mousex()>=1 and mousey()>=1 and mousex()<=16 and mousey()<=16 then
+            sel = mousex()-1+(mousey()-1)*16
+        elseif mousex()>=19 and mousey()>=1 and mousex()<=26 and mousey()<=8 then
+            if not clicked or mousex()~=mx or mousey()~=my then
+                clicked,mx,my=true,mousex(),mousey()
+                local pos = 2560+sel*8+(mousey()-1)
+                local bit = 1 << (7-(mousex()-19))
+                local value = peek(pos)
+                poke(pos, value ~ bit)
+            end
+        end
+    else
+        clicked = false
+    end
+
+    if btnp(KEY_S) then
+        local pos = 2560+sel*8
+        local string = "setchar("..sel..","..peek(pos)..","..peek(pos+1)..","..peek(pos+2)..","..peek(pos+3)..","..peek(pos+4)..","..peek(pos+5)..","..peek(pos+6)..","..peek(pos+7)..")"
+        toclipboard(string)
+    end
+
+    ink(4)
+    print("\143",mousex(), mousey())
+end
+
+function drawchar(char,x,y)
+    color(15,0)
+    local pos = 2560+char*8
+    for i=1,8 do
+        local val = peek(pos)
+        print("        ",x,y)
+        if val&1==1 then print("\143",x+7,y) end
+        if val&2==2 then print("\143",x+6,y) end
+        if val&4==4 then print("\143",x+5,y) end
+        if val&8==8 then print("\143",x+4,y) end
+        if val&16==16 then print("\143",x+3,y) end
+        if val&32==32 then print("\143",x+2,y) end
+        if val&64==64 then print("\143",x+1,y) end
+        if val&128==128 then print("\143",x,y) end
+        y=y+1
+        pos=pos+1
+    end
+end
--- a/tools/mapedit.lua
+++ b/tools/mapedit.lua
@@ -1,13 +1,11 @@
-ind = 22
 function init()
-    setmode(2)
+    mode(2)
    map = {}
    col = {}
    for i=0,299 do
        map[i] = 32
        col[i] = 0x0f
    end
-    map[ind] = 65
    sel_col = 0x0f
    sel_chr = 65
 end
@@ -76,10 +74,17 @@ function draw_map()
        map[mx+my*20] = sel_chr
        col[mx+my*20] = sel_col
    end
+    if mousebutton(3) then
+        col[mx+my*20] = sel_col
+    end
    if btn(KEY_SPACE) then
        sel_chr = peek(mx+my*20)
        sel_col = peek(300+mx+my*20)
    end
+    if btnp(KEY_UP) then for i=20,299 do map[i-20]=map[i]col[i-20]=col[i] end end
+    if btnp(KEY_DOWN) then for i=279,0,-1 do map[i+20]=map[i]col[i+20]=col[i] end end
+    if btnp(KEY_LEFT) then for i=0,298 do map[i]=map[i+1]col[i]=col[i+1] end end
+    if btnp(KEY_RIGHT) then for i=299,1,-1 do map[i]=map[i-1]col[i]=col[i-1] end end

    blink = blink - 1
    if blink < 30 then
@@ -88,4 +93,15 @@ function draw_map()
        local c = peek(300+(mx+my*20))
        poke(300+(mx+my*20), c~0xff)
    end
+
+    if btn(KEY_S) then
+		fileout("map.bin", 0, 600);
+	elseif btn(KEY_L) then
+		filein("map.bin", 0, 600);
+		for i=0,299 do
+			map[i] = peek(i)
+			col[i] = peek(300+i)
+		end
+	end
+
 end
--- a/tools/music.lua
+++ b/tools/music.lua
@@ -0,0 +1,243 @@
+function init()
+    mode(1)
+    setchar(94, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
+    piano = { "_____", "\143\143\143\154\154", "     ", "\143\143\143\154\154", "^^^^^", "_____",
+        "\143\143\143\154\154", "     ", "\143\143\143\154\154", "     ", "\143\143\143\154\154", "^^^^^" }
+    notes = {"C ", "C#", "D ", "D#", "E ", "F ", "F#", "G ", "G#", "A ", "A#", "B "}
+    pnotes = {"c", "c#", "d", "d#", "e", "f", "f#", "g", "g#", "a", "a#", "b"}
+    vcolor = { 1, 9, 5, 4, 6, 12, 14, 15}
+
+    piano_pos=18
+    mousewait=0
+    compas = 0
+    compasos = {}
+    volumens = {}
+    volum = 4
+    tempo = 4
+    for i=0,1279 do compasos[i] = 108 end
+    for i=0,1279 do volumens[i] = 4 end
+    compasos[0] = 49
+    compasos[1] = 49
+    compasos[2] = 49
+    compasos[7] = 50
+    compasos[8] = 50
+    compasos[9] = 50
+    compasos[10] = 50
+
+    old_mouse_x,old_mouse_y = 0,0
+    message_count = 255
+    message_text = "                  HOLA"
+end
+
+function update()
+    color(COLOR_WHITE, COLOR_BLACK)
+    cls()
+    ink(COLOR_BLACK)
+    for i=0,39 do
+        if (i==compas) then paper(COLOR_LIGHT_RED) else paper(COLOR_LIGHT_GRAY) end
+        print("___\003",(i%10)*4,flr(i/10)+5)
+    end
+
+    if mousebutton(1) and mousey()<=8 and mousey()>=5 then
+        compas = flr(mousex()/4)+(mousey()-5)*10
+    end
+
+    for i=0,11 do
+        local k = 11-i
+        local pos = ((piano_pos+i)%12)+1
+        local oct = flr((piano_pos+i)/12)+1
+        color(COLOR_WHITE, COLOR_BLACK)
+        print(notes[pos], 1, 10+k)
+        color(COLOR_BLACK, COLOR_WHITE)
+        print(piano[pos], 3, 10+k)
+        color(COLOR_BLACK, COLOR_LIGHT_GRAY+flr(oct%2))
+        print("_______\003_______\003_______\003_______\003", 8, 10+k)
+        color(COLOR_BLACK, oct)
+        if pos==6 then
+            print(tostr(oct), 0, 10+k)
+        else
+            print(" ", 0, 10+k)
+        end
+    end
+
+    piano_pos = mid(0, piano_pos+mousewheel(), 96)
+
+    if mousewait>0 then mousewait=mousewait-1 end
+    if mousebutton(1) and mousewait==0 then
+        if mousex()<8 and mousey()>=10 and mousey()<=21 then
+            local note = piano_pos+(11-(mousey()-10))
+            play("l4o"..tostr(note/12)..pnotes[(note%12)+1])
+            mousewait=10
+        end
+    end
+
+    for i=0,31 do
+        local n = compasos[(compas*32)+i]
+        if n>=piano_pos and n<=piano_pos+11 then
+            if i>0 and n~=compasos[(compas*32)+i-1] then
+                local oct = flr(n/12)+1
+                color(COLOR_BLACK, COLOR_LIGHT_GRAY+flr(oct%2))
+                print("\003",7+i,10+11-(n-piano_pos))
+            end
+            color(COLOR_BLACK,vcolor[volumens[(compas*32)+i]])
+            if i==31 or compasos[(compas*32)+i+1]~=n then
+                print("\003",8+i,10+11-(n-piano_pos))
+            else
+                print("_",8+i,10+11-(n-piano_pos))
+            end
+        end
+    end
+
+    if mousex()>=8 and  mousey()>=10 and mousey()<=21 then
+        if mousebutton(1) then
+            volumens[(compas*32)+mousex()-8] = volum
+            compasos[(compas*32)+mousex()-8] = piano_pos+11-(mousey()-10)
+            if old_mouse_x ~= mousex() or old_mouse_y ~= mousey() then
+                local note = piano_pos+11-(mousey()-10)
+                play("l4v"..volum.."o"..tostr(note/12)..pnotes[(note%12)+1])
+            end    
+            old_mouse_x,old_mouse_y = mousex(),mousey()
+        else
+            old_mouse_x,old_mouse_y = 0,0
+            if mousebutton(3) then
+                compasos[(compas*32)+mousex()-8] = 108
+            end
+        end
+    end
+
+    if btnp(KEY_RETURN) then
+        if btn(KEY_LSHIFT) then
+            play_song(true)
+        else
+            play_song()
+        end
+    end
+
+    if btn(KEY_LCTRL) and btnp(KEY_S) then
+        local song = prepare_song(true)
+        toclipboard(song)
+        show_message("SAVED TO CLIPBOARD")
+    end
+
+--    if btn(KEY_LSHIFT) and btnp(KEY_L) then
+--        local song = prepare_song(true)
+--        toclipboard(song)
+--        show_message("SAVED TO CLIPBOARD")
+--    end
+
+    color(15,0)print("VOLUM:",0,0)
+    color(1,0)print("\143",0,1)
+    color(9,0)print("\143",1,1)
+    color(5,4)print("\143",2,1)
+    color(4,0)print("\143",3,1)
+    color(6,0)print("\143",4,1)
+    color(12,0)print("\143",5,1)
+    color(14,0)print("\143",6,1)
+    color(15,0)print("\143",7,1)
+    color(15,0)print("\244",volum-1,2)
+
+    if mousex()<8 and mousey()==1 and mousebutton(1) then
+        volum = mousex()+1
+    end
+
+    if not mousedown and mousex()==20 and mousey()==1 and mousebutton(1) and tempo > 0 then
+        tempo = tempo - 1
+        mousedown = true
+    end
+
+    if not mousedown and mousex()==24 and mousey()==1 and mousebutton(1) and tempo < 9 then
+        tempo = tempo + 1
+        mousedown = true
+    end
+
+    if mousedown and not mousebutton(1) then
+        mousedown = false
+    end
+
+    color(15,0)print("TEMPO",20,0)
+    print("\247 0 \246",20,1)
+    print(tostr(tempo),22,1)
+
+    if message_count > 0 then
+        message_color = 15
+        if message_count < 18 then
+            message_color = message_count>>1
+        end
+        color(message_color,0)print(message_text,0,26)
+        message_count = message_count - 1
+    end
+end
+
+function show_message(text)
+    message_count = 255
+    message_text = text
+end
+
+function search_song_end()
+    local i = 1279
+    while i>0 and compasos[i] == 108 do i=i-1 end
+    return i+1
+end
+
+function play_song(entire_song)
+    local song = prepare_song(entire_song)
+    log(song)
+    play(song)
+end
+
+function prepare_song(entire_song)
+    entire_song = entire_song or false
+    local note_size = {1,2,3,4,6,8,12,16,24,32}
+    local note_names = {"c","c#","d", "d#","e","f","f#","g","g#","a","a#","b"}
+    local song = ""
+
+    local current_note = 255
+    local current_octave = 4
+    local current_volume = 4
+
+    local p=compas*32
+    local ends=32+compas*32
+
+    if tempo ~= 4 then
+        song = "t"..tostr(tempo)
+    end
+
+    if entire_song then
+        p=0
+        ends=search_song_end()
+    end
+
+    while p<ends do
+        current_note = compasos[p]
+        if volumens[p] ~= current_volume then
+            current_volume = volumens[p]
+            song=song.."v"..tostr(current_volume)
+        end
+        local d=0
+        while d<32 and current_note == compasos[p] and current_volume == volumens[p] do d=d+1 p=p+1 end
+        local o = flr(current_note/12)
+        if o<9 and current_octave~=o then
+            current_octave=o
+            song=song.."o"..tostr(o)
+        end
+        local n = current_note%12
+        local note = note_names[n+1]
+        while d>0 do
+            local i=1
+            while d>note_size[i] do i=i+1 end
+            if note_size[i]>d then i=i-1 end
+            d=d-note_size[i]
+            if current_length~=i-1 then
+                current_length = i-1
+                song=song.."l"..tostr(i-1)
+            end
+            if o<9 then
+                song=song..note
+            else
+                song=song.."r"
+            end
+        end
+    end
+
+    return song
+end
--- a/tools/scredit.lua
+++ b/tools/scredit.lua
@@ -1,6 +1,6 @@
 ind = 22
 function init()
-    setmode(1)
+    mode(1)
    map = {}
    col = {}
    for i=0,1199 do
@@ -85,6 +85,11 @@ function draw_map()
        sel_col = peek(1200+mx+my*40)
    end

+    if btnp(KEY_UP) then for i=40,1199 do map[i-40]=map[i]col[i-40]=col[i] end end
+    if btnp(KEY_DOWN) then for i=1159,0,-1 do map[i+40]=map[i]col[i+40]=col[i] end end
+    if btnp(KEY_LEFT) then for i=0,1198 do map[i]=map[i+1]col[i]=col[i+1] end end
+    if btnp(KEY_RIGHT) then for i=1199,1,-1 do map[i]=map[i-1]col[i]=col[i-1] end end
+
    blink = blink - 1
    if blink < 30 then
        if blink==0 then blink = 60 end
--- a/tools/spritedit.lua
+++ b/tools/spritedit.lua
@@ -0,0 +1,84 @@
+function init()
+    ink_color = 15
+    paper_color = 0
+    setchar(0,0xff,0x81,0x81,0x81,0x81,0x81,0x81,0xff)
+    sprite={0x18,0x18,0x18,0x18,0x18,0x18,0x18,0x18,0x81,0x81,0x81,0x81,0x81,0x81,0x81,0x81,0xc0,0xc0,0xc0,0xc0,0xc0,0xc0,0xc0,0xc0,0x03,0x03,0x03,0x03,0x03,0x03,0x03,0x03}
+end
+
+function update()
+    color(15,1)
+    cls()
+    color(ink_color,paper_color)
+    drawbigspr(sprite,1,1)
+    drawspr(sprite,65)
+    print("AB",18,1) print("CD",18,2)
+
+    for i=0,15 do
+        color(0,i)
+        poke(721+i,0) poke(1921+i,i<<4)
+        poke(761+i,0) poke(1961+i,i<<4)
+    end
+
+    poke(1921+ink_color, peek(1921+ink_color)+4)
+    poke(1961+paper_color, peek(1961+paper_color)+4)
+    
+    if mousebutton(1) and mousex()>=1 and mousey()>=18 and mousex()<=16 and mousey()<=19 then
+        if mousey()==18 then
+            ink_color = mousex()-1
+        else
+            paper_color = mousex()-1
+        end
+    end
+
+    handlesprmouse()
+end
+
+mousepressed = false
+mousepos = {x=-1,y=-1}
+function handlesprmouse()
+    local mx,my=mousex(),mousey()
+    if mx>=1 and my>=1 and mx<=16 and my<=16 then
+        if mousebutton(1) then
+            if (not mousepressed or (mousepos.x ~= mx or mousepos.y ~= my)) then
+                mousepressed = true mousepos.x = mx mousepos.y = my
+                local quadrant = flr((mx-1)/8)+flr((my-1)/8)*2
+                local x=(mx-1)%8
+                local y=(my-1)%8
+                local val = sprite[quadrant*8+y+1]
+                val = val ~ (1<<(7-x))
+                sprite[quadrant*8+y+1] = val
+            end
+        else
+            mousepressed = false
+        end
+    end
+end
+
+function drawbigspr(spr,x,y)
+    drawbigsprchr(spr,0,x,y)
+    drawbigsprchr(spr,1,x+8,y)
+    drawbigsprchr(spr,2,x,y+8)
+    drawbigsprchr(spr,3,x+8,y+8)
+end
+
+function drawbigsprchr(spr,chr,x,y)
+    local pos = 1+chr*8
+    for i=1,8 do
+        local val = spr[pos]
+        print("        ",x,y)
+        if val&1==1 then print("\143",x+7,y) end
+        if val&2==2 then print("\143",x+6,y) end
+        if val&4==4 then print("\143",x+5,y) end
+        if val&8==8 then print("\143",x+4,y) end
+        if val&16==16 then print("\143",x+3,y) end
+        if val&32==32 then print("\143",x+2,y) end
+        if val&64==64 then print("\143",x+1,y) end
+        if val&128==128 then print("\143",x,y) end
+        y=y+1
+        pos=pos+1
+    end
+end
+
+function drawspr(spr,chr)
+    for i=0,31 do poke(i+2560+chr*8,spr[i+1]) end
+end
--- a/tweetcarts/matrix.lua
+++ b/tweetcarts/matrix.lua
@@ -0,0 +1,11 @@
+q=1200
+h={}for i=0,q do poke(i,rnd(99))end
+function t(a)poke(q+p,a)p=(p-40)%q end
+function update()srand(1)for i=0,39 do
+h[i]=(h[i] or rnd(30))+(1/(rnd(5)+2))p=i+(flr(h[i])%30)*40
+t(15)t(14)
+for j=0,5 do t(10)end
+for j=0,5 do t(2)end
+t(8)t(0)
+end
+end
Author	SHA1	Message	Date
JailDoctor	b2a96309e5	[v0.6.1] - Restablert el exemplet de game.lua - Ficat Makefile per a tots, falta provar el de mac - Bàsicament, açò es per fer una release de binaris (fill de osiris).	2023-09-07 10:46:38 +02:00
JailDoctor	b0446f40a1	Merge branch 'master' of https://gitea.sustancia.synology.me/JailDoctor/ascii	2023-09-07 10:35:50 +02:00
Raimon Zamora	3b4501aaec	- Treballant en el editor de codi	2023-07-10 22:01:39 +02:00
JailDoctor	fca1172162	Merge branch 'master' of https://gitea.sustancia.synology.me/JailDoctor/ascii	2023-01-08 09:10:02 +01:00
JailDoctor	9d2a0801e1	Merge branch 'master' of https://gitea.sustancia.synology.me/JailDoctor/ascii	2023-01-08 09:09:41 +01:00
JailDoctor	41f539578a	- Volume changing - Message system - Tempo changing - Save to clipboard	2023-01-08 09:09:27 +01:00
JailDoctor	dd7e3de890	Merge branch 'master' of https://gitea.sustancia.synology.me/JailDoctor/ascii	2023-01-08 08:36:57 +01:00
JailDoctor	785a51ac98	Update 'readme.md'	2022-12-11 12:25:00 +01:00
JailDoctor	9ed4118250	Update 'readme.md'	2022-12-11 12:24:07 +01:00
JailDoctor	5c0758354c	Update 'readme.md'	2022-12-11 12:21:43 +01:00
JailDoctor	3abd22f150	Update 'readme.md'	2022-12-11 12:21:13 +01:00
JailDoctor	cde75e2557	Update 'readme.md'	2022-12-11 12:17:25 +01:00
JailDoctor	4733a66fc0	Update 'readme.md'	2022-12-11 12:15:58 +01:00
JailDoctor	b3f59e9175	Add 'readme.md'	2022-12-11 12:12:32 +01:00
Raimon Zamora	ffb4875605	Merge branch 'master' of https://gitea.sustancia.synology.me/JailDoctor/ascii	2022-12-07 15:45:46 +01:00
Raimon Zamora	50842cf9c9	[WIP] some demos	2022-12-07 15:45:16 +01:00
Sergio Valor Martínez	61f3c385c0	Merge branch 'master' of https://gitea.sustancia.synology.me/JailDoctor/ascii	2022-10-18 20:09:57 +02:00
Sergio Valor Martínez	af3b04f0ab	Añadido Makefile	2022-10-18 20:09:40 +02:00
JailDoctor	b09360d7ae	Run a game by dropping the file on the window	2022-07-27 18:25:45 +02:00
Raimon Zamora	fa85d3cb34	added chuleta	2022-05-04 15:12:12 +02:00
JailDoctor	3dfa177cd2	[FIX] Wrong color screen address for mode 3	2022-02-21 16:43:57 +01:00
JailDoctor	a349cf5c0c	v0.6.0 [FEAT] New mode(3) with 32x24 characters	2022-02-21 16:38:26 +01:00
Raimon Zamora	f889faa472	Tools updated	2022-02-18 17:23:22 +01:00
Raimon Zamora	743fd2b8cc	Sokoban progress	2021-12-20 19:07:25 +01:00
Raimon Zamora	841f4f66f3	[FEAT] cnt() i rst()	2021-12-20 18:15:39 +01:00
Raimon Zamora	82bebe3eeb	Added sokoban WIP to demos	2021-12-20 10:46:18 +01:00
Raimon Zamora	c52687f0eb	[FIX] If mouse outside window or in border, mouse_x & mouse_y no longer update	2021-12-17 16:50:32 +01:00
Raimon Zamora	97daca8097	[FIX] Some 'setmode's remained in C code	2021-12-17 16:45:27 +01:00
Raimon Zamora	64bcedd82f	[CHANGED] 'setmode' renamed to 'mode'	2021-12-17 16:43:06 +01:00
Raimon Zamora	fe9f4fed9c	Afegida la demo del efecte matrix i el tweetcart equivalent	2021-12-17 16:40:09 +01:00
JailDoctor	56f2e202e8	[WIP] Defender clone	2021-12-15 19:58:58 +01:00
JailDoctor	9b1573be9d	Code editor WIP	2021-12-15 19:24:56 +01:00
Raimon Zamora	11bb1b5283	Code Editor WIP	2021-12-15 12:16:36 +01:00
JailDoctor	acfaf873ce	Code Editor WIP	2021-12-14 20:09:23 +01:00
Raimon Zamora	be083a23e2	[FEAT] New terminal console system	2021-12-14 15:59:14 +01:00
Raimon Zamora	63ca77e3e6	New console system WIP	2021-12-14 12:42:09 +01:00
JailDoctor	3979588f85	[FEATURE] toclipboard & fromclipboard	2021-12-13 20:02:17 +01:00
JailDoctor	1618665124	[CHANGE] tostr() now accepts any type	2021-12-13 19:38:02 +01:00
Raimon Zamora	527ab8bf01	[CHANGE] cls() sets cursor to (0,0)	2021-12-13 18:41:01 +01:00
JailDoctor	62c513db56	[FEAT] crlf	2021-12-13 16:14:26 +01:00
JailDoctor	e5798f4b71	[CHANGE] Print jumps to next line if needed	2021-12-13 15:09:30 +01:00
JailDoctor	788c5d6c6e	[FEAT] substr	2021-12-13 14:52:38 +01:00
Raimon Zamora	0421f7f154	Music tool WIP	2021-12-13 10:44:38 +01:00
JailDoctor	f11adb0557	added tetris (WIP)	2021-12-12 13:09:22 +01:00
JailDoctor	3b7dd252ab	Added demos and tools (WIP)	2021-12-12 12:53:22 +01:00
				`@@ -0,0 +1 @@`
				֏<><D68F><EFBFBD><EFBFBD>֏<EFBFBD><D68F><EFBFBD><EFBFBD>֏<EFBFBD><D68F><EFBFBD><EFBFBD>֏<EFBFBD>֏<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԏ<EFBFBD><D48F><EFBFBD><EFBFBD>ԏ<EFBFBD><D48F><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԏ<EFBFBD>ԏ<EFBFBD><D48F> <20><>ԏ<EFBFBD><D48F> <20><>ԏ<EFBFBD><D48F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֏<EFBFBD><D68F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԏ<EFBFBD>ԏ<EFBFBD><D48F><EFBFBD><EFBFBD><EFBFBD> <20><>ԏ<EFBFBD>ԏ<EFBFBD><D48F><EFBFBD><EFBFBD>ԏ<EFBFBD><D48F><EFBFBD><EFBFBD>ԏ<EFBFBD>ԏ<EFBFBD><D48F> G A M E S Y S T E M <07><07><07><01><07>x<08><><EFBFBD>xxxx<07>x<0F><><EFBFBD>xxxxxx<0F>xxx<07>x<0C> <0F>