-
Notifications
You must be signed in to change notification settings - Fork 0
/
111.bas
54 lines (53 loc) Β· 2.36 KB
/
111.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
'111 or 11
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,137,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,129,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,130,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,0,0,0,0,0,0,0,132,0,0,132,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,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #DD0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE #DE0,143,140,140,140,142,143,143,143,140,140,140,140,143,143,143,143
POKE #DF0,143,143,143,143,132,0,0,0,0,0,0,0,0,0,0,0
POKE #E00,131,143,143,143,135,131,131,131,143,143,143,143,135,0,0,132
POKE #E10,136,0,0,130,143,0,0,0,0,0,0,0,0,0,0,0
POKE #E20,0,0,0,0,0,0,0,0,0,0,0,143,0,129,0,0
POKE #E30,0,140,136,0,143,0,140,0,0,0,0,0,0,0,0,0
POKE #E40,143,140,140,140,142,143,143,143,140,140,140,143,0,0,136,0
POKE #E50,138,0,137,0,143,134,0,133,0,0,0,0,0,0,0,0
POKE #E60,131,143,143,143,135,131,131,139,131,139,143,143,0,136,0,0
POKE #E70,138,0,0,131,131,0,0,133,0,0,0,0,0,0,0,0
POKE #E80,0,0,0,0,0,0,0,130,137,140,134,143,136,0,0,129
POKE #E90,133,0,136,0,0,0,132,138,0,0,0,0,0,0,0,0
POKE #EA0,143,140,140,140,142,143,143,143,140,140,143,143,0,0,136,0
POKE #EB0,133,140,131,0,130,130,137,142,0,0,0,0,0,0,0,0
POKE #EC0,131,143,143,143,135,131,131,131,143,143,143,143,141,129,0,0
POKE #ED0,137,131,138,140,141,142,130,135,0,0,0,0,0,0,0,0
POKE #EE0,0,0,0,0,0,0,0,0,0,136,131,139,143,143,143,143
POKE #EF0,143,141,140,140,140,140,134,0,0,0,0,0,0,0,0,0
POKE #F00,0,0,0,0,0,0,0,0,0,138,140,129,137,142,0,0
POKE #F10,138,137,142,130,140,133,0,0,0,0,0,0,0,0,0,0
POKE #F20,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,140
POKE #F30,136,136,132,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,136,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,0,0,0,0,0,0,0,0
POKE #F70,130,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,0,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