Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
CHARACTER*127 CHOPUP
CHARACTER A(127)
CHARACTER*4 SLICE
! Copy first 4 chars of chopup to slice
SLICE = CHOPUP(1:4)
! Assign first 4 items of A to slice
DO I = 1, 4
SLICE(I:I) = A(I)
ENDDO