Atari 8-bit Source code

10 GRAPHICS 17:​DIM A$(2),​SZ(4),​A(4):​CH=(PEEK(106)-16)*256:​MOVE 57344,​CH,​1024:​POKE 756,​CH/256:​SC=DPEEK(88):​DPOKE 708,​210:​SZ(0)=SC+106:​SZ(1)=SC+232:​SZ(2)=SC+112:​SZ(3)=SC+226
20 MOVE ADR(""),​CH+208,​16:​MOVE ADR("wwwww777w"),​CH+8,​64
30 MOVE ADR("77777777"),​CH+72,​64:​POKE 712,​192:​DPOKE 710,​23567
40 OPEN #1,​4,​0,​"K:​":​? #6;"PLAYERS?":​REPEAT:​GET #1,​K:​K=K-49:​UNTIL K>0 AND K<4:​? #6;"":​FOR P=0 TO K:​A(P)=1:​NEXT P:​K1=1000:​K2=2000:​K3=3000
50 FOR Y=1 TO 5:​A$="":​IF Y MOD 2:​A$=":​;":​ENDIF:​? #6:​FOR I=1 TO 2:​? #6;":​; :​; ";A$;" :​; ";A$;" :​; :​;";:​NEXT I:​NEXT Y:​? #6:​GOSUB K2
100 FOR P=0 TO K:​SZ=SZ(P):​POSITION 0,​23:​? #6;"P";P+1;" ";:​N=63:​GOSUB K3:​IF AZ=0:​A(P)=0:​? #6;"OVER":​PAUSE 60:​ELSE:​IF AC=0:​? #6;"SKIP":​PAUSE 60:​ELSE:​? #6;"MOVE":​GOSUB K1:​C=PEEK(SZ)&192:​C3=(26!C)*257
110 DPOKE SZ,​C3:​DPOKE SZ+20,​C3:​SZ(P)=S2:​N=191:​GOSUB K2:​POSITION 3,​23:​GOSUB K3:​IF AC=0:​? #6;"SKIP":​PAUSE 60:​ELSE:​? #6;"FIRE":​GOSUB K1:​DPOKE S2,​0:​DPOKE S2+20,​0:​ENDIF:​ENDIF:​ENDIF:​NEXT P:​GOTO 100
1000 REPEAT:​REPEAT:​S=STICK(0):​UNTIL STRIG(0)=0:​S2=SZ(P)+((S&8=0)-(S&4=0))*3+((S&2=0)-(S&1=0))*60:​UNTIL PEEK(S2)&N=26:​REPEAT:​UNTIL STRIG(0):​RETURN
2000 FOR R=0 TO K:​IF A(R):​SZ=SZ(R):​Q=1+R*4:​C=PEEK(SZ)&192:​POKE SZ,​Q!C:​POKE SZ+1,​(Q+1)!C:​POKE SZ+20,​(Q+2)!C:​POKE SZ+21,​(Q+3)!C:​ENDIF:​NEXT R:​RETURN
3000 AZ=0:​AC=0:​XX=(SZ(P)-SC) MOD 20:​FOR Y=-1 TO 1:​FOR X=-1+(XX=0) TO 1-(XX=18):​IF X OR Y:​W=PEEK(SZ(P)+Y*60+X*3)&N:​AZ=AZ+W:​AC=AC+(W=26):​ENDIF:​NEXT X:​NEXT Y:​RETURN