labeltop:
TextWindow.Write("Please give length of rectangle :")
len = TextWindow.ReadNumber()
TextWindow.Write("Enter a width :")
wid = TextWindow.ReadNumber()
If (len < 0 Or wid < 0) Then
TextWindow.WriteLine("Error : You need to give both values > 0")
Goto labeltop
EndIf
For k = 1 To wid
If ( k=1 Or k=wid) Then
For s = 1 To len
TextWindow.Write("*")
EndFor
Else
For a = 1 To len
If (a =1 Or a = len) Then
TextWindow.Write("*")
Else
TextWindow.Write(" ")
EndIf
Program Listing: VWG100