SYS "CreateMenu" TO hmenu%
      SYS "SetMenu", @hwnd%, hmenu%
      SYS "AppendMenu", hmenu%, 0, 0, "Blac&k"
      SYS "AppendMenu", hmenu%, 0, 1, "&Red"
      SYS "AppendMenu", hmenu%, 0, 2, "&Green"
      SYS "AppendMenu", hmenu%, 0, 3, "&Yellow"
      SYS "AppendMenu", hmenu%, 0, 4, "&Blue"
      SYS "AppendMenu", hmenu%, 0, 5, "&Magenta"
      SYS "AppendMenu", hmenu%, 0, 6, "&Cyan"
      SYS "AppendMenu", hmenu%, 0, 15, "&White"
      SYS "DrawMenuBar", @hwnd%
      :
      ON SYS PROCmenu(@wparam%) : RETURN
      REPEAT
        
        REM Slug by RG Weston and pupils
        DIM X(25),Y(25)
        REM MODE0
        VDU5
        X(1)=400+RND(200)
        Y(1)=300+RND(200)
        DIR=0
        TAIL=1
        REPEAT
          GCOL0,0
          WASTAIL=TAIL
          TAIL=(TAIL MOD 25)+1
          MOVE X(TAIL),Y(TAIL)
          PRINT;"o"
          CHANGE=RND(1)
          IF CHANGE <.5 THEN DIR=DIR +.1745 ELSE DIR =DIR-.1745
          X=X(WASTAIL)
          Y=Y(WASTAIL)
          NEWX=X+4*COS(DIR)
          NEWY=Y+4*SIN(DIR)
          NEWX=NEWX MOD 1280
          NEWY=NEWY MOD 1024
          IF NEWX <0 THEN NEWX=NEWX+1280
          IF NEWY <0 THEN NEWY=NEWY+1024
          X(TAIL)=NEWX
          Y(TAIL)=NEWY
          GCOL0,1
          MOVE NEWX,NEWY
          PRINT;"O"
          FOR delay=1 TO 100000:NEXT: REM change this if slug goes too slow/fast!
        UNTIL FALSE
        
 
      UNTIL INKEY(10)=0
      END
      ;
      DEF PROCmenu(col%)
      COLOUR 128+col% : CLS
      ENDPROC