言わずと知れた、有名なパズルゲームです。同じ色の宝石を縦・横・斜めに三つ以上並べると消滅します。This is very famous puzzle game. If 3 or more same-color-jewels are aligned vertically, horizontally or diagonally, they are disappeared.
十字キーで宝石を操作。A/B/X/Yボタンで宝石を入れ替え。STARTボタンでポーズ。中央の列が一番上まで積み上がるとゲームオーバー。You can move jewels by cross-key, rotate them by A/B/X/Y button. You can pauze the game by start button. The game is over if center column reaches the top of field.
このプログラムは、以下のリソースも使用します。This program uses following resources.
※"CHR:SBFT_E03"は公式サイトで配布されているものと同一のデータです。※"CHR:SBFT_E03" is same as which you can get from this web site.
BD | 「十字キーの下」処理用 |
BH | 「十字キーの左右」処理用 |
BS | 「A/B/X/Yボタン」処理用 |
BT | ボタンの状態 |
E$ | ゲーム終了時の評価 |
EV | ゲーム終了時の総合スコア |
EV() | ゲーム評価要素 |
F$ | フィールド内に対する処理を行う関数へのラベル |
FC | フィールド内の宝石の数 |
FD(,) | フィールド内の宝石のスプライト番号 |
FH() | フィールドの各列の高さ |
FJ(,) | 消去判定用 |
FU | フィールド内の宝石の数が20を超えたか(全消ししたらリセット) |
G$ | ゲーム中にて、次のフレームで呼ぶ関数へのラベル |
GD | 「十字キーの下」を押して宝石を設置したか |
GE() | 操作中の宝石(0~2)、Nextの宝石(3~5)のスプライト番号 |
GF | 宝石が接地してからのフレーム数 |
GS | 宝石の落下速度 |
GW | ゲーム中のウェイトフレーム数 |
GX,GY | 操作中の宝石の座標 |
LK | 現在の連鎖数 |
LM | 最大連鎖数 |
LV | 現在のレベル |
LY | ゲーム開始時の選択項目 |
KC | 背景パレット操作用 |
KC(,) | 背景のパレット情報 |
M$() | 各種文字列 |
OV | ゲームオーバーか |
S$ | 効果音MML |
SC | 消した宝石の数 |
SI | 未使用のスプライト番号検索用 |
SN | あといくつ宝石を消したらレベルアップか |
SP | 次の魔宝石が出るまでに消した宝石の数 |
SQ | 次の魔宝石が出るまでに消す宝石の数のノルマ |
SU() | スプライト番号に対応する宝石の色(-1の場合は未使用) |
V$ | バージョン番号 |
001. ′┌─────────────────────────┐Л 002. ′│ ”PRG:CLMS” by OBONO │Л 003. ′└─────────────────────────┘Л 004. Л 005. ACLSЛ 006. CLEARЛ 007. V$=”1.1.0326”Л 008. DIM FD(7,13),FH(7),FJ(7,13)Л 009. DIM GE(6),SU(99),EV(5)Л 010. DIM KC(4,3),M$(18)Л 011. Л 012. GOSUB @INЛ 013. BGMPLAY 0,128Л 014. @LPЛ 015. GOSUB @LSЛ 016. GOSUB @GIЛ 017. GOSUB @GMЛ 018. IF OV==1 THEN GOSUB @OVЛ 019. GOTO @LPЛ 020. Л 021. ′┝┸┝┸┝┸ CONTROL GAME ┝┸┝┸┝┸Л 022. Л 023. @GM ′ЙЙЙ MAIN LOOPЛ 024. Л 025. BT=BUTTON()Л 026. BD=BD*!!(BT AND 2)Л 027. BH=(BH+1)*!!(BT AND 12)Л 028. BS=(BS+1)*!!(BT AND 240)Л 029. IF GW>=1 THEN GW=GW-1 ELSE GOSUB G$Л 030. GOSUB @GPЛ 031. GOSUB @GAЛ 032. VSYNC 1Л 033. IF BT AND 1024 THEN GOSUB @GZЛ 034. IF !OV THEN @GMЛ 035. RETURNЛ 036. Л 037. @GN ′ЙЙЙ NEW GEMSЛ 038. Л 039. IF LK>2 THEN LOCATE 9,19-GY:? ” ”*8Л 040. IF FH(3)>10 THEN OV=1:RETURNЛ 041. IF SU(GE(3))==6 THEN SP=SP-SQ:SQ=SQ+50Л 042. GOSUB @GXЛ 043. GX=3Л 044. GY=11Л 045. GF=0Л 046. GS=FLOOR(LV/5+1)*(LV%5+2)/128Л 047. IF BD THEN BD=2Л 048. G$=”@GT”Л 049. RETURNЛ 050. Л 051. @GT ′ЙЙЙ CONTROL GEMSЛ 052. Л 053. IF !BD AND !!(BT AND 2) THEN BD=1Л 054. IF BD==1 AND GS<.5 THEN GY=GY-.5 ELSE GY=GY-GSЛ 055. V=(BT AND 8)/8-(BT AND 4)/4Л 056. IF BH!=1 AND BH<10 THEN V=0Л 057. IF GX+V<0 OR GX+V>6 THEN V=0Л 058. IF GY>=FH(GX+V) OR FH(GX)>=FH(GX+V) THEN GX=GX+VЛ 059. IF BS==1 THEN BEEP 27:SWAP GE(0),GE(1):SWAP GE(1),GE(2)Л 060. IF GY<FH(GX) THEN GY=FH(GX):GF=GF+1 ELSE GF=0Л 061. X=GX*16+48Л 062. Y=168-GY*16Л 063. IF GF==1 THEN BGMPLAY 1,130:GOSUB @GB:Y=Y+1Л 064. SPOFS 0,X,Y-48Л 065. IF BS==1 THEN Y=Y-8:C=SU(GE(2)):SPCHR 99,C*16,C+2,0,0,3Л 066. SPOFS 99,X,(Y+16)*(BS==1)Л 067. FOR I=0 TO 2Л 068. SPOFS GE(I),X,Y-I*16Л 069. NEXTЛ 070. IF GF<30-(BD==1)*28 THEN RETURNЛ 071. Л 072. SPOFS 0,0,0Л 073. SPOFS 99,0,0Л 074. Y=168-GY*16Л 075. FOR I=0 TO 2Л 076. FD(GX,GY+I)=GE(I)Л 077. SPOFS GE(I),X,Y-I*16Л 078. NEXTЛ 079. FH(GX)=GY+3Л 080. FC=FC+3Л 081. IF FC>20 THEN FU=1Л 082. FOR I=1 TO 98Л 083. IF SU(I)<0 THEN SPCLR IЛ 084. NEXTЛ 085. GD=(BD==1)Л 086. LK=0Л 087. G$=”@GJ”Л 088. RETURNЛ 089. Л 090. @GJ ′ЙЙЙ JUDGE ALIGNMENTЛ 091. Л 092. LK=LK+1Л 093. F$=”@FJ”Л 094. GOSUB @FLЛ 095. GOSUB @GJ1Л 096. GOSUB @GJ2Л 097. IF !Z THEN GW=(149-LV)/5:G$=”@GN”:RETURNЛ 098. EV(0)=EV(0)+(LK>1)/4Л 099. LM=LM+(LK>LM)Л 100. F$=”@FQ”Л 101. GOSUB @FLЛ 102. S$=”:0@112@MP12,12,1,4V96L16”Л 103. FOR I=0 TO 9Л 104. S$=S$+”N”+STR$(ASC(MID$(”B<PNROJDFI”,I,1))+LK)Л 105. IF I==0 THEN S$=S$+”L4”Л 106. IF I==1 THEN S$=S$+”:1@112V64L32Q1”Л 107. NEXTЛ 108. BGMSET 129,S$Л 109. GW=(99-LV)/5Л 110. IF GD AND GW>4 THEN GW=4Л 111. G$=”@GC”Л 112. RETURNЛ 113. Л 114. @GJ1Л 115. Z=0Л 116. F$=”@FK”Л 117. FOR I=0 TO 3Л 118. V=(I>0)Л 119. W=I%3-1Л 120. GOSUB @FLЛ 121. NEXTЛ 122. IF Z>1 THEN EV(0)=EV(0)+(Z-1)/4Л 123. IF GD THEN EV(2)=EV(2)+Z/10Л 124. RETURNЛ 125. Л 126. @GJ2Л 127. Y=FH(GX)-1Л 128. IF Y<0 THEN RETURNЛ 129. IF SU(FD(GX,Y))!=6 THEN RETURNЛ 130. Z=0Л 131. IF LK==1 THEN Y=Y-3 ELSE Y=Y-(GY-8)Л 132. IF Y<0 THEN T=6 ELSE T=SU(FD(GX,Y))Л 133. F$=”@FM”Л 134. GOSUB @FLЛ 135. BGMPLAY 2,132Л 136. EV(3)=EV(3)-1+Z/3+(T==6)*10+(LK>1)*11Л 137. KC=-256Л 138. GOSUB @CCЛ 139. RETURNЛ 140. Л 141. @GC ′ЙЙЙ CRASH GEMSЛ 142. Л 143. F$=”@FC”Л 144. GOSUB @FLЛ 145. BGMPLAY 1,129Л 146. IF LK>=2 THEN COLOR 3:LOCATE 9,19-GY:? RIGHT$(” ”+STR$(LK),2);” LINKS”Л 147. IF SN<=0 AND LV<99 THEN LV=LV+1:SN=SN+30:BGMPLAY 2,131Л 148. IF FU AND !FC THEN EV(4)=EV(4)+50Л 149. GW=(99-LV)/10Л 150. IF GD AND GW>2 THEN GW=2Л 151. G$=”@GF”Л 152. RETURNЛ 153. Л 154. @GF ′ЙЙЙ FALL GEMSЛ 155. Л 156. Z=FLOOR((99-LV)/20)Л 157. IF GD AND Z>2 THEN Z=2Л 158. F$=”@FF”Л 159. GOSUB @FLЛ 160. GW=D*ZЛ 161. G$=”@GJ”Л 162. RETURNЛ 163. Л 164. @GI ′ЙЙЙ INITIALIZE GAMEЛ 165. Л 166. GCLS 240Л 167. SPCLRЛ 168. F$=”@FD”Л 169. GOSUB @FLЛ 170. FOR I=0 TO 98Л 171. SU(I)=-1Л 172. NEXTЛ 173. SI=1Л 174. SPSET 0,132,1,0,0,3,32,64Л 175. SPSET 99,0,0,0,0,3,16,8Л 176. SPANIM 99,16,3Л 177. Л 178. SC=0Л 179. SN=30Л 180. SP=0Л 181. SQ=100Л 182. BH=0Л 183. BS=0Л 184. LM=0Л 185. FC=0Л 186. FU=0Л 187. OV=0Л 188. FOR I=0 TO 4Л 189. EV(I)=LV/2*(I<4)Л 190. NEXTЛ 191. GOSUB @GXЛ 192. G$=”@GN”Л 193. GW=60Л 194. RETURNЛ 195. Л 196. @GX ′ЙЙЙ SET NEXTЛ 197. Л 198. FOR I=0 TO 2Л 199. GE(I)=GE(I+3)Л 200. GOSUB @GSЛ 201. GE(I+3)=SЛ 202. T=FLOOR(LV/10)+4Л 203. IF T>6 THEN T=6Л 204. IF SP>=SQ THEN T=6 ELSE T=RND(T)Л 205. SU(S)=TЛ 206. SPSET S,T*16,T+2,0,0,3Л 207. SPOFS S,176,40-I*16Л 208. SPANIM S,16,3Л 209. NEXTЛ 210. RETURNЛ 211. Л 212. @GS ′ЙЙЙ FIND FREE SPRITE #Л 213. Л 214. IF SU(SI)>=0 THEN SI=SI%98+1:GOTO @GSЛ 215. S=SIЛ 216. RETURNЛ 217. Л 218. @GB ′ЙЙЙ BOUND GEMSЛ 219. Л 220. Z=168Л 221. FOR I=0 TO FH(GX)-1Л 222. S=FD(GX,I)Л 223. SPOFS S,X,Z+2Л 224. SPOFS S,X,Z,3Л 225. Z=Z-16Л 226. NEXTЛ 227. RETURNЛ 228. Л 229. @GZ ′ЙЙЙ PAUSEЛ 230. Л 231. GOSUB @CLЛ 232. VISIBLE 1,1,1,1,0,1Л 233. COLOR 2Л 234. FOR I=0 TO 2Л 235. COLOR 10-8*!IЛ 236. LOCATE 7,11+I-4*!IЛ 237. ? M$(6+I)Л 238. NEXTЛ 239. FOR Z=0 TO 2Л 240. BT=BUTTON()Л 241. Z=Z-(Z%2==!(BT AND 1024))Л 242. GOSUB @GAЛ 243. VSYNC 1Л 244. IF (BT AND 768)==768 THEN OV=2:Z=2Л 245. NEXTЛ 246. IF OV==2 THEN RETURNЛ 247. VISIBLE 1,1,1,1,1,1Л 248. GOSUB @CLЛ 249. RETURNЛ 250. Л 251. @GP ′ЙЙЙ STATUSЛ 252. Л 253. X=175+48*SP/SQЛ 254. C=176-(SP>=SQ)*144Л 255. GFILL X+1,72,224,79,240Л 256. FOR Y=72 TO 79Л 257. GLINE 175,Y,X,Y,C+RND(12)Л 258. NEXTЛ 259. COLOR 0Л 260. LOCATE 22,18Л 261. ? RIGHT$(” ”*5+STR$(SC),6)Л 262. COLOR 0Л 263. LOCATE 22,22Л 264. ? RIGHT$(” ”*5+STR$(LV),6)Л 265. RETURNЛ 266. Л 267. @CC ′ЙЙЙ SET BG COLORЛ 268. Л 269. FOR I=0 TO 3Л 270. COLREAD(”SP”,T*16+I*3+37),KC(I,0),KC(I,1),KC(I,2)Л 271. NEXTЛ 272. Л 273. @GA ′ЙЙЙ ANIMATE BG PALETTEЛ 274. Л 275. FOR I=0 TO 3Л 276. C$=””Л 277. FOR J=0 TO 2Л 278. C=KC(I,J)/2+32+SIN(KC/128+I/4-J/8)*24-KC*(KC<0)Л 279. IF C<0 THEN C=0Л 280. IF C>255 THEN C=255Л 281. C$=C$+HEX$(C,2)Л 282. NEXTЛ 283. COLSET ”BG”,I+154,C$Л 284. NEXTЛ 285. KC=(KC+1)*(KC<803)Л 286. RETURNЛ 287. Л 288. @CL ′ЙЙЙ CLEAR LETTERSЛ 289. Л 290. FOR I=1 TO 22Л 291. LOCATE 6,IЛ 292. ? ” ”*14Л 293. NEXTЛ 294. RETURNЛ 295. Л 296. ′┝┸┝┸┝┸ MANAGE FIELD ┝┸┝┸┝┸Л 297. Л 298. @FL ′ЙЙЙ COMMON LOOPЛ 299. Л 300. FOR X=0 TO 6Л 301. FOR Y=0 TO 12Л 302. GOSUB F$Л 303. NEXTЛ 304. NEXTЛ 305. RETURNЛ 306. Л 307. @FD ′ЙЙЙ CLEAR FIELDЛ 308. Л 309. FD(X,Y)=0Л 310. IF !Y THEN FH(X)=0Л 311. RETURNЛ 312. Л 313. @FJ ′ЙЙЙ CLEAR FLAGSЛ 314. Л 315. FJ(X,Y)=0Л 316. RETURNЛ 317. Л 318. @FK ′ЙЙЙ JUDGEЛ 319. Л 320. IF X<V OR X>6-V THEN RETURNЛ 321. IF Y+!W<1 OR Y>9+!W THEN RETURNЛ 322. T0=SU(FD(X,Y))Л 323. T1=SU(FD(X-V,Y-W))Л 324. T2=SU(FD(X+V,Y+W))Л 325. IF T0<0 OR T0!=T1 OR T0!=T2 THEN RETURNЛ 326. FJ(X,Y)=1Л 327. FJ(X-V,Y-W)=1Л 328. FJ(X+V,Y+W)=1Л 329. Z=Z+1Л 330. RETURNЛ 331. Л 332. @FM ′ЙЙЙ SPECIALЛ 333. Л 334. IF Y>10 THEN RETURNЛ 335. T0=SU(FD(X,Y))Л 336. IF T0==T OR T0==6 THEN FJ(X,Y)=2:Z=Z+1Л 337. RETURNЛ 338. Л 339. @FQ ′ЙЙЙ SPIN GEMЛ 340. Л 341. IF FJ(X,Y) THEN SPANIM FD(X,Y),16,1Л 342. RETURNЛ 343. Л 344. @FC ′ЙЙЙ CRASH GEMЛ 345. Л 346. IF !FJ(X,Y) THEN RETURNЛ 347. S=FD(X,Y)Л 348. SPSET S,112,SU(S)+2,RND(2),RND(2),2,32,32Л 349. SPOFS S,X*16+40,160-Y*16Л 350. SPANIM S,5,3,1Л 351. SU(S)=-1Л 352. FD(X,Y)=0Л 353. FC=FC-1Л 354. IF FJ(X,Y)!=1 THEN RETURNЛ 355. SC=SC+1Л 356. EV(1)=EV(1)+.05Л 357. SN=SN-1Л 358. SP=SP+1Л 359. RETURNЛ 360. Л 361. @FF ′ЙЙЙ FALL GEMЛ 362. Л 363. IF Y==0 THEN D=0:H=0:FH(X)=0Л 364. S=FD(X,Y)Л 365. IF !S THEN RETURNЛ 366. SPOFS S,X*16+48,168-H*16,(Y-H)*ZЛ 367. IF D<Y-H THEN D=Y-HЛ 368. SWAP FD(X,Y),FD(X,H)Л 369. H=H+1Л 370. FH(X)=HЛ 371. RETURNЛ 372. Л 373. ′┝┸┝┸┝┸ LEVEL SELECT ┝┸┝┸┝┸Л 374. Л 375. @LSЛ 376. Л 377. GCLS 255Л 378. SPCLRЛ 379. GOSUB @CLЛ 380. COLOR 0Л 381. FOR I=0 TO 5Л 382. LOCATE 9,I+2Л 383. ? M$(12+I)Л 384. NEXTЛ 385. COLOR 14Л 386. LOCATE 12,22Л 387. ? V$Л 388. T=RND(6)Л 389. SPSET 0,T*16,T+2,0,0,3Л 390. SPANIM 0,16,3Л 391. BGMVOL 0,64Л 392. VISIBLE 1,1,1,1,1,1Л 393. Л 394. @LLЛ 395. Л 396. FOR I=0 TO 3Л 397. COLOR 6+(I!=LY)*4Л 398. LOCATE 11,I*3+10Л 399. ? M$(I)Л 400. LOCATE 11,I*3+11Л 401. ? M$(5);I*(I+1)*5Л 402. NEXTЛ 403. SPOFS 0,64,LY*24+80Л 404. Л 405. @LKЛ 406. Л 407. BT=BTRIG()Л 408. GOSUB @GAЛ 409. VSYNC 1Л 410. W=(BT AND 2)/2-(BT AND 1)Л 411. IF W THEN LY=(LY+4+W)%4:BEEP 27:GOTO @LLЛ 412. IF !(BT AND 240) THEN @LKЛ 413. LV=LY*(LY+1)*5Л 414. GOSUB @CLЛ 415. BGMVOL 0,127Л 416. RETURNЛ 417. Л 418. ′┝┸┝┸┝┸ GAME OVER ┝┸┝┸┝┸Л 419. Л 420. @OVЛ 421. Л 422. GCLS 255Л 423. VSYNC 30Л 424. BGMPLAY 1,133Л 425. FOR I=3 TO 5Л 426. SPCLR GE(I)Л 427. NEXTЛ 428. FOR Y=10 TO 0 STEP -1Л 429. FOR X=0 TO 6Л 430. S=FD(X,Y)Л 431. IF S THEN SPOFS S,X*16+RND(96),392-Y*16+RND(48),120+RND(60)Л 432. NEXTЛ 433. VSYNC 5+30*!YЛ 434. NEXTЛ 435. COLOR 0Л 436. LOCATE 8,5Л 437. ? ”GAME OVER”Л 438. VSYNC 60Л 439. Л 440. COLOR 9Л 441. FOR I=0 TO 2Л 442. LOCATE 6,8+I*3+(I>1)*4Л 443. ? M$(9+I)Л 444. NEXTЛ 445. EV(4)=EV(4)+LM*3Л 446. EV=0Л 447. FOR I=0 TO 4Л 448. IF I<4 AND EV(I)>100 THEN EV(I)=100Л 449. EV=EV+EV(I)*(3-I/2)Л 450. NEXTЛ 451. Л 452. FOR I=0 TO 40Л 453. GFILL 48,64,159,143,255Л 454. FOR J=0 TO 5Л 455. D=PI()*(J%5)/2.5Л 456. V=SIN(D)Л 457. W=-COS(D)Л 458. IF J<5 THEN GLINE 104,111,104+V*40,111+W*40,4Л 459. R=I*EV(J%5)/100Л 460. IF R>40 THEN R=40Л 461. X2=104+V*RЛ 462. Y2=111+W*RЛ 463. IF J THEN GLINE X1,Y1,X2,Y2,12Л 464. X1=X2Л 465. Y1=Y2Л 466. NEXTЛ 467. VSYNC 2+28*!IЛ 468. NEXTЛ 469. IF EV<300 THEN E$=”N”+STR$(FLOOR(EV/30)):E=30Л 470. IF EV>=300 AND EV<700 THEN E$=CHR$(78.99-EV/50):E=50Л 471. IF EV>=700 THEN E$=”S”*(EV/100-6):E=100Л 472. IF EV%E>=E/2 THEN E$=E$+”+”Л 473. COLOR 14Л 474. LOCATE 15,22Л 475. ? FLOOR(EV)Л 476. Л 477. FOR Z=0 TO 1Л 478. COLOR RND(4)*3Л 479. LOCATE 9,21Л 480. ? ”GRADE ”;E$Л 481. Z=BTRIG() AND 240Л 482. GOSUB @GAЛ 483. VSYNC 1Л 484. NEXTЛ 485. RETURNЛ 486. Л 487. ′┝┸┝┸┝┸ INITIALIZE ┝┸┝┸┝┸Л 488. Л 489. @INЛ 490. Л 491. VISIBLE 0,1,0,0,0,0Л 492. B=SYSBEEPЛ 493. SYSBEEP=0Л 494. FOR I=0 TO 3Л 495. READ F$Л 496. LOAD F$,0Л 497. NEXTЛ 498. SYSBEEP=BЛ 499. Л 500. FOR Y=0 TO 23Л 501. FOR X=0 TO 31Л 502. P=144+X%2+((X AND 2)+Y)%4*32Л 503. C=9Л 504. BGPUT 0,X,Y,P,C,0,0Л 505. NEXTЛ 506. NEXTЛ 507. Л 508. GFILL 0,32,15,47,1Л 509. GBOX 0,48,15,95,13Л 510. FOR I=0 TO 11Л 511. FOR J=0 TO 3Л 512. C$=””Л 513. FOR Y=0 TO 7Л 514. FOR X=0 TO 7Л 515. C$=C$+HEX$(GSPOIT(J*8+X,I*8+Y))Л 516. NEXTЛ 517. NEXTЛ 518. CHRSET ”SPU2”,I*4+J,C$Л 519. NEXTЛ 520. NEXTЛ 521. Л 522. FOR I=0 TO 4Л 523. READ X1,Y1,X2,Y2Л 524. BGFILL 0,X1,Y1,X2,Y2,0Л 525. NEXTЛ 526. FOR I=0 TO 17Л 527. READ M$(I)Л 528. NEXTЛ 529. FOR I=130 TO 133Л 530. READ S$Л 531. BGMSET I,S$Л 532. NEXTЛ 533. BGMSETD 128,@MUЛ 534. FOR I=0 TO 1Л 535. LOCATE 22,17+I*4Л 536. ? M$(4+I)Л 537. NEXTЛ 538. T=2Л 539. GOSUB @CCЛ 540. Л 541. RETURNЛ 542. Л 543. ′┝┸┝┸┝┸ STRING DATA ┝┸┝┸┝┸Л 544. Л 545. DATA SPU0:CLMS_SP0,SPU1:CLMS_SP1,COL1:CLMS_COL,BGF:SBFT_E03Л 546. DATA 6,1,19,22, 22,1,23,6, 22,9,27,9, 22,17,27,18, 22,21,27,22Л 547. DATA NOVICE,STANDARD,EXPERT,”GOD HAND”,GEMS,”LEVEL ”Л 548. DATA ” PAUSE”,”PRESS L+R TO”,” EXIT GAME”Л 549. DATA ” SENSE”,”LUCK GUTS”,” SKILL VIGOR”Л 550. DATA ”┌┬─┐┬┬ ”,”││ ││ ”,”└┴─┘┴┴─┘”Л 551. DATA ”┬┬┬┐┌┬─┐”,”││││└┴┬┐”,”┴ ┴┴└─┴┘”Л 552. DATA ”@98@E127,96,0,96V96A+16”,”@9V96L48B<CDEFGAB”,”@99O5D16G8”Л 553. DATA ”{M=@112L32Q4D+GRA+DFR>BR<C+>G+REFC<RGD}:0V96{M}:1V80@D64R6{M}:2V64@D32R3{M}”Л 554. Л 555. ′┝┸┝┸┝┸ BGM MML DATA ┝┸┝┸┝┸Л 556. Л 557. @MUЛ 558. DATA ”{M1=L8R>B<E>BRB<AGRF+>A<F+}”Л 559. DATA ”{M2=[R>B<E>B<G>B<E>B<]2RF+D>A8<DF+>A<}”Л 560. DATA ”{M3=R>GB<DEF+GB}”Л 561. DATA ”{M4=R>F+A<DEF+GA}”Л 562. DATA ”{M5={M1}R>B<RF+{M1}L16R>B<EGR}”Л 563. DATA ”{M6={M2}GD>B<GF+D>B<F+{M2}R>B<EGF+D>B<D”Л 564. DATA ” {M2}GD>B<GF+D>B<F+{M2}>B<EGB>A<DF+A}”Л 565. DATA ”{M7=@43@E64,8,0,112}Л 566. DATA ”:0 T90[V64{M7}{M5}F+>B<F+{M5}ABAV80@ER@0”Л 567. DATA ”{M6}[{M3}R2{M4}R2{M3}R2{M4}R>AB<CDEF+G]2”Л 568. DATA ”{M6}[{M3}R2{M4}R2{M3}R2{M4}R2]2”Л 569. DATA ”L4>[R6G12GR6G12B[R6G12A]2]3B1&B1]”Л 570. DATA ”:1 [V64{M7}O3L2[ECDG4F+4]4@ER”Л 571. DATA ”V80[@0[ECDG4F+4]2@0ECD@50<G4.R8>@0ECD@48<B4.R8>”Л 572. DATA ”@0[EGDF+EBDF+]2]2”Л 573. DATA ”L12[>G<DF+R4>G<DF+G4>G<DF+R4>G<DF+RF+D]3”Л 574. DATA ”E2>L6G<CEA8<D8L4F+GA]”Л 575. DATA ”:2 V64O4[[R1]8”Л 576. DATA ”[[R1]4@48L4B.R8<C.>R8AAB.R8B.R8<C.>R8AA<D.>R8”Л 577. DATA ”{M7}L8[EF+G>B&B2<DEF+D4>A4<DEF+GB&B2ABAF+4D4F+]2@ER]2”Л 578. DATA ”{M7}L2EGF+L6EDF+L2EBL8ABAF+4EDF+”Л 579. DATA ”L2EGDL6F+E.D12E1&E1]”Л 580. DATA ”:3 V64O5@48[[R1]8”Л 581. DATA ”[[R1]4L4E.R8E.R8DRD.R8E.R8E.R8DRF+.R8”Л 582. DATA ”V48L1>>[BA]4]2V64”Л 583. DATA ”B<DED>B<D>G&G]”Л 584. DATA ”:4 V64O5@48[L1[R]5R4@E2,0,127,96A2.&A&A@ER”Л 585. DATA ”[L4[G.E8A.G8F+DG.F+8]3G.E8A.G8F+DB.A8”Л 586. DATA ”L1>V48[ED]4V64]2”Л 587. DATA ”EF+GAEF+E&E]”Л
※コードのHTML生成にPTC2HTMLを使用しています。