home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR7 / FOXTAILS.ZIP / SIGN.PRG < prev    next >
Text File  |  1992-03-15  |  12KB  |  619 lines
  1. FUNCTION Sign
  2. PARAMETER Ln,Y,X, Sld, Tim
  3. PRIVATE Cnt, M, N, MxRws, MxCol, Mxltr, Fl
  4. *    Parameters are:
  5. *    Ln - The string you want converted
  6. *    Y - The vertical position (0-18)
  7. *    X - The horizontal position (0-[79-9*len(Ln)])
  8. *    Sld - Slide, (T)op, (B)ottom, (L)eft, (R)ight
  9. *    Tim - Time delay (Seconds) between updates
  10. *
  11. *    Written by R.L. Coppedge
  12. *    Copyright 1991 dbF Software Productions
  13. *    By the way, dbF also has:
  14. *    SysTrak        A Computer Hardware/Software Inventory System
  15. *    Flags        A Flatfile Application Gen. for db3,4 and Fox
  16. *    ClasAdz        A Classified/Notice system for Networks
  17. *    FoxTails #1    A collection of FoxPro tools (like this one)
  18. *    Contact dbF for more information.
  19. *    dbF Software Productions
  20. *    P.O. Box 37194
  21. *    Cleve., Ohio 44137-0194
  22. *    CIS: 72117,165
  23. *    (216)491-4581
  24. *
  25. *
  26. *    This code may be modified, but leave this original notice up
  27. *    here intact, if ya don't mind.  (Add your own comments about
  28. *    how much better you made it if you like)
  29. MxRws = WROWS()
  30. MxCol = WCOLS()
  31. Mxltr = INT(MxCol/9)
  32. Fl = .F.
  33. IF TYPE('LN')<>"C"
  34.     WAIT "Must be a character string!" WINDOW
  35.        Fl = .T.
  36. ENDIF
  37. IF EMPTY(Ln)
  38.     WAIT "Empty string...no display generated" WINDOW
  39.     Fl = .T.
  40. ENDIF
  41. IF LEN(Ln) > MxLtr
  42.     WAIT "Too cotton-picking long!  Truncating to "+ALLTRIM(STR(Mxltr))+" chars" WINDOW
  43.     Ln = LEFT(Ln,Mxltr)
  44. ENDIF
  45. IF Y> MxRws-6
  46.     WAIT ALLTRIM(STR(Y))+" is too low a position" WINDOW
  47.     Fl = .T.
  48. ENDIF
  49. IF X>MxCol-9*LEN(Ln)
  50.     WAIT "Too far to the right for the string" WINDOW
  51.     Fl = .T.
  52. ENDIF
  53. IF Fl
  54.     DEFINE WINDOW Err FROM 5,5 TO 18,55 DOUBLE
  55.     ACTIVATE WINDOW Err
  56.     @0,5 SAY "Height of active window (min=6): " + ALLTRIM(STR(MxRws))
  57.     @1,5 SAY "Width of active window: " + ALLTRIM(STR(MxCol))
  58.     @2,5 SAY "Maximum Letters for window: " + ALLTRIM(STR(MxLtr))
  59.     @3,5 SAY "You Requested:"
  60.     @4,5 SAY "Length of String: " + ALLTRIM(STR(LEN(Ln)))
  61.     @5,5 SAY "At Row: " + ALLTRIM(STR(Y))
  62.     @6,5 SAY "And Column: " + ALLTRIM(STR(X))
  63.     @7,5 SAY "Which would allow " + ALLTRIM(STR(INT((MxCol-X)/9)))+ " letters"
  64.     @8,5 SAY "To actually show..."
  65.     @10,5 SAY "Think about it..."
  66.     WAIT WINDOW
  67.     DEACTIVATE WINDOW Err
  68.     RELEASE WINDOW Err
  69.     RETURN
  70. ENDIF
  71. Ln = UPPER(Ln)        &&    We're lazy and didn't put the lower case in yet
  72. Y=IIF(TYPE('Y')="L",2,Y)    &&    Set defaults, if not passed
  73. X=IIF(TYPE('X')="L",5,X)
  74. Sld=IIF(TYPE('Sld')="L"," ",Sld)
  75. Tim=IIF(TYPE('Tim')="L",0,Tim)
  76. SET TALK OFF
  77. STORE "" TO Y0,Y1,Y2,Y3,Y4,Y5
  78. FOR Cnt = 1 TO LEN(Ln)    &&    Loop for all characters in string Ln
  79.     Char = SUBSTR(Ln,Cnt,1)        &&    This is the latest letter to translate
  80.     DO CASE
  81.     CASE Char = "A"
  82.     X0 = "▒█████ ▒▒"
  83.     X1 = "█ ▒▒▒▒█ ▒"
  84.     X2 = "███████ ▒"
  85.     X3 = "█ ▒▒▒▒█ ▒"
  86.     X4 = "█ ▒▒▒▒█ ▒"
  87.     X5 = "█ ▒▒▒▒█ ▒"
  88.  
  89.     CASE Char = "B"
  90.     X0 = "███████ ▒"
  91.     X1 = "█ ▒▒▒▒█ ▒"
  92.     X2 = "███████ ▒"
  93.     X3 = "█ ▒▒▒▒█ ▒"
  94.     X4 = "█ ▒▒▒▒█ ▒"
  95.     X5 = "███████ ▒"
  96.  
  97.     CASE Char = "C"
  98.     X0 = "███████ ▒"
  99.     X1 = "█ ▒▒▒▒█ ▒"
  100.     X2 = "█ ▒▒▒▒▒▒▒"
  101.     X3 = "█ ▒▒▒▒▒▒▒"
  102.     X4 = "█ ▒▒▒▒█ ▒"
  103.     X5 = "███████ ▒"
  104.  
  105.     CASE Char = "D"
  106.     X0 = "██████ ▒▒"
  107.     X1 = "█ ▒▒▒▒█ ▒"
  108.     X2 = "█ ▒▒▒▒█ ▒"
  109.     X3 = "█ ▒▒▒▒█ ▒"
  110.     X4 = "█ ▒▒▒▒█ ▒"
  111.     X5 = "██████ ▒▒"
  112.  
  113.     CASE Char = "E"
  114.     X0 = "███████ ▒"
  115.     X1 = "█ ▒▒▒▒▒▒▒"
  116.     X2 = "█████ ▒▒▒"
  117.     X3 = "█ ▒▒▒▒▒▒▒"
  118.     X4 = "█ ▒▒▒▒▒▒▒"
  119.     X5 = "███████ ▒"
  120.  
  121.     CASE Char = "F"
  122.     X0 = "███████ ▒"
  123.     X1 = "█ ▒▒▒▒▒▒▒"
  124.     X2 = "█████ ▒▒▒"
  125.     X3 = "█ ▒▒▒▒▒▒▒"
  126.     X4 = "█ ▒▒▒▒▒▒▒"
  127.     X5 = "█ ▒▒▒▒▒▒▒"
  128.  
  129.     CASE Char = "G"
  130.     X0 = "███████ ▒"
  131.     X1 = "█ ▒▒▒▒█ ▒"
  132.     X2 = "█ ▒▒▒▒▒▒▒"
  133.     X3 = "█ ▒▒▒██ ▒"
  134.     X4 = "█ ▒▒▒▒█ ▒"
  135.     X5 = "███████ ▒"
  136.  
  137.     CASE Char = "H"
  138.     X0 = "█ ▒▒▒▒█ ▒"
  139.     X1 = "█ ▒▒▒▒█ ▒"
  140.     X2 = "███████ ▒"
  141.     X3 = "█ ▒▒▒▒█ ▒"
  142.     X4 = "█ ▒▒▒▒█ ▒"
  143.     X5 = "█ ▒▒▒▒█ ▒"
  144.  
  145.     CASE Char = "I"
  146.     X0 = "███████ ▒"
  147.     X1 = "▒▒▒█ ▒▒▒▒"
  148.     X2 = "▒▒▒█ ▒▒▒▒"
  149.     X3 = "▒▒▒█ ▒▒▒▒"
  150.     X4 = "▒▒▒█ ▒▒▒▒"
  151.     X5 = "███████ ▒"
  152.  
  153.     CASE Char = "J"
  154.     X0 = "███████ ▒"
  155.     X1 = "▒▒▒█ ▒▒▒▒"
  156.     X2 = "▒▒▒█ ▒▒▒▒"
  157.     X3 = "▒▒▒█ ▒▒▒▒"
  158.     X4 = "█▒▒█ ▒▒▒▒"
  159.     X5 = "████ ▒▒▒▒"
  160.  
  161.     CASE Char = "K"
  162.     X0 = "█ ▒▒█ ▒▒▒"
  163.     X1 = "█ ██ ▒▒▒▒"
  164.     X2 = "███ ▒▒▒▒▒"
  165.     X3 = "███ ▒▒▒▒▒"
  166.     X4 = "█ ▒█ ▒▒▒▒"
  167.     X5 = "█ ▒▒█ ▒▒▒"
  168.  
  169.     CASE Char = "L"
  170.     X0 = "█ ▒▒▒▒▒▒▒"
  171.     X1 = "█ ▒▒▒▒▒▒▒"
  172.     X2 = "█ ▒▒▒▒▒▒▒"
  173.     X3 = "█ ▒▒▒▒▒▒▒"
  174.     X4 = "█ ▒▒▒▒▒▒▒"
  175.     X5 = "███████ ▒"
  176.  
  177.     CASE Char = "M"
  178.     X0 = "██ ▒▒██ ▒"
  179.     X1 = "█ █ █ █ ▒"
  180.     X2 = "█ ▒█ ▒█ ▒"
  181.     X3 = "█ ▒▒▒▒█ ▒"
  182.     X4 = "█ ▒▒▒▒█ ▒"
  183.     X5 = "█ ▒▒▒▒█ ▒"
  184.  
  185.     CASE Char = "N"
  186.     X0 = "██ ▒▒▒█ ▒"
  187.     X1 = "█ █ ▒▒█ ▒"
  188.     X2 = "█ ▒█ ▒█ ▒"
  189.     X3 = "█ ▒▒█ █ ▒"
  190.     X4 = "█ ▒▒▒██ ▒"
  191.     X5 = "█ ▒▒▒▒█ ▒"
  192.  
  193.     CASE Char = "O"
  194.     X0 = "███████ ▒"
  195.     X1 = "█ ▒▒▒▒█ ▒"
  196.     X2 = "█ ▒▒▒▒█ ▒"
  197.     X3 = "█ ▒▒▒▒█ ▒"
  198.     X4 = "█ ▒▒▒▒█ ▒"
  199.     X5 = "███████ ▒"
  200.  
  201.     CASE Char = "P"
  202.     X0 = "███████ ▒"
  203.     X1 = "█ ▒▒▒▒█ ▒"
  204.     X2 = "███████ ▒"
  205.     X3 = "█ ▒▒▒▒▒▒▒"
  206.     X4 = "█ ▒▒▒▒▒▒▒"
  207.     X5 = "█ ▒▒▒▒▒▒▒"
  208.  
  209.     CASE Char = "Q"
  210.     X0 = "███████ ▒"
  211.     X1 = "█ ▒▒▒▒█ ▒"
  212.     X2 = "█ ▒▒▒▒█ ▒"
  213.     X3 = "█ ▒▒▒▒█ ▒"
  214.     X4 = "█ ▒▒▒██ ▒"
  215.     X5 = "███████ ▒"
  216.  
  217.     CASE Char = "R"
  218.     X0 = "███████ ▒"
  219.     X1 = "█ ▒▒▒▒█ ▒"
  220.     X2 = "███████ ▒"
  221.     X3 = "█ ▒▒▒█ ▒▒"
  222.     X4 = "█ ▒▒▒▒█ ▒"
  223.     X5 = "█ ▒▒▒▒█ ▒"
  224.  
  225.     CASE Char = "S"
  226.     X0 = "███████ ▒"
  227.     X1 = "█ ▒▒▒▒▒▒▒"
  228.     X2 = "███████ ▒"
  229.     X3 = "▒▒▒▒▒▒█ ▒"
  230.     X4 = "▒▒▒▒▒▒█ ▒"
  231.     X5 = "███████ ▒"
  232.  
  233.     CASE Char = "T"
  234.     X0 = "███████ ▒"
  235.     X1 = "▒▒▒█ ▒▒▒▒"
  236.     X2 = "▒▒▒█ ▒▒▒▒"
  237.     X3 = "▒▒▒█ ▒▒▒▒"
  238.     X4 = "▒▒▒█ ▒▒▒▒"
  239.     X5 = "▒▒▒█ ▒▒▒▒"
  240.  
  241.     CASE Char = "U"
  242.     X0 = "█ ▒▒▒▒█ ▒"
  243.     X1 = "█ ▒▒▒▒█ ▒"
  244.     X2 = "█ ▒▒▒▒█ ▒"
  245.     X3 = "█ ▒▒▒▒█ ▒"
  246.     X4 = "█ ▒▒▒▒█ ▒"
  247.     X5 = "███████ ▒"
  248.  
  249.     CASE Char = "V"
  250.     X0 = "▒█ ▒▒▒▒█ ▒"
  251.     X1 = "▒█ ▒▒▒▒█ ▒"
  252.     X2 = "▒█ ▒▒▒▒█ ▒"
  253.     X3 = "▒▒█ ▒▒█ ▒▒"
  254.     X4 = "▒▒▒█ █ ▒▒▒"
  255.     X5 = "▒▒▒███ ▒▒▒"
  256.  
  257.     CASE Char = "W"
  258.     X0 = "█ ▒▒▒▒█ ▒"
  259.     X1 = "█ ▒▒▒▒█ ▒"
  260.     X2 = "█ ▒█ ▒█ ▒"
  261.     X3 = "█ █ █ █ ▒"
  262.     X4 = "██ ▒▒██ ▒"
  263.     X5 = "██ ▒▒██ ▒"
  264.  
  265.     CASE Char = "X"
  266.     X0 = "█ ▒▒▒▒█ ▒"
  267.     X1 = "▒█ ▒▒█ ▒▒"
  268.     X2 = "▒▒█ █ ▒▒▒"
  269.     X3 = "▒▒▒█ ▒▒▒▒"
  270.     X4 = "▒▒█ █ ▒▒▒"
  271.     X5 = "██ ▒▒██ ▒"
  272.     
  273.  
  274.     CASE Char = "Y"
  275.     X0 = "█ ▒▒▒▒█ ▒"
  276.     X1 = "▒█ ▒▒█ ▒▒"
  277.     X2 = "▒▒█ █ ▒▒▒"
  278.     X3 = "▒▒▒█ ▒▒▒▒"
  279.     X4 = "▒▒▒█ ▒▒▒▒"
  280.     X5 = "▒▒▒█ ▒▒▒▒"
  281.  
  282.     CASE Char = "Z"
  283.     X0 = "███████ ▒"
  284.     X1 = "▒▒▒▒▒██ ▒"
  285.     X2 = "▒▒▒██ ▒▒▒"
  286.     X3 = "▒▒██ ▒▒▒▒"
  287.     X4 = "███ ▒▒▒▒▒"
  288.     X5 = "███████ ▒"
  289.  
  290.     CASE Char = " "
  291.     X0 = "▒▒▒▒▒▒▒▒▒"
  292.     X1 = "▒▒▒▒▒▒▒▒▒"
  293.     X2 = "▒▒▒▒▒▒▒▒▒"
  294.     X3 = "▒▒▒▒▒▒▒▒▒"
  295.     X4 = "▒▒▒▒▒▒▒▒▒"
  296.     X5 = "▒▒▒▒▒▒▒▒▒"
  297.  
  298.     CASE Char = "0"
  299.     X0 = "███████ ▒"
  300.     X1 = "█ ▒▒█ █ ▒"
  301.     X2 = "█ ▒█ ▒█ ▒"
  302.     X3 = "█ █ ▒▒█ ▒"
  303.     X4 = "██ ▒▒▒█ ▒"
  304.     X5 = "███████ ▒"
  305.  
  306.     CASE Char = "1"
  307.     X0 = "████ ▒▒▒▒"
  308.     X1 = "▒▒▒█ ▒▒▒▒"
  309.     X2 = "▒▒▒█ ▒▒▒▒"
  310.     X3 = "▒▒▒█ ▒▒▒▒"
  311.     X4 = "▒▒▒█ ▒▒▒▒"
  312.     X5 = "███████ ▒"
  313.  
  314.     CASE Char = "2"
  315.     X0 = "███████ ▒"
  316.     X1 = "▒▒▒▒▒▒█ ▒"
  317.     X2 = "███████ ▒"
  318.     X3 = "█ ▒▒▒▒▒▒▒"
  319.     X4 = "█ ▒▒▒▒▒▒▒"
  320.     X5 = "███████ ▒"
  321.  
  322.     CASE Char = "3"
  323.     X0 = "███████ ▒"
  324.     X1 = "▒▒▒▒▒▒█ ▒"
  325.     X2 = "███████ ▒"
  326.     X3 = "▒▒▒▒▒▒█ ▒"
  327.     X4 = "▒▒▒▒▒▒█ ▒"
  328.     X5 = "███████ ▒"
  329.  
  330.     CASE Char = "4"
  331.     X0 = "█ ▒▒▒▒█ ▒"
  332.     X1 = "█ ▒▒▒▒█ ▒"
  333.     X2 = "███████ ▒"
  334.     X3 = "▒▒▒▒▒▒█ ▒"
  335.     X4 = "▒▒▒▒▒▒█ ▒"
  336.     X5 = "▒▒▒▒▒▒█ ▒"
  337.  
  338.     CASE Char = "5"
  339.     X0 = "███████ ▒"
  340.     X1 = "█ ▒▒▒▒▒▒▒"
  341.     X2 = "█ ▒▒▒▒▒▒▒"
  342.     X3 = "███████ ▒"
  343.     X4 = "▒▒▒▒▒▒█ ▒"
  344.     X5 = "███████ ▒"
  345.  
  346.     CASE Char = "6"
  347.     X0 = "███████ ▒"
  348.     X1 = "█ ▒▒▒▒▒▒▒"
  349.     X2 = "███████ ▒"
  350.     X3 = "█ ▒▒▒▒█ ▒"
  351.     X4 = "█ ▒▒▒▒█ ▒"
  352.     X5 = "███████ ▒"
  353.  
  354.     CASE Char = "7"
  355.     X0 = "███████ ▒"
  356.     X1 = "▒▒▒▒▒▒█ ▒"
  357.     X2 = "▒▒▒▒▒▒█ ▒"
  358.     X3 = "▒▒▒▒▒▒█ ▒"
  359.     X4 = "▒▒▒▒▒▒█ ▒"
  360.     X5 = "▒▒▒▒▒▒█ ▒"
  361.  
  362.     CASE Char = "8"
  363.     X0 = "███████ ▒"
  364.     X1 = "█ ▒▒▒▒█ ▒"
  365.     X2 = "███████ ▒"
  366.     X3 = "█ ▒▒▒▒█ ▒"
  367.     X4 = "█ ▒▒▒▒█ ▒"
  368.     X5 = "███████ ▒"
  369.  
  370.     CASE Char = "9"
  371.     X0 = "███████ ▒"
  372.     X1 = "█ ▒▒▒▒█ ▒"
  373.     X2 = "███████ ▒"
  374.     X3 = "▒▒▒▒▒▒█ ▒"
  375.     X4 = "█ ▒▒▒▒█ ▒"
  376.     X5 = "███████ ▒"
  377.  
  378.     CASE Char = "!"
  379.     X0 = "▒▒▒█ ▒▒▒▒"
  380.     X1 = "▒▒▒█ ▒▒▒▒"
  381.     X2 = "▒▒▒█ ▒▒▒▒"
  382.     X3 = "▒▒▒█ ▒▒▒▒"
  383.     X4 = "▒▒▒▒▒▒▒▒▒"
  384.     X5 = "▒▒▒█ ▒▒▒▒"
  385.  
  386.     CASE Char = "."
  387.     X0 = "▒▒▒▒▒▒▒▒▒"
  388.     X1 = "▒▒▒▒▒▒▒▒▒"
  389.     X2 = "▒▒▒▒▒▒▒▒▒"
  390.     X3 = "▒▒▒▒▒▒▒▒▒"
  391.     X4 = "▒▒▒▒▒▒▒▒▒"
  392.     X5 = "▒▒▒█ ▒▒▒▒"
  393.  
  394.     CASE Char = ","
  395.     X0 = "▒▒▒▒▒▒▒▒▒"
  396.     X1 = "▒▒▒▒▒▒▒▒▒"
  397.     X2 = "▒▒▒▒▒▒▒▒▒"
  398.     X3 = "▒▒▒▒▒▒▒▒▒"
  399.     X4 = "▒▒▒█ ▒▒▒▒"
  400.     X5 = "▒▒██ ▒▒▒▒"
  401.  
  402.     CASE Char = ";"
  403.     X0 = "▒▒▒▒▒▒▒▒▒"
  404.     X1 = "▒▒▒▒▒▒▒▒▒"
  405.     X2 = "▒▒▒█ ▒▒▒▒"
  406.     X3 = "▒▒▒▒▒▒▒▒▒"
  407.     X4 = "▒▒▒█ ▒▒▒▒"
  408.     X5 = "▒▒██ ▒▒▒▒"
  409.  
  410.  
  411.     CASE Char = ":"
  412.     X0 = "▒▒▒▒▒▒▒▒▒"
  413.     X1 = "▒▒▒▒▒▒▒▒▒"
  414.     X2 = "▒▒▒█ ▒▒▒▒"
  415.     X3 = "▒▒▒▒▒▒▒▒▒"
  416.     X4 = "▒▒▒█ ▒▒▒▒"
  417.     X5 = "▒▒▒▒▒▒▒▒▒"
  418.  
  419.     CASE Char = "="
  420.     X0 = "▒▒▒▒▒▒▒▒▒"
  421.     X1 = "▒▒▒▒▒▒▒▒▒"
  422.     X2 = "▒██████ ▒"
  423.     X3 = "▒▒▒▒▒▒▒▒▒"
  424.     X4 = "▒██████ ▒"
  425.     X5 = "▒▒▒▒▒▒▒▒▒"
  426.  
  427.     CASE Char = "'"
  428.     X0 = "▒▒▒▒▒▒▒▒▒"
  429.     X1 = "▒▒▒██ ▒▒▒"
  430.     X2 = "▒▒▒▒█ ▒▒▒"
  431.     X3 = "▒▒▒▒▒▒▒▒▒"
  432.     X4 = "▒▒▒▒▒▒▒▒▒"
  433.     X5 = "▒▒▒▒▒▒▒▒▒"
  434.  
  435.     CASE Char = '"'
  436.     X0 = "▒▒▒▒▒▒▒▒▒"
  437.     X1 = "▒██ ▒██ ▒"
  438.     X2 = "▒▒█ ▒▒█ ▒"
  439.     X3 = "▒▒▒▒▒▒▒▒▒"
  440.     X4 = "▒▒▒▒▒▒▒▒▒"
  441.     X5 = "▒▒▒▒▒▒▒▒▒"
  442.  
  443.     CASE Char = "?"
  444.     X0 = "▒██████ ▒"
  445.     X1 = "▒▒▒▒▒▒█ ▒"
  446.     X2 = "▒▒▒████ ▒"
  447.     X3 = "▒▒▒█ ▒▒▒▒"
  448.     X4 = "▒▒▒▒▒▒▒▒▒"
  449.     X5 = "▒▒▒█ ▒▒▒▒"
  450.  
  451.     CASE Char = "$"
  452.     X0 = "███████ ▒"
  453.     X1 = "█ ▒█ ▒▒▒▒"
  454.     X2 = "███████ ▒"
  455.     X3 = "▒▒▒█ ▒█ ▒"
  456.     X4 = "▒▒▒█ ▒█ ▒"
  457.     X5 = "███████ ▒"
  458.  
  459.     CASE Char = "^"
  460.     X0 = "▒▒▒▒█ ▒▒▒"
  461.     X1 = "▒▒▒█ █ ▒▒"
  462.     X2 = "▒▒█ ▒▒█ ▒"
  463.     X3 = "▒▒▒▒▒▒▒▒▒"
  464.     X4 = "▒▒▒▒▒▒▒▒▒"
  465.     X5 = "▒▒▒▒▒▒▒▒▒"
  466.  
  467.     CASE Char = "|"
  468.     X0 = "▒▒▒█ ▒▒▒▒"
  469.     X1 = "▒▒▒█ ▒▒▒▒"
  470.     X2 = "▒▒▒▒▒▒▒▒▒"
  471.     X3 = "▒▒▒█ ▒▒▒▒"
  472.     X4 = "▒▒▒█ ▒▒▒▒"
  473.     X5 = "▒▒▒▒▒▒▒▒▒"
  474.  
  475.     CASE Char = "+"
  476.     X0 = "▒▒▒█ ▒▒▒▒"
  477.     X1 = "▒▒▒█ ▒▒▒▒"
  478.     X2 = "▒█████ ▒▒"
  479.     X3 = "▒▒▒█ ▒▒▒▒"
  480.     X4 = "▒▒▒█ ▒▒▒▒"
  481.     X5 = "▒▒▒▒▒▒▒▒▒"
  482.  
  483.     CASE Char = "-"
  484.     X0 = "▒▒▒▒▒▒▒▒▒"
  485.     X1 = "▒▒▒▒▒▒▒▒▒"
  486.     X2 = "▒█████ ▒▒"
  487.     X3 = "▒▒▒▒▒▒▒▒▒"
  488.     X4 = "▒▒▒▒▒▒▒▒▒"
  489.     X5 = "▒▒▒▒▒▒▒▒▒"
  490.  
  491.     CASE Char = "\"
  492.     X0 = "█ ▒▒▒▒▒▒▒"
  493.     X1 = "▒█ ▒▒▒▒▒▒"
  494.     X2 = "▒▒█ ▒▒▒▒▒"
  495.     X3 = "▒▒▒█ ▒▒▒▒"
  496.     X4 = "▒▒▒▒█ ▒▒▒"
  497.     X5 = "▒▒▒▒▒█ ▒▒"
  498.     
  499.     CASE Char = "/"
  500.     X0 = "▒▒▒▒▒▒█ ▒"
  501.     X1 = "▒▒▒▒▒█ ▒▒"
  502.     X2 = "▒▒▒▒█ ▒▒▒"
  503.     X3 = "▒▒▒█ ▒▒▒▒"
  504.     X4 = "▒▒█ ▒▒▒▒▒"
  505.     X5 = "▒█ ▒▒▒▒▒▒"
  506.     
  507.     CASE Char = "%"
  508.     X0 = "▒▒▒▒▒▒█ ▒"
  509.     X1 = "▒█ ▒▒█ ▒▒"
  510.     X2 = "▒▒▒▒█ ▒▒▒"
  511.     X3 = "▒▒▒█ ▒▒▒▒"
  512.     X4 = "▒▒█ ▒▒█ ▒"
  513.     X5 = "▒█ ▒▒▒▒▒▒"
  514.     
  515.     CASE Char = "`"
  516.     X0 = "▒▒▒▒▒▒▒▒▒"
  517.     X1 = "▒▒▒▒██ ▒▒"
  518.     X2 = "▒▒▒▒█ ▒▒▒"
  519.     X3 = "▒▒▒▒▒▒▒▒▒"
  520.     X4 = "▒▒▒▒▒▒▒▒▒"
  521.     X5 = "▒▒▒▒▒▒▒▒▒"
  522.  
  523.     CASE Char = "_"
  524.     X0 = "▒▒▒▒▒▒▒▒▒"
  525.     X1 = "▒▒▒▒▒▒▒▒▒"
  526.     X2 = "▒▒▒▒▒▒▒▒▒"
  527.     X3 = "▒▒▒▒▒▒▒▒▒"
  528.     X4 = "▒▒▒▒▒▒▒▒▒"
  529.     X5 = "███████ ▒"
  530.  
  531.     CASE Char $ "[{("
  532.     X0 = "▒▒█████ ▒"
  533.     X1 = "▒▒█ ▒▒▒▒▒"
  534.     X2 = "▒▒█ ▒▒▒▒▒"
  535.     X3 = "▒▒█ ▒▒▒▒▒"
  536.     X4 = "▒▒█ ▒▒▒▒▒"
  537.     X5 = "▒▒█████ ▒"
  538.  
  539.     CASE Char $ "]})"
  540.     X0 = "▒▒█████ ▒"
  541.     X1 = "▒▒▒▒▒▒█ ▒"
  542.     X2 = "▒▒▒▒▒▒█ ▒"
  543.     X3 = "▒▒▒▒▒▒█ ▒"
  544.     X4 = "▒▒▒▒▒▒█ ▒"
  545.     X5 = "▒▒█████ ▒"
  546.  
  547.     CASE Char $ "#"
  548.     X0 = "▒▒█ ▒▒█ ▒▒"
  549.     X1 = "▒███████ ▒"
  550.     X2 = "▒▒█ ▒▒█ ▒▒"
  551.     X3 = "▒███████ ▒"
  552.     X4 = "▒▒█ ▒▒█ ▒▒"
  553.     X5 = "▒▒█ ▒▒█ ▒▒"
  554.  
  555.  
  556.     ENDCASE
  557.     Y0 = Y0 + X0
  558.     Y1 = Y1 + X1
  559.     Y2 = Y2 + X2
  560.     Y3 = Y3 + X3
  561.     Y4 = Y4 + X4
  562.     Y5 = Y5 + X5
  563. ENDFOR
  564. *    Now we've built all 6 strings....it's display time!
  565. DO CASE
  566.     CASE UPPER(Sld) = "R"
  567.     FOR N = 1 TO LEN(Y0)
  568.         @ Y,X+(LEN(Y0)-N-1) SAY LEFT(Y0,N)
  569.         @ Y+1,X+(LEN(Y0)-N-1) SAY LEFT(Y1,N)
  570.         @ Y+2,X+(LEN(Y0)-N-1) SAY LEFT(Y2,N)
  571.         @ Y+3,X+(LEN(Y0)-N-1) SAY LEFT(Y3,N)
  572.         @ Y+4,X+(LEN(Y0)-N-1) SAY LEFT(Y4,N)
  573.         @ Y+5,X+(LEN(Y0)-N-1) SAY LEFT(Y5,N)
  574.         IF Tim > 0
  575.             =INKEY(Tim)
  576.         ENDIF
  577.     ENDFOR
  578.  
  579.     CASE UPPER(Sld) = "L"
  580.     FOR N = 1 TO LEN(Y0)
  581.         @ Y,X-1 SAY RIGHT(Y0,N)
  582.         @ Y+1,X-1 SAY RIGHT(Y1,N)
  583.         @ Y+2,X-1 SAY RIGHT(Y2,N)
  584.         @ Y+3,X-1 SAY RIGHT(Y3,N)
  585.         @ Y+4,X-1 SAY RIGHT(Y4,N)
  586.         @ Y+5,X-1 SAY RIGHT(Y5,N)
  587.         IF Tim > 0
  588.             =INKEY(Tim)
  589.         ENDIF
  590.     ENDFOR
  591.  
  592.     CASE UPPER(Sld) = "B"
  593.     FOR N = 5 TO 0 STEP -1
  594.         Nn = ALLTRIM(STR(N))
  595.         @ Y+N,X SAY Y&Nn.
  596.         IF Tim > 0
  597.             =INKEY(Tim)
  598.         ENDIF
  599.     ENDFOR
  600.  
  601.     CASE UPPER(Sld) = "T"
  602.     FOR N = 0 TO 5
  603.         Nn = ALLTRIM(STR(N))
  604.         @ Y+N,X SAY Y&Nn.
  605.         IF Tim > 0
  606.             =INKEY(Tim)
  607.         ENDIF
  608.     ENDFOR
  609.  
  610.     OTHERWISE
  611.     @ Y,X SAY Y0
  612.     @ Y+1,X SAY Y1
  613.     @ Y+2,X SAY Y2
  614.     @ Y+3,X SAY Y3
  615.     @ Y+4,X SAY Y4
  616.     @ Y+5,X SAY Y5
  617. ENDCASE
  618. RETURN
  619.