1 REM    A L L E E
2 RT#=@#Z((null)/8):RD_=[0,60,0]:R_=RD_
4 L_=[0,0,8030]:ST_=[-260,0,0]:SH_=[0,180,0]:SD_=2*ST_
5 DL_=[0,0,160]:RT_=[-81.5,-82,0]:RU_=[-78.5,-82,0]
10 RS_=[-80,-82,0]:RV_=[-162,0,0]
20 E_=[0,0,1E20]:GRAF2:GOSUB30:GRAF6:GOSUB30:GRAFA:GOSUB30:GRAFE:GOSUB30:GOTO40:
25 HORIZONT UND STRASSENRAENDER
30 CLEA:LINERV_,-RV_:LINERS_+RV_,RS_+RV_+E_:LINERS_-RV_,RS_-RV_+E_:RETURN
40 RT_=RT_+L_:RS_=RS_+L_:RU_=RU_+L_:FORI=0TO12
50 GRAF2:GOSUB60:GRAF6:GOSUB60:GRAFA:GOSUB60:GRAFE:GOSUB60:NEXT:GOTO100        :
55 MITTELLINIE UND BAEUME
60 RS_=RS_-DL_:RT_=RT_-DL_:RU_=RU_-DL_:LINERS_,RS_+1.3*DL_:LINERT_,RT_+1.3*DL_
70 LINERU_,RU_+1.3*DL_
76 LINERS_+ST_,RS_+ST_+SH_:LINERS_-ST_,RS_-ST_+SH_
80 X_=RS_-ST_+SH_+RD_:GOSUB90:RETURN
90 FORK=0TO15:RF_=R_:R_=R_*RT#:LINERF_+X_,R_+X_:LINERF_+X_+SD_,R_+X_+SD_:NEXT:RETURN
95 FILM
100 GOSUB111:GRAF2:GOSUB110:GRAF6:GOSUB110:GRAFA:GOSUB110:GRAFE:GOTO100
110 FORI=0TO46:NEXT:RETURN
111 FORI=0TO42:NEXT:RETURN