7 lines
130 B
Forth
7 lines
130 B
Forth
character(20) :: s
|
|
integer :: i
|
|
|
|
print*, "Enter a string (max 20 characters)"
|
|
read*, s
|
|
print*, "Enter the integer 75000"
|
|
read*, i
|