Atari 8-bit Source code

0 REM STEINKRAFT-ADECONSTRUCTION-SLX2016
1 W=62:​DIM CH1$(W),​CH2$(W),​CH3$(W),​CH4$(W):​CH1$="UUUUUYUeUUYUj03UUU??0":​CH2$="<<<x8<<<x"<<<$L<<<<Z<<<<8X$2<<<(D<<<":​CH3$="p0P8<f0f<<l`|f<<`|ff<"
2 CH4$="00<f<ff<<f>8<<<<Z<  ":​DELETE ADR(CH1$),​1536,​62:​DELETE ADR(CH2$),​1598,​62:​DELETE ADR(CH3$),​1660,​45:​DELETE ADR(CH4$)-17,​1705,​79:​Z=0:​C1=1:​C2=C1+C1:​C3=C2+C1:​C4=C2*C2:​C6=C2+C4:​C8=C4*C2:​C16=C8*C2:​C32=C16*C2
3 C40=C6*C6+C4:​FF=255:​CH0=57472:​DEL:​P0PF=53252:​PLYR=1624:​P1PF=P0PF+C1:​HITCLR=53278:​*L C8-C1,​C1:​GRAPHICS C32-C4:​POKE 756,​C6:​EXEC C2:​SCR=FRAC(FRAC(560)+C4):​LIVES=C8*C6:​WHILE SCR,​18246:​POKE SCR+C32+C4,​68:​LIVES=C8*C6:​P0=EXEC (Z):​P1=EXEC (C1):​P2=EXEC (C2)
4 P3=EXEC (C3)+C16:​H=C16:​NH=H:​V=C32:​TIME$= Z:​TIME$= C1:​TIME$= C2:​TIME$= C3:​H=C32+C32:​NH=H:​V=C32:​Y=C16:​POKE P2+15,​FF:​FCOLOR C2,​C4:​ENDPROC C2,​C16+C32:​ENDPROC C3,​200:​DELETE ADR(".**4"),​704,​C1+C8:​DELETE PLYR,​P0+V,​C8:​DELETE PLYR,​P1+ZV,​C8:​FOR X=Z TO C40-C1
5 R= DIV Z,​C2)-C1:​Y=Y+R*(Y<=21 AND SGN(R)>=Z)+R*(Y>=12 AND SGN(R)<=Z):​COLOR C4+C1:​PLOT X,​Y:​FOR I=Y+C1 TO C6*4-1:​COLOR DIV C1+C2,​C4):​PLOT X,​I:​NEXT I:​NEXT X:​ZH= DIV Z,​FF):​NZH=ZH:​ZV=Z:​WHILE C16+C2,​Z:​DPOKE LIVES>8:​DPOKE PEEK(P0PF)+PEEK(P1PF)+ EXOR C0,​C1)=Z:​H=NH:​ZH=NZH:​S= MOD (Z)
6 T=TIME(Z):​IF STRIG(Z):​T=T*(T<>Z)-C1*(T=Z):​NH=H+S:​ENDPROC Z,​NH;T:​V=V-T:​DELETE PLYR+(S+S*FLIP)*C8,​P0+V,​C8:​REPEAT:​IF STICK(0)<>15:​DELETE PLYR+S*24,​P0+V,​C8:​PPOS=INT((V-C16)/C4)*C40+(H-C6*C8)/C4:​TARGET=PPOS+S+(S=1)-T*C40+40
7 IF DROP:​IF STORE AND PEEK(SCR+TARGET)=0:​POKE SCR+TARGET,​68:​STORE=STORE-C1:​DELETE CH0+C8*STORE,​P3,​C8:​UNTIL:​REPEAT:​PICK=PEEK(SCR+TARGET):​STORE=STORE+(PICK>Z)*(STORE<9):​DELETE CH0+C8*STORE,​P3,​C8:​POKE SCR+TARGET,​C0:​UNTIL:​UNTIL:​UNTIL:​FLIP= NOT FLIP:​NZH=ZH+0.3*SGN(H-ZH)
8 NZV=SGN(ZV-V):​ENDPROC C1,​NZH;NZV:​ZV=ZV+NZV:​KEY=PEEK(764):​IF KEY=33:​DROP= NOT DROP:​FOR X=P3 TO P3+C8:​POKE X,​PEEK(X)&FF:​NEXT X:​POKE 764,​C0:​UNTIL:​MOVE:​IF PEEK(P0PF):​ENDPROC Z,​H;1:​V=V-1:​UNTIL:​IF PEEK(P1PF):​ENDPROC C1,​ZH-2*SGN(H-ZH);-NZV:​ZV=ZV-NZV:​UNTIL:​LIVES=LIVES- EXOR C0,​C1)
9 ENDPROC C2,​LIVES:​POKE HITCLR,​Z:​MOVE:​? "GAME OVER - SCORE ";INT(FRAC(C16+C2)/60)