; FILE Write TEST
"危険ですのでRAMDISK上で実行してください" prints crlf
GETCH $1b == IF. END
; ここからが本番
fp2 VAR "WFILE2" "wt" FOPEN =
fp2 EOF == IF
	"\aWFILE2 Open Write Error\n" PRINTS
	pend GOTO
ENDIF
;
"これはテストです" fp2 FPUTS ,
$1a fp2 FPUTC ,
fp2 FCLOSE ,
pend:
END
