126 Evolution 3
810 FOR F=1 TO 3:LOCATE X+1,Y+1:PRINT CH R$(236);:LOCATE U+1,V+1:PRINT CHRS(22);C HRS(1);ES;CHRS(22);CHRS(0);
820 V=V-(MIDS(CS,C,1)="S")+(MIDS(C$,C,1) ="N"):U=U-(MIDS(CS,C,1)="E")+(MIDS(CS,C, 1)="W")
830 ES="":IF MIDS(CS,C,1)="S" THEN ES=E$ +CHRS(233)
840 IF MIDS(CS,C,1)="N" THEN ES=ES+CHRS(
231) 
850 IF MIDS(CS,C,I)="E" THEN ES=ES+CHRS(
232) 
860 IF MIDS(CS,C,1)="W" THEN E$=E$+CHR$( 234)
870 IF V=-1 THEN V=20
880 IF V=21 THEN V=0
890 IF U=-1 THEN U=31
900 IF U=32 THEN U=0
910 IF V=Y2 THEN IF U=X2 THEN GOTO 123 0
920 LOCATE U+1,V+1:PRINT ES;
930 C=C+1:IF C<51 THEN IF MIDS(CS,C,I)<> "N" AND MIDS(CS,C,1)<>"W" AND MIDS(CS,C, 1)<>"E" AND MIDS(CS,C,1)<>"S" THEN C=1:6 OTO 990
940 IF C=51 THEN GOTO 990
950 FOR IX=10 TO 20:SOUND 1,(IX*3),3:NEX T
960 NEXT F
970 GOSUB 690
980 GOTO 810
990 LOCATE U+1,V+1:PRINT ES;
1000 C=1:V=Y:U=X
1010 GOTO 530
1020 LOCATE 1,22:PRINT CHRS(20);:LOCATE 1,23:PEN 3:PRINT CHRS(24);"	YOU HAVE
BEEN DESTROYED	";CHRS(24);:PEN 1
1030 IF INKEYS<>"" THEN 1030
1040 FOR F=1 TO 20:LOCATE X+1,Y+I:PRINT CHRS(143);:SOUND 1,(F*4),3:NEXT:LOCATE 1 , 24: INPUT"WANT ANOTHER GO? (Y/N)";FS:FS= UPPERS (FS)
1050 IF LEFTS(FS,1)="N" THEN STCP
1060 LOCATE 1,23:PRINT CHRS(23);