화면 반전 채우기
screen-fill-test.bas
설명
COLOR 0, 7로 바꾼 뒤 24번째 줄에서 빈 줄을 24번 찍어, 화면이 한 줄씩 흰 바탕으로 밀려 올라가게 합니다.
줄마다 빈 루프로 잠깐 쉽니다.
끝나면 COLOR 7, 0으로 되돌립니다.
소스
COLOR 0, 7FOR i = 1 TO 24FOR j = 1 TO 30NEXT jLOCATE 24, 1PRINTNEXT iCOLOR 7, 0screen-fill-test.bas
COLOR 0, 7로 바꾼 뒤 24번째 줄에서 빈 줄을 24번 찍어, 화면이 한 줄씩 흰 바탕으로 밀려 올라가게 합니다.
줄마다 빈 루프로 잠깐 쉽니다.
끝나면 COLOR 7, 0으로 되돌립니다.
COLOR 0, 7FOR i = 1 TO 24FOR j = 1 TO 30NEXT jLOCATE 24, 1PRINTNEXT iCOLOR 7, 0