Wait Start For i = 1 To 160 Line 0 10 (i * 3 - 1) 35 BF #ffffff PaintString 10 13 location #背景がつねに真っ黒ならClearPictureは不要 ClearPicture (i * 3) 10 480 35 Refresh Wait Until (i * 0.01) Next Wait 5
Wait Start For i = 1 To 160 Line ((i - 1) * 3) 10 (i * 3 - 1) 35 BF #ffffff PaintString 10 13 location #背景がつねに真っ黒ならClearPictureは不要 ClearPicture (i * 3) 10 480 35 Refresh Wait Until (i * 0.01) Next Wait 5