View difference between Paste ID: U7d0ZDU6 and 3W6YbTGR

-#define fbc -s gui
+#define fbc -s console
-#include "Console.bas"
+
 #include "MyTDT\ConsoleEmu.bas"
-#define CharPtr(X, Y) *(pScreen + ((X + (Y * SCREEN_WIDTH)) SHL 1))
+
-#define AttrPtr(X, Y) *(pScreen + (X + (Y * SCREEN_WIDTH)))
+#define CharPtr(X, Y) *(pScreen + (((X) + ((Y) * SCREEN_WIDTH)) shl 1))
 #define AttrPtr(X, Y) *(pScreen + (((X) + ((Y) * SCREEN_WIDTH)) shl 1)+1)
 Const SCREEN_WIDTH = 80, SCREEN_HEIGHT = 25
 Dim as Integer BallX, BallY, MoveX, MoveY
 Dim as Integer OldX, OldY
 
 Dim as uByte Ptr pScreen
 pScreen = pCon.Create(SCREEN_WIDTH,SCREEN_HEIGHT,fb.gfx_fullscreen)
 
 MoveX = 1: MoveY = 1
-Dim as Integer ChangeDirection
+
 dim as integer ChangeDirection
-Cls
+
 pCon.Lock()
 for C as integer = 0 to 99
   var X = cint(int(rnd*80)),Y = cint(int(rnd*25))
   CharPtr(X,Y)=219: AttrPtr(X,Y)=&h1C
 next C
-    If BallX = 0 or BallX = SCREEN_WIDTH-1 Then MoveX = -MoveX: ChangeDirection = -1
+pCon.Unlock()
-    If BallY = 0 or BallY = SCREEN_HEIGHT-1 Then MoveY = -MoveY: ChangeDirection = -1
+
 Do
     'Move ball
-    If Not ChangeDirection Then
+
-        If CharPtr(BallX+MoveX, BallY) <> 32 Then MoveX = -MoveX
+
-        If CharPtr(BallX, BallY+MoveY) <> 32 Then MoveY = -MoveY
+
     'If BallX = 0 or BallX = SCREEN_WIDTH-1 Then MoveX = -MoveX: ChangeDirection = -1
     'If BallY = 0 or BallY = SCREEN_HEIGHT-1 Then MoveY = -MoveY: ChangeDirection = -1
     If cuint(BallX-1) >= SCREEN_WIDTH-2 Then MoveX = -MoveX: ChangeDirection = -1
     If cuint(BallY-1) >= SCREEN_HEIGHT-2 Then MoveY = -MoveY: ChangeDirection = -1
-    CharPtr(OldX, OldY) = 00    'Remove old ball
+
-    CharPtr(BallX, BallY) = 07    'Draw new ball
+
     If ChangeDirection=0 Then
       #if 1
         If CharPtr(BallX+MoveX, BallY) > 32 Then MoveX = -MoveX
         If CharPtr(BallX, BallY+MoveY) > 32 Then MoveY = -MoveY
       #else
         If CharPtr(BallX+MoveX, BallY+MoveY) > 32 Then
           '...
         end if
       #endif
-Screen 0
+
 
     'Render Screen
     pCon.Lock()
     CharPtr(OldX, OldY) = 07    'Remove old ball
     CharPtr(BallX, BallY) = 02    'Draw new ball
     pCon.Unlock()
 
     OldX = BallX: OldY = BallY
     ChangeDirection = 0
 
     Sleep 50,1
 Loop until Inkey = Chr(27)'<> ""
 
 pCon.Destroy()