home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / VAR-ROB.TR < prev   
Encoding:
Text File  |  1992-02-04  |  334 b   |  35 lines
  1. ;  Variable-Using Sample-Robot
  2.  
  3. setshift 0
  4. range 1000
  5. angle 8
  6. burn-off
  7.  
  8. ; Definitions of several variables to be used as constants.
  9. a=10
  10. b=100
  11. c=15
  12. k=30
  13. p=1000
  14.  
  15. move a
  16.  
  17. :1
  18. turn c
  19. if enemy gosub p
  20. if range<k destruct
  21. goto 1
  22.  
  23. :1000
  24. move b
  25. t=d
  26. :1001
  27. lfire
  28. fire
  29. if enemy goto 1001
  30. head t
  31. move a
  32. return
  33.  
  34.  
  35.