home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug035.ark / BEE.FAS < prev    next >
Text File  |  1984-04-29  |  1KB  |  80 lines
  1. ; 8 SEPT 79 - MOSHELL
  2. ;
  3. ; BLOOMING FLOWER; BEE LANDS,FLIES AGAIN.BIRD 
  4. ; COMES ALONG AND EATS BEE. 
  5. ;
  6. SPEED    EQU    0
  7. GROUND    EQU    0
  8. STEM    EQU    1
  9. LEFTPETAL EQU    2
  10. RIGHTPETAL EQU    3
  11. BEE    EQU    4
  12. BEEPATH    EQU    5
  13. B2PATH    EQU    6
  14. BIRD    EQU    7
  15. BIRDPATH EQU    8
  16. ;
  17.     DELAY    SPEED
  18.     ONLIST    2,STEM,GROUND
  19.     MOVE    15,.COUNT
  20. ;
  21. ;FIRST THE PLANT GROWS AND BLOSSOMS.
  22. ;
  23. STEMLOOP:    FLY    STEM,0,1
  24.     SHOW
  25.     SUB    .COUNT,1,.COUNT
  26.     JNZ    STEMLOOP
  27. ;
  28.     BACKGRND    STEM
  29.     ONLIST    4,LEFTPETAL,RIGHTPETAL,STEM,GROUND
  30.     MOVE    5,.COUNT
  31.     DELAY    150
  32. ;
  33. PETALOOP:BACKGRND    LEFTPETAL
  34.     BACKGRND    RIGHTPETAL
  35.     SPIN    LEFTPETAL,-1
  36.     SPIN    RIGHTPETAL,1
  37.     SHOW
  38.     SUB    .COUNT,1,.COUNT
  39.     JNZ    PETALOOP
  40. ;
  41.     CALL    PAUSE
  42.     ONLIST    1,BEE
  43. ;
  44. ;NOW A BEE WANDERS ACROSS THE SCENE,SETTLES ON FLOWER.
  45. ;
  46. BEELOOP:PATH    BEE,BEEPATH
  47.     SHOW
  48.     JNZ    BEELOOP
  49. ;
  50.     CALL    PAUSE
  51.     ONLIST    2,BEE,BIRD
  52. ;
  53. ;NOW THE BEE LEAVES THE FLOWER,MEETS BIRD.
  54. ;
  55. B2LOOP: PATH    BIRD,BIRDPATH
  56.     PATH    BEE,B2PATH
  57.     SHOW
  58.     JNZ    B2LOOP
  59. ;
  60.     ONLIST    1,BIRD    ;BEE DONE BEEN ET.
  61. ;
  62. ; BIRD NOW FLIES AROUND THE SCREEN FOREVER.
  63. ;
  64. BIRDLOOP:PATH    BIRD,BIRDPATH
  65.     SHOW
  66.     JUMP    BIRDLOOP
  67. ;
  68. ;- - - - - - - - - - - - - - - - - - - - -
  69. ;
  70. PAUSE:    DELAY    250
  71.     MOVE    5,.COUNT
  72. PLOOP:    SUB    .COUNT,1,.COUNT
  73.     JNZ    PLOOP
  74.     DELAY    SPEED
  75.     RETURN
  76. ;
  77. COUNT:    DB    0
  78. ;
  79.     END
  80.