POKE COM logo | PC-G811-PC-G830 (Excludes PC-G815) BASIC https://poke-com.jimdofree.com/basic-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/

logo-g800.bas

1 ' POKE COM LOGO | SHARP POCKET COMPUTER PC-G811-PC-G830 (Excludes PC-G815) BASIC
2 ' Copyright (c) 2025 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
100 RESTORE
110 CLS
120 S=PEEK(&H790D)
130 FOR Y=0 TO 2
140 OUT &H58,&HB8+S
150 OUT &H58,&H40
160 FOR X=0 TO 6*4-1
170 READ D$
180 D= VAL ("&H"+D$)
190 OUT &H5A,D
200 OUT &H5A,D
210 IF X/2= INT (X/2) OUT &H5A,D
220 NEXT X
230 S=S+1
240 IF S=8 LET S=0
250 NEXT Y
260 S=S+1
270 IF S=8 LET S=0
280 FOR Y=4 TO 6
290 OUT &H58,&HB8+S
300 OUT &H58,&H40
310 FOR X=0 TO 6*3-1
320 READ D$
330 D= VAL ("&H"+D$)
340 OUT &H5A,D
350 OUT &H5A,D
360 IF X/2<> INT (X/2) OUT &H5A,D
370 NEXT X
380 S=S+1
390 IF S=8 LET S=0
400 NEXT Y
410 LOCATE 0,2
420 PRINT
430 END
440 DATA FF,07,07,07,F8,00:' P
450 DATA F8,07,07,07,F8,00:' O
460 DATA FF,00,C0,38,07,00:' K
470 DATA FF,07,07,07,07,00:' E
480 DATA FF,0E,0E,0E,01,00:' P
490 DATA FF,00,00,00,FF,00:' O
500 DATA FF,0E,70,80,00,00:' K
510 DATA FF,0E,0E,0E,00,00:' E
520 DATA 1F,00,00,00,00,00:' P
530 DATA 03,1C,1C,1C,03,00:' O
540 DATA 1F,00,00,03,1C,00:' K
550 DATA 1F,1C,1C,1C,1C,00:' E
560 DATA 00,FF,38,C0,38,FF:' M
570 DATA 00,F8,07,07,07,F8:' O
580 DATA 00,38,07,07,07,F8:' C
590 DATA 00,FF,00,0F,00,FF:' M
600 DATA 00,FF,00,00,00,FF:' O
610 DATA 00,80,00,00,00,FF:' C
620 DATA 00,1F,00,00,00,1F:' M
630 DATA 00,03,1C,1C,1C,03:' O
640 DATA 00,03,1C,1C,1C,03:' C