POKE COM ロゴ ( POKE COM logo ) - SHARP POCKET COMPUTER PC-G850 series BASIC https://poke-com.jimdofree.com/basic-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/

LOGO.BAS

1 ' POKE COM ﾛｺﾞ ( POKE COM logo ) | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 2006-2011 Keiichi Shiga (BALLOON | FU-SEN)
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2006-2011
100 CLS
110 GCURSOR (0,7)
120 GPRINT "FFFFFF070707070707070707F8F8F8000000";:' P
130 GPRINT "F8F8F8070707070707070707F8F8F8000000";:' O
140 GPRINT "FFFFFF000000C0C0C0383838070707000000";:' K
150 GPRINT "FFFFFF070707070707070707070707000000";:' E
160 GPRINT "000000000000000000000000000000000000";:'
170 GPRINT "F8F8F8070707070707070707383838000000";:' C
180 GPRINT "F8F8F8070707070707070707F8F8F8000000";:' O
190 GPRINT "FFFFFF383838C0C0C0383838FFFFFF000000";:' M
200 GCURSOR (0,15)
210 GPRINT "FFFFFF0E0E0E0E0E0E0E0E0E010101000000";:' P
220 GPRINT "FFFFFF000000000000000000FFFFFF000000";:' O
230 GPRINT "FFFFFF0E0E0E717171808080000000000000";:' K
240 GPRINT "FFFFFF0E0E0E0E0E0E0E0E0E000000000000";:' E
250 GPRINT "000000000000000000000000000000000000";:'
260 GPRINT "FFFFFF000000000000000000808080000000";:' C
270 GPRINT "FFFFFF000000000000000000FFFFFF000000";:' O
280 GPRINT "FFFFFF0000000F0F0F000000FFFFFF000000";:' M
290 GCURSOR (0,23)
300 GPRINT "1F1F1F000000000000000000000000000000";:' P
310 GPRINT "0303031C1C1C1C1C1C1C1C1C030303000000";:' O
320 GPRINT "1F1F1F0000000000000303031C1C1C000000";:' K
330 GPRINT "1F1F1F1C1C1C1C1C1C1C1C1C1C1C1C000000";:' E
340 GPRINT "000000000000000000000000000000000000";:'
350 GPRINT "0303031C1C1C1C1C1C1C1C1C030303000000";:' C
360 GPRINT "0303031C1C1C1C1C1C1C1C1C030303000000";:' O
370 GPRINT "1F1F1F0000000000000000001F1F1F000000";:' M
380 LOCATE 0,3
390 PRINT "POCKET COMPUTER"
400 PRINT "        INFORMATION SITE";

// Z88DK version

#include <graphics.h>
#include <games.h>
#include <string.h>

void gprint(char *gfx) {
int x,y,i;
int xx,yy;

xx=getx();
yy=gety();
for (x=0; x<strlen(gfx); x+=2) {
	i = (gfx[x] % 32 + 9) % 25 * 16 + (gfx[x+1] % 32 + 9) % 25;
	for (y=0; y<8; y++) {
		if (i&1)
			plot(xx,yy+y);
		else
			unplot(xx,yy+y);
		i/=2;
	}
	xx++;
}
setpos(xx,yy);

}

void main() {
plot (0,7);
gprint ("FFFFFF070707070707070707F8F8F8000000");
gprint ("F8F8F8070707070707070707F8F8F8000000");
gprint ("FFFFFF000000C0C0C0383838070707000000");
gprint ("FFFFFF070707070707070707070707000000");
gprint ("000000000000000000000000000000000000");
gprint ("F8F8F8070707070707070707383838000000");
gprint ("F8F8F8070707070707070707F8F8F8000000");
gprint ("FFFFFF383838C0C0C0383838FFFFFF000000");
plot (0,15);
gprint ("FFFFFF0E0E0E0E0E0E0E0E0E010101000000");
gprint ("FFFFFF000000000000000000FFFFFF000000");
gprint ("FFFFFF0E0E0E717171808080000000000000");
gprint ("FFFFFF0E0E0E0E0E0E0E0E0E000000000000");
gprint ("000000000000000000000000000000000000");
gprint ("FFFFFF000000000000000000808080000000");
gprint ("FFFFFF000000000000000000FFFFFF000000");
gprint ("FFFFFF0000000F0F0F000000FFFFFF000000");
plot (0,23);
gprint ("1F1F1F000000000000000000000000000000");
gprint ("0303031C1C1C1C1C1C1C1C1C030303000000");
gprint ("1F1F1F0000000000000303031C1C1C000000");
gprint ("1F1F1F1C1C1C1C1C1C1C1C1C1C1C1C000000");
gprint ("000000000000000000000000000000000000");
gprint ("0303031C1C1C1C1C1C1C1C1C030303000000");
gprint ("0303031C1C1C1C1C1C1C1C1C030303000000");
gprint ("1F1F1F0000000000000000001F1F1F000000");
}

thank you! I also used a z88dk in the past.

I know ;)