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!
|
-
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