How do you write this program in MATLAB? This code is in TrueBasic btw

The libraries and so forth are supposed to have been for mac according to the author. The book was written in the 90s though. And The graph should look precisely like this: (if the font doesn't match precisely that's ok, but everything else has to look exact).

! simulation of radioactive decay ! N. Giordano 10-1-94 program decay option nolet ! can omit the let keyword library "sgfunc*", "sglib*" ! the graphics routines are found here dim n_uranium (100), t (100) ! declare the arrays we will need call initialize (n_uranium, t, tau, dt) ! use subroutines to do the work call calculate (n_uranium, t, tau, dt). call display (n_uranium, t, tau, dt) end ! initialize variables sub initialize (nuclei (),t(), time_constant, dt). input prompt "initial number of nuclei -> ": nuclei (1) t (1) = 0 input prompt "time constant -> ": time_constant input prompt "time step -> ": dt end sub sub calculate (n_uranium (),t (), tau, dt) for i = 1 to size (t) -1 ! now use the Euler method n_uranium (i+1) = n_uranium (i) - (n_uranium (i) 7 tau) * dt t(i+1) = t (i) + dt next i end sub