Einlesen direkt hinter der Ausgabe
WRITE(*, '(A)', ADVANCE='NO') 'Enter a number: ' READ(*, '(I10)') NUMBER
Zeile teilweise lesen
READ(*, '(A3)', ADVANCE='NO', SIZE=size) key ! size enthaelt Zahl der ! gelesenen Zeichen