Better code readability

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index 1cb3e84..bfdbda1 100755 (executable)
--- a/Games/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo.bas
@@ -878,16 +878,18 @@ ao(29) = "20000000000000000002"
 ao(30) = "22222222222222222222"\r
 \r
 END SELECT\r
-IF fr = 50 THEN GOTO 8\r
-IF fr > 1 THEN GOTO 4\r
-FOR a = 1 TO 100\r
+IF fr = 50 THEN GOTO DrawFlippedSprite\r
+IF fr > 1 THEN GOTO DrawScaledSprite\r
+\r
+FOR a = 1 TO 100                ' Normal sprite\r
 IF ao(a) = "" THEN GOTO FinishDrawing\r
 FOR b = 1 TO LEN(ao(a))\r
 PSET ((p + b) \ teler, (o + a) \ teler), ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48\r
 NEXT b\r
 NEXT a\r
 GOTO FinishDrawing\r
-4\r
+\r
+DrawScaledSprite:               ' Scaled sprite\r
 FOR a = 1 TO 100\r
 IF ao(a) = "" THEN GOTO FinishDrawing\r
 FOR b = 1 TO LEN(ao(a))\r
@@ -896,7 +898,8 @@ LINE (p + (b * fr), o + (a * fr))-(p + (b * fr) + fr, o + (a * fr) + fr), c, BF
 NEXT b\r
 NEXT a\r
 GOTO FinishDrawing\r
-8\r
+\r
+DrawFlippedSprite:              ' Horizontally flipped sprite\r
 FOR a = 1 TO 100\r
 IF ao(a) = "" THEN GOTO FinishDrawing\r
 FOR b = 1 TO LEN(ao(a))\r