DIM A$, B$, C$

CLS
COLOR 3, 0
LOCATE 6, 23, 0
PRINT "The Ascii Macarena Dance"

LOCATE 24, 12, 0
COLOR 7, 0
PRINT "Created Using BCX -- The Free Basic To C Translator";

DO

  COLOR 9, 0
  LOCATE 8, 26, 0
  PRINT "Press Any Key to Quit"
  SLEEP(500)

  ' ---------- Step One ------------ 

  A$ = " o "
  B$ = "^|\"
  C$ = " /\"

  Dance(A$, B$, C$, 3)

  ' --------- Step Two -------------- 

  A$ = " o "
  B$ = "^|^"
  C$ = " >\"

  Dance(A$, B$, C$, 4)

  ' --------- Step Three ------------- 

  A$ = " o "
  B$ = "v|^"
  C$ = "/< "

  Dance(A$, B$, C$, 5)

  ' --------- Step Four --------------- 

  A$ = " o "
  B$ = "v|^"
  C$ = " >\"

  Dance(A$, B$, C$, 4)

  ' --------- Step Five ---------------- 

  A$ = " o "
  B$ = "|/^"
  C$ = "/< "

  Dance(A$, B$, C$, 3)

  ' ---------- Step Six ----------------- 

  A$ = " o "
  B$ = "|-|"
  C$ = " >\"

  Dance(A$, B$, C$, 4)

  ' ----------- Step Seven --------------- 

  A$ = " <o "
  B$ = "//| "
  C$ = "/<  "

  Dance(A$, B$, C$, 5)

  ' ----------- Step Eight ----------------- 

  A$ = "<o> "
  B$ = " |  "
  C$ = " >//"

  Dance(A$, B$, C$, 4)

  ' ----------- Step Nine ------------------ 

  A$ = " o> "
  B$ = " // "
  C$ = "/<  "

  Dance(A$, B$, C$, 3)

  ' ----------- Step Ten ------------------ 

  A$ = " o "
  B$ = " x "
  C$ = " >\"

  Dance(A$, B$, C$, 4)

  ' ----------- Step Eleven --------------- 

  A$ = " o "
  B$ = "</ "
  C$ = "/< "

  Dance(A$, B$, C$, 5)

  ' ----------- Step Twelve ------------------ 

  A$ = " o "
  B$ = "<|>"
  C$ = " >\"

  Dance(A$, B$, C$, 4)

  ' ----------- Step Thirteen ---------------- 

  A$ = " o "
  B$ = "</>"
  C$ = "/< "

  Dance(A$, B$, C$, 3)

  ' ----------- Step Fourteen --------------- 

  A$ = " o "
  B$ = "<\>"
  C$ = " >\"

  Dance(A$, B$, C$, 4)

  ' ----------- Step Fifteen --------------- 

  A$ = " o "
  B$ = "<)>"
  C$ = " >>"

  Dance(A$, B$, C$, 4)

  ' ----------- Step Sixteen ---------------- 

  A$ = " o "
  B$ = " )\"
  C$ = " LL"

  Dance(A$, B$, C$, 5)

LOOP


SUB Dance (D$, E$, F$, Dlay)
  LOCAL Kolor

  IF INSTAT THEN
    LOCATE 1, 1, 1
    COLOR 7, 0
    CLS
    END
  END IF

  COLOR 4, 0
  COLOR 6, 0 : LOCATE 12, 33, 0 : PRINT D$
  COLOR 4, 0 : LOCATE 13, 33, 0 : PRINT E$
  COLOR 9, 0 : LOCATE 14, 33, 0 : PRINT F$

  SLEEP(Dlay * 100)

  LOCATE 24, 12, 0
  Kolor = Kolor + 1
  IF Kolor = 0 THEN Kolor++
  IF Kolor = 15 THEN Kolor = 1
  COLOR  Kolor, 0
  PRINT "Created Using BCX -- The Free Basic To C Translator";

  COLOR 15, 0
  LOCATE 8, 26, 0
  PRINT "Press Any Key to Quit"
END SUB

Result:

Result not displayed for this example.