dos33fsprogs/basic/appleiibot/xtree.bas
2023-01-02 02:22:58 -05:00

5 lines
276 B
QBasic

0HGR:C=140:HCOLOR=5:H=15:W=14:Y=0:GOSUB8:H=-15:Y=20:GOSUB8:H=100:W=10:Y=52:GOSUB8
2HCOLOR=1:H=50:W=50:Y=15:GOSUB8:W=70:Y=50:GOSUB8:W=85:Y=85:GOSUB8
3HCOLOR=2:H=10:W=10:Y=100:C=80:GOSUB8:C=200:GOSUB8:Y=66:C=95:GOSUB8:C=185:GOSUB8:END
8FORX=C-WTOC+W:HPLOTC,YTOX,Y+H:NEXT:RETURN