0 REM OPEN1,8,15,"S:TREE.BAS":CLOSE1:SAVE"TREE.BAS",8
1 REM BY SKE 1999
10 DIMT(40),S(40),P(40):U=11:T=01:S=01
11 PRINT"[196]IRECTORY [212]REE [212]RACER [214]2.0"
20 OPEN1,U,15,"/":OPEN5,U,5,"#"
21 REM -----HEADER LADEN
22 PRINT#1,"U1";5;0;T;S
24 PRINT#1,"B-P";5;0:GOSUB1000
30 BP=-30:REM -----1. INTRAG LADEN
40 PRINT#1,"U1";5;0;T;S
45 BP=BP+32:IF BP>255 THEN 70
50 PRINT#1,"B-P";5;BP
51 GET#5,A$:A=ASC(A$+CHR$(0))
52 IFA=133ORA=134THEN 100
55 GOTO 45
70 PRINT#1,"B-P";5;0 : GOSUB1000
71 IFT<>0THEN30
80 E=E-1:IFE=-1THEN CLOSE1:CLOSE5 :PRINT"[197]NDE":END
90 T=T(E+1):S=S(E+1):BP=P(E+1)
92 GOTO40
100 E=E+1
101 T(E)=T:S(E)=S:P(E)=BP
102 PRINT#1,"B-P";5;(BP+1)
110 GOSUB1000 :REM NEUER START INT,S
112 PRINT#1,"B-P";5;(BP+3)
114 FORI=1TOE:PRINT"[167] ";:NEXT:PRINT"[157][175][175]";
120 FORI=1TO16:GET#5,A$:PRINTA$;:NEXT:PRINT
130 GOTO22
1000 GET#5,A$,B$:
1010 T=ASC(A$+CHR$(0)):S=ASC(B$+CHR$(0))
1020 RETURN