forked from ekidney/stardrifter
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathMain.bas
197 lines (181 loc) · 6.1 KB
/
Main.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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
!- poke in new characters
10forx=0to1023:reada:poke(5120+x),a:next
20poke36869,205
21print"{down}{down}loading ML{up}"
22SA=4609
23forx=0to302
24readA%:pokeSA+x,A%:next
!- 25?"insert disc 2":geta$
!- 28 load"*",8,1
!- new characters
30 DATA 0,255,17,34,68,136,255,0
40 DATA 24,36,36,60,36,36,36,0
50 DATA 56,36,36,56,36,36,56,0
60 DATA 60,32,32,32,32,32,60,0
70 DATA 56,36,36,36,36,36,56,0
80 DATA 60,32,32,56,32,32,60,0
90 DATA 60,32,32,56,32,32,32,0
100 DATA 24,32,32,36,36,36,28,0
110 DATA 36,36,36,60,36,36,36,0
120 DATA 16,16,16,16,16,16,16,0
130 DATA 4,4,4,4,4,36,60,0
140 DATA 36,36,36,56,36,36,36,0
150 DATA 32,32,32,32,32,32,60,0
160 DATA 36,60,36,36,36,36,36,0
170 DATA 60,36,36,36,36,36,36,0
180 DATA 24,36,36,36,36,36,24,0
190 DATA 56,36,36,56,32,32,32,0
200 DATA 60,36,36,36,36,44,60,0
210 DATA 60,36,36,56,36,36,36,0
220 DATA 24,36,32,60,4,36,28,0
230 DATA 56,16,16,16,16,16,16,0
240 DATA 36,36,36,36,36,36,24,0
250 DATA 36,36,36,36,36,40,48,0
260 DATA 36,36,36,36,36,60,36,0
270 DATA 36,36,36,24,36,36,36,0
280 DATA 36,36,36,60,8,8,8,0
290 DATA 60,4,4,8,16,32,60,0
300 DATA 16,16,56,124,124,254,238,130
310 DATA 0,0,16,16,56,124,124,254
320 DATA 0,0,0,0,16,16,56,124
330 DATA 0,0,0,0,0,0,16,16
340 DATA 238,130,0,0,0,0,0,0
350 DATA 0,0,0,0,0,0,0,0
360 DATA 56,124,124,254,238,130,0,0
370 DATA 0,0,0,195,231,231,255,255
380 DATA 0,0,0,137,82,137,82,255
390 DATA 0,0,66,129,129,129,129,255
400 DATA 0,0,0,8,8,74,154,255
410 DATA 0,0,0,0,24,126,126,255
420 DATA 0,0,219,255,129,165,129,255
430 DATA 0,0,0,0,195,239,223,191
440 DATA 0,129,66,66,66,66,126,129
450 DATA 0,0,4,2,2,34,66,255
460 DATA 0,24,24,24,36,102,165,255
470 DATA 0,24,60,126,126,60,24,0
480 DATA 0,0,0,85,170,0,0,0
490 DATA 0,0,0,0,0,0,16,0
500 DATA 8,16,8,16,8,16,8,16
510 DATA 60,36,36,36,36,36,60,0
520 DATA 8,8,8,8,8,8,8,0
530 DATA 60,4,4,60,32,32,60,0
540 DATA 60,4,4,60,4,4,60,0
550 DATA 36,36,36,60,4,4,4,0
560 DATA 60,32,32,60,4,4,60,0
570 DATA 60,32,32,60,36,36,60,0
580 DATA 60,4,4,4,4,4,4,0
590 DATA 60,36,36,60,36,36,60,0
600 DATA 60,36,36,60,4,4,60,0
610 DATA 0,0,8,0,0,8,0,0
620 DATA 0,0,8,0,0,8,8,16
630 DATA 124,254,238,130,0,0,0,0
640 DATA 24,24,24,24,0,0,0,0
650 DATA 0,0,0,0,128,96,48,8
660 DATA 16,16,48,64,192,0,0,0
670 DATA 129,165,129,129,129,129,129,129
680 DATA 129,195,165,195,129,129,153,129
690 DATA 129,129,165,219,165,129,165,129
700 DATA 129,129,129,129,165,129,137,153
710 DATA 129,129,129,231,129,129,129,129
720 DATA 129,129,219,219,129,153,189,129
730 DATA 129,66,231,165,231,66,66,129
740 DATA 129,165,219,255,255,219,165,129
750 DATA 129,231,129,165,129,129,153,129
760 DATA 129,129,129,231,231,129,129,129
770 DATA 153,195,36,36,36,36,36,36
780 DATA 129,189,189,66,36,102,102,102
790 DATA 129,255,195,255,129,195,66,66
800 DATA 129,189,129,231,36,36,36,36
810 DATA 129,129,189,153,129,255,36,36
820 DATA 129,165,219,255,129,153,255,36
830 DATA 129,129,153,66,36,60,36,36
840 DATA 129,66,165,90,165,66,36,36
850 DATA 129,129,129,66,90,129,195,36
860 DATA 231,231,255,255,255,255,255,255
870 DATA 255,231,255,231,255,231,255,231
880 DATA 219,219,195,195,195,195,195,195
890 DATA 231,231,231,231,255,255,245,255
900 DATA 255,219,231,231,219,255,231,255
910 DATA 231,231,255,255,255,255,255,255
920 DATA 255,231,255,231,255,231,255,231
930 DATA 36,36,126,255,255,255,189,255
940 DATA 36,189,255,245,255,255,255,255
950 DATA 36,255,255,255,255,60,60,60
960 DATA 0,0,0,129,194,34,20,24
970 DATA 0,0,0,1,1,14,12,24
980 DATA 24,4,4,7,0,0,0,0
990 DATA 0,0,0,0,0,0,0,0
1000 DATA 15,15,15,15,15,15,15,15
1010 DATA 0,63,127,127,111,111,111,111
1020 DATA 255,63,79,159,47,79,159,175
1030 DATA 255,135,7,63,63,63,63,63
1040 DATA 63,15,63,35,251,171,171,3
1050 DATA 31,127,63,119,55,119,55,119
1060 DATA 240,240,240,240,240,240,240,240
1070 DATA 0,252,254,254,246,246,246,246
1080 DATA 255,252,242,249,244,242,249,245
1090 DATA 255,225,224,252,252,252,252,252
1100 DATA 252,240,252,196,223,213,213,192
1110 DATA 248,254,252,246,244,246,244,246
1120 DATA 28,29,30,31,32,156,158,159
1130 DATA 29,28,0,0,0,0,0,0
1140 DATA 72,127,121,207,183,73,72,48
1150 DATA 16,255,125,206,180,72,72,48
1160 DATA 0,60,126,60,126,60,126,0
1170 DATA 0,126,102,90,90,102,126,0
1180 DATA 0,128,128,128,128,128,128,0
1190 DATA 0,192,192,192,192,192,192,0
1200 DATA 0,224,224,224,224,224,224,0
1210 DATA 0,240,240,240,240,240,240,0
1220 DATA 0,248,248,248,248,248,248,0
1230 DATA 0,252,252,252,252,252,252,0
1240 DATA 0,254,254,254,254,254,254,0
1250 DATA 0,255,255,255,255,255,255,0
1260 DATA 32,50,60,60,62,31,96,126
1270 DATA 0,0,0,60,66,129,153,255
1280 DATA 0,0,0,0,195,239,223,191
1290 DATA 0,0,0,0,224,248,254,255
1300 DATA 0,0,0,0,3,31,127,255
!- ASM
1360data76,42,18
!- guage characters
1370data32,32,116,117,118,119,120,121,122
!-
1375data0,6,28,50
1380data72,88,110,132,154,176,0,1
1390data2,80,0,0,0,208,176,128
1400data32,0,0,0,0,2,0,0
1410data0,32,49,18,32,110,18,96
1420data162,0,142,39,18,174,39,18
1430data189,30,18,141,41,18,188,26
1440data18,204,41,18,240,13,204,41
1450data18,144,19,189,26,18,136,152
1460data157,26,18,232,224,4,240,17
1470data142,39,18,76,54,18,188,26
1480data18,200,152,157,26,18,76,84
1490data18,32,152,18,96,24,162,0
1500data32,18,19,32,172,18,32,236
1510data18,32,182,18,24,173,38,18
1520data105,1,141,38,18,24,173,39
1530data18,105,1,141,39,18,201,4
1540data240,4,76,113,18,96,96,169
1550data2,141,25,18,169,2,141,38
1560data18,169,0,141,39,18,162,0
1570data160,0,96,174,39,18,189,14
1580data18,141,25,18,96,174,35,18
1590data189,4,18,168,173,34,18,109
1600data25,18,170,152,157,161,17,96
1610data162,0,173,38,18,201,5,240
1620data11,157,162,149,232,224,33,240
1630data4,76,203,18,96,238,38,18
1640data173,162,149,105,34,141,162,149
1650data76,203,18,173,25,18,170,169
!- 122 value below represents index of full guage character
1660data0,168,169,122,192,0,240,3
1670data157,161,17,173,38,18,157,161
1680data149,232,157,161,149,202,204,34
1690data18,176,5,232,200,76,243,18
1700data96,174,39,18,189,26,18,24
1710data74,74,74,74,141,34,18,189
1720data26,18,41,15,74,141,35,18
1730data96,169,147,32,210,255,96