790 IF A=223 AND POINT(X+2,Y-2)=7 THEN GOSUB 930:GOTO 880 810 IF A=251 AND POINT(X+2,Y+12)=7 THEN GOSUB 940:GOTO 890 830 IF A=253 AND POINT(X-2,Y+2)=7 THEN GOSUB 950:GOTO 900 850 IF A=247 AND POINT(X+22,Y+2)=7 THEN GOSUB 960:GOTO 910 1450 IF POINT(HX%(A),HY%(A))<>3 THEN Z=Z+1 1620 DATA 20 , 10 ,-1021 , 29440 ,-7940 , 0 , 1792 , 254 ,-129 , 224 , 0 ,-177 , 32544 1621 DATA -7937 , 0 ,-12544 , 12543 ,-1 , 240 , 0 ,-7204 ,-80 ,-3841 , 7171 ,-2048 ,-3999 ,-1027 , 1520 , 154 , 8368 ,-16944 ,-12037 ,-9459 ,-20480 ,-12288 ,-1091 , 3536 , 251 , 16 , 8064 ,-32513 ,-241 , 4096 ,-32768 ,-489 , 1920 , 254 1630 DATA 20 , 10 ,-1021 , 29440 ,-7940 , 0 , 1792 , 254 ,-129 , 224 , 0 ,-177 , 32544 1631 DATA -7937 , 0 ,-12544 , 12543 ,-1 , 240 , 0 ,-7204 ,-80 ,-3841 , 7171 ,-2048 ,-3999 ,-1027 , 1520 , 154 , 8368 ,-16944 ,-12037 ,-9459 ,-20480 ,-12288 ,-1091 , 3536 , 251 , 16 , 8064 ,-32513 ,-241 , 4096 ,-32768 ,-489 , 1920 , 254 1640 DATA 20 , 10 ,-1021 , 29440 ,-7940 , 0 , 1792 , 254 ,-129 , 224 , 0 ,-177 , 32544 1641 DATA -7937 , 0 ,-12544 , 12543 ,-1 , 240 , 0 ,-7204 ,-80 ,-3841 , 7171 ,-2048 ,-3999 ,-1027 , 1520 , 154 , 8368 ,-16944 ,-12037 ,-9459 ,-20480 ,-12288 ,-1091 , 3536 , 251 , 16 , 8064 ,-32513 ,-241 , 4096 ,-32768 ,-489 , 1920 , 254 1650 DATA 20 , 10 ,-1021 , 29440 ,-7940 , 0 , 1792 , 254 ,-129 , 224 , 0 ,-177 , 32544 1651 DATA -7937 , 0 ,-12544 , 12543 ,-1 , 240 , 0 ,-7204 ,-80 ,-3841 , 7171 ,-2048 ,-3999 ,-1027 , 1520 , 154 , 8368 ,-16944 ,-12037 ,-9459 ,-20480 ,-12288 ,-1091 , 3536 , 251 , 16 , 8064 ,-32513 ,-241 , 4096 ,-32768 ,-489 , 1920 , 254 1660 DATA 20 , 10 ,-129 , 32736 ,-7937 ,-129 ,-32 ,-3841 ,-1 ,-16 ,-3841 ,-1 ,-16 ,-3841 ,-1 ,-16 ,-3841 ,-1 ,-7184 , 28924 ,-1 ,-16 ,-3841 ,-1327 ,-208 ,-3841 ,-1 1661 DATA -7184 , 28924 ,-1 ,-16 ,-3841 ,-1 ,-16 ,-3841 ,-1 ,-272 ,-3877 ,-1 ,-16 ,-3841 , 10239 , 32752 ,-7937 ,-129 , 32736 ,-7937