#0081/9999　Ｑ＆Ａ集
★タイトル (88VAUSER)  95/11/01  00:00  ( 59)
9.6    画面の一部を見せる「スポット処理」をしたいのですが。
★内容

　ＶＡではグラフィックを重ねることができるので上にマスク用のグラフィック
を表示してやることでスポット処理を実現できるでしょう。ＢＡＳＩＣで行うの
にはリファレンスマニュアルのCOMPOSE コマンドのプログラム例を実行するとわ
かりやすいかと思います。

 NEC Personal Computer PC-88VA2/VA3 N88日本語BASIC V3
       REFERENCE MANUAL         Page 87より
========================================================================
100 'COMPOSE ｻﾝﾌﾟﾙ
110 SCREEN WIDTH 7,320,4,320,4
120 WIDTH 80,25:CONSOLE 0,22,1,1:CLS 3
130 COLOR 14
140 FOR I=3 TO 20
150   LOCATE 18,I:PRINT "888888888888888888888888888888888"
160 NEXT I
170 SPRITE SCREEN 1
180 DIM A%(513)
190 A%(0)=32*2:A%(1)=16*4
200 FOR I=2 TO 64*2*4+1
210   A%(I)=&HFFFF
220 NEXT
230 PUT PATTERN 1,A%,1,4
240 PALETTE 30,&HFFE0:PALETTE 31,-1
250 BUFFER=0
260 LINE (40,32)-(160,120),1,BF
270 LINE (40,128)-(160,300),1,BF
280 BUFFER=8
290 LINE (100,110)-(250,350),2,BF
300 LOCATE 0,0:COLOR 15
310 PRINT "0=ﾃｷｽﾄ 1=ｽﾌﾟﾗｲﾄ 2=ｸﾞﾗﾌｨｯｸ0(ｱｵ) 3=ｸﾞﾗﾌｨｯｸ1(ｱｶ)"
320 FOR P=1 TO 10
330   READ FST,SND,TRD,FTH
340   LOCATE 0,1:PRINT "現在の優先順位";FST;SND;TRD;FTH
350   COMPOSE FST,SND,TRD,FTH,7
360   GOSUB 450
370 NEXT P
380 PALETTE:PALETTE 31,&HFFFF
390 COMPOSE 1,0,2,3
400 PALETTE:PALETTE 31,&HFFFF
410 SPRITE SCREEN 1
420 BUFFER=0:CLS 3
430 BUFFER=8:CLS 3
440 END
450 '
460 TURN ON SPRITE
470 FOR I=650 TO 0 STEP -1
480   LOCATE SPRITE 1,I,89,1:FOR J=0 TO 11:NEXT J
490 NEXT I
500 FOR TT=0 TO 1000:NEXT
510 RETURN
520 DATA 1,0,2,3,1,0,3,2,1,2,0,3,1,2,3,0
530 DATA 2,1,0,3,2,1,3,0,2,3,1,0
540 DATA 3,1,0,2,3,1,2,0,3,2,1,0
========================================================================

                         <<< end of article >>>