Atari 8-bit Source code

100GRAPHICS0:POKE710,112:POKE752,1:POSITION13,6:?"SLAMMER":POSITION14,15:?"byBillShaw"
110POSITION2,7:?"___________________________________":GOTO700
140ST=STICK(0):IFT<=0THENG$="LIDSUP":GOTO580
145IFT<=5THENPOKE710,170
150IFSTRIG(0)=0ANDST<>15THENGOTO240
155IFPEEK(53279)=5THENGOSUB950
160IFST<=7THENX=X+1
170IFST>=9ANDST<=11THENX=X-1
180IFX>=35THENX=1:POSITION35,2:?""
190IFX<1THENX=34:POSITION1,2:?""
200IFST=15THENM=M+1:IFM=30/RTHENMM=MM+1:GOSUB480:POSITION37-MM,1:?"":M=1:SOUND0,25,10,4:A=1^1:SOUND0,0,0,0
210IFSTRIG(0)=0ANDPEEK(SCR+240+X+1)=10THENGOTO410
220IFSTRIG(0)=0THENGOSUB370
230IFST=15THENGOTO250
240SOUND0,10,6,6:SOUND0,0,0,0
250POSITION25,11:?20-T;""
260POSITIONX,2:?D$:RETURN
270POKE756,CHSET/256:POKE559,0:?CHR$(125):POKE712,0:POKE709,10:POSITION17,0:?"ROUND";R
280FORI=3TO33STEP5:POSITIONI,7:?A$;:NEXTI:FORI=2TO32STEP5:POSITIONI,7:?"[":NEXTI
290FORI=3TO33STEP5:POSITIONI,8:?B$;:NEXTI:FORI=6TO36STEP5:POSITIONI,7:?"]":NEXTI
300FORI=3TO33STEP5:POSITIONI,9:?C$;:NEXTI
310POSITION2,11:?"SCORE=";SC;:POSITION16,11:?"MISSES=";T;:POSITION29,11:?"LEVEL=";L;:GOSUB460
320POKE559,34
330P=PEEK(53770)/L/R:H=INT(1+(RND(0)*8))*5+3:IFH>=35THENH=3
340IFPEEK(SCR+240+H)=13THENGOTO330
350FORW=15TO0STEP-1:SOUND0,P,12,W:NEXTW:IFT<=0THENG$="LIDSUP":GOTO580
360POSITIONH,6:?X$:FORW=1TOP/2:GOSUB140:NEXTW:POSITIONH,6:?"":GOTO330
370POSITIONX+1,2:?"":POSITIONX+1,3:?P$:GOSUB390:T=T-1:POSITIONX+1,3:?"":POSITIONX+1,2:?P$
380RETURN
390FORW=15TO0STEP-1:SOUND0,96,10,W:NEXTW
400RETURN
410FORW=2TO6:POSITIONX+1,W:?P$:POSITIONX+1,W:?"":NEXTW
420POSITIONX+1,6:?P$:POSITIONX,2:?""
430FORW=15TO0STEP-1:SOUND0,50,0,W:NEXTW:DC=C*L*10:SC=DC+SC:C=C+1:IFC>=7THEN510
450POSITION10,11:?SC;:POSITION37,11:?L:POSITION25,11:?20-T;"";:W=P:GOTO330
460POSITION2,1:?"TIME":POSITION7,1:?";":FORI=8TO36-MM:POSITIONI,1:?";":NEXTI
470RETURN
480IFMM=30THENG$="TIMEUP":GOTO580
490IFMM>=25THENPOKE710,200
500RETURN
510GOSUB640:C=0
515RESTORE630
520FORI=1TO10:READAA:FORW=15TO0STEP-2:SOUND0,AA,10,W:SOUND1,AA+1,10,W:SOUND2,AA+2,10,W:NEXTW:NEXTI
525FORW=0TO2:SOUNDW,0,0,0:NEXTW
530FORW=1TO999:NEXTW:DC=C*L*10:SC=DC+SC
540L=L+1:IFL<=5THENM=1:GOTO270
550POSITION6,11:?"YOUCOMPLETEDROUND";R;"OFPLAY"
555RESTORE630
560FORI=1TO10:READAA:SOUND0,AA,10,9:SOUND1,AA+1,10,9:SOUND2,AA+2,10,9:NEXTI:FORW=0TO2:SOUNDW,0,0,0:NEXTW
570FORW=1TO500:NEXTW:L=1:C=0:M=1:MM=1:R=R+1:POKE710,72:GOTO270
580POKE709,14:POKE712,54:?CHR$(125):POSITION13,3:?"YOUUSEDALL":POSITION13,5:?"YOUR";G$:C=0:T=20
590POSITION10,9:?"PRESSSTARTORFIRE"
595POSITION11,7:?"YOURSCORE=";SC
600RESTORE630:FORI=1TO10:READAA:FORW=15TO0STEP-1:SOUND0,AA,0,W:NEXTW:NEXTI:SOUND0,0,0,0
610IFPEEK(53279)=6ORSTRIG(0)=0THEN620
615GOTO610
620L=1:C=0:SC=0:T=20:M=1:MM=1:POKE710,72:R=1:GOTO270
630DATA72,0,96,96,85,96,0,0,76,72
640?CHR$(125):POKE709,14:POKE712,ZZ:ZZ=ZZ-48:IFZZ<6THENZZ=198
650POSITION19,1:?X$:POSITION14,2:?"PLAYERSTATUS":?"___________________________________":POKE77,0
660?"SCORE";SC:?"ROUND";R:?"LEVELCOMPLETED";L
670?"MISSES";20-T:?"LIDS";T
680?"TIMELEFT";INT(100-MM*3.3000000000000003);"%":?";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
690RETURN
700DIMA$(3),B$(3),C$(3),D$(5),P$(3),X$(3),G$(7),Z$(21):A$="!<#":B$="'()":C$="$>&":D$="-./":P$="-./":X$="*+,"
710X=20:SCR=PEEK(88)+PEEK(89)*256:L=1:T=20:MM=1:R=1:DL=PEEK(560)+256*PEEK(561):ZZ=198:RESTORE760
730CHSET=(PEEK(106)-8)*256:READA:POKE712,A+50:IFA=-1THENPOKE559,0:GOTO750
740FORJ=0TO7:READB:POKECHSET+A*8+J,B:NEXTJ:GOTO730
750POKEDL+3,68:GOSUB950:POKEDL+17,65:POKEDL+18,PEEK(560):POKEDL+19,PEEK(561)
755POKE708,116:POKE710,72:GOTO270
760DATA1,170,128,138,138,138,138,138,138,3,170,2,162,162,162,162,162,162,4,138,138,138,138,138,138,160,170
770DATA5,130,130,8,40,32,130,130,0,6,162,162,162,162,162,162,10,170,7,138,138,138,138,138,138,138,138
780DATA8,40,40,40,40,40,40,40,40,9,162,162,162,162,162,162,162,162,10,0,3,11,47,63,255,255,252
790DATA11,170,255,255,255,255,255,255,60,12,0,192,224,248,252,255,255,63,13,0,0,0,2,2,170,170,170
800DATA14,0,0,0,170,0,170,170,170,15,0,0,0,128,128,170,170,170,16,32,136,136,136,136,136,32,0
810DATA17,32,160,32,32,32,32,168,0,18,32,136,136,8,32,128,168,0,19,160,8,8,32,8,8,160,0
820DATA20,136,136,136,168,8,8,8,0,21,168,128,128,160,8,8,160,0,22,32,128,128,160,136,136,32,0
830DATA23,168,8,8,32,32,128,128,0,24,32,136,136,32,136,136,32,0,25,32,136,136,40,8,8,32,0
840DATA27,170,150,150,150,150,150,170,0,28,170,0,40,40,40,40,40,40,33,32,136,136,136,168,136,136,0
850DATA30,40,40,40,40,40,40,0,170,35,32,136,128,128,128,136,32,0,36,160,136,136,136,136,136,160,0
860DATA37,168,128,128,168,128,128,168,0,38,168,128,128,168,128,128,128,0,41,168,32,32,32,32,32,168,0
870DATA44,128,128,128,128,128,128,168,0,45,136,168,168,136,136,136,136,0,46,136,136,168,168,168,136,136,0
880DATA47,168,136,136,136,136,136,168,0,48,160,136,136,160,128,128,128,0,50,160,136,136,160,136,136,136,0
890DATA51,40,128,128,32,8,8,160,0,52,168,32,32,32,32,32,32,0,53,136,136,136,136,136,136,168,0
900DATA54,136,136,136,136,136,136,32,0,57,136,136,136,168,32,32,32,0,58,168,8,8,32,32,128,168,0
910DATA59,0,0,0,0,10,10,2,0,61,0,0,0,0,160,160,128,0,29,0,0,0,170,0,170,0,0
920DATA-1
950IFPEEK(DL+3)=69THENFORI=0TO10:POKEDL+6+I,4:NEXTI:POKEDL+3,68:RETURN
960IFPEEK(DL+3)=68THENFORI=0TO10:POKEDL+6+I,5:NEXTI:POKEDL+3,69:RETURN	

• Download link 1

• Download link 1
• Download link 2
• Download link 3
• Download link 4