0 REM แ๎แ์๏็’๊๕์ธต’๐็ทฐ’๘๓›10 REM    ำีะลาลึลาำษฯฮ  ›20 REM ยู ะศษฬฬษะ ยีาวลำำ›30 READ K1,K2,K3,K4,K5,K6,K7,K8,K10:DATA 1,2,3,4,5,6,7,8,10›40 GRAPHICS K0:POKE 752,K1:POKE 709,15:POKE 710,K0›50 POSITION K7,K3:? "INITIALIZING SUPEREVERSION"›60 POSITION K3,K7:? "RELAX, THIS TAKES ABOUT 40 SECONDS"›70 FOR I=K0 TO 750:NEXT I:FOR I=15 TO K0 STEP -0.25:POKE 709,I:NEXT I:? CHR$(125)›80 POKE 559,K0:POKE 752,K1:GOTO 860›90 POKE 711,K2:M=29›100 REM อมษฮ ฬฯฯะ›110 FOR I=K1 TO K2:POKE 77,K0:POKE 704,K2+K10*(I=K1)›120 POSITION 17,21:? " ":IF PASS=K2 THEN 1860›130 X1=K7*(I=K2):Y1=K7*(I=K1)›140 X=68+112*(I=K2):Y=68:Q=USR(MOVE,K0,PMB,CURSOR,X,Y,K4)›150 FOR V=K10 TO K0 STEP -K1:SOUND K0,60,K10,V:SOUND K1,29+92*(I=K2),K10,V:POKE 711,PEEK(711)+(I=K1)-(I=K2):NEXT V›160 F=K0:ON P(I)+K1 GOTO 210,450,450›170 NEXT I›180 M=M-K1:IF MMAX OR (VA=MAX AND RND(K0)>0.5) THEN MAX=VA:TEMPX=X1:TEMPY=Y1›360 GOTO 260›370 IF NOT MAX THEN 530›380 DESTX=124+K8*TEMPX-K8*TEMPY:DESTY=40+K4*(TEMPX+TEMPY)›390 ROT=ROT+K4:IF ROT>16 THEN ROT=K4›400 X=X+((DESTX>X)-(DESTXY)-(DESTYK0 THEN Y1=Y1-K1:D1=K1:D2=-0.5:GOTO 470›457 IF X1K0 THEN X1=X1+K1:Y1=Y1-K1:D1=K2:GOTO 470›459 IF Y10 THEN X1=X1-K1:D1=-K1:D2=-0.5:GOTO 470›461 IF X1>K0 AND Y1K0 AND Y1>K0 THEN X1=X1-K1:Y1=Y1-K1:D2=-K1:GOTO 470›465 ROT=ROT+K4:IF ROT>16 THEN ROT=K4›466 Q=USR(MOVE,K0,PMB,CURSOR+ROT,X,Y,K4):GOTO 490›470 FOR J=K1 TO K8:X=X+D1:Y=Y+D2:ROT=ROT+K4:IF ROT>16 THEN ROT=K4›480 Q=USR(MOVE,K0,PMB,CURSOR+ROT,X,Y,K4):NEXT J›490 IF NOT STRIG(P(I)-K1) THEN 560›500 IF PEEK(764)=K10 THEN POKE 764,255:GOTO 520›510 GOTO 450›520 Q=USR(MOVE,K0,PMB,CURSOR,X,Y,K4)›530 POSITION 17,21:? "I PASS":PASS=PASS+K1:FOR V=K8 TO K0 STEP -K1:FOR V1=V TO K0 STEP -K1›540 SOUND K0,60,K10,V1:SOUND K1,29+92*(I=K2),K10,V1:NEXT V1:NEXT V:GOTO 800›550 REM ฦฬษะ รศษะำ›560 Q=USR(MOVE,K0,PMB,CURSOR,X,Y,K4):IF GRID(X1,Y1) THEN 840›570 FOR D1=-K1 TO K1:FOR D2=-K1 TO K1›580 TRAP 600›590 IF GRID(X1+D1,Y1+D2)=K3-I THEN 620›600 TRAP 610:NEXT D2:NEXT D1:IF NOT F THEN 840›610 GOTO 800›620 FOR A=K2 TO K7:TRAP 600:TEMP=GRID(X1+D1*A,Y1+D2*A):IF NOT TEMP THEN 600›630 IF TEMP=I THEN 650›640 NEXT A:GOTO 600›650 IF NOT F THEN SC(K3-I)=SC(K3-I)+K1:GOSUB 720›660 IF PASS>K0 THEN PASS=PASS-K1›670 F=K1:FOR B=K1 TO A-K1›680 X1=X1+D1:Y1=Y1+D2:GOSUB 720›690 NEXT B:X1=X1-D1*(B-K1):Y1=Y1-D2*(B-K1)›700 GOTO 600›710 REM ะฬฯิรศษะำ›720 A1=19+X1+X1-Y1-Y1:B1=K4+X1+Y1:LOCATE A1,B1,Z›730 IF (Z=116 OR Z=23) AND I=K1 THEN POSITION A1,B1:? CHR$(19);CHR$(20)›740 IF (Z=117 OR Z=25) AND I=K1 THEN POSITION A1,B1:? CHR$(21);CHR$(22)›750 IF (Z=116 OR Z=19) AND I=K2 THEN POSITION A1,B1:? CHR$(23);CHR$(24)›760 IF (Z=117 OR Z=21) AND I=K2 THEN POSITION A1,B1:? CHR$(25);CHR$(26)›770 FOR V=K4 TO K0 STEP -K1:SOUND K0,60,K10,V:SOUND K1,29+92*(I=K2),K10,V:NEXT V›780 SC(I)=SC(I)+K1:SC(K3-I)=SC(K3-I)-K1:GRID(X1,Y1)=I:RETURN ›790 REM ะาษฮิ ำรฯาลำ ซ อษำรฎ ำียำ›800 POSITION K8,18:? SC(K1);" ":POSITION 36,18:? SC(K2);" "›810 POSITION K10+26*(I=K2),20:? M;" "›820 IF SC(K1)=K0 OR SC(K2)=K0 THEN 1860›830 GOTO 170›840 FOR V=15 TO K0 STEP -0.2:SOUND K0,72,K6,V:NEXT V:GOTO 450›850 REM ษฮษิษมฬษฺมิษฯฮ›860 DL=PEEK(560)+PEEK(561)*256›870 POKE DL+K3,69:POKE DL+K6,K5:FOR I=K7 TO 28:POKE DL+I,K4:NEXT I›880 DIM GRID(K7,K7),P(K2),SC(K2),PL$(40)›890 PL$=" COMPUTER STICK ONE STICK TWO COMPUTER "›900 DIM C$(3072):C=ADR(C$):CH=(INT(C/1024)+K1)*K4:D=CH*256-C:POKE 756,CH›910 PMBASE=CH+K4:POKE 54279,PMBASE:PMB=PMBASE*256:POKE 53277,K3:POKE 623,K1›920 MOVE=PMB:SPIN=MOVE+100:CURSOR=SPIN+84:BRITE=CURSOR+20›930 FOR I=K0 TO 215:READ A:POKE MOVE+I,A:NEXT I›940 DATA 216,104,104,104,133,213,104,24,105,2,133,206,104,133,205,104,133,204,104,133,203,104,104,133,208›950 DATA 104,104,133,209,104,104,24,101,209,133,207,166,213,240,16,165,205,24,105,128,133,205,165,206,105›960 DATA 0,133,206,202,208,240,160,0,162,0,196,209,144,19,196,207,176,15,132,212,138,168,177,203,164›970 DATA 212,145,205,232,169,0,240,4,169,0,145,205,200,192,128,208,224,166,213,165,208,157,0,208,96›980 DATA 28,62,127,127,127,62,28,8,28,62,62,62,28,8,8,8,28,28,28,8,8›990 DATA 8,8,8,8,8,8,8,8,8,28,28,28,8,8,8,28,62,62,62,28,8›1000 DATA 28,62,127,127,127,62,28,0,28,62,127,62,28,0,0,0,28,127,28,0,0›1010 DATA 0,0,0,127,0,0,0,0,0,28,127,28,0,0,0,28,62,127,62,28,0›1020 DATA 255,129,129,255,238,1,129,221,119,128,129,187,187,129,128,119,221,129,1,238›1030 DATA 0,2,4,6,8,12,14,12,8,6,4,2›1040 FOR I=K0 TO 983:READ A:POKE C+D+I,A:NEXT I›1050 DATA 0,0,0,0,0,0,0,0,12,12,12,12,0,8,4,0,0,0,0,0,0,0,0,0›1060 DATA 0,3,15,63,255,254,250,234,0,3,15,63,255,253,245,213,255,253,245,213,85,149,165,169›1070 DATA 255,254,250,234,170,106,90,86,255,127,95,87,85,86,90,106,255,191,175,171,170,169,165,149›1080 DATA 0,192,240,252,255,191,175,171,0,192,240,252,255,127,95,87,170,234,250,254,255,127,95,87›1090 DATA 85,213,245,253,255,127,95,87,170,169,165,149,85,213,245,253,85,86,90,106,170,234,250,254›1100 DATA 0,21,42,63,42,21,0,0,12,51,51,51,63,42,4,0,12,60,12,12,63,42,21,0›1110 DATA 60,3,12,48,63,42,21,0,63,3,12,3,63,42,20,0,51,51,63,15,15,10,5,0›1120 DATA 63,48,60,3,63,42,20,0,15,48,60,51,63,42,4,0,63,3,3,12,12,40,20,0›1130 DATA 12,51,12,51,63,42,4,0,12,51,15,3,63,42,20,0,170,106,90,86,85,86,90,106›1140 DATA 85,149,165,169,170,169,165,149,170,169,165,149,85,149,165,169,85,86,90,106,170,106,90,86›1150 DATA 255,127,95,87,85,21,5,1,255,254,250,234,170,168,160,128,0,0,0,0,0,0,0,0›1160 DATA 12,51,51,63,51,34,17,0,60,51,60,51,63,42,20,0,15,48,48,48,63,42,5,0›1170 DATA 60,51,51,51,63,42,20,0,63,48,60,48,63,42,21,0,63,48,60,48,48,32,16,0›1180 DATA 15,48,51,51,63,42,5,0,51,51,63,51,51,34,17,0,63,12,12,12,63,42,21,0›1190 DATA 3,3,3,3,63,42,20,0,51,51,60,51,51,34,17,0,48,48,48,48,63,42,21,0›1200 DATA 51,63,63,51,51,34,17,0,60,51,51,51,51,34,17,0,12,51,51,51,63,42,4,0›1210 DATA 60,51,51,60,48,32,16,0,12,51,51,51,63,40,5,0,60,51,51,60,51,34,17,0›1220 DATA 15,48,12,3,63,42,20,0,63,12,12,12,12,8,4,0,51,51,51,51,63,42,4,0›1230 DATA 51,51,51,51,63,8,4,0,51,51,51,63,63,34,17,0,51,51,12,51,51,34,17,0›1240 DATA 51,51,12,12,12,8,4,0,63,3,12,48,63,42,21,0,170,106,90,86,85,87,95,127›1250 DATA 85,149,165,169,170,171,175,191,170,171,175,191,255,254,250,234,85,87,95,127,255,254,250,234›1260 DATA 255,127,95,87,85,87,95,127,0,3,15,63,255,127,95,87,0,0,1,6,26,106,106,106›1270 DATA 0,0,85,170,170,170,170,170,0,0,85,170,171,175,131,160,0,0,85,170,255,192,255,15›1280 DATA 0,0,85,170,239,143,143,207,0,0,85,170,239,207,207,207,0,0,85,170,255,207,255,255›1290 DATA 0,0,85,170,175,207,207,143,0,0,85,170,255,192,254,202,0,0,85,170,239,143,143,143›1300 DATA 0,0,85,170,171,239,195,160,0,0,85,170,239,131,163,227,0,0,85,170,254,250,248,248›1310 DATA 0,0,85,170,191,252,252,252,0,0,85,170,250,252,252,252,0,0,85,170,255,252,252,252›1320 DATA 0,0,85,170,250,254,254,254,0,0,64,144,164,169,169,169,95,124,255,255,255,63,79,80›1330 DATA 245,61,223,255,255,252,241,5,175,188,255,255,255,63,143,160,250,62,207,255,255,252,242,10›1340 DATA 80,67,0,0,0,192,112,95,5,193,48,0,0,3,13,245,160,131,0,0,0,192,176,175›1350 DATA 10,194,48,0,0,3,14,250,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›1360 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›1370 DATA 255,253,245,213,85,213,245,253,106,106,106,26,6,1,0,0,170,170,170,170,170,85,0,0›1380 DATA 143,143,143,128,170,85,0,0,255,255,255,2,170,85,0,0,207,207,131,160,170,85,0,0›1390 DATA 207,207,143,128,170,85,0,0,194,234,234,170,170,85,0,0,143,143,143,128,170,85,0,0›1400 DATA 255,255,255,0,170,85,0,0,207,207,207,128,170,85,0,0,195,224,232,170,170,85,0,0›1410 DATA 255,254,58,42,170,85,0,0,239,207,143,128,170,85,0,0,252,252,252,10,170,85,0,0›1420 DATA 255,255,63,0,170,85,0,0,252,252,248,40,170,85,0,0,252,252,252,8,170,85,0,0›1430 DATA 254,254,254,10,170,85,0,0,169,169,169,164,144,64,0,0,85,85,85,85,85,85,85,85›1440 DATA 170,170,170,170,170,170,170,170,0,0,0,0,0,3,15,63,0,0,0,0,0,192,240,252›1450 DATA 85,21,5,1,0,0,0,0,170,168,160,128,0,0,0,0,0,192,240,252,255,254,250,234›1460 REM ะาลญวมอล ำลิีะ›1470 POKE 708,K5:POKE 709,K10:POKE 710,15:POKE 711,K8:POKE 712,K0›1480 RESTORE 1490:POSITION K4,K0:FOR X=K4 TO 35:READ A:? CHR$(A);:NEXT X:? ›1490 DATA 1,2,2,3,4,5,6,6,7,8,9,10,7,8,9,10,6,6,9,10,7,11,4,12,13,14,15,16,17,2,2,18›1500 POSITION K4,K1:? "abbcdedfghijjjiklhijjjdmnopqrbbs"›1510 C=K1:FOR X=K0 TO K7:FOR Y=K0 TO K7›1520 POSITION 19+X+X-Y-Y,4+X+Y:? CHR$(116+C);CHR$(116+C);CHR$(58+C);CHR$(60+C)›1530 C= NOT C:NEXT Y:C= NOT C:NEXT X›1540 C=K1:FOR X=K0 TO K6›1550 POSITION 16-X-X,K4+X:? CHR$(246);CHR$(163+C);CHR$(165+C)›1560 POSITION 21+X+X,K4+X:? CHR$(167+C);CHR$(169+C);CHR$(247)›1570 POSITION 15-X-X,18-X:? CHR$(120);CHR$(190);CHR$(171+C);CHR$(173+C)›1580 POSITION 21+X+X,18-X:? CHR$(219+C);CHR$(221+C);CHR$(191);CHR$(121)›1590 C= NOT C:NEXT X›1600 FOR I=K0 TO K8:READ A,B,C:FOR J=K0 TO C:READ D:COLOR D:PLOT A+J,B:NEXT J:NEXT I›1610 DATA 18,3,3,246,163,169,247,3,11,1,128,224,35,11,1,223,250,17,19,5,120,190,171,221,191,121›1620 DATA 19,20,1,120,121,19,10,1,25,26,19,12,1,25,26,17,11,1,19,20,21,11,1,19,20›1630 POSITION 9,K2:? "PRESS /START/ TO PLAY"›1640 POSITION K2,K3:? "PLAYER ONE":POSITION K3,K5:? "STICK ONE":POSITION K3,K6:? "/OPTION/"›1650 POSITION 28,K3:? "PLAYER TWO":POSITION 29,K5:? "COMPUTER":POSITION 29,K6:? "/SELECT/"›1660 POSITION K2,16:? "WHITE":POSITION K2,18:? "SCORE 2":POSITION K2,20:? "RESERVE 30"›1670 POSITION 33,16:? "BLACK":POSITION 30,18:? "SCORE 2":POSITION 28,20:? "RESERVE 30"›1680 POKE 53276,192›1690 FOR X=K0 TO K7:FOR Y=K0 TO K7:GRID(X,Y)=K0:NEXT Y:NEXT X›1700 GRID(K4,K3)=K1:GRID(K3,K4)=K1:GRID(K3,K3)=K2:GRID(K4,K4)=K2›1710 P(K1)=K1:P(K2)=K0:SC(K1)=K2:SC(K2)=K2:PASS=K0›1720 POKE 559,46›1730 REM ะฬมูลา ำลฬลริษฯฮ›1740 FOR I=K0 TO 11:POKE 706,PEEK(BRITE+I):POKE 707,15-PEEK(BRITE+I)›1750 Q=USR(MOVE,K2,PMB,SPIN+I*K7,66,20,K7):Q=USR(MOVE,K3,PMB,SPIN+77-I*K7,181,20,K7)›1760 IF PEEK(53279)=K3 THEN P(K1)=P(K1)+K1:POSITION K3,K5:? PL$(P(K1)*K10+K1,P(K1)*K10+K10)›1770 IF PEEK(53279)=K5 THEN P(K2)=P(K2)+K1:POSITION 29,K5:? PL$(P(K2)*K10+K1,P(K2)*K10+K10)›1780 IF P(K1)>K2 THEN P(K1)=K0›1790 IF P(K2)>K2 THEN P(K2)=K0›1800 IF PEEK(53279)=K6 THEN 1820›1810 NEXT I:GOTO 1740›1820 POKE 706,14:POKE 707,K0:Q=USR(MOVE,K2,PMB,SPIN,66,20,K7):Q=USR(MOVE,K3,PMB,SPIN,181,20,K7)›1830 POSITION 9,K2:? " ":POSITION K3,K6:? " ":POSITION 29,K6:? " "›1840 GOTO 90›1850 REM วมอล ฯึลา›1860 Q=USR(MOVE,K0,PMB,K0,K0,K0,K0):FOR I=K1 TO K8:Z=PEEK(711):POKE 711,Z+(ZK8):NEXT I›1870 IF SC(K1)=SC(K2) THEN POSITION 14,21:? "IT IS A TIE.":GOTO 1910›1880 POSITION 12,21:? "PLAYER ";›1890 IF SC(K1)>SC(K2) THEN ? "ONE WINS!"›1900 IF SC(K2)>SC(K1) THEN ? "TWO WINS!"›1910 FOR I=K0 TO 500:NEXT I›1920 FOR I=704 TO 711:FOR J=PEEK(I) TO K0 STEP -K1:POKE I,J:NEXT J:NEXT I›1930 ? CHR$(125):POKE 559,K0:GOTO 1470›[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[