Atari 8-bit Source code

1GRAPHICS0:L=10:DIMA$(L),B$(L),C$(L):A$="":B$=A$:C$=A$:S=140:R=5:Z=0:P=2:POKE82,L:X=0
2GOSUBL:PRINT"INIT...":FORI=0TO1024:POKE32768+I,PEEK(57344+I):NEXTI:FORI=0TO23:READJ
3POKE33280+I,J:NEXTI:POKE756,128:POKE752,1:POSITION7,1:PRINT"PRESSRETURN";:DIMD$(1):INPUTD$:LV=0
4A$(1,9)=A$(2,L):B$(1,9)=B$(2,L):C$(1,9)=C$(2,L):Q=INT(RND(0)*R):A$(L)=CHR$(Q=1):B$(L)=CHR$(Q=2):C$(L)=CHR$(Q=3)
5FORI=1TOL:POSITIONL,2+I:V=11-I:PRINT"|";A$(V,V);":";B$(V,V);":";C$(V,V);"|":NEXTI:X=PEEK(764)
6POKE764,0:P=P+(X=10)-(X=8):P=P-(P=4)+(P=0):POSITION9+P*2,12:PRINT"":IFZ/50=INT(Z/50)THENS=S-20:LV=LV+1
7IF((P=1)AND(A$(1,1)=""))OR((P=2)AND(B$(1,1)=""))OR((P=3)AND(C$(1,1)=""))THENGOTO9
8POSITION7,1:PRINT"LEVEL:";LV;"SCORE:";Z:Z=Z+1:FORI=1TOS:NEXTI:GOTO4
9POSITION8,2:PRINT"YOUCRASHED!":POSITION2,20:PRINT"PRESSRETURN":INPUTA$:POKE82,2:GRAPHICS0:END
10PRINT"B-VROOMBY2ST_RETRO":RETURN:DATA0,0,0,0,0,0,0,0,60,90,90,60,60,90,90,0,60,219,219,60,126,153,231,0	

• Download link 1

• Download link 1
• Download link 2