查看“海龟车的程序解释”的源代码

定义全局变量  sample-car

定义属于海龟的变量 speed speed-lim speed-min

对于setup

将全局变量清0

要求patchs执行setup-road

setup-cars

观察 sample-car

将时钟计数器重设为0

结束

对于setup-road

在y坐标位于（-2,2）内的瓦片，设置颜色为白色

结束

对于setup-cars

如果汽车数量大于世界宽度

则执行“ 弹出用户信息，文字：There are too many cars for the amount of road.  Please decrease the NUMBER-OF-CARS slider to below "(world-width 

+ 1) " and press the SETUP button again.  The setup has stopped 

结束”  

设置海龟的默认初始图形为 车

设置海龟数量“设置颜色 蓝色

设置海龟随机位置

设置海龟面向东

设置速度 speed 为0.1+0~0.9之间的随机浮点数

设置速度上限speed lim 1，下限speed min 0

seperate-cars”

设置sample car为海龟集合的随机一个

请求sample car设置颜色为红色

结束

对于seperate-cars

如果这里有了其他海龟车，那么“前进一步，separate-cars”

结束

对于go

请求海龟“让 car-ahead 是随机海龟前方一格瓦片上的海龟

如果 car-ahead 得到的不是nobody，那么减速（slow-down-car car-ahead)，否则加速(speed-up-car)

如果速度小于最小速度，那么让最小速度取代速度

如果速度大于最大速度，那么让最大速度取代速度

让海龟前进速度的步数”

时钟计数器前进1

结束

对于slow-down-car car-ahead

设置速度减少，对主体,返回car-ahead的速度值

对于speed-up-car

设置速度增加