10 ' save"imgcut16.bas" 20 console 0,20 30 DIM B(4*4*2) 40 cls 50 locate 10:print " ＩＭＧＣＵＴ１６．ｂａｓ" 60 locate 10:print "このプログラムは、写真などのイメージを２〜１６に分割し、" 70 locate 10:print "それぞれをイメージファイルにして保存します。" 80 locate 10: print "ただし、「．ＢＭＰ」しか対応していませんので、「ＧＩＦ」" 90 locate 10: print "や「ＪＰＧ］との変換は他のソフトで行なって下さい。" 100 locate 10: print "分割後のファイルの名前は 110 locate 10: print "「元ファイル名」＋[０〜９、Ａ〜Ｆ]．ＢＰＭ となります。 " 120 locate 10:print "保存フォルダーは元ファイルの場所です。" 130 locate 10:print "表示画面は最大化してください。" 140 locate 10: print " Ｑｐｏｎ" 150 locate 10,12:LINE INPUT "保存フォルダー名：";dr$ 160 locate 10,12:print using "保存フォルダー名：& & ";dr$ 170 locate 10,13:LINE INPUT "イメージファイル名：";FIL$ 180 locate 10,13:print using "イメージファイル名：& & ";FIL$ 190 locate 10,14:line input "横方向の分割数は:";n$ 200 n=val(n$): if n<1 or n>4 then goto 190 210 locate 10,14:print using "横方向の分割数は:##### ";n 220 locate 10,15:line input "縦方向の分割数は:";m$ 230 m=val(m$): if m<1 or m>4 then goto 220 240 locate 10,15:print using "縦方向の分割数は:##### ";m 250 BLOAD dr$+FIL$,a(0) 260 PUT@(10,10),A(0),PSET 270 L=A(0)/n:H=A(1)/m 280 FOR I=0 TO n-1:FOR J=0 TO m-1 290 GET@(10+L*I,10+H*J)-(10+L*I+L,10+H*J+H),B(I*2*m+J*2) 300 NEXT J,I 310 CLS 320 FOR I=0 TO n-1: FOR J=0 TO m-1 330 BSAVE dr$+fil$+HEX$(I*m+J)+".bmp",B(I*2*m+J*2) 340 PUT@(10+(L+10)*I,10+(H+10)*J),B(I*2*m+J*2),PSET 350 NEXT J,I 360 END