s1hpd4rc.bas

#include "fbgfx.bi"
screen 1: setmouse ,,0: color 0,3: cls :'- 320x200 4 colours
dim shared as integer x,y,i,u,x2,y2,ch,alen,iz,o,x2s,y2s,ocl,c,j,iq,jq,cq,iu,ju
dim shared as string a_st,txo_st

line (0,0)-(319,199),1,bf

ocl=28:color ocl mod 16,int(ocl/16)

restore bmhdump
for y2=0 to 7:for x2=0 to 31
  read a_st
  for y=0 to 7:for x=0 to 7 step 2
    i=1+int((x+(y*8))/2)
    u=val("&h"+mid$(a_st,i,1))
    pset(x2*8+x,y2*8+y),int(u/4)
    pset(x2*8+x+1,y2*8+y),u mod 4
    next:next
  next:next

dim shared as any ptr pattern(256)
for i=0 to 255
  x2=i mod 32:y2=int(i/32)
  pattern(i)=imagecreate(8,8,0):get(x2*8,y2*8)-(x2*8+7,y2*8+7),pattern(i)
  next

dim shared as any ptr sprite(64)
for i=0 to 63
  x2=i mod 16:y2=int(i/16)
  sprite(i)=imagecreate(16,16,0):get(x2*16,y2*16)-(x2*16+15,y2*16+15),sprite(i)
  next

dim shared as any ptr spriteb(32)
for i=0 to 31
  spriteb(i)=imagecreate(16,16,0)
  next

declare sub printsb(xq as integer,yq as integer,oq as integer,a_st as string)
sub printsb(xq as integer,yq as integer,oq as integer,a_st as string)
  alen=len(a_st)
  for iz=1 to alen
    ch=(asc(mid(a_st,iz,1))+oq)mod 256
    x2s=((xq+iz) mod 40)
    y2s=(yq+int((xq+iz)/40))mod 25
    put(x2s*8,y2s*8),pattern(ch),pset
    next
  end sub

for y2=0 to 24:for x2=0 to 39
  ch=128+int(rnd(1)*128)
  put(x2*8,y2*8),pattern(ch),pset
  next:next

printsb(5,7,0,"LOREM IPSUM DOLOR SIT AMET")

loop01:

for y2=0 to 63
  cq=y2

  'cq=int(rnd(1)*64)
  'for iu=0 to 11
  '  ju=2+((i mod 3)*2)+((int(i/3))*17)+((int(i/6))*6)
  '  if cq=ju then cq=cq+1
  '  next

  iq=cq mod 16
  jq=(int(cq/16))mod 16
  color iq,jq
  txo_st="SPRITE: "+str(y2)+"  "
  printsb(5,9,0,txo_st)
  txo_st=str(cq)+"("+str(iq)+","+str(jq)+")  "
  printsb(5,11,0,txo_st)
  for x2=0 to 319-16 step 1
    get(x2,100)-(x2+15,100+15),spriteb(0)
    put(x2,100),sprite(y2),pset
    screensync
    put(x2,100),spriteb(0),pset
    next:next

goto loop01

sleep

bmhdump:
data "0002000200202022000A222220202022"
data "020A22222020A2AA0A0A22AA2822A22A"
data "0A2A2222A8A822220A2A2222A8A2222A"
data "222AAAAAA222AAA22A2A22AA2AAAAA2A"
data "2A2A2AA2AA2AAAAA2A2AAAAAAAA0AA00"
data "0A2AA2AAAAAAAAA0AA00A00000000000"
data "29A0AA00A00000000000000000000000"
data "00000000000000000000000000000000"
data "00020002000200020002000000000000"
data "AA0AAAAAAAA2AAAAAAA22AAA2AAA2AAA"
data "AA0AAA2AA2AA2A2AAAAAAA2AAA20AAA2"
data "AA22AA2AAAA2AAA22A2AAA2AAA22AAAA"
data "0000A000200000000000000000000000"
data "2A002A00280028002800280020002800"
data "022A02AA00A802A0022802A000A002A0"
data "00290029002A00290029002900290029"
data "A9A5A9995955599965A599A95A999999"
data "A57F997F9A7F9ABF99BFA97F597F9997"
data "FF59FF59FFD9FFDAFFD9FFF9FFF5FFF5"
data "A595999959599999A595999959599999"
data "800A8002A002A002A009A20A98029A01"
data "000000008000A000A000A200A0009800"
data "096A096A015209AA09AA019A0A5A095A"
data "AAAAAAAAAAAAAAAA2AAAAAA9AAAAAAA9"
data "A9AAA9AAAA9AAAAAA9AAAAA9AA9AAAAA"
data "A5AAA9AAAA9AA99AA9A9A9AAAA9AAA99"
data "A9AAA9AA9A9A9A9AA9AAA9A9AA999995"
data "AAAAA9AA9AAAAA9AAAAAAAAAAA6AA9A2"
data "AAAAAAAAAA9AAA9AAAAAAAA9AA9AAA2A"
data "0A0A2AAA22A22A2A8AAAA2AAA2AAAA2A"
data "2A2AAAAAA2AAAAAAAAA9AAAA9A9AAA9A"
data "2A2AAAAAAAAAAAAA29AAAAA29AA89A2A"
data "00000000000000000000000000000000"
data "03C00FF00FF003C003C0000003C00000"
data "0F3C0F3C0F3C00000000000000000000"
data "0F3C0F3C3FFF0F3C3FFF0F3C0F3C0000"
data "03C00FFC3C000FF0003C3FF003C00000"
data "00003C0F3C3C00F003C00F0F3C0F0000"
data "03F00F3C03F00FCF3CFC3C3C0FCF0000"
data "00F000F003C000000000000000000000"
data "00F003C00F000F000F0003C000F00000"
data "0F0003C000F000F000F003C00F000000"
data "00003C3C0FF0FFFF0FF03C3C00000000"
data "000003C003C03FFC03C003C000000000"
data "000000000000000003C000C003000000"
data "0000000000003FFC0000000000000000"
data "0000000000000000000003C003C00000"
data "000F003C00F003C00F003C00F0000000"
data "03F00C3C3C0F3C0F3C0F0F0C03F00000"
data "00F003F000F000F000F000F00FFF0000"
data "0FFC3C0F003F03FC0FF03F003FFF0000"
data "0FFF003C00F003FC000F3C0F0FFC0000"
data "00FC03FC0F3C3C3C3FFF003C003C0000"
data "3FFC3C003FFC000F000F3C0F0FFC0000"
data "03F00F003C003FFC3C0F3C0F0FFC0000"
data "3FFF3C0F003C00F003C003C003C00000"
data "0FF03C0C3F0C0FF030FF300F0FFC0000"
data "0FFC3C0F3C0F0FFF000F003C0FF00000"
data "0000000003C003C0000003C003C00000"
data "000003C003C000000FC003C00F000000"
data "00F003C00F003C000F0003C000F00000"
data "000000003FFC00003FFC000000000000"
data "0F0003C000F0003C00F003C00F000000"
data "3FF0F03C003C03F00F0000000F000000"
data "0FFC3C0F3CFF3CFF3CFF3C000FF00000"
data "03F00F3C3C0F3C0F3FFF3C0F3C0F0000"
data "3FFC3C0F3C0F3FFC3C0F3C0F3FFC0000"
data "03FC0F0F3C003C003C000F0F03FC0000"
data "3FF03C3C3C0F3C0F3C0F3C3C3FF00000"
data "0FFF0F000F000FFC0F000F000FFF0000"
data "3FFF3C003C003FFC3C003C003C000000"
data "03FF0F003C003C3F3C0F0F0F03FF0000"
data "3C0F3C0F3C0F3FFF3C0F3C0F3C0F0000"
data "0FFF00F000F000F000F000F00FFF0000"
data "000F000F000F000F000F3C0F0FFC0000"
data "3C0F3C3C3CF03FC03FF03CFC3C3F0000"
data "0F000F000F000F000F000F000FFF0000"
data "3C0F3F3F3FFF3FFF3CCF3C0F3C0F0000"
data "3C0F3F0F3FCF3FFF3CFF3C3F3C0F0000"
data "0FFC3C0F3C0F3C0F3C0F3C0F0FFC0000"
data "3FFC3C0F3C0F3C0F3FFC3C003C000000"
data "0FFC3C0F3C0F3C0F3CFF3C3C0FF30000"
data "3FFC3C0F3C0F3C3F3FF03CFC3C3F0000"
data "0FF03C3C3C000FFC000F3C0F0FFC0000"
data "0FFF00F000F000F000F000F000F00000"
data "3C0F3C0F3C0F3C0F3C0F3C0F0FFC0000"
data "3C0F3C0F3C0F3F3F0FFC03F000C00000"
data "3C0F3C0F3CCF3FFF3FFF3F3F3C0F0000"
data "3C0F3F3F0FFC03F00FFC3F3F3C0F0000"
data "0F0F0F0F0F0F03FC00F000F000F00000"
data "3FFF003F00FC03F00FC03F003FFF0000"
data "0000000000000FF00FF0000000000000"
data "0000000000003FFF3FFF000000000000"
data "0000000000000000000003C003C00000"
data "03C00FF00FF003C003C0000003C00000"
data "0FF0300CC3F3CC03CC03C3F3300C0FF0"
data "0228A2A8A0A022A80228A2A0A2A082A0"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "00000000000022000800020000200000"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "002A002A002A000A000A000A000A002A"
data "2AA6AAAAAA99AA95AAA5AAAAAAA2AAA0"
data "2AA6AA9A6018AAA2AA2AAAA2AAA02A80"
data "0000A02200282022000A022200220222"
data "298229A22AA029A209A229AAAA982A9A"
data "0AA522A9AAA92A992AA92AA92AAA2AAA"
data "AA2AAA2A9AAAAAAAAAAA99AA99AA95AA"
data "2995A995AA59AA99AA99A9A99A55A99A"
data "9AAAA9A95A9AAA992AA9AAAA62AAAAA9"
data "95AAAAAA9A9A9A9A29AAA9A99AAA9AAA"
data "02022020A000A222AA0AAA2AA820AAAA"
data "0955095909550A7F02BF22BF027F027F"
data "959599995A5959BFFFFFFFFFFFFFFFFF"
data "A7E99F597F69FD95FDA7F595F575F955"
data "576A555A555A779A5D557B9975757555"
data "0AA9AAA9AAAAAAAAAAAA9AAA98A89A2A"
data "A9A9A9A99A9AAA9A29A929A91A9AAA9A"
data "A9A9A9A99A9AAA9AA9A9A9A99A9A9999"
data "A989A9A99AA9AA95A9A5A9A99A9A9A99"
data "A9A9A9AA6962A9A2A9A9A9A9A969A5A9"
data "AAAAAAA95AAA9AA999A999A96A9AAAAA"
data "A957A9B7AA55A9BFAA97AA979AA9999B"
data "A999999959995999A5A5D9997D55D999"
data "0220A2A0A2A0A2208A20A2A0A2A0A2A0"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "02000220202000000A00220020202222"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "000A000200000002000A000200000002"
data "A9A8AA20AA20AAA0A6A0AAA0AAAAAAAA"
data "0A802AA02AA02AA00AAA2AAA9AA8AAA0"
data "0A0A220200002A222229A2A9029A02AA"
data "2AAAAAAAA29A999A57FD99559AAA9AA0"
data "2AAA2AAA2A9AAAA9AAA9AA99AAA92A99"
data "A79A995A995A95599797995755559557"
data "AA02A2A2A0AAA2AAA22A6AAA5AAA5A2A"
data "2AAA2AAAA159AA992A2AA222A82AA02A"
data "29A9A2AAA2AAAA2A2A2A222AA828AAA2"
data "AA2AAAA29AA0AA22AA08AA22AA09AA27"
data "097F09FF89FFA55927559D95F575F577"
data "FFFFFFF5F5599555555755957555B755"
data "975555BB79557BB757555BB775557BB5"
data "57957B57557955575757B59559595797"
data "AA2A9AAA5AAA99AA55AA59A975AA95A9"
data "A9A9AAA9AA9AAA9AA9A9AA99695AA9AA"
data "A9A9A9A99A999A9A99A9A99999999A99"
data "A99999A99A5A9999A5A999A95A5A9999"
data "9599999A59AA969999A6A99999999A96"
data "A9AAA9AAA99AAA9999A99999595A999A"
data "A9A5A9A99A9A999AA9A9A9A99A999A99"
data "BD6DED9BBBB99DD59DEDABDB997D99B7"
data "A200AAA0A220AA20AA20AA20A020AA20"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "0A082222202022220A0A22A22820222A"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "A9AAAAAAAAA8AAA82AA82AAA0AA82AA2"
data "02A802A802A002AA02AA02AA2AA0AAA8"
data "09A92AAA2AAA2AAA0A2A22AA002A0022"
data "AA02AA22A022A22A0A2222A2AA22AAAA"
data "0A2922A9A82A22222A2AA2222222AAAA"
data "955799575955999A29AAA9AA209AA015"
data "D5AA5AA2A0AA202A0AAB22A9A095AA95"
data "AA2AA22AA2AA99AAD7AA59AA75A27FA2"
data "AA2AAAA29AA8AAAA2AAAAAAAAAAA2AAA"
data "8A9F297799759755A757977795759997"
data "575755B555797B77575775555579B5D7"
data "55975B557579B555555757977955BBB7"
data "97975B57557957559597575B7975D579"
data "975755557579795D97575BB575797557"
data "57A9B5997959579955559B595575B575"
data "A9A9A9AA6969A9A9A9A9A9A9596A95A9"
data "A5999999599A5A99A9A5A9A96A5AAA99"
data "A5A9A9999A599999A9A5999959599999"
data "A5A999999959999AA59999995A999999"
data "959999995959999995A5999959599B99"
data "A5A5A9A95A999A99A5A999A9599A9999"
data "A9ED9A9B59599995A595A9955A599995"
data "AA08AA20AA202A20AA802AA02AA0AAA0"
data "00000000000000000000000000000000"
data "00000000000000000000000000000000"
data "00000000000000000000000000000002"
data "00000000000000000002000000202002"
data "0A2A2AAA222A2AA2020A2AAA2AAA2A2A"
data "0000A2002000202202002222A020A222"
data "00002000002002200A0A220220200222"
data "00000000000020000000200020002220"
data "00000000000000000000000000000000"
data "2AA22AAA2AAA2AAA2AAA0AAA2AAA0AA2"
data "2A2AAAAA20AA2AAA2AAAAAAAAAAAAAAA"
data "02A2A99AAA99AA022A0AAA22A822A222"
data "AAAA2AAA6AAAAAAA2A2A2AAAA8AA22AA"
data "2222AAAAA822AAAAAA2AAAAAAAAA2AAA"
data "0A2B2229202A22AA0A2A22AA22A2A2AA"
data "59A9A9A9A29AAAA9A929AAAAAA9AAAAA"
data "5FDA99995AA2AA22A20AA222A020A222"
data "2AAAA2AAAA9A2A9A0AAA22AA202A2222"
data "AA97AA95AA79A9752957A95BA9559B75"
data "57975B557555757B97955B5775557BB5"
data "5D575B9555795757555597BB5555777B"
data "97975B5B7575B5795F9F9B7BD57995DD"
data "955757957979555D979757557979D5D7"
data "57977B577575555755575BB75577B97F"
data "59A959AA75AAF595FF69FF59FF79FF59"
data "A9A5A9A9595A9A99A9A9A9999A599999"
data "A9A59999999A99A9999999995959999A"
data "A5A999A9D99A99AA97A9999A995A995A"
data "65959B9B59599999A5A5A999AA59AA95"
data "A59999A95959999995A5999959599595"
data "95A5A99959599999A59599995999B999"
data "2A00A9A0A2A0A2A0A9A8AAA8AA90AAAA"
data "00000000002000200A02222220A2222A"
data "00080022202020220A0A222228A222AA"
data "02002022002022220A0AA2AA22A22AAA"
data "0202222220A0A22A0A0AA222A2222AAA"
data "2A2A2AAA2AAAAAAA2AAAAAAAAAAAAAAA"
data "220AAA22A228AA222A2AAAAAAAA0AA22"
data "0A222222A0AA222A2A2A2AAAAAA2222A"
data "2A08AA22A2A02AA22A2AAAAAAAAAAAAA"
data "00000000000000000000800080000000"
data "0AAA2AAA2AAA2AAA0AAA0AAA0A9A0AAA"
data "AAAAAAAAA82AA0220002022A22AAAAAA"
data "8A0AA22A202022AA022AAAAAA2A8AAAA"
data "2A2AA2AA22A8A2A22A2AAAAAA8A2A2AA"
data "2AAAAAAAAAAA2AAA8AA922A9A820AAA2"
data "2A2AAA22A0002000A00A99999A5AA2AA"
data "AAAA022A0022022AAA0AB76A995AAAAA"
data "0202222AA0A2A2220A0AA2222802A2A0"
data "2A022222202022220A82A222A8AA2A22"
data "2F5729552A55229D0815202B220A2A0A"
data "9557DB955579779755D55BB775599777"
data "959557575555B7B75757B9D95575B555"
data "57979B955D79B55D57975BB55579B75B"
data "979575575579555DB7B757957579B9D5"
data "577F9B7F557F57FF9FFFD7FF77FF7FF7"
data "FF55F5957555F7B7D795DB57757977DD"
data "A9A999A95A99B99955A5B799797A57B9"
data "A99599A9595A999995A5A9995A599999"
data "A5A599995A99999995A5A99959599999"
data "2AA5AAA95A9A9AAAA5AA99A059A099A0"
data "A9555595595995B9299729990A590299"
data "979599995955599995956B99B9799995"