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!
Atari 8-bit Source code
|
|
-
Entry name:Uncle Simon
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2018 (NOMAM 2018)
-
Year:2018
Listing 1
0 GRAPHICS 18:DIM C(3),S(3),T$(5),M(15):E=0:FOR R=0 TO 3:READ C,S:C(R)=C:S(R)=S:GOSUB 8:NEXT R 1 FOR Z=0 TO 5:READ A,B,T$:POSITION A,B:? #6;T$:NEXT Z:READ T$:GOSUB 9:N=1:P=181:DATA 8,121,5,85,2,60 2 POSITION 4,6:? #6;CHR$(N+16):FOR X=0 TO N+3:M(X)=INT(RND(0)*4):POSITION 16,6:? #6;X+1;" " 3 FOR Z=0 TO 99:NEXT Z:FOR Y=0 TO X:R=M(Y):E=8:GOSUB 8:FOR Z=0 TO P:NEXT Z:GOSUB 8:FOR Z=0 TO P/9:NEXT Z:NEXT Y 4 FOR Y=0 TO X:FOR Z=0 TO 0 STEP 0:J=STICK(0):Z=(J=7)+(J=11)*2+(J=14)*3+(J=13)*4:NEXT Z:R=Z-1 5 E=8:GOSUB 8:FOR Z=0 TO 0 STEP 0:Z=STICK(0)=15:NEXT Z:GOSUB 8:ON R<>M(Y) GOTO 7:NEXT Y:NEXT X:DATA 13,173 6 FOR Y=200 TO 0 STEP -X:SOUND 0,Y,10,8*(Y>X):NEXT Y:N=N+1:P=P-20*(P>20):ON N<10 GOTO 2:READ T$ 7 SOUND 0,40,12,8*(N<10):POSITION 8,6:? #6;T$:FOR Z=0 TO 500:NEXT Z:SOUND 0,0,0,0:GOSUB 9:RUN:DATA 8,1 8 SOUND 0,S(R),10,E:SETCOLOR R,C(R),4+E:E=0:RETURN:DATA ,8,2,,2,5,round,14,5,TONES,8 9 FOR Z=0 TO 0 STEP 0:Z=STRIG(0)=0:NEXT Z:POKE 77,0:RETURN:DATA 9,,8,10,,, 10 REM Uncle Simon 11 REM 2018-02-06 12 REM (C) 2018 by Victor Parada 13 REM <http://www.vitoco.cl/atari/>
References
References
Listing downloads
Downloads
Videos
Copyright holder