0 GOTO 1710
1PLAY"@11o5g":F(I,J)=-A:F=F+1:IFW>199THENLINE(148,37)-(319,199),1,BF:KANJI(148,37),,K(A),K(B):V=183:W=37:RETURNELSEKANJI(V,W),,K(A),K(B):V=V+35:IFV>319THENV=148:W=W+21:RETURNELSERETURN
2FORI=0TO8
3IFH(I)>=L(I)THENNEXTELSEFORF=0TO0:A=H(I)+1:B=F(I,L(I)):FORJ=L(I)TOASTEP-1:IFB>0THENB=F(I,J-1):NEXT:NEXT:NEXTELSEB=F(I,J-1):F(I,J)=B:IFB>0THENLINE(I*16,21+J*18)-STEP(15,15),,BF:KANJISTEP(-15,3),1,K(B):H(I)=A:B=0:NEXT:NEXT:NEXTELSEF=A<L(I):NEXT
4F=0:FORI=0TO8:B=L(I)+(L(I)=8):IFH(I)<=BTHENA=ABS(F(I,H(I))):FORJ=H(I)TOB:B=ABS(F(I,J+1)):IFPEEK(A*49+B/8-26065)ANDB(BAND7)THENF(I,J+1)=-B:LINE(I*16,38+J*18)-STEP(16,35),10,B:GOSUB1:A=B:NEXTELSEA=B:NEXT
5IFH(I)<H(I+1)THENA=H(I+1)ELSEA=H(I)
6IFL(I)<L(I+1)THENB=L(I+1)ELSEB=L(I)
7IFA<=BTHENFORJ=ATOB:A=ABS(F(I,J)):B=ABS(F(I+1,J)):IFPEEK(A*49+B/8-26065)ANDB(BAND7)THENF(I+1,J)=-B:LINE(I*16,38+J*18)-STEP(32,17),10,B:GOSUB1:NEXTELSENEXT
8NEXT:IFF=0GOTO1010ELSELINE(88,0)-(144,19),,BF:C=C+1:B=F*(F+1)*C*C*C*(C+1)*(C+1)*(C+1)/16:S=S+B:IFC>1THENCOLOR11:LOCATE11,0:?"combo!";:LOCATE13,1:?P$B;
9COLOR1:LOCATE22,1:?S$;:S$=RIGHT$("   "+STR$(S),5):COLOR16:LOCATE22,1:?S$;:FORI=0TO500:NEXT:PLAY"@o7g4
10FORI=0TO8:IFH(I)<9THENL(I)=0:FORJ=H(I)TO8:IFF(I,J)>0THENNEXTELSELINE(I*16,38+J*18)-STEP(16,17),,BF:IFJ=H(I)THENH(I)=J+1:NEXTELSEL(I)=J:B=0:NEXT
11NEXT:IFB=0GOTO2
1000 ' ---- NEXT KANJI ----------------
1010 FOR I=0 TO 8
1020 IF H(I)=0 THEN I=8:NEXT:GOTO 1310
1030 L(I)=0:NEXT
1040 A=N(4)
1050 LINE(64,0)-(79,15),,BF
1060 KANJI(64,16),1,K(A)
1070 FOR I=3 TO 0 STEP -1
1080 B=N(I):N(I+1)=B
1090 LINE(I*16,0)-STEP(15,15),,BF
1100 KANJI STEP(1,-15),1,K(B):NEXT
1110 N(0)=1+INT(RND(1)*391)
1120 KANJI(0,0),1,K(N(0))
1130 LINE(64,16)-(79,31),,BF
1140 KANJI(64,32),1,K(A)
1150 LINE(88,0)-(144,19),,BF
1160 I=4:C=0:BGM 0
1200 ' ---- MOVE KANJI ----------------
1210 B=STICK(0):B=I+(B=7)-(B=3)
1220 IF B<>I AND B>=0 AND B<=8 THEN LINE(I*16,32)-STEP(15,15),,BF:KANJI(B*16,32),1,K(A):PLAY "@11o3b":I=B
1230 IF STRIG(0)=0 GOTO 1210
1240 J=H(I)-1:F(I,J)=A:H(I)=J:L(I)=J
1250 LINE(I*16,32)-STEP(15,15),,BF
1260 KANJI(I*16,39+J*18),1,K(A)
1270 PLAY "@11od":BGM 1
1280 GOTO 4
1300 ' ---- GAME OVER -----------------
1310 PLAY "@11ro2g1"
1320 LINE(0,75)-(144,145),,BF
1330 COLOR 1
1340 KANJI(0,96),,"GAME OVER"
1350 LOCATE 2,12
1360 PRINT "HIT SPACE KEY!"
1370 COLOR 16
1380 FOR I=0 TO 8:H(I)=9:L(I)=0:NEXT
1390 IF INKEY$<>"" GOTO 1390
1400 A=RND(1)
1410 S$=INKEY$
1420 IF S$=CHR$(13) GOTO 2110
1430 IF S$<>" " GOTO 1400
1500 ' ---- GAME START ----------------
1510 PLAY "@o7c4"
1520 CLS
1530 KANJI(240,0),,477,287,"Q"
1540 KANJI(288,0),,"["
1550 LOCATE 19,1:PRINT "XRA    0"
1560 LINE(0,0)-(144,199),,BF
1570 LINE(0,27)-(63,28),1,BF
1580 LINE(80,27)-(144,28),1,BF
1590 FOR I=0 TO 4
1600 N(I)=1+INT(RND(1)*391)
1610 KANJI(I*16,0),1,K(N(I)):NEXT
1620 V=148:W=37:S=0:S$="    0"
1630 GOTO 1040
1700 ' ---- INITIALIZATION ------------
1710 CLEAR 50,&H9A60
1720 IF PEEK(&H9A65)<>&H10 OR PEEK(&HE5F9)<>&H11 THEN PRINT " キf[^ [hĂ":END
1730 SCREEN 1,1,1:WIDTH 40,20
1740 CONSOLE 0,20,0,0:COLOR 16,9:CLS
1750 LOCATE 13,9:PRINT "Please Wait..."
1760 PLAY "tv15l20"
1770 B=RND(-TIME):A=0:J=0:I=0
1780 DIM F(8,8),B(7),H(9),L(9),K(391)
1790 V=0:W=0:F=0:C=0:S$="":S=0
1800 P$="+"+CHR$(29)
1810 DIM N(4)
1820 A=1:FOR I=0 TO 7:B(I)=A:A=A*2:NEXT
1830 H(9)=9
1840 K(1)=1:A=&HE537
1850 FOR I=2 TO 390 STEP 2:B=PEEK(A)
1860 K(I)=K(I-1)+INT(B/16)
1870 K(I+1)=K(I)+(B AND 15)
1880 A=A+1:NEXT
1900 ' ---- TITLE ---------------------
1910 SCREEN 2,2:CONSOLE 0,20,0,0
1920 COLOR 16,1:CLS
1930 FOR J=20 TO 164 STEP 144
1940 FOR I=4 TO 284 STEP 40
1950 A=INT(RND(1)*19159)
1960 F=PEEK(&H9A60+A):IF F=0 GOTO 1950
1970 B=INT(RND(1)*8)
1980 IF (F AND B(B))=0 THEN B=(B+1) AND 7:GOTO 1980
1990 KANJI(I,J),,K(INT(A/49)+1),K((A MOD 49)*8+B)
2000 NEXT:NEXT
2010 SCREEN ,,2
2020 LINE(52,56)-(267,143),,BF
2030 COLOR 1
2040 KANJI(120,76),,477,287,"Q"
2050 KANJI(168,76),,"["
2060 LOCATE 13,12
2070 GOTO 1360
2100 ' ---- END -----------------------
2110 CLS:SCREEN ,1:CONSOLE ,,1,1:CLS
2120 SCREEN 1,2,1:WIDTH 40,20
2130 COLOR 16,9:CONSOLE 0,20,1,1:CLS
2140 SCREEN ,1
2150 PLAY "@tsmvlo","@tsmvlo","@tsmvlo","tsmvlo","tsmvlo","tsmvlo"
2200 '
2210 ' ********************************
2220 ' **                            **
2230 ' **         キQ[         **
2240 ' **                            **
2250 ' **  PC-6001mk2SR / PC-6601SR  **
2260 ' **                            **
2270 ' **  MODE 6 / N66SR-BASIC      **
2280 ' **                            **
2290 ' ********************************
