' The CMM2 5.05.06 firmware fixes a "bug" present in the direction of rotation
 ' produced by the IMAGE ROTATE command of the 5.05.05 firmware. This code is
 ' intended to identify and use the correct rotation.
 PIXEL 0,1  ' draw one white pixel, left edge middle of a 3x3 region
 IMAGE ROTATE 0,0,3,3,0,0,90
 IF PEEK(byte mm.info(page address 2) + 1) = 255 THEN ' test for pixel top center
   rotfactor = 1
 ELSE
   rotfactor = -1
 ENDIF

Error in line 16: Could not find the file

'-------------------------------------------------------------------------------------------
' SELECT CASE Bug v5.05.06B15 and v5.05.06RC6 and EXP VERSION 2020-10-27_194858_CMM2V1.5
'-------------------------------------------------------------------------------------------

'Recommended Program Practice
OPTION EXPLICIT          ' Variables must be typed
OPTION DEFAULT NONE      ' Variables must be declared

'Global Variables and Constants
CONST WIDTH%    = 20       ' Number of Maze Columns (minimum 5) will be doubled+1 size
CONST LENTH%    = 20       ' Number of Maze Rows (minimum 5) will be doubled+1 size

'Declare Global Arrays
DIM m$(2*LENTH%+1) length 2*WIDTH+1   ' Maze String Array, each string 2*WIDTH+1 chars long

'-------------------------------------------------------------------------------------------
' Test Program

DIM mR%                   ' Counter for printing a row of the maze

FOR mR% = 1 TO (2*LENTH%+1)
   m$(mR%) = "#123456789X123456789@123456789X123456789#"
NEXT mR%

'Print Maze Description
CLS
COLOUR RGB(WHITE)
PRINT
PRINT "Width:" 2*WIDTH%+1 "  Length:" 2*LENTH%+1
PRINT

'Display the m$() array contents
COLOUR RGB(BROWN)
FOR mR% = 1 to (LENTH% + LENTH% +1)


'
'
' HERE IS THE BUG, AND THE VARIATIONS I TRIED
'
' This causes the dreaded Error System Fault v5.05.06B15 nd v5.05.06RC6 and 2020-10-27_194858_CMM2V1
'
   SELECT CASE m$(mR%)
      CASE "@"
         COLOUR RGB(RED)
      CASE "X"
         COLOUR RGB(GREEN)
      CASE ELSE
         COLOUR RGB(WHITE)
   END SELECT
   PRINT m$(mR%)
'
' So does this
'    SELECT CASE m$(mR%)
'       CASE "@"
'          COLOUR RGB(RED)
'          PRINT m$(mR%)
'       CASE "X"
'          COLOUR RGB(GREEN)
'          PRINT m$(mR%)
'       CASE ELSE
'          COLOUR RGB(WHITE)
'          PRINT m$(mR%)
'    END SELECT
'
' And This
'    SELECT CASE m$(mR%)
'       CASE "@", "X"
'          COLOUR RGB(RED)
'       CASE ELSE
'          COLOUR RGB(WHITE)
'    END SELECT
'    PRINT m$(mR%)
'
'
'
' Just printing without the COLOUR change works fine !!! No idea why?
'    PRINT m$(mR%)
'
'

NEXT mR%
COLOUR RGB(WHITE)

' Exit Program Gracefully
END

'-------------------------------------------------------------------------------------------

t$=M$(mR%)
  SELECT CASE t$

SELECT CASE mid$(M$(mR%),mR%,1)

'Global Variables and Constants
CONST WIDTH%    = 20       ' Number of Maze Columns (minimum 5) will be doubled+1 sizeCONST LENTH%
CONST LENTH%    = 20       ' Number of Maze Rows (minimum 5) will be doubled+1 size

'Declare Global Arrays
DIM m$(2*LENTH%+1) length 2*WIDTH+1   ' Maze String Array, each string 2*WIDTH+1 chars long
DIM mR%                   ' Counter for printing a row of the maze
DIM mC%                   ' Counter for printing a col of the maze

FOR mR% = 1 TO (2*LENTH%+1)
  m$(mR%) = "#123456789X123456789@123456789X123456789#"
NEXT mR%

'Print Maze Description
CLS
COLOUR RGB(WHITE)
PRINT
PRINT "Width:" 2*WIDTH%+1 "  Length:" 2*LENTH%+1
PRINT

'Display the m$() array contents
'COLOUR RGB(BROWN)

FOR mR% = 1 to (2*LENTH% +1)
  For mC% = 1 to (2*WIDTH% +1)
    SELECT CASE mid$(M$(mR%),mC%,1)
       CASE "@"
          COLOUR RGB(RED)
       CASE "X"
          COLOUR RGB(GREEN)
       CASE ELSE
          COLOUR RGB(BLUE)+&HA000
    END SELECT
    PRINT mid$(M$(mR%),mC%,1);
 NEXT mC%
 PRINT
NEXT mR%

COLOUR RGB(WHITE)

' Exit Program Gracefully
END

IF PEEK(byte mm.info(page address 2) + 1) = 255 THEN ' test for pixel top center
  rotfactor = 1
ELSE
  rotfactor = -1
ENDIF