-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdemos.html
82 lines (81 loc) · 1.96 KB
/
demos.html
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
<!DOCTYPE html;lang=NB;>
<html>
<head>
<title>my c64 demos</title>
</head>
<body>
<hr>
<pre>
10 rem sprite birds
100 data 0 , 0 , 0
101 data 0 , 60 , 0
102 data 0 , 126 , 0
103 data 7 , 126 , 224
104 data 15 , 126 , 240
105 data 28 , 126 , 56
106 data 24 , 60 , 24
107 data 24 , 0 , 24
108 data 0,0,0,0,0,0,0,0
109 data 0,0,0,0,0,0,0,0
110 data 0,0,0,0,0,0,0,0
111 data 0,0,0,0,0,0,0,0
112 data 0,0,0,0,0,0,0,0
113 data 0 , 0 , 0
114 data 0 , 60 , 0
115 data 0 , 126 , 0
116 data 255 , 126 , 255
117 data 255 , 126 , 255
118 data 0 , 126 , 0
119 data 0 , 60 , 0
120 data 0 , 0 , 0
121 data 0,0,0,0,0,0,0,0
122 data 0,0,0,0,0,0,0,0
123 data 0,0,0,0,0,0,0,0
124 data 0,0,0,0,0,0,0,0
125 data 0,0,0,0,0,0,0,0
126 data 24 , 0 , 24
127 data 24 , 60 , 24
128 data 28 , 126 , 56
129 data 15 , 126 , 240
130 data 7 , 126 , 224
131 data 0 , 126 , 0
132 data 0 , 60 , 0
133 data 0 , 0 , 0
134 data 0,0,0,0,0,0,0,0
135 data 0,0,0,0,0,0,0,0
136 data 0,0,0,0,0,0,0,0
137 data 0,0,0,0,0,0,0,0
138 data 0,0,0,0,0,0,0,0
205 for n=832 to 832+191
210 read dt:poke n,dt:next
300 poke 2040,13:poke 2041,13
305 poke 53248+0,100:poke53248+1,150
310 poke 53248+2,255:poke53248+3,105
315 poke 53248+21,3:poke 53248+23,1
320 poke 53248+39,1:x=100:y=150
321 poke 53248+40,3:poke 53248+29,1
330 tx=int(rnd(1)*235)+20
335 ty=int(rnd(1)*185)+50
400 rem (less) (more than)
405 if x l tx then x=x+1
410 if x m tx then x=x-1
415 if y l ty then y=y+1:s=1
416 if y , ty then y=y-1:s=0
420 if y = ty then s=0
421 if x<>tx or y<>ty then 424
422 tx=int(rnd(1)*235)+20
423 ty=int(rnd(1)*184)+50
424 poke 53248+2,tx:poke 53248+3,ty
425 poke 53248+0,x:poke53248+1,y
426 cnt=cnt+1:if s=1 then cnt=3
430 if cnt=1 then poke 2040,13
435 if cnt=2 then poke 2040,14
440 if cnt=3 then poke 2040,15
445 if cnt=4 then poke 2040,14
450 if cnt=5 then cnt=0
455 goto 400
</pre>
<hr>
<hr>
</body>
</html>