Random game
Random game
Random software
Vrtulnik Vrtulnik Vrtulnik Vrtulnik Vrtulnik
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("hL\")):​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	

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!