電子ブロック工房:
Deprecated: Function strftime() is deprecated in /home/u109394186/domains/rad51.net/public_html/jeans/jeans/libs/blog.php on line 333
2018年 05月の記事

あのCMのメロディー [MachiKania]

2018年5月26日

関西電気保安協会のメロディーを、MachiKaniaで。Type Z, Type N, 及び KM-BASIC webで再生及びひらがな表示が出来ます。

2018-05-26-canvas.png

print
music "GGEDDGEDGGAGAzA"

USEPCG
PCG 0x80,0x2020f42a,0x4a48b000
PCG 0x81,0x10102020,0x50528c00
PCG 0x82,0x08087e04,0x24403c00
PCG 0x83,0x00888482,0x82502000
PCG 0x84,0x0000807e,0x00000000
PCG 0x85,0x0e740a10,0x10080600
PCG 0x86,0x107c087e,0x24403c00
PCG 0x87,0x80be88be,0x88bcba00
PCG 0x88,0x207c203c,0x6ab26400
PCG 0x89,0x0008080c,0x38483400

gosub JPN
for j=1 to 14
  gosub wm
  gosub JPN
next
label waitk
if inkey()=0 then waitk
end

DATA 0x8180,0,0,0x82,0,0x83,0,0x84,0
DATA 0x85,0,0x81,0,0x86,0
DATA 0x87,0,0x84,0,0x88,0,0x81,0
DATA 0x8986,0,0x84,0,0x8380,0

label JPN
d=read()
if d=0 then return
label JPN2
  print chr$(d % 256);:d=d/256
if 0<d then JPN2
goto JPN

label wm
i=music()
label waitm2
wait 1
if i=music() then waitm2
return