Print
Print "MAIN PROGRAM"
If MM.CMDLINE$ <> "chainret" Then
 Dim a$(1) = ("alpha", "beta")
 Print "Sending array: ";a$(0),a$(1)
 Chain "a:/s2.bas"
EndIf
Print
Print "Returned array: ";
Print a$(0),a$(1)
Print "end"


Print :Print
Print "CHAINed program"
Print "Received array ";
Print a$(0),a$(1)
Print "changing values..."
a$(0) = "gamma"
a$(1) = "delta"
Print "Returning valuse: "a$(0),a$(1)
Chain "a:/s1.bas","chainret"


> RUN

MAIN PROGRAM
Sending array: alpha    beta


CHAINed program
Received array alpha
changing values...
Returning valuse: gamma delta

MAIN PROGRAM

Returned array: gamma
end

Print
Print "MAIN PROGRAM"
If MM.CMDLINE$ <> "chainret" Then
dim dummy$
Dim a$(1) = ("alpha", "beta")
Print "Sending array: ";a$(0),a$(1)
Chain "a:/s2.bas"
EndIf
Print
Print "Returned array: ";
Print a$(0),a$(1)
Print "end"

> option list
PicoMiteHDMI MMBasic USB RP2350B Edition V6.00.03
OPTION SERIAL CONSOLE COM2,GP8,GP9
OPTION SYSTEM I2C GP4,GP5
OPTION FLASH SIZE 16777216
OPTION COLOURCODE ON
OPTION KEYBOARD US, 0, 0, 180, 60
OPTION PICO OFF
OPTION RESOLUTION 1280x720 @ 372000KHz
OPTION DISPLAY 30, 80
OPTION SDCARD GP1, GP2, GP3, GP0
OPTION KEYBOARD REPEAT 180,60
OPTION AUDIO GP6,GP7', ON PWM CHANNEL 3
OPTION RTC AUTO ENABLE
OPTION DEFAULT FONT 3, 1
OPTION PSRAM PIN GP47