Dead End

utility that enables Drive B to become Drive A

DEAD END;RT n - b , x - k ; " B a c k to t ' O " A N Db$ = " 5 " ) ; R T m - s , n ; (" D " he ";RT m+s,x-s; "START": PAUSE b* AND b $ = " 8 " ) + < " D " A N Db $ = " 5 " ) ; A T V: CLS : RETURN ui , n ; ( " E " A N D b $ = " 8 " ) + i " F "AND 2000 I F b $ , ' V 7 " THEN GO SUB UAL b * = " 5 " ) : PAUSE t: NEXT n : PRINT AT w - b , n ; ("G" A N D b $ = " 8 " ) + f " H " AND b $ = " 5 " ) , A T w-S ,n; ( " I " A N Dt $ = " 8 " ) t ( " J " A N Db $ = " 5 " ) ; AT W,n, " ) : PAUSE I : PRINT R T w - b , n ; " " ; 2005 LET p=w-b: GO SUB f AT w -s ,n; " " ; A T w , n , " " . RETURN 2008 IF b$="7" THEN GO TO UAL "2 4-800 P R I N T A T p , W ; "o " , A T P+S ,m, " D " ; A T p f b , m ; " P " ; AT p + I N T P I , m , " 2010 PRINT AT << i , x - k ; "TURN " ; AT w, ": PAUSE w : PRINT A T P - S , m ; " O " ; A T P , m ; " R " ; A T p t s .m; " 5 " ; f l T p + b , m ; " " : PAUSE W PAUSE a; IF INK E V $ < > " 5 " AND b i = "8" OR INKEY$ < >"8" AND b$="5" T HEN CLS : GO TO UAL "2001" 4820 PRINT AT P ~s ,m, "T",AT p " 5000 PRINT AT p / TO ; " D " , AT P + s ,m , < • PAUSE b *x : RETURN 6000 BORDER 4 PRINT AT 1 , 5 , INK 4, , 2 , ^C D « 11 J ;AT 3 , 5 INK 0, PAPER 5 ; " LLPRECHHUH"3 G OLD ",AT 5 , 0 ; PAPER 7 ; " C a n you m ake you way to the centre, a nd f i n d the GOLD?";AT 8 , 5 , " P r e s s 3000 PRINT AT w , b*t ; "UHICH"; AT u > -b; "UfiY?" ;RT w+-s / b * t ; "Press"; A T w+s,w-b;"5,7 or 8": FOR n =s TO b»v : IF INKEY $ < > " " THEN GO TO U RL "3050" 3010 NEXT n