Qbasic Yardım

Arkadaşlar lise 2 bilişim teknolojileri bölümünü okuyorum. Qbasic öğreniyoruz. Hoca bizden şöyle bir şey istedi yardımcı olursanız teşekkür ederim.

1. Ekranın etrafına x yazacak bütün çevresi xxx lerle dolacak
2. si ise ekranı kaplayacak xxx lerden oluşan Çarpı işareti...

xxxxxxxx                x       x              
x      x                   x   x           
x      x                     x   
xxxxxxxx                    x  x     
                          x      x                  
                        x          x      

Biraz komik oldu ama :D

Neyse arkadaşlar ekrana bu iki görüntüyü verdirmem lazım. 2 si ayrı ayrı olarak tabi Yardımlarınız için şimdiden teşekkürler      

10 CLS
20 FOR R=1 to 25
40 LOCATE R,R
50 PRINT “X”
60 NEXT X
70 end

Hâlâ  bu proğram kullanılıyormu.  
ben bunun 1991 yılında kursuna gitmiştim. (o zamanki Adı BASIC'di)
Qbasic biraz daha gelişmişi. zevkli programdır. biz bu programla oyun falan yapmıştık.
benden bu kadar. biraz daha araştır      :-)

Evet okulda bunu öğretiyolar :D
Teşekkür ederim yardımın için

1. sorunun cevabı bu ama 2. soruyu tam olarak anlamadım

cls
? string(80,"X")
for i=2 to 23:locate i,1:? "X":locate i,80:? "X":next i
? string(80,"X")

Hımm... Sadece PRINT ile olsa olmaz mı?

Ayrıca, QBASIC öğretmelerinin nedeni, BASIC dilinin kolay ve anlaşılabilir olması ve diğer programlama dillerinin bir temeli olmasıdır. QBASIC, öyle yetersiz bir dil değildir. Onun yazılması da algoritmalara dayanır.