 |
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(
A$, B$, C$, 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
A$
COLOR
4
, 0
: LOCATE
13
, 33
, 0
: PRINT
B$
COLOR
9
, 0
: LOCATE
14
, 33
, 0
: PRINT
C$
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