This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
-
Entry name:Vrtulnik
-
Category:Player/Missile graphics
-
Publisher/Developer:Flop 5
Listing 1
10 GRAPHICS 0:SETCOLOR 2,14,0:SETCOLOR 1,0,7
30 POKE 559,62
50 POKE 704,188:POKE 705,188
60 POKE 623,1
70 I=PEEK(106)-16
80 POKE 54279,I
90 POKE 53277,3
100 J=I*256+1024
110 FOR I=J TO J+512:POKE I,0:NEXT I
120 POKE 204,0:POKE 205,100:POKE 206,50:POKE 207,J/256:POKE 1788,5:POKE 1790,0
130 POKE 53248,120:POKE 53249,128:POKE 1791,120
200 RESTORE 200:FOR I=0 TO 1000:READ D:IF D=-1 THEN 215
210 POKE I+1536,D:NEXT I
215 U=USR(ADR("hL\")):REM POKE 548,0:POKE549,6
216 SOUND 3,0,0,7
219 DATA 173,0,211,74,176,13,166,206,224,20,240,7,160,3,140,252,6,198,206,74,176,8,166,206,224,220,240,2,230,206
220 DATA 206,253,6,208,43,173,252,6,141,253,6,173,251,6,208,17,24,165,204,105,128,133,204,169,4,141,251,6,141,6
230 DATA 210,208,15,56,165,204,233,128,133,204,169,0,141,251,6,141,6,210
240 DATA 173,0,211,74,74,74,176,46,174,255,6,224,40,240,39,172,254,6,192,1,240,4,192,9,208,7,165,204
250 DATA 56,233,32,133,204,192,0,240,3,206,254,6,202,142,255,6,138,24,141,0,208,105,8,141,1,208
260 DATA 173,0,211,74,74,74,74,176,46,174,255,6,224,220,240,39,172,254,6,192,8,240,4,192,0,208,7,165,204
270 DATA 24,105,32,133,204,192,9,240,3,238,254,6,232,142,255,6,138,24,141,0,208,105,8,141,1,208
480 DATA 56,165,206,233,16,133,206,230,207,160,31,177,204,145,206,192,16,208,9,198,207,24,165,206,105,16,133,206
490 DATA 136,16,236
499 DATA 169,5,141,252,6
500 DATA 76,98,228,-1
1000 RESTORE 1000:FOR A=25600 TO 25600+95:READ D:POKE A,D:NEXT A
1010 DATA 0,255,1,1,15,17,33,49,127,112,63,31,16,160,127,0
1020 DATA 0,192,0,1,1,129,255,14,122,98,194,192,64,32,252,0
1030 DATA 0,255,1,1,3,7,12,8,16,27,15,7,8,16,56,0
1040 DATA 0,192,0,0,128,192,96,32,16,176,224,192,32,16,56,0
1050 DATA 0,3,0,128,128,129,255,112,94,70,67,3,2,4,63,0
1060 DATA 0,255,128,128,240,136,132,140,254,14,252,248,8,5,254,0
2000 RESTORE 2000:FOR A=25728 TO 25728+95:READ D:POKE A,D:NEXT A
2010 DATA 0,7,1,1,15,17,33,49,127,112,63,31,16,160,127,0
2020 DATA 0,254,0,2,2,130,254,15,121,97,193,192,64,32,252,0
2030 DATA 0,7,1,1,3,7,12,8,16,27,15,7,8,16,56,0
2040 DATA 0,254,0,0,128,192,96,32,16,176,224,192,32,16,56,0
2050 DATA 0,127,0,64,64,65,127,240,158,134,131,3,2,4,63,0
2060 DATA 0,224,128,128,240,136,132,140,254,14,252,248,8,5,254,0
5000 STOP
References
Listing downloads
Copyright holder