Atari 8-bit Source code

0 P=ADR("adefadefadefadefadefadefadefadefadefadefadefadefadefadefgjklmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmgjkladefadefadefadefadefadefadefadefadefadefadefadefadefadef"):​S=$A000:​L=$7F00
1 F=ADR("_w__w__w__w_]w]W]WU"):​G=ADR("`x|!yr?zw"):​A=$7800:​POKE A,​0
2 MOVE A,​A+1,​$4000:​FOR D=0 TO 53:​X=D*128:​POKE $7C00+D,​$6E:​POKE L+X,​$70:​POKE L+X+1,​$46
3 DPOKE L+X+2,​DPEEK(88):​POKE L+X+4,​$70:​O=5:​FOR I=0 TO 23:​POKE L+X+O,​$54:​DPOKE L+X+O+1,​S+$0100*I+D*4:​O=O+3:​NEXT I
4 POKE L+X+O,​84:​DPOKE L+X+O+1,​$7C00:​POKE L+X+O+3,​65:​DPOKE L+X+O+4,​L+X:​? ".";:​NEXT D:​MOVE $E000,​$7800,​1024:​MOVE F,​$7800+97*8,​14*8:​POKE 756,​$78:​DPOKE $0230,​L:​TRAP #R:​DO:​READ V:​READ A:​POKE V,​A:​LOOP
5 # R:​POKE $9A00,​0:​MOVE $9A00,​$9A01,​512:​FOR X=0 TO 255-40 STEP 18
6 Z=P+RAND(13)*6:​FOR Y=0 TO 23:​V=Y*256:​MOVE Z,​S+X+V,​6:​Z=Z+6:​NEXT Y:​NEXT X:​FOR Y=0 TO 23:​V=Y*256:​MOVE S+V,​S+216+V,​40:​NEXT Y:​CLS:​V=-1:​A=0.25:​Y=40:​Z=-1
8 # L:​POKE 764,​255:​POKE $D01E,​0:​FOR D=0 TO 53:​DPOKE $0230,​L+D*128:​PAUSE 0:​FOR I=15 TO 0 STEP -1:​POKE $D404,​I:​MOVE G,​$9A00+Y,​28:​MOVE G+20,​$9A80+Y,​28:​MOVE G+40,​$9B00+Y,​28
9 MOVE G+60,​$9B80+Y,​28:​Y=Y+V:​V=V+A:​IF PEEK(764)=33:​V=-2:​POKE 764,​255:​ENDIF:​IF PEEK($D004)>0 OR Y<4:​GO# O:​ENDIF:​PAUSE 0:​NEXT I:​IF D MOD 4=0:​Z=Z+1:​POSITION 0,​0:​? "SCORE:​ ";Z:​ENDIF:​NEXT D:​GO# L
13 # O:​POSITION 0,​0:​? "GAME OVER. SCORE:​";Z:​PAUSE 5:​GO# R:​DATA 54279,​154,​623,​49,​53277,​3,​53256,​0,​53257,​0,​53258,​0,​53259,​0,​53260,​255,​53248,​88,​53249,​88,​53250,​80,​53251,​80,​559,​46,​704,​20,​705,​42,​706,​20,​707,​42,​712,​150,​712,​150,​708,​184,​709,​178,​710,​180,​711,​188