>右から左 Color RGB(255, 255, 255) PlaySound Slash(4).wav Wait Start For i = 0 To 96 ClearPicture Line 0 229 (i * 5) 251 BF Refresh Wait Until (i * 0.1) Next ClearPicture Refresh Return
>左から右 Color RGB(255, 255, 255) PlaySound Slash(4).wav Wait Start For i = 0 To 96 ClearPicture Line (479 - i * 5) 229 479 251 BF Refresh Wait Until (i * 0.1) Next ClearPicture Refresh Return