Atari 8-bit Source code

1REMPROGRAMBYRUSSELLAGILL
2REMTHISPROGRAMWASORIGINALLYIN
3REMANLOGMAG.ITHASBEENEXTENSIVELYMODIFIED.
4REMMODIFIEDMAY-JULY1981
10REMMAZERIDER
50GOSUB5000:GOSUB4000:?"GENERATINGMAZENOW"
80XC=INT(RND(0)*((WIDTH-3)/2))*2+3
85YC=INT(RND(0)*((LENGTH-3)/2))*2+3
90EX=XC:EY=YC
95SETCOLOR1,0,14
100COLOR2:PLOTXC,YC:COLOR1
110LNG=INT(RND(0)*3)*2+2
120DIR=INT(RND(0)*4)
130S=(DIR=0)-(DIR=1)
140T=(DIR=2)-(DIR=3)
180FORI=2TOLNGSTEP2
190LOCATEXC+S*I,YC+T*I,P
200IFPANDI=2THENPOP:GOTO110
210IFPTHENPOP:LNG=2:GOTO130
220NEXTI:XC=XC+S*LNG:YC=YC+T*LNG
225IFPNTR>PMAXTHENPMAX=PNTR:MX=XC:MY=YC:MS=S:MT=T
230DRAWTOXC,YC:STR=STR+1:PNTR=PNTR+1
233IFPMAX=96THENPMAX=0:PNTR=30
234IFSTR>STRMAXTHENSTR=100
235SOUND0,D2-PNTR*8,10,8
240POKEXPNT+STR,XC
250POKEYPNT+STR,YC
290GOSUB500:IFPTHEN300
295SOUND0,D2-PNTR*8,10,2:GOTO110
300XC=PEEK(XPNT+STR)
305YC=PEEK(YPNT+STR)
310PNTR=PNTR-1:STR=STR-1:GOSUB500
315SOUND0,D2-PNTR*8,10,8
320IFPANDSTRTHEN300
325POKE77,Z:SOUND0,D2-PNTR*8,10,2
330PLOTXC,YC:IFSTRTHEN110
340COLOR3:PLOTMX,MY:COLOR1
350MAP=ADR(MAP$):IF1-EXTRATHEN390
360FORI=1TOEXTRANO
370XC=INT(RND(0)*(WIDTH-4))+3:YC=INT(RND(0)*(LENGTH-4))+3:IFINT((XC+YC)/2)=(XC+YC)/2THEN370
380PLOTXC,YC:NEXTI
390?"STORINGMAZENOW":SOUND0,0,0,0:FORY=1TOLENGTH
400FORX=1TOWIDTH:LOCATEX,Y,P
410POKEMAP+(Y*(WIDTH+1))+X,P:NEXTX:NEXTY
430S=-MS:T=-MT:MS=0:FORI=0TO6:READX:POKEXPNT+I,X:NEXTI:P3=0
440YPNT=XPNT+8:POKEYPNT-1,79:FORI=0TO6:POKEYPNT+I,79-(PEEK(XPNT+I)+PEEK(XPNT+I-1))/4:NEXTI
450POKE18,0:POKE19,0:POKE20,0:GOTO1000
500LOCATEXC+2,YC,P1
510LOCATEXC-2,YC,P2
520LOCATEXC,YC+2,P3
530LOCATEXC,YC-2,P4
540P=P1ANDP2ANDP3ANDP4:RETURN
600P1=0:GRAPHICS7:SETCOLOR1,0,14:POKE752,1:?:?"YOUARELOOKING";A$
610FORYC=0TO6:P2=NR(1,YC):IFP2=2THENGOSUB670
612IFNOTP2THENPOP:GOTO670
615X1=P1:X2=PEEK(XPNT+YC):P1=X2
620IFFEETANDYCTHENIFP2=3ANDNR(1,YC-1)=3THENPLOT79,PEEK(YPNT+YC-1):DRAWTO79,PEEK(YPNT+YC)
630FORXC=0TO2STEP2:IFXCTHENX1=158-X1:X2=158-X2
635XD1=X1/2:XD2=X2/2:IFNR(XC,YC)THEN650
640PLOTX1,XD1:DRAWTOX2,XD2:PLOTX1,79-XD1:DRAWTOX2,79-XD2:GOTO655
650PLOTX1,XD1:DRAWTOX1,79-XD1:PLOTX1,XD2:DRAWTOX2,XD2:PLOTX1,79-XD2:DRAWTOX2,79-XD2
652IFNR(1,YC+1)THENDRAWTOX2,XD2
654GOTO660
655P2=NR(1,YC+1):IFP2=0ORP2=2THENDRAWTOX2,XD2
660IFFEETTHENIFYCANDNR(XC,YC)=3THENPLOT79,PEEK(YPNT+YC):DRAWTOX1,PEEK(YPNT+YC)
665NEXTXC:NEXTYC:IFNOTNR(1,7)THENIFNR(0,6)ORNR(2,6)THENPLOT79,39:PLOT79,40
668RETURN
670PLOTX2,XD2:DRAWTO159-X2,XD2:PLOTX2,79-XD2:DRAWTO159-X2,79-XD2:RETURN
1000SOUND1,250,2,SND*4:COLOR1:MAP=ADR(MAP$):IFT<>1THEN1020
1015FORXC=-1TO1:FORYC=0TO7:NR(XC+1,YC)=PEEK(MAP+(MY+YC)*(WIDTH+1)+MX-XC):NEXTYC:NEXTXC:A$="SOUTH":GOTO1050
1020IFT<>-1THEN1030
1025FORXC=-1TO1:FORYC=0TO7:NR(XC+1,YC)=PEEK(MAP+(MY-YC)*(WIDTH+1)+MX+XC):NEXTYC:NEXTXC:A$="NORTH":GOTO1050
1030IFS<>-1THEN1040
1035FORXC=-1TO1:FORYC=0TO7:NR(XC+1,YC)=PEEK(MAP+(MY-XC)*(WIDTH+1)+MX-YC):NEXTYC:NEXTXC:A$="WEST":GOTO1050
1040IFS<>1THEN1050
1045FORXC=-1TO1:FORYC=0TO7:NR(XC+1,YC)=PEEK(MAP+(MY+XC)*(WIDTH+1)+MX+YC):NEXTYC:NEXTXC:A$="EAST"
1050GOSUB600:POKE77,0
1060GOTO5100
1061IFP3<RGTHENGOTO1063
1062SOUND0,50,12,6:?"YOUONLYGET";RG;"LOOKS":FORI=1TO100:NEXTI:?"DOYOUWANTTOCONTINUE?":GOTO5081
1063GOSUB4000:P3=P3+1:SETCOLOR1,0,14:?"CHECKINGMAZEMAP#";P3:GOSUB3000
1064FORX=1TORG*RG+1:FORP=1TO4:FORI=1TO10:NEXTI:COLORP:PLOTMX,MY:NEXTP:NEXTX:SOUND0,0,0,0:GOTO1000
1065SOUND0,0,0,0:P=STICK(0):IFP=15ORP=5ORP=6ORP=9ORP=10THEN1060
1070IFP=14THENMX=MX+S:MY=MY+T:SOUND0,170,6,SND*6:IFNOTPEEK(MAP+MY*(WIDTH+1)+MX)THENMX=MX-S:MY=MY-T:P=0
1080IFP=13THENMX=MX-S:MY=MY-T:SOUND0,120,6,SND*6:IFNOTPEEK(MAP+MY*(WIDTH+1)+MX)THENMX=MX+S:MY=MY+T:P=0
1090IFP=7ORP=11THENP1=S:S=-T:T=P1
1100IFP=11THENS=-S:T=-T
1110IFP=0THEN?"CRASH!!BANG!!":FORP=15TO0STEP-1:SOUND0,120,12,P:FORI=1TO5:NEXTI:NEXTP:B=B+1:MS=0
1120I=MAP+MY*(WIDTH+1)+MX:IFPEEK(I)=2THEN2000
1130POKEI,3:IFPTHEN1000
1140GOTO1060
2000SOUND1,0,0,0:SOUND0,0,0,0:SEC=INT((PEEK(20)+PEEK(19)*256+PEEK(18)*65536)/60):?"YOUAREFREE"
2005?"YOUAREFREE"
2010?"YOUAREFREE"
2012FORWAIT=1TO400:NEXTWAIT:GOSUB30000
2015FORI=1TO100:NEXTI:?"DOYOUWANTTOSEETHEFINALSTATUS?":GET#1,A:IFCHR$(A)<>"Y"THEN2022
2020GOSUB4000:?"***YOURFINALMAP***":GOSUB3000:GOSUB10000
2021?#6;"PRESSforanother":?#6;"game":GET#1,A:GOTO2025
2022GOSUB10000:?#6;"PRESSforanother":?#6;"game":GET#1,A
2025IFCHR$(A)="Y"THENCLOSE#1:CLR:GOTO1
2030POKE752,0:GRAPHICS0:SETCOLOR2,0,0:END
3000MAP=ADR(MAP$):FORY=3TOLENGTH-2:FORX=3TOWIDTH-2:COLORPEEK(MAP+Y*(WIDTH+1)+X)
3010SOUND0,SNDVAL-Y*SNDINC-X,10,6:PLOTX,Y:NEXTX:NEXTY
3020SOUND0,0,0,0:RETURN
4000GRAPHICSRG:COLOR1:PLOT1,1:DRAWTOWIDTH,1:DRAWTOWIDTH,LENGTH:DRAWTO1,LENGTH:DRAWTO1,1:POKE752,1:RETURN
5000GRAPHICS2:SETCOLOR1,0,14:SETCOLOR2,0,0:?#6:?#6;"/MAZERIDER\":?#6:OPEN#1,4,0,"K:"
5002DP=96:D2=DP*8
5003DIMA$(5),C$(1),NR(2,7)
5004B=0:POKE752,1
5010?#6:?#6:?#6;"ANALOG400/800":?#6;"rgillMODIFIED"
5015?"DOYOUWANTTOSEEDIRECTIONS":?"Y/N???":GET#1,A
5020IFCHR$(A)="Y"THENGOSUB12000
5030GRAPHICS1+16:SETCOLOR1,0,14
5042GOSUB5085:GET#1,A:IFCHR$(A)<>"B"THENGOTO5045
5043WIDTH=39:LENGTH=19:RG=3:DIMMAP$(800):SNDVAL=290:SNDING=14:STRMAX=100
5044DIMSTOR$(200):XPNT=ADR(STOR$):YPNT=XPNT+100:GOTO5050
5045IFCHR$(A)<>"P"THENGOTO5048
5046WIDTH=79:LENGTH=39:RG=5:DIMMAP$(3200):SNDVAL=265:SNDING=5:STRMAX=300
5047DIMSTOR$(600):XPNT=ADR(STOR$):YPNT=XPNT+300:GOTO5050
5048?#6;"THISWILLTAKESOMETIME":RUN"D:MAZE2"
5050?#6;"":?#6;"DOYOUWANT":?#6:?#6;"PASSAGES(y/n)":GET#1,A
5055IFCHR$(A)="Y"THENEXTRA=1:EXTRANO=(WIDTH+LENGTH-8)/2
5057?#6;"DOYOUWANTA":?#6:?#6;"(y/n)":GET#1,A:IFCHR$(A)="Y"THENFEET=1
5060?#6;"":?#6;"DOYOUWANTTO":?#6:?#6;"SEETHE(y/n)":GET#1,A
5065?#6;"":IFCHR$(A)="Y"THEN?#6;"";RG;"":MAPSW=1:FORWAIT=1TO400:NEXTWAIT
5070?#6;"":?#6;"DOYOUWANT":?#6:?#6;"(y/n)":GET#1,A:IFCHR$(A)="Y"THENSND=1
5080RETURN
5081GET#1,A:IFCHR$(A)="Y"THEN?:?:?"OKTHENCONTINUE":GOTO1065
5082SOUND1,0,0,0:SOUND0,0,0,0:SEC=0:GOTO2015
5085?#6:?#6:?#6:?#6;"DOYOUWANTA"
5090?#6:?#6;"BEGINNERS(b)GAME?"
5091?#6:?#6;"PROS(p)GAME?"
5095?#6:?#6;"ORSUPERSTAR(s)GAME"
5099RETURN
5100IFSTRIG(0)THENGOTO1065
5110IFMAPSW<>0THEN1061
5115SOUND0,50,12,6:?"YOUDON'TGETTOLOOKATTHEMAP"
5120?:?"DOYOUWANTTOCONT?"
5130GOTO5081
6000DATA0,28,46,60,68,74,78
10000?"PRESSANYKEYTOCONT":GET#1,A
10001GRAPHICS1:SETCOLOR1,0,14
10005GOSUB10600
10006IFSEC=0THEN11000
10010IFRG<>3THEN10200
10020IFSEC<=180THEN10100
10030IFSEC>1200THEN?#6:?#6;"WHATHAPPENEDYOU":?#6:?#6;"FALLASLEEP":GOTO11000
10040IFSEC>600THEN?#6:?#6;"YOUAREAbeginner":?#6:?#6;"ONGAME":GOTO11000
10050IFSEC>250THEN?#6:?#6;"YOUAREApro":?#6:?#6;"ONGAME":GOTO11000
10060?#6:?#6;"YOUAREAsuperstar":?#6:?#6;"ONGAME":?#6:?#6;"TRYAONE":GOTO11000
10100IFFEET=1ANDEXTRA=1THEN?#6;"TRYITWITHOUTTHE":?#6:?#6;"NEXTTIME":GOTO10060
10110IFFEET=1ANDEXTRA=0THEN?#6;"TRYITWITH":?#6:?#6;"NEXTTIME":GOTO10060
10120IFFEET=1ANDEXTRA=0THEN?#6;"TRYITWITH":?#6:?#6;"NEXTTIME":GOTO10060
10124IFP3>1THEN?#6;"USETHE":?#6;"mapNEXTTIME":GOTO10060
10130GRAPHICS0:POKE752,1:SETCOLOR2,0,0:POSITION18,10:?"WOW!":FORWAIT=1TO50:NEXTWAIT
10140GRAPHICS17:SETCOLOR2,0,0:POSITION8,10:?#6;"WOW!":FORWAIT=1TO100:NEXTWAIT
10150GRAPHICS18:SETCOLOR2,0,0:SETCOLOR1,0,14:POSITION8,5:?#6;"!":FORWAIT=1TO400:NEXTWAIT:POKE752,0
10160GRAPHICS1:SETCOLOR2,0,0:?#6:?#6;"TRYTHEGAME":GOTO11000
10200IFRG<>5THEN10400
10220IFSEC<=300THEN10300
10230IFSEC>1500THEN?#6:?#6;"WHATHAPPENEDYOU":?#6:?#6;"FALLASLEEP":GOTO11000
10240IFSEC>840THEN?#6:?#6;"YOUAREAbeginner":?#6:?#6;"ONTHEGAME":GOTO11000
10250IFSEC>500THEN?#6:?#6;"YOUAREApro":?#6:?#6;"ONTHEGAME":GOTO11000
10260?#6:?#6;"YOUAREAsuperstar":?#6:?#6;"ONTHEGAME":?#6:?#6;"TRYAONE":GOTO11000
10300IFFEET=1ANDEXTRA=1THEN?#6;"TRYITWITHOUTTHE":?#6:?#6;"NEXTTIME":GOTO10260
10310IFFEET=1ANDEXTRA=0THEN?#6;"TRYITWITH":?#6:?#6;"NEXTTIME":GOTO10260
10320IFFEET=1ANDEXTRA=0THEN?#6;"TRYITWITH":?#6:?#6;"NEXTTIME":GOTO10260
10324IFP3>1THEN?#6;"USETHE":?#6;"mapNEXTTIME":GOTO10260
10330GRAPHICS0:POKE752,1:SETCOLOR2,0,0:POSITION18,10:?"WOW!":FORWAIT=1TO50:NEXTWAIT
10340GRAPHICS17:SETCOLOR2,0,0:POSITION8,10:?#6;"WOW!":FORWAIT=1TO100:NEXTWAIT
10350GRAPHICS18:SETCOLOR2,0,0:SETCOLOR1,0,14:POSITION8,5:?#6;"!":FORWAIT=1TO400:NEXTWAIT:POKE752,0
10360GRAPHICS1:SETCOLOR2,0,0:?#6:?#6;"TRYGAME":GOTO11000
10400RETURN
10600IFSEC=0THENGRAPHICS2:?#6:?#6;"BETTERLUCK":?#6:?#6;"NEXTTIME!!!!!":RETURN
10610IFMAPSW=1THENSEC=SEC+5
10620SEC=SEC+B*5
10630IFRG=3THENSEC=SEC+P3*15
10640IFRG=5THENSEC=SEC+P3*7
10660IFEXTRA=1ANDFEET=1THENSEC=SEC+30
10670IFEXTRA=0ANDFEET=1THENSEC=SEC+10
10680IFEXTRA=1ANDFEET=0THENGOSUB10750
10690IFEXTRA=0ANDFEET=0THENGOSUB10850
10700RETURN
10750IFRG=3ANDP3<=1THENSEC=SEC-60:RETURN
10760IFRG=3THENSEC=SEC-20:RETURN
10770IFRG=5ANDP3<=2THENSEC=SEC-90:RETURN
10780SEC=SEC-30:RETURN
10850IFRG=3THENSEC=SEC-20
10860IFRG=5THENSEC=SEC-30
10880RETURN
11000?"PRESSANYKEYTOCONTINUE":GET#1,A:RETURN
12000GRAPHICS0:SETCOLOR2,0,0:POKE752,1
12010?""
12020?"Plugajoystickintothefirst"
12030?"position."
12033?""
12035?"TheOBJECTofthegameistogo"
12040?"thrutheMAZEasquicklyaspossible"
12045?""
12050?"Thereare3differentlevels"
12060?"BEGINNERSwithasmallmaze;PROwith"
12070?"alargermazeandSUPERSTARwiththe"
12080?"largestmaze."
12085?""
12090?"YoumaylookatamapoftheMAZE"
12100?"wheneveryouwant(uptothemaximum)"
12110?"bypushingthefirebuttononthe"
12120?"joystick."
12125?""
12130?"WhenyouhavefinishedtheMAZE"
12140?"youwillrankedasaBEGINNERPRO"
12150?"SUPERSTARorWOW!dependingonyour"
12160?"speedthrutheMAZE."
12162?""
12165?"PUSHKEYTOCONTINUE":GET#1,A
12167?""
12170?"SCORINGisdonebasedupontime."
12175?""
12180?"TIMEwillbeedtoyourtimeif"
12190?"(1)youbumpintoawall"
12200?"(2)youlookatthemap"
12210?"(3)youleaveatrail"
12215?"":?""
12220?"TIMEwillbeedifyou"
12230?"(1)doNOTleaveatrail"
12235?"":?""
12240?"Youmovefoward/backwardby"
12250?"movingthejoystickfowardorback."
12260?"Youturnrightorleftbymovingthe"
12270?"joystickrightorleft."
12275?"":?""
12280?""
12282?"":?""
12285?"PUSHKEYTOCONTINUE":GET#1,A
12290RETURN
30000GRAPHICS7:C=1
30020SETCOLOR1,0,14
30030SETCOLOR0,4,4
30035TONE=250
30040FORI=0TO12:COLORC
30050FORJ=0TO5:PLOT0,I*6+J
30052SOUND0,TONE,10,10
30060DRAWTO159,I*6+J:NEXTJ
30070C=C+1:IFC=3THENC=1
30075TONE=TONE-15
30080NEXTI:COLOR3:FORI=0TO41
30090PLOT0,I:DRAWTO79,I:NEXTI
30092SOUND0,0,0,0
30094TONE=3
30100GOSUB30110
30105RETURN
30110COLOR2:K=0:FORI=0TO8:FORJ=0TO4
30120X=K+5+J*14:Y=4+I*4:GOSUB30160
30125NEXTJ:IFK<>0THEN30150
30130X=5+5*14:Y=4+I*4:GOSUB30160
30140K=7:GOTO30155
30150K=0
30155NEXTI:RETURN
30160PLOTX-1,Y:DRAWTOX+1,Y
30170PLOTX,Y-1:DRAWTOX,Y+1
30171TONE=TONE+5
30172SOUND1,TONE,10,12
30174FORWAIT=1TO10:NEXTWAIT
30176SOUND1,0,0,0
30180RETURN	

1REMPROGRAMBYRUSSELLAGILL
2REMTHISPROGRAMWASORIGINALLYIN
3REMANLOGMAG.ITHASBEENEXTENSIVELYMODIFIED.
4REMMODIFIEDMAY-JULY1981
10REMMAZERIDER
50GOSUB5000:GOSUB4000:?"GENERATINGMAZENOW"
80XC=INT(RND(0)*((WIDTH-3)/2))*2+3
85YC=INT(RND(0)*((LENGTH-3)/2))*2+3
90EX=XC:EY=YC
95SETCOLOR1,0,14
100COLOR2:PLOTXC,YC:COLOR1
110LNG=INT(RND(0)*8)*2+2
120DIR=INT(RND(0)*4)
130S=(DIR=0)-(DIR=1)
140T=(DIR=2)-(DIR=3)
180FORI=2TOLNGSTEP2
190LOCATEXC+S*I,YC+T*I,P
200IFPANDI=2THENPOP:GOTO110
210IFPTHENPOP:LNG=2:GOTO130
220NEXTI:XC=XC+S*LNG:YC=YC+T*LNG
225IFPNTR>PMAXTHENPMAX=PNTR:MX=XC:MY=YC:MS=S:MT=T
230DRAWTOXC,YC:STR=STR+1:PNTR=PNTR+1
233IFPMAX=96THENPMAX=0:PNTR=30
234IFSTR>STRMAXTHENSTR=100
240POKEXPNT+STR,XC
250POKEYPNT+STR,YC
290GOSUB500:IFPTHEN300
295SOUND0,D2-PNTR*8,10,2:GOTO110
300XC=PEEK(XPNT+STR)
305YC=PEEK(YPNT+STR)
310PNTR=PNTR-1:STR=STR-1:GOSUB500
320IFPANDSTRTHEN300
325POKE77,Z:SOUND0,D2-PNTR*8,10,2
330PLOTXC,YC:IFSTRTHEN110
340COLOR3:PLOTMX,MY:COLOR1
345?"STARTINGLOCATIONISX=";MX;"Y=";MY
350MAP=ADR(MAP$):IF1-EXTRATHEN390
360FORI=1TOEXTRANO
370XC=INT(RND(0)*(WIDTH-4))+3:YC=INT(RND(0)*(LENGTH-4))+3:IFINT((XC+YC)/2)=(XC+YC)/2THEN370
380PLOTXC,YC:NEXTI
390?"STORINGMAZENOW":SOUND0,0,0,0:FORY=1TOLENGTH
400FORX=1TOWIDTH:LOCATEX,Y,P
410POKEMAP+(Y*(WIDTH+1))+X,P:NEXTX:NEXTY
430S=-MS:T=-MT:MS=0:FORI=0TO6:READX:POKEXPNT+I,X:NEXTI:P3=0
440YPNT=XPNT+8:POKEYPNT-1,79:FORI=0TO6:POKEYPNT+I,79-(PEEK(XPNT+I)+PEEK(XPNT+I-1))/4:NEXTI
450POKE18,0:POKE19,0:POKE20,0:GOTO1000
500LOCATEXC+2,YC,P1
510LOCATEXC-2,YC,P2
520LOCATEXC,YC+2,P3
530LOCATEXC,YC-2,P4
540P=P1ANDP2ANDP3ANDP4:RETURN
600P1=0:GRAPHICS7:SETCOLOR1,0,14:POKE752,1:?:?"YOUARELOOKING";A$
610FORYC=0TO6:P2=NR(1,YC):IFP2=2THENGOSUB670
612IFNOTP2THENPOP:GOTO670
615X1=P1:X2=PEEK(XPNT+YC):P1=X2
620IFFEETANDYCTHENIFP2=3ANDNR(1,YC-1)=3THENPLOT79,PEEK(YPNT+YC-1):DRAWTO79,PEEK(YPNT+YC)
630FORXC=0TO2STEP2:IFXCTHENX1=158-X1:X2=158-X2
635XD1=X1/2:XD2=X2/2:IFNR(XC,YC)THEN650
640PLOTX1,XD1:DRAWTOX2,XD2:PLOTX1,79-XD1:DRAWTOX2,79-XD2:GOTO655
650PLOTX1,XD1:DRAWTOX1,79-XD1:PLOTX1,XD2:DRAWTOX2,XD2:PLOTX1,79-XD2:DRAWTOX2,79-XD2
652IFNR(1,YC+1)THENDRAWTOX2,XD2
654GOTO660
655P2=NR(1,YC+1):IFP2=0ORP2=2THENDRAWTOX2,XD2
660IFFEETTHENIFYCANDNR(XC,YC)=3THENPLOT79,PEEK(YPNT+YC):DRAWTOX1,PEEK(YPNT+YC)
665NEXTXC:NEXTYC:IFNOTNR(1,7)THENIFNR(0,6)ORNR(2,6)THENPLOT79,39:PLOT79,40
668RETURN
670PLOTX2,XD2:DRAWTO159-X2,XD2:PLOTX2,79-XD2:DRAWTO159-X2,79-XD2:RETURN
1000SOUND1,250,2,SND*4:COLOR1:MAP=ADR(MAP$):IFT<>1THEN1020
1015FORXC=-1TO1:FORYC=0TO7:NR(XC+1,YC)=PEEK(MAP+(MY+YC)*(WIDTH+1)+MX-XC):NEXTYC:NEXTXC:A$="SOUTH":GOTO1050
1020IFT<>-1THEN1030
1025FORXC=-1TO1:FORYC=0TO7:NR(XC+1,YC)=PEEK(MAP+(MY-YC)*(WIDTH+1)+MX+XC):NEXTYC:NEXTXC:A$="NORTH":GOTO1050
1030IFS<>-1THEN1040
1035FORXC=-1TO1:FORYC=0TO7:NR(XC+1,YC)=PEEK(MAP+(MY-XC)*(WIDTH+1)+MX-YC):NEXTYC:NEXTXC:A$="WEST":GOTO1050
1040IFS<>1THEN1050
1045FORXC=-1TO1:FORYC=0TO7:NR(XC+1,YC)=PEEK(MAP+(MY+XC)*(WIDTH+1)+MX+YC):NEXTYC:NEXTXC:A$="EAST"
1050GOSUB600:POKE77,0
1060GOTO5100
1061IFP3<RGTHENGOTO1063
1062SOUND0,50,12,6:?"YOUONLYGET";RG;"LOOKS":FORI=1TO100:NEXTI:?"DOYOUWANTTOCONTINUE?":GOTO5081
1063GOSUB4000:P3=P3+1:SETCOLOR1,0,14:?"CHECKINGMAZEMAP#";P3:GOSUB3000
1064FORX=1TORG+RG+1:FORP=1TO4:FORI=1TO10:NEXTI:COLORP:PLOTMX,MY:NEXTP:NEXTX:SOUND0,0,0,0:GOTO1000
1065SOUND0,0,0,0:P=STICK(0):IFP=15ORP=5ORP=6ORP=9ORP=10THEN1060
1070IFP=14THENMX=MX+S:MY=MY+T:SOUND0,170,6,SND*6:IFNOTPEEK(MAP+MY*(WIDTH+1)+MX)THENMX=MX-S:MY=MY-T:P=0
1080IFP=13THENMX=MX-S:MY=MY-T:SOUND0,120,6,SND*6:IFNOTPEEK(MAP+MY*(WIDTH+1)+MX)THENMX=MX+S:MY=MY+T:P=0
1090IFP=7ORP=11THENP1=S:S=-T:T=P1
1100IFP=11THENS=-S:T=-T
1110IFP=0THEN?"CRASH!!BANG!!":FORP=15TO0STEP-1:SOUND0,120,12,P:FORI=1TO5:NEXTI:NEXTP:B=B+1:MS=0
1120I=MAP+MY*(WIDTH+1)+MX:IFPEEK(I)=2THEN2000
1130POKEI,3:IFPTHEN1000
1140GOTO1060
2000SOUND1,0,0,0:SOUND0,0,0,0:SEC=INT((PEEK(20)+PEEK(19)*256+PEEK(18)*65536)/60):?"YOUAREFREE"
2005?"YOUAREFREE"
2010?"YOUAREFREE"
2012FORWAIT=1TO400:NEXTWAIT:GOSUB30000
2015FORI=1TO100:NEXTI:?"DOYOUWANTTOSEETHEFINALSTATUS?":GET#1,A:IFCHR$(A)<>"Y"THEN2022
2020GOSUB4000:?"***YOURFINALMAP***":GOSUB3000:GOSUB10000:?"PRESSYforanothergame":GET#1,A:GOTO2025
2022GOSUB10000:?"PRESSYforanothergame":GET#1,A
2025IFCHR$(A)="Y"THENCLOSE#1:CLR:GOTO1
2030POKE752,0:GRAPHICS0:SETCOLOR2,0,0:END
3000SOUND0,0,0,0:MAP=ADR(MAP$):FORY=3TOLENGTH-2:FORX=3TOWIDTH-2:COLORPEEK(MAP+Y*(WIDTH+1)+X)
3010PLOTX,Y:NEXTX:NEXTY
3020SOUND0,0,0,0:RETURN
4000GRAPHICSRG:COLOR1:PLOT1,1:DRAWTOWIDTH,1:DRAWTOWIDTH,LENGTH:DRAWTO1,LENGTH:DRAWTO1,1:POKE752,1:RETURN
5000OPEN#1,4,0,"K:"
5002DP=96:D2=DP*8
5003DIMA$(5),C$(1),NR(2,7)
5004B=0
5040WIDTH=159:LENGTH=79:DIMMAP$(12800):SNDVAL=265:SNDING=1:STRMAX=1500:DIMSTOR$(3000)
5045RG=7:XPNT=ADR(STOR$):YPNT=XPNT+1500
5046GRAPHICS1+16:SETCOLOR1,0,14
5048?#6;"DOYOUWANT":?#6:?#6;"A?(y/n)":GET#1,A:IFCHR$(A)="Y"THENFEET=1
5050?#6;"":?#6;"DOYOUWANT":?#6:?#6;"PASSAGES(y/n)":GET#1,A
5055IFCHR$(A)="Y"THENEXTRA=1:EXTRANO=(WIDTH+LENGTH-8)/2
5060?#6;"":?#6;"DOYOUWANTTO":?#6:?#6;"SEETHE(y/n)":GET#1,A
5065?#6;"":IFCHR$(A)="Y"THEN?#6;"";RG;"":MAPSW=1:FORWAIT=1TO400:NEXTWAIT
5070?#6;"":?#6;"DOYOUWANT":?#6:?#6;"(y/n)":GET#1,A:IFCHR$(A)="Y"THENSND=1
5080RETURN
5081GET#1,A:IFCHR$(A)="Y"THEN?:?:?"OKTHENCONTINUE":GOTO1065
5082SOUND1,0,0,0:SOUND0,0,0,0:SEC=0:GOTO2015
5100IFSTRIG(0)THENGOTO1065
5110IFMAPSW<>0THEN1061
5115SOUND0,50,12,6:?"YOUDON'TGETTOLOOKATTHEMAP"
5120?:?"DOYOUWANTTOCONT?"
5130GOTO5081
6000DATA0,28,46,60,68,74,78
10000?"PRESSANYKEYTOCONT":GET#1,A
10001GRAPHICS1:SETCOLOR1,0,14
10005GOSUB10600
10006IFSEC=0THEN11000
10400IFSEC<=600THEN10500
10410IFSEC>2500THEN?#6:?#6;"WHATHAPPENEDYOU":?#6:?#6;"FALLASLEEP":GOTO11000
10420IFSEC>1200THEN?#6:?#6;"YOUAREAbeginner":?#6:?#6;"ONGAME":GOTO11000
10430IFSEC>850THEN?#6:?#6;"YOUAREApro":?#6:?#6;"ONGAME":GOTO11000
10440?#6:?#6;"YOUAREAsuperstar":?#6:?#6;"ONGAME":?#6:?#6;"TRYWITHOUTAIDS":GOTO11000
10500IFFEET=1ANDEXTRA=1THEN?#6;"TRYITWITHOUTTHE":?#6:?#6;"NEXTTIME":GOTO10440
10510IFFEET=1ANDEXTRA=0THEN?#6;"TRYITWITH":?#6:?#6;"NEXTTIME":GOTO10440
10520IFFEET=1ANDEXTRA=0THEN?#6;"TRYITWITH":?#6:?#6;"NEXTTIME":GOTO10440
10524IFP3>1THEN?#6;"USETHE":?#6;"mapNEXTTIME":GOTO10440
10530GRAPHICS0:POKE752,1:SETCOLOR2,0,0:POSITION18,10:?"WOW!":FORWAIT=1TO50:NEXTWAIT
10540GRAPHICS17:SETCOLOR2,0,0:POSITION8,10:?#6;"WOW!":FORWAIT=1TO100:NEXTWAIT
10550GRAPHICS18:SETCOLOR2,0,0:SETCOLOR1,0,14:POSITION8,5:?#6;"!":FORWAIT=1TO400:NEXTWAIT:POKE752,0
10560GRAPHICS1:SETCOLOR2,0,0:?#6:?#6;"YOUARETHE":GOTO11000
10600IFSEC=0THENGRAPHICS2:?#6:?#6;"BETTERLUCK":?#6:?#6;"NEXTTIME!!!!!":RETURN
10620SEC=SEC+B*5
10660IFEXTRA=1ANDFEET=1THENSEC=SEC+30
10670IFEXTRA=0ANDFEET=1THENSEC=SEC+10
10680IFEXTRA=1ANDFEET=0THENSEC=SEC-120
10690IFEXTRA=0ANDFEET=0THENSEC=SEC-40
10700RETURN
11000?"PRESSANYKEYTOCONTINUE":GET#1,A:RETURN
12275?"":?""
30000GRAPHICS7:C=1
30020SETCOLOR1,0,14
30030SETCOLOR0,4,4
30035TONE=250
30040FORI=0TO12:COLORC
30050FORJ=0TO5:PLOT0,I*6+J
30052SOUND0,TONE,10,10
30060DRAWTO159,I*6+J:NEXTJ
30070C=C+1:IFC=3THENC=1
30075TONE=TONE-15
30080NEXTI:COLOR3:FORI=0TO41
30090PLOT0,I:DRAWTO79,I:NEXTI
30092SOUND0,0,0,0
30094TONE=3
30100GOSUB30110
30105RETURN
30110COLOR2:K=0:FORI=0TO8:FORJ=0TO4
30120X=K+5+J*14:Y=4+I*4:GOSUB30160
30125NEXTJ:IFK<>0THEN30150
30130X=5+5*14:Y=4+I*4:GOSUB30160
30140K=7:GOTO30155
30150K=0
30155NEXTI:RETURN
30160PLOTX-1,Y:DRAWTOX+1,Y
30170PLOTX,Y-1:DRAWTOX,Y+1
30171TONE=TONE+5
30172SOUND1,TONE,10,12
30174FORWAIT=1TO10:NEXTWAIT
30176SOUND1,0,0,0
30180RETURN	

• Download link 1
• Download link 2

• Download link 1
• Download link 2