home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG035.ARK
/
BEE.FAS
< prev
next >
Wrap
Text File
|
1984-04-29
|
1KB
|
80 lines
; 8 SEPT 79 - MOSHELL
;
; BLOOMING FLOWER; BEE LANDS,FLIES AGAIN.BIRD
; COMES ALONG AND EATS BEE.
;
SPEED EQU 0
GROUND EQU 0
STEM EQU 1
LEFTPETAL EQU 2
RIGHTPETAL EQU 3
BEE EQU 4
BEEPATH EQU 5
B2PATH EQU 6
BIRD EQU 7
BIRDPATH EQU 8
;
DELAY SPEED
ONLIST 2,STEM,GROUND
MOVE 15,.COUNT
;
;FIRST THE PLANT GROWS AND BLOSSOMS.
;
STEMLOOP: FLY STEM,0,1
SHOW
SUB .COUNT,1,.COUNT
JNZ STEMLOOP
;
BACKGRND STEM
ONLIST 4,LEFTPETAL,RIGHTPETAL,STEM,GROUND
MOVE 5,.COUNT
DELAY 150
;
PETALOOP:BACKGRND LEFTPETAL
BACKGRND RIGHTPETAL
SPIN LEFTPETAL,-1
SPIN RIGHTPETAL,1
SHOW
SUB .COUNT,1,.COUNT
JNZ PETALOOP
;
CALL PAUSE
ONLIST 1,BEE
;
;NOW A BEE WANDERS ACROSS THE SCENE,SETTLES ON FLOWER.
;
BEELOOP:PATH BEE,BEEPATH
SHOW
JNZ BEELOOP
;
CALL PAUSE
ONLIST 2,BEE,BIRD
;
;NOW THE BEE LEAVES THE FLOWER,MEETS BIRD.
;
B2LOOP: PATH BIRD,BIRDPATH
PATH BEE,B2PATH
SHOW
JNZ B2LOOP
;
ONLIST 1,BIRD ;BEE DONE BEEN ET.
;
; BIRD NOW FLIES AROUND THE SCREEN FOREVER.
;
BIRDLOOP:PATH BIRD,BIRDPATH
SHOW
JUMP BIRDLOOP
;
;- - - - - - - - - - - - - - - - - - - - -
;
PAUSE: DELAY 250
MOVE 5,.COUNT
PLOOP: SUB .COUNT,1,.COUNT
JNZ PLOOP
DELAY SPEED
RETURN
;
COUNT: DB 0
;
END