BCX Console Demonstration Program s100.bas

 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