REM 944BASIC '福笑ひ'

REM 画面初期化
COLORBG 255,255,255: CLS

REM スプライト定義
SETPAGE 2:BITMAP "KALVKWR0.BMP" 0,0
REM 左まゆ
SPRITE 1,1,0, 0,0, 37,54, 73,24
REM 右まゆ
SPRITE 2,2,0, 0,0, 131,54, 69,22
REM 左目
SPRITE 3,3,0, 0,0, 40,85, 70,38
REM 右目
SPRITE 4,4,0, 0,0, 128,87, 66,41
REM 鼻
SPRITE 5,5,0, 0,0, 92,117, 54,49
REM 口
SPRITE 6,6,0, 0,0, 78,173, 82,32

REM 輪郭(背景)
SPRITE 255,255,1, 0,0,240,0,240,240

REM 初期表示
REFRESH 0,0,0,0,240,320

REM 顔のﾊﾟｰﾂ(ｽﾌﾟﾗｲﾄ1-6)を1つずつ処理
FOR I=1 TO 6
 PX=20:PY=230  :REM 最初の表示位置
 BEEP

 REM ｽﾌﾟﾗｲﾄを表示
 REM ｽﾌﾟﾗｲﾄのﾓｰﾄﾞを5にして、ｽﾌﾟﾗｲﾄの
 REM 中心点がﾍﾟﾝ位置に来るようにする
 SPRITE I,I,5, PX,PY
 REFRESH 0,0,0,0,240,320

 REM PENX,PENYの値を20,230にする
 SETPEN 0,PX,PY

 REM スプライト移動処理
 *LOOP SYNC
  PX=PENX:PY=PENY  :REM ペン位置取得

  REM ペン位置にスプライトを表示
  SPRITE I,I,5, PX,PY
  REFRESH 0,0,0,0,240,320

  REM 決定キーで位置確定
  IF PADONA THEN GOTO *EXITLOOP
 GOTO *LOOP
*EXITLOOP
PX=20:PY=230
SETPEN 0,PX,PY
NEXT I

REM 終了
BEEP
WAIT 3
BEEP
WAIT 3
BEEP

KEYWAIT
MESSAGE 'お笑ひなさい'
KEYWAIT