Dovresti provare con:
DIM result AS STRING
SUB Dove_serve()
EXEC [tuo_comando ] FOR READ AS "masterizzazione"
END SUB
PUBLIC SUB masterizzazione_Read()
DIM nuovalinea AS String
READ #LAST, nuovalinea, -256
result &= nuovalinea
END
PUBLIC SUB masterizzazione_Kill()
PRINT nuovalinea
END
PUBLIC SUB dove_serve()
SHELL "tuo_comando" FOR INPUT OUTPUT AS "masterizzazione"
ENDIF
PUBLIC SUB masterizzazione_read()
DIM riga AS String
LINE INPUT #LAST, riga
textarea1.text &= riga & gb.newline
END
PUBLIC SUB masterizzazione_error(error_text AS string)
'-- questo stampa eventuali errori
end
PUBLIC SUB masterizzazione_kill()
PRINT textarea1.text
END