mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-03 18:29:53 +00:00
7 lines
279 B
QBasic
7 lines
279 B
QBasic
2POKE232,20:POKE233,8
|
|
5REM#%%-...
|
|
6HGR:X=128:HPLOT0,XTO50,110TO113,XTO144,XTO217,94TO253,112
|
|
7ROT=0:SCALE=2:XDRAW1ATX,Y:H%=127-Y:VTAB22:?CHR$(7)"ALT="H%" ":XDRAW1ATX,Y:Y=Y+A:A=A+1/4:IFA=4THENSCALE=1:XDRAW1ATX+2,Y+4:A=1
|
|
8IFH%>0THEN7
|
|
9FORI=2TO16:SCALE=I/2:ROT=I*4:XDRAW1ATX,Y:NEXT
|