Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
#include <atari.h>
#include <stdio.h>
#include <peekpoke.h>
#include "atari_defs.h"
#define SCREEN_SIZE 40
unsigned char *video_ptr;
unsigned char chars;
unsigned char screen1[1024] = {0x40,0x00,0x00,0x00,0x00,0x00,0x00,0x03,0x05,0x05,0x15,0x15,0xD5,0x57,0x54,0x54,0x50,0x40,0x40,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0D,0x01,0x01,0x00,0x00,0x00,0x00,0x00,0x50,0x50,0x54,0x54,0x55,0xD5,0x15,0x35,0x00,0x00,0x00,0x00,0x00,0x00,0x40,0x40,0x00,0x00,0x00,0x01,0x0D,0x05,0x15,0x55,0x15,0xD5,0x55,0x54,0x55,0x55,0x55,0x57,0x40,0xC0,0x03,0x15,0x55,0x55,0x50,0x00,0x00,0x0D,0x55,0x55,0x57,0x40,0x00,0x00,0x35,0x55,0x55,0x57,0x00,0x00,0x00,0x00,0x55,0x55,0x57,0x00,0x00,0x00,0x00,0x00,0x55,0x55,0x00,0x00,0x00,0x00,0x00,0x05,0x55,0x57,0x00,0x00,0x03,0x05,0x55,0x55,0x55,0x55,0x01,0x35,0x55,0x55,0x58,0x40,0x55,0x55,0x55,0x55,0x50,0x00,0x00,0x00,0x55,0x55,0x7D,0x00,0x00,0x00,0x00,0x00,0x55,0x55,0x55,0x05,0x00,0x00,0x00,0x00,0x5C,0x5C,0x55,0x55,0x35,0x00,0x00,0x00,0x00,0x00,0x70,0x57,0x55,0x55,0x0D,0x00,0x00,0x00,0x00,0x00,0x50,0x57,0x55,0xD5,0x00,0x00,0x00,0x00,0x00,0x00,0x50,0x57,0x01,0x01,0x01,0x0D,0x0D,0x05,0x05,0x05,0x5C,0x50,0x50,0x50,0x70,0x70,0x40,0x40,0x05,0x01,0x01,0x00,0x00,0x00,0x00,0x03,0x50,0x5C,0x54,0x57,0xD5,0x15,0x15,0x55,0x00,0x00,0x01,0x35,0x55,0x55,0x5C,0x50,0x0D,0x15,0x55,0x55,0x55,0x15,0x15,0x55,0x55,0x57,0x5C,0x50,0x70,0x40,0x00,0x00,0x70,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0D,0x15,0x00,0x00,0x00,0x03,0x05,0x55,0x55,0x54,0x00,0x01,0x15,0x55,0x55,0x5C,0xC0,0x00,0xD5,0x55,0x57,0x70,0x00,0x00,0x00,0x00,0x54,0x40,0x00,0x00,0x00,0x00,0x00,0x00,0x0D,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x55,0xD5,0x05,0x00,0x00,0x00,0x00,0x00,0x40,0x5C,0x55,0x55,0x15,0x01,0x00,0x00,0x05,0x35,0x15,0x15,0x15,0x15,0x15,0x15,0x40,0x40,0xC0,0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x03,0x05,0x15,0x00,0x00,0x01,0x05,0x95,0x55,0x54,0x50,0x05,0xD5,0x55,0x54,0x50,0xC0,0x00,0x00,0x55,0x53,0xC0,0x00,0x00,0x00,0x00,0x00,0x5C,0x55,0x55,0x15,0x15,0x35,0x15,0x15,0x54,0x54,0x50,0x50,0x70,0x50,0x5C,0x54,0x00,0x00,0x00,0x00,0x00,0x03,0x05,0x55,0x00,0x00,0x00,0x0D,0x15,0x55,0x55,0x50,0x01,0x35,0x55,0x55,0x54,0x40,0x00,0x00,0x55,0x57,0x50,0xC0,0x00,0x00,0x00,0x00,0x15,0x15,0x15,0x15,0x15,0x15,0x15,0x15,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xC0,0x00,0x00,0x00,0x00,0x01,0x05,0x15,0x55,0x00,0x01,0x35,0xD5,0x55,0x54,0x50,0x40,0x55,0x57,0x58,0x40,0x00,0x00,0x00,0x00,0x40,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x03,0x03,0x01,0x01,0x05,0xD5,0xD5,0x57,0x54,0x55,0x55,0x55,0x55,0x50,0x55,0x15,0x55,0x55,0x5D,0x40,0x00,0x00,0x55,0x54,0x50,0x50,0x54,0x57,0xD5,0x15,0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x40,0x15,0x35,0x05,0x05,0x05,0x05,0x0D,0x0D,0xC0,0x40,0x40,0x40,0x40,0x40,0x70,0x50,0x01,0x05,0x15,0x55,0x55,0x54,0x50,0x40,0x55,0x54,0x50,0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x05,0x00,0x00,0x00,0x01,0x05,0xD5,0x55,0x54,0x01,0x05,0xD5,0x55,0x54,0x50,0xC0,0x00,0x55,0x55,0x55,0xD5,0x15,0x15,0xD5,0xD5,0x40,0x40,0x40,0xC0,0x00,0x00,0x00,0x00,0x05,0x01,0x01,0x00,0x00,0x00,0x00,0x00,0x50,0x54,0x57,0x55,0x15,0x05,0x09,0x03,0x00,0x00,0x00,0x00,0x40,0x50,0x54,0x57,0x01,0x01,0x01,0x03,0x00,0x00,0x00,0x00,0x50,0x50,0x5C,0x54,0x54,0x54,0xD5,0x15,0x00,0x00,0x00,0x00,0x00,0x01,0x05,0x15,0x01,0x05,0x35,0xD5,0x55,0x54,0x50,0x40,0x55,0x54,0x50,0x40,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x03,0x00,0x01,0x05,0x15,0x55,0x54,0x50,0x40,0xD5,0x55,0x54,0x50,0xC0,0x00,0x00,0x00,0x50,0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x03,0x03,0x55,0x57,0x54,0x54,0x54,0x54,0x54,0x54,0x55,0x15,0x05,0x01,0x03,0x00,0x00,0x00,0x80,0x40,0x50,0x54,0x55,0x55,0x15,0x05,0x00,0x00,0x00,0x00,0x00,0xC0,0x40,0x50,0x15,0x35,0x05,0x05,0x0D,0x01,0x01,0x00,0x00,0x40,0x40,0x70,0x50,0x50,0x5C,0x54,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x0D,0x00,0x03,0x09,0x05,0x15,0x55,0x57,0x54,0x55,0x57,0x54,0x50,0x40,0x00,0x00,0x00,0xC0,0x00,0x00,0x00,0x00,0x00,0x01,0x05,0x00,0x00,0x00,0x01,0x35,0xD5,0x55,0x54,0x0D,0x15,0x55,0x55,0x5C,0x70,0x00,0x00,0x57,0x50,0x40,0x00,0x00,0x00,0x00,0x00,0x01,0x03,0x01,0x01,0x01,0x01,0x01,0x01,0x54,0x54,0x5C,0x5C,0x5C,0x5C,0x5C,0x5C,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x54,0x55,0xD5,0x35,0x05,0x01,0x00,0x00,0x00,0x00,0xC0,0x70,0x5C,0x57,0x55,0x15,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x40,0x57,0xD5,0x15,0x35,0x05,0x05,0x01,0x03,0x00,0x00,0xC0,0x40,0x70,0x50,0x58,0x54,0x00,0x00,0x00,0x03,0x0D,0x05,0x15,0x55,0x05,0x15,0x55,0x57,0x5C,0x50,0x40,0x00,0x50,0x40,0x00,0x00,0x00,0x01,0x05,0x15,0x00,0x00,0x09,0x35,0xD5,0x55,0x54,0x50,0x15,0x55,0x57,0x5C,0x40,0x00,0x00,0x00,0x50,0x40,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x01,0x01,0x03,0x03,0x03,0x00,0x00,0x5C,0x5C,0x5C,0x54,0x54,0x54,0x54,0x54,0x05,0x0D,0x03,0x00,0x00,0x00,0x00,0x00,0x50,0x54,0x55,0x55,0x15,0x05,0x01,0x00,0x00,0x00,0x00,0xC0,0x70,0x50,0x54,0x55,0x57,0x55,0x15,0x35,0x05,0x0D,0x01,0x03,0x00,0x00,0xC0,0x40,0x70,0x50,0x5C,0x54,0x03,0x01,0x05,0x15,0xD5,0x55,0x54,0x50,0x57,0x54,0x50,0x40,0xC3,0x0D,0x35,0x55,0x55,0x57,0x5C,0x40,0x00,0x00,0x00,0x00,0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x54,0x54,0x54,0x57,0xD5,0xD5,0x15,0x15,0x95,0x35,0x05,0x01,0x00,0x00,0x00,0x00,0x40,0x70,0x5C,0x57,0x55,0x15,0x05,0x0D,0x00,0x00,0x00,0x00,0x00,0x40,0x50,0x54,0x00,0x00,0x00,0x00,0x00,0x01,0x09,0x05,0x05,0x05,0x15,0x55,0x55,0x54,0x50,0x50};
extern char font_base;
void set_colors()
{
POKE(COLOR1,0xFF);
POKE(COLOR2,0);
}
void set_font()
{
POKE(CHBAS,((unsigned int) &font_base)/256);
}
void draw_image()
{
unsigned char y = 1;
for (chars=0;chars<sizeof(screen1);chars++) {
video_ptr[chars]=screen1[chars];
}
}
int main(void)
{
_graphics(0);
set_font();
video_ptr=(unsigned char*)(PEEKW( PEEKW(560)+4 ));
draw_image();
for(;;)
{
}
return 0;
}
Od 1 do 27 z 27