Miscellany

DISABLE SYSTEMKEYS

SYNC ON:SYNC RATE 10
BACKDROP ON
COLOR BACKDROP RGB(000,000,000)
SET DISPLAY MODE 800,600,16
LOAD IMAGE "screen.bmp",1,1
SET TEXT FONT "FACELIFT"

DO

   CLS

   IF MOUSEMOVEX() <> 0 AND MOUSEMOVEY() <> 0 THEN moved = 1

   IF NOT moved
      WAIT 20
      PASTE IMAGE 1,0,0
   ELSE
      size# = 15+RND(1)
      xOffset# = -1+RND(2)
      yOffset# = -1+RND(2)
      SET TEXT SIZE size#
      CENTER TEXT (SCREEN WIDTH()/2)+xOffset#,(SCREEN HEIGHT()/2)+yOffset#, "Do you want to see a Ghost?"
   ENDIF

   SYNC

LOOP