10 INK 0,0:PAPER 0:BORDER 0:INK 1,26:INK 2,6:INK 3,20,18:MODE 1:CLS:PEN 3:LOCATE 17,1:PRINT"WALKER":LOCATE 11,3:PEN 1:PRINT"By Alistair Young":l=1:b=1:sc=0:fin=0:g=1:WINDOW 1,40,5,25:RESTORE 90 20 INK 2,0:PLOT 320,200,2:num=0:moves=-1 30 READ a$:IF a$="N" THEN DRAWR 0,20 ELSE IF a$="S" THEN DRAWR 0,-20 ELSE IF a$="E" THEN DRAWR 20,0 ELSE IF a$="W" THEN DRAWR -20,0 ELSE IF a$="F" OR a$="H" THEN MOVE 320,200:IF A$="H" THEN num=num-1 40 IF a$<>"F" THEN num=num+1:GOTO 30 ELSE INK 2,6:LOCATE 1,20:PEN 1:PRINT"HI:";h:LOCATE 25,20:PRINT"SCORE:";sc:PLOTR 0,0,1:n=TESTR(0,2):s=TESTR(0,-4):e=TESTR(2,2):w=TESTR(-4,0):MOVER 2,0:moves=moves+(-1*(g=0)):IF moves=num THEN fin=1:GOTO 70 50 LOCATE 10,20:PRINT SPACE$(15);:LOCATE 17,20:PEN -1*(n=2):PRINT"N ";:PEN -1*(s=2):PRINT"S ";:PEN -1*(e=2):PRINT"E ";:PEN -1*(w=2):PRINT"W":IF n<>2 AND s<>2 AND e<>2 AND w<>2 THEN LOCATE 16,20:PEN 3:PRINT"NO EXITS!":GOTO 80 60 IF INKEY(46)=0 AND n=2 THEN DRAWR 0,20,3-g:GOTO 40 ELSE IF INKEY(60)=0 AND s=2 THEN DRAWR 0,-20,3-g:GOTO 40 ELSE IF INKEY(58)=0 AND e=2 THEN DRAWR 20,0,3-g:GOTO 40 ELSE IF INKEY(59)=0 AND w=2 THEN DRAWR -20,0,3-g:GOTO 40 70 IF fin=0 THEN IF INKEY(47)=1-g THEN g=0:GOTO 40 ELSE GOTO 60 ELSE fin=0:CLS:PEN 3:LOCATE 17,8:PRINT"HOORAY":FOR n=0 TO 300:SOUND 1,0,1,15,0,0,10:SOUND 2,0,1,15,0,0,10:NEXT:CLS:sc=sc+b*100:g=1:b=b+1:l=l+1:IF l=9 THEN l=1:RESTORE 90:GOTO 20 ELSE GOTO 20 80 FOR n=999 TO 0 STEP -1:SOUND 1,n,1,15:SOUND 2,999-n,1,15:NEXT:CLS:PEN 1:LOCATE 8,8:PRINT"Oh Dear.  You've Failed":WHILE INKEY(47)<>0:WEND:IF sc>h THEN h=sc:GOTO 10 ELSE GOTO 10 90 DATA N,N,E,S,W,W,S,E,F,N,W,W,W,W,S,S,S,E,E,S,W,N,N,E,E,E,E,N,W,W,S,S,E,N,N,F,E,E,S,S,S,W,N,E,E,E,N,W,S,S,W,S,W,W,N,N,N,E,E,E,N,N,E,S,W,W,N,W,W,S,F,S,E,N,W,N,E,S,E,S,W,S,W,N,W,N,E,F,E,E,E,N,N,W,W,S,S,S,E,N,N,W,W,S,S,E,F,S,S,E,N,W,W,S,E,S,F 100 DATA N,N,N,N,E,E,E,N,W,S,S,S,W,N,E,E,S,E,E,S,W,N,N,E,N,H,E,E,E,N,W,S,S,E,S,E,N,W,N,E,E,S,E,S,W,N,W,F,N,N,E,E,S,S,W,W,W,W,S,S,S,E,N,W,W,N,N,W,W,W,S,E,N,N,N,E,E,S,E,E,E,E,N,N,E,E,N,W,W,S,W,N,E,H,S,E,S,W,W,N,N,N,N,N,N,N,W,W,S,E,N,N,W,W,W,W,S,E,S,E,N,W,F