타이틀 화면

title-screen.bas

원래 파일

LAN/QB/MAIN.BAS

날짜

1991-08-22

크기

1,001바이트, 28줄

저장 형식

QB 4.5 바이너리 저장본("Fast Load and Save")을 QB에서 텍스트로 다시 저장한 뒤 UTF-8로 바꿈

내려받기

title-screen.bas (UTF-8)

설명

SCREEN 3(허큘리스)에서 PRINT로 찍은 " Begin !! "을 POINT로 읽습니다.
흰 상자를 칠한 뒤 켜진 점마다 검은 사선을 그어 글자를 8배로 키워 그립니다.
배경을 무늬로 칠한 뒤 " Strike a key when ready...."를 SOUND와 함께 한 글자씩 찍고 키를 기다립니다.

글자를 찍고 POINT로 읽어 크게 키우는 방법은 큰 글자 타자(1995)와 2007년의 Code can be an art에서도 다시 썼습니다.

소스

DECLARE SUB title ()titleSUB titleSCREEN 3CLS : PRINT "  Begin !! "LINE (30, 220)-(670, 80), , BFFOR i = 0 TO 18FOR j = 0 TO 80IF POINT(j, i) THEN LINE (j * 8 - 5, i * 8 + 90)-(j * 8, i * 8 + 98), 0NEXT jNEXT iLOCATE 1, 1PRINT "          "DRAW "C1 bm 40,330 r630 u30 l630 d30"PAINT (1, 1), CHR$(&HAA) + CHR$(&H55)PAINT (50, 310), CHR$(55) + CHR$(&H55)LOCATE 23, 20lg$ = " Strike a key when ready...."FOR i = 1 TO LEN(lg$)SOUND 100, .3FOR j = 1 TO 100NEXT jPRINT MID$(lg$, i, 1);NEXT id$ = INPUT$(1)END SUB