-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathDANCEMAN.BAS
90 lines (83 loc) · 1.38 KB
/
DANCEMAN.BAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
CLS
PRINT " Dancing Man"
PRINT "-----------------------------------------------------------------------------"
l = 1
w = 3
RANDOMIZE TIMER
FOR i = 1 TO 50
l = l + 1
w = w + 1
IF w = 21 THEN w = w - 1
a = INT(RND * 4) + 1
IF a = 1 THEN GOSUB 100
IF a = 2 THEN GOSUB 200
IF a = 3 THEN GOSUB 300
IF a = 4 THEN GOSUB 400
NEXT i
LOCATE w, l
PRINT " 0 "
LOCATE w + 1, l
PRINT " / | \ "
LOCATE w + 2, l
PRINT " / \"
END
100 LOCATE w, l
PRINT " 0 / "
LOCATE w + 1, l
PRINT " / | "
LOCATE w + 2, l
PRINT " / \"
FOR z = 1 TO 6000
NEXT z
LOCATE w, l
PRINT " "
LOCATE w + 1, l
PRINT " "
LOCATE w + 2, l
PRINT " "
RETURN
200 LOCATE w, l
PRINT " 0 "
LOCATE w + 1, l
PRINT " / | \ "
LOCATE w + 2, l
PRINT " / \"
FOR z = 1 TO 6000
NEXT z
LOCATE w, l
PRINT " "
LOCATE w + 1, l
PRINT " "
LOCATE w + 2, l
PRINT " "
RETURN
300 LOCATE w, l
PRINT " \ 0 "
LOCATE w + 1, l
PRINT " | \ "
LOCATE w + 2, l
PRINT " / \"
FOR z = 1 TO 6000
NEXT z
LOCATE w, l
PRINT " "
LOCATE w + 1, l
PRINT " "
LOCATE w + 2, l
PRINT " "
RETURN
400 LOCATE w, l
PRINT " \ 0 / "
LOCATE w + 1, l
PRINT " | "
LOCATE w + 2, l
PRINT " / \ "
FOR z = 1 TO 6000
NEXT z
LOCATE w, l
PRINT " "
LOCATE w + 1, l
PRINT " "
LOCATE w + 2, l
PRINT " "
RETURN