Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1.     If .V_Mode < 9 Then
    
  2.         Dim TCX As Integer = .V_ValWindow_Width \ 2 - 25
    
  3.         Dim TCY As Integer = .V_ValWindow_Height \ 2 - 6
    
  4.         TGS_CLS(V_Client)
    
  5.         TGS_DrawString(V_Client, TCX, TCY + 0,  "                   @@@@@       @@", TGS_White, TGS_Bold)
    
  6.         TGS_DrawString(V_Client, TCX, TCY + 1,  *Iif(.V_Mode >= 8, @"\**************/", @"                ") & "  @     @    @@ @" & *Iif(.V_Mode >= 8, @"      \**************/", @""), TGS_White, TGS_Bold)
    
  7.         TGS_DrawString(V_Client, TCX, TCY + 2,  *Iif(.V_Mode >= 7, @" \************/ ", @"                ") & "     @@@        @" & *Iif(.V_Mode >= 7, @"       \************/", @""), TGS_White, TGS_Bold)
    
  8.         TGS_DrawString(V_Client, TCX, TCY + 3,  *Iif(.V_Mode >= 6, @"  \**********/  ", @"                ") & "   @@           @" & *Iif(.V_Mode >= 6, @"        \**********/", @""), TGS_White, TGS_Bold)
    
  9.         TGS_DrawString(V_Client, TCX, TCY + 4,  *Iif(.V_Mode >= 5, @"   \********/   ", @"                ") & "  @@@@@@@       @  th" & *Iif(.V_Mode >= 5, @"     \********/", @""), TGS_White, TGS_Bold)
    
  10.         TGS_DrawString(V_Client, TCX, TCY + 5,  *Iif(.V_Mode >= 4, @"    \******/    ", @"                ") & "-----------------------" & *Iif(.V_Mode >= 4, @"    \******/", @""), TGS_White, TGS_Bold)
    
  11.         TGS_DrawString(V_Client, TCX, TCY + 6,  *Iif(.V_Mode >= 3, @"     \****/     ", @"                ") & "  C  E  N  T  U  R  Y" & *Iif(.V_Mode >= 3, @"       \****/", @""), TGS_White, TGS_Bold)
    
  12.         TGS_DrawString(V_Client, TCX, TCY + 7,  *Iif(.V_Mode >= 2, @"      \**/      ", @"                ") & "-----------------------" & *Iif(.V_Mode >= 2, @"      \**/", @""), TGS_White, TGS_Bold)
    
  13.         TGS_DrawString(V_Client, TCX, TCY + 8,  *Iif(.V_Mode >= 1, @"       \/       ", @"                ") & "@@@@@ @@@@@ @   @ @@@@@" & *Iif(.V_Mode >= 1, @"       \/", @""), TGS_White, TGS_Bold)
    
  14.         TGS_DrawString(V_Client, TCX, TCY + 9,  "       ==         @   @      @ @    @         ==       ", TGS_White, TGS_Bold)
    
  15.         TGS_DrawString(V_Client, TCX, TCY + 10, "     __||__       @   @@@@@   @     @       __||__     ", TGS_White, TGS_Bold)
    
  16.         TGS_DrawString(V_Client, TCX, TCY + 11, "    |      |      @   @      @ @    @      |      |    ", TGS_White, TGS_Bold)
    
  17.         TGS_DrawString(V_Client, TCX, TCY + 12, "____|______|____  @   @@@@@ @   @   @  ____|______|____", TGS_White, TGS_Bold)
    
  18.         Return TGS_Refresh(V_Client)
    
  19.     End If