10 home: a$=chr$(42): b$=a$: va=1: vb=17: h=1
20 for l=7 to 1 step -2
30 vtab va: gosub 100: vtab vb: gosub 100
40 b$=b$+a$: va=va+1: vb=vb-1
50 next l
60 for l=17 to 11 step -2
70 vtab va: gosub 110: vtab vb: gosub 110
80 h=h+1: va=va+1: vb=vb-1
90 next l: vtab va: gosub 110
99 vtab 18: end
100 htab 5: ? b$;: for k=1 to l: ? " ";: next k: ? b$;: return
110 htab h: for k=1 to l: ? a$;: next k: ?: return
