Atari 8-bit Source code

0 MOVE ADR("QQQEEEAAi@""3%8O``mFf&N"3lide4enby.'A/(A(%(&(/&pL(ko'_nomam^#]V/%mvNA"),​31000,​219
1 MOVE ADR("&P)G+2&(B_abbucd%t*!(N&T9&/"a-kP_atari1(,​&L&&$(@MA(0"),​31219,​221
2 MOVE ADR("x/2(=()P"mmaster_@IF/\MdYPJF.",​?%6|orenoG&09*"),​31440,​220
3 MOVE ADR("Cso!&(A%.|Oend'9ou7in7(x(-l(CKP"),​31660,​121:​E=31778:​S=31000:​D=32768
4 # P:​IF S<E:​L=PEEK(S):​I=L DIV 16:​C=4+L&15:​S=S+%1:​IF I=15:​I=I+PEEK(S):​S=S+%1:​ENDIF:​MOVE S,​D,​I:​S=S+I:​D=D+I:​O=DPEEK(S):​S=S+%2:​IF C=19:​REPEAT:​A=PEEK(S):​C=C+A:​S=S+%1:​UNTIL A<>255:​ENDIF:​MOVE D-O,​D,​C:​D=D+C:​GO# P:​ENDIF
5 L=%0:​H=53248:​POKE H,​%0:​GRAPHICS 8:​GRAPHICS %0:​POKE 82,​%0:​B=DPEEK(88):​D=DPEEK(560)+6:​POKE D,​4:​MOVE D,​D+%1,​22:​POKE 752,​%1:​POKE 756,​$80:​FOR I=%0 TO 1023 STEP 8:​IF PEEK($8000+I+%1)=0:​MOVE $E000+I,​$8000+I,​8:​ENDIF:​NEXT I
6 # I:​A=$AC:​M=$AC00:​N=M:​H=53248:​POKE 54279,​A:​POKE 559,​46:​POKE 53277,​%3:​MOVE $8480,​M+4,​4:​MOVE $851D+L*960,​B,​960:​X=78:​Y=34:​DX=9:​DY=DX:​MOVE $8504,​704,​9:​MOVE M-64,​M+458+Y,​128
7 # L:​POKE H,​X+46:​J=STICK(0):​V=(J=7)-(J=11):​W=(J=13)-(J=14):​IF V=%0 AND W=%0:​POSITION 34,​%0:​? G;:​ELSE:​G=G-(G>%0):​ENDIF:​REM ### SLID1NG by 1NG for TenLiner Contest 2015 ###
8 # Q:​A=PEEK(N+V+W*40):​IF J=15 OR A=1:​GO# L:​ENDIF:​X=X+V:​Y=Y+W:​IF X<-8 OR X>172 OR Y<-8 OR Y>98:​G=%0:​GO# I:​ENDIF:​POKE H,​X+46:​MOVE M+%2-Y,​M+524,​104:​IF X MOD 4<>%2 OR Y MOD 4<>%2:​GO# Q:​ENDIF
9 XA=X DIV 4:​YA=Y DIV 4:​N=B+XA+YA*40:​A=PEEK(N):​IF A=38:​G=G+1000:​POKE N,​%0:​ENDIF:​IF A=37:​L=L+%1:​GO# I:​ENDIF:​IF A=33:​X=X+DX*4:​Y=Y+DY*4:​ENDIF:​IF A=34:​X=X-DX*4:​Y=Y-DY*4:​ENDIF:​GO# Q	

5 GRAPHICS 0:​SETCOLOR 2,​8,​2:​POKE 752,​1
10 POSITION 11,​1:​? " load1ng"
20 POSITION 11,​11:​? " SLIDE TEN by 1NG"
30 POSITION 11,​22:​? "A RENO Production"
50 RUN "D:​SLIDETEN.TUR"