2POKE232,20:POKE233,8
5REM#%%-...
6HGR:X=128:HPLOT0,125TO50,110TO113,XTO144,XTO217,94TO253,112TO267,106TO279,118
7ROT=0:SCALE=2:XDRAW1ATX,Y:H%=127-Y:VTAB22:?CHR$(7)"ALT="H%" "
8IFA=4THENSCALE=1:ROT=32:XDRAW1ATX+6,Y+2:A=1:?CHR$(7):XDRAW1ATX+6,Y+2:ROT=0:SCALE=2:XDRAW1ATX,Y:GOTO7
9XDRAW1ATX,Y:Y=Y+A:A=A+1/4
10IFH%>0THEN7
11FORI=2TO32:SCALE=I/2:ROT=I*4:XDRAW1ATX,Y:NEXT