Atari 8-bit Source code

5REMENVIRONMENT-X
6REMBYSPENCERCRASKE
7REMWRITTENFORANTICMAGAZINE
10GOTO1180
20GRAPHICS17:RESTORE980:BR=138:PD=9:C=43:FLAG=255:CT=30:MN=3:SR=PEEK(88)+256*PEEK(89)
30NT=PEEK(106)-6:POKE106,NT:NS=NT*256:FORT=0TO511:POKENS+T,PEEK(57344+T):NEXTT
40TRAP60:POKE756,PEEK(106)
50READA:POKENS+B,A:B=B+1:GOTO50
60RESTORE770:FORD=0TO419:READA:POKESR+D,A:SOUND0,PEEK(53770),8,10:NEXTD:TR=10000:IFRR=255THENRETURN
70SOUND0,0,0,0:GOSUB710
80X=X+(STICK(0)=7)-(STICK(0)=11):DTH=0:IFX<0ORX>19ORY<0THENX=OX:Y=OY
90COLORCL:PLOTOX,OY:LOCATEX,Y,CL:COLORAA:PLOTX,Y
100LOCATEX,Y+1,CB:IFCB=138ORCL=138THENOX=X:OY=Y:GOTO460
110IFCL=43ORCL=139THENTM=255:CL=32:DTH=DTH-20:SC=SC+200:COLOR140:GOSUB440
130IFTM=255ANDCB=9THENGOTO740
140IFCL=136THENU=1:IFCB=32THENCB=136
150IFCB=136THENDW=1
160OY=Y:IFCB=32ORCB=43ORCB=139THENY=Y+1:DTH=DTH+1:IFDTH=4THEN460
170IFCL=165THENCL=32
180IFCB=165THENDW=1
190IFX>OXTHENAA=1
200IFX<OXTHENAA=2
210IFDW=1ANDSTICK(0)=13THENY=Y+1
220IFU=1ANDSTICK(0)=14THENY=Y-1
230IFY<>OYTHENAA=6
240P2=PEEK(20):IFTM=255THENIFP2>60THENPOKE20,0:CT=CT-1:POSITION12,22:?#6;"":POSITION11,22:?#6;CT
250IFCT=0THENCT=30:OX=X:OY=Y:GOTO460
260IFP2>60THENTR=TR-100:POKE20,0:POSITION13,21:?#6;"":POSITION13,21:?#6;TR:IFTR=0THENGOTO460
270U=0:DW=0:OX=X:IFFLAG=255THENQ=INT(RND(0)*20):W=INT(RND(0)*14)+3:LOCATEQ,W,QW:IFQW<>32THEN270
280FLAG=0:IFTM=0THENCOLORC:PLOTQ,W:C=C+96:IFC>140THENC=43
290IFCB=32ORCB=43ORCB=139THEN90
300IFFL=0THENIFINT(RND(0)*30)=2ANDY<17ANDX>0THENFL=255:K=X:L=Y+1:LOCATEK,L,M:IFL>19THENFL=0
310IFM=136ORM=9THENFL=0
320IFFL>0THENFL=FL-1:SOUND0,(FL-200)*19,10,8:IFFL=250THENCOLOR32:PLOTK,L:SOUND0,0,0,0:FL=0:GOTO90
330IFSTRIG(0)=0THEN350
340POSITION3,21:?#6;SC:GOTO80
350DTH=0:D=(STICK(0)=7)-(STICK(0)=11):IFD=0THENAA=6:GOTO370
360AA=(-D+3)/2
370X=X+D:Y=Y-1:FORS=80TO50STEP-5:SOUND0,S,10,10:NEXTS:IFX>19ORX<0ORY<0THENX=OX:Y=OY
380COLORCL:PLOTOX,OY:LOCATEX,Y,CL:COLORAA:PLOTX,Y:OX=X:OY=Y
390LOCATEX,Y+1,CB:IFCB<>32ANDCB<>139ANDCB<>43ORCL=136THENGOTO430
400IFCL=43ORCL=139THENTM=255:DTH=DTH-20:CL=32:SC=SC+200:COLOR140:GOSUB440
410X=X+D:Y=Y+1:SUB=0:FORS=50TO80STEP5:SOUND0,S,10,10:NEXTS:IFX>19ORX<0THENX=OX
420COLORCL:PLOTOX,OY:LOCATEX,Y,CL:COLORAA:PLOTX,Y
430OX=X:OY=Y:SOUND0,0,0,0:GOTO90
440PLOT8,19:DRAWTO8,20:DRAWTO10,20:DRAWTO10,19:FORT=20TO0STEP-1:FORTT=15TO0STEP-3:SOUND0,T,10,TT
450NEXTTT:NEXTT:RETURN
460COLORCL:PLOTOX,OY:LOCATEX,Y,CL:COLOR7:PLOTX,Y:OX=X:OY=Y
470IFTR=0THENTR=10000
480SU=SU+11:SOUND0,SU,8,10:Y=Y+1:IFY<24THEN460
490IFY<24THEN460
500FORT=16TO0STEP-1:POSITIONT,23:?#6;"":IFT<=XTHENCOLOR7:PLOTT,23
510FORTT=14TO0STEP-0.5:SOUND0,20,10,TT:NEXTTT:NEXTT
520COLOR32:PLOT0,23:DRAWTO19,23:MN=MN-1:POSITION17,22:?#6;MN:IFMN=-1THEND=0:GOTO1130
530X=0:Y=0:OX=0:OY=0:CL=32:DTH=0:CT=30:GOTO80
540SC=SC+TR:TR=10000:X=0:OX=0:Y=0:OY=0:CL=32:RR=255:BR=138:PD=9
550IFLL=2THEN670
560GOSUB60:SOUND0,0,0,0:D=0
570IFLL=1THEN630
580IFLL=3THEN1110
590SB=SR
600A=PEEK(SB+D):POKESB+D,PEEK(SB+(19-D)):POKESB+(19-D),A:D=D+1:IFD=10THENSB=SB+20:D=0
610POKE712,INT(RND(0)*256):LL=1:IFSB<SR+400THEN600
620D=0:GOSUB710:POKE712,0:GOTO80
630C=0:LL=2
640SB=SR:FORA=0TO19:G=PEEK(SB+C+A):POKESB+C+A,PEEK(SB+A+(400-C)):POKESB+A+(400-C),G:NEXTA
650POKE712,INT(RND(0)*256):C=C+20:IFC<201THEN640
660GOTO620
670POSITION0,0:?#6;"":?#6;"preparefortheultimatechalllenge":LL=3
680FORT=0TO250:SOUND0,T,8,10:SOUND0,250-T,8,10:NEXTT:SOUND0,0,0,0:COLOR32
690POSITION0,0:FORT=0TO19:?#6;"";:NEXTT:FORT=1TO19STEP3:PLOTT,0:DRAWTOT,19
700NEXTT:GOTO620
710COLORBR:PLOT8,19:DRAWTO8,20:DRAWTO10,20:DRAWTO10,19
720COLORPD:PLOT9,17:POSITION0,21:?#6;"sc0tm"
730?#6;"";MN:RETURN
740IFTM=255THENFP=FP+1:SC=SC+(10*CT):POSITION9,19:?#6;FP:TM=0:FLAG=255:IFFP=5THENFP=0:GOTO540
750CT=30:COLOR138:GOSUB440:GOTO140
760FORT=0TO255:SOUND0,T,10,10:NEXTT:GOTO760
770DATA4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
780DATA200,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
790DATA200,0,67,0,4,0,4,0,0,0,0,0,0,0,4,0,4,4,200,4
800DATA200,0,0,0,0,4,0,0,67,0,0,0,0,0,0,4,0,0,200,0
810DATA200,0,0,0,0,0,4,0,0,0,0,0,0,4,0,0,0,0,67,0
820DATA0,0,0,0,67,0,0,4,133,133,0,4,0,0,0,0,0,0,0,67
830DATA200,0,200,0,0,0,0,0,133,133,0,0,0,0,200,67,67,0,67,0
840DATA200,0,200,0,0,0,0,0,133,133,0,0,0,0,200,0,0,0,0,0
850DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,200,0,0
860DATA200,0,0,67,0,4,4,0,4,4,0,4,4,67,0,67,0,200,0,0
870DATA200,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,200,0,133
880DATA200,0,0,0,0,0,0,200,0,0,133,133,133,0,0,0,0,133,67,0
890DATA0,67,67,67,4,67,0,200,0,4,133,133,133,0,0,133,67,0,0,133
900DATA0,0,0,0,0,0,0,200,0,0,133,133,133,0,67,0,0,133,67,0
910DATA0,67,0,67,67,67,0,67,0,67,0,0,0,0,0,133,67,0,0,133
920DATA200,0,0,0,0,0,0,0,0,0,0,0,0,0,67,0,0,133,67,0
930DATA0,67,67,67,0,67,0,0,0,0,200,0,0,0,0,133,67,0,0,0
940DATA200,0,0,0,0,0,0,4,0,0,0,0,0,0,67,0,200,0,133,133
950DATA0,0,133,133,133,133,0,0,0,0,0,0,4,0,0,0,200,0,133,133
960DATA200,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
970DATA4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
980DATA0,0,0,0,0,0,0,0
990DATA56,60,16,122,184,44,68,102
1000DATA28,60,8,94,29,52,34,102
1010DATA255,0,126,0,60,0,24,0
1020DATA255,195,102,60,60,102,195,255
1030DATA170,85,170,85,170,85,170,85
1040DATA90,90,66,60,24,60,36,102
1050DATA102,36,60,24,60,66,90,24
1060DATA66,126,66,36,66,126,66,36
1070DATA255,90,165,90,195,102,60,24
1080DATA119,0,221,0,119,0,221,0
1090DATA36,102,195,24,24,195,102,36
1100DATA255,129,129,129,129,129,129,255
1110GRAPHICS1+16:?#6;"YOUMADEIT":POSITION2,10:?#6;""
1120FORT=0TO250:SOUND0,T,10,10:SOUND1,250-T,10,10:NEXTT:SOUND0,0,0,0:SOUND1,0,0,0
1130GRAPHICS18:?#6;"game":POSITION2,3:?#6;"over":POSITION4,5:?#6;":";SC
1140POSITION0,7:?#6;"PRESS":?#6;"":?#6;"TO":?#6;""
1150POKE709,PEEK(709)+1:IFPEEK(709)=255THENPOKE709,0
1160IFPEEK(53279)<>6THEN1150
1170CLR:GOTO20
1180GRAPHICS8:SETCOLOR2,0,0:SETCOLOR1,0,14
1190DIMA$(40):A$="ENVIRONMENT-X"
1200SR=PEEK(88)+256*PEEK(89):I=1
1210L=ASC(A$(I,I))-32:BT=SR+(40*(10+I*4))+I
1220FORTT=0TO7:OT=TT*4:FORT=1TO4:POKEBT+((OT+T)*40),PEEK(57344+L*8+TT):NEXTT:NEXTTT
1230I=I+2:IFI<=LEN(A$)THEN1210
1240COLOR1:POKE765,1:PLOT0,0:DRAWTO319,130:DRAWTO319,159:POSITION1,1:XIO18,#6,0,0,"S:"
1250FORT=50TO159STEP2:PLOT0,T:DRAWTO320-T*2,159:NEXTT
1260?"Presstobegin."
1270IFPEEK(53279)<>6THENGOTO1270
1280CLR:GOTO20	

• Download link 1

• Download link 1
• Download link 2