Graphics 800,600,32,2

Local txt$ = "kfdetjlpzqpgppqvpmupubdgubjluutpwepvtuvfp"
txt=txt+" uqelmxgfujtvjpzvrjygkmjilgbbfjnjbiqnrpgtx"
txt=txt+" jbpCCSCwdASyrulrupmzzdkdpmnwdffuzbwvypxrv"
txt=txt+" llSgptmCeqAgybbdkwypnejwmrztbduefzbfyplpq"
txt=txt+" uOrzbnmixtHdndwvzdnmjztmqbxwqkdinuqigeptr"
txt=txt+" rSujrxuixyCkSOngetASCOfktvOOSOHdqlHHOCOdj"
txt=txt+" zHpqyfmqnbHHffHfwjfrriAtlSimelqCzSdgmwvCe"
txt=txt+" lCvkjdlgydCdfzHztqAHASCylCbejgbSidCHSlumz"
txt=txt+" qStyqyrxvtHjbjStvCllvmObwHqlrwpHlfeqjACtk"
txt=txt+" gxAqlikSjxHxilHgdHijewHxwAltewkHrHgfywkHe"
txt=txt+" kfyAHOHuiHSOxOHSldACOHgAwjSCSOCbpeHCASCgx"
txt=txt+" ztlzudulqgpjtrqnxzjrzgqpkdgwxptvbvjqinzxy"
txt=txt+" rzbiijlkpzuylqzqzbzpixzzwubydgdiuylktgnmb"
txt=txt+" eyvgkuvlyxkgdtqzgvugmekuqtrqkpxjrxivxrzff"

Local encoded$

Local ln
ln = Len(txt)
Local i
For i = 1 To ln
   If Asc(Mid(txt,i,1)) < 91 And Asc(Mid(txt,i,1)) > 64 Then
      encoded=encoded+Mid(txt,i,1)
   End If
Next
Print encoded
WaitKey

;SetBuffer DesktopBuffer() ;BLITZPLUS UNCOMMENT THIS
Local stri$,x,y,image=CreateImage(StringWidth("Chaos"),FontHeight())

SetBuffer ImageBuffer(image)
Text 0,0,"Chaos"

For y=0 To ImageHeight(image)
   For x=0 To ImageWidth(image)
      If ReadPixel(x,y,ImageBuffer(image))=$FFFFFFFF
         stri=stri+RANDCHAOS()
      Else
         stri=stri+RANDNOTCHAOS()
      EndIf
   Next
   Print stri
   stri=""
Next
WaitKey

Function RANDCHAOS$()
   Select Rand(1,5)
      Case 1
         Return "C"
      Case 2
         Return "H"
      Case 3
         Return "A"
      Case 4
         Return "O"
      Case 5
         Return "S"
   End Select
End Function

Function RANDNOTCHAOS$()
   Local l$
   Repeat
      l$=Chr(Rand(97,122))
   Until l$<>"c" And l$<>"h" And l$<>"a" And l$<>"o" And l$<>"s"
   
   Return l
End Function