home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / proglang / ladybug1.arj / ROBOT.BUG < prev    next >
Text File  |  1991-01-13  |  933b  |  57 lines
  1. ;robot.bug
  2.  
  3. to "abs  :N
  4. IF :N <0 THEN OUTPUT 0 - :N
  5. OUTPUT :N
  6. end
  7.  
  8. to "quit  
  9. TOPLEVEL
  10. end
  11.  
  12. to "readkey  
  13. IF KEYP THEN OUTPUT READCHAR
  14. OUTPUT "FALSE
  15. end
  16.  
  17. to "yes.master  
  18. MAKE "C READKEY
  19. IF :C = "R THEN RIGHT 30
  20. IF :C = "L THEN LEFT 30
  21. IF :C = "U THEN PENUP
  22. IF :C = "D THEN PENDOWN
  23. IF :C = "Q THEN QUIT
  24. IF :C = "S THEN MAKE "SPEED :SPEED + 2
  25. end
  26.  
  27. to "driveb  
  28. FORWARD :SPEED
  29. IF ( ABS XCOR ) > 240 THEN RIGHT 120
  30. IF ( ABS YCOR ) > 140 THEN RIGHT 120
  31. YES.MASTER
  32. DRIVEB
  33. end
  34.  
  35. to "start  
  36. DRAW ST pc 3 bg 0 pd
  37. SETH 30
  38. MAKE "SPEED 5
  39. DRIVEB
  40. end
  41.  
  42. to "help
  43. print [type R to go right]
  44. print [type L to go left]
  45. print [type U for pen up]
  46. print [type D for pen down]
  47. print [type S to speed up]
  48. print [type Q to quit]
  49. print [type start to begin]
  50. print [hint: turn on CAPS LOCK to play]
  51. end
  52.  
  53. make "speed "'35
  54. make "c "'FALSE
  55. make "description [drive a turtle (type help)]
  56. print :description
  57.