DEFCHAR(str[10]);
IF(OPENOUT("d1.txt"), BLOCK(
  PRINT("Fehler beim ffnen der Datei"),
  HALT())
);
PRINT(FILE,"Hallo\n");
PRINT(FILE,"Welt\n");
CLOSEOUT();
IF(OPENIN("d1.txt"), BLOCK(
  PRINT("Fehler beim ffnen der Datei"),
  HALT())
);
SCAN(FILE,"%s",str);
PRINT("%s\n",ADDR(str));
SCAN(FILE,"%s",str);
PRINT("%s\n",ADDR(str));
CLOSEOUT().
