My little menu

[Rudy M]

Nice menu Mad Aceman,

Following the hint of bplus I rewrote the drawing of the frame with the "chr$(x)" statement:

Code: (Select All)

' draw the border if needed



IF pb = 1 THEN



  COLOR c5, c2

  pb = 0



  LOCATE py, px

  PRINT CHR$(201); '    "Õ";

  FOR i = 1 TO mr

    PRINT CHR$(205); '  "Í";

  NEXT

  PRINT CHR$(187) '    "¸"



  FOR i = 1 TO pt

    LOCATE py + i, px

    PRINT CHR$(186); STRING$(mr, 32); CHR$(186) ' "³"; and  "³"

  NEXT



  LOCATE py + pt + 1, px

  PRINT CHR$(200); '    "Ô";

  FOR i = 1 TO mr

    PRINT CHR$(205); '  "Í";

  NEXT

  PRINT CHR$(188) '    "¾"



  py = py + 1

  px = px + 1



END IF