home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / ROBOT1.TR < prev    next >
Encoding:
Text File  |  1991-11-11  |  250 b   |  19 lines
  1. ;-------------------=========>Test-Robot 1<=========----------------------
  2. goto 1
  3. destruct
  4. ;head 0
  5. :1
  6. ;head 180
  7. move 100
  8. if enemy fire
  9. ;if random goto 3
  10. turn -35
  11. :2
  12. goto 1
  13. ;turn 15
  14. ;
  15. ;     --------  end.  --------
  16. :3
  17. turn 35
  18. goto 2
  19.