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:Slide Ten
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2015 (NOMAM 2015)
-
Year:2015
Listing 1
0 MOVE ADR("QQQEEEAAi@""3%8O``mFf&N"3lide4enby.'A/(A(%(&(/&pL(ko'_nomam^#]V/%mvNA"),31000,219 1 MOVE ADR("&P)G+2&(B_abbucd%t*!(N&T9&/"a-kP_atari1(,&L&&$(@MA(0"),31219,221 2 MOVE ADR("x/2(=()P"mmaster_@IF/\MdYPJF.",?%6|orenoG&09*"),31440,220 3 MOVE ADR("Cso!&(A%.|Oend'9ou7in7(x(-l(CKP"),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
Listing 2
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"
References
Downloads
Downloads
Copyright holder