11 lines
213 B
Forth
11 lines
213 B
Forth
program substring
|
|
|
|
character(len=5) :: string
|
|
string = "Hello"
|
|
|
|
write (*,*) string
|
|
write (*,*) string(2:)
|
|
write (*,*) string( :len(string)-1)
|
|
write (*,*) string(2:len(string)-1)
|
|
|
|
end program substring
|