home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / allee-r3 (.txt) next >
Commodore BASIC  |  2022-10-26  |  854b  |  21 lines
  1. 1 rem    a l l e e
  2. 2 rt#=@#z((NULL)/8):rd_=[0,60,0]:r_=rd_
  3. 4 l_=[0,0,8030]:st_=[-260,0,0]:sh_=[0,180,0]:sd_=2*st_
  4. 5 dl_=[0,0,160]:rt_=[-81.5,-82,0]:ru_=[-78.5,-82,0]
  5. 10 rs_=[-80,-82,0]:rv_=[-162,0,0]
  6. 20 e_=[0,0,1e20]:graf2:gosub30:graf6:gosub30:grafa:gosub30:grafe:gosub30:goto40:
  7. 25 horizont und strassenraender
  8. 30 clea:linerv_,-rv_:liners_+rv_,rs_+rv_+e_:liners_-rv_,rs_-rv_+e_:return
  9. 40 rt_=rt_+l_:rs_=rs_+l_:ru_=ru_+l_:fori=0to12
  10. 50 graf2:gosub60:graf6:gosub60:grafa:gosub60:grafe:gosub60:next:goto100        :
  11. 55 mittellinie und baeume
  12. 60 rs_=rs_-dl_:rt_=rt_-dl_:ru_=ru_-dl_:liners_,rs_+1.3*dl_:linert_,rt_+1.3*dl_
  13. 70 lineru_,ru_+1.3*dl_
  14. 76 liners_+st_,rs_+st_+sh_:liners_-st_,rs_-st_+sh_
  15. 80 x_=rs_-st_+sh_+rd_:gosub90:return
  16. 90 fork=0to15:rf_=r_:r_=r_*rt#:linerf_+x_,r_+x_:linerf_+x_+sd_,r_+x_+sd_:next:return
  17. 95 film
  18. 100 gosub111:graf2:gosub110:graf6:gosub110:grafa:gosub110:grafe:goto100
  19. 110 fori=0to46:next:return
  20. 111 fori=0to42:next:return
  21.