* /agenda/ - Miracle Browser 2-DO list. 18 pages worth. Ideas that haven't been implemented
* /tutorial/ - Example tutorial: Programming in C. 15 pages that reuse the same menu.
* /theme/ - Custom themes: browser.theme=blue.
* image - Miracle .IMAGE file format
* /food/ - Example site template with food recipes
* /animal/ - Example page of animals with audio: play 'my.wav'
* /games/, /videos/ - How to create a custom launcher, or an image gallery, or a page that reviews or sells games, movies, or any products
* /media/ - Some outline fonts ending with 'o'. Example: 'radio/64o', 'block/64o', 'cartoon/80o'. .FONT opens with miracle.exe.    

* Inclusion: use 'file'. Now, a title and/or menu can be
created once for an entire site, and it's reusable by all pages.
* Themes. Pages can customize interface colors: browser.theme=name
* Cursors: Set page.cursor='my.cur' or .ani/mated
* Audio: play 'my.wav', or: play loop 'my.wav'
* Link text boxes: t.link='name'. For buttons
* Link multiple images in a gallery with image.link and image.search
* Drag and drop filename from explorer. Minimize browser first
* "Open With..." .FONT, .IMAGE, .SOUL, .USE, .CODE. Languages: .C/H,
.CPP/HPP, .ASM/INC, .BAT, .PY (Python), .HTML/CSS/JS
* code.language='bat' for batch files. Recognizes both comment styles,
"rem comment" and "::comment". Drag any BAT onto miracle.exe to open with.    

@miracle/media/font/name/n
@page/name/n
@page/font/name/n
@page/../font/name/n
@page/../../font/name/n
@page/media/font/name/n
@page/../media/font/name/n
@page/../../media/font/name/n    

www.starpow3r.net
www.starpow3r.net/fasm.soul
www.starpow3r.net/text.soul
www.starpow3r.net/loop.soul
www.starpow3r.net/text.h
www.starpow3r.net/text.inc    

style code
  font='code/24', display=sequence, language='asm', w=410
end

text example.asm=
  '; Assembler\r'
  '\r'
  'rgb12:\r'
  '  and eax, 1111b\r'
  '  shl eax, 8\r'
  '  and ecx, 1111b\r'
  '  shl ecx, 4\r'
  '  or eax, ecx\r'
  '  and edx, 1111b\r'
  '  or eax, edx\r'
  'ret\r'
  '\r'
  'db "Example", 0'

uint i=36

text themes[i]=
  'white', 'white2', 'white3', 'gray',
  'black', 'black2', 'black3', 'black4',
  'black5', 'black6', 'black7', 'black8',
  'galaxy', 'galaxy2', 'galaxy3', 'galaxy4',
  'night', 'night2', 'night3', 'night4',
  'dark', 'dark2', 'dark3', 'dark4',
  'purple', 'purple2', 'purple3', 'purple4',
  'blue', 'blue2', 'blue3', 'blue4',
  'void', 'grayscale', 'vampire', 'alien'

loop i
  code.theme=themes[i]
  <code><?example.asm><>
  every 4, <r>, end
end
<r>    

www.starpow3r.net/links.soul
www.starpow3r.net/languages.soul
www.starpow3r.net/solutions.soul    

www.starpow3r.net/forum.soul
www.starpow3r.net/message.soul    

// WinSock definitions for TinyC

typedef struct {
  uintw wVersion, wHighVersion;
  byte szDescription[256+1], szSystemStatus[128+1];
  uint iMaxSockets, iMaxUdpDg;
  byte align[2];
  uint lpVendorInfo;
} WSADATA;

struct hostent {
  char *h_name, **h_aliases;
  intw h_addrtype, h_length;
  char **h_addr_list;
  #define h_addr h_addr_list[0]
};

struct sockaddr {
  uintw sa_family;
  byte sa_data[14];
};

struct sockaddr_in {
  uintw sin_family, sin_port;
  char *sin_addr;
  byte sin_zero[8];
};

struct addrinfo {
  int ai_flags;
  int ai_family;
  int ai_socktype;
  int ai_protocol;
  struct socklen_t ai_addrlen;
  struct sockaddr *ai_addr;
  char *ai_canonname;
  struct addrinfo *ai_next;
};

struct hostent *hoste;
struct sockaddr_in socketa;

enum {
  SOCK_STREAM=1, SOCK_DGRAM=2, SOCK_RAW=3, SOCK_RDM=4,
  SOCK_CONN_DGRAM=5, SOCK_PACKET=10, AF_INET=2, AF_INET6=4,
  INVALID_SOCKET=-1, SOCKET_ERROR=-1, TCP=6, UDP=17,
  IPPROTO_TCP=6, IPPROTO_UDP=17, IPPORT_FTP=21,
  IPPORT_SMTP=25, IPPORT_NAMESERVER=42, IPPORT_WHOIS=43,
  IPPORT_MTP=57, IPPORT_TFTP=69
};

#define HTONS(n) (((n>>8)&0xFF)|((n<<8)&0xFF00))

// WinSock functions

HMODULE wsock32_dll;

typedef int (*IMPORTiup)(uint,void*);
typedef int (*IMPORTi)();

IMPORTiup WSAStartup;
IMPORTi WSACleanup, WSAGetLastError;

typedef int (*IMPORTiti)(text,int);
typedef void *(*IMPORTpt)(text);
typedef void *(*IMPORTptii)(text,int,int);
typedef uintw (*IMPORTww)(uintw);

IMPORTiti gethostname;
IMPORTpt gethostbyname;
IMPORTptii gethostbyaddr;
IMPORTww htons;

typedef uint (*IMPORTuiii)(int,int,int);
typedef int (*IMPORTiupi)(uint,void*,int);
typedef uint (*IMPORTuupi)(uint,void*,int);
typedef int (*IMPORTiupi)(uint,void*,int);
typedef int (*IMPORTiui)(uint,int);
typedef int (*IMPORTiutii)(uint,text,int,int);
typedef int (*IMPORTiu)(uint);

IMPORTuiii socket;
IMPORTiupi connect;
IMPORTiui listen;
IMPORTiupi bind;
IMPORTuupi accept;
IMPORTiutii send, recv;
IMPORTiu closesocket;

// import functions...

#define load_library(name) \
  (name##_dll=LoadLibraryA(#name))

#define import_function(module, type, name) \
  (name=(IMPORT##type) GetProcAddress(module##_dll, #name))

#define free_library(name) FreeLibrary(name##_dll)

int import_winsock() {
  if (!load_library(wsock32))
    return 0;
  if (!import_function(wsock32, iup, WSAStartup))
    return 0;
  if (!import_function(wsock32, i, WSACleanup))
    return 0;
  if (!import_function(wsock32, i, WSAGetLastError))
    return 0;
  if (!import_function(wsock32, iti, gethostname))
    return 0;
  if (!import_function(wsock32, pt, gethostbyname))
    return 0;
  if (!import_function(wsock32, ptii, gethostbyaddr))
    return 0;
  if (!import_function(wsock32, ww, htons))
    return 0;
  if (!import_function(wsock32, uiii, socket))
    return 0;
  if (!import_function(wsock32, iupi, connect))
    return 0;
  if (!import_function(wsock32, iutii, send))
    return 0;
  if (!import_function(wsock32, iutii, recv))
    return 0;
  if (!import_function(wsock32, iui, listen))
    return 0;
  if (!import_function(wsock32, iupi, bind))
    return 0;
  if (!import_function(wsock32, uupi, accept))
    return 0;
  if (!import_function(wsock32, iu, closesocket))
    return 0;
  return 1;
}

int end_winsock() {
  free_library(wsock32);
  return 1;
}    

text genres[i]=
  'Shooter', 'Platform', 'Adventure',
  'Fantasy', 'Sports', 'Fighting',
  'Driving', 'Horror', 'Relaxed'

on create_title
  locate 135, 32
  where='ps1/image', image='banner'
  locate 290, 300
end

on create_menu
  loop i
    t7.link='ps1/genre/'+genres[i]+'.soul'
    <t7><?genres[i]><>
  end
  <rr>
end

on start_page
  create_title, create_menu
  sx=224, ex=sx, element.x=sx, begin.x=sx
  ey=element.y, ey+=4
  where='ps1/genre'
end