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";