PWM/ Sinewave with Basic ?

Hi

in the following dump 49 halfwaves with 1000us are 
generated.(rectangular)
Is there a way (in Basic) to generate instaed a Sinewave or shaping / 
PWM ?
UweL

 Do
 For A = 1 To 49                      ' Anzahl der halben Schwingungen
Toggle Portb
Waitus 1000                           ' Dauer einer halben Schwingung
 Next A
  Waitms 1000                         ' LED AN - Zeit
   Toggle Portb                       ' Wechsele Polarität
   Toggle Portb                       ' Wechsle Polarität
  Waitms 10                           ' Zeit für erneuten 
Polaritätswechsel
 Toggle Portb                         ' Wechsele Polarität
Waitms 1000                           ' LED AUS- Zeit

Loop