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:Fort Knox
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2016 (NOMAM 2016)
-
Year:2016
Listing 1
0 DIM L(4),M(4),F$(48):FOR X=1 TO 5:L(X-1)=20*X+X:NEXT X:Q=100:LV=1:GRAPHICS 18:SC=DPEEK(88):CH=(PEEK(106)-16)*256:POKE 711,28:POKE 709,12:POKE 708,88 1 F$="BBf>*>]6w(\t8D(8|":MOVE 57344,CH,1024:MOVE ADR(F$),CH+8,40:POKE 756,CH/256 10 G=0:FOR X=0 TO 239:POKE SC+X,0:NEXT X:POKE 710,40-2*LV:FOR X=1 TO 10:POKE SC+X*20,131:POKE SC+X*20+19,131:NEXT X:FOR X=2 TO 19:POKE SC+X,131:POKE SC+20*11+X,131:NEXT X:P=218:POKE P+SC,66 11 POSITION 0,0:PRINT #6;"L";LV:POKE SC+220,69:IF LV>4:XX=10-LV:ELSE:XX=50-10*LV:ENDIF:FOR X=1 TO XX:Z=RAND(198)+20:IF PEEK(SC+Z)=0:POKE SC+Z,196:ELSE:X=X-1:ENDIF:NEXT X:FOR X=0 TO 4:M(X)=PEEK(SC+L(X)):NEXT X 35 FOR I=0 TO 4:IF L(I)=P AND PEEK(712)=0:POKE 712,28:Q=Q-100*LV:SOUND 0,20,2,8:IF M(I):G=G+1:ENDIF:ENDIF:NEXT I:POKE 712,0:SOUND:FOR I=0 TO 4:IF L(I)<38-I+I*20:N=L(I)+1:ELSE 36 IF L(I)>201+I-I*20:N=L(I)-1:ELSE:IF L(I)&1=I&1:N=L(I)+20:ELSE:N=L(I)-20:ENDIF:ENDIF:ENDIF:ENDIF:POKE SC+L(I),M(I):M(I)=PEEK(SC+N):IF M(I)=66:M(I)=0:ENDIF:POKE SC+N,1:L(I)=N:IF N=P:POKE 712,28:Q=Q-100*LV 37 SOUND 0,20,2,8:ENDIF:NEXT I:S=STICK(0):IF S=15:PM=0:POKE P+SC,66:ELSE:IF S=7:PM=1:ENDIF:IF S=11:PM=-1:ENDIF:IF S=13:PM=20:ENDIF:IF S=14:PM=-20:ENDIF 38 IF (P+PM) MOD 20=0 OR (P+PM+1) MOD 20=0 OR P+PM<21 OR P+PM>218:PM=0:ENDIF:POKE P+SC,0:P=P+PM:IF PEEK(P+SC)=196:Q=Q+50:G=G+1:SOUND 0,60,10,10:ENDIF:POKE P+SC,66:IF G=XX:LV=LV+1:IF LV=10:IF T<Q 39 T=Q:ENDIF:SOUND:POSITION 7,4:PRINT #6;"YOU WIN":POSITION 1,5:PRINT #6;"END SCORE ";Q:POSITION 1,6:PRINT #6;"MAX SCORE ";T:WHILE STRIG(0):WEND:CLR:RUN:ELSE:GOTO 10:ENDIF:ENDIF:ENDIF:Q=Q-0.6:IF T<Q:T=Q:ENDIF:POSITION 1,11:PRINT #6;Q;"" 40 IF Q<=0:SOUND:POSITION 3,4:PRINT #6;"% GAME OVER %":POSITION 1,5:PRINT #6;"MAX SCORE ";T:POSITION 1,6:PRINT #6;"FIRE TO PLAY AGAIN":WHILE STRIG(0):WEND:CLR:RUN:ENDIF:GOTO 35 991 REM FORTKNOX by kevin@savetz.com 992 REM Written January 25 2016 993 REM for the 2016 NOMAM 10-line 994 REM programming contest 995 REM Program notes at 996 REM AtariAction.tumblr.com 997 ------------------------------ 998 REM listen to ANTIC: The Atari 999 REM 8-Bit Podcast - AtariPodcast.com
References
Downloads
Copyright holder