.rem    This is an example of using the @CASE command to create a menu
@LABEL:BEGIN
.screen 0
.color 15,1
.cls
.color 15,4
.locate 10,1
@CASE(*ABCD:PCX,ANIM,MOVE,END*) center border shadow
  A - Show A Sample PCX Graphics File
  B - Show a Sample Animation
  C - Show Sample Move
  D - End This Program
@END
.pause
@LABEL:PCX

.screen 1
.cls
.pcx testpcx.pcx 1,2
.locate 24,1
.pause
@GOBACK:BEGIN
@LABEL:ANIM
.SCREEN 1
.cls
.locate 20,1 (*Example Animation*)
.line (1,130)-(155,95)
.line (155,95)-(315,130)
.line (1,130)-(315,130)
.LOAD RUNNER1,RUNNER2,RUNNER3,RUNNER4
.rem ------------fix stepy for fractions , negatives
.ANIMATE (1,100)-(150,60) STEPX=4 STEPY=-1 PAUSE=.1
.ANIMATE (150,65)-(300,130) STEPX=4 STEPY=1 PAUSE=.1
.locate 20,1 (*                              *)
.locate 20,1
.pause
@GOBACK:BEGIN
@LABEL:MOVE
.screen 1
.cls
.locate 20,1(*Example Moving Single Image*)
.get beetle
.move (1,100)-(250,100)
.locate 20,1 (*                            *)
.locate 20,1
.pause
@GOBACK:BEGIN
@LABEL:END
.locate 24,1
.pause (*Press Enter to End this Program:*)
@STOP menu