/* AmigaE Overeni existence souboru ghh 2020 */
MODULE 'dos/dos'     /* Open() Close() dos.library se otevre automaticky */
DEF file,handle
PROC main()
  file:='ram:test.txt'                /* string s nazvem souboru */
  IF handle:=Open(file,MODE_OLDFILE)  /* pokusi se otevrit starsi (existujici) soubor */
    Close(handle)                     /* zavre soubor */
    WriteF('Soubor existuje')         /* pokud se otevreni podarilo soubor existuje */
  ELSE
    WriteF('Soubor neexistuje')       /* pokud ne ... */
  ENDIF
ENDPROC