REM 944BASIC 'rain'

COLORBG 128,128,128
CLS
MAX=10 :REM 一度に表示する雨の数
DIM X(MAX) :表示開始位置(X)
DIM Y(MAX) :表示開始位置(Y)
DIM L(MAX) :雨の長さ

*LOOP
 FOR I=0 TO MAX
  SYNC
  X(I)=(RND+TIME)%80+(I%3)*80
  Y(I)=(RND+TIME)%280
  L(I)=(RND+TIME)%30+20

  COLORFG 232,232,238
  FOR J=0 TO L(I)
   COLORFG 160+J,160+J,160+J
   PSET X(I),Y(I)+J
  NEXT J
  REM LINEよりPSETのほうがそれっぽい
  REM LINE X(I),Y(I),X(I),Y(I)+L(I)

  COLORFG 128,128,128
  FOR J=0 TO L(I)
   PSET X(I),Y(I)+J
  NEXT J
  REM LINEよりPSETのほうがそれっぽい
  REM LINE X(I),Y(I),X(I),Y(I)+L(I)

  IF Y(I)+L(I)>300 THEN GOSUB *SPLASH
 NEXT I

GOTO *LOOP

REM 水滴処理
*SPLASH
 COLORFG 232,232,238
 PSET X(I)-1,318: PSET X(I)-2,317
 PSET X(I)+1,318: PSET X(I)+2,317
 WAIT 1
 COLORFG 128,128,128
 PSET X(I)-1,318: PSET X(I)-2,317
 PSET X(I)+1,318: PSET X(I)+2,317
RETURN