10000 !=========================================
10010 ! SPOT LIGHT SAMPLE
10020 !=========================================
10030 ! ��/�~�Ŋg��/�k��"
10040 INIT
10050 TEXTMODE 2
10060 I=1
10070 S=40
10080 Z=S*2
10090 FOR Y=-S TO S STEP S
10100  FOR X=-S TO S STEP S
10110   MODSET I,6,I
10120   MODPOS I,X,Y,Z
10130   MODDISP I
10140   I=I+1
10150  NEXT X
10160  Z=Z-S
10170 NEXT Y
10180 SPRTEX 1000,2,0,0,512,256
10190 SPRPOS2 1000,0,0,640,224,16777199
10200 SPRPAL 1000,5,0,1
10210 SPRDISP 1000
10220 !SPRTEX 1,1,0,0,512,256
10230 !SPRPOS2 1,0,0,640,224,0
10240 !SPRPAL 1,1,10,1
10250 !SPRDISP 1
10260 X=320
10270 Y=92
10280 R=16
10290 DO
10300  CALL CIRCLE(X,Y,R)
10310  X=MIN(960,MAX(-320,X+((PAD(1,1)>4)-(PAD(1,2)>4))*10))
10320  Y=MIN(384,MAX(-160,Y+((PAD(1,4)>4)-(PAD(1,3)>4))*5))
10330  R=MIN(160,MAX(0,R+(PAD(1,6)>4)-(PAD(1,7)>4)))
10340  FSYNC 1
10350 LOOP
10360 !=========================================
10370 SUB CIRCLE(X,Y,R)
10380 FOR I=1 TO 36
10390  TRICOL I+1,0,0,0,1
10400  A=X+2*R*COS(RAD(I-1)*10)
10410  B=Y+R*SIN(RAD(I-1)*10)
10420  C=X+2*R*COS(RAD(I)*10)
10430  D=Y+R*SIN(RAD(I)*10)
10440  TRIPOS I+1,X,Y,A,B,C,D,16777200
10450  TRIDISP I+1
10460 NEXT I
10470 END SUB