home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
teaching
/
pccai205.zip
/
XXCAIARC.EXE
/
lha
/
MENU.CAI
< prev
next >
Wrap
Text File
|
1991-04-24
|
1KB
|
52 lines
.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