p$="\d"
? p$
\d

p$="\d"
? p$
d

 OPTION EXPLICIT
 OPTION DEFAULT NONE
 option escape         'activate special characters in strings
 
 'test for nesting exeute statements

 do_exec("print \qnow in 1st level\q")   'execute print from 1st level of sub
 do_exec("nest_2nd")                     'nest to second level by "execute nest_2nd"
 
end
 
sub nest_2nd     'now in second level of "execute" command
 do_exec("print \q2nd\q")                'print 3 char string -> success
 do_exec("print \qL2:456\q")             'print 6 char string -> success, this is the max length (8 inluding the 2 quotes)
 do_exec("print \qL2:4567\q")            'print 7 chars -> fail
end sub
 
sub nest_3rd
 do_exec("print \q3rd\q")                'print 3 char string -> success
 do_exec("print \qL3:1234567\q")
 do_exec("nest_4th")
end
end sub

sub nest_4th
 do_exec("print \q4th\q")                'print 3 char string -> success
 do_exec("print \qL4:1234567\q")
end sub
 
sub do_exec(uar as string)
 print "----- execute begin
 print "cmd to execute: ";uar      'print out string to be executed
 execute uar                       'execute user-action-routine
 print "----- execute end"
end sub
'

> run
----- execute begin
cmd to execute: print "now in 1st level"
now in 1st level
----- execute end
----- execute begin
cmd to execute: nest_2nd
----- execute begin
cmd to execute: print "2nd"
2nd
----- execute end
----- execute begin
cmd to execute: print "L2:456"
L2:456
----- execute end
[33 Execute uar                       'execute user-action-routine
Error : Invalid character: 6

>

LMID(array%(),start [,num])=string$

REDIM [PRESERVE] array(dimensions)

DIM a%(99,9)
REDIM PRESERVE a%(99,19) 'OK
REDIM PRESERVE a%(199,9) 'ERROR

PicoMite MMBasic RP2350B V6.01.00RC20
OPTION SERIAL CONSOLE COM1,GP0,GP1,BOTH
OPTION SYSTEM SPI GP10,GP11,GP12
OPTION SYSTEM I2C GP6,GP7, SLOW
OPTION FLASH SIZE 16777216
OPTION LIBRARY_FLASH_SIZE  50000
OPTION COLOURCODE ON
OPTION CONTINUATION LINES ON
OPTION CASE UPPER
OPTION DEFAULT COLOURS GREEN, BLACK
OPTION KEYBOARD I2C
OPTION PICO OFF
OPTION CPUSPEED (KHz) 360000
OPTION LCDPANEL CONSOLE ,, FF00,, 20
OPTION DISPLAY 26, 40
OPTION LCDPANEL ST7796SP, PORTRAIT,GP14,GP15,GP13,,INVERT
OPTION LCD BACKLIGHT 20
OPTION SDCARD GP17, GP18, GP19, GP16
OPTION AUDIO GP26,GP27', ON PWM CHANNEL 5
OPTION PLATFORM PicoCalc
OPTION PSRAM PIN GP47