Tentris

Tentris  is a Tetris-like game written in GW-BASIC. You need to download DosBox and GW-BASIC to play it.

It is played using uppercase letters, A=Left, D=Right, W=Rotate.

tentris.bas is the binary BASIC file.

tentris.txt is the source code as a text file.

tentris.doc is a document about its development.

tentris.png is a screen capture of the game being played.

Source code:

0 P$="BJ@@QJI@JB@@IJQ@IIII@D@@JJ@@JJ@@QQJ@AC@@JII@CQ@@IIJ@CA@@JQQ@QC@@"

1 CLS:B$=CHR$(219):FOR Y=1 TO 19:PRINT,B$,B$:NEXT:PRINT,STRING$(15,B$)

2 X=19:C=X:R=C:WHILE R:D=13:FOR E=16 TO 28:D=D+(SCREEN(R,E)=219):NEXT

3 IF D THEN FOR E=16 TO 28:LOCATE C,E:PRINT CHR$(SCREEN(R,E)):NEXT:C=C-1

4 R=R-1:WEND:Y=0:Z=INT(RND*6)*8:Z=Z-(Z>39)*8:I=8-(Z>31)*8:WHILE 1:C$=""

5 H=0:GOSUB 8:C$=B$:IF H THEN R=Q:X=U:IF A$=""THEN Y=Y-1:GOSUB 8:GOTO 2

6 GOSUB 8:Q=R:U=X:A$=INKEY$:IF""=A$THEN IF TIMER<S THEN 6ELSE S=TIMER+.5

7 C$=" ":GOSUB 8:X=X+(A$="A")-(A$="D"):Y=Y-(A$=""):R=R-(A$="W")*4:WEND

8 FOR C=1 TO 4:D=ASC(MID$(P$,Z+R MOD I+C))-64:W=D\8:WHILE D:D=D-1 AND 7

9 H=H+(SCREEN(Y+C,X+W+D)>32):LOCATE Y+C,X+W+D:PRINT C$:WEND:NEXT:RETURN