Atari 8-bit Source code

100REM
110REM
120GOSUB760:REM
130REM
140PLR=1-PLR
150COLOR181-32*PLR:PLOT0,23:DRAWTO19,23:REM
160PK=PEEK(PPOS(PLR)):REM
170POKEPPOS(PLR),PIECE(PLR):REM
180FORW=1TO20:NEXTW:REM
190ST=STICK(PLR):IFSTRIG(PLR)=0ANDPK=83THEN270
200POKEPPOS(PLR),PK-128*(PK>128)
210IFST=15THEN170
220POKEPPOS(PLR),PK
230PPOS(PLR)=PPOS(PLR)+DIR(ST)
240PK=PEEK(PPOS(PLR))
250IFPK<>83ANDPK<>PIECE(0)ANDPK<>PIECE(1)THENPPOS(PLR)=PPOS(PLR)-DIR(ST)
260GOTO160
270POKEPPOS(PLR),PIECE(PLR)
280REM
290POKE77,0:REM
300REM
310REM
320FORI=5TO14
330TEMP=PPOS(PLR):DIR=DIR(I):N=0
340IFDIR=0THEN410
350TEMP=TEMP+DIR
360IFPEEK(TEMP)=PIECE(PLR)THENN=N+1:GOTO350
370N=0:REM
380TEMP=TEMP-DIR
390IFPEEK(TEMP)=PIECE(PLR)THENN=N+1:GOTO380
400IFN=5THEN570
410NEXTI
420REM
430REM
440FORI=5TO14
450TEMP=PPOS(PLR):DIR=DIR(I)
460IFDIR=0THEN540
470IFPEEK(TEMP+DIR)<>PIECE(1-PLR)ORPEEK(TEMP+DIR*2)<>PIECE(1-PLR)THEN540
480COUNT(PLR)=COUNT(PLR)+2:IFCOUNT(PLR)>10THENCOUNT(PLR)=10
490FORJ=1TOCOUNT(PLR)
500POKESCR+(3+J)*20+1+17*PLR,PIECE(1-PLR)
510NEXTJ
520POKETEMP+DIR,83:POKETEMP+DIR*2,83
530IFCOUNT(PLR)=10THEN570
540NEXTI
550GOTO140
560REM
570FORI=1TO100:POKE712,PEEK(53770):NEXTI:POKE712,0
580P=PEEK(710+PLR):C=INT(P/16)
590FORI=1TO10:POKE710+PLR,0:SOUND0,200,10,8:FORW=1TO20:NEXTW:POKE710+PLR,P:SOUND0,100,10,8
600FORW=1TO20:NEXTW:NEXTI
610P=PEEK(711-PLR):C=INT(P/16)
620FORI=14TO0STEP-0.2:SOUND0,I*2,12,I:POKE711-PLR,C*16+I:NEXTI
630POKE711-PLR,0
640FORI=1TO10:POKE53274,PEEK(53770):NEXTI
650POSITION2,0:?#6;"player";:IFPLRTHEN?#6;"two";:GOTO670
660?#6;"one";
670?#6;"wins"
680FORW=1TO500:NEXTW
690POSITION1,0:?#6;"pressfire'newgame"
700IFSTRIG(0)=0THEN700
710IFSTRIG(0)THEN710
720RUN
730GOTO730
740REM
750REM
760DIMDIR(15)
770FORI=5TO15
780READA:DIR(I)=A
790NEXTI
800DATA21,-19,1,0,19,-21,-1,0,20,-20,0
810GRAPHICS17:SETCOLOR0,0,0
820POKE756,226:REM
830SCR=PEEK(88)+256*PEEK(89)
840FORI=2TO20:FORJ=2TO17:POKESCR+I*20+J,83:NEXTJ:NEXTI
850FORI=2TO17:POKESCR+40+I,87:POKESCR+420+I,88:NEXTI
860FORI=2TO20:POKESCR+20*I+2,65:POKESCR+20*I+17,68:NEXTI
870POKESCR+42,81:POKESCR+57,69:POKESCR+422,90:POKESCR+437,67
880POSITION6,0:?#6;""
890FORI=4TO13:POKESCR+I*20+1,82:POKESCR+18+I*20,82:NEXTI
900DIMPPOS(1),PIECE(1),COUNT(1)
910PPOS(0)=SCR+229:PPOS(1)=SCR+209
920PIECE(0)=148:PIECE(1)=212:COUNT(0)=0:COUNT(1)=0
930POKEPPOS(0),PIECE(0)
940RETURN	

• Download link 1

• Download link 1