1000 COLOR15,0,14:SCREEN5:CLEAR200,PEEK(&HF349)+PEEK(&HF34A)*256-&H400:VDP(9)=VDP(9)OR&H22:DEFINTA-Z
1010 RESTORE3670:FORI=0TO15:READA,B,C:COLOR=(I,A,B,C):NEXT
1020 '……… LOGO ………
1030 OPEN"GRP:"AS#1:COLOR2:PSET(60,90),0:PRINT#1,"Presented by S-II":CLOSE#1
1040 COPY(195,90)-STEP(-135,7),0TO(196,90),0,TPSET:FORI=0TO15:J=I\4:COPY(59,90+J)-STEP(136,0),0TO(62-J,78+I),0:COPY(59,97-J)-STEP(136,0),0TO(55+J,109-I),0:NEXT
1050 FORI=2TO7:COLOR=(2,I,I,I):FORJ=0TO20:NEXTJ,I
1060 '……… LOAD ………
1070 SETPAGE0,3:CLS:SETPAGE0,1:BLOAD"UNO.GRP",S:CLEAR200,&HCFFF:DEFINTA-Z:BLOAD"BGM.BIN":DEFUSR=&HD2C0
1080 COPY(0,197)-STEP(255,14),1TO(0,192),2:COPY(0,184)-STEP(255,12),1TO(0,175),3:COPY(0,96)-STEP(255,19),1TO(0,192),1:COPY(0,116)-STEP(255,23),1TO(0,188),3:LINE(0,139)-STEP(255,0),0:COPY(0,139)-STEP(255,44),1TO(0,211),0
1090 COPY(106,192)-STEP(139,13),1TO(106,161),3:LINE(106,192)-STEP(139,13),3,BF,AND
1100 FORI=1TO3:COPY(0,0)-STEP(255,95),1TO(0,(IMOD2)*96),1+I\2:SETPAGE0,1+I\2:LINE(0,(IMOD2)*96)-STEP(255,95),15-I*4,BF,AND:NEXT:SETPAGE0,0:FORI=0TO30STEP2:LINE(55,78+I)-STEP(143,0),0:LINE(55,109-I)-STEP(143,0),0:NEXT
1110 '……… SHOKI ………
1120 DIM W(107),Q(107),ZZ(49),Z(4,49),S$(4,16),K(4),SC(4),CS(4)
1130 ONSTOPGOSUB2080:R=RND(-TIME):U=USR(-1):STOPON
1140 RESTORE3690:FORI=0TO4:READX(I),Y(I):NEXT
1150 RESTORE3710:FORI=0TO4:READS$(I,16):FORJ=0TO15:READS$(I,J):NEXTJ,I
1160 '……… TITLE ………
1170 RESTORE3700:SETPAGE0,3:LINE(0,0)-STEP(255,160),0,BF:FORI=1TO3:READA$:FORJ=0TO11:B$=MID$(A$,J+1,1):IFB$<>" "THENCOPY(76+VAL("&H"+B$)*15,192)-STEP(14,14),2TO(J*15,I*15),3:NEXTJ,IELSENEXTJ,I
1180 SETPAGE0,0:COLOR15,12:CLS:COLOR,14:CLS:COLOR,0:A=2:B=10:C=251:D=120:GOSUB1670
1190 SETPAGE0,3:OPEN"GRP:"AS#1:COLOR15:PSET(0,80),0:PRINT#1,"MOUSE   = CLICK LEFT":PSET(0,88),0:PRINT#1,"KEY/PAD = SPACE or TRIG B":FORI=0TO1:COPY(0,80)-STEP(199,15),3TO(0,96+I*16),3:LINE(0,96+I*16)-STEP(199,15),12+I,BF,AND:NEXT:SETPAGE0,0
1200 SOUND0,100:SOUND1,11:SOUND2,100:SOUND3,13:SOUND4,100:SOUND5,14:SOUND6,1:SOUND7,168:SOUND8,16:SOUND9,16:SOUND10,16:SOUND11,0:SOUND12,50
1210 FORL=0TO3:A=45:FORI=1TO15+(L=3):IFLTHENA=A-((I-7)\2)*(I<14):COPY(L*60-60,10)-STEP(59,55),3TO(-52+L*75,A),0:IFL<3ANDI=13THENSOUND13,1:ELSEIFL=3THENFORJ=0TO10:NEXTJ,I:SOUND13,1:GOTO1230
1220 COPY(L*60,59)-STEP(59,1-(I+(I-12)*(I>12))*5),3TO(23+L*75,10+I*5),0:NEXT:A=45:SOUND13,1:FORI=-5TO5:A=A+I:COPY(L*60,10)-STEP(59,55),3TO(23+L*75,A),0:FORJ=0TO40:NEXTJ,I:SOUND13,1:NEXT
1230 FORI=0TO2000:NEXT:SOUND8,0:SOUND10,0:FORI=0TO1:FORJ=0TO1:COPY(0,96+I*16+J*8)-STEP(199,7),3TO(28+I,156+I+J*20),0,TPSET:NEXT:NEXT:GOSUB1860
1240 IFSTRIG(0)ORSTRIG(3)THENMP=1ELSEIFSTRIG(1)THENMP=0ELSE1240
1250 GOSUB1880:SETPAGE0,3:LINE(0,0)-STEP(255,160),0,BF
1260 '……… NAME INPUT ………
1270 VDP(1)=VDP(1)AND&HBF:SETPAGE0,0:COLOR,14:CLS:COPY(0,192)-STEP(43,14),2TO(0,0),0:COPY(22,192)-STEP(21,14),2TO(0,16),0:COPY(0,192)-STEP(21,14),2TO(22,16),0
1280 COPY(0,0)-STEP(211,31),0TO(44,0),0:COPY(0,0)-STEP(255,179),0TO(0,32),0:A=12:B=132:C=232:D=72:GOSUB1670:A=68:B=56:C=119:D=15:GOSUB1670
1290 U=1:GOSUB1660:COLOR14,0:FORI=0TO3:A$="":FORJ=0TO13+(I=3)*3:A$=A$+CHR$(J+I*14+44)+" ":NEXT:FORJ=0TO1:PSET(20+J,140+I*16),0,TPSET:PRINT#1,A$:NEXTJ,I:COLOR7:PSET(72,60),0:PRINT#1,"NAME:":COLOR2
1300 COPY(216,204)-STEP(7,7),3TO(211,188),0:COPY(224,204)-STEP(7,7),3TO(227,188),0:CS=0:VDP(1)=VDP(1)OR&H40:GOSUB1840:S$(0,16)="":A=0:X=128:Y=160:UN=0:UD=1:IFMPTHENGOSUB1380
1310 IFSTRIG(0)ORSTRIG(1)THEN1310ELSEONMP+1GOSUB1350,1370:IFCS=54THEN1330ELSEIFCS=55THEN1400
1320 A$=CHR$(44+CS+(CS=53)*65):IFA<9THENFORI=0TO1:PSET(112+A*8+I,60),0,TPSET:PRINT#1,A$:NEXT:A=A+1:S$(0,16)=S$(0,16)+A$:GOTO1310ELSE1310
1330 A=A+(A>0):LINE(112+A*8,60)-STEP(7,7),0,BF:S$(0,16)=LEFT$(S$(0,16),A):GOTO1310
1340 '=== MOUSE
1350 GOSUB2000:IFX<16ORX>239ORY<136ORY>199THEN1350ELSECS=(X-16)\16+((Y-136)\16)*14:IFCS<0ORCS>55THEN1350ELSERETURN
1360 '--- KEYBOARD
1370 IFSTRIG(0)ORSTRIG(1)THEN1840ELSES=STICK(0)ORSTICK(1):C=CS:CS=(CS-(S=3)-(S=5)*14-(S=7)*55-(S=1)*42)MOD56:IFC=CSTHEN1370ELSELINE(16+(CMOD14)*16,137+(C\14)*16)-STEP(12,12),12,BF,XOR:GOSUB1380:GOSUB1840:GOTO1370
1380 LINE(16+(CSMOD14)*16,137+(CS\14)*16)-STEP(12,12),12,BF,XOR:RETURN
1390 '===
1400 UD=0:SOUND7,184:SOUND3,0:FORI=0TO40:SOUND2,200-I*4-(IMOD4)*12:SOUND9,15-I\10:NEXT:SOUND9,0
1410 FORI=1TO4:A=INT(RND(1)*3)+1:FORJ=0TO16:SWAPS$(I,J),S$(A,J):NEXTJ,I
1420 U=USR(0):SOUND11,136:SOUND12,19:PLAY"S0M5000T255O3L8DDDDG2L4AR8BR8GR4O4DD8DD2","S0T255O2L8GGGGB-2O3L4CR8DR8O2B-R4O3GG8GG2","V13T255O3L8GGGGB-4R4O4CR4DR4O3B-R8R4O4GR8G8GR8G4R4R8O1V15GV13GV14GV12GV13GV11GV12GV10GV11GV9GV10GV8GV9GV7GV8G"
1430 '……… GAMEN ………
1440 VDP(1)=VDP(1)AND&HBF:LINE(0,0)-STEP(255,211),14,BF:A=4:B=144:C=247:D=63:GOSUB1670
1450 FORI=0TO3:A=4+(IMOD2)*168:B=4+70*(I\2):C=79:D=65:GOSUB1670:NEXT
1460 A=88:B=4:C=79:D=11:GOSUB1670:A=88:B=58:C=79:D=81:GOSUB1670
1470 FORI=0TO1:A=88+I*57:B=20:C=22:D=22:GOSUB1670:NEXT:A=116:B=42:C=23:D=11:GOSUB1670:A=116:B=20:C=23:D=17:GOSUB1670:LINE(116,28)-STEP(23,1),14,B
1480 '……… NAME DRAW ………
1490 SETPAGE0,3:LINE(0,0)-STEP(75,39),0,BF:COLOR2,0:FORL=0TO4:A=LEN(S$(L,16)):FORI=0TOA-1:PSET(I*8+38-A*4,L*8),0,TPSET:PRINT#1,MID$(S$(L,16),I+1,1):NEXTI,L:CLOSE#1:COPY(74,0)-STEP(-74,39),3TO(75,0),3,TPSET:SETPAGE0,0
1500 FORI=1TO4:COPY(0,I*8)-STEP(75,7),3TO(X(I),Y(I)-26),0:NEXT
1510 '……… GAME START ………
1520 FORPL=0TO4:SC(PL)=0:GOSUB1910:NEXT:VDP(1)=VDP(1)OR&H40:PL=4:KI=0
1530 '……… SHAFLE & KUBARU ………
1540 IFKI=5THEN3590ELSEU=0:GOSUB1660
1550 LP=PL:FORI=0TO4:A=(I=0):LINE(X(I)-1,Y(I)-27)-STEP(77-A*168,63+A*2),0,B:NEXT
1560 COPY(224,48)-STEP(23,35),1TO(134,92),0:KI=KI+1:COPY(84,192)-STEP(21,15),1TO(0,72),3:COPY(106+KI*14,192)-STEP(13,13),1TO(4,73),3,TPSET
1570 COPY(0,40)-STEP(255,15),3TO(0,56),3:FORI=1TO7:A=VAL("&H"+MID$("258ACEF",I,1)):FORJ=0TOA:COPY(0,72+J*(14-(I=7))\A)-STEP(21,0),3TO(I*22-22,47-A\2+J),3:NEXTJ,I
1580 SOUND7,184:SOUND3,4:IFKI>1THENFORI=0TO6:COPY(132-I*22,56)-STEP(21,15),3TO(117,21),0:SOUND2,I*40:SOUND9,12+I\2:FORJ=0TO20:NEXTJ,I
1590 FORI=0TO6:COPY(I*22,40)-STEP(21,15),3TO(117,21),0:SOUND2,240-I*40:SOUND9,15-I\2:FORJ=0TO20:NEXTJ,I:SOUND9,0:PL=0:A$=" ¼ÔÂÌÙœãïý–Þå":GOSUB1800
1600 FORI=0TO107:W(I)=I+I\25-(I<100):NEXT:FORI=0TO107:SWAPW(I),W(INT(RND(1)*108)):NEXT
1610 FORI=0TO4:FORJ=0TO49:Z(I,J)=0:NEXT:K(I)=7:FORJ=0TO6:Z(I,J)=W(J+I*7):NEXTJ,I
1620 GOSUB1690:FORPL=1TO4:GOSUB1720:NEXT:PL=0:GOSUB1740:GOSUB1690:W=35:Q=0
1630 BA=W(W):Q(Q)=BA:Q=Q+1:BC=BA\26:GOSUB1750:GOSUB1830:W=W+1:IFBC=4THENFORI=0TO1000:NEXT:GOTO1630
1640 PL=0:GOSUB1810:PL=LP:JN=1:SN=1:BH=1:DT=2*(BAMOD26<24):GOTO2100
1650 '……… MAIN SUB ………
1660 FORI=0TO3:POKE&HD1FC+I,VAL("&H"+MID$("00D5E9D5DCD618D7",U*8+I*2+1,2)):NEXT:FORI=-1TO0:I=PLAY(0):NEXT:U=USR(1):RETURN
1670 LINE(A,B)-STEP(C,D),0,BF:FORK=0TO1:J=K*2:LINE(A-K,B-1-K)-STEP(C+J,0),12:LINE(A-1-K,B-K)-STEP(0,D+J),12:LINE(A+C+1+K,B-K)-STEP(0,D+J),13:LINE(A-K,B+D+1+K)-STEP(C+J,0),13:NEXT:RETURN
1680 A=A\2:IFA<52THENA=A+(A\13)*3:X=(AMOD8)*32:Y=((A\8)MOD4)*48:P=A\32+1:RETURNELSEIFA<54THENX=160:Y=48:P=1:RETURNELSEX=192:Y=48:P=1:RETURN
1690 IFPLTHEN1720
1700 LINE(6,158)-STEP(243,47),0,BF:IFK(0)THENB=21200/(K(0)+(K(0)>1))ELSERETURN
1710 FORI=0TOK(0)-1:A=Z(0,I):GOSUB1680:COPY(X,Y)-STEP(31,47),PTO(6+I*B\100,158),0,TPSET:NEXT:RETURN
1720 LINE(X(PL),Y(PL))-STEP(75,35),0,BF:IFK(PL)THENB=5200/(K(PL)+(K(PL)>1))ELSERETURN
1730 FORI=0TOK(PL)-1:COPY(224,48)-STEP(23,35),1TO(I*B\100+X(PL),Y(PL)),0,TPSET:NEXT:RETURN
1740 IFK(PL)=1THENRETURNELSEFORI=0TOK(PL)-2:FORJ=I+1TOK(PL)-1:IFZ(PL,I)>Z(PL,J)THENSWAPZ(PL,I),Z(PL,J):NEXTJ,I:RETURNELSENEXTJ,I:RETURN
1750 IFBC<4THENLINE(98,82)-STEP(31,3),15-BC*4,BF
1760 A=BA:GOSUB1680:COPY(X,Y)-STEP(31,47),PTO(98,88),0:RETURN
1770 A=A\2:IFBA<104THENIFDT=-2AND(A=BA\2ORAMOD13=(BA\2)MOD13ORA\13=BCORA\2=26ORA\2=27)OR(DT>-2ANDAMOD13=12)THENFG=0:RETURNELSEFG=1:RETURNELSEIFA\13=BCORA>51THENFG=0:RETURNELSEFG=1:RETURN
1780 FORI=0TOK(0)-1:IFZ(0,I)>W(W)THENJ=I:I=K(0)-1:NEXTELSENEXT:J=I
1790 FORI=K(0)TOJSTEP-1:Z(0,I+1)=Z(0,I):NEXT:Z(0,J)=W(W):GOSUB1970:K(0)=K(0)+1:SN=0:RETURN
1800 GOSUB1810:D=0:A=(PL=0):FORI=0TOLEN(A$)-1:J=ASC(MID$(A$,I+1,1))-144:IFJ>-1THENK=(J\2=39):D=D-K*6:J=-J*(J<>-112):COPY((JMOD42)*6,188+(J\42)*8)-STEP(5,7),3TO(X(PL)+I*6+1-D-A*82,Y(PL)-15+A*9+K),0,TPSET:NEXT:RETURNELSENEXT:RETURN
1810 LINE(X(PL)-(PL=0)*82,Y(PL)-16+(PL=0)*9)-STEP(75,8),0,BF:RETURN
1820 '--- SOUND ---
1830 SOUND7,184:SOUND3,2:FORI=0TO15:SOUND2,I*16:SOUND9,15-I\6+(I>1):NEXT:SOUND9,0:RETURN
1840 SOUND7,184:SOUND2,100:SOUND3,0:SOUND9,16:SOUND12,3:SOUND13,1:RETURN
1850 U=USR(0):SOUND7,184:PLAY"T255V14O3L8AGA2L16AAAAAAL8AA4GFEDD-4D4","T255V14O2R2R4L16AR16AR16AR16R8R4R2D-4D4","T255V14O1R2R4L16AR16AR16AR16R8R4R2D-4D4":U=0:GOTO1660
1860 SOUND7,184:SOUND3,0:FORK=0TO20:SOUND2,80+K:SOUND2,50:SOUND9,15:NEXT:FORK=0TO50:SOUND2,150:SOUND2,80-K*(K>10):SOUND9,15:NEXT:SOUND9,0:RETURN
1870 SOUND7,184:FORI=0TO18:SOUND2,90:SOUND2,80-I:SOUND9,15-I\10:NEXT:FORI=0TO40:SOUND2,80:SOUND2,100+I:SOUND9,15-I\10:NEXT:FORI=0TO20:SOUND2,80:SOUND2,150+I:SOUND9,15-I\8:NEXT:SOUND9,0:RETURN
1880 SOUND7,184:SOUND3,0:FORI=0TO20:SOUND2,84-(IMOD3)*12-I*3:SOUND9,15-I\5:NEXT:SOUND9,0:RETURN
1890 SOUND7,184:SOUND3,0:FORI=0TO10:SOUND2,(IMOD3)*100+20:SOUND9,15:NEXT:FORI=30TO0STEP-1:SOUND2,(IMOD3)*6+I*4:SOUND9,15-I\6:NEXT:SOUND9,0:RETURN
1900 '--- SCORE ---
1910 A=(PL=0):A$=RIGHT$(";;;"+MID$(STR$(SC(PL)),2),4):IFSC(PL)<0THENMID$(A$,1,1)=":"
1920 FORI=0TO3:COPY(156+(ASC(MID$(A$,I+1,1))-48)*5,204)-STEP(4,7),3TO(90+(X(PL)\174)*57+I*5-A*29,22+((Y(PL)-36)\60)*11),0:NEXT:RETURN
1930 '--- UNO ---
1940 IFK(0)>2OR UNTHENRETURNELSEFORI=0TO12:COPY(152,187)-STEP(15,-I),3TO(120,182),0:NEXT:UN=1:UW=5:RETURN
1950 UW=(UW+1)MOD10:COPY(152+ABS(5-UW)*16,175)-STEP(15,12),3TO(120,170),0:RETURN
1960 '--- NOKORI ---
1970 W=W+1:IFW<108THENRETURNELSELINE(134,92)-STEP(23,35),0,BF:SOUND7,184:SOUND2,200:SOUND3,0:SOUND9,15:FORQI=0TO80STEP2:SOUND2,172-(QI\10)*20-(QIMOD5)*8:NEXT:SOUND9,0
1980 FORQI=0TOQ-2:SWAPQ(QI),Q(INT(RND(1)*(Q-3))):NEXT:FORQI=0TOQ-2:W(109-Q+QI)=Q(QI):NEXT:W=109-Q:Q(0)=Q(Q-1):Q=1:COPY(224,48)-STEP(23,35),1TO(134,92),0:RETURN
1990 '--- MOUSE ---
2000 GOSUB2060:S=PAD(12)
2010 XX=X:YY=Y:S=PAD(12):X=X+PAD(13):Y=Y+PAD(14):IFUN=0THEN2020ELSEGOSUB1950
2020 IFX<0THENX=0ELSEIFX>250THENX=250
2030 IFY<0THENY=0ELSEIFY>205THENY=205
2040 IFY<>YYORX<>XXTHENGOSUB2060:COPY(96,188)-STEP(5,6),3TO(XX,YY),0,XOR
2050 IFSTRIG(1)THENGOSUB2060:GOTO1840ELSEIFSTRIG(3)ANDUD=0THENGOSUB1940:GOTO2010ELSE2010
2060 COPY(96,188)-STEP(5,6),3TO(X,Y),0,XOR:RETURN
2070 '--- STOP ---
2080 STOPOFF:U=USR(0):SOUND7,184:SOUND3,0:FORI=0TO40:SOUND2,I*160MOD256:SOUND9,15-I\4:NEXT:SOUND9,0:U=USR(2):VDP(9)=VDP(9)AND&HDD:SCREEN0:COLOR15,0,0:PRINT"Bye-Bye!":END
2090 '……… MAIN ………
2100 IFSN=0THEN2130
2110  A=BA\2MOD13:IFA<10THEN2130
2120   ONA-9GOSUB2210,2270,2330
2130 BH=0:A=(PL=0):LINE(X(PL)-1,Y(PL)-27)-STEP(77-A*168,63+A*2),0,B
2140 PL=(PL+JN)MOD5:COPY(0,PL*8)-STEP(75,7),3TO(90,6),0
2150 A=(PL=0):LINE(X(PL)-1,Y(PL)-27)-STEP(77-A*168,63+A*2),7,B
2160 SOUND7,184:SOUND2,150:SOUND3,0:SOUND9,16:SOUND12,10:SOUND13,1:FORI=0TO10:NEXT:SOUND2,50:SOUND12,20:SOUND13,1
2170 UN=0:GOSUB2350
2180 GOTO2100
2190 '……… ETC. ………
2200 '--- SKIP ---
2210 IFBH=0THENA$=S$(PL,0):GOSUB1800:FORI=0TO1000:NEXT
2220 PL=(PL+JN)MOD5:A$=S$(PL,1):GOSUB1800:SN=0:FORI=0TO1000:NEXT:GOSUB1810:PL=(PL+5-JN)MOD5:GOSUB1810:LINE(X(PL)-1,Y(PL)-27)-STEP(77-(PL=0)*168,63+(PL=0)*2),0,B
2230 PL=(PL+JN)MOD5:IFQ<4THENRETURNELSEIFQ(Q-2)\2MOD13<>10ORQ(Q-3)\2MOD13<>10ORQ(Q-4)\2MOD13<>10THENRETURN
2240 COPY(110,175)-STEP(40,12),3TO(76,0),3:COPY(40,175)-STEP(38,12),3TO(117,0),3:COPY(79,175)-STEP(30,12),3TO(101,13),3:COPY(88,58)-STEP(79,81),0TO(0,72),3:SOUND7,184:SOUND3,0:SOUND9,14
2250 FORI=0TO108STEP2:A=-(I-27)*(26<IANDI<81)-54*(I>80):COPY(0,72+A)-STEP(79,27),3TO(160,25+A),3:COPY(76,0)-STEP(79,25),3TO(160,I),3,TPSET:COPY(160,25+A)-STEP(79,27),3TO(88,58+A),0:SOUND2,120+ABS(5-(IMOD10))*4:NEXT:SOUND9,0:RETURN
2260 '--- REVERSE ---
2270 IFBH=0THENA$=S$(PL,2):GOSUB1800:FORI=0TO1000:NEXTELSEPL=(PL+JN)MOD5
2280 PL=(PL+JN)MOD5:A$=S$(PL,3):GOSUB1800:JN=5-JN:SN=0:FORI=0TO1000:NEXT:GOSUB1810:PL=(PL+JN)MOD5:GOSUB1810:IFQ<4THEN2310ELSEIFQ(Q-2)\2MOD13<>11ORQ(Q-3)\2MOD13<>11ORQ(Q-4)\2MOD13<>11THEN2310
2290 COPY(0,175)-STEP(78,12),3TO(76,0),3:COPY(79,175)-STEP(30,12),3TO(101,13),3:COPY(88,58)-STEP(79,81),0TO(0,72),3:SOUND7,184:SOUND3,0:SOUND9,14
2300 FORI=0TO108STEP2:A=-(I-27)*(26<IANDI<81)-54*(I>80):COPY(0,72+A)-STEP(79,27),3TO(160,25+A),3:COPY(76,0)-STEP(78,25),3TO(161,I),3,TPSET:COPY(160,25+A)-STEP(79,27),3TO(88,58+A),0:SOUND2,120+ABS(5-(IMOD10))*4:NEXT:SOUND9,0
2310 IFBH=0THENRETURNELSEPL=(PL+5-JN)MOD5:RETURN
2320 '--- DRAW TWO ---
2330 IFBH=0THENA$=S$(PL,4):GOSUB1800:FORI=0TO1000:NEXT:GOSUB1810:RETURNELSERETURN
2340 '……… TURN ………
2350 IFSN=0THEN2620
2360 IFBAMOD26<24THEN2390
2370  FORI=0TOK(PL)-1:IFZ(PL,I)MOD26>23THENI=K(PL)-1:NEXT:GOTO2620ELSENEXT
2380  A$=S$(PL,5):GOSUB1800:GOSUB2890:GOSUB1810:RETURN
2390 IFBA<108THEN2620
2400 'ƒƒƒ PLAYER
2410 IFPLTHEN2540
2420  COPY(30,192)-STEP(53,19),1TO(101,60),0:IFMPTHEN2480
2430 '=== MOUSE
2440  X=162:Y=60
2450  GOSUB2000:IFX<101ORX>154ORY<60ORY>79THEN2450
2460  CX=(X-101)\27:GOTO2510
2470 '--- KEYBOARD
2480  IFINKEY$<>""THEN2480ELSECX=0:GOTO2500
2490  S=STICK(0)ORSTICK(1):IFSTRIG(0)=0ANDSTRIG(1)=0THENIFS<>3ANDS<>7THEN2490ELSEC=CX:CX=-(S=3):IFC=CXTHEN2490ELSELINE(128-CX*27,60)-STEP(26,19),0,BELSE2510
2500  LINE(101+CX*27,60)-STEP(26,19),2,B:GOSUB1840:FORI=0TO100:NEXT:GOTO2490
2510  LINE(101,60)-STEP(53,19),0,BF:IFCX=1THENA$=S$(0,6):GOSUB1800:GOTO2590
2520  GOTO2560
2530 'ƒƒƒ COMPUTER
2540  IFRND(1)>1/(K((PL+5-JN)MOD5)/4)ORHD=1THENA$=S$(PL,6):GOSUB1800:GOTO2590
2550 'ƒƒƒ
2560  A$=S$(PL,7):GOSUB1800:GOSUB1870:LP=(PL+5-JN)MOD5:FORI=0TOK(LP)-1:IFZ(LP,I)\26<>CBTHENNEXT:GOTO2580ELSEI=K(LP)-1:NEXT
2570  A$=S$(PL,8):GOSUB1800:SWAPLP,PL:FORK=0TO3:GOSUB3120:NEXT:SWAPLP,PL:LINE(104,147)-STEP(47,7),0,BF:GOSUB1810:GOTO2620
2580  A$=S$(PL,9):GOSUB1800:GOSUB1850:GOSUB3120:GOSUB3120
2590  FORK=0TO3:GOSUB3120:NEXT:GOSUB1810:RETURN
2600 '……… CHOICE ………
2610 'ƒƒƒ PLAYER
2620 IFPLTHEN2810
2630 K=K(0)-1:B=21200/(K-(K=0)):IFMPTHEN2720
2640 '=== MOUSE
2650 X=128:Y=150
2660 GOSUB2000:IFX<6ORX>249ORY<158ORY>205THEN2690
2670 CS=K(0):FORI=K(0)-1TO0STEP-1:XX=5+I*B\100:IFXX<XANDX<XX+33THENCS=I:I=0
2680 NEXT:IFCS=K(0)THEN2660ELSECY=150:GOTO2790
2690 IFX<134ORX>157ORY<92ORY>127THEN2660
2700 CS=0:CY=84:GOTO2790
2710 '--- KEYBOARD
2720 IFINKEY$<>""THEN2720ELSECS=0:CX=8:CY=150:GOTO2780
2730 IFSTRIG(0)=0ANDSTRIG(1)=0THEN2740ELSELINE(CX,CY)-STEP(7,7),0,BF:GOTO2790
2740 IFINKEY$<>CHR$(27)ANDSTRIG(3)=0OR UNTHEN2750ELSEGOSUB1940
2750 IFUNTHENGOSUB1950
2760 S=STICK(0)ORSTICK(1):A=CX:C=CY:IFSTHENCS=CS+(S=3)*(CS<K)-(S=7)*(CS>0):IFS=1THENCX=142:CY=84ELSECX=8+CS*B\100:CY=150
2770 IFCX=AANDCY=CTHEN2730ELSELINE(A,C)-STEP(7,7),0,BF
2780 COPY(224,88)-STEP(7,7),1TO(CX,CY),0:GOSUB1840:GOTO2730
2790 A=Z(0,CS):GOSUB1770:IFFG=0ORCY=84THEN2880ELSEIFMPTHEN2780ELSE2660
2800 'ƒƒƒ COMPUTER
2810 ZZ=-1:FORI=0TOK(PL)-1:A=Z(PL,I):GOSUB1770:IFFG=0THENZZ=ZZ+1:ZZ(ZZ)=Z(PL,I):NEXTELSENEXT:IFZZ=-1THENCY=84:GOTO2850
2820 FORI=0TOZZ:A=I:FORJ=ITOZZ:IFZZ(A)MOD26<ZZ(J)MOD26ANDZZ(A)<104THENA=J
2830 NEXT:SWAPZZ(A),ZZ(I):IF(ZZ(I)<104ORRND(1)>.7)ANDRND(1)>.1THENJ=I:I=ZZ:NEXTELSENEXT:J=0
2840 FORI=0TOK(PL)-1:IFZZ(J)=Z(PL,I)THENCS=I:I=K(PL)-1:CY=150:NEXTELSENEXT
2850 UN=-(RND(1)>.1)
2860 'ƒƒƒ
2870 '……… KETTEI ………
2880 IFCY>84THEN3150
2890 IFDT>-2THENFORK=0TODT+1:GOSUB3120:NEXT:DT=-2:RETURN
2900 '……… HIITANOWO DASU ………
2910 'ƒƒƒ PLAYER
2920 HD=0:IFPLTHEN3080
2930 GOSUB1780:CS=J:A=Z(0,CS):GOSUB1680:COPY(X,Y)-STEP(31,47),PTO(132,70),0:GOSUB1880
2940 A=Z(0,CS):GOSUB1770:IFFGTHENGOSUB1690:GOTO3060ELSECOPY(0,192)-STEP(29,19),1TO(98,60),0:IFMPTHEN3000
2950 '=== MOUSE
2960 X=138:Y=60
2970 GOSUB2000:IF131<XANDX<164AND69<YANDY<118THENCX=0:GOTO3050ELSEIFX<98ORX>127ORY<60ORY>79THEN2970
2980 CX=(X-98)\15:GOTO3050
2990 '--- KEYBOARD
3000 IFINKEY$<>""THEN3000ELSECX=0:GOTO3040
3010 IFINKEY$<>CHR$(27)ANDSTRIG(3)=0OR UNTHEN3020ELSEGOSUB1940
3020 IFUNTHENGOSUB1950
3030 S=STICK(0)ORSTICK(1):IFSTRIG(0)=0ANDSTRIG(1)=0THENIFS<>3ANDS<>7THEN3010ELSEC=CX:CX=-(S=3):IFC=CXTHEN3010ELSELINE(113-CX*15,60)-STEP(14,19),0,BELSE3050
3040 LINE(98+CX*15,60)-STEP(14,19),2,B:GOSUB1840:FORI=0TO100:NEXT:GOTO3010
3050 IFCXTHENGOSUB1690ELSEGOSUB3060:HD=1:GOTO3150
3060 LINE(98,60)-STEP(29,19),0,BF:LINE(132,70)-STEP(31,47),0,BF:COPY(224,48)-STEP(23,35),1TO(134,92),0:GOSUB1810:RETURN
3070 'ƒƒƒ COMPUTER
3080 A$=S$(PL,13):GOSUB1800:FORI=0TO1000:NEXT:CS=K(PL):GOSUB3120:GOSUB1880
3090 A=Z(PL,CS):GOSUB1770:IFFGTHENGOSUB1810:RETURNELSEHD=1:IFK(PL)=2THEN3150ELSEA$=S$(PL,14):GOSUB1800:GOTO3150
3100 'ƒƒƒ
3110 '……… ADD ………
3120  IFPL=0THENGOSUB1780:GOSUB1690:RETURN
3130  Z(PL,K(PL))=W(W):GOSUB1970:K(PL)=K(PL)+1:SN=0:GOSUB1720:RETURN
3140 '……… BA NO SHORI ………
3150 IFZ(PL,CS)MOD26>23THENDT=DT+2ELSEDT=-2
3160 IFK(PL)=2ANDUNTHENA$=S$(PL,11):GOSUB1800
3170 SN=1:CB=BC:BA=Z(PL,CS):Q(Q)=BA:Q=Q+1:BC=BA\26:FORI=CS+1TOK(PL):Z(PL,I-1)=Z(PL,I):NEXT:K(PL)=K(PL)-1:GOSUB1690:GOSUB1750:GOSUB1830
3180 IFK(PL)>1THEN3210ELSEIFK(PL)=0THENRETURN3410
3190 IFUN=0THENA$=S$(PL,10):GOSUB1800:GOSUB1850:C=SN:GOSUB3120:GOSUB3120:SN=C:GOSUB1810:GOTO3210
3200  A=1-SGN(PL)*2:FORI=-44TO44:VDP(24)=(256+A*(44-ABS(I)))MOD256:IFITHENNEXTELSEGOSUB1860:NEXT
3210 GOSUB1810:IFBA<104THENRETURN
3220 '……… COLOR CHOICE ………
3230 'ƒƒƒ PLAYER
3240 IFPLTHEN3370
3250 LINE(98,60)-STEP(59,19),1,BF:FORI=0TO3:LINE(99+(IMOD2)*30,61+(I\2)*10)-STEP(27,7),15-I*4,BF:NEXT:GOSUB1890:IFMPTHEN3310
3260 '=== MOUSE
3270 X=162:Y=60:UN=0
3280 GOSUB2000:IFX<98ORX>157ORY<60ORY>79THEN3280
3290 CS=(X-98)\30+((Y-60)\10)*2:GOTO3350
3300 '--- KEYBOARD
3310 IFINKEY$<>""THEN3310ELSECS=0:GOTO3340
3320 IFSTRIG(0)ORSTRIG(1)THEN3350
3330 S=STICK(0)ORSTICK(1):IFSMOD2=0THEN3320ELSEC=CS:CS=-((CS\2)*2)*(S=3ORS=7)-(S=3)-(CSMOD2)*(S=1ORS=5)-2*(S=5):IFC<>CSTHENLINE(98+(CMOD2)*30,60+(C\2)*10)-STEP(29,9),1,BELSE3320
3340 LINE(98+(CSMOD2)*30,60+(CS\2)*10)-STEP(29,9),2,B:GOSUB1840:FORI=0TO100:NEXT:GOTO3320
3350 A$=S$(0,12):GOSUB1800:BC=CS:GOSUB1750:LINE(98,60)-STEP(59,19),0,BF:GOSUB1810:RETURN
3360 'ƒƒƒ COMPUTER
3370 A$=S$(PL,12):GOSUB1800:CS=0:B=0:FORI=0TO3:A=0:FORJ=0TOK(PL)-1:A=A-(Z(PL,J)\26=I):NEXT:IFA>BTHENB=A:CS=I:NEXTELSENEXT
3380 BC=CS:GOSUB1750:GOSUB1890:FORI=0TO1000:NEXT:GOSUB1810:RETURN
3390 'ƒƒƒ
3400 '……… WIN ………
3410 U=USR(0):LP=PL:IFBAMOD26<24THEN3480
3420  PL=(PL+JN)MOD5:FORI=0TOK(PL)-1:IFZ(PL,I)MOD26<24ORK(PL)=0THENNEXT:GOTO3440ELSEJ=I:I=K(PL)-1:NEXT
3430  DT=DT+2:BA=Z(PL,J):BC=BA\26:Q(Q)=BA:Q=Q+1:FORI=J+1TOK(PL):Z(PL,I-1)=Z(PL,I):NEXT:K(PL)=K(PL)-1:GOSUB1690:GOSUB1750:GOSUB1830:GOTO3420
3440  A$=S$(PL,15):GOSUB1800:GOSUB3120:FORK=0TODT:GOSUB3120:NEXT:GOSUB1810
3450  IFK(LP)=0THEN3480
3460  K=LP:FORI=1TO4:J=(LP+(5-JN)*I)MOD5:IFK(J)=0THENK=J
3470  NEXT:IFLP=KTHENDT=-2:U=0:GOSUB1660:GOTO2100ELSELP=K
3480 IFBA<108THEN3500
3490  PL=(PL+JN)MOD5:A$=S$(PL,15):GOSUB1800:FORK=0TO3:GOSUB3120:NEXT:GOSUB1810
3500 SOUND11,136:SOUND12,19:SOUND7,184:PLAY"O4T180L8S0M5000CCE-CE-GR8O5CR8CCCC","O4T180L8S0E-E-GE-GB-R8O5E-R8E-E-E-E-","O2T180L8S0CCCCE-E-E-O3E-R8E-R8E-L32V14E-V13CV12O2B-V11AO1S0E-1"
3510 FORPL=0TO4:CS(PL)=0:FORI=0TOK(PL)-1:A=Z(PL,I):B=A\2MOD13:CS(PL)=CS(PL)+B*(A<104ANDB<10)+20*(B>9)+50*(A>103):NEXT:CS(PL)=CS(PL)*SGN(K(PL)):SC(PL)=SC(PL)+CS(PL):NEXT:CS(LP)=-CS(0)-CS(1)-CS(2)-CS(3)-CS(4):SC(LP)=SC(LP)+CS(LP)
3520 FORI=0TO4:A=10+X(I)-(I=0)*85:B=(CS(I)<0):C=Y(I)+1-(I>0)*9:A$=RIGHT$("::"+MID$(STR$(CS(I)),2),3):FORJ=0TO9STEP3:LINE(A-5,C+4-J)-STEP(65,5+J*2),0,BF:LINE(A-4,C+5-J)-STEP(63,3+J*2),14,B:NEXT
3530 FORJ=1TO3:COPY(106+(ASC(MID$(A$,J,1))-48)*14,192+B*31)-STEP(13,13),1-B*2TO(A+J*14,C),0,TPSET:NEXT:IFBTHENCOPY(232,187)-STEP(13,4),1TO(A,C+4),0,TPSET:NEXTELSENEXT
3540 PL=0:A$=" ËÂÄ ½Íß°½ ·²":GOSUB1800:FORI=0TO1:I=-(STRIG(0)ORSTRIG(1)):NEXT:GOSUB1810
3550 FORPL=0TO4:GOSUB1910:NEXT
3560 FORI=1TO4:LINE(X(I),Y(I))-STEP(75,35),0,BF:NEXT:LINE(6,146)-STEP(243,59),0,BF:LINE(88,60)-STEP(79,79),0,BF
3570 PL=(LP+4)MOD5:GOTO 1540
3580 '……… END ………
3590 VDP(1)=VDP(1)AND&HBF:COLOR,14:CLS:COPY(44,192)-STEP(31,14),2TO(0,0),0:COPY(60,192)-STEP(15,14),2TO(0,16),0:COPY(44,192)-STEP(15,14),2TO(16,16),0
3600 COPY(0,0)-STEP(223,31),0TO(32,0),0:COPY(0,0)-STEP(255,179),0TO(0,32),0:A=52:B=32:C=151:D=130:GOSUB1670
3610 SOUND7,152:SOUND6,10:PLAY"V15O3T255L16FR16FR16R16R16V13CR16CR16R16R16V15FR16F","V15O2T255L16FR16FR16R16R16V13CR16CR16R16R16V15FR16F","S0T255M5000O3L16FR16FR16M2000BAGFEDCO2BM5000O4FR16F1"
3620 FORI=0TO4:CS(I)=I:NEXT:FORI=0TO4:FORJ=ITO4:IFSC(CS(I))<SC(CS(J))THENSWAPCS(I),CS(J):NEXTELSENEXT
3630 COPY(0,CS(I)*8)-STEP(75,7),3TO(60,40+I*20),0:A=SC(CS(I)):B=(A<0):A$=RIGHT$("::"+MID$(STR$(A),2),3)
3640 FORJ=1TO3:COPY(106+(ASC(MID$(A$,J,1))-48)*14,192+B*31)-STEP(13,13),1-B*2TO(136+J*15,37+I*20),0:NEXT:IFBTHENCOPY(232,187)-STEP(13,4),1TO(136,41+I*20),0:NEXTELSENEXT
3650 PL=0:A$=" ËÂÄ ½Íß°½ ·²":GOSUB1800:VDP(1)=VDP(1)OR&H40:FORI=0TO1:I=-(STRIG(0)ORSTRIG(1)):NEXT:GOSUB1880:COLOR15,0:GOTO1170
3660 '……… DATA ………
3670 DATA 1,1,1,0,0,0,1,1,1,1,1,7,1,2,7,5,5,5,7,7,7,7,7,0
3680 DATA 1,1,1,6,1,0,1,1,1,7,1,1,2,2,2,4,4,4,3,3,3,0,7,0
3690 DATA6,172,6,102,6,32,174,32,174,102
3700 DATA "0  046 0933A","2  227622  2","833B1 75833B"
3710 DATA S-II
3720 DATA ½·ÂÌßœÞôÄÞ±Î,äêÞ�åÜÚ     ,ïüâãïüù³§   ,¥¥¥¥¥‘ú¨
3730 DATA »ÞÏ°ðŸœù    ,²Ô°Ýíýà’    ,¶ÞËÞÁְݧ   ,Á²Ô±Ú´Ý¼Þ²§
3740 DATA ‘àøÞô’§  ,ŸýåÊÞÅÅ     ,åýéšä–奥¥  ,³ÉœÞôÎÞ¹§§
3750 DATA šé²Ûóâã蔧§ ,àÞ¤àޞ蔧§  ,•âœô‘‘§§    ,’ôýÊ޶ݽ
3760 DATA ¾°×°Ñ°Ý
3770 DATA ½·ÂÌß³§     ,’ô°ý§ïâãö°§§,ØÊÞ°½³§     ,áö¤áöâ䥥¥
3780 DATA •œ•—ÄÞ۳ij§§,·ÞÂÁÖ°°Ý§§  ,ôò䚥¥¥     ,ªæ–üâãÁÔÚݼާ
3790 DATA ×·°©       ,Ÿýå‘°°§§§   ,”§’üå–â২  ,ªæ–üâã³É§§
3800 DATA Ѱݶװêšú§  ,¸Þ½Ý¥¥¥å’¥¥¥,ÔÂÀ°°§§     ,ªæ–üâã•œøö§
3810 DATA üëßš
3820 DATA üëßš½·ÂÌß³§ ,ÎßÃÁ¥¥¥     ,üëßšØÊÞ±½³§ ,¥¥¥¥¥¥¸Þ½Ý¡
3830 DATA üëßšÄÞ۳ij³§,¥¥¥¥¥¥¸Þ°¥¥¥,—Þöëßáôý¥¥¥ ,êö°ýÁÔÚݼާ
3840 DATA êÞ’ëÞ°ý§    ,üëßš–園奥¥,¥¥¥¥¥¥”¨    ,³ÉàÞö°ý§
3850 DATA ýœÞô²Ûêšú⧠,àÞžå’¥¥¥¡   ,‘âàö°°ý§§   ,á°áôýéÊÞ¶°§
3860 DATA œïâÞ›”š
3870 DATA äìÞüö§      ,ÌЧ         ,ïüâãºÞ°§    ,ÌÞ°
3880 DATA ÌÞ×ÂÃÞ°¶°ÄÞ§,‘æö§§       ,ôò䚥¥¥¡    ,ÁÔÚݼÞàÞü§
3890 DATA ÔÂÀ°©©©     ,•äšåýã”°°§§ ,ôâêÞ’œÞôå°’§,³É©
3900 DATA ¥¥¥²Ûêšúè   ,Ô°ÝàÞžå°’§  ,œö“ìÞ§      ,ÌÐÌÐÌÐÌÐÌЧ
3910 DATA ÏØ°
3920 DATA äýãÞ™”°°§§  ,âïýå°’      ,ïüâáô”°°°§§ ,âïýå°°°’§
3930 DATA –˜šÞ•°°°§   ,âïýå’°°°°§§§,ÏØ°•øš“àÞóý§,ÁÔÚݼ޲§§§
3940 DATA ‘àøï”öý     ,âï‘ýå‘‘’§§§§,’âàóý¥¥¥¡   ,³Éµµµ§§§
3950 DATA šé²Û–Þ�—§   ,¥¥¥âïýå’    ,×·°§       ,’’œÞïïøãÞêå’