mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +00:00
5 lines
276 B
QBasic
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
|