home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 38 / Digital_Talk_38_1999-08-15_Digital_Talk_de_Side_B.d64 / tree.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  735b  |  32 lines
  1. 0 rem open1,8,15,"s:tree.bas":close1:save"tree.bas",8
  2. 1 rem by ske 1999
  3. 10 dimt(40),s(40),p(40):u=11:t=01:s=01
  4. 11 print"[196]irectory [212]ree [212]racer [214]2.0"
  5. 20 open1,u,15,"/":open5,u,5,"#"
  6. 21 rem -----header laden
  7. 22 print#1,"u1";5;0;t;s
  8. 24 print#1,"b-p";5;0:gosub1000
  9. 30 bp=-30:rem -----1. intrag laden
  10. 40 print#1,"u1";5;0;t;s
  11. 45 bp=bp+32:if bp>255 then 70
  12. 50 print#1,"b-p";5;bp
  13. 51 get#5,a$:a=asc(a$+chr$(0))
  14. 52 ifa=133ora=134then 100
  15. 55 goto 45
  16. 70 print#1,"b-p";5;0 : gosub1000
  17. 71 ift<>0then30
  18. 80 e=e-1:ife=-1then close1:close5 :print"[197]nde":end
  19. 90 t=t(e+1):s=s(e+1):bp=p(e+1)
  20. 92 goto40
  21. 100 e=e+1
  22. 101 t(e)=t:s(e)=s:p(e)=bp
  23. 102 print#1,"b-p";5;(bp+1)
  24. 110 gosub1000 :rem neuer start int,s
  25. 112 print#1,"b-p";5;(bp+3)
  26. 114 fori=1toe:print"[167] ";:next:print"[157][175][175]";
  27. 120 fori=1to16:get#5,a$:printa$;:next:print
  28. 130 goto22
  29. 1000 get#5,a$,b$:
  30. 1010 t=asc(a$+chr$(0)):s=asc(b$+chr$(0))
  31. 1020 return
  32.