REM 944BASIC 's n o w - junk edition'

REM 背景の明るさに応じて調整
BRIGHT=0 :REM 背景…白=0,灰=1,黒=2

REM 万願寺さんの裏技・・・
SETPEN 0,1,1
INPUT A,1,1
SCREEN 0,0,1,1
SCREEN 0,0,240,320

FASTTICK 3

REM 画像の縦横サイズ
GX=240:GY=320

REM キャプチャ画像の保存
SAVEBITMAP 'KALWSNWX.BMP',0,0,240,320,24
BITMAP 'KALWSNWX.BMP',240,0
SPRITE 255,255,1, 0,0, 240,0, GX,GY
REM REFRESH 0,0,0,0,240,320
REM 一時ファイルの削除
FILEDELETE 'KALWSNWX.BMP'

SETPAGE 2
COLORBG 0,0,0: CLS

MAX=32 :REM １ループに表示する雨の数

SETPAGE 2

REM 色設定(RGB)
R=255: G=255: B=255

FOR I=0 TO MAX
 X=(RND+TIME)%10+(I%24)*10
 Y=(RND+TIME)%80+(I%4)*80
 REM 雪の描画
 J=I%3
 IFBLK J<>2
  IFBLK BRIGHT=2
   COLORFG R-(80+J*64),G-(80+J*64),B-(80+J*64)
  ELSEIF BRIGHT=1
   COLORFG R-(32+J*16),G-(32+J*16),B-(32+J*16)
  ELSE
   COLORFG R-(16+J*8),G-(16+J*8),B-(16+J*8)
  ENDIF
  BOX X-1,Y-1,X+1,Y+1
 ENDIF

 IFBLK BRIGHT=2
  COLORFG R-J*48,G-J*48,B-J*48
 ELSEIF BRIGHT=1
  COLORFG R-J*24,G-J*24,B-J*24
 ELSE
  COLORFG R-J*12,G-J*12,B-J*12
 ENDIF
 BOXCIRCLE X-1,Y-1,X+1,Y+1

 COLORFG R-J*8,G-J*8,B-J*8
 PSET X,Y

NEXT I
SPRITE 11,11,1, 0,0, 0,0, 240,320
SPRITE 12,12,1, 0,-320, 0,0, 240,320
SPRITE 21,21,1, 80,0, 0,0, 240,320
SPRITE 22,22,1, 80,-320, 0,0, 240,320
SPRITE 31,31,1, -80,0, 0,0, 240,320
SPRITE 32,32,1, -80,-320, 0,0, 240,320
REFRESH 0,0,0,0,240,320

X1=0:Y1=0
X2=80:Y2=0
X3=-80:Y3=0
INC1=6
INC2=4
INC3=2
XB=0:YB=0
SETPAGE 0
*LOOP
 SYNC
 REM IF PADX THEN XB=XB-PADX*10
 IF XB<(GX-240)*(-1) THEN XB=(GX-240)*(-1)
 IF XB>0 THEN XB=0
 SPRITE 255,255,1, XB,YB
 SPRITE 11,11,1, X1,Y1
 SPRITE 12,12,1, X1,Y1-320
 SPRITE 21,21,1, X2,Y2+80
 SPRITE 22,22,1, X2,Y2-240
 SPRITE 31,31,1, X3,Y3+160
 SPRITE 32,32,1, X3,Y3-160
 X1=X1+RNDRG(-2,2)
 Y1=Y1+INC1+RNDRG(-1,1)
 X2=X2+RNDRG(-2,2)
 Y2=Y2+INC2+RNDRG(-1,1)
 X3=X3+RNDRG(-2,2)
 Y3=Y3+INC3+RNDRG(-1,1)
 IF Y1>=320 THEN Y1=0
 IF Y2>=240 THEN Y2=-80
 IF Y3>=160 THEN Y3=-160
 REFRESH 0,0,0,0,240,320
GOTO *LOOP