mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-03 18:29:53 +00:00
9 lines
367 B
QBasic
9 lines
367 B
QBasic
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
|