home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / EDUCATIO / PROBOTS.ZIP / GORO.PR < prev    next >
Encoding:
Text File  |  1988-11-05  |  522 b   |  21 lines
  1.   PROCEDURE GORO;
  2.     { GORO is based on a Japanese 60's TV drama "Ultra-Q"
  3.       Original C-Robot by Hortense Endoh}
  4.  
  5.   VAR
  6.     dir, Range     : Integer;
  7.  
  8.   BEGIN {Goro Main}
  9.     dir := 0;
  10.  
  11.     REPEAT { loop until dead or winner }
  12.       Range := scan(dir, 10); { look }
  13.       IF (Range > 40) THEN BEGIN
  14.         cannon(dir, Range); { fire }
  15.         drive(dir, 100); { move }
  16.       END
  17.       ELSE
  18.         dir := dir+170; { change look and drive direction }
  19.     UNTIL Dead OR Winner;
  20.   END; {Goro Main}
  21.