以下範例代碼應在「編輯」視窗的命令模式下輸入,而非在檔案 I/O 對話方塊內輸入。
以下代碼可開啓 test.txt 並讀取檔案。祇要尚未到達檔案的末尾(指派了代碼 WHILE/!EOF),PC-DMIS 即會逐字元讀取此檔案,並爲 V1 指派一個字元。
若 PC-DMIS 到達檔案中某一行的末尾,PC-DMIS 將顯示該行的最後一個字元。
如此重復,直至 PC-DMIS 到達檔案末尾。然後 PC-DMIS 會顯示文字「已到達檔案末尾…」。
FPTR=FILE/OPEN,D:\temp\test.txt,READ
WHILE/!EOF("FPTR")
V1=FILE/READ_CHARACTER,FPTR
IF/EOL("FPTR")
COMMENT/OPER,NO,"已到達行末。最後的字元爲:"
,V1
END_IF/
END_WHILE/
COMMENT/OPER,NO,"已到達檔案末尾…"