100 KLOAD ON :CLEAR 1800,640
  110 SCREEN 0:WINDOW 0,0,319,255
  120 ' 背景読み込み
  130 FOR I=0 TO 1
  140 GLOAD "CD:"+MID$("TEKST TEKEND",I*6+1,6)+".1"
  150 FOR J=0 TO 223:GCOPY (0,J)-(319,J) TO A$
  160 GOSUB *PUTLINE:LN=LN+1:NEXT J,I
  170 ' 背景展開
  180 FOR I=0 TO 255:LN=64+I:GOSUB *GETLINE:GCOPY A$ TO (0,I):NEXT
  190 ' 人物合成
  200 FG = RGB(0,0,0):BG = RGB(31,28,28)
  210 CIRCLE (160,150),(50,60),RGB(20,20,20),F
  220 CIRCLE (160,190),(50,60),RGB(20,20,20),F
  230 CIRCLE (135,245),(20,10),RGB(10,5,5),F
  240 CIRCLE (185,245),(20,10),RGB(10,5,5),F
  250 CIRCLE (160,60),(40,50),BG,F
  260 CIRCLE (160,10),(40,10),FG,F
  270 KPRINT (140,20),"く く",FG,16,BG
  280 KPRINT "め め",FG,16,BG
  290 KPRINT " ひ ",FG,16,BG
  300 KPRINT " ろ ",FG,16,BG
  310 WINDOW 120,60,180,110:CIRCLE (160,60),(40,50),FG
  320 WINDOW 0,0,319,255:DISPLAY OFF 0
  330 FOR I=0 TO 255:GCOPY (0,I)-(319,I) TO A$
  340 LN=64+I:GOSUB *PUTLINE:NEXT I
  350 ' 背景展開
  360 FOR I=0 TO 223:LN=224+I:GOSUB *GETLINE:GCOPY A$ TO (0,I):NEXT
  370 ' スクロール
  380 DISPLAY ON 0:VSYNC 60:FOR I=223 TO 0 STEP -1
  390 LN = I:GOSUB *GETLINE:VSYNC
  400 GCOPY A$ TO (0,I+256-224)
  410 SCROLL 0,0,I+256-224:NEXT
  420 END
  430 ' １ライン分を 仮想VRAM に書き込む
  440 *PUTLINE
  450 P#=LN*320*2:P_H=INT(P#/256):P_L=P#-P_H*256
  460 POKE P_H,P_L,RIGHT$(A$,320*2):RETURN
  470 ' １ライン分を 仮想VRAM から読み込む
  480 *GETLINE
  490 P#=LN*320*2:P_H=INT(P#/256):P_L=P#-P_H*256
  500 A$=STRW$(1,320)+STRW$(1,1)+PEEK$(P_H,P_L,320*2):RETURN