큰 글자 타자

big-letters.bas

원래 파일

LAN/QB/S12ASC.BAS

날짜

1995-04-17

크기

238바이트, 16줄

저장 형식

CP949 텍스트를 UTF-8로 바꿈

내려받기

big-letters.bas (UTF-8)

설명

SCREEN 12에서 키를 칠 때마다 지금까지 친 글자를 (1, 1)에 찍습니다.
그 영역을 POINT로 읽어 켜진 점마다 초록 상자를 그려 8배로 키워 보여 줍니다.
타이틀 화면(1991)과 같은 방법이고, 2007년의 Code can be an art로 이어집니다.

소스

CLSSCREEN 12DOWHILE a$ = ""a$ = INKEY$WENDc$ = c$ + a$LOCATE 1, 1PRINT c$FOR i = 0 TO 18FOR j = 0 TO 80IF POINT(j, i) THEN LINE (j * 8 - 5, i * 8 + 90)-(j * 8, i * 8 + 98), 2, BNEXT jNEXT ia$ = ""LOOP