home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 18 / 018.d81 / lk.drunkard < prev    next >
Text File  |  2022-08-26  |  456b  |  19 lines
  1. 0010 //use graphics
  2. 0020 print "drunken-man simulation -- by joel rea"
  3. 0030 print 
  4. 0040 input "length of stride? 2": stride
  5. 0050 input "+/- range of distraction? 60": range
  6. 0060 setgraphic 0 // graphicscreen(0)
  7. 0070 clear 
  8. 0080 fullscreen 
  9. 0090 background (1)
  10. 0100 border (3)
  11. 0110 pencolor (6)
  12. 0120 turtlesize (4)
  13. 0130 showturtle 
  14. 0140 moveto 160,100 // moveto(160,100)
  15. 0150 repeat 
  16. 0160 forward (stride)
  17. 0170 right (rnd(-range,range))
  18. 0180 until false
  19.