1 CLS:U=P:V=Q:E=10:F=8:GOSUB6:IF!FGOTO5
2 E=7:F=5:GOSUB12:GOSUB14
3 U=U-(D=3)+(D=1):V=V-(D=0)+(D=2):E=4:F=2:GOSUB6:IF!FGOTO5
4 LC9,9:?CHR$(#89,0,#86):LC10,10:?CHR$(1):LC9,11:?CHR$(#86,0,#89)
5 LC22,0:?"X,Y=";P;",";Q:LC22,2:?"TIME=":LRUNFILE()-1,14
6 N=[U+V*10]:S=(N>>D)%2:L=D-1:IFL<0L=L+4
7 IF(N>>L)%2THENGOSUB12 ELSEGOSUB16
8 R=D+1:IFR>3R=R-4
9 IF(N>>R)%2THENGOSUB14 ELSEGOSUB19
10 IFSGOSUB22:F=0
11 RETURN
12 IFSGOSUB23
13 FORX=10-ETO10-F:GOSUB25:NEXT:RETURN
14 IFSGOSUB24
15 FORX=10+FTO10+E:GOSUB25:NEXT:RETURN
16 IF!SGOSUB23
17 FORX=10-ETO10-F:GOSUB26:NEXT:IFP=UANDQ=VRETURN
18 FORY=10-ETO10+E:LC10-E,Y:?CHR$(#85):NEXT:RETURN
19 IF!SGOSUB24
20 FORX=10+FTO10+E:GOSUB26:NEXT:IFP=UANDQ=VRETURN
21 FORY=10-ETO10+E:LC10+E,Y:?CHR$(#8A):NEXT:RETURN
22 FORX=11-FTO9+F:GOSUB26:NEXT:RETURN
23 FORY=10-FTO10+F:LC10-F,Y:?CHR$(#8A):NEXT:RETURN
24 FORY=10-FTO10+F:LC10+F,Y:?CHR$(#85):NEXT:RETURN
25 LCX,X:?CHR$(#89):LCX,20-X:?CHR$(#86):RETURN
26 LCX,10-F:?CHR$(#8C):LCX,10+F:?CHR$(#83):RETURN