PROGRAM USERPORT(INPUT,OUTPUT);                             
(* PROBLEME BEI AUSGABE AUF USERPORT *)                     
(* 23.7.1988 *)                                             
 VAR T: TEXT;                                               
                                                            
BEGIN                                                       
  WRITELN("HALLO");                                         
  OPEN(T, 2, 0, "#22");                                     
  WRITELN("JETZT");                                         
END.