久々にBASICを組んだわ

　いやー、何年ぶりかにプログラムを組みました。しかもMSX-BASICで。

なんて骨体な・・・
異常に珍な・・・

　そんな感じで。

MSX2+、turboRにハードウェアスクロールさせてみる(screen1で)


10 for x=0 to 255 step +1
20 set scroll x,0
30 next x
40 for y=255 to 0 step -1
50 set scroll 0,y
60 next y
70 set scroll 0,0
80 end

run


MSX2+、turboRにハードウェアスクロールさせてみる(screen8で)


100 '
110 ' へんすうしょきか
120 '
130 x=0:z=0:z1=0
140 '
150 ' SCROLLのそ゛うふ゛んをにゅうりょく
160 '
170 input "SCROLLのそ゛うふ゛んをにゅうりょく(1-255)=";z
180 '
190 ' か゛めんをつくる
200 '
210 screen 8
220 open "GRP:" for output as #1
230 set page 0,0
240 for x=255 to 0 step -4
250 line(0,0)-(x,x),x,bf
260 next x
270 preset (0,0),0
280 color 255,0,0
290 print #1,"あいうえおかきくけこさしすせそ"
300 '
310 ' SCROLLかいし
320 '
330 for z1=0 to 255 step z
340 set scroll z1,0
350 line(z1,0)-(z1+z,211),0,bf
360 if strig(0)=0 then next z1 else end

run


MSX2、2+、turboRでソフトウェアスクロールさせてみる(screen8)


100 '
110 ' へんすうしょきか
120 '
130 x=0:y=0:z=0:z1=0
140 '
150 ' COPYさせるyをにゅうりょく
160 '
170 input "COPYするyをにゅうりょく(1-211)=";y
180 '
190 ' COPYのそ゛うふ゛んをにゅうりょく
200 '
210 input "そ゛うふ゛んをにゅうりょく(1-255)=";z
220 '
230 ' か゛めんをつくる
240 '
250 screen 8
260 open "GRP:" for output as #1
270 set page 1,1
280 line(0,0)-(255,211),0,bf
290 line(z,0)-(256-z,y),255,b
300 set page 0,0
310 for x=255 to 0 step -4
320 line(0,0)-(x,x*0.8274),x,bf
330 next x
340 preset (0,0),0
350 color 255,0,0
360 print #1,"あいうえおかきくけこさしすせそ"
370 '
380 ' COPYかいし
390 '
400 for z1=0 to 255 step z
410 set page 1,1
420 set page 0,0
430 copy (z,0)-(256-z,y) to (0,0)
440 if strig(0)=0 then next z1 else end
450 color 15,4,7

run