Evolution 3 125
520 C=1
530 C$=STRING$(50,32):LOCATE 1,23:PEN 3: PRINT CHR$(24);" ENTER PROGRAM AFTER THE TONE. ";CHR$(24);:PEN 1
540 FOR F=1 TO 300:NEXT F:LOCATE 1, 22:P RINT CHR$(18);:SOUND 1,200,50,3,5
550 C1=C
560 REM PATH INPUT
570 0$="":FOR F=1 TO SK: IF 0$="" THEN 0$ =INKEY$:0$=UPPER$(0$)
580 NEXT F
590 IF 0$="N" THEN MID$(C$,C,1)="N":C=C+ 1
600 IF 0$="S" THEN MID$(C$,C,1)="S":C=C+ 1
610 IF 0$="W" THEN MID$(C$,C,1)="W":C=C+ 1
620 IF 0$="E" THEN MID$(C$,C,1)="E":C=C+ 1
630 IF 0$="F" OR C=51 THEN LOCATE 1,22:P RINT CHR$(18);:LOCATE 1,22::SOUND 1,160, 40,5,3:GOTO 790
640 IF C1=C THEN GOSUB 690:GOTO 550
650 LOCATE -(C-1)*(C<=32)-(C-32)*(C>=32 ),22:PRINT MID$(C$,C-1,1)
660 IF C=32 THEN LOCATE I,22:PRINT SPACE $(64)
670 SOUND 1,90,3
680 GOTO 550
690 LOCATE XI+1,Y1+1:PRINT CHR$ (22) ; CHR$ (1)0$;CHR$(22);CHR$(0);:LOCATE X2+1,Y2+ 1:PEN 3:PRINT CHR$(143);:PEN 1
700 IF Yl<Y THEN Y1=Y1+1:D$=CHR$(233) 710 IF Y1>Y THEN Y1=Y1-1:D$=CHR$(231) 720 IF XI<X THEN X1=X1+1:D$=CHR$(232) 730 IF X1>X THEN X1=X1-1:D$=CHR$(234) 740 LOCATE XI+1,Y1+1:PRINT CHR$(22);CHR$ (1);D$;CHR$(22);CHR$(0);
750 IF Y1=Y THEN IF X1=X THEN 1020 760 SOUND 1,I20,3:SOUND 1,180,3
770 FOR F=1 TO 500:NEXT
780 RETURN
790 C=1
ema LOCATE U+1,V+1:PRINT CHR$(22);CHR$(1 );E$;CHR$(22);CHR$(0);