; FILE Write TEST
"危険ですのでRAMDISK上で実行してください" prints crlf
1 CURMODE
GETCH ,
CURMODE ,
; ここからが本番
100 buff STRING ,
fp VAR "wFILE.STK" "rb" FOPEN =
fp EOF == IF
	"\awFILE.STK Read Open Error\n" PRINTS
	pend GOTO
ENDIF
fp2 VAR "WFILE" "wb" FOPEN =
fp2 EOF == IF
	"\aWFILE Open Write Error\n" PRINTS
	fp FCLOSE ,
	pend GOTO
ENDIF
;
WHILE fp FEOF IF. BREAK
	buff . 100 fp FGETS , PRINTS
	'*' fp2 FPUTC ,
	buff fp2 FPUTS ,
WEND
fp2 FCLOSE ,
fp FCLOSE ,
pend:
END
