【UWSC】八桁の乱数を50個メモ帳に出力する

乱数が必要なったので覚書

——————————-
// ファイルを開く
fid = FOPEN(“ransuu.txt”, F_WRITE)
// 1行出力

for i = 1 TO 50

r = RANDOM(89999999) + 10000000
FPUT(fid, r)
// 1行出力
next
// ファイルを閉じる
FCLOSE(fid)
——————————-

//作ったファイルを開く
exec(“notepad ransuu.txt”)