3001 FORE=1 TO NUMBER:L=INT(RND(1)*MS+1):PRINT@L,CHR$(ENEMY);:L(E)=L:NEXTE:RETURN
4000 REM
4001 Y=INT(L/40):X=L-Y*40:FOR E=1 TO NUMBER:Y2=INT(L(E)/40):X2=L(E)-Y2*40:X2=X2+SGN(X-X2):Y2=Y2+SGN(Y-Y2):NL=Y2*40+X2:IF PEEK(SCRN+NL)=PLAYER THEN 5000
4002 IF PEEK(SCRN+NL)<>EMPTY THENNL=L(E)+D(INT(RND(1)*4+1))
4003 IF NL>MSOR NL<1THEN4005
4004 IF PEEK(SCRN+NL)=EMPTY THEN PRINT@L(E)," ";:L(E)=NL:PRINT@NL,CHR$(ENEMY);
4005 NEXTE:RETURN
5000 REM
5001 PRINT@L(E)," ";:PRINT@NL,CHR$(ENEMY);:FOR I=1TO10:PRINT@NL," ";:SOUND INT(RND(1)*1000+500),3:PRINT@NL,CHR$(ENEMY);:SOUND INT(RND(1)*1000+500),3:NEXTI:FOR ZZ=1TO200:NEXT ZZ:FOR K=1TO6:PRINT@MS+20," You are Dead ";:SOUND T%(1,K*2-1),10
5002 PRINT@MS+20,CHR$(ESC);"p You are Dead ";CHR$(ESC);"q";:SOUND T%(1,K*2),10:NEXTK:IF PS<=HS THEN5005
5003 FOR Z=1TO11:SOUND T%(4,Z),10:NEXTZ:CLS:PRINT:PRINT"Contratulations!":PRINT"You Have Broken The High Score":FOR Z=1TO11:SOUND T%(3,Z),10:NEXTZ:PRINT:INPUT"Please Enter Your Name ";NM$:OPEN"SCORES.do" FOR OUTPUT AS 1:PRINT#1,PS:PRINT#1,NM$:CLOSE1:CLS
5004 PRINT@161,"The Historic Deed Has Been Recorded"
5005 PRINT@1," Game Over ";:PRINT@MS+1,"Hit Space Bar To Play, Enter To Stop";