Tiny Tetris

[Ed Davis]

On the Reddit tinycode programming forum:
https://www.reddit.com/r/tinycode/comments/o6m72h/tentris_a_10_line_x_72_characters_tetris_game_in/

Someone posted a GWBASIC version of Tetris:

Code: QB64: [Select]

1. 0 P$="BJ@@QJI@JB@@IJQ@IIII@D@@JJ@@JJ@@QQJ@AC@@JII@CQ@@IIJ@CA@@JQQ@QC@@"
2. 1 CLS:B$=CHR$(219):FOR Y=1 TO 19:PRINT,B$,B$:NEXT:PRINT,STRING$(15,B$)
3. 2 X=19:C=X:R=C:WHILE R:D=13:FOR E=16 TO 28:D=D+(SCREEN(R,E)=219):NEXT
4. 3 IF D THEN FOR E=16 TO 28:LOCATE C,E:PRINT CHR$(SCREEN(R,E)):NEXT:C=C-1
5. 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$=""
6. 5 H=0:GOSUB 8:C$=B$:IF H THEN R=Q:X=U:IF A$=""THEN Y=Y-1:GOSUB 8:GOTO 2
7. 6 GOSUB 8:Q=R:U=X:A$=INKEY$:IF""=A$ THEN IF TIMER<S THEN 6 ELSE S=TIMER+.5
8. 7 C$=" ":GOSUB 8:X=X+(A$="A")-(A$="D"):Y=Y-(A$=""):R=R-(A$="W")*4:WEND
9. 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
10. 9 H=H+(SCREEN(Y+C,X+W+D)>32):LOCATE Y+C,X+W+D:PRINT C$:WEND:NEXT:RETURN
11.  

With a minor tweak (applied in the above posted code) it compiles and runs with QB64!  Cool!

[FellippeHeitor]

Whoa!

[bplus]

Cap lock on
  W
A  D

Nice!

[johnno56]

What! No aliens?  Pretty cool. All in 10 lines of code! Nicely done!

[Cobalt]

Oh pooie, and here I thought it was going to be truly tiny tetris using single pixel tetranomes on a 1920x1080 window. I wonder just how hard that would be to play?

My prototype Truly Tiny Tetris screen cap below.

[NOVARSEG]

and then someone invented   END IF

half the code is :

can't even reverse engineer it.

In the days when 640k was too much

way too many comments

[johnno56]

Cobalt,

Cannot wait to see the score and level indicators....

[Ed Davis]

and then someone invented   END IF
half the code is :
can't even reverse engineer it.

I tried my hand at cleaning it up.  I did not intentionally change any logic.  Here it is:

Code: QB64: [Select]

1. p$ = "BJ@@QJI@JB@@IJQ@IIII@D@@JJ@@JJ@@QQJ@AC@@JII@CQ@@IIJ@CA@@JQQ@QC@@"
2. cls
3. b$ = chr$(219)
4. for y = 1 TO 19
5.   print,b$,b$
6. next
7. print , string$(15, b$)
8.  
9. label2:
10.  
11. x = 19
12. c = x: r = c
13. while r
14.   d = 13
15.   for e = 16 TO 28
16.     d = d + (screen(r, e) = 219)
17.   next
18.   if d then
19.     for e = 16 TO 28
20.       locate c, e
21.       print chr$(screen(r, e))
22.     next
23.   end if
24.   c = c - 1
25.   r = r - 1
26. wend
27. y = 0
28. z = int(rnd * 6) * 8
29. z = z - (z > 39) * 8
30. I = 8 - (z > 31) * 8
31. while 1
32.   c$ = ""
33.   h = 0
34.   gosub label8
35.   c$ = b$
36.   if h then
37.     r = q: x = u
38.     if a$ = "" then
39.       y = y - 1
40.       gosub label8
41.       goto label2
42.     end if
43.   end if
44.  
45. label6:
46.  
47.   gosub label8
48.   q = r:  u = x
49.   a$ = inkey$
50.   if "" = a$ then
51.     if timer < s then
52.       goto label6
53.     else
54.       s = timer + .5
55.     end if
56.   end if
57.   c$ = " "
58.   gosub label8
59.   x = x + (a$ = "A") - (a$ = "D")
60.   y = y - (a$ = "")
61.   r = r - (a$ = "W") * 4
62. wend
63.  
64. label8:
65.   for c = 1 TO 4
66.     d = asc(mid$(p$, z + r mod I + c)) - 64
67.     w = d \ 8
68.     while d
69.       d = d - 1 and 7
70.       h = h + (screen(y + c, x + w + d) > 32)
71.       locate y + c, x + w + d
72.       print c$
73.     wend
74.   next
75.   return
76.  

All I did was convert the referenced line numbers to labels, and got rid of most of the multiple statements per line.  There were only two goto's in the original code, so that was nice.  And of course, would be nice to get rid of them :)

[TempodiBasic]

On the Reddit tinycode programming forum:
https://www.reddit.com/r/tinycode/comments/o6m72h/tentris_a_10_line_x_72_characters_tetris_game_in/

Someone posted a GWBASIC version of Tetris:

Code: QB64: [Select]

1. 0 P$="BJ@@QJI@JB@@IJQ@IIII@D@@JJ@@JJ@@QQJ@AC@@JII@CQ@@IIJ@CA@@JQQ@QC@@"
2. 1 CLS:B$=CHR$(219):FOR Y=1 TO 19:PRINT,B$,B$:NEXT:PRINT,STRING$(15,B$)
3. 2 X=19:C=X:R=C:WHILE R:D=13:FOR E=16 TO 28:D=D+(SCREEN(R,E)=219):NEXT
4. 3 IF D THEN FOR E=16 TO 28:LOCATE C,E:PRINT CHR$(SCREEN(R,E)):NEXT:C=C-1
5. 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$=""
6. 5 H=0:GOSUB 8:C$=B$:IF H THEN R=Q:X=U:IF A$=""THEN Y=Y-1:GOSUB 8:GOTO 2
7. 6 GOSUB 8:Q=R:U=X:A$=INKEY$:IF""=A$ THEN IF TIMER<S THEN 6 ELSE S=TIMER+.5
8. 7 C$=" ":GOSUB 8:X=X+(A$="A")-(A$="D"):Y=Y-(A$=""):R=R-(A$="W")*4:WEND
9. 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
10. 9 H=H+(SCREEN(Y+C,X+W+D)>32):LOCATE Y+C,X+W+D:PRINT C$:WEND:NEXT:RETURN
11.  

With a minor tweak (applied in the above posted code) it compiles and runs with QB64!  Cool!

This is good for any Basic Interpreter... few code few read again..

The other version is better for compiler and human coders but worse for Basic Interpreter
:-)  Human / Machine two poles in opposition.

[MasterGy]

this code is brilliant !!! :)

[Juan Tamarit]

I agree with NOVARSEC: half the code is ":". This should not be called a 10 line program. Otherwise anybody can make a 1 line program... just : every single line LOL

[_vince]

This should not be called a 10 line program. Otherwise anybody can make a 1 line program... just : every single line LOL

yeah, it's clearly not a 10-liner -- the code is an optical illusion.

Now, the question bothering me:  is a true 10 line tetris possible?

[SMcNeill]

yeah, it's clearly not a 10-liner -- the code is an optical illusion.

Now, the question bothering me:  is a true 10 line tetris possible?

Ummm…. Probably?

Pieces could be defined by

“SRU\” — Start, move Right, move Up, move diagional down and right.  Produces this piece:
   @
@@@

Other 4 command combos could define the rest of the pieces in a similar manner.  Just put them all in a single string to store them and manage them with MID$.  <—- All in 1 line of code.

Then it’s a DO…

   IF _KEYDOWN = (left arrow) then move to next entry in MID$ list MOD 4 to rotate ELSEIF key down….   ELSEIF key right…..   <— All in 1 line of code.

check screen to see if characters below are filled…. YES, place on top, check for full blocks NO… Move down

LOOP until no place to place block at top

5 lines for the base core (screen 0 to track pieces), so that gives a little wiggle room to try and do a minimalistic version in 10 lines.

[_vince]

Ummm…. Probably?

Pieces could be defined by

“SRU\” — Start, move Right, move Up, move diagional down and right.  Produces this piece:
   @
@@@

Other 4 command combos could define the rest of the pieces in a similar manner.  Just put them all in a single string to store them and manage them with MID$.  <—- All in 1 line of code.

Then it’s a DO…

   IF _KEYDOWN = (left arrow) then move to next entry in MID$ list MOD 4 to rotate ELSEIF key down….   ELSEIF key right…..   <— All in 1 line of code.

check screen to see if characters below are filled…. YES, place on top, check for full blocks NO… Move down

LOOP until no place to place block at top

5 lines for the base core (screen 0 to track pieces), so that gives a little wiggle room to try and do a minimalistic version in 10 lines.

QED

[bplus]

QED

??? where was the demo?

More like SS (Steve Says!) ;-)