Atari 8-bit Source code

1 DIM S$(20):​HI=-1000:​GRAPHICS 18:​FOR R=708 TO 711:​READ C:​POKE R,​C:​NEXT R:​PAL=(PEEK(53268)=1):​TL=240-PAL*168:​TH=0+PAL*3:​O=0:​FOR S=5 TO 10:​GOSUB 9:​NEXT S
2 S=13:​O=0:​GOSUB 9:​POKE 764,​255:​FOR I=0 TO 1:​I=(PEEK(764)<>255):​NEXT I:​PTS=0:​DUR=0:​GOSUB 10:​POKE 20,​TL:​POKE 19,​TH:​DATA 254,​50,​116,​184
3 S=4:​O=0:​GOSUB 9:​S=INT(RND(0)*4):​SAME=RND(0)>0.5:​C=SAME*S+(SAME<1)*INT(RND(0)*4):​C=C-(SAME<1)*(C=S):​C=C+(C<0)*3
4 O=C*32+(C>1)*64:​GOSUB 9:​POKE 764,​255:​DATA 7,​8,​YELLOW,​8,​8,​RED,​8,​8,​BLUE,​8,​8,​GREEN,​6,​8,​ ,​5,​0,​CoUsn!,​5,​1,​
5 IF PEEK(19)>14 THEN S=11:​O=0:​GOSUB 9:​HI=(PTS>HI)*PTS+(PTS<HI)*HI:​S=12:​O=0:​GOSUB 9:​POSITION 11,​11:​? #6;HI;" ":​FOR T=0 TO 1:​T=(PEEK(19)=16):​NEXT T:​GOTO 2
6 IF PEEK(764)=255 THEN 5:​DATA 0,​2,​NAME AND COLOUR - DO,​0,​3,​THEY MATCH? (1 MIN.),​0,​5,​ 
7 IF (SAME=1 AND PEEK(764)=12) OR (SAME=0 AND PEEK(764)=33) THEN PTS=PTS+1:​SOUND 0,​80,​10,​10:​DUR=9:​GOSUB 10:​GOTO 3
8 SOUND 0,​120,​12,​10:​PTS=PTS-5:​DUR=75:​GOSUB 10:​GOTO 3:​DATA 7,​10,​PTS:​,​6,​8,​game over,​8,​11,​HI:​,​6,​8,​ <KEY>
9 RESTORE 4:​FOR I=1 TO S+1:​READ X:​READ Y:​READ S$:​NEXT I:​POSITION X,​Y:​FOR I=1 TO LEN(S$):​? #6;CHR$(ASC(S$(I,​I))+O);:​NEXT I:​RETURN
10 POSITION 11,​10:​? #6;PTS;" ";:​FOR I=0 TO DUR:​NEXT I:​SOUND 0,​0,​0,​0:​RETURN:​REM 	

1 DIM S$(20):​HI=-1000:​GRAPHICS 18:​FOR R=708 TO 711:​READ C:​POKE R,​C:​NEXT R:​PAL=(PEEK(53268)=1):​TL=240-PAL*168:​TH=0+PAL*3:​O=0:​FOR S=5 TO 10:​GOSUB 9:​NEXT S
2 S=13:​O=0:​GOSUB 9:​POKE 764,​255:​FOR I=0 TO 1:​I=(PEEK(764)<>255):​NEXT I:​PTS=0:​DUR=0:​GOSUB 10:​POKE 20,​TL:​POKE 19,​TH:​DATA 254,​50,​116,​184
3 S=4:​O=0:​GOSUB 9:​S=INT(RND(0)*4):​SAME=RND(0)>0.5:​C=SAME*S+(SAME<1)*INT(RND(0)*4):​C=C-(SAME<1)*(C=S):​C=C+(C<0)*3
4 O=C*32+(C>1)*64:​GOSUB 9:​POKE 764,​255:​DATA 8,​8,​GELB,​8,​8,​ROT,​8,​8,​BLAU,​7,​8,​GRUEN,​6,​8,​ ,​5,​0,​CoUsn!,​5,​1,​
5 IF PEEK(19)>14 THEN S=11:​O=0:​GOSUB 9:​HI=(PTS>HI)*PTS+(PTS<HI)*HI:​S=12:​O=0:​GOSUB 9:​POSITION 11,​11:​? #6;HI;" ":​FOR T=0 TO 1:​T=(PEEK(19)=16):​NEXT T:​GOTO 2
6 IF PEEK(764)=255 THEN 5:​DATA 2,​2,​PASSEN NAME UND,​2,​3,​FARBE? (1 MIN.),​0,​5,​ 
7 IF (SAME=1 AND PEEK(764)=12) OR (SAME=0 AND PEEK(764)=33) THEN PTS=PTS+1:​SOUND 0,​80,​10,​10:​DUR=9:​GOSUB 10:​GOTO 3
8 SOUND 0,​120,​12,​10:​PTS=PTS-5:​DUR=75:​GOSUB 10:​GOTO 3:​DATA 7,​10,​PTS:​,​6,​8,​game over,​8,​11,​HI:​,​6,​8,​ <TASTE>
9 RESTORE 4:​FOR I=1 TO S+1:​READ X:​READ Y:​READ S$:​NEXT I:​POSITION X,​Y:​FOR I=1 TO LEN(S$):​? #6;CHR$(ASC(S$(I,​I))+O);:​NEXT I:​RETURN
10 POSITION 11,​10:​? #6;PTS;" ";:​FOR I=0 TO DUR:​NEXT I:​SOUND 0,​0,​0,​0:​RETURN:​REM 	

• Download link 1
• Download link 2

• Download link 1
• Download link 2
• Download link 3