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
Result:
Result not displayed for this example.