텍스트 화면 저장과 복원

text-screen-save.bas

원래 파일

LAN/QB/TSS.BAS

날짜

1993-08-05

크기

637바이트, 17줄

저장 형식

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

내려받기

text-screen-save.bas (UTF-8)

설명

화면에 글자를 가득 찍고 DEF SEG = &HB000, BSAVE "ae.aaa", 0, &HFA0으로 80×25 텍스트 화면 4000바이트(글자와 색)를 저장합니다.
키를 누르면 화면을 지웠다가 BLOAD로 되살립니다.
B000은 흑백(MDA, 허큘리스) 텍스트 화면의 세그먼트입니다.

정리하면서 뺀 파일

같은 일을 다른 방법으로 해 본 이전·이후 판입니다.

• LAN/QB/TSS3.BAS (1993-06-09)
  PEEK으로 글자 바이트만 2000개 읽어 배열에 두었다가 POKE로 되돌립니다.
• LAN/QB/TSS2.BAS (1993-06-13)
  글자와 색 4000바이트를 모두 PEEK, POKE합니다.
• LAN/QB/TS4.BAS (1995-01-08)
  FILES 출력을 SCREEN() 함수로 한 글자씩 읽어 두었다가 PRINT로 다시 찍습니다.
  글자만 되살리고 느립니다.

소스

CLSFOR i = 1 TO 50PRINT i; "ABCDEFGHIJKLMNOPQRSTUVWYXZ";NEXTDEF SEG = &HB000BSAVE "ae.aaa", 0, &HFA0DEF SEGWHILE a$ = ""a$ = INKEY$WENDCLSDEF SEG = &HB000BLOAD "ae.aaa", 0DEF SEGWHILE b$ = ""b$ = INKEY$WEND