A tree grows in BASIC

Email
Home

This is a piece of programming history from the late 1970's

It works in Microsoft Access VBA

Sub tannenbaum()
100 Rem "OH, TANNENBAUM!"
110 Let a$ = "."
120 Debug.Print Tab(30); a$
130 For i = 1 To 20
140 Debug.Print Tab(30 - i); a$; Tab(30 + i); a$
150 Next i
155 Debug.Print Tab(10);
160 GoSub 300
170 Debug.Print Tab(36);
180 GoSub 300
190 For i = 1 To 5
200 Debug.Print Tab(25); a$; Tab(35); a$
210 Next i
220 Debug.Print Tab(15); "     A TREE GROWS IN BASIC";
230 Stop
300 For i = 1 To 15
310 Debug.Print a$;
320 Next i
330 Return
999 End
End Sub