Atari 8-bit Source code

0 CLS:​POKE 752,​1:​? "Pipeliners micro":​? "|= 10pts":​? " used twice= 100pts":​? "not used tiles= -5pts"
1 ? "OPTION -100ptskill field":​? "STARTabort":​? "Press a key":​GET KEY:​CLS:​DIM R(28):​DIM S$(7):​S$="CEQRSZ|":​Z=128
2 B=DPEEK(88):​POKE 19,​1:​POKE B+400,​82:​P=B+RAND(799):​S=RAND(7)+1:​DATA 4,​2,​0,​1,​1,​0,​0,​3,​0,​0,​0,​2,​1,​2,​0,​0,​2,​3,​3,​4,​0,​0,​3,​1,​0,​4,​0,​4
3 T=PEEK(P):​Q=P:​DO:​POKE P,​ASC(S$(S))+Z:​DATA 0,​0,​60,​86,​0,​113,​60,​0,​27,​113,​0,​0,​27,​0,​28,​0,​27,​113,​60,​86,​27,​0,​0,​86,​0,​113,​0,​113
4 J=STICK(0):​IF J<>15:​P=P+(J=7)-(J=11)+(J=13)*40-(J=14)*40:​IF P<B:​P=Q:​ELSE:​IF P>B+799:​P=Q:​ENDIF:​ENDIF:​PAUSE 2:​POKE Q,​T:​T=PEEK(P)
5 Q=P:​ENDIF:​IF PEEK(53279)=3:​T=0:​FOR L=15 TO 0 STEP -0.1:​SOUND 0,​80,​8,​L:​NEXT L:​SOUND:​A=A-100:​ENDIF:​IF STRIG(0)=0 AND T=0:​T=ASC(S$(S))
6 S=RAND(7)+1:​ENDIF:​C=PEEK(19):​POSITION C/2,​22:​IF C MOD 2:​? "":​ELSE:​? "":​ENDIF:​IF C=76 OR PEEK(53279)=6:​EXIT:​ENDIF:​LOOP
7 POKE P,​ASC(CHR$(T)):​FOR L=1 TO 28:​READ C:​R(L)=C:​NEXT L:​P=B+400:​R=1:​REPEAT:​Q=P+(R=1)-(R=3)+(R=2)*40-(R=4)*40:​S=PEEK(P):​REM 
8 A=A+100*(S=211):​S=S-Z*(S>Z):​POKE P,​S+Z:​T=PEEK(Q):​T=T-Z*(T>Z):​J=INSTR(S$,​CHR$(S)):​K=INSTR(S$,​CHR$(T)):​RESTORE 3:​REM 
9 FOR L=1 TO (J-1)*4+R:​READ X:​NEXT L:​PAUSE 2:​P=Q:​R=R((R-1)*7+K):​A=A+10:​POSITION 2,​22:​? "";A:​SOUND 0,​R*10+150,​10,​10:​SOUND 1,​P/256,​10,​10
10 UNTIL R=0:​FOR L=B TO B+799:​T=PEEK(L):​IF T<Z AND T>1:​SOUND 0,​100,​8,​10:​POKE L,​96:​A=A-5:​POSITION 10,​22:​? A;" ":​PAUSE 1:​SOUND:​ENDIF:​NEXT L