110 '--- Slot 0

autoexec.bas

110 '--- Slot 0
120 '- mask 0
130 DATA 00000011
131 DATA 00000111
132 DATA 00000101
133 DATA 00011101
134 DATA 00111100
135 DATA 00111110
136 DATA 01001111
137 DATA 01111110
138 DATA 00111011
139 DATA 01111001
140 DATA 10011111
141 DATA 10011111
142 DATA 10011100
143 DATA 01011111
144 DATA 01001111
145 DATA 00011011
150 DATA 10000000
151 DATA 11000000
152 DATA 11000000
153 DATA 11110000
154 DATA 11111000
155 DATA 11111000
156 DATA 11011100
157 DATA 11111100
158 DATA 10111100
159 DATA 11111100
160 DATA 11110100
161 DATA 11110100
162 DATA 01110100
163 DATA 11100100
164 DATA 11111000
165 DATA 11110000
170 ' attr 0
171 DATA 03,03,03,0E,0C,0E,0E,0E
172 DATA 0E,0E,0E,0E,03,0C,0E,0E
210 ' --- Slot 0
220 ' mask 0
230 DATA 00000011
231 DATA 00000100
232 DATA 00000110
233 DATA 00011110
234 DATA 00100111
235 DATA 00000111
236 DATA 01110011
237 DATA 01000011
238 DATA 01001101
239 DATA 01101111
240 DATA 11111000
241 DATA 11111100
242 DATA 11111011
243 DATA 01101111
244 DATA 01111100
245 DATA 00010100
250 DATA 10000000
251 DATA 01000000
252 DATA 01000000
253 DATA 01110000
254 DATA 11001000
255 DATA 11001000
256 DATA 10100000
257 DATA 10000100
258 DATA 01010100
259 DATA 00011100
260 DATA 00111100
261 DATA 00111100
262 DATA 10111100
263 DATA 11111100
264 DATA 00111000
265 DATA 10010000
270 ' attr 0
271 DATA 4C,4C,4C,4D,4B,4B,4D,4B
272 DATA 4D,4D,43,4B,4C,4B,4B,4D
320 ' mask 1
330 DATA 00011111
331 DATA 00010111
332 DATA 00011011
333 DATA 00010011
334 DATA 00010111
335 DATA 00011111
336 DATA 00011111
337 DATA 00011111
338 DATA 00011111
339 DATA 00011111
340 DATA 00011111
341 DATA 00110111
342 DATA 00111111
343 DATA 00110011
344 DATA 00011111
345 DATA 00000000
350 DATA 10110000
351 DATA 10110000
352 DATA 11110000
353 DATA 10110000
354 DATA 11110000
355 DATA 11100000
356 DATA 11100000
357 DATA 11100000
358 DATA 11100000
359 DATA 11110000
360 DATA 11111000
361 DATA 11111100
362 DATA 11111100
363 DATA 11111100
364 DATA 11111000
365 DATA 00000000
370 ' attr 1
371 DATA 0E,0E,0E,0E,0E,0E,0E,0E
372 DATA 0E,03,03,03,03,03,03,03
420 ' mask 1
430 DATA 00010001
431 DATA 00011001
432 DATA 00000101
433 DATA 00011101
434 DATA 00011011
435 DATA 00010001
436 DATA 00011001
437 DATA 00010011
438 DATA 00010011
439 DATA 00011111
440 DATA 00010111
441 DATA 00111011
442 DATA 00110111
443 DATA 00111111
444 DATA 00011111
445 DATA 00000000
450 DATA 01010000
451 DATA 01010000
452 DATA 00010000
453 DATA 11010000
454 DATA 10010000
455 DATA 10100000
456 DATA 00100000
457 DATA 00100000
458 DATA 01100000
459 DATA 10110000
460 DATA 00111000
461 DATA 10011100
462 DATA 11111100
463 DATA 11111100
464 DATA 11111000
465 DATA 00000000
470 ' attr 1
471 DATA 4D,4D,4D,4D,4D,4D,4D,4D
472 DATA 4D,4C,4C,4C,4C,4C,4C,4C
491 SCREEN 4,3
492 color 7,6,1
493 CLS
500 color=( 0,0,0,0)
501 color=( 1,0,0,0)
502 color=( 2,4,3,0)
503 color=( 3,3,2,0)
504 color=( 4,1,1,1)
505 color=( 5,2,2,2)
506 color=( 6,3,3,3)
507 color=( 7,7,7,7)
508 color=( 8,3,3,3)
509 color=( 9,0,2,6)
510 color=(10,7,0,0)
511 color=(11,6,5,4)
512 color=(12,5,3,0)
513 color=(13,0,4,2)
514 color=(14,0,2,1)
515 color=(15,0,0,0)
1104 RESTORE
1105 FOR sn%=0to3
1200 b$=""
1201 FOR r%=0to31
1202 READ d$:b$=b$+CHR$(VAL("&b"+d$))
1203 nextr%
1204 sprite$(sn%)=b$
1300 b$=""
1301 FOR r%=0to15
1302 READ d$:b$=b$+CHR$(VAL("&h"+d$))
1303 NEXT r%
1304 color sprite$(sn%)=b$
1305 PUT sprite sn%,(128,96),,sn%
1400 NEXT sn%
1420 putsprite 0,(128,96),,0
1421 putsprite 1,(128,96),,1
1422 putsprite 2,(128,96+32),,2
1423 putsprite 3,(128,96+32),,3
1500 t$=INKEY$:IF t$<>""THEN 1500
1501 t$=INKEY$:IF t$=""THEN 1501
1502 SCREEN 1
1503 END

options.json

{"asm":{"filename":"program.bin","build":"bin"},"basic":{}}