Печатать текст крупными буквами с некоторомы паузами между буквами

DIM Text AS STRING
 Text = "Zalez voron bolshoj sosna i nachal posilat vseh ... "
 Text = Text + "chtob les vsegda bil drujba mir, voron v rotan "
 Text = Text + "votknuli sir. Shel gordyj zver lisic, skuchal "
 Text = Text + "uvidel sir i zatorchal. Hodil vokrug 15 krug "
 Text = Text + "pobil rekord i molvil vdrug: nu chto ty genacvale "
 Text = Text + "jdesh, i sam ne esh i ne daesh, a tolko draznish "
 Text = Text + "svoi eda s bolshoi opasnyj visota. Voron poslal bi "
 Text = Text + "zvera ..., no sir vo rtu torchit - fignya. Ptic "
 Text = Text + "chernoj lapkoi izognul i fak pod nos lisic votknul. "
 Text = Text + "Medved shel spat uvidel fak, udaril ob sosna kulak "
 Text = Text + "voron upal, prishel ves les, he he, kto chto-to nes "
 Text = Text + "s soboj, kto bez, bolshoj i drujnyj les togda vsu noch "
 Text = Text + "voron daval ..., pod utro jozh 7-8 raz iz ptici "
 Text = Text + "sdelal ..., teper voron prostoj petuh i sir vo rtu "
 Text = Text + "davno protuh. Moral gruzinskoj basni prost - za svoi "
 Text = Text + "... v otvete hvost... "
   CLS : PRINT " - Gruzinskij basna pro voron -"
   Pzc = 1
   MxPz = 81  ' Ограничитель на котором и за которым текст не печатается
Text = UCASE$(Text$)
DO
   p = INSTR(Text$, " ")
   IF p THEN
     Now$ = LEFT$(Text$, p)
     Text$ = MID$(Text$, p + 1)
     Pzc = Pzc + LEN(Now$)
     IF Pzc >= MxPz THEN Pzc = LEN(Now$): PRINT
     WHILE Now$ <> ""
        PRINT LEFT$(Now$, 1);
        Now$ = MID$(Now$, 2)
        PLAY "MF MN L16 O4 C"
     WEND
   END IF
LOOP UNTIL Text$ = "" OR INKEY$ <> ""

Text = UCASE$(Text$)