home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug035.ark / MUSTANG.FAS < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.2 KB  |  58 lines
  1. * 8 SEPT,FINE TUNINGS.
  2. * MUSTANG RIDER * BY J.M. MOSHELL
  3. *
  4. * PONY GALLOPS BY COWBOY, WHO JUMPS ON AND RIDES AROUND THE SCREEN.
  5. * "HOREST" AND "HORJU" ARE TWO 'FLEXES' OF A RUNNING HORSE;
  6. * "CBOYST" IS 'COWBOY STANDING'
  7. * "CBOYRI" IS 'COWBOY RUNNING'
  8. *
  9. HOREST    EQU    1
  10. HORJU    EQU    2
  11. CBOYRI    EQU    3
  12. CBOYST    EQU    4
  13. CACTUS    EQU    5
  14.     NEWBACK    YELLOW+BRIGHT
  15.     POSIT    %CACTUS,30,30
  16.     BACKGRND %CACTUS
  17.     POSIT    %HOREST,10,16
  18.     POSIT    %HORJU,5,16
  19.     POSIT    %CBOYST,40,13
  20.     DELAY    25
  21.     MOVE    HOREST,.TOGGLE    ;THIS TELLS WHICH HORSE FLEX TO SHOW
  22.     MOVE    CBOYST,.COWBOY    ;THIS TELLS WHICH COWBOY TO SHOW
  23. RUN1:    CALL    RUNHORS    ;HORSE RUNS HORIZONTALLY TO THE RIGHT
  24.     SHOW        ;UPDATE THE SCREEN
  25.     DIST    .TOGGLE,CBOYST,.D    ;ARE THEY TOGETHER YET?
  26.     JNZ    RUN1    ;KEEP GALLOPING UNTIL THEY TOUCH
  27. ;
  28. ; NOW THE HORSE HAS REACHED THE DUDE
  29. ;
  30.     NEWBACK YELLOW+BRIGHT
  31.     BACKGRND    CACTUS
  32.     POSIT    CBOYRI,31,18
  33.     MOVE    CBOYRI,.COWBOY
  34. RUN2:    CALL    RUNHORS
  35.     FLY    CBOYRI,5,0
  36.     SHOW
  37.     JUMP    RUN2
  38. D    DS    1
  39. *
  40. * THE SUBROUTINE WHICH ADVANCES THE TWO VERSIONS OF THE HORSE:
  41. *
  42. RUNHORS:    COMP    .TOGGLE,1
  43.     JZ    JMPHORS
  44. ;
  45. ; STRETCH POSITION
  46. ;
  47.     ONLIST    2,HOREST,.COWBOY
  48.     FLY    HOREST,10,0
  49.     MOVE    1,.TOGGLE
  50.     RETURN
  51. JMPHORS    ONLIST    2,HORJU,.COWBOY
  52.     FLY    HORJU,10,0
  53.     MOVE    0,.TOGGLE
  54.     RETURN
  55. TOGGLE    DB    0
  56. COWBOY    DS    1
  57.     END
  58.