昔作ったプログラムですが、今でもカセットテープを愛用の方の為に紹介しておきます。ＣＤをカセットに録音するときＡ面、Ｂ面の録音時間を合わせるプログラムです。Ｎ８８ＢＡＳＩＣで動作しますが、潮田 康夫さん作成のN88互換BASIC for Windows95でも動作します。
ソース
10 cls
20 dim a(20,2)
30 k=17
40 for i=1 to k
50 read t
60 m=int(t)
70 s=(t-m)*100
80 a(i,0)=m*60+s
90 next i
100 for i=1 to k
110 c=int(rnd(1)*2+1)
120 a(i,c)=1
130 next i
140 ta=0:tb=0
150 for i=1 to k
160 if a(i,1)=1 then ta=ta+a(i,0)
170 next i
180 for i=1 to k
190 if a(i,2)=1 then tb=tb+a(i,0)
200 next i
210 if abs(ta-tb)<1.5 then 270
220 for i=1 to k
230 a(i,1)=0
240 a(i,2)=0
250 next i
260 goto 100
270 print "Ａ面";ta
280 for i=1 to k
290 if a(i,1)=1 then print i;
300 next i
310 print:print "Ｂ面";tb
320 for i=1 to k
330 if a(i,2)=1 then print i;
340 next i
350 end
360 data 7.49,5.41,4.18,3.49,4.14,3.35,4.19,4.23,4.27,4.29,3.48,3.27,5.05,3.42,4.27,3.44,4.04ダウンロード tape.bas
使用方法
曲数を、行番号３０のｋ＝○○として下さい。
曲の時間を分．秒として行番号３６０のｄａｔａの後にコンマで区切って入力します。
以上のデータを入力し実行しますが、いくら経っても表示しない場合（約１０分）は行番号２１０のｉｆ ａｂｓ（ｔａ−ｔｂ）＜１．５の１．５（Ａ面とＢ面の時間差）を大きくし実行しなおして下さい。曲数の少ない場合は使用できないことがあります。
注意事項
フリーソフトとします。改変は自由に行って下さい。著作権は放棄しません。
このページに関するご意見ご感想はこちらまでお願いします。