-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path101.bas
54 lines (53 loc) · 2.39 KB
/
101.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
'101 or 1
POKE #D00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #D10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #D20,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #D30,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #D40,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #D50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #D60,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #D70,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #D80,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #D90,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #DA0,137,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #DB0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #DC0,129,0,0,0,0,0,0,0,0,0,0,0,136,140,140,140
POKE #DD0,140,140,140,140,132,0,0,0,0,0,0,0,0,0,0,0
POKE #DE0,140,142,143,143,143,140,140,140,142,143,143,143,143,135,131,131
POKE #DF0,131,131,131,131,143,132,0,0,0,0,0,0,0,0,0,0
POKE #E00,143,135,131,131,131,143,143,143,135,131,131,139,135,136,0,130
POKE #E10,0,129,0,0,138,133,0,0,0,0,0,0,0,0,0,0
POKE #E20,0,0,0,0,0,0,0,0,0,0,0,138,133,0,0,0
POKE #E30,136,131,132,129,138,141,131,132,0,0,0,0,0,0,0,0
POKE #E40,140,142,143,143,143,140,140,140,142,131,143,143,133,0,0,129
POKE #E50,138,0,130,140,142,129,0,133,0,0,0,0,0,0,0,0
POKE #E60,143,135,131,131,131,143,143,143,135,141,130,143,133,0,129,136
POKE #E70,134,0,0,0,0,0,0,137,0,0,0,0,0,0,0,0
POKE #E80,0,0,0,0,0,0,0,0,0,130,141,142,133,129,0,0
POKE #E90,133,0,142,0,136,136,133,138,0,0,0,0,0,0,0,0
POKE #EA0,140,142,143,143,143,140,140,140,142,143,143,143,141,136,0,129
POKE #EB0,133,143,136,0,132,136,138,143,0,0,0,0,0,0,0,0
POKE #EC0,143,135,131,131,131,143,143,143,135,131,131,143,143,141,140,140
POKE #ED0,142,132,130,131,131,131,136,129,0,0,0,0,0,0,0,0
POKE #EE0,0,0,0,0,0,0,0,0,0,0,138,0,142,139,131,135
POKE #EF0,131,139,131,135,135,139,129,0,0,0,0,0,0,0,0,0
POKE #F00,0,0,0,0,0,0,0,0,130,0,130,131,129,130,131,0
POKE #F10,0,0,131,129,130,129,0,0,0,0,0,0,0,0,0,0
POKE #F20,0,0,0,0,0,0,0,132,0,0,132,0,0,0,0,0
POKE #F30,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #F40,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #F50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #F60,0,0,0,0,0,0,0,0,130,0,0,0,0,0,0,0
POKE #F70,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #F80,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #F90,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #FA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #FB0,0,0,0,0,0,0,0,0,0,0,0,0,136,0,0,0
POKE #FC0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #FD0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #FE0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #FF0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10 '
20 COPY #900,#D00,768
30 WAIT W
40 LRUN FILE()+1