ファイル捏造君

[nkenkou]

暇人13世氏のソースを変更。

サイズも変更できるようにしました。

#N88BASIC
Dim A As Long
Dim B As String
Dim C As Long
Dim I As Long
Dim File As String
Dim Kakutyosi As String
Dim File2 As String
Dim Size As DWord
Dim Dummy As String

Print "ダミーデータ作成ソフト1.0"
Print "このソフトはGPLライセンスに基づいて配布されています。"
Print ""

Input "ファイルの拡張子を入力してください。（三文字程度で。）",Kakutyosi
Input "ファイル名を入力してください。",File
Input "ファイルの出力数を入力してください。",A
Input "作成サイズをバイト単位で入力してください。",Size

Print "出力開始します。場合によっては数分かかるかもしれません。"
For I=0 To A-1
File2=File+Str$(I)+"."+Kakutyosi
Open File2 As #1
Field #1,1
Put #1,Size,Dummy
Close #1
Next I

Print "操作が完了しました。"
Sleep(1000)
ExitProcess(0)

プロンプトだと日本語のファイル名が使えないのでN88BASICのほうがよいと思います。

[イグトランス]

ちなみにプロンプトでもAlt+全角/半角でIMEがONになります。
MS-DOSのしがらみで未だにほかとのインターフェイスの統一ができていないわけです。

[nkenkou]

知りませんでした。
でもなんか不便ですね。。。

[konisi]

それはそうとnkenkouさん、この掲示板では「暇人13世」ではなく「konisi」と呼んで頂きたい。