r = 1 gotnote = 0 ' gotcoin = 0 ' gotbook = 0 ' wiseman = 1 ' oldman = 1 ' miner = 1 ' guard = 1 ' COLOR 2, 0 CLS DIM SHARED DOOM AS DOUBLE Minutes = 60 Seconds = 0 GameTime = Minutes * 60 + Seconds DIM directions(1 TO 1105) AS STRING directions(1) = "NORTH" directions(2) = "NORTH OR SOUTH" directions(3) = "EAST, WEST, OR SOUTH" directions(4) = "EAST OR WEST" directions(5) = "EAST OR WEST" directions(6) = "NORTH, EAST, OR WEST" directions(7) = "EAST OR WEST" directions(8) = "NORTH OR EAST" directions(9) = "NORTH OR SOUTH" directions(10) = "NORTH OR SOUTH" directions(11) = "NORTH, SOUTH, EAST, OR WEST" directions(12) = "EAST" directions(13) = "EAST OR WEST" directions(14) = "EAST, WEST, OR SOUTH" directions(15) = "NORTH OR SOUTH" directions(16) = "NORTH OR SOUTH" directions(17) = "EAST OR WEST" directions(18) = "EAST OR WEST" directions(19) = "EAST OR WEST" directions(20) = "NORTH, SOUTH, OR WEST" directions(21) = "NORTH OR EAST" directions(22) = "EAST OR WEST" directions(23) = "WEST OR SOUTH" directions(24) = "NORTH OR SOUTH" directions(25) = "NORTH, EAST, OR WEST" directions(26) = "EAST OR WEST" directions(27) = "EAST OR WEST" directions(28) = "EAST OR WEST" directions(29) = "NORTH, EAST, OR WEST" directions(30) = "NORTH, OR WEST" directions(31) = "EAST OR SOUTH" directions(32) = "EAST, WEST, OR SOUTH" directions(33) = "NORTH, EAST, OR WEST" directions(34) = "NORTH OR SOUTH" directions(35) = "NORTH OR SOUTH" directions(36) = "NORTH OR SOUTH" directions(37) = "EAST, WEST, OR SOUTH" directions(38) = "NORTH OR WEST" directions(39) = "NORTH OR SOUTH" directions(40) = "NORTH OR SOUTH" directions(41) = "NORTH OR SOUTH" directions(42) = "NORTH OR SOUTH" directions(43) = "WEST OR SOUTH" directions(44) = "EAST OR WEST" directions(45) = "EAST OR WEST" directions(46) = "EAST OR SOUTH" directions(47) = "NORTH OR SOUTH" directions(48) = "NORTH, SOUTH, OR WEST" directions(49) = "NORTH OR SOUTH" directions(50) = "NORTH OR SOUTH" directions(51) = "NORTH OR EAST" directions(52) = "EAST OR WEST" directions(53) = "EAST OR WEST" directions(54) = "NORTH, EAST, OR WEST" directions(55) = "NORTH OR SOUTH" directions(56) = "NORTH OR SOUTH" directions(57) = "NORTH OR SOUTH" directions(58) = "NORTH, SOUTH, EAST, OR WEST" directions(59) = "WEST" directions(60) = "SOUTH" directions(61) = "EAST" directions(62) = "NORTH OR SOUTH" directions(63) = "EAST, WEST, OR SOUTH" directions(64) = "NORTH OR SOUTH" directions(65) = "NORTH, SOUTH OR WEST" directions(66) = "NORTH OR SOUTH" directions(67) = "NORTH OR SOUTH" directions(68) = "EAST OR WEST" directions(69) = "EAST OR WEST" directions(70) = "NORTH, SOUTH, OR EAST" directions(71) = "NORTH" directions(72) = "NORTH, SOUTH, OR WEST" directions(73) = "EAST OR WEST" directions(74) = "EAST OR WEST" directions(75) = "NORTH, SOUTH, OR EAST" directions(76) = "NORTH, SOUTH, OR WEST" directions(77) = "EAST OR WEST" directions(78) = "EAST OR WEST" directions(79) = "EAST OR SOUTH" directions(80) = "NORTH OR SOUTH" directions(81) = "NORTH OR EAST" directions(82) = "WEST" directions(83) = "NORTH OR SOUTH" directions(84) = "NORTH OR SOUTH" directions(85) = "NORTH OR SOUTH" directions(86) = "NORTH OR SOUTH" directions(87) = "NORTH, SOUTH, OR WEST" directions(88) = "NORTH, EAST, OR WEST" directions(89) = "NORTH, EAST, OR WEST" directions(90) = "NORTH OR EAST" directions(91) = "NORTH, SOUTH, OR EAST" directions(92) = "NORTH, SOUTH, EAST, OR WEST" directions(93) = "NORTH, SOUTH, EAST, OR WEST" directions(94) = "NORTH, SOUTH, EAST, OR WEST" directions(95) = "WEST OR SOUTH" directions(96) = "EAST, WEST, OR SOUTH" directions(97) = "EAST, WEST, OR SOUTH" directions(98) = "EAST OR SOUTH" directions(99) = "EAST OR WEST" directions(100) = "NORTH, EAST, OR WEST" directions(101) = "NORTH OR SOUTH" directions(102) = "NORTH OR SOUTH" directions(103) = "NORTH, SOUTH, OR EAST" directions(104) = "WEST OR SOUTH" directions(105) = "EAST OR WEST" directions(106) = "EAST" directions(107) = "EAST OR WEST" directions(108) = "NORTH, EAST, OR WEST" directions(109) = "NORTH OR WEST" directions(110) = "WEST OR SOUTH" directions(111) = "EAST OR SOUTH" directions(112) = "EAST OR WEST" directions(113) = "WEST OR SOUTH" directions(114) = "NORTH OR SOUTH" directions(115) = "NORTH OR SOUTH" directions(116) = "NORTH, EAST, OR WEST" directions(117) = "EAST OR WEST" directions(118) = "EAST OR SOUTH" directions(119) = "EAST OR WEST" directions(120) = "NORTH, SOUTH, EAST, OR WEST" directions(121) = "NORTH OR SOUTH" directions(122) = "NORTH OR SOUTH" directions(123) = "NORTH OR SOUTH" directions(124) = "NORTH OR EAST" directions(125) = "EAST, WEST, OR SOUTH" directions(126) = "NORTH, EAST, OR WEST" directions(127) = "EAST, WEST, OR SOUTH" directions(128) = "EAST OR WEST" directions(129) = "EAST, WEST, OR SOUTH" directions(130) = "EAST OR WEST" directions(131) = "EAST OR WEST" directions(132) = "EAST OR WEST" directions(133) = "EAST OR WEST" directions(134) = "EAST, WEST, OR SOUTH" directions(135) = "EAST OR WEST" directions(136) = "EAST OR WEST" directions(137) = "EAST OR WEST" directions(138) = "EAST OR WEST" directions(139) = "EAST OR WEST" directions(140) = "WEST OR SOUTH" directions(141) = "NORTH OR SOUTH" directions(142) = "NORTH OR SOUTH" directions(143) = "NORTH SOUTH, OR WEST" directions(144) = "NORTH OR WEST" directions(145) = "NORTH OR EAST" directions(146) = "EAST, WEST, OR SOUTH" directions(147) = "EAST OR WEST" directions(148) = "EAST OR WEST" directions(149) = "NORTH OR EAST" directions(150) = "WEST OR SOUTH" directions(151) = "EAST OR WEST" directions(152) = "NORTH, SOUTH, OR EAST" directions(153) = "NORTH OR SOUTH" directions(154) = "NORTH OR SOUTH" directions(155) = "NORTH OR SOUTH" directions(156) = "NORTH, SOUTH, OR WEST" directions(157) = "NORTH OR SOUTH" directions(158) = "NORTH OR WEST" directions(159) = "EAST OR WEST" directions(160) = "EAST OR WEST" directions(161) = "EAST OR WEST" directions(162) = "NORTH, OR EAST" directions(163) = "NORTH OR SOUTH" directions(164) = "EAST, WEST, OR SOUTH" directions(165) = "EAST OR WEST" directions(166) = "EAST OR WEST" directions(167) = "EAST OR WEST" directions(168) = "EAST OR WEST" directions(169) = "EAST OR WEST" directions(170) = "NORTH, EAST, OR WEST" directions(171) = "NORTH OR SOUTH" directions(172) = "NORTH, SOUTH, OR EAST" directions(173) = "EAST OR WEST" directions(174) = "NORTH OR WEST" directions(175) = "NORTH OR SOUTH" directions(176) = "NORTH OR SOUTH" directions(177) = "NORTH OR SOUTH" directions(178) = "NORTH OR SOUTH" directions(179) = "EAST OR WEST" directions(180) = "NORTH OR EAST" directions(181) = "NORTH OR SOUTH" directions(182) = "NORTH OR SOUTH" directions(183) = "NORTH OR SOUTH" directions(184) = "NORTH OR SOUTH" directions(185) = "EAST OR WEST" directions(186) = "NORTH, SOUTH, OR WEST" directions(187) = "NORTH OR SOUTH" directions(188) = "NORTH OR SOUTH" directions(189) = "NORTH, SOUT, OR EAST" directions(190) = "EAST OR WEST" directions(191) = "EAST OR WEST" directions(192) = "EAST OR WEST" directions(193) = "NORTH, EAST, OR WEST" directions(194) = "NORTH OR SOUTH" directions(195) = "EAST OR SOUTH" directions(196) = "EAST OR WEST" directions(197) = "NORTH, EAST, OR WEST" directions(198) = "WEST OR SOUTH" directions(199) = "NORTH OR SOUTH" directions(200) = "NORTH, EAST, OR WEST" directions(201) = "EAST OR WEST" directions(202) = "EAST OR WEST" directions(203) = "EAST OR WEST" directions(204) = "EAST OR WEST" directions(205) = "NORTH, EAST, OR WEST" directions(206) = "NORTH OR SOUTH" directions(207) = "NORTH OR SOUTH" directions(208) = "EAST OR SOUTH" directions(209) = "NORTH, EAST, OR WEST" directions(210) = "WEST OR SOUTH" directions(211) = "NORTH OR SOUTH" directions(212) = "NORTH OR SOUTH" directions(213) = "NORTH OR WEST" directions(214) = "EAST OR WEST" directions(215) = "NORTH OR SOUTH" directions(216) = "NORTH OR SOUTH" directions(217) = "EAST, WEST, OR SOUTH" directions(218) = "NORTH OR WEST" directions(219) = "NORTH OR SOUTH" directions(220) = "NORTH OR SOUTH" directions(221) = "WEST OR SOUTH" directions(222) = "EAST OR WEST" directions(223) = "EAST OR SOUTH" directions(224) = "NORTH, SOUTH, OR WEST" directions(225) = "NORTH OR SOUTH" directions(226) = "NORTH OR EAST" directions(227) = "EAST OR WEST" directions(228) = "EAST OR WEST" directions(229) = "EAST OR WEST" directions(230) = "NORTH OR SOUTH" directions(231) = "NORTH, SOUTH, OR WEST" directions(232) = "NORTH OR SOUTH" directions(233) = "NORTH OR SOUTH" directions(234) = "NORTH OR SOUTH" directions(235) = "EAST OR WEST" directions(236) = "EAST OR WEST" directions(237) = "NORTH, EAST, OR WEST" directions(238) = "NORTH OR SOUTH" directions(239) = "NORTH OR SOUTH" directions(240) = "EAST OR SOUTH" directions(241) = "EAST OR WEST" directions(242) = "EAST OR WEST" directions(243) = "WEST OR SOUTH" directions(244) = "NORTH, SOUTH, OR EAST" directions(245) = "EAST OR WEST" directions(246) = "EAST OR WEST" directions(247) = "EAST, WEST, OR SOUTH" directions(248) = "NORTH OR SOUTH" directions(249) = "NORTH OR SOUTH" directions(250) = "EAST OR WEST" directions(251) = "EAST OR SOUTH" directions(252) = "NORTH OR SOUTH" directions(253) = "NORTH OR SOUTH" directions(254) = "NORTH, SOUTH, EAST, OR WEST" directions(255) = "NORTH OR SOUTH" directions(256) = "NORTH, EAST, OR SOUTH" directions(257) = "NORTH OR SOUTH" directions(258) = "EAST OR SOUTH" directions(259) = "EAST OR WEST" directions(260) = "NORTH, SOUTH, EAST, OR WEST" directions(261) = "NORTH OR SOUTH" directions(262) = "NORTH OR SOUTH" directions(263) = "NORTH OR SOUTH" directions(264) = "EAST OR SOUTH" directions(265) = "EAST OR WEST" directions(266) = "EAST OR WEST" directions(267) = "EAST OR WEST" directions(268) = "NORTH, SOUTH, OR WEST" directions(269) = "NORTH, SOUTH, OR EAST" directions(270) = "NORTH OR SOUTH" directions(271) = "NORTH OR SOUTH" directions(272) = "NORTH, SOUTH, OR WEST" directions(273) = "EAST OR WEST" directions(274) = "EAST OR WEST" directions(275) = "EAST OR WEST" directions(276) = "NORTH OR SOUTH" directions(277) = "NORTH, SOUTH, OR WEST" directions(278) = "EAST OR WEST" directions(279) = "NORTH OR SOUTH" directions(280) = "NORTH, EAST, OR WEST" directions(281) = "EAST OR WEST" directions(282) = "EAST, WEST, OR SOUTH" directions(283) = "NORTH OR SOUTH" directions(284) = "NORTH OR SOUTH" directions(285) = "NORTH, SOUTH, OR EAST" directions(286) = "NORTH OR SOUTH" directions(287) = "NORTH, SOUTH, OR WEST" directions(288) = "EAST OR WEST" directions(289) = "EAST OR WEST" directions(290) = "NORTH OR EAST" directions(291) = "NORTH OR SOUTH" directions(292) = "NORTH OR SOUTH" directions(293) = "NORTH OR SOUTH" directions(294) = "NORTH OR SOUTH" directions(295) = "NORTH OR SOUTH" directions(296) = "NORTH OR EAST" directions(297) = "EAST OR WEST" directions(298) = "EAST OR WEST" directions(299) = "NORTH, EAST, OR WEST" directions(300) = "NORTH OR SOUTH" directions(301) = "NORTH OR SOUTH" directions(302) = "NORTH OR SOUTH" directions(303) = "NORTH, SOUTH, OR WEST" directions(304) = "EAST OR WEST" directions(305) = "EAST OR WEST" directions(306) = "EAST OR WEST" directions(307) = "EAST OR WEST" directions(308) = "EAST OR WEST" directions(309) = "NORTH, EAST, OR WEST" directions(310) = "EAST OR WEST" directions(311) = "EAST OR WEST" directions(312) = "EAST OR WEST" directions(313) = "NORTH OR WEST" directions(314) = "EAST OR SOUTH" directions(315) = "NORTH OR WEST" directions(316) = "SOUTH OR EAST" directions(317) = "NORTH OR WEST" directions(318) = "NORTH OR SOUTH" directions(319) = "NORTH OR SOUTH" directions(320) = "NORTH, SOUTH, OR WEST" directions(321) = "EAST OR WEST" directions(322) = "NORTH, EAST, OR WEST" directions(323) = "EAST OR WEST" directions(324) = "EAST OR WEST" directions(325) = "NORTH, EAST, OR WEST" directions(326) = "SOUTH, EAST, OR WEST" directions(327) = "NORTH OR SOUTH" directions(328) = "NORTH OR SOUTH" directions(329) = "NORTH OR SOUTH" directions(330) = "NORTH OR SOUTH" directions(331) = "NORTH, EAST, OR WEST" directions(332) = "EAST OR WEST" directions(333) = "EAST OR WEST" directions(334) = "NORTH, SOUTH, OR EAST" directions(335) = "NORTH OR SOUTH" directions(336) = "NORTH OR SOUTH" directions(337) = "NORTH, SOUTH, EAST, OR WEST" directions(338) = "EAST OR WEST" directions(339) = "SOUTH OR EAST" directions(340) = "NORTH OR WEST" directions(341) = "NORTH OR SOUTH" directions(342) = "NORTH, SOUTH, OR EAST" directions(343) = "EAST OR WEST" directions(344) = "NORTH, SOUTH, EAST, OR WEST" directions(345) = "EAST OR WEST" directions(346) = "EAST OR WEST" directions(347) = "NORTH, SOUTH, EAST, OR WEST" directions(348) = "EAST OR WEST" directions(349) = "EAST OR WEST" directions(350) = "NORTH, SOUTH, OR WEST" directions(351) = "NORTH OR SOUTH" directions(352) = "NORTH, SOUTH, OR WEST" directions(353) = "NORTH, SOUTH, OR WEST" directions(354) = "NORTH OR SOUTH" directions(355) = "EAST OR WEST" directions(356) = "WEST OR SOUTH" directions(357) = "NORTH OR SOUTH" directions(358) = "NORTH OR SOUTH" directions(359) = "EAST OR WEST" directions(360) = "EAST OR WEST" directions(361) = "NORTH, SOUTH, OR EAST" directions(362) = "NORTH OR SOUTH" directions(363) = "NORTH, SOUTH, OR WEST" directions(364) = "NORTH OR SOUTH" directions(365) = "EAST OR WEST" directions(366) = "EAST, WEST, OR SOUTH" directions(367) = "NORTH OR SOUTH" directions(368) = "NORTH OR SOUTH" directions(369) = "NORTH, EAST, OR WEST" directions(370) = "NORTH, EAST, OR WEST" directions(371) = "EAST, WEST, OR SOUTH" directions(372) = "EAST OR WEST" directions(373) = "NORTH OR SOUTH" directions(374) = "NORTH OR SOUTH" directions(375) = "NORTH OR SOUTH" directions(376) = "NORTH OR SOUTH" directions(377) = "NORTH, SOUTH, EAST, OR WEST" directions(378) = "EAST OR WEST" directions(379) = "NORTH, SOUTH, OR EAST" directions(380) = "NORTH OR SOUTH" directions(381) = "EAST OR SOUTH" directions(382) = "EAST OR WEST" directions(383) = "EAST OR WEST" directions(384) = "SOUTH, EAST, OR WEST" directions(385) = "NORTH OR SOUTH" directions(386) = "EAST OR WEST" directions(387) = "WEST OR SOUTH" directions(388) = "NORTH, SOUTH, OR EAST" directions(389) = "NORTH, SOUTH, OR WEST" directions(390) = "EAST OR WEST" directions(391) = "NORTH OR SOUTH" directions(392) = "EAST OR WEST" directions(393) = "EAST OR WEST" directions(394) = "EAST OR WEST" directions(395) = "EAST OR WEST" directions(396) = "WEST OR SOUTH" directions(397) = "NORTH OR SOUTH" directions(398) = "NORTH, SOUTH, OR EAST" directions(399) = "NORTH, SOUTH, OR WEST" directions(400) = "NORTH OR SOUTH" directions(401) = "NORTH OR SOUTH" directions(402) = "NORTH OR WEST" directions(403) = "EAST OR WEST" directions(404) = "NORTH, SOUTH, OR EAST" directions(405) = "NORTH OR SOUTH" directions(406) = "NORTH OR SOUTH" directions(407) = "EAST, WEST, OR SOUTH" directions(408) = "EAST OR WEST" directions(409) = "EAST OR WEST" directions(410) = "EAST OR WEST" directions(411) = "EAST OR WEST" directions(412) = "EAST OR WEST" directions(413) = "EAST OR WEST" directions(414) = "SOUTH OR WEST" directions(415) = "NORTH OR SOUTH" directions(416) = "NORTH OR SOUTH" directions(417) = "NORTH OR SOUTH" directions(418) = "NORTH OR SOUTH" directions(419) = "NORTH OR SOUTH" directions(420) = "NORTH OR EAST" directions(421) = "EAST OR WEST" directions(422) = "EAST OR WEST" directions(423) = "EAST OR WEST" directions(424) = "NORTH, EAST, OR WEST" directions(425) = "NORTH, SOUTH, OR EAST" directions(426) = "NORTH, SOUTH, OR EAST" directions(427) = "EAST OR SOUTH" directions(428) = "EAST, WEST, OR SOUTH" directions(429) = "NORTH, SOUTH, EAST, OR WEST" directions(430) = "NORTH, SOUTH, EAST, OR WEST" directions(431) = "NORTH, EAST, OR WEST" directions(432) = "NORTH, EAST, OR WEST" directions(433) = "NORTH, SOUTH, EAST, OR WEST" directions(434) = "NORTH, SOUTH, EAST, OR WEST" directions(435) = "NORTH, SOUTH, EAST, OR WEST" directions(436) = "EAST, WEST, OR SOUTH" directions(437) = "NORTH, SOUTH, EAST, OR WEST" directions(438) = "NORTH, SOUTH, EAST, OR WEST" directions(439) = "NORTH, EAST, OR WEST" directions(440) = "NORTH, EAST, OR WEST" directions(441) = "NORTH, SOUTH, OR WEST" directions(442) = "NORTH, SOUTH, OR WEST" directions(443) = "WEST OR SOUTH" directions(444) = "EAST OR WEST" directions(445) = "EAST OR WEST" directions(446) = "EAST OR WEST" directions(447) = "NORTH OR EAST" directions(448) = "NORTH OR SOUTH" directions(449) = "NORTH OR SOUTH" directions(450) = "NORTH OR SOUTH" directions(451) = "NORTH OR SOUTH" directions(452) = "NORTH OR SOUTH" directions(453) = "EAST OR SOUTH" directions(454) = "EAST OR WEST" directions(455) = "EAST OR WEST" directions(456) = "NORTH OR SOUTH" directions(457) = "NORTH OR SOUTH" directions(458) = "NORTH OR SOUTH" directions(459) = "NORTH OR SOUTH" directions(460) = "NORTH OR SOUTH" directions(461) = "NORTH OR SOUTH" directions(462) = "NORTH OR SOUTH" directions(463) = "NORTH OR SOUTH" directions(464) = "NORTH OR SOUTH" directions(465) = "NORTH, SOUTH, EAST, OR WEST" directions(466) = "NORTH OR SOUTH" directions(467) = "SOUTH" directions(468) = "EAST OR WEST" directions(469) = "EAST OR WEST" directions(470) = "EAST OR WEST" directions(471) = "WEST" directions(472) = "EAST OR WEST" directions(473) = "EAST OR WEST" directions(474) = "EAST OR WEST" directions(475) = "WEST" directions(476) = "SOUTH OR WEST" directions(477) = "NORTH OR SOUTH" directions(478) = "NORTH, SOUTH, OR EAST" directions(479) = "NORTH OR SOUTH" directions(480) = "NORTH OR SOUTH" directions(481) = "NORTH OR EAST" directions(482) = "EAST, WEST, OR SOUTH" directions(483) = "NORTH OR WEST" directions(484) = "NORTH, SOUTH, OR EAST" directions(485) = "NORTH OR SOUTH" directions(486) = "WEST OR SOUTH" directions(487) = "EAST OR WEST" directions(488) = "NORTH OR SOUTH" directions(489) = "NORTH, EAST, OR WEST" directions(490) = "WEST OR SOUTH" directions(491) = "NORTH OR SOUTH" directions(492) = "NORTH, EAST, OR WEST" directions(493) = "EAST OR WEST" directions(494) = "NORTH, SOUTH, OR EAST" directions(495) = "NORTH OR SOUTH" directions(496) = "EAST OR SOUTH" directions(497) = "NORTH OR SOUTH" directions(498) = "NORTH OR SOUTH" directions(499) = "NORTH OR SOUTH" directions(500) = "NORTH OR EAST" directions(501) = "EAST OR WEST" directions(502) = "EAST OR WEST" directions(503) = "EAST OR WEST" directions(504) = "WEST OR SOUTH" directions(505) = "NORTH OR SOUTH" directions(506) = "NORTH, SOUTH, OR EAST" directions(507) = "NORTH OR SOUTH" directions(508) = "NORTH OR EAST" directions(509) = "EAST OR WEST" directions(510) = "EAST, WEST OR SOUTH" directions(511) = "WEST" directions(512) = "NORTH, SOUTH, OR EAST" directions(513) = "NORTH OR SOUTH" directions(514) = "EAST OR WEST" directions(515) = "EAST OR WEST" directions(516) = "EAST OR WEST" directions(517) = "NORTH, EAST, OR WEST" directions(518) = "EAST OR WEST" directions(519) = "NORTH, EAST, OR WEST" directions(520) = "EAST OR WEST" directions(521) = "NORTH, EAST, OR WEST" directions(522) = "EAST OR WEST" directions(523) = "WEST OR NORTH" directions(524) = "NORTH OR SOUTH" directions(525) = "NORTH OR SOUTH" directions(526) = "NORTH, SOUTH, OR WEST" directions(527) = "EAST OR WEST" directions(528) = "NORTH, SOUTH, EAST, OR WEST" directions(529) = "NORTH OR SOUTH" directions(530) = "NORTH OR SOUTH" directions(531) = "EAST OR WEST" directions(532) = "NORTH, SOUTH, EAST, OR WEST" directions(533) = "NORTH OR SOUTH" directions(534) = "NORTH OR SOUTH" directions(535) = "EAST OR WEST" directions(536) = "NORTH, SOUTH, EAST, OR WEST" directions(537) = "NORTH OR SOUTH" directions(538) = "NORTH OR SOUTH" directions(539) = "EAST OR WEST" directions(540) = "NORTH, SOUTH, OR EAST" directions(541) = "NORTH OR SOUTH" directions(542) = "NORTH OR SOUTH" directions(543) = "EAST, WEST, OR SOUTH" directions(544) = "NORTH, EAST, OR WEST" directions(545) = "NORTH, EAST, OR WEST" directions(546) = "NORTH OR EAST" directions(547) = "NORTH, SOUTH, OR EAST" directions(548) = "NORTH, SOUTH, EAST, OR WEST" directions(549) = "NORTH, SOUTH, OR WEST" directions(550) = "EAST, WEST, OR SOUTH" directions(551) = "EAST, WEST, OR SOUTH" directions(552) = "EAST, WEST, OR SOUTH" directions(553) = "EAST OR WEST" directions(554) = "NORTH, EAST, OR WEST" directions(555) = "EAST OR WEST" directions(556) = "NORTH, SOUTH, OR WEST" directions(557) = "NORTH OR SOUTH" directions(558) = "NORTH, SOUTH, EAST, OR WEST" directions(559) = "EAST OR WEST" directions(560) = "NORTH OR SOUTH" directions(561) = "EAST OR WEST" directions(562) = "EAST, WEST, OR SOUTH" directions(563) = "NORTH OR SOUTH" directions(564) = "EAST OR WEST" directions(565) = "EAST, WEST, OR SOUTH" directions(566) = "NORTH OR SOUTH" directions(567) = "EAST OR WEST" directions(568) = "NORTH, SOUTH, OR WEST" directions(569) = "NORTH OR SOUTH" directions(570) = "NORTH OR SOUTH" directions(571) = "NORTH OR SOUTH" directions(572) = "NORTH OR SOUTH" directions(573) = "SOUTH OR EAST" directions(574) = "NORTH OR WEST" directions(575) = "NORTH OR SOUTH" directions(576) = "NORTH OR SOUTH" directions(577) = "NORTH OR SOUTH" directions(578) = "NORTH OR SOUTH" directions(579) = "NORTH OR SOUTH" directions(580) = "WEST OR SOUTH" directions(581) = "EAST OR WEST" directions(582) = "EAST OR WEST" directions(583) = "EAST OR WEST" directions(584) = "EAST OR WEST" directions(585) = "EAST, WEST, OR SOUTH" directions(586) = "NORTH OR SOUTH" directions(587) = "NORTH OR SOUTH" directions(588) = "NORTH OR SOUTH" directions(589) = "NORTH OR SOUTH" directions(590) = "NORTH OR SOUTH" directions(591) = "NORTH OR WEST" directions(592) = "EAST OR WEST" directions(593) = "EAST, WEST, OR SOUTH" directions(594) = "NORTH OR SOUTH" directions(595) = "EAST OR WEST" directions(596) = "EAST, WEST, OR SOUTH" directions(597) = "NORTH OR SOUTH" directions(598) = "NORTH OR EAST" directions(599) = "NORTH OR SOUTH" directions(600) = "NORTH OR SOUTH" directions(601) = "EAST, WEST, OR SOUTH" directions(602) = "NORTH, EAST, OR WEST" directions(603) = "EAST OR WEST" directions(604) = "EAST OR WEST" directions(605) = "NORTH OR SOUTH" directions(606) = "NORTH OR SOUTH" directions(607) = "EAST OR SOUTH" directions(608) = "EAST OR WEST" directions(609) = "EAST, WEST, OR SOUTH" directions(610) = "NORTH OR SOUTH" directions(611) = "NORTH OR SOUTH" directions(612) = "NORTH OR WEST" directions(613) = "EAST OR WEST" directions(614) = "EAST OR WEST" directions(615) = "EAST OR WEST" directions(616) = "NORTH OR SOUTH" directions(617) = "NORTH OR SOUTH" directions(618) = "NORTH, SOUTH, OR WEST" directions(619) = "EAST, WEST, OR SOUTH" directions(620) = "EAST, WEST, OR SOUTH" directions(621) = "EAST OR SOUTH" directions(622) = "NORTH, SOUTH, OR EAST" directions(623) = "NORTH, SOUTH, EAST, OR WEST" directions(624) = "NORTH, SOUTH, EAST, OR WEST" directions(625) = "NORTH, SOUTH, OR WEST" directions(626) = "NORTH, SOUTH, OR WEST" directions(627) = "NORTH, SOUTH, EAST, OR WEST" directions(628) = "NORTH, SOUTH, EAST, OR WEST" directions(629) = "NORTH, SOUTH, OR EAST" directions(630) = "NORTH OR EAST" directions(631) = "NORTH, EAST, OR WEST" directions(632) = "NORTH, EAST, OR WEST" directions(633) = "NORTH, SOUTH, OR WEST" directions(634) = "NORTH OR SOUTH" directions(635) = "NORTH, SOUTH, OR EAST" directions(636) = "EAST, WEST, OR SOUTH" directions(637) = "EAST, WEST, OR SOUTH" directions(638) = "WEST OR SOUTH" directions(639) = "NORTH, SOUTH, EAST, OR WEST" directions(640) = "NORTH ,SOUTH EAST, OR WEST" directions(641) = "NORTH, SOUTH, EAST, OR WEST" directions(642) = "NORTH, SOUTH, EAST, OR WEST" directions(643) = "NORTH, SOUTH, OR EAST" directions(644) = "NORTH, SOUTH, EAST, OR WEST" directions(645) = "NORTH, SOUTH, EAST, OR WEST" directions(646) = "NORTH, SOUTH, OR WEST" directions(647) = "NORTH OR WEST" directions(648) = "NORTH, EAST, OR WEST" directions(649) = "NORTH, EAST, OR WEST" directions(650) = "NORTH, SOUTH, OR EAST" directions(651) = "EAST OR WEST" directions(652) = "EAST OR WEST" directions(653) = "EAST OR WEST" directions(654) = "NORTH, SOUTH, EAST, OR WEST" directions(655) = "WEST OR SOUTH" directions(656) = "EAST, WEST, OR SOUTH" directions(657) = "EAST, WEST, OR SOUTH" directions(658) = "EAST OR SOUTH" directions(659) = "NORTH, SOUTH, OR EAST" directions(660) = "NORTH, SOUTH, EAST, OR WEST" directions(661) = "NORTH, SOUTH, EAST, OR WEST" directions(662) = "NORTH, SOUTH, OR EAST" directions(663) = "NORTH, SOUTH, EAST, OR WEST" directions(664) = "NORTH, SOUTH, EAST, OR WEST" directions(665) = "NORTH, SOUTH, OR WEST" directions(666) = "NORTH OR WEST" directions(667) = "NORTH, EAST, OR WEST" directions(668) = "NORTH, EAST, OR WEST" directions(669) = "NORTH OR EAST" directions(670) = "NORTH OR SOUTH" directions(671) = "NORTH, SOUTH, OR WEST" directions(672) = "EAST, WEST, OR SOUTH" directions(673) = "EAST, WEST, OR SOUTH" directions(674) = "EAST OR SOUTH" directions(675) = "NORTH, SOUTH, OR EAST" directions(676) = "NORTH, SOUTH, EAST, OR WEST" directions(677) = "NORTH, SOUTH, EAST, OR WEST" directions(678) = "NORTH, SOUTH, OR WEST" directions(679) = "NORTH, SOUTH, OR WEST" directions(680) = "NORTH, SOUTH, EAST, OR WEST" directions(681) = "NORTH, SOUTH, EAST, OR WEST" directions(682) = "NORTH, SOUTH, OR EAST" directions(683) = "NORTH OR EAST" directions(684) = "NORTH, EAST, OR WEST" directions(685) = "NORTH, EAST, OR WEST" directions(686) = "NORTH OR WEST" directions(687) = "EAST OR WEST" directions(688) = "EAST OR WEST" directions(689) = "NORTH, SOUTH, OR WEST" directions(690) = "NORTH, SOUTH, OR EAST" directions(691) = "NORTH OR SOUTH" directions(692) = "NORTH OR SOUTH" directions(693) = "NORTH OR SOUTH" directions(694) = "NORTH, SOUTH, EAST, OR WEST" directions(695) = "EAST OR SOUTH" directions(696) = "NORTH, SOUTH, OR EAST" directions(697) = "NORTH, SOUTH ,OR EAST" directions(698) = "NORTH OR EAST" directions(699) = "NORTH, EAST, OR WEST" directions(700) = "NORTH, SOUTH, EAST, OR WEST" directions(701) = "NORTH, SOUTH, EAST, OR WEST" directions(702) = "NORTH, SOUTH, EAST, OR WEST" directions(703) = "EAST, WEST, OR SOUTH" directions(704) = "WEST OR SOUTH" directions(705) = "NORTH, SOUTH, OR WEST" directions(706) = "NORTH, SOUTH, OR WEST" directions(707) = "NORTH, SOUTH, EAST, OR WEST" directions(708) = "NORTH, EAST, OR WEST" directions(709) = "NORTH OR WEST" directions(710) = "NORTH OR SOUTH" directions(711) = "NORTH OR SOUTH" directions(712) = "NORTH OR SOUTH" directions(713) = "NORTH, SOUTH, EAST, OR WEST" directions(714) = "NORTH OR WEST" directions(715) = "NORTH, SOUTH, OR EAST" directions(716) = "NORTH, SOUTH, OR EAST" directions(717) = "EAST OR SOUTH" directions(718) = "EAST, WEST, OR SOUTH" directions(719) = "NORTH, SOUTH, EAST, OR WEST" directions(720) = "NORTH, SOUTH, EAST, OR WEST" directions(721) = "NORTH, SOUTH, EAST, OR WEST" directions(722) = "NORTH, SOUTH, EAST OR WEST" directions(723) = "EAST, WEST, OR SOUTH" directions(724) = "WEST OR SOUTH" directions(725) = "NORTH, SOUTH, OR WEST" directions(726) = "NORTH, SOUTH, OR WEST" directions(727) = "NORTH OR WEST" directions(728) = "NORTH, EAST, OR WEST" directions(729) = "EAST OR WEST" directions(730) = "EAST OR WEST" directions(731) = "WEST OR SOUTH" directions(732) = "NORTH OR SOUTH" directions(733) = "NORTH OR EAST" directions(734) = "EAST OR WEST" directions(735) = "NORTH, SOUTH, EAST, OR WEST" directions(736) = "NORTH OR SOUTH" directions(737) = "NORTH OR SOUTH" directions(738) = "NORTH OR SOUTH" directions(739) = "NORTH OR SOUTH" directions(740) = "NORTH OR SOUTH" directions(741) = "SOUTH, EAST, OR WEST" directions(742) = "EAST OR WEST" directions(743) = "EAST OR WEST" directions(744) = "NORTH OR EAST" directions(745) = "EAST, WEST, OR SOUTH" directions(746) = "NORTH OR WEST" directions(747) = "NORTH OR SOUTH" directions(748) = "NORTH OR SOUTH" directions(749) = "WEST OR SOUTH" directions(750) = "EAST OR WEST" directions(751) = "EAST OR SOUTH" directions(752) = "NORTH OR SOUTH" directions(753) = "NORTH OR SOUTH" directions(754) = "NORTH OR EAST" directions(755) = "EAST OR WEST" directions(756) = "EAST OR WEST" directions(757) = "WEST OR SOUTH" directions(758) = "NORTH OR SOUTH" directions(759) = "NORTH, SOUTH, OR EAST" directions(760) = "NORTH OR SOUTH" directions(761) = "NORTH OR SOUTH" directions(762) = "NORTH OR SOUTH" directions(763) = "NORTH, SOUTH, OR WEST" directions(764) = "EAST OR WEST" directions(765) = "EAST OR WEST" directions(766) = "NORTH OR SOUTH" directions(767) = "NORTH, SOUTH, OR EAST" directions(768) = "NORTH OR SOUTH" directions(769) = "NORTH OR WEST" directions(770) = "EAST OR WEST" directions(771) = "EAST OR SOUTH" directions(772) = "NORTH OR SOUTH" directions(773) = "NORTH OR SOUTH" directions(774) = "NORTH OR SOUTH" directions(775) = "NORTH OR SOUTH" directions(776) = "EAST OR WEST" directions(777) = "EAST OR WEST" directions(778) = "NORTH, EAST, OR WEST" directions(779) = "NORTH OR SOUTH" directions(780) = "EAST OR WEST" directions(781) = "WEST OR SOUTH" directions(782) = "NORTH OR EAST" directions(783) = "EAST OR WEST" directions(784) = "EAST OR WEST" directions(785) = "NORTH OR WEST" directions(786) = "NORTH OR SOUTH" directions(787) = "NORTH OR SOUTH" directions(788) = "NORTH OR SOUTH" directions(789) = "NORTH OR SOUTH" directions(790) = "NORTH OR SOUTH" directions(791) = "NORTH OR SOUTH" directions(792) = "EAST, WEST, OR SOUTH" directions(793) = "EAST OR WEST" directions(794) = "EAST OR WEST" directions(795) = "EAST OR WEST" directions(796) = "EAST OR WEST" directions(797) = "EAST OR WEST" directions(798) = "EAST OR WEST" directions(799) = "EAST OR WEST" directions(800) = "EAST OR WEST" directions(801) = "EAST OR WEST" directions(802) = "NORTH OR SOUTH" directions(803) = "NORTH, SOUTH, EAST, OR WEST" directions(804) = "WEST OR SOUTH" directions(805) = "NORTH, SOUTH, OR WEST" directions(806) = "NORTH, SOUTH, OR WEST" directions(807) = "NORTH, SOUTH, EAST, OR WEST" directions(808) = "NORTH, SOUTH, OR WEST" directions(809) = "NORTH OR SOUTH" directions(810) = "NORTH OR WEST" directions(811) = "NORTH, SOUTH, EAST, OR WEST" directions(812) = "NORTH OR EAST" directions(813) = "NORTH, SOUTH, OR EAST" directions(814) = "NORTH, SOUTH, OR EAST" directions(815) = "NORTH, SOUTH, EAST, OR WEST" directions(816) = "NORTH, SOUTH, OR EAST" directions(817) = "NORTH, SOUTH, OR EAST" directions(818) = "EAST, OR SOUTH" directions(819) = "NORTH, SOUTH, EAST, OR WEST" directions(820) = "NORTH, SOUTH, EAST, OR WEST" directions(821) = "NORTH, SOUTH, EAST, OR WEST" directions(822) = "NORTH, SOUTH, EAST, OR WEST" directions(823) = "NORTH, SOUTH, EAST, OR WEST" directions(824) = "EAST OR WEST" directions(825) = "EAST OR WEST" directions(826) = "EAST OR WEST" directions(827) = "EAST OR WEST" directions(828) = "SOUTH OR EAST" directions(829) = "NORTH, SOJUTH, EAST, OR WEST" directions(830) = "WEST OR SOUTH" directions(831) = "NORTH, SOUTH, OR WEST" directions(832) = "NORTH OR WEST" directions(833) = "NORTH, EAST, OR WEST" directions(834) = "NORTH OR EAST" directions(835) = "NORTH, SOUTH, OR EAST" directions(836) = "EAST OR SOUTH" directions(837) = "NORTH, SOUTH, EAST, OR WEST" directions(838) = "EAST OR WEST" directions(839) = "EAST OR WEST" directions(840) = "EAST OR WEST" directions(841) = "EAST OR WEST" directions(842) = "SOUTH OR WEST" directions(843) = "NORTH, SOUTH, EAST, OR WEST" directions(844) = "SOUTH OR WEST" directions(845) = "NORTH, SOUTH, OR WEST" directions(846) = "NORTH OR WEST" directions(847) = "NORTH, EAST, OR WEST" directions(848) = "NORTH, SOUTH, EAST, OR WEST" directions(849) = "NORTH, SOUTH, OR EAST" directions(850) = "EAST OR SOUTH" directions(851) = "NORTH OR EAST" directions(852) = "NORTH OR SOUTH" directions(853) = "NORTH OR SOUTH" directions(854) = "NORTH OR SOUTH" directions(855) = "NORTH OR SOUTH" directions(856) = "NORTH, SOUTH, EAST, OR WEST" directions(857) = "EAST, WEST, OR SOUTH" directions(858) = "WEST OR SOUTH" directions(859) = "NORTH, SOUTH, OR WEST" directions(860) = "NORTH, SOUTH, OR WEST" directions(861) = "NORTH, SOUTH, OR WEST" directions(862) = "NORTH OR WEST" directions(863) = "NORTH, EAST, OR WEST" directions(864) = "NORTH, EAST, OR WEST" directions(865) = "NORTH, EAST, OR WEST" directions(866) = "NORTH OR EAST" directions(867) = "NORTH, SOUTH, OR EAST" directions(868) = "NORTH, SOUTH, EAST, OR WEST" directions(869) = "NORTH, SOUTH, EAST, OR WEST" directions(870) = "NORTH, SOUTH, EAST, OR WEST" directions(871) = "NORTH, SOUTH, EAST, OR WEST" directions(872) = "NORTH, SOUTH, EAST, OR WEST" directions(873) = "NORTH, SOUTH, EAST, OR WEST" directions(874) = "NORTH, SOUTH, OR EAST" directions(875) = "NORTH, SOUTH, OR EAST" directions(876) = "NORTH, SOUTH, EAST, OR WEST" directions(877) = "NORTH, SOUTH, EAST, OR WEST" directions(878) = "NORTH, SOUTH, EAST, OR WEST" directions(879) = "SOUTH, EAST, OR WEST" directions(880) = "SOUTH OR EAST" directions(881) = "EAST OR WEST" directions(882) = "EAST OR WEST" directions(883) = "EAST OR WEST" directions(884) = "EAST OR WEST" directions(885) = "EAST OR WEST" directions(886) = "EAST OR WEST" directions(887) = "EAST OR WEST" directions(888) = "NORTH OR WEST" directions(889) = "NORTH OR SOUTH" directions(890) = "NORTH OR SOUTH" directions(891) = "NORTH, SOUTH, OR WEST" directions(892) = "EAST OR WEST" directions(893) = "NORTH OR EAST" directions(894) = "NORTH OR SOUTH" directions(895) = "NORTH OR SOUTH" directions(896) = "WEST OR SOUTH" directions(897) = "EAST OR WEST" directions(898) = "EAST OR WEST" directions(899) = "NORTH OR EAST" directions(900) = "NORTH OR SOUTH" directions(901) = "NORTH OR SOUTH" directions(902) = "NORTH OR SOUTH" directions(903) = "NORTH OR SOUTH" directions(904) = "NORTH OR SOUTH" directions(905) = "EAST, WEST, OR SOUTH" directions(906) = "NORTH OR EAST" directions(907) = "NORTH OR SOUTH" directions(908) = "NORTH OR SOUTH" directions(909) = "SOUTH" directions(910) = "NORTH OR WEST" directions(911) = "NORTH OR SOUTH" directions(912) = "EAST OR SOUTH" directions(913) = "NORTH OR WEST" directions(914) = "SOUTH OR EAST" directions(915) = "EAST OR WEST" directions(916) = "EAST OR WEST" directions(917) = "NORTH, SOUTH, OR EAST" directions(918) = "NORTH OR SOUTH" directions(919) = "NORTH OR SOUTH" directions(920) = "NORTH OR SOUTH" directions(921) = "NORTH OR SOUTH" directions(922) = "NORTH OR SOUTH" directions(923) = "NORTH OR SOUTH" directions(924) = "NORTH OR SOUTH" directions(925) = "NORTH OR SOUTH" directions(926) = "NORTH OR SOUTH" directions(927) = "NORTH OR SOUTH" directions(928) = "NORTH OR SOUTH" directions(929) = "NORTH OR SOUTH" directions(930) = "NORTH, SOUTH, OR EAST" directions(931) = "NORTH, SOUTH, OR WEST" directions(932) = "NORTH, SOUTH, OR EAST" directions(933) = "NORTH OR SOUTH" directions(934) = "NORTH OR SOUTH" directions(935) = "NORTH OR SOUTH" directions(936) = "NORTH OR SOUTH" directions(937) = "NORTH OR SOUTH" directions(938) = "NORTH OR SOUTH" directions(939) = "NORTH OR SOUTH" directions(940) = "NORTH OR SOUTH" directions(941) = "NORTH OR SOUTH" directions(942) = "NORTH OR SOUTH" directions(943) = "NORTH OR SOUTH" directions(944) = "NORTH OR SOUTH" directions(945) = "NORTH, SOUTH, OR EAST" directions(946) = "EAST OR WEST" directions(947) = "NORTH OR WEST" directions(948) = "NORTH OR SOUTH" directions(949) = "NORTH OR SOUTH" directions(950) = "EAST OR SOUTH" directions(951) = "EAST OR WEST" directions(952) = "EAST OR WEST" directions(953) = "NORTH OR WEST" directions(954) = "NORTH OR SOUTH" directions(955) = "NORTH OR SOUTH" directions(956) = "NORTH OR SOUTH" directions(957) = "NORTH OR SOUTH" directions(958) = "NORTH OR SOUTH" directions(959) = "EAST, WEST, OR SOUTH" directions(960) = "NORTH OR WEST" directions(961) = "NORTH OR SOUTH" directions(962) = "NORTH OR SOUTH" directions(963) = "SOUTH" directions(964) = "NORTH OR EAST" directions(965) = "NORTH OR SOUTH" directions(966) = "WEST OR SOUTH" directions(967) = "NORTH OR EAST" directions(968) = "WEST OR SOUTH" directions(969) = "EAST OR WEST" directions(970) = "EAST OR WEST" directions(971) = "NORTH OR SOUTH" directions(972) = "NORTH OR SOUTH" directions(973) = "NORTH OR EAST" directions(974) = "EAST OR WEST" directions(975) = "EAST OR WEST" directions(976) = "EAST OR WEST" directions(977) = "EAST OR WEST" directions(978) = "EAST OR WEST" directions(979) = "EAST OR WEST" directions(980) = "EAST OR WEST" directions(981) = "WEST" directions(982) = "NORTH OR SOUTH" directions(983) = "NORTH OR SOUTH" directions(984) = "NORTH OR SOUTH" directions(985) = "NORTH OR SOUTH" directions(986) = "NORTH OR SOUTH" directions(987) = "NORTH OR SOUTH" directions(988) = "NORTH, SOUTH, OR EAST" directions(989) = "EAST OR WEST" directions(990) = "NORTH OR WEST" directions(991) = "NORTH, SOUTH, OR EAST" directions(992) = "EAST OR WEST" directions(993) = "NORTH OR WEST" directions(994) = "NORTH OR SOUTH" directions(995) = "NORTH OR SOUTH" directions(996) = "NORTH, SOUTH, OR EAST" directions(997) = "EAST OR WEST" directions(998) = "NORTH, EAST ,OR WEST" directions(999) = "NORTH OR WEST" directions(1000) = "NORTH, SOUTH, OR WEST" directions(1001) = "NORTH, SOUTH ,OR EAST" directions(1002) = "NORTH, SOUTH, OR EAST" directions(1003) = "WEST OR SOUTH" directions(1004) = "NORTH OR SOUTH" directions(1005) = "NORTH OR SOUTH" directions(1006) = "NORTH OR SOUTH" directions(1007) = "NORTH OR SOUTH" directions(1008) = "NORTH, SOUTH, OR WEST" directions(1009) = "NORTH OR SOUTH" directions(1010) = "NORTH OR SOUTH" directions(1011) = "EAST, WEST, OR SOUTH" directions(1012) = "WEST" directions(1013) = "EAST OR WEST" directions(1014) = "EAST OR WEST" directions(1015) = "SOUTH OR EAST" directions(1016) = "NORTH OR SOUTH" directions(1017) = "NORTH OR SOUTH" directions(1018) = "NORTH, EAST, OR WEST" directions(1019) = "EAST, WEST, OR SOUTH" directions(1020) = "EAST OR WEST" directions(1021) = "NORTH OR SOUTH" directions(1022) = "NORTH OR SOUTH" directions(1023) = "NORTH, SOUTH, OR WEST" directions(1024) = "NORTH OR SOUTH" directions(1025) = "NORTH, SOUTH, OR WEST" directions(1026) = "NORTH OR SOUTH" directions(1027) = "EAST OR WEST" directions(1028) = "NORTH OR EAST" directions(1029) = "NORTH, SOUTH, OR WEST" directions(1030) = "SOUTH OR EAST" directions(1031) = "EAST OR WEST" directions(1032) = "EAST OR WEST" directions(1033) = "EAST OR WEST" directions(1034) = "EAST OR SOUTH" directions(1035) = "NORTH OR SOUTH" directions(1036) = "NORTH, SOUTH, EAST, OR WEST" directions(1037) = "WEST OR SOUTH" directions(1038) = "NORTH, SOUTH, OR WEST" directions(1039) = "NORTH, SOUTH, EAST, OR WEST" directions(1040) = "NORTH, SOUTH, OR EAST" directions(1041) = "EAST OR SOUTH" directions(1042) = "NORTH OR EAST" directions(1043) = "NORTH, EAST, OR WEST" directions(1044) = "NORTH OR WEST" directions(1045) = "NORTH, SOUTH, OR EAST" directions(1046) = "NORTH OR SOUTH" directions(1047) = "EAST OR WEST" directions(1048) = "WEST OR SOUTH" directions(1049) = "EAST OR WEST" directions(1050) = "EAST OR WEST" directions(1051) = "NORTH OR EAST" directions(1052) = "NORTH OR SOUTH" directions(1053) = "WEST OR SOUTH" directions(1054) = "EAST OR WEST" directions(1055) = "EAST OR WEST" directions(1056) = "EAST OR WEST" directions(1057) = "EAST, WEST, OR SOUTH" directions(1058) = "EAST OR WEST" directions(1059) = "EAST, WEST, OR SOUTH" directions(1060) = "EAST OR WEST" directions(1061) = "EAST OR SOUTH" directions(1062) = "NORTH OR SOUTH" directions(1063) = "NORTH, SOUTH, OR EAST" directions(1064) = "EAST OR WEST" directions(1065) = "NORTH OR WEST" directions(1066) = "NORTH OR SOUTH" directions(1067) = "NORTH OR SOUTH" directions(1068) = "NORTH OR SOUTH" directions(1069) = "NORTH OR EAST" directions(1070) = "EAST OR WEST" directions(1071) = "NORTH OR SOUTH" directions(1072) = "EAST OR SOUTH" directions(1073) = "EAST OR WEST" directions(1074) = "EAST OR WEST" directions(1075) = "EAST, WEST, OR NORTH" directions(1076) = "NORTH OR SOUTH" directions(1077) = "NORTH OR SOUTH" directions(1078) = "EAST, WEST, OR SOUTH" directions(1079) = "NORTH OR EAST" directions(1080) = "NORTH OR SOUTH" directions(1081) = "EAST OR WEST" directions(1082) = "WEST OR SOUTH" directions(1083) = "NORTH OR SOUTH" directions(1084) = "NORTH OR SOUTH" directions(1085) = "NORTH OR WEST" directions(1086) = "EAST OR WEST" directions(1087) = "NORTH OR SOUTH" directions(1088) = "NORTH OR SOUTH" directions(1089) = "NORTH, SOUTH, OR EAST" directions(1090) = "EAST OR WEST" directions(1091) = "EAST OR WEST" directions(1092) = "WEST OR SOUTH" directions(1093) = "NORTH OR SOUTH" directions(1094) = "NORTH OR SOUTH" directions(1095) = "NORTH, EAST, OR WEST" directions(1096) = "EAST OR WEST" directions(1097) = "NORTH OR EAST" directions(1098) = "WEST OR SOUTH" directions(1099) = "NORTH OR EAST" directions(1100) = "NORTH OR SOUTH" directions(1101) = "EAST OR WEST" directions(1102) = "WEST OR SOUTH" directions(1103) = "NORTH OR SOUTH" directions(1104) = "NORTH OR SOUTH" directions(1105) = "NORTH OR SOUTH" PRINT "" PRINT "For years you have been searching the barren valleys of Atlas. Following" PRINT "the ancient clues scattered through many out of print books. Your Father" PRINT "and Grandfather both spent their lives searching through the Atlas region" PRINT "in the hopes of shedding light on this unsolved mystery. The whereabouts" PRINT "of those who've lived in the Atlas Valley during the Age of Lubok supposedly" PRINT "vanished without a trace and their entire society with it the Temple that" PRINT "was built by their supposed Gods. Many believe your insane for continuing" PRINT "your research. But you feel so close to uncovering the truth of the Atlas" PRINT "people." PRINT "" PRINT "Good Luck..." DO: LOOP UNTIL INKEY$ <> "" DO: LOOP UNTIL INKEY$ <> "" DOOM = TIMER(0.001) + GameTime 'change this to to desied time for the game to run DO CLS PRINT PRINT PRINT " " PRINT " " PRINT " " PRINT " The Forgotten Kingdom " PRINT " " PRINT " Coded by " PRINT " D.B. Taylor " PRINT "" PRINT " Copyright (c) 2016" PRINT "" PRINT SPACE$(38); IF INSTR(directions(r), "NORTH") THEN PRINT "N" ELSE PRINT PRINT "*---------------------------------* "; IF INSTR(directions(r), "WEST") THEN PRINT "W"; ELSE PRINT " "; PRINT " + "; IF INSTR(directions(r), "EAST") THEN PRINT "E"; ELSE PRINT " "; PRINT " *------------------------------------*" PRINT SPACE$(38); IF INSTR(directions(r), "SOUTH") THEN PRINT "S" ELSE PRINT PRINT PRINT "If you are stuck just type HELP." PRINT GOSUB ROOM GOSUB parser LOOP ROOM: IF r = 1 THEN: GOSUB r1 IF r = 2 THEN: GOSUB r2 IF r = 3 THEN: GOSUB r3 IF r = 4 THEN: GOSUB r4 IF r = 5 THEN: GOSUB r5 IF r = 6 THEN: GOSUB r6 IF r = 7 THEN: GOSUB r7 IF r = 8 THEN: GOSUB r8 IF r = 9 THEN: GOSUB r9 IF r = 10 THEN: GOSUB r10 IF r = 11 THEN: GOSUB r11 IF r = 12 THEN: GOSUB r12 IF r = 13 THEN: GOSUB r13 IF r = 14 THEN: GOSUB r14 IF r = 15 THEN: GOSUB r15 IF r = 16 THEN: GOSUB r16 IF r = 17 THEN: GOSUB r17 IF r = 18 THEN: GOSUB r18 IF r = 19 THEN: GOSUB r19 IF r = 20 THEN: GOSUB r20 IF r = 21 THEN: GOSUB r21 IF r = 22 THEN: GOSUB r22 IF r = 23 THEN: GOSUB r23 IF r = 24 THEN: GOSUB r24 IF r = 25 THEN: GOSUB r25 IF r = 26 THEN: GOSUB r26 IF r = 27 THEN: GOSUB r27 IF r = 28 THEN: GOSUB r28 IF r = 29 THEN: GOSUB r29 IF r = 30 THEN: GOSUB r30 IF r = 31 THEN: GOSUB r31 IF r = 32 THEN: GOSUB r32 IF r = 33 THEN: GOSUB r33 IF r = 34 THEN: GOSUB r34 IF r = 35 THEN: GOSUB r35 IF r = 36 THEN: GOSUB r36 IF r = 37 THEN: GOSUB r37 IF r = 38 THEN: GOSUB r38 IF r = 39 THEN: GOSUB r39 IF r = 40 THEN: GOSUB r40 IF r = 41 THEN: GOSUB r41 IF r = 42 THEN: GOSUB r42 IF r = 43 THEN: GOSUB r43 IF r = 44 THEN: GOSUB r44 IF r = 45 THEN: GOSUB r45 IF r = 46 THEN: GOSUB r46 IF r = 47 THEN: GOSUB r47 IF r = 48 THEN: GOSUB r48 IF r = 49 THEN: GOSUB r49 IF r = 50 THEN: GOSUB r50 IF r = 51 THEN: GOSUB r51 IF r = 52 THEN: GOSUB r52 IF r = 53 THEN: GOSUB r53 IF r = 54 THEN: GOSUB r54 IF r = 55 THEN: GOSUB r55 IF r = 56 THEN: GOSUB r56 IF r = 57 THEN: GOSUB r57 IF r = 58 THEN: GOSUB r58 IF r = 59 THEN: GOSUB r59 IF r = 60 THEN: GOSUB r60 IF r = 61 THEN: GOSUB r61 IF r = 62 THEN: GOSUB r62 IF r = 63 THEN: GOSUB r63 IF r = 64 THEN: GOSUB r64 IF r = 65 THEN: GOSUB r65 IF r = 66 THEN: GOSUB r66 IF r = 67 THEN: GOSUB r67 IF r = 68 THEN: GOSUB r68 IF r = 69 THEN: GOSUB r69 IF r = 70 THEN: GOSUB r70 IF r = 71 THEN: GOSUB r71 IF r = 72 THEN: GOSUB r72 IF r = 73 THEN: GOSUB r73 IF r = 74 THEN: GOSUB r74 IF r = 75 THEN: GOSUB r75 IF r = 76 THEN: GOSUB r76 IF r = 77 THEN: GOSUB r77 IF r = 78 THEN: GOSUB r78 IF r = 79 THEN: GOSUB r79 IF r = 80 THEN: GOSUB r80 IF r = 81 THEN: GOSUB r81 IF r = 82 THEN: GOSUB r82 IF r = 83 THEN: GOSUB r83 IF r = 84 THEN: GOSUB r84 IF r = 85 THEN: GOSUB r85 IF r = 86 THEN: GOSUB r86 IF r = 87 THEN: GOSUB r87 IF r = 88 THEN: GOSUB r88 IF r = 89 THEN: GOSUB r89 IF r = 90 THEN: GOSUB r90 IF r = 91 THEN: GOSUB r91 IF r = 92 THEN: GOSUB r92 IF r = 93 THEN: GOSUB r93 IF r = 94 THEN: GOSUB r94 IF r = 95 THEN: GOSUB r95 IF r = 96 THEN: GOSUB r96 IF r = 97 THEN: GOSUB r97 IF r = 98 THEN: GOSUB r98 IF r = 99 THEN: GOSUB r99 IF r = 100 THEN: GOSUB r100 IF r = 101 THEN: GOSUB r101 IF r = 100 THEN: GOSUB r100 IF r = 101 THEN: GOSUB r101 IF r = 102 THEN: GOSUB r102 IF r = 103 THEN: GOSUB r103 IF r = 104 THEN: GOSUB r104 IF r = 105 THEN: GOSUB r105 IF r = 106 THEN: GOSUB r106 IF r = 107 THEN: GOSUB r107 IF r = 108 THEN: GOSUB r108 IF r = 109 THEN: GOSUB r109 IF r = 110 THEN: GOSUB r110 IF r = 111 THEN: GOSUB r111 IF r = 112 THEN: GOSUB r112 IF r = 113 THEN: GOSUB r113 IF r = 114 THEN: GOSUB r114 IF r = 115 THEN: GOSUB r115 IF r = 116 THEN: GOSUB r116 IF r = 117 THEN: GOSUB r117 IF r = 118 THEN: GOSUB r118 IF r = 119 THEN: GOSUB r119 IF r = 120 THEN: GOSUB r120 IF r = 121 THEN: GOSUB r121 IF r = 122 THEN: GOSUB r122 IF r = 123 THEN: GOSUB r123 IF r = 124 THEN: GOSUB r124 IF r = 125 THEN: GOSUB r125 IF r = 126 THEN: GOSUB r126 IF r = 127 THEN: GOSUB r127 IF r = 128 THEN: GOSUB r128 IF r = 129 THEN: GOSUB r129 IF r = 130 THEN: GOSUB r130 IF r = 131 THEN: GOSUB r131 IF r = 132 THEN: GOSUB r132 IF r = 133 THEN: GOSUB r133 IF r = 134 THEN: GOSUB r134 IF r = 135 THEN: GOSUB r135 IF r = 136 THEN: GOSUB r136 IF r = 137 THEN: GOSUB r137 IF r = 138 THEN: GOSUB r138 IF r = 139 THEN: GOSUB r139 IF r = 140 THEN: GOSUB r140 IF r = 141 THEN: GOSUB r141 IF r = 142 THEN: GOSUB r142 IF r = 143 THEN: GOSUB r143 IF r = 144 THEN: GOSUB r144 IF r = 145 THEN: GOSUB r145 IF r = 146 THEN: GOSUB r146 IF r = 147 THEN: GOSUB r147 IF r = 148 THEN: GOSUB r148 IF r = 149 THEN: GOSUB r149 IF r = 150 THEN: GOSUB r150 IF r = 151 THEN: GOSUB r151 IF r = 152 THEN: GOSUB r152 IF r = 153 THEN: GOSUB r153 IF r = 154 THEN: GOSUB r154 IF r = 155 THEN: GOSUB r155 IF r = 156 THEN: GOSUB r156 IF r = 157 THEN: GOSUB r157 IF r = 158 THEN: GOSUB r158 IF r = 159 THEN: GOSUB r159 IF r = 160 THEN: GOSUB r160 IF r = 161 THEN: GOSUB r161 IF r = 162 THEN: GOSUB r162 IF r = 163 THEN: GOSUB r163 IF r = 164 THEN: GOSUB r164 IF r = 165 THEN: GOSUB r165 IF r = 166 THEN: GOSUB r166 IF r = 167 THEN: GOSUB r167 IF r = 168 THEN: GOSUB r168 IF r = 169 THEN: GOSUB r169 IF r = 170 THEN: GOSUB r170 IF r = 171 THEN: GOSUB r171 IF r = 172 THEN: GOSUB r172 IF r = 173 THEN: GOSUB r173 IF r = 174 THEN: GOSUB r174 IF r = 175 THEN: GOSUB r175 IF r = 176 THEN: GOSUB r176 IF r = 177 THEN: GOSUB r177 IF r = 178 THEN: GOSUB r178 IF r = 179 THEN: GOSUB r179 IF r = 180 THEN: GOSUB r180 IF r = 181 THEN: GOSUB r181 IF r = 182 THEN: GOSUB r182 IF r = 183 THEN: GOSUB r183 IF r = 184 THEN: GOSUB r184 IF r = 185 THEN: GOSUB r185 IF r = 186 THEN: GOSUB r186 IF r = 187 THEN: GOSUB r187 IF r = 188 THEN: GOSUB r188 IF r = 189 THEN: GOSUB r189 IF r = 190 THEN: GOSUB r190 IF r = 191 THEN: GOSUB r191 IF r = 192 THEN: GOSUB r192 IF r = 193 THEN: GOSUB r193 IF r = 194 THEN: GOSUB r194 IF r = 195 THEN: GOSUB r195 IF r = 196 THEN: GOSUB r196 IF r = 197 THEN: GOSUB r197 IF r = 198 THEN: GOSUB r198 IF r = 199 THEN: GOSUB r199 IF r = 200 THEN: GOSUB r200 IF r = 201 THEN: GOSUB r201 IF r = 202 THEN: GOSUB r202 IF r = 203 THEN: GOSUB r203 IF r = 204 THEN: GOSUB r204 IF r = 205 THEN: GOSUB r205 IF r = 206 THEN: GOSUB r206 IF r = 207 THEN: GOSUB r207 IF r = 208 THEN: GOSUB r208 IF r = 209 THEN: GOSUB r209 IF r = 210 THEN: GOSUB r210 IF r = 211 THEN: GOSUB r211 IF r = 212 THEN: GOSUB r212 IF r = 213 THEN: GOSUB r213 IF r = 214 THEN: GOSUB r214 IF r = 215 THEN: GOSUB r215 IF r = 216 THEN: GOSUB r216 IF r = 217 THEN: GOSUB r217 IF r = 218 THEN: GOSUB r218 IF r = 219 THEN: GOSUB r219 IF r = 220 THEN: GOSUB r220 IF r = 221 THEN: GOSUB r221 IF r = 222 THEN: GOSUB r222 IF r = 223 THEN: GOSUB r223 IF r = 224 THEN: GOSUB r224 IF r = 225 THEN: GOSUB r225 IF r = 226 THEN: GOSUB r226 IF r = 227 THEN: GOSUB r227 IF r = 228 THEN: GOSUB r228 IF r = 229 THEN: GOSUB r229 IF r = 230 THEN: GOSUB r230 IF r = 231 THEN: GOSUB r231 IF r = 232 THEN: GOSUB r232 IF r = 233 THEN: GOSUB r233 IF r = 234 THEN: GOSUB r234 IF r = 235 THEN: GOSUB r235 IF r = 236 THEN: GOSUB r236 IF r = 237 THEN: GOSUB r237 IF r = 238 THEN: GOSUB r238 IF r = 239 THEN: GOSUB r239 IF r = 240 THEN: GOSUB r240 IF r = 241 THEN: GOSUB r241 IF r = 242 THEN: GOSUB r242 IF r = 243 THEN: GOSUB r243 IF r = 244 THEN: GOSUB r244 IF r = 245 THEN: GOSUB r245 IF r = 246 THEN: GOSUB r246 IF r = 247 THEN: GOSUB r247 IF r = 248 THEN: GOSUB r248 IF r = 249 THEN: GOSUB r249 IF r = 250 THEN: GOSUB r250 IF r = 251 THEN: GOSUB r251 IF r = 252 THEN: GOSUB r252 IF r = 253 THEN: GOSUB r253 IF r = 254 THEN: GOSUB r254 IF r = 255 THEN: GOSUB r255 IF r = 256 THEN: GOSUB r256 IF r = 257 THEN: GOSUB r257 IF r = 258 THEN: GOSUB r258 IF r = 259 THEN: GOSUB r259 IF r = 260 THEN: GOSUB r260 IF r = 261 THEN: GOSUB r261 IF r = 262 THEN: GOSUB r262 IF r = 263 THEN: GOSUB r263 IF r = 264 THEN: GOSUB r264 IF r = 265 THEN: GOSUB r265 IF r = 266 THEN: GOSUB r266 IF r = 267 THEN: GOSUB r267 IF r = 268 THEN: GOSUB r268 IF r = 269 THEN: GOSUB r269 IF r = 270 THEN: GOSUB r270 IF r = 271 THEN: GOSUB r271 IF r = 272 THEN: GOSUB r272 IF r = 273 THEN: GOSUB r273 IF r = 274 THEN: GOSUB r274 IF r = 275 THEN: GOSUB r275 IF r = 276 THEN: GOSUB r276 IF r = 277 THEN: GOSUB r277 IF r = 278 THEN: GOSUB r278 IF r = 279 THEN: GOSUB r279 IF r = 280 THEN: GOSUB r280 IF r = 281 THEN: GOSUB r281 IF r = 282 THEN: GOSUB r282 IF r = 283 THEN: GOSUB r283 IF r = 284 THEN: GOSUB r284 IF r = 285 THEN: GOSUB r285 IF r = 286 THEN: GOSUB r286 IF r = 287 THEN: GOSUB r287 IF r = 288 THEN: GOSUB r288 IF r = 289 THEN: GOSUB r289 IF r = 290 THEN: GOSUB r290 IF r = 291 THEN: GOSUB r291 IF r = 292 THEN: GOSUB r292 IF r = 293 THEN: GOSUB r293 IF r = 294 THEN: GOSUB r294 IF r = 295 THEN: GOSUB r295 IF r = 296 THEN: GOSUB r296 IF r = 297 THEN: GOSUB r297 IF r = 298 THEN: GOSUB r298 IF r = 299 THEN: GOSUB r299 IF r = 300 THEN: GOSUB r300 IF r = 301 THEN: GOSUB r301 IF r = 302 THEN: GOSUB r302 IF r = 303 THEN: GOSUB r303 IF r = 304 THEN: GOSUB r304 IF r = 305 THEN: GOSUB r305 IF r = 306 THEN: GOSUB r306 IF r = 307 THEN: GOSUB r307 IF r = 308 THEN: GOSUB r308 IF r = 309 THEN: GOSUB r309 IF r = 310 THEN: GOSUB r310 IF r = 311 THEN: GOSUB r311 IF r = 312 THEN: GOSUB r312 IF r = 313 THEN: GOSUB r313 IF r = 314 THEN: GOSUB r314 IF r = 315 THEN: GOSUB r315 IF r = 316 THEN: GOSUB r316 IF r = 317 THEN: GOSUB r317 IF r = 318 THEN: GOSUB r318 IF r = 319 THEN: GOSUB r319 IF r = 320 THEN: GOSUB r320 IF r = 321 THEN: GOSUB r321 IF r = 322 THEN: GOSUB r322 IF r = 323 THEN: GOSUB r323 IF r = 324 THEN: GOSUB r324 IF r = 325 THEN: GOSUB r325 IF r = 326 THEN: GOSUB r326 IF r = 327 THEN: GOSUB r327 IF r = 328 THEN: GOSUB r328 IF r = 329 THEN: GOSUB r329 IF r = 330 THEN: GOSUB r330 IF r = 331 THEN: GOSUB r331 IF r = 332 THEN: GOSUB r332 IF r = 333 THEN: GOSUB r333 IF r = 334 THEN: GOSUB r334 IF r = 335 THEN: GOSUB r335 IF r = 336 THEN: GOSUB r336 IF r = 337 THEN: GOSUB r337 IF r = 338 THEN: GOSUB r338 IF r = 339 THEN: GOSUB r339 IF r = 340 THEN: GOSUB r340 IF r = 341 THEN: GOSUB r341 IF r = 342 THEN: GOSUB r342 IF r = 343 THEN: GOSUB r343 IF r = 344 THEN: GOSUB r344 IF r = 345 THEN: GOSUB r345 IF r = 346 THEN: GOSUB r346 IF r = 347 THEN: GOSUB r347 IF r = 348 THEN: GOSUB r348 IF r = 349 THEN: GOSUB r349 IF r = 350 THEN: GOSUB r350 IF r = 351 THEN: GOSUB r351 IF r = 352 THEN: GOSUB r352 IF r = 353 THEN: GOSUB r353 IF r = 354 THEN: GOSUB r354 IF r = 355 THEN: GOSUB r355 IF r = 356 THEN: GOSUB r356 IF r = 357 THEN: GOSUB r357 IF r = 358 THEN: GOSUB r358 IF r = 359 THEN: GOSUB r359 IF r = 360 THEN: GOSUB r360 IF r = 361 THEN: GOSUB r361 IF r = 362 THEN: GOSUB r362 IF r = 363 THEN: GOSUB r363 IF r = 364 THEN: GOSUB r364 IF r = 365 THEN: GOSUB r365 IF r = 366 THEN: GOSUB r366 IF r = 367 THEN: GOSUB r367 IF r = 368 THEN: GOSUB r368 IF r = 369 THEN: GOSUB r369 IF r = 370 THEN: GOSUB r370 IF r = 371 THEN: GOSUB r371 IF r = 372 THEN: GOSUB r372 IF r = 373 THEN: GOSUB r373 IF r = 374 THEN: GOSUB r374 IF r = 375 THEN: GOSUB r375 IF r = 376 THEN: GOSUB r376 IF r = 377 THEN: GOSUB r377 IF r = 378 THEN: GOSUB r378 IF r = 379 THEN: GOSUB r379 IF r = 380 THEN: GOSUB r380 IF r = 381 THEN: GOSUB r381 IF r = 382 THEN: GOSUB r382 IF r = 383 THEN: GOSUB r383 IF r = 384 THEN: GOSUB r384 IF r = 385 THEN: GOSUB r385 IF r = 386 THEN: GOSUB r386 IF r = 387 THEN: GOSUB r387 IF r = 388 THEN: GOSUB r388 IF r = 389 THEN: GOSUB r389 IF r = 390 THEN: GOSUB r390 IF r = 391 THEN: GOSUB r391 IF r = 392 THEN: GOSUB r392 IF r = 393 THEN: GOSUB r393 IF r = 394 THEN: GOSUB r394 IF r = 395 THEN: GOSUB r395 IF r = 396 THEN: GOSUB r396 IF r = 397 THEN: GOSUB r397 IF r = 398 THEN: GOSUB r398 IF r = 399 THEN: GOSUB r399 IF r = 400 THEN: GOSUB r400 IF r = 401 THEN: GOSUB r401 IF r = 402 THEN: GOSUB r402 IF r = 403 THEN: GOSUB r403 IF r = 404 THEN: GOSUB r404 IF r = 405 THEN: GOSUB r405 IF r = 406 THEN: GOSUB r406 IF r = 407 THEN: GOSUB r407 IF r = 408 THEN: GOSUB r408 IF r = 409 THEN: GOSUB r409 IF r = 410 THEN: GOSUB r410 IF r = 411 THEN: GOSUB r411 IF r = 412 THEN: GOSUB r412 IF r = 413 THEN: GOSUB r413 IF r = 414 THEN: GOSUB r414 IF r = 415 THEN: GOSUB r415 IF r = 416 THEN: GOSUB r416 IF r = 417 THEN: GOSUB r417 IF r = 418 THEN: GOSUB r418 IF r = 419 THEN: GOSUB r419 IF r = 420 THEN: GOSUB r420 IF r = 421 THEN: GOSUB r421 IF r = 422 THEN: GOSUB r422 IF r = 423 THEN: GOSUB r423 IF r = 424 THEN: GOSUB r424 IF r = 425 THEN: GOSUB r425 IF r = 426 THEN: GOSUB r426 IF r = 427 THEN: GOSUB r427 IF r = 428 THEN: GOSUB r428 IF r = 429 THEN: GOSUB r429 IF r = 430 THEN: GOSUB r430 IF r = 431 THEN: GOSUB r431 IF r = 432 THEN: GOSUB r432 IF r = 433 THEN: GOSUB r433 IF r = 434 THEN: GOSUB r434 IF r = 435 THEN: GOSUB r435 IF r = 436 THEN: GOSUB r436 IF r = 437 THEN: GOSUB r437 IF r = 438 THEN: GOSUB r438 IF r = 439 THEN: GOSUB r439 IF r = 440 THEN: GOSUB r440 IF r = 441 THEN: GOSUB r441 IF r = 442 THEN: GOSUB r442 IF r = 443 THEN: GOSUB r443 IF r = 444 THEN: GOSUB r444 IF r = 445 THEN: GOSUB r445 IF r = 446 THEN: GOSUB r446 IF r = 447 THEN: GOSUB r447 IF r = 448 THEN: GOSUB r448 IF r = 449 THEN: GOSUB r449 IF r = 450 THEN: GOSUB r450 IF r = 451 THEN: GOSUB r451 IF r = 452 THEN: GOSUB r452 IF r = 453 THEN: GOSUB r453 IF r = 454 THEN: GOSUB r454 IF r = 455 THEN: GOSUB r455 IF r = 456 THEN: GOSUB r456 IF r = 457 THEN: GOSUB r457 IF r = 458 THEN: GOSUB r458 IF r = 459 THEN: GOSUB r459 IF r = 460 THEN: GOSUB r460 IF r = 461 THEN: GOSUB r461 IF r = 462 THEN: GOSUB r462 IF r = 463 THEN: GOSUB r463 IF r = 464 THEN: GOSUB r464 IF r = 465 THEN: GOSUB r465 IF r = 466 THEN: GOSUB r466 IF r = 467 THEN: GOSUB r467 IF r = 468 THEN: GOSUB r468 IF r = 469 THEN: GOSUB r469 IF r = 470 THEN: GOSUB r470 IF r = 471 THEN: GOSUB r471 IF r = 472 THEN: GOSUB r472 IF r = 473 THEN: GOSUB r473 IF r = 474 THEN: GOSUB r474 IF r = 475 THEN: GOSUB r475 IF r = 476 THEN: GOSUB r476 IF r = 477 THEN: GOSUB r477 IF r = 478 THEN: GOSUB r478 IF r = 479 THEN: GOSUB r479 IF r = 480 THEN: GOSUB r480 IF r = 481 THEN: GOSUB r481 IF r = 482 THEN: GOSUB r482 IF r = 483 THEN: GOSUB r483 IF r = 484 THEN: GOSUB r484 IF r = 485 THEN: GOSUB r485 IF r = 486 THEN: GOSUB r486 IF r = 487 THEN: GOSUB r487 IF r = 488 THEN: GOSUB r488 IF r = 489 THEN: GOSUB r489 IF r = 490 THEN: GOSUB r490 IF r = 491 THEN: GOSUB r491 IF r = 492 THEN: GOSUB r492 IF r = 493 THEN: GOSUB r493 IF r = 494 THEN: GOSUB r494 IF r = 495 THEN: GOSUB r495 IF r = 496 THEN: GOSUB r496 IF r = 497 THEN: GOSUB r497 IF r = 498 THEN: GOSUB r498 IF r = 499 THEN: GOSUB r499 IF r = 500 THEN: GOSUB r500 IF r = 501 THEN: GOSUB r501 IF r = 502 THEN: GOSUB r502 IF r = 503 THEN: GOSUB r503 IF r = 504 THEN: GOSUB r504 IF r = 505 THEN: GOSUB r505 IF r = 506 THEN: GOSUB r506 IF r = 507 THEN: GOSUB r507 IF r = 508 THEN: GOSUB r508 IF r = 509 THEN: GOSUB r509 IF r = 510 THEN: GOSUB r510 IF r = 511 THEN: GOSUB r511 IF r = 512 THEN: GOSUB r512 IF r = 513 THEN: GOSUB r513 IF r = 514 THEN: GOSUB r514 IF r = 515 THEN: GOSUB r515 IF r = 516 THEN: GOSUB r516 IF r = 517 THEN: GOSUB r517 IF r = 518 THEN: GOSUB r518 IF r = 519 THEN: GOSUB r519 IF r = 520 THEN: GOSUB r520 IF r = 521 THEN: GOSUB r521 IF r = 522 THEN: GOSUB r522 IF r = 523 THEN: GOSUB r523 IF r = 524 THEN: GOSUB r524 IF r = 525 THEN: GOSUB r525 IF r = 526 THEN: GOSUB r526 IF r = 527 THEN: GOSUB r527 IF r = 528 THEN: GOSUB r528 IF r = 529 THEN: GOSUB r529 IF r = 530 THEN: GOSUB r530 IF r = 531 THEN: GOSUB r531 IF r = 532 THEN: GOSUB r532 IF r = 533 THEN: GOSUB r533 IF r = 534 THEN: GOSUB r534 IF r = 535 THEN: GOSUB r535 IF r = 536 THEN: GOSUB r536 IF r = 537 THEN: GOSUB r537 IF r = 538 THEN: GOSUB r538 IF r = 539 THEN: GOSUB r539 IF r = 540 THEN: GOSUB r540 IF r = 541 THEN: GOSUB r541 IF r = 542 THEN: GOSUB r542 IF r = 543 THEN: GOSUB r543 IF r = 544 THEN: GOSUB r544 IF r = 545 THEN: GOSUB r545 IF r = 546 THEN: GOSUB r546 IF r = 547 THEN: GOSUB r547 IF r = 548 THEN: GOSUB r548 IF r = 549 THEN: GOSUB r549 IF r = 550 THEN: GOSUB r550 IF r = 551 THEN: GOSUB r551 IF r = 552 THEN: GOSUB r552 IF r = 553 THEN: GOSUB r553 IF r = 554 THEN: GOSUB r554 IF r = 555 THEN: GOSUB r555 IF r = 556 THEN: GOSUB r556 IF r = 557 THEN: GOSUB r557 IF r = 558 THEN: GOSUB r558 IF r = 559 THEN: GOSUB r559 IF r = 560 THEN: GOSUB r560 IF r = 561 THEN: GOSUB r561 IF r = 562 THEN: GOSUB r562 IF r = 563 THEN: GOSUB r563 IF r = 564 THEN: GOSUB r564 IF r = 565 THEN: GOSUB r565 IF r = 566 THEN: GOSUB r566 IF r = 567 THEN: GOSUB r567 IF r = 568 THEN: GOSUB r568 IF r = 569 THEN: GOSUB r569 IF r = 570 THEN: GOSUB r570 IF r = 571 THEN: GOSUB r571 IF r = 572 THEN: GOSUB r572 IF r = 573 THEN: GOSUB r573 IF r = 574 THEN: GOSUB r574 IF r = 575 THEN: GOSUB r575 IF r = 576 THEN: GOSUB r576 IF r = 577 THEN: GOSUB r577 IF r = 578 THEN: GOSUB r578 IF r = 579 THEN: GOSUB r579 IF r = 580 THEN: GOSUB r580 IF r = 581 THEN: GOSUB r581 IF r = 582 THEN: GOSUB r582 IF r = 583 THEN: GOSUB r583 IF r = 584 THEN: GOSUB r584 IF r = 585 THEN: GOSUB r585 IF r = 586 THEN: GOSUB r586 IF r = 587 THEN: GOSUB r587 IF r = 588 THEN: GOSUB r588 IF r = 589 THEN: GOSUB r589 IF r = 590 THEN: GOSUB r590 IF r = 591 THEN: GOSUB r591 IF r = 592 THEN: GOSUB r592 IF r = 593 THEN: GOSUB r593 IF r = 594 THEN: GOSUB r594 IF r = 595 THEN: GOSUB r595 IF r = 596 THEN: GOSUB r596 IF r = 597 THEN: GOSUB r597 IF r = 598 THEN: GOSUB r598 IF r = 599 THEN: GOSUB r599 IF r = 600 THEN: GOSUB r600 IF r = 601 THEN: GOSUB r601 IF r = 602 THEN: GOSUB r602 IF r = 603 THEN: GOSUB r603 IF r = 604 THEN: GOSUB r604 IF r = 605 THEN: GOSUB r605 IF r = 606 THEN: GOSUB r606 IF r = 607 THEN: GOSUB r607 IF r = 608 THEN: GOSUB r608 IF r = 609 THEN: GOSUB r609 IF r = 610 THEN: GOSUB r610 IF r = 611 THEN: GOSUB r611 IF r = 612 THEN: GOSUB r612 IF r = 613 THEN: GOSUB r613 IF r = 614 THEN: GOSUB r614 IF r = 615 THEN: GOSUB r615 IF r = 616 THEN: GOSUB r616 IF r = 617 THEN: GOSUB r617 IF r = 618 THEN: GOSUB r618 IF r = 619 THEN: GOSUB r619 IF r = 620 THEN: GOSUB r620 IF r = 621 THEN: GOSUB r621 IF r = 622 THEN: GOSUB r622 IF r = 623 THEN: GOSUB r623 IF r = 624 THEN: GOSUB r624 IF r = 625 THEN: GOSUB r625 IF r = 626 THEN: GOSUB r626 IF r = 627 THEN: GOSUB r627 IF r = 628 THEN: GOSUB r628 IF r = 629 THEN: GOSUB r629 IF r = 630 THEN: GOSUB r630 IF r = 631 THEN: GOSUB r631 IF r = 632 THEN: GOSUB r632 IF r = 633 THEN: GOSUB r633 IF r = 634 THEN: GOSUB r634 IF r = 635 THEN: GOSUB r635 IF r = 636 THEN: GOSUB r636 IF r = 637 THEN: GOSUB r637 IF r = 638 THEN: GOSUB r638 IF r = 639 THEN: GOSUB r639 IF r = 640 THEN: GOSUB r640 IF r = 641 THEN: GOSUB r641 IF r = 642 THEN: GOSUB r642 IF r = 643 THEN: GOSUB r643 IF r = 644 THEN: GOSUB r644 IF r = 645 THEN: GOSUB r645 IF r = 646 THEN: GOSUB r646 IF r = 647 THEN: GOSUB r647 IF r = 648 THEN: GOSUB r648 IF r = 649 THEN: GOSUB r649 IF r = 650 THEN: GOSUB r650 IF r = 651 THEN: GOSUB r651 IF r = 652 THEN: GOSUB r652 IF r = 653 THEN: GOSUB r653 IF r = 654 THEN: GOSUB r654 IF r = 655 THEN: GOSUB r655 IF r = 656 THEN: GOSUB r656 IF r = 657 THEN: GOSUB r657 IF r = 658 THEN: GOSUB r658 IF r = 659 THEN: GOSUB r659 IF r = 660 THEN: GOSUB r660 IF r = 661 THEN: GOSUB r661 IF r = 662 THEN: GOSUB r662 IF r = 663 THEN: GOSUB r663 IF r = 664 THEN: GOSUB r664 IF r = 665 THEN: GOSUB r665 IF r = 666 THEN: GOSUB r666 IF r = 667 THEN: GOSUB r667 IF r = 668 THEN: GOSUB r668 IF r = 669 THEN: GOSUB r669 IF r = 670 THEN: GOSUB r670 IF r = 671 THEN: GOSUB r671 IF r = 672 THEN: GOSUB r672 IF r = 673 THEN: GOSUB r673 IF r = 674 THEN: GOSUB r674 IF r = 675 THEN: GOSUB r675 IF r = 676 THEN: GOSUB r676 IF r = 677 THEN: GOSUB r677 IF r = 678 THEN: GOSUB r678 IF r = 679 THEN: GOSUB r679 IF r = 680 THEN: GOSUB r680 IF r = 681 THEN: GOSUB r681 IF r = 682 THEN: GOSUB r682 IF r = 683 THEN: GOSUB r683 IF r = 684 THEN: GOSUB r684 IF r = 685 THEN: GOSUB r685 IF r = 686 THEN: GOSUB r686 IF r = 687 THEN: GOSUB r687 IF r = 688 THEN: GOSUB r688 IF r = 689 THEN: GOSUB r689 IF r = 690 THEN: GOSUB r690 IF r = 691 THEN: GOSUB r691 IF r = 692 THEN: GOSUB r692 IF r = 693 THEN: GOSUB r693 IF r = 694 THEN: GOSUB r694 IF r = 695 THEN: GOSUB r695 IF r = 696 THEN: GOSUB r696 IF r = 697 THEN: GOSUB r697 IF r = 698 THEN: GOSUB r698 IF r = 699 THEN: GOSUB r699 IF r = 700 THEN: GOSUB r700 IF r = 701 THEN: GOSUB r701 IF r = 702 THEN: GOSUB r702 IF r = 703 THEN: GOSUB r703 IF r = 704 THEN: GOSUB r704 IF r = 705 THEN: GOSUB r705 IF r = 706 THEN: GOSUB r706 IF r = 707 THEN: GOSUB r707 IF r = 708 THEN: GOSUB r708 IF r = 709 THEN: GOSUB r709 IF r = 710 THEN: GOSUB r710 IF r = 711 THEN: GOSUB r711 IF r = 712 THEN: GOSUB r712 IF r = 713 THEN: GOSUB r713 IF r = 714 THEN: GOSUB r714 IF r = 715 THEN: GOSUB r715 IF r = 716 THEN: GOSUB r716 IF r = 717 THEN: GOSUB r717 IF r = 718 THEN: GOSUB r718 IF r = 719 THEN: GOSUB r719 IF r = 720 THEN: GOSUB r720 IF r = 721 THEN: GOSUB r721 IF r = 722 THEN: GOSUB r722 IF r = 723 THEN: GOSUB r723 IF r = 724 THEN: GOSUB r724 IF r = 725 THEN: GOSUB r725 IF r = 726 THEN: GOSUB r726 IF r = 727 THEN: GOSUB r727 IF r = 728 THEN: GOSUB r728 IF r = 729 THEN: GOSUB r729 IF r = 730 THEN: GOSUB r730 IF r = 731 THEN: GOSUB r731 IF r = 732 THEN: GOSUB r732 IF r = 733 THEN: GOSUB r733 IF r = 734 THEN: GOSUB r734 IF r = 735 THEN: GOSUB r735 IF r = 736 THEN: GOSUB r736 IF r = 737 THEN: GOSUB r737 IF r = 738 THEN: GOSUB r738 IF r = 739 THEN: GOSUB r739 IF r = 740 THEN: GOSUB r740 IF r = 741 THEN: GOSUB r741 IF r = 742 THEN: GOSUB r742 IF r = 743 THEN: GOSUB r743 IF r = 744 THEN: GOSUB r744 IF r = 745 THEN: GOSUB r745 IF r = 746 THEN: GOSUB r746 IF r = 747 THEN: GOSUB r747 IF r = 748 THEN: GOSUB r748 IF r = 749 THEN: GOSUB r749 IF r = 750 THEN: GOSUB r750 IF r = 751 THEN: GOSUB r751 IF r = 752 THEN: GOSUB r752 IF r = 753 THEN: GOSUB r753 IF r = 754 THEN: GOSUB r754 IF r = 755 THEN: GOSUB r755 IF r = 756 THEN: GOSUB r756 IF r = 757 THEN: GOSUB r757 IF r = 758 THEN: GOSUB r758 IF r = 759 THEN: GOSUB r759 IF r = 760 THEN: GOSUB r760 IF r = 761 THEN: GOSUB r761 IF r = 762 THEN: GOSUB r762 IF r = 763 THEN: GOSUB r763 IF r = 764 THEN: GOSUB r764 IF r = 765 THEN: GOSUB r765 IF r = 766 THEN: GOSUB r766 IF r = 767 THEN: GOSUB r767 IF r = 768 THEN: GOSUB r768 IF r = 769 THEN: GOSUB r769 IF r = 770 THEN: GOSUB r770 IF r = 771 THEN: GOSUB r771 IF r = 772 THEN: GOSUB r772 IF r = 773 THEN: GOSUB r773 IF r = 774 THEN: GOSUB r774 IF r = 775 THEN: GOSUB r775 IF r = 776 THEN: GOSUB r776 IF r = 777 THEN: GOSUB r777 IF r = 778 THEN: GOSUB r778 IF r = 779 THEN: GOSUB r779 IF r = 780 THEN: GOSUB r780 IF r = 781 THEN: GOSUB r781 IF r = 782 THEN: GOSUB r782 IF r = 783 THEN: GOSUB r783 IF r = 784 THEN: GOSUB r784 IF r = 785 THEN: GOSUB r785 IF r = 786 THEN: GOSUB r786 IF r = 787 THEN: GOSUB r787 IF r = 788 THEN: GOSUB r788 IF r = 789 THEN: GOSUB r789 IF r = 790 THEN: GOSUB r790 IF r = 791 THEN: GOSUB r791 IF r = 792 THEN: GOSUB r792 IF r = 793 THEN: GOSUB r793 IF r = 794 THEN: GOSUB r794 IF r = 795 THEN: GOSUB r795 IF r = 796 THEN: GOSUB r796 IF r = 797 THEN: GOSUB r797 IF r = 798 THEN: GOSUB r798 IF r = 799 THEN: GOSUB r799 IF r = 800 THEN: GOSUB r800 IF r = 801 THEN: GOSUB r801 IF r = 802 THEN: GOSUB r802 IF r = 803 THEN: GOSUB r803 IF r = 804 THEN: GOSUB r804 IF r = 805 THEN: GOSUB r805 IF r = 806 THEN: GOSUB r806 IF r = 807 THEN: GOSUB r807 IF r = 808 THEN: GOSUB r808 IF r = 809 THEN: GOSUB r809 IF r = 810 THEN: GOSUB r810 IF r = 811 THEN: GOSUB r811 IF r = 812 THEN: GOSUB r812 IF r = 813 THEN: GOSUB r813 IF r = 814 THEN: GOSUB r814 IF r = 815 THEN: GOSUB r815 IF r = 816 THEN: GOSUB r816 IF r = 817 THEN: GOSUB r817 IF r = 818 THEN: GOSUB r818 IF r = 819 THEN: GOSUB r819 IF r = 820 THEN: GOSUB r820 IF r = 821 THEN: GOSUB r821 IF r = 822 THEN: GOSUB r822 IF r = 823 THEN: GOSUB r823 IF r = 824 THEN: GOSUB r824 IF r = 825 THEN: GOSUB r825 IF r = 826 THEN: GOSUB r826 IF r = 827 THEN: GOSUB r827 IF r = 828 THEN: GOSUB r828 IF r = 829 THEN: GOSUB r829 IF r = 830 THEN: GOSUB r830 IF r = 831 THEN: GOSUB r831 IF r = 832 THEN: GOSUB r832 IF r = 833 THEN: GOSUB r833 IF r = 834 THEN: GOSUB r834 IF r = 835 THEN: GOSUB r835 IF r = 836 THEN: GOSUB r836 IF r = 837 THEN: GOSUB r837 IF r = 838 THEN: GOSUB r838 IF r = 839 THEN: GOSUB r839 IF r = 840 THEN: GOSUB r840 IF r = 841 THEN: GOSUB r841 IF r = 842 THEN: GOSUB r842 IF r = 843 THEN: GOSUB r843 IF r = 844 THEN: GOSUB r844 IF r = 845 THEN: GOSUB r845 IF r = 846 THEN: GOSUB r846 IF r = 847 THEN: GOSUB r847 IF r = 848 THEN: GOSUB r848 IF r = 849 THEN: GOSUB r849 IF r = 850 THEN: GOSUB r850 IF r = 851 THEN: GOSUB r851 IF r = 852 THEN: GOSUB r852 IF r = 853 THEN: GOSUB r853 IF r = 854 THEN: GOSUB r854 IF r = 855 THEN: GOSUB r855 IF r = 856 THEN: GOSUB r856 IF r = 857 THEN: GOSUB r857 IF r = 858 THEN: GOSUB r858 IF r = 859 THEN: GOSUB r859 IF r = 860 THEN: GOSUB r860 IF r = 861 THEN: GOSUB r861 IF r = 862 THEN: GOSUB r862 IF r = 863 THEN: GOSUB r863 IF r = 864 THEN: GOSUB r864 IF r = 865 THEN: GOSUB r865 IF r = 866 THEN: GOSUB r866 IF r = 867 THEN: GOSUB r867 IF r = 868 THEN: GOSUB r868 IF r = 869 THEN: GOSUB r869 IF r = 870 THEN: GOSUB r870 IF r = 871 THEN: GOSUB r871 IF r = 872 THEN: GOSUB r872 IF r = 873 THEN: GOSUB r873 IF r = 874 THEN: GOSUB r874 IF r = 875 THEN: GOSUB r875 IF r = 876 THEN: GOSUB r876 IF r = 877 THEN: GOSUB r877 IF r = 878 THEN: GOSUB r878 IF r = 879 THEN: GOSUB r879 IF r = 880 THEN: GOSUB r880 IF r = 881 THEN: GOSUB r881 IF r = 882 THEN: GOSUB r882 IF r = 883 THEN: GOSUB r883 IF r = 884 THEN: GOSUB r884 IF r = 885 THEN: GOSUB r885 IF r = 886 THEN: GOSUB r886 IF r = 887 THEN: GOSUB r887 IF r = 888 THEN: GOSUB r888 IF r = 889 THEN: GOSUB r889 IF r = 890 THEN: GOSUB r890 IF r = 891 THEN: GOSUB r891 IF r = 892 THEN: GOSUB r892 IF r = 893 THEN: GOSUB r893 IF r = 894 THEN: GOSUB r894 IF r = 895 THEN: GOSUB r895 IF r = 896 THEN: GOSUB r896 IF r = 897 THEN: GOSUB r897 IF r = 898 THEN: GOSUB r898 IF r = 899 THEN: GOSUB r899 IF r = 900 THEN: GOSUB r900 IF r = 901 THEN: GOSUB r901 IF r = 902 THEN: GOSUB r902 IF r = 903 THEN: GOSUB r903 IF r = 904 THEN: GOSUB r904 IF r = 905 THEN: GOSUB r905 IF r = 906 THEN: GOSUB r906 IF r = 907 THEN: GOSUB r907 IF r = 908 THEN: GOSUB r908 IF r = 909 THEN: GOSUB r909 IF r = 910 THEN: GOSUB r910 IF r = 911 THEN: GOSUB r911 IF r = 912 THEN: GOSUB r912 IF r = 913 THEN: GOSUB r913 IF r = 914 THEN: GOSUB r914 IF r = 915 THEN: GOSUB r915 IF r = 916 THEN: GOSUB r916 IF r = 917 THEN: GOSUB r917 IF r = 918 THEN: GOSUB r918 IF r = 919 THEN: GOSUB r919 IF r = 920 THEN: GOSUB r920 IF r = 921 THEN: GOSUB r921 IF r = 922 THEN: GOSUB r922 IF r = 923 THEN: GOSUB r923 IF r = 924 THEN: GOSUB r924 IF r = 925 THEN: GOSUB r925 IF r = 926 THEN: GOSUB r926 IF r = 927 THEN: GOSUB r927 IF r = 928 THEN: GOSUB r928 IF r = 929 THEN: GOSUB r929 IF r = 930 THEN: GOSUB r930 IF r = 931 THEN: GOSUB r931 IF r = 932 THEN: GOSUB r932 IF r = 933 THEN: GOSUB r933 IF r = 934 THEN: GOSUB r934 IF r = 935 THEN: GOSUB r935 IF r = 936 THEN: GOSUB r936 IF r = 937 THEN: GOSUB r937 IF r = 938 THEN: GOSUB r938 IF r = 939 THEN: GOSUB r939 IF r = 940 THEN: GOSUB r940 IF r = 941 THEN: GOSUB r941 IF r = 942 THEN: GOSUB r942 IF r = 943 THEN: GOSUB r943 IF r = 944 THEN: GOSUB r944 IF r = 945 THEN: GOSUB r945 IF r = 946 THEN: GOSUB r946 IF r = 947 THEN: GOSUB r947 IF r = 948 THEN: GOSUB r948 IF r = 949 THEN: GOSUB r949 IF r = 950 THEN: GOSUB r950 IF r = 951 THEN: GOSUB r951 IF r = 952 THEN: GOSUB r952 IF r = 953 THEN: GOSUB r953 IF r = 954 THEN: GOSUB r954 IF r = 955 THEN: GOSUB r955 IF r = 956 THEN: GOSUB r956 IF r = 957 THEN: GOSUB r957 IF r = 958 THEN: GOSUB r958 IF r = 959 THEN: GOSUB r959 IF r = 960 THEN: GOSUB r960 IF r = 961 THEN: GOSUB r961 IF r = 962 THEN: GOSUB r962 IF r = 963 THEN: GOSUB r963 IF r = 964 THEN: GOSUB r964 IF r = 965 THEN: GOSUB r965 IF r = 966 THEN: GOSUB r966 IF r = 967 THEN: GOSUB r967 IF r = 968 THEN: GOSUB r968 IF r = 969 THEN: GOSUB r969 IF r = 970 THEN: GOSUB r970 IF r = 971 THEN: GOSUB r971 IF r = 972 THEN: GOSUB r972 IF r = 973 THEN: GOSUB r973 IF r = 974 THEN: GOSUB r974 IF r = 975 THEN: GOSUB r975 IF r = 976 THEN: GOSUB r976 IF r = 977 THEN: GOSUB r977 IF r = 978 THEN: GOSUB r978 IF r = 979 THEN: GOSUB r979 IF r = 980 THEN: GOSUB r980 IF r = 981 THEN: GOSUB r981 IF r = 982 THEN: GOSUB r982 IF r = 983 THEN: GOSUB r983 IF r = 984 THEN: GOSUB r984 IF r = 985 THEN: GOSUB r985 IF r = 986 THEN: GOSUB r986 IF r = 987 THEN: GOSUB r987 IF r = 988 THEN: GOSUB r988 IF r = 989 THEN: GOSUB r989 IF r = 990 THEN: GOSUB r990 IF r = 991 THEN: GOSUB r991 IF r = 992 THEN: GOSUB r992 IF r = 993 THEN: GOSUB r993 IF r = 994 THEN: GOSUB r994 IF r = 995 THEN: GOSUB r995 IF r = 996 THEN: GOSUB r996 IF r = 997 THEN: GOSUB r997 IF r = 998 THEN: GOSUB r998 IF r = 999 THEN: GOSUB r999 IF r = 1000 THEN: GOSUB r1000 IF r = 1001 THEN: GOSUB r1001 IF r = 1002 THEN: GOSUB r1002 IF r = 1003 THEN: GOSUB r1003 IF r = 1004 THEN: GOSUB r1004 IF r = 1005 THEN: GOSUB r1005 IF r = 1006 THEN: GOSUB r1006 IF r = 1007 THEN: GOSUB r1007 IF r = 1008 THEN: GOSUB r1008 IF r = 1009 THEN: GOSUB r1009 IF r = 1010 THEN: GOSUB r1010 IF r = 1011 THEN: GOSUB r1011 IF r = 1012 THEN: GOSUB r1012 IF r = 1013 THEN: GOSUB r1013 IF r = 1014 THEN: GOSUB r1014 IF r = 1015 THEN: GOSUB r1015 IF r = 1016 THEN: GOSUB r1016 IF r = 1017 THEN: GOSUB r1017 IF r = 1018 THEN: GOSUB r1018 IF r = 1019 THEN: GOSUB r1019 IF r = 1020 THEN: GOSUB r1020 IF r = 1021 THEN: GOSUB r1021 IF r = 1022 THEN: GOSUB r1022 IF r = 1023 THEN: GOSUB r1023 IF r = 1024 THEN: GOSUB r1024 IF r = 1025 THEN: GOSUB r1025 IF r = 1026 THEN: GOSUB r1026 IF r = 1027 THEN: GOSUB r1027 IF r = 1028 THEN: GOSUB r1028 IF r = 1029 THEN: GOSUB r1029 IF r = 1030 THEN: GOSUB r1030 IF r = 1031 THEN: GOSUB r1031 IF r = 1032 THEN: GOSUB r1032 IF r = 1033 THEN: GOSUB r1033 IF r = 1034 THEN: GOSUB r1034 IF r = 1035 THEN: GOSUB r1035 IF r = 1036 THEN: GOSUB r1036 IF r = 1037 THEN: GOSUB r1037 IF r = 1038 THEN: GOSUB r1038 IF r = 1039 THEN: GOSUB r1039 IF r = 1040 THEN: GOSUB r1040 IF r = 1041 THEN: GOSUB r1041 IF r = 1042 THEN: GOSUB r1042 IF r = 1043 THEN: GOSUB r1043 IF r = 1044 THEN: GOSUB r1044 IF r = 1045 THEN: GOSUB r1045 IF r = 1046 THEN: GOSUB r1046 IF r = 1047 THEN: GOSUB r1047 IF r = 1048 THEN: GOSUB r1048 IF r = 1049 THEN: GOSUB r1049 IF r = 1050 THEN: GOSUB r1050 IF r = 1051 THEN: GOSUB r1051 IF r = 1052 THEN: GOSUB r1052 IF r = 1053 THEN: GOSUB r1053 IF r = 1054 THEN: GOSUB r1054 IF r = 1055 THEN: GOSUB r1055 IF r = 1056 THEN: GOSUB r1056 IF r = 1057 THEN: GOSUB r1057 IF r = 1058 THEN: GOSUB r1058 IF r = 1059 THEN: GOSUB r1059 IF r = 1060 THEN: GOSUB r1060 IF r = 1061 THEN: GOSUB r1061 IF r = 1062 THEN: GOSUB r1062 IF r = 1063 THEN: GOSUB r1063 IF r = 1064 THEN: GOSUB r1064 IF r = 1065 THEN: GOSUB r1065 IF r = 1066 THEN: GOSUB r1066 IF r = 1067 THEN: GOSUB r1067 IF r = 1068 THEN: GOSUB r1068 IF r = 1069 THEN: GOSUB r1069 IF r = 1070 THEN: GOSUB r1070 IF r = 1071 THEN: GOSUB r1071 IF r = 1072 THEN: GOSUB r1072 IF r = 1073 THEN: GOSUB r1073 IF r = 1074 THEN: GOSUB r1074 IF r = 1075 THEN: GOSUB r1075 IF r = 1076 THEN: GOSUB r1076 IF r = 1077 THEN: GOSUB r1077 IF r = 1078 THEN: GOSUB r1078 IF r = 1079 THEN: GOSUB r1079 IF r = 1080 THEN: GOSUB r1080 IF r = 1081 THEN: GOSUB r1081 IF r = 1082 THEN: GOSUB r1082 IF r = 1083 THEN: GOSUB r1083 IF r = 1084 THEN: GOSUB r1084 IF r = 1085 THEN: GOSUB r1085 IF r = 1086 THEN: GOSUB r1086 IF r = 1087 THEN: GOSUB r1087 IF r = 1088 THEN: GOSUB r1088 IF r = 1089 THEN: GOSUB r1089 IF r = 1090 THEN: GOSUB r1090 IF r = 1091 THEN: GOSUB r1091 IF r = 1092 THEN: GOSUB r1092 IF r = 1093 THEN: GOSUB r1093 IF r = 1094 THEN: GOSUB r1094 IF r = 1095 THEN: GOSUB r1095 IF r = 1096 THEN: GOSUB r1096 IF r = 1097 THEN: GOSUB r1097 IF r = 1098 THEN: GOSUB r1098 IF r = 1099 THEN: GOSUB r1099 IF r = 1000 THEN: GOSUB r1100 IF r = 1101 THEN: GOSUB r1101 IF r = 1102 THEN: GOSUB r1102 IF r = 1103 THEN: GOSUB r1103 IF r = 1104 THEN: GOSUB r1104 IF r = 1105 THEN: GOSUB r1105 RETURN parser: PRINT "> "; cmd$ = GrabInput cmd$ = LTRIM$(RTRIM$(UCASE$(cmd$))) IF cmd$ = "END" OR cmd$ = "QUIT" OR cmd$ = "EXIT" OR cmd$ = "Q" THEN END END IF IF cmd$ = "HELP" OR cmd$ = "H" OR cmd$ = "?" THEN CLS PRINT "HERE ARE SOME BASIC COMMANDS THAT CAN BE USED IN THE GAME..." PRINT PRINT "NORTH, EAST ,SOUTH, AND WEST - MOVE TO AN AVAILABLE LOCATION" PRINT "EXAMINE (OBJECT) - EXAMINE AN OBJECT" PRINT "USE (OBJECT) - USE AN OBJECT" PRINT "TAKE (OBJECT) - TAKE OR MOVE AN OBJECT" PRINT "TALK - TALK TO SOMEONE" PRINT "KILL - KILL AT YOUR OWN RISK" PRINT "INVENTORY - VIEW YOUR INVENTORY" PRINT "HELP - VIEW THIS SCREEN" PRINT "END - END GAME" PRINT PRINT "PRESS ANY KEY...": SLEEP DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF cmd$ = "INVENTORY" OR cmd$ = "INV" OR cmd$ = "ITEMS" OR cmd$ = "I" THEN CLS PRINT "INVENTORY..." PRINT IF gotnote = 1 THEN: PRINT "A coffee stained note." IF gotbook = 1 THEN: PRINT "A leather bound book." IF gotcoin = 1 THEN: PRINT "A coin made from unknown metals." PRINT PRINT "PRESS ANY KEY..." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF cmd$ = "GO NORTH" OR cmd$ = "NORTH" OR cmd$ = "N" THEN IF r = 1 THEN: r = 2: GOTO moved IF r = 2 THEN: r = 3: GOTO moved IF r = 6 THEN: r = 16: GOTO moved IF r = 16 THEN: r = 15: GOTO moved IF r = 15 THEN: r = 14: GOTO moved IF r = 8 THEN: r = 9: GOTO moved IF r = 9 THEN: r = 10: GOTO moved IF r = 10 THEN: r = 11: GOTO moved IF r = 11 THEN: r = 84: GOTO moved IF r = 84 THEN: r = 83: GOTO moved IF r = 83 THEN: r = 76: GOTO moved IF r = 76 THEN: r = 75: GOTO moved IF r = 75 THEN: r = 85: GOTO moved IF r = 85 THEN: r = 86: GOTO moved IF r = 86 THEN: r = 87: GOTO moved IF r = 87 THEN: r = 94: GOTO moved IF r = 94 THEN: r = 95: GOTO moved IF r = 21 THEN: r = 20: GOTO moved IF r = 20 THEN: r = 67: GOTO moved IF r = 67 THEN: r = 66: GOTO moved IF r = 66 THEN: r = 65: GOTO moved IF r = 65 THEN: r = 64: GOTO moved IF r = 64 THEN: r = 63: GOTO moved IF r = 25 THEN: r = 24: GOTO moved IF r = 24 THEN: r = 23: GOTO moved IF r = 29 THEN: r = 31: GOTO moved IF r = 30 THEN: r = 32: GOTO moved IF r = 33 THEN: r = 34: GOTO moved IF r = 34 THEN: r = 35: GOTO moved IF r = 35 THEN: r = 36: GOTO moved IF r = 36 THEN: r = 37: GOTO moved IF r = 38 THEN: r = 39: GOTO moved IF r = 39 THEN: r = 40: GOTO moved IF r = 40 THEN: r = 41: GOTO moved IF r = 41 THEN: r = 42: GOTO moved IF r = 42 THEN: r = 43: GOTO moved IF r = 51 THEN: r = 50: GOTO moved IF r = 50 THEN: r = 49: GOTO moved IF r = 49 THEN: r = 48: GOTO moved IF r = 48 THEN: r = 47: GOTO moved IF r = 47 THEN: r = 46: GOTO moved IF r = 54 THEN: r = 55: GOTO moved IF r = 55 THEN: r = 56: GOTO moved IF r = 56 THEN: r = 57: GOTO moved IF r = 57 THEN: r = 58: GOTO moved IF r = 58 THEN: r = 60: GOTO moved IF r = 81 THEN: r = 80: GOTO moved IF r = 80 THEN: r = 79: GOTO moved IF r = 71 THEN: r = 70: GOTO moved IF r = 70 THEN: r = 72: GOTO moved IF r = 72 THEN: r = 118: GOTO moved IF r = 116 THEN: r = 115: GOTO moved IF r = 115 THEN: r = 114: GOTO moved IF r = 114 THEN: r = 113: GOTO moved IF r = 88 THEN: r = 93: GOTO moved IF r = 93 THEN: r = 96: GOTO moved IF r = 89 THEN: r = 92: GOTO moved IF r = 92 THEN: r = 97: GOTO moved IF r = 90 THEN: r = 91: GOTO moved IF r = 91 THEN: r = 98: GOTO moved IF r = 100 THEN: r = 101: GOTO moved IF r = 101 THEN: r = 102: GOTO moved IF r = 102 THEN: r = 103: GOTO moved IF r = 103 THEN: r = 104: GOTO moved IF r = 108 THEN: r = 111: GOTO moved IF r = 109 THEN: r = 110: GOTO moved IF r = 124 THEN: r = 123: GOTO moved IF r = 123 THEN: r = 122: GOTO moved IF r = 122 THEN: r = 121: GOTO moved IF r = 121 THEN: r = 120: GOTO moved IF r = 120 THEN: r = 253: GOTO moved IF r = 253 THEN: r = 252: GOTO moved IF r = 252 THEN: r = 251: GOTO moved IF r = 180 THEN: r = 181: GOTO moved IF r = 181 THEN: r = 182: GOTO moved IF r = 182 THEN: r = 183: GOTO moved IF r = 183 THEN: r = 184: GOTO moved IF r = 184 THEN: r = 125: GOTO moved IF r = 126 THEN: r = 189: GOTO moved IF r = 189 THEN: r = 188: GOTO moved IF r = 188 THEN: r = 187: GOTO moved IF r = 187 THEN: r = 186: GOTO moved IF r = 186 THEN: r = 249: GOTO moved IF r = 249 THEN: r = 248: GOTO moved IF r = 248 THEN: r = 247: GOTO moved IF r = 170 THEN: r = 171: GOTO moved IF r = 171 THEN: r = 172: GOTO moved IF r = 172 THEN: r = 177: GOTO moved IF r = 177 THEN: r = 178: GOTO moved IF r = 178 THEN: r = 127: GOTO moved IF r = 174 THEN: r = 175: GOTO moved IF r = 175 THEN: r = 176: GOTO moved IF r = 176 THEN: r = 129: GOTO moved IF r = 162 THEN: r = 163: GOTO moved IF r = 163 THEN: r = 164: GOTO moved IF r = 158 THEN: r = 157: GOTO moved IF r = 157 THEN: r = 156: GOTO moved IF r = 156 THEN: r = 155: GOTO moved IF r = 155 THEN: r = 154: GOTO moved IF r = 154 THEN: r = 152: GOTO moved IF r = 152 THEN: r = 153: GOTO moved IF r = 153 THEN: r = 134: GOTO moved IF r = 149 THEN: r = 150: GOTO moved IF r = 145 THEN: r = 146: GOTO moved IF r = 144 THEN: r = 143: GOTO moved IF r = 143 THEN: r = 142: GOTO moved IF r = 142 THEN: r = 141: GOTO moved IF r = 141 THEN: r = 140: GOTO moved IF r = 213 THEN: r = 212: GOTO moved IF r = 212 THEN: r = 211: GOTO moved IF r = 211 THEN: r = 210: GOTO moved IF r = 225 THEN: r = 206: GOTO moved IF r = 206 THEN: r = 207: GOTO moved IF r = 207 THEN: r = 208: GOTO moved IF r = 209 THEN: r = 215: GOTO moved IF r = 215 THEN: r = 216: GOTO moved IF r = 216 THEN: r = 217: GOTO moved IF r = 218 THEN: r = 219: GOTO moved IF r = 219 THEN: r = 220: GOTO moved IF r = 220 THEN: r = 221: GOTO moved IF r = 226 THEN: r = 225: GOTO moved IF r = 225 THEN: r = 224: GOTO moved IF r = 224 THEN: r = 223: GOTO moved IF r = 200 THEN: r = 199: GOTO moved IF r = 199 THEN: r = 198: GOTO moved IF r = 193 THEN: r = 194: GOTO moved IF r = 194 THEN: r = 195: GOTO moved IF r = 197 THEN: r = 234: GOTO moved IF r = 234 THEN: r = 233: GOTO moved IF r = 233 THEN: r = 232: GOTO moved IF r = 232 THEN: r = 231: GOTO moved IF r = 231 THEN: r = 230: GOTO moved IF r = 230 THEN: r = 244: GOTO moved IF r = 244 THEN: r = 243: GOTO moved IF r = 237 THEN: r = 238: GOTO moved IF r = 238 THEN: r = 239: GOTO moved IF r = 239 THEN: r = 240: GOTO moved IF r = 290 THEN: r = 291: GOTO moved IF r = 291 THEN: r = 292: GOTO moved IF r = 292 THEN: r = 293: GOTO moved IF r = 293 THEN: r = 294: GOTO moved IF r = 294 THEN: r = 254: GOTO moved IF r = 254 THEN: r = 255: GOTO moved IF r = 255 THEN: r = 256: GOTO moved IF r = 256 THEN: r = 257: GOTO moved IF r = 257 THEN: r = 258: GOTO moved IF r = 280 THEN: r = 279: GOTO moved IF r = 279 THEN: r = 277: GOTO moved IF r = 277 THEN: r = 276: GOTO moved IF r = 276 THEN: r = 260: GOTO moved IF r = 260 THEN: r = 261: GOTO moved IF r = 261 THEN: r = 262: GOTO moved IF r = 262 THEN: r = 263: GOTO moved IF r = 263 THEN: r = 264: GOTO moved IF r = 296 THEN: r = 295: GOTO moved IF r = 295 THEN: r = 287: GOTO moved IF r = 287 THEN: r = 286: GOTO moved IF r = 286 THEN: r = 285: GOTO moved IF r = 285 THEN: r = 284: GOTO moved IF r = 284 THEN: r = 283: GOTO moved IF r = 283 THEN: r = 282: GOTO moved IF r = 340 THEN: r = 339: GOTO moved IF r = 299 THEN: r = 300: GOTO moved IF r = 300 THEN: r = 301: GOTO moved IF r = 301 THEN: r = 302: GOTO moved IF r = 302 THEN: r = 303: GOTO moved IF r = 303 THEN: r = 334: GOTO moved IF r = 334 THEN: r = 335: GOTO moved IF r = 335 THEN: r = 336: GOTO moved IF r = 336 THEN: r = 337: GOTO moved IF r = 337 THEN: r = 341: GOTO moved IF r = 341 THEN: r = 342: GOTO moved IF r = 342 THEN: r = 272: GOTO moved IF r = 272 THEN: r = 271: GOTO moved IF r = 271 THEN: r = 270: GOTO moved IF r = 270 THEN: r = 269: GOTO moved IF r = 269 THEN: r = 268: GOTO moved IF r = 268 THEN: r = 379: GOTO moved IF r = 379 THEN: r = 380: GOTO moved IF r = 380 THEN: r = 381: GOTO moved IF r = 309 THEN: r = 330: GOTO moved IF r = 330 THEN: r = 329: GOTO moved IF r = 329 THEN: r = 328: GOTO moved IF r = 328 THEN: r = 327: GOTO moved IF r = 327 THEN: r = 326: GOTO moved IF r = 331 THEN: r = 368: GOTO moved IF r = 368 THEN: r = 367: GOTO moved IF r = 367 THEN: r = 366: GOTO moved IF r = 369 THEN: r = 371: GOTO moved IF r = 371 THEN: r = 344: GOTO moved IF r = 344 THEN: r = 375: GOTO moved IF r = 375 THEN: r = 374: GOTO moved IF r = 374 THEN: r = 373: GOTO moved IF r = 373 THEN: r = 371: GOTO moved IF r = 370 THEN: r = 376: GOTO moved IF r = 376 THEN: r = 377: GOTO moved IF r = 377 THEN: r = 385: GOTO moved IF r = 385 THEN: r = 384: GOTO moved IF r = 325 THEN: r = 362: GOTO moved IF r = 362 THEN: r = 361: GOTO moved IF r = 361 THEN: r = 363: GOTO moved IF r = 363 THEN: r = 364: GOTO moved IF r = 364 THEN: r = 347: GOTO moved IF r = 347 THEN: r = 365: GOTO moved IF r = 365 THEN: r = 366: GOTO moved IF r = 366 THEN: r = 367: GOTO moved IF r = 367 THEN: r = 368: GOTO moved IF r = 368 THEN: r = 396: GOTO moved IF r = 396 THEN: r = 389: GOTO moved IF r = 389 THEN: r = 388: GOTO moved IF r = 388 THEN: r = 387: GOTO moved IF r = 322 THEN: r = 354: GOTO moved IF r = 354 THEN: r = 353: GOTO moved IF r = 353 THEN: r = 352: GOTO moved IF r = 352 THEN: r = 351: GOTO moved IF r = 351 THEN: r = 350: GOTO moved IF r = 350 THEN: r = 404: GOTO moved IF r = 404 THEN: r = 405: GOTO moved IF r = 405 THEN: r = 406: GOTO moved IF r = 406 THEN: r = 407: GOTO moved IF r = 402 THEN: r = 401: GOTO moved IF r = 401 THEN: r = 400: GOTO moved IF r = 400 THEN: r = 399: GOTO moved IF r = 399 THEN: r = 398: GOTO moved IF r = 398 THEN: r = 397: GOTO moved IF r = 397 THEN: r = 396: GOTO moved IF r = 313 THEN: r = 314: GOTO moved IF r = 315 THEN: r = 316: GOTO moved IF r = 317 THEN: r = 318: GOTO moved IF r = 318 THEN: r = 319: GOTO moved IF r = 319 THEN: r = 320: GOTO moved IF r = 320 THEN: r = 358: GOTO moved IF r = 358 THEN: r = 357: GOTO moved IF r = 357 THEN: r = 356: GOTO moved IF r = 420 THEN: r = 419: GOTO moved IF r = 419 THEN: r = 418: GOTO moved IF r = 418 THEN: r = 417: GOTO moved IF r = 417 THEN: r = 416: GOTO moved IF r = 416 THEN: r = 415: GOTO moved IF r = 415 THEN: r = 414: GOTO moved IF r = 424 THEN: r = 425: GOTO moved IF r = 425 THEN: r = 426: GOTO moved IF r = 426 THEN: r = 427: GOTO moved IF r = 431 THEN: r = 430: GOTO moved IF r = 430 THEN: r = 429: GOTO moved IF r = 429 THEN: r = 428: GOTO moved IF r = 439 THEN: r = 438: GOTO moved IF r = 438 THEN: r = 437: GOTO moved IF r = 437 THEN: r = 436: GOTO moved IF r = 440 THEN: r = 441: GOTO moved IF r = 441 THEN: r = 442: GOTO moved IF r = 442 THEN: r = 443: GOTO moved IF r = 447 THEN: r = 446: GOTO moved IF r = 446 THEN: r = 449: GOTO moved IF r = 449 THEN: r = 450: GOTO moved IF r = 450 THEN: r = 451: GOTO moved IF r = 451 THEN: r = 452: GOTO moved IF r = 452 THEN: r = 453: GOTO moved IF r = 432 THEN: r = 437: GOTO moved IF r = 437 THEN: r = 434: GOTO moved IF r = 434 THEN: r = 435: GOTO moved IF r = 435 THEN: r = 456: GOTO moved IF r = 456 THEN: r = 457: GOTO moved IF r = 457 THEN: r = 458: GOTO moved IF r = 458 THEN: r = 459: GOTO moved IF r = 459 THEN: r = 460: GOTO moved IF r = 460 THEN: r = 461: GOTO moved IF r = 461 THEN: r = 462: GOTO moved IF r = 462 THEN: r = 463: GOTO moved IF r = 463 THEN: r = 464: GOTO moved IF r = 464 THEN: r = 465: GOTO moved IF r = 465 THEN: r = 466: GOTO moved IF r = 466 THEN: r = 467: GOTO moved IF r = 481 THEN: r = 480: GOTO moved IF r = 480 THEN: r = 479: GOTO moved IF r = 479 THEN: r = 478: GOTO moved IF r = 478 THEN: r = 477: GOTO moved IF r = 477 THEN: r = 476: GOTO moved IF r = 483 THEN: r = 484: GOTO moved IF r = 484 THEN: r = 485: GOTO moved IF r = 485 THEN: r = 486: GOTO moved IF r = 602 THEN: r = 605: GOTO moved IF r = 605 THEN: r = 606: GOTO moved IF r = 606 THEN: r = 607: GOTO moved IF r = 598 THEN: r = 599: GOTO moved IF r = 599 THEN: r = 600: GOTO moved IF r = 600 THEN: r = 601: GOTO moved IF r = 612 THEN: r = 611: GOTO moved IF r = 611 THEN: r = 610: GOTO moved IF r = 610 THEN: r = 609: GOTO moved IF r = 591 THEN: r = 590: GOTO moved IF r = 590 THEN: r = 589: GOTO moved IF r = 589 THEN: r = 588: GOTO moved IF r = 588 THEN: r = 587: GOTO moved IF r = 587 THEN: r = 586: GOTO moved IF r = 586 THEN: r = 585: GOTO moved IF r = 574 THEN: r = 575: GOTO moved IF r = 575 THEN: r = 576: GOTO moved IF r = 576 THEN: r = 577: GOTO moved IF r = 577 THEN: r = 578: GOTO moved IF r = 578 THEN: r = 579: GOTO moved IF r = 579 THEN: r = 580: GOTO moved IF r = 554 THEN: r = 597: GOTO moved IF r = 597 THEN: r = 596: GOTO moved IF r = 492 THEN: r = 491: GOTO moved IF r = 491 THEN: r = 490: GOTO moved IF r = 500 THEN: r = 499: GOTO moved IF r = 499 THEN: r = 498: GOTO moved IF r = 498 THEN: r = 497: GOTO moved IF r = 497 THEN: r = 494: GOTO moved IF r = 494 THEN: r = 495: GOTO moved IF r = 495 THEN: r = 496: GOTO moved IF r = 546 THEN: r = 547: GOTO moved IF r = 547 THEN: r = 552: GOTO moved IF r = 545 THEN: r = 548: GOTO moved IF r = 548 THEN: r = 551: GOTO moved IF r = 544 THEN: r = 549: GOTO moved IF r = 549 THEN: r = 550: GOTO moved IF r = 511 THEN: r = 512: GOTO moved IF r = 512 THEN: r = 513: GOTO moved IF r = 513 THEN: r = 541: GOTO moved IF r = 541 THEN: r = 540: GOTO moved IF r = 540 THEN: r = 542: GOTO moved IF r = 542 THEN: r = 543: GOTO moved IF r = 508 THEN: r = 507: GOTO moved IF r = 507 THEN: r = 506: GOTO moved IF r = 506 THEN: r = 505: GOTO moved IF r = 505 THEN: r = 504: GOTO moved IF r = 513 THEN: r = 538: GOTO moved IF r = 538 THEN: r = 537: GOTO moved IF r = 537 THEN: r = 536: GOTO moved IF r = 536 THEN: r = 560: GOTO moved IF r = 560 THEN: r = 558: GOTO moved IF r = 558 THEN: r = 557: GOTO moved IF r = 557 THEN: r = 556: GOTO moved IF r = 556 THEN: r = 594: GOTO moved IF r = 594 THEN: r = 593: GOTO moved IF r = 519 THEN: r = 534: GOTO moved IF r = 534 THEN: r = 533: GOTO moved IF r = 533 THEN: r = 532: GOTO moved IF r = 532 THEN: r = 563: GOTO moved IF r = 563 THEN: r = 562: GOTO moved IF r = 521 THEN: r = 530: GOTO moved IF r = 530 THEN: r = 529: GOTO moved IF r = 529 THEN: r = 528: GOTO moved IF r = 528 THEN: r = 566: GOTO moved IF r = 566 THEN: r = 565: GOTO moved IF r = 523 THEN: r = 524: GOTO moved IF r = 524 THEN: r = 525: GOTO moved IF r = 525 THEN: r = 526: GOTO moved IF r = 526 THEN: r = 569: GOTO moved IF r = 569 THEN: r = 568: GOTO moved IF r = 568 THEN: r = 570: GOTO moved IF r = 570 THEN: r = 571: GOTO moved IF r = 571 THEN: r = 572: GOTO moved IF r = 572 THEN: r = 573: GOTO moved IF r = 630 THEN: r = 629: GOTO moved IF r = 629 THEN: r = 622: GOTO moved IF r = 622 THEN: r = 621: GOTO moved IF r = 631 THEN: r = 628: GOTO moved IF r = 628 THEN: r = 623: GOTO moved IF r = 623 THEN: r = 620: GOTO moved IF r = 632 THEN: r = 627: GOTO moved IF r = 627 THEN: r = 624: GOTO moved IF r = 624 THEN: r = 619: GOTO moved IF r = 666 THEN: r = 665: GOTO moved IF r = 665 THEN: r = 654: GOTO moved IF r = 654 THEN: r = 655: GOTO moved IF r = 667 THEN: r = 664: GOTO moved IF r = 664 THEN: r = 661: GOTO moved IF r = 661 THEN: r = 656: GOTO moved IF r = 668 THEN: r = 663: GOTO moved IF r = 663 THEN: r = 660: GOTO moved IF r = 660 THEN: r = 657: GOTO moved IF r = 669 THEN: r = 662: GOTO moved IF r = 662 THEN: r = 659: GOTO moved IF r = 659 THEN: r = 658: GOTO moved IF r = 683 THEN: r = 682: GOTO moved IF r = 682 THEN: r = 675: GOTO moved IF r = 675 THEN: r = 674: GOTO moved IF r = 684 THEN: r = 681: GOTO moved IF r = 681 THEN: r = 676: GOTO moved IF r = 676 THEN: r = 673: GOTO moved IF r = 685 THEN: r = 680: GOTO moved IF r = 680 THEN: r = 677: GOTO moved IF r = 677 THEN: r = 672: GOTO moved IF r = 686 THEN: r = 679: GOTO moved IF r = 679 THEN: r = 678: GOTO moved IF r = 678 THEN: r = 671: GOTO moved IF r = 671 THEN: r = 670: GOTO moved IF r = 670 THEN: r = 650: GOTO moved IF r = 650 THEN: r = 643: GOTO moved IF r = 643 THEN: r = 642: GOTO moved IF r = 642 THEN: r = 635: GOTO moved IF r = 635 THEN: r = 634: GOTO moved IF r = 634 THEN: r = 633: GOTO moved IF r = 633 THEN: r = 626: GOTO moved IF r = 626 THEN: r = 625: GOTO moved IF r = 625 THEN: r = 618: GOTO moved IF r = 618 THEN: r = 617: GOTO moved IF r = 617 THEN: r = 616: GOTO moved IF r = 616 THEN: r = 510: GOTO moved IF r = 649 THEN: r = 644: GOTO moved IF r = 644 THEN: r = 641: GOTO moved IF r = 641 THEN: r = 636: GOTO moved IF r = 648 THEN: r = 645: GOTO moved IF r = 645 THEN: r = 640: GOTO moved IF r = 640 THEN: r = 637: GOTO moved IF r = 647 THEN: r = 646: GOTO moved IF r = 646 THEN: r = 639: GOTO moved IF r = 639 THEN: r = 638: GOTO moved IF r = 698 THEN: r = 697: GOTO moved IF r = 697 THEN: r = 696: GOTO moved IF r = 696 THEN: r = 695: GOTO moved IF r = 708 THEN: r = 707: GOTO moved IF r = 707 THEN: r = 702: GOTO moved IF r = 702 THEN: r = 703: GOTO moved IF r = 709 THEN: r = 706: GOTO moved IF r = 706 THEN: r = 705: GOTO moved IF r = 705 THEN: r = 704: GOTO moved IF r = 714 THEN: r = 715: GOTO moved IF r = 715 THEN: r = 716: GOTO moved IF r = 716 THEN: r = 717: GOTO moved IF r = 728 THEN: r = 721: GOTO moved IF r = 721 THEN: r = 722: GOTO moved IF r = 722 THEN: r = 723: GOTO moved IF r = 727 THEN: r = 726: GOTO moved IF r = 726 THEN: r = 725: GOTO moved IF r = 725 THEN: r = 724: GOTO moved IF r = 699 THEN: r = 700: GOTO moved IF r = 700 THEN: r = 701: GOTO moved IF r = 701 THEN: r = 694: GOTO moved IF r = 694 THEN: r = 693: GOTO moved IF r = 693 THEN: r = 692: GOTO moved IF r = 692 THEN: r = 691: GOTO moved IF r = 691 THEN: r = 690: GOTO moved IF r = 690 THEN: r = 689: GOTO moved IF r = 689 THEN: r = 710: GOTO moved IF r = 710 THEN: r = 711: GOTO moved IF r = 711 THEN: r = 712: GOTO moved IF r = 712 THEN: r = 713: GOTO moved IF r = 713 THEN: r = 720: GOTO moved IF r = 720 THEN: r = 719: GOTO moved IF r = 719 THEN: r = 718: GOTO moved IF r = 733 THEN: r = 732: GOTO moved IF r = 732 THEN: r = 731: GOTO moved IF r = 754 THEN: r = 753: GOTO moved IF r = 753 THEN: r = 752: GOTO moved IF r = 752 THEN: r = 751: GOTO moved IF r = 746 THEN: r = 747: GOTO moved IF r = 747 THEN: r = 748: GOTO moved IF r = 748 THEN: r = 749: GOTO moved IF r = 769 THEN: r = 768: GOTO moved IF r = 768 THEN: r = 767: GOTO moved IF r = 767 THEN: r = 766: GOTO moved IF r = 766 THEN: r = 735: GOTO moved IF r = 735 THEN: r = 736: GOTO moved IF r = 736 THEN: r = 737: GOTO moved IF r = 737 THEN: r = 738: GOTO moved IF r = 738 THEN: r = 739: GOTO moved IF r = 739 THEN: r = 740: GOTO moved IF r = 740 THEN: r = 741: GOTO moved IF r = 778 THEN: r = 779: GOTO moved IF r = 779 THEN: r = 763: GOTO moved IF r = 763 THEN: r = 762: GOTO moved IF r = 762 THEN: r = 761: GOTO moved IF r = 761 THEN: r = 760: GOTO moved IF r = 760 THEN: r = 759: GOTO moved IF r = 759 THEN: r = 758: GOTO moved IF r = 758 THEN: r = 757: GOTO moved IF r = 785 THEN: r = 786: GOTO moved IF r = 786 THEN: r = 787: GOTO moved IF r = 787 THEN: r = 787: GOTO moved IF r = 787 THEN: r = 789: GOTO moved IF r = 789 THEN: r = 790: GOTO moved IF r = 790 THEN: r = 791: GOTO moved IF r = 791 THEN: r = 792: GOTO moved IF r = 782 THEN: r = 781: GOTO moved IF r = 864 THEN: r = 869: GOTO moved IF r = 869 THEN: r = 872: GOTO moved IF r = 872 THEN: r = 877: GOTO moved IF r = 877 THEN: r = 856: GOTO moved IF r = 856 THEN: r = 855: GOTO moved IF r = 855 THEN: r = 854: GOTO moved IF r = 854 THEN: r = 853: GOTO moved IF r = 853 THEN: r = 852: GOTO moved IF r = 852 THEN: r = 811: GOTO moved IF r = 811 THEN: r = 823: GOTO moved IF r = 823 THEN: r = 822: GOTO moved IF r = 822 THEN: r = 821: GOTO moved IF r = 821 THEN: r = 820: GOTO moved IF r = 820 THEN: r = 819: GOTO moved IF r = 819 THEN: r = 803: GOTO moved IF r = 803 THEN: r = 802: GOTO moved IF r = 802 THEN: r = 775: GOTO moved IF r = 775 THEN: r = 744: GOTO moved IF r = 744 THEN: r = 773: GOTO moved IF r = 773 THEN: r = 772: GOTO moved IF r = 772 THEN: r = 771: GOTO moved IF r = 865 THEN: r = 868: GOTO moved IF r = 868 THEN: r = 873: GOTO moved IF r = 873 THEN: r = 876: GOTO moved IF r = 876 THEN: r = 879: GOTO moved IF r = 868 THEN: r = 867: GOTO moved IF r = 867 THEN: r = 874: GOTO moved IF r = 874 THEN: r = 875: GOTO moved IF r = 875 THEN: r = 880: GOTO moved IF r = 863 THEN: r = 870: GOTO moved IF r = 870 THEN: r = 871: GOTO moved IF r = 871 THEN: r = 878: GOTO moved IF r = 878 THEN: r = 857: GOTO moved IF r = 862 THEN: r = 861: GOTO moved IF r = 861 THEN: r = 860: GOTO moved IF r = 860 THEN: r = 859: GOTO moved IF r = 859 THEN: r = 858: GOTO moved IF r = 851 THEN: r = 849: GOTO moved IF r = 849 THEN: r = 847: GOTO moved IF r = 847 THEN: r = 848: GOTO moved IF r = 848 THEN: r = 843: GOTO moved IF r = 843 THEN: r = 842: GOTO moved IF r = 846 THEN: r = 845: GOTO moved IF r = 845 THEN: r = 844: GOTO moved IF r = 832 THEN: r = 831: GOTO moved IF r = 831 THEN: r = 830: GOTO moved IF r = 834 THEN: r = 835: GOTO moved IF r = 835 THEN: r = 836: GOTO moved IF r = 833 THEN: r = 837: GOTO moved IF r = 837 THEN: r = 839: GOTO moved IF r = 839 THEN: r = 828: GOTO moved IF r = 864 THEN: r = 869: GOTO moved IF r = 869 THEN: r = 872: GOTO moved IF r = 872 THEN: r = 877: GOTO moved IF r = 877 THEN: r = 856: GOTO moved IF r = 856 THEN: r = 855: GOTO moved IF r = 855 THEN: r = 854: GOTO moved IF r = 854 THEN: r = 853: GOTO moved IF r = 853 THEN: r = 852: GOTO moved IF r = 852 THEN: r = 811: GOTO moved IF r = 811 THEN: r = 823: GOTO moved IF r = 823 THEN: r = 822: GOTO moved IF r = 822 THEN: r = 821: GOTO moved IF r = 821 THEN: r = 820: GOTO moved IF r = 820 THEN: r = 819: GOTO moved IF r = 819 THEN: r = 803: GOTO moved IF r = 803 THEN: r = 802: GOTO moved IF r = 802 THEN: r = 775: GOTO moved IF r = 775 THEN: r = 774: GOTO moved IF r = 774 THEN: r = 773: GOTO moved IF r = 773 THEN: r = 772: GOTO moved IF r = 772 THEN: r = 771: GOTO moved IF r = 893 THEN: r = 894: GOTO moved IF r = 894 THEN: r = 895: GOTO moved IF r = 895 THEN: r = 896: GOTO moved IF r = 899 THEN: r = 900: GOTO moved IF r = 900 THEN: r = 901: GOTO moved IF r = 901 THEN: r = 902: GOTO moved IF r = 902 THEN: r = 903: GOTO moved IF r = 903 THEN: r = 904: GOTO moved IF r = 904 THEN: r = 905: GOTO moved IF r = 910 THEN: r = 911: GOTO moved IF r = 911 THEN: r = 912: GOTO moved IF r = 906 THEN: r = 907: GOTO moved IF r = 907 THEN: r = 908: GOTO moved IF r = 908 THEN: r = 909: GOTO moved IF r = 913 THEN: r = 914: GOTO moved IF r = 967 THEN: r = 968: GOTO moved IF r = 964 THEN: r = 965: GOTO moved IF r = 965 THEN: r = 966: GOTO moved IF r = 960 THEN: r = 961: GOTO moved IF r = 961 THEN: r = 962: GOTO moved IF r = 962 THEN: r = 963: GOTO moved IF r = 953 THEN: r = 954: GOTO moved IF r = 954 THEN: r = 955: GOTO moved IF r = 955 THEN: r = 956: GOTO moved IF r = 956 THEN: r = 957: GOTO moved IF r = 957 THEN: r = 958: GOTO moved IF r = 958 THEN: r = 959: GOTO moved IF r = 888 THEN: r = 889: GOTO moved IF r = 889 THEN: r = 890: GOTO moved IF r = 890 THEN: r = 891: GOTO moved IF r = 891 THEN: r = 929: GOTO moved IF r = 929 THEN: r = 928: GOTO moved IF r = 928 THEN: r = 927: GOTO moved IF r = 927 THEN: r = 926: GOTO moved IF r = 926 THEN: r = 925: GOTO moved IF r = 925 THEN: r = 924: GOTO moved IF r = 924 THEN: r = 923: GOTO moved IF r = 923 THEN: r = 922: GOTO moved IF r = 922 THEN: r = 921: GOTO moved IF r = 921 THEN: r = 920: GOTO moved IF r = 920 THEN: r = 919: GOTO moved IF r = 919 THEN: r = 918: GOTO moved IF r = 918 THEN: r = 917: GOTO moved IF r = 917 THEN: r = 930: GOTO moved IF r = 930 THEN: r = 983: GOTO moved IF r = 983 THEN: r = 984: GOTO moved IF r = 984 THEN: r = 1105: GOTO moved IF r = 1105 THEN: r = 1104: GOTO moved IF r = 1104 THEN: r = 1103: GOTO moved IF r = 1103 THEN: r = 1102: GOTO moved IF r = 973 THEN: r = 972: GOTO moved IF r = 972 THEN: r = 971: GOTO moved IF r = 971 THEN: r = 945: GOTO moved IF r = 945 THEN: r = 944: GOTO moved IF r = 944 THEN: r = 942: GOTO moved IF r = 942 THEN: r = 941: GOTO moved IF r = 941 THEN: r = 940: GOTO moved IF r = 940 THEN: r = 939: GOTO moved IF r = 939 THEN: r = 938: GOTO moved IF r = 938 THEN: r = 937: GOTO moved IF r = 937 THEN: r = 936: GOTO moved IF r = 936 THEN: r = 935: GOTO moved IF r = 935 THEN: r = 934: GOTO moved IF r = 934 THEN: r = 933: GOTO moved IF r = 933 THEN: r = 932: GOTO moved IF r = 932 THEN: r = 931: GOTO moved IF r = 931 THEN: r = 982: GOTO moved IF r = 982 THEN: r = 985: GOTO moved IF r = 985 THEN: r = 986: GOTO moved IF r = 986 THEN: r = 987: GOTO moved IF r = 987 THEN: r = 988: GOTO moved IF r = 988 THEN: r = 1046: GOTO moved IF r = 1046 THEN: r = 1045: GOTO moved IF r = 1045 THEN: r = 1144: GOTO moved IF r = 1044 THEN: r = 1038: GOTO moved IF r = 1038 THEN: r = 1037: GOTO moved IF r = 1043 THEN: r = 1039: GOTO moved IF r = 1039 THEN: r = 1036: GOTO moved IF r = 1036 THEN: r = 1035: GOTO moved IF r = 1035 THEN: r = 1034: GOTO moved IF r = 1042 THEN: r = 1040: GOTO moved IF r = 1040 THEN: r = 1041: GOTO moved IF r = 1095 THEN: r = 1094: GOTO moved IF r = 1094 THEN: r = 1093: GOTO moved IF r = 1093 THEN: r = 1092: GOTO moved IF r = 909 THEN: r = 991: GOTO moved IF r = 991 THEN: r = 1045: GOTO moved IF r = 1095 THEN: r = 1094: GOTO moved IF r = 1094 THEN: r = 1093: GOTO moved IF r = 1093 THEN: r = 1092: GOTO moved IF r = 1099 THEN: r = 1100: GOTO moved IF r = 1100 THEN: r = 1089: GOTO moved IF r = 1089 THEN: r = 1088: GOTO moved IF r = 1088 THEN: r = 1087: GOTO moved IF r = 1087 THEN: r = 1071: GOTO moved IF r = 1071 THEN: r = 1072: GOTO moved IF r = 1100 THEN: r = 1089: GOTO moved IF r = 993 THEN: r = 994: GOTO moved IF r = 994 THEN: r = 995: GOTO moved IF r = 995 THEN: r = 996: GOTO moved IF r = 996 THEN: r = 1028: GOTO moved IF r = 1028 THEN: r = 1025: GOTO moved IF r = 1025 THEN: r = 1024: GOTO moved IF r = 1024 THEN: r = 1023: GOTO moved IF r = 1023 THEN: r = 1022: GOTO moved IF r = 1022 THEN: r = 1021: GOTO moved IF r = 1021 THEN: r = 1019: GOTO moved IF r = 998 THEN: r = 1001: GOTO moved IF r = 1001 THEN: r = 1002: GOTO moved IF r = 1002 THEN: r = 1004: GOTO moved IF r = 1004 THEN: r = 1005: GOTO moved IF r = 1005 THEN: r = 1006: GOTO moved IF r = 1006 THEN: r = 1007: GOTO moved IF r = 1007 THEN: r = 1008: GOTO moved IF r = 1008 THEN: r = 1009: GOTO moved IF r = 1009 THEN: r = 1010: GOTO moved IF r = 1018 THEN: r = 1017: GOTO moved IF r = 1017 THEN: r = 1016: GOTO moved IF r = 1016 THEN: r = 1015: GOTO moved IF r = 999 THEN: r = 1000: GOTO moved IF r = 1000 THEN: r = 1003: GOTO moved IF r = 1099 THEN: r = 1100: GOTO moved IF r = 1100 THEN: r = 1089: GOTO moved IF r = 1089 THEN: r = 1088: GOTO moved IF r = 1088 THEN: r = 1087: GOTO moved IF r = 1087 THEN: r = 1071: GOTO moved IF r = 1071 THEN: r = 1072: GOTO moved IF r = 1069 THEN: r = 1068: GOTO moved IF r = 1068 THEN: r = 1067: GOTO moved IF r = 1067 THEN: r = 1066: GOTO moved IF r = 1066 THEN: r = 1063: GOTO moved IF r = 1063 THEN: r = 1062: GOTO moved IF r = 1062 THEN: r = 1061: GOTO moved IF r = 1065 THEN: r = 1066: GOTO moved IF r = 1066 THEN: r = 1059: GOTO moved IF r = 1079 THEN: r = 1076: GOTO moved IF r = 1076 THEN: r = 1077: GOTO moved IF r = 1077 THEN: r = 1078: GOTO moved IF r = 1085 THEN: r = 1084: GOTO moved IF r = 1084 THEN: r = 1083: GOTO moved IF r = 1083 THEN: r = 1082: GOTO moved IF r = 1051 THEN: r = 1052: GOTO moved IF r = 1052 THEN: r = 1053: GOTO moved IF r = 1018 THEN: r = 1017: GOTO moved IF r = 1017 THEN: r = 1016: GOTO moved IF r = 1016 THEN: r = 1015: GOTO moved END IF IF cmd$ = "GO EAST" OR cmd$ = "EAST" OR cmd$ = "E" THEN IF r = 8 THEN: r = 7: GOTO moved IF r = 7 THEN: r = 6: GOTO moved IF r = 6 THEN: r = 5: GOTO moved IF r = 5 THEN: r = 4: GOTO moved IF r = 4 THEN: r = 3: GOTO moved IF r = 3 THEN: r = 27: GOTO moved IF r = 27 THEN: r = 26: GOTO moved IF r = 26 THEN: r = 25: GOTO moved IF r = 25 THEN: r = 28: GOTO moved IF r = 28 THEN: r = 29: GOTO moved IF r = 29 THEN: r = 30: GOTO moved IF r = 51 THEN: r = 52: GOTO moved IF r = 52 THEN: r = 37: GOTO moved IF r = 37 THEN: r = 38: GOTO moved IF r = 75 THEN: r = 74: GOTO moved IF r = 74 THEN: r = 73: GOTO moved IF r = 73 THEN: r = 72: GOTO moved IF r = 118 THEN: r = 116: GOTO moved IF r = 116 THEN: r = 117: GOTO moved IF r = 117 THEN: r = 63: GOTO moved IF r = 63 THEN: r = 62: GOTO moved IF r = 62 THEN: r = 54: GOTO moved IF r = 54 THEN: r = 53: GOTO moved IF r = 53 THEN: r = 48: GOTO moved IF r = 46 THEN: r = 45: GOTO moved IF r = 45 THEN: r = 44: GOTO moved IF r = 44 THEN: r = 43: GOTO moved IF r = 61 THEN: r = 58: GOTO moved IF r = 58 THEN: r = 59: GOTO moved IF r = 90 THEN: r = 89: GOTO moved IF r = 89 THEN: r = 88: GOTO moved IF r = 88 THEN: r = 87: GOTO moved IF r = 98 THEN: r = 97: GOTO moved IF r = 97 THEN: r = 96: GOTO moved IF r = 96 THEN: r = 95: GOTO moved IF r = 91 THEN: r = 92: GOTO moved IF r = 92 THEN: r = 93: GOTO moved IF r = 93 THEN: r = 94: GOTO moved IF r = 94 THEN: r = 99: GOTO moved IF r = 99 THEN: r = 100: GOTO moved IF r = 100 THEN: r = 112: GOTO moved IF r = 112 THEN: r = 113: GOTO moved IF r = 106 THEN: r = 105: GOTO moved IF r = 105 THEN: r = 104: GOTO moved IF r = 111 THEN: r = 110: GOTO moved IF r = 103 THEN: r = 107: GOTO moved IF r = 107 THEN: r = 108: GOTO moved IF r = 108 THEN: r = 109: GOTO moved IF r = 124 THEN: r = 125: GOTO moved IF r = 125 THEN: r = 126: GOTO moved IF r = 126 THEN: r = 127: GOTO moved IF r = 127 THEN: r = 128: GOTO moved IF r = 128 THEN: r = 129: GOTO moved IF r = 129 THEN: r = 130: GOTO moved IF r = 130 THEN: r = 131: GOTO moved IF r = 131 THEN: r = 132: GOTO moved IF r = 132 THEN: r = 133: GOTO moved IF r = 133 THEN: r = 134: GOTO moved IF r = 134 THEN: r = 135: GOTO moved IF r = 135 THEN: r = 136: GOTO moved IF r = 136 THEN: r = 137: GOTO moved IF r = 137 THEN: r = 138: GOTO moved IF r = 138 THEN: r = 139: GOTO moved IF r = 139 THEN: r = 140: GOTO moved IF r = 172 THEN: r = 173: GOTO moved IF r = 173 THEN: r = 174: GOTO moved IF r = 180 THEN: r = 179: GOTO moved IF r = 179 THEN: r = 170: GOTO moved IF r = 170 THEN: r = 169: GOTO moved IF r = 169 THEN: r = 168: GOTO moved IF r = 168 THEN: r = 164: GOTO moved IF r = 164 THEN: r = 165: GOTO moved IF r = 165 THEN: r = 166: GOTO moved IF r = 166 THEN: r = 167: GOTO moved IF r = 167 THEN: r = 168: GOTO moved IF r = 162 THEN: r = 161: GOTO moved IF r = 161 THEN: r = 160: GOTO moved IF r = 160 THEN: r = 159: GOTO moved IF r = 159 THEN: r = 158: GOTO moved IF r = 152 THEN: r = 151: GOTO moved IF r = 151 THEN: r = 150: GOTO moved IF r = 149 THEN: r = 148: GOTO moved IF r = 148 THEN: r = 147: GOTO moved IF r = 147 THEN: r = 146: GOTO moved IF r = 146 THEN: r = 143: GOTO moved IF r = 145 THEN: r = 144: GOTO moved IF r = 189 THEN: r = 190: GOTO moved IF r = 190 THEN: r = 191: GOTO moved IF r = 191 THEN: r = 192: GOTO moved IF r = 192 THEN: r = 193: GOTO moved IF r = 193 THEN: r = 202: GOTO moved IF r = 202 THEN: r = 201: GOTO moved IF r = 201 THEN: r = 200: GOTO moved IF r = 200 THEN: r = 203: GOTO moved IF r = 203 THEN: r = 204: GOTO moved IF r = 204 THEN: r = 205: GOTO moved IF r = 205 THEN: r = 214: GOTO moved IF r = 214 THEN: r = 213: GOTO moved IF r = 208 THEN: r = 209: GOTO moved IF r = 209 THEN: r = 210: GOTO moved IF r = 195 THEN: r = 196: GOTO moved IF r = 196 THEN: r = 197: GOTO moved IF r = 197 THEN: r = 198: GOTO moved IF r = 226 THEN: r = 217: GOTO moved IF r = 217 THEN: r = 218: GOTO moved IF r = 223 THEN: r = 222: GOTO moved IF r = 222 THEN: r = 221: GOTO moved IF r = 251 THEN: r = 250: GOTO moved IF r = 250 THEN: r = 247: GOTO moved IF r = 247 THEN: r = 246: GOTO moved IF r = 246 THEN: r = 245: GOTO moved IF r = 245 THEN: r = 237: GOTO moved IF r = 237 THEN: r = 236: GOTO moved IF r = 236 THEN: r = 235: GOTO moved IF r = 235 THEN: r = 231: GOTO moved IF r = 240 THEN: r = 241: GOTO moved IF r = 241 THEN: r = 242: GOTO moved IF r = 242 THEN: r = 243: GOTO moved IF r = 244 THEN: r = 229: GOTO moved IF r = 229 THEN: r = 228: GOTO moved IF r = 228 THEN: r = 227: GOTO moved IF r = 227 THEN: r = 224: GOTO moved IF r = 8 THEN: r = 7: GOTO moved IF r = 7 THEN: r = 6: GOTO moved IF r = 6 THEN: r = 5: GOTO moved IF r = 5 THEN: r = 4: GOTO moved IF r = 4 THEN: r = 3: GOTO moved IF r = 3 THEN: r = 27: GOTO moved IF r = 27 THEN: r = 26: GOTO moved IF r = 26 THEN: r = 25: GOTO moved IF r = 25 THEN: r = 28: GOTO moved IF r = 28 THEN: r = 29: GOTO moved IF r = 29 THEN: r = 30: GOTO moved IF r = 31 THEN: r = 32: GOTO moved IF r = 32 THEN: r = 33: GOTO moved IF r = 33 THEN: r = 119: GOTO moved IF r = 119 THEN: r = 120: GOTO moved IF r = 120 THEN: r = 185: GOTO moved IF r = 185 THEN: r = 186: GOTO moved IF r = 21 THEN: r = 22: GOTO moved IF r = 22 THEN: r = 23: GOTO moved IF r = 12 THEN: r = 11: GOTO moved IF r = 11 THEN: r = 13: GOTO moved IF r = 13 THEN: r = 14: GOTO moved IF r = 14 THEN: r = 17: GOTO moved IF r = 17 THEN: r = 18: GOTO moved IF r = 18 THEN: r = 19: GOTO moved IF r = 19 THEN: r = 20: GOTO moved IF r = 81 THEN: r = 82: GOTO moved IF r = 79 THEN: r = 78: GOTO moved IF r = 78 THEN: r = 77: GOTO moved IF r = 77 THEN: r = 76: GOTO moved IF r = 70 THEN: r = 69: GOTO moved IF r = 69 THEN: r = 68: GOTO moved IF r = 68 THEN: r = 65: GOTO moved IF r = 51 THEN: r = 52: GOTO moved IF r = 52 THEN: r = 37: GOTO moved IF r = 37 THEN: r = 38: GOTO moved IF r = 75 THEN: r = 74: GOTO moved IF r = 74 THEN: r = 73: GOTO moved IF r = 73 THEN: r = 72: GOTO moved IF r = 118 THEN: r = 116: GOTO moved IF r = 116 THEN: r = 117: GOTO moved IF r = 117 THEN: r = 63: GOTO moved IF r = 63 THEN: r = 62: GOTO moved IF r = 62 THEN: r = 54: GOTO moved IF r = 54 THEN: r = 53: GOTO moved IF r = 53 THEN: r = 48: GOTO moved IF r = 46 THEN: r = 45: GOTO moved IF r = 45 THEN: r = 44: GOTO moved IF r = 44 THEN: r = 43: GOTO moved IF r = 61 THEN: r = 58: GOTO moved IF r = 58 THEN: r = 59: GOTO moved IF r = 90 THEN: r = 89: GOTO moved IF r = 89 THEN: r = 88: GOTO moved IF r = 88 THEN: r = 87: GOTO moved IF r = 98 THEN: r = 97: GOTO moved IF r = 97 THEN: r = 96: GOTO moved IF r = 96 THEN: r = 95: GOTO moved IF r = 91 THEN: r = 92: GOTO moved IF r = 92 THEN: r = 93: GOTO moved IF r = 93 THEN: r = 94: GOTO moved IF r = 94 THEN: r = 99: GOTO moved IF r = 99 THEN: r = 100: GOTO moved IF r = 100 THEN: r = 112: GOTO moved IF r = 112 THEN: r = 113: GOTO moved IF r = 106 THEN: r = 105: GOTO moved IF r = 105 THEN: r = 104: GOTO moved IF r = 111 THEN: r = 110: GOTO moved IF r = 103 THEN: r = 107: GOTO moved IF r = 107 THEN: r = 108: GOTO moved IF r = 108 THEN: r = 109: GOTO moved IF r = 124 THEN: r = 125: GOTO moved IF r = 125 THEN: r = 126: GOTO moved IF r = 126 THEN: r = 127: GOTO moved IF r = 127 THEN: r = 128: GOTO moved IF r = 128 THEN: r = 129: GOTO moved IF r = 129 THEN: r = 130: GOTO moved IF r = 130 THEN: r = 131: GOTO moved IF r = 131 THEN: r = 132: GOTO moved IF r = 132 THEN: r = 133: GOTO moved IF r = 133 THEN: r = 134: GOTO moved IF r = 134 THEN: r = 135: GOTO moved IF r = 135 THEN: r = 136: GOTO moved IF r = 136 THEN: r = 137: GOTO moved IF r = 137 THEN: r = 138: GOTO moved IF r = 138 THEN: r = 139: GOTO moved IF r = 139 THEN: r = 140: GOTO moved IF r = 140 THEN: r = 254: GOTO moved IF r = 254 THEN: r = 281: GOTO moved IF r = 281 THEN: r = 280: GOTO moved IF r = 280 THEN: r = 282: GOTO moved IF r = 282 THEN: r = 340: GOTO moved IF r = 172 THEN: r = 173: GOTO moved IF r = 173 THEN: r = 174: GOTO moved IF r = 180 THEN: r = 179: GOTO moved IF r = 179 THEN: r = 170: GOTO moved IF r = 170 THEN: r = 169: GOTO moved IF r = 169 THEN: r = 168: GOTO moved IF r = 168 THEN: r = 164: GOTO moved IF r = 164 THEN: r = 165: GOTO moved IF r = 165 THEN: r = 166: GOTO moved IF r = 166 THEN: r = 167: GOTO moved IF r = 167 THEN: r = 156: GOTO moved IF r = 162 THEN: r = 161: GOTO moved IF r = 161 THEN: r = 160: GOTO moved IF r = 160 THEN: r = 159: GOTO moved IF r = 159 THEN: r = 158: GOTO moved IF r = 152 THEN: r = 151: GOTO moved IF r = 151 THEN: r = 150: GOTO moved IF r = 149 THEN: r = 148: GOTO moved IF r = 148 THEN: r = 147: GOTO moved IF r = 147 THEN: r = 146: GOTO moved IF r = 146 THEN: r = 143: GOTO moved IF r = 145 THEN: r = 144: GOTO moved IF r = 189 THEN: r = 190: GOTO moved IF r = 190 THEN: r = 191: GOTO moved IF r = 191 THEN: r = 192: GOTO moved IF r = 192 THEN: r = 193: GOTO moved IF r = 193 THEN: r = 202: GOTO moved IF r = 202 THEN: r = 201: GOTO moved IF r = 201 THEN: r = 200: GOTO moved IF r = 200 THEN: r = 203: GOTO moved IF r = 203 THEN: r = 204: GOTO moved IF r = 204 THEN: r = 205: GOTO moved IF r = 205 THEN: r = 214: GOTO moved IF r = 214 THEN: r = 213: GOTO moved IF r = 208 THEN: r = 209: GOTO moved IF r = 209 THEN: r = 210: GOTO moved IF r = 195 THEN: r = 196: GOTO moved IF r = 196 THEN: r = 197: GOTO moved IF r = 197 THEN: r = 198: GOTO moved IF r = 226 THEN: r = 217: GOTO moved IF r = 217 THEN: r = 218: GOTO moved IF r = 223 THEN: r = 222: GOTO moved IF r = 222 THEN: r = 221: GOTO moved IF r = 251 THEN: r = 250: GOTO moved IF r = 250 THEN: r = 247: GOTO moved IF r = 247 THEN: r = 246: GOTO moved IF r = 246 THEN: r = 245: GOTO moved IF r = 245 THEN: r = 237: GOTO moved IF r = 237 THEN: r = 236: GOTO moved IF r = 236 THEN: r = 235: GOTO moved IF r = 235 THEN: r = 231: GOTO moved IF r = 240 THEN: r = 241: GOTO moved IF r = 241 THEN: r = 242: GOTO moved IF r = 242 THEN: r = 243: GOTO moved IF r = 244 THEN: r = 229: GOTO moved IF r = 229 THEN: r = 228: GOTO moved IF r = 228 THEN: r = 227: GOTO moved IF r = 227 THEN: r = 224: GOTO moved IF r = 296 THEN: r = 297: GOTO moved IF r = 297 THEN: r = 298: GOTO moved IF r = 298 THEN: r = 299: GOTO moved IF r = 299 THEN: r = 306: GOTO moved IF r = 306 THEN: r = 307: GOTO moved IF r = 307 THEN: r = 308: GOTO moved IF r = 308 THEN: r = 309: GOTO moved IF r = 309 THEN: r = 310: GOTO moved IF r = 310 THEN: r = 311: GOTO moved IF r = 311 THEN: r = 312: GOTO moved IF r = 312 THEN: r = 313: GOTO moved IF r = 314 THEN: r = 315: GOTO moved IF r = 290 THEN: r = 289: GOTO moved IF r = 289 THEN: r = 287: GOTO moved IF r = 285 THEN: r = 305: GOTO moved IF r = 305 THEN: r = 304: GOTO moved IF r = 304 THEN: r = 303: GOTO moved IF r = 334 THEN: r = 333: GOTO moved IF r = 333 THEN: r = 332: GOTO moved IF r = 332 THEN: r = 331: GOTO moved IF r = 331 THEN: r = 326: GOTO moved IF r = 326 THEN: r = 325: GOTO moved IF r = 325 THEN: r = 324: GOTO moved IF r = 324 THEN: r = 323: GOTO moved IF r = 323 THEN: r = 322: GOTO moved IF r = 322 THEN: r = 321: GOTO moved IF r = 321 THEN: r = 320: GOTO moved IF r = 361 THEN: r = 362: GOTO moved IF r = 362 THEN: r = 359: GOTO moved IF r = 359 THEN: r = 353: GOTO moved IF r = 352 THEN: r = 355: GOTO moved IF r = 355 THEN: r = 356: GOTO moved IF r = 399 THEN: r = 338: GOTO moved IF r = 338 THEN: r = 337: GOTO moved IF r = 337 THEN: r = 370: GOTO moved IF r = 370 THEN: r = 369: GOTO moved IF r = 369 THEN: r = 366: GOTO moved IF r = 366 THEN: r = 365: GOTO moved IF r = 365 THEN: r = 363: GOTO moved IF r = 256 THEN: r = 278: GOTO moved IF r = 278 THEN: r = 277: GOTO moved IF r = 342 THEN: r = 343: GOTO moved IF r = 343 THEN: r = 344: GOTO moved IF r = 344 THEN: r = 345: GOTO moved IF r = 345 THEN: r = 346: GOTO moved IF r = 346 THEN: r = 347: GOTO moved IF r = 347 THEN: r = 348: GOTO moved IF r = 348 THEN: r = 349: GOTO moved IF r = 349 THEN: r = 350: GOTO moved IF r = 258 THEN: r = 259: GOTO moved IF r = 259 THEN: r = 260: GOTO moved IF r = 260 THEN: r = 275: GOTO moved IF r = 275 THEN: r = 274: GOTO moved IF r = 274 THEN: r = 273: GOTO moved IF r = 273 THEN: r = 272: GOTO moved IF r = 404 THEN: r = 403: GOTO moved IF r = 403 THEN: r = 402: GOTO moved IF r = 269 THEN: r = 372: GOTO moved IF r = 372 THEN: r = 371: GOTO moved IF r = 371 THEN: r = 370: GOTO moved IF r = 370 THEN: r = 369: GOTO moved IF r = 369 THEN: r = 368: GOTO moved IF r = 368 THEN: r = 409: GOTO moved IF r = 409 THEN: r = 408: GOTO moved IF r = 408 THEN: r = 407: GOTO moved IF r = 407 THEN: r = 410: GOTO moved IF r = 410 THEN: r = 399: GOTO moved IF r = 264 THEN: r = 265: GOTO moved IF r = 265 THEN: r = 266: GOTO moved IF r = 266 THEN: r = 267: GOTO moved IF r = 267 THEN: r = 268: GOTO moved IF r = 379 THEN: r = 378: GOTO moved IF r = 378 THEN: r = 377: GOTO moved IF r = 377 THEN: r = 390: GOTO moved IF r = 390 THEN: r = 389: GOTO moved IF r = 388 THEN: r = 392: GOTO moved IF r = 392 THEN: r = 393: GOTO moved IF r = 393 THEN: r = 394: GOTO moved IF r = 394 THEN: r = 395: GOTO moved IF r = 395 THEN: r = 396: GOTO moved IF r = 381 THEN: r = 382: GOTO moved IF r = 382 THEN: r = 383: GOTO moved IF r = 383 THEN: r = 384: GOTO moved IF r = 384 THEN: r = 386: GOTO moved IF r = 386 THEN: r = 387: GOTO moved IF r = 398 THEN: r = 411: GOTO moved IF r = 411 THEN: r = 412: GOTO moved IF r = 412 THEN: r = 413: GOTO moved IF r = 413 THEN: r = 414: GOTO moved IF r = 420 THEN: r = 421: GOTO moved IF r = 421 THEN: r = 422: GOTO moved IF r = 422 THEN: r = 423: GOTO moved IF r = 423 THEN: r = 424: GOTO moved IF r = 424 THEN: r = 431: GOTO moved IF r = 431 THEN: r = 432: GOTO moved IF r = 432 THEN: r = 439: GOTO moved IF r = 439 THEN: r = 440: GOTO moved IF r = 440 THEN: r = 444: GOTO moved IF r = 444 THEN: r = 445: GOTO moved IF r = 445 THEN: r = 446: GOTO moved IF r = 446 THEN: r = 447: GOTO moved IF r = 453 THEN: r = 454: GOTO moved IF r = 454 THEN: r = 455: GOTO moved IF r = 455 THEN: r = 476: GOTO moved IF r = 475 THEN: r = 474: GOTO moved IF r = 474 THEN: r = 473: GOTO moved IF r = 473 THEN: r = 472: GOTO moved IF r = 472 THEN: r = 465: GOTO moved IF r = 465 THEN: r = 468: GOTO moved IF r = 468 THEN: r = 469: GOTO moved IF r = 469 THEN: r = 470: GOTO moved IF r = 470 THEN: r = 471: GOTO moved IF r = 478 THEN: r = 487: GOTO moved IF r = 487 THEN: r = 486: GOTO moved IF r = 484 THEN: r = 604: GOTO moved IF r = 604 THEN: r = 603: GOTO moved IF r = 603 THEN: r = 602: GOTO moved IF r = 602 THEN: r = 601: GOTO moved IF r = 601 THEN: r = 612: GOTO moved IF r = 481 THEN: r = 482: GOTO moved IF r = 482 THEN: r = 483: GOTO moved IF r = 496 THEN: r = 489: GOTO moved IF r = 489 THEN: r = 490: GOTO moved IF r = 484 THEN: r = 604: GOTO moved IF r = 604 THEN: r = 603: GOTO moved IF r = 603 THEN: r = 602: GOTO moved IF r = 602 THEN: r = 601: GOTO moved IF r = 601 THEN: r = 612: GOTO moved IF r = 494 THEN: r = 493: GOTO moved IF r = 493 THEN: r = 492: GOTO moved IF r = 492 THEN: r = 553: GOTO moved IF r = 553 THEN: r = 552: GOTO moved IF r = 552 THEN: r = 551: GOTO moved IF r = 551 THEN: r = 550: GOTO moved IF r = 550 THEN: r = 554: GOTO moved IF r = 554 THEN: r = 555: GOTO moved IF r = 555 THEN: r = 556: GOTO moved IF r = 547 THEN: r = 548: GOTO moved IF r = 548 THEN: r = 549: GOTO moved IF r = 546 THEN: r = 545: GOTO moved IF r = 545 THEN: r = 544: GOTO moved IF r = 544 THEN: r = 543: GOTO moved IF r = 543 THEN: r = 559: GOTO moved IF r = 559 THEN: r = 558: GOTO moved IF r = 558 THEN: r = 561: GOTO moved IF r = 561 THEN: r = 562: GOTO moved IF r = 562 THEN: r = 564: GOTO moved IF r = 564 THEN: r = 565: GOTO moved IF r = 565 THEN: r = 567: GOTO moved IF r = 567 THEN: r = 568: GOTO moved IF r = 573 THEN: r = 574: GOTO moved IF r = 540 THEN: r = 539: GOTO moved IF r = 539 THEN: r = 536: GOTO moved IF r = 536 THEN: r = 535: GOTO moved IF r = 535 THEN: r = 532: GOTO moved IF r = 532 THEN: r = 531: GOTO moved IF r = 531 THEN: r = 528: GOTO moved IF r = 528 THEN: r = 527: GOTO moved IF r = 527 THEN: r = 526: GOTO moved IF r = 607 THEN: r = 608: GOTO moved IF r = 608 THEN: r = 609: GOTO moved IF r = 609 THEN: r = 613: GOTO moved IF r = 613 THEN: r = 614: GOTO moved IF r = 614 THEN: r = 615: GOTO moved IF r = 615 THEN: r = 585: GOTO moved IF r = 585 THEN: r = 584: GOTO moved IF r = 584 THEN: r = 583: GOTO moved IF r = 583 THEN: r = 582: GOTO moved IF r = 582 THEN: r = 581: GOTO moved IF r = 581 THEN: r = 580: GOTO moved IF r = 546 THEN: r = 545: GOTO moved IF r = 545 THEN: r = 544: GOTO moved IF r = 544 THEN: r = 543: GOTO moved IF r = 543 THEN: r = 559: GOTO moved IF r = 559 THEN: r = 558: GOTO moved IF r = 558 THEN: r = 561: GOTO moved IF r = 561 THEN: r = 562: GOTO moved IF r = 562 THEN: r = 564: GOTO moved IF r = 564 THEN: r = 565: GOTO moved IF r = 565 THEN: r = 567: GOTO moved IF r = 567 THEN: r = 568: GOTO moved IF r = 536 THEN: r = 535: GOTO moved IF r = 535 THEN: r = 532: GOTO moved IF r = 532 THEN: r = 531: GOTO moved IF r = 531 THEN: r = 528: GOTO moved IF r = 528 THEN: r = 527: GOTO moved IF r = 527 THEN: r = 526: GOTO moved IF r = 506 THEN: r = 515: GOTO moved IF r = 515 THEN: r = 514: GOTO moved IF r = 514 THEN: r = 513: GOTO moved IF r = 508 THEN: r = 509: GOTO moved IF r = 509 THEN: r = 510: GOTO moved IF r = 510 THEN: r = 511: GOTO moved IF r = 512 THEN: r = 516: GOTO moved IF r = 516 THEN: r = 517: GOTO moved IF r = 517 THEN: r = 518: GOTO moved IF r = 518 THEN: r = 519: GOTO moved IF r = 519 THEN: r = 520: GOTO moved IF r = 520 THEN: r = 521: GOTO moved IF r = 521 THEN: r = 522: GOTO moved IF r = 522 THEN: r = 523: GOTO moved IF r = 621 THEN: r = 620: GOTO moved IF r = 620 THEN: r = 619: GOTO moved IF r = 619 THEN: r = 618: GOTO moved IF r = 622 THEN: r = 623: GOTO moved IF r = 623 THEN: r = 624: GOTO moved IF r = 624 THEN: r = 625: GOTO moved IF r = 629 THEN: r = 628: GOTO moved IF r = 628 THEN: r = 627: GOTO moved IF r = 627 THEN: r = 626: GOTO moved IF r = 630 THEN: r = 631: GOTO moved IF r = 631 THEN: r = 632: GOTO moved IF r = 632 THEN: r = 633: GOTO moved IF r = 658 THEN: r = 657: GOTO moved IF r = 657 THEN: r = 656: GOTO moved IF r = 656 THEN: r = 655: GOTO moved IF r = 662 THEN: r = 663: GOTO moved IF r = 663 THEN: r = 664: GOTO moved IF r = 664 THEN: r = 665: GOTO moved IF r = 669 THEN: r = 668: GOTO moved IF r = 668 THEN: r = 667: GOTO moved IF r = 667 THEN: r = 666: GOTO moved IF r = 635 THEN: r = 636: GOTO moved IF r = 636 THEN: r = 637: GOTO moved IF r = 637 THEN: r = 638: GOTO moved IF r = 643 THEN: r = 644: GOTO moved IF r = 644 THEN: r = 645: GOTO moved IF r = 645 THEN: r = 646: GOTO moved IF r = 650 THEN: r = 649: GOTO moved IF r = 649 THEN: r = 648: GOTO moved IF r = 648 THEN: r = 647: GOTO moved IF r = 674 THEN: r = 673: GOTO moved IF r = 673 THEN: r = 672: GOTO moved IF r = 672 THEN: r = 671: GOTO moved IF r = 675 THEN: r = 676: GOTO moved IF r = 676 THEN: r = 677: GOTO moved IF r = 677 THEN: r = 678: GOTO moved IF r = 682 THEN: r = 681: GOTO moved IF r = 681 THEN: r = 680: GOTO moved IF r = 680 THEN: r = 679: GOTO moved IF r = 683 THEN: r = 684: GOTO moved IF r = 684 THEN: r = 685: GOTO moved IF r = 685 THEN: r = 686: GOTO moved IF r = 695 THEN: r = 694: GOTO moved IF r = 694 THEN: r = 703: GOTO moved IF r = 703 THEN: r = 704: GOTO moved IF r = 696 THEN: r = 701: GOTO moved IF r = 701 THEN: r = 702: GOTO moved IF r = 702 THEN: r = 705: GOTO moved IF r = 697 THEN: r = 700: GOTO moved IF r = 700 THEN: r = 707: GOTO moved IF r = 707 THEN: r = 706: GOTO moved IF r = 698 THEN: r = 699: GOTO moved IF r = 699 THEN: r = 708: GOTO moved IF r = 708 THEN: r = 709: GOTO moved IF r = 717 THEN: r = 718: GOTO moved IF r = 718 THEN: r = 723: GOTO moved IF r = 723 THEN: r = 724: GOTO moved IF r = 716 THEN: r = 719: GOTO moved IF r = 719 THEN: r = 722: GOTO moved IF r = 722 THEN: r = 725: GOTO moved IF r = 715 THEN: r = 720: GOTO moved IF r = 720 THEN: r = 721: GOTO moved IF r = 721 THEN: r = 726: GOTO moved IF r = 714 THEN: r = 713: GOTO moved IF r = 713 THEN: r = 728: GOTO moved IF r = 728 THEN: r = 727: GOTO moved IF r = 659 THEN: r = 660: GOTO moved IF r = 660 THEN: r = 661: GOTO moved IF r = 661 THEN: r = 654: GOTO moved IF r = 654 THEN: r = 653: GOTO moved IF r = 653 THEN: r = 652: GOTO moved IF r = 652 THEN: r = 651: GOTO moved IF r = 651 THEN: r = 642: GOTO moved IF r = 642 THEN: r = 641: GOTO moved IF r = 641 THEN: r = 640: GOTO moved IF r = 640 THEN: r = 639: GOTO moved IF r = 639 THEN: r = 687: GOTO moved IF r = 687 THEN: r = 688: GOTO moved IF r = 688 THEN: r = 689: GOTO moved IF r = 709 THEN: r = 729: GOTO moved IF r = 729 THEN: r = 730: GOTO moved IF r = 730 THEN: r = 731: GOTO moved IF r = 733 THEN: r = 734: GOTO moved IF r = 734 THEN: r = 735: GOTO moved IF r = 735 THEN: r = 765: GOTO moved IF r = 765 THEN: r = 764: GOTO moved IF r = 764 THEN: r = 763: GOTO moved IF r = 744 THEN: r = 743: GOTO moved IF r = 743 THEN: r = 742: GOTO moved IF r = 742 THEN: r = 741: GOTO moved IF r = 741 THEN: r = 755: GOTO moved IF r = 755 THEN: r = 756: GOTO moved IF r = 756 THEN: r = 757: GOTO moved IF r = 754 THEN: r = 745: GOTO moved IF r = 745 THEN: r = 746: GOTO moved IF r = 751 THEN: r = 750: GOTO moved IF r = 750 THEN: r = 749: GOTO moved IF r = 759 THEN: r = 796: GOTO moved IF r = 796 THEN: r = 795: GOTO moved IF r = 795 THEN: r = 794: GOTO moved IF r = 794 THEN: r = 793: GOTO moved IF r = 793 THEN: r = 792: GOTO moved IF r = 792 THEN: r = 797: GOTO moved IF r = 797 THEN: r = 798: GOTO moved IF r = 798 THEN: r = 799: GOTO moved IF r = 799 THEN: r = 800: GOTO moved IF r = 800 THEN: r = 801: GOTO moved IF r = 801 THEN: r = 882: GOTO moved IF r = 882 THEN: r = 883: GOTO moved IF r = 883 THEN: r = 884: GOTO moved IF r = 884 THEN: r = 885: GOTO moved IF r = 885 THEN: r = 886: GOTO moved IF r = 886 THEN: r = 887: GOTO moved IF r = 887 THEN: r = 888: GOTO moved IF r = 893 THEN: r = 892: GOTO moved IF r = 892 THEN: r = 891: GOTO moved IF r = 899 THEN: r = 898: GOTO moved IF r = 898 THEN: r = 897: GOTO moved IF r = 897 THEN: r = 896: GOTO moved IF r = 906 THEN: r = 905: GOTO moved IF r = 905 THEN: r = 910: GOTO moved IF r = 912 THEN: r = 913: GOTO moved IF r = 915 THEN: r = 916: GOTO moved IF r = 916 THEN: r = 917: GOTO moved IF r = 930 THEN: r = 931: GOTO moved IF r = 973 THEN: r = 974: GOTO moved IF r = 974 THEN: r = 975: GOTO moved IF r = 975 THEN: r = 976: GOTO moved IF r = 976 THEN: r = 977: GOTO moved IF r = 977 THEN: r = 978: GOTO moved IF r = 978 THEN: r = 979: GOTO moved IF r = 979 THEN: r = 980: GOTO moved IF r = 980 THEN: r = 981: GOTO moved IF r = 945 THEN: r = 940: GOTO moved IF r = 940 THEN: r = 941: GOTO moved IF r = 950 THEN: r = 951: GOTO moved IF r = 951 THEN: r = 952: GOTO moved IF r = 952 THEN: r = 953: GOTO moved IF r = 964 THEN: r = 959: GOTO moved IF r = 959 THEN: r = 960: GOTO moved IF r = 967 THEN: r = 966: GOTO moved IF r = 933 THEN: r = 970: GOTO moved IF r = 970 THEN: r = 969: GOTO moved IF r = 930 THEN: r = 931: GOTO moved IF r = 918 THEN: r = 919: GOTO moved IF r = 733 THEN: r = 734: GOTO moved IF r = 734 THEN: r = 735: GOTO moved IF r = 735 THEN: r = 765: GOTO moved IF r = 765 THEN: r = 764: GOTO moved IF r = 764 THEN: r = 763: GOTO moved IF r = 767 THEN: r = 776: GOTO moved IF r = 776 THEN: r = 777: GOTO moved IF r = 777 THEN: r = 778: GOTO moved IF r = 778 THEN: r = 780: GOTO moved IF r = 780 THEN: r = 781: GOTO moved IF r = 782 THEN: r = 783: GOTO moved IF r = 783 THEN: r = 784: GOTO moved IF r = 784 THEN: r = 785: GOTO moved IF r = 771 THEN: r = 770: GOTO moved IF r = 770 THEN: r = 769: GOTO moved IF r = 818 THEN: r = 803: GOTO moved IF r = 803 THEN: r = 804: GOTO moved IF r = 817 THEN: r = 819: GOTO moved IF r = 819 THEN: r = 805: GOTO moved IF r = 816 THEN: r = 820: GOTO moved IF r = 820 THEN: r = 806: GOTO moved IF r = 814 THEN: r = 822: GOTO moved IF r = 822 THEN: r = 808: GOTO moved IF r = 813 THEN: r = 823: GOTO moved IF r = 823 THEN: r = 809: GOTO moved IF r = 812 THEN: r = 811: GOTO moved IF r = 811 THEN: r = 810: GOTO moved IF r = 880 THEN: r = 879: GOTO moved IF r = 879 THEN: r = 856: GOTO moved IF r = 856 THEN: r = 857: GOTO moved IF r = 857 THEN: r = 858: GOTO moved IF r = 875 THEN: r = 876: GOTO moved IF r = 876 THEN: r = 877: GOTO moved IF r = 877 THEN: r = 878: GOTO moved IF r = 878 THEN: r = 859: GOTO moved IF r = 874 THEN: r = 873: GOTO moved IF r = 873 THEN: r = 872: GOTO moved IF r = 872 THEN: r = 871: GOTO moved IF r = 871 THEN: r = 860: GOTO moved IF r = 867 THEN: r = 868: GOTO moved IF r = 868 THEN: r = 869: GOTO moved IF r = 869 THEN: r = 870: GOTO moved IF r = 870 THEN: r = 861: GOTO moved IF r = 866 THEN: r = 865: GOTO moved IF r = 865 THEN: r = 864: GOTO moved IF r = 864 THEN: r = 863: GOTO moved IF r = 863 THEN: r = 862: GOTO moved IF r = 836 THEN: r = 829: GOTO moved IF r = 829 THEN: r = 830: GOTO moved IF r = 835 THEN: r = 837: GOTO moved IF r = 837 THEN: r = 831: GOTO moved IF r = 834 THEN: r = 833: GOTO moved IF r = 833 THEN: r = 832: GOTO moved IF r = 850 THEN: r = 843: GOTO moved IF r = 843 THEN: r = 844: GOTO moved IF r = 849 THEN: r = 848: GOTO moved IF r = 848 THEN: r = 845: GOTO moved IF r = 851 THEN: r = 847: GOTO moved IF r = 847 THEN: r = 846: GOTO moved IF r = 828 THEN: r = 827: GOTO moved IF r = 827 THEN: r = 826: GOTO moved IF r = 826 THEN: r = 825: GOTO moved IF r = 825 THEN: r = 824: GOTO moved IF r = 824 THEN: r = 815: GOTO moved IF r = 815 THEN: r = 821: GOTO moved IF r = 821 THEN: r = 807: GOTO moved IF r = 807 THEN: r = 808: GOTO moved IF r = 808 THEN: r = 809: GOTO moved IF r = 809 THEN: r = 810: GOTO moved IF r = 810 THEN: r = 811: GOTO moved IF r = 811 THEN: r = 812: GOTO moved IF r = 1097 THEN: r = 1096: GOTO moved IF r = 1096 THEN: r = 1095: GOTO moved IF r = 1095 THEN: r = 1101: GOTO moved IF r = 1101 THEN: r = 1102: GOTO moved IF r = 1099 THEN: r = 1098: GOTO moved IF r = 1089 THEN: r = 1090: GOTO moved IF r = 1090 THEN: r = 1091: GOTO moved IF r = 1091 THEN: r = 1092: GOTO moved IF r = 1069 THEN: r = 1070: GOTO moved IF r = 1070 THEN: r = 1071: GOTO moved IF r = 1072 THEN: r = 1073: GOTO moved IF r = 1073 THEN: r = 1074: GOTO moved IF r = 1074 THEN: r = 1075: GOTO moved IF r = 1075 THEN: r = 1086: GOTO moved IF r = 1086 THEN: r = 1085: GOTO moved IF r = 1030 THEN: r = 1031: GOTO moved IF r = 1031 THEN: r = 1023: GOTO moved IF r = 1034 THEN: r = 1033: GOTO moved IF r = 1033 THEN: r = 1032: GOTO moved IF r = 1032 THEN: r = 1029: GOTO moved IF r = 1028 THEN: r = 1027: GOTO moved IF r = 1027 THEN: r = 1025: GOTO moved IF r = 1002 THEN: r = 1003: GOTO moved IF r = 1001 THEN: r = 1000: GOTO moved IF r = 996 THEN: r = 997: GOTO moved IF r = 997 THEN: r = 998: GOTO moved IF r = 998 THEN: r = 999: GOTO moved IF r = 1041 THEN: r = 1036: GOTO moved IF r = 1036 THEN: r = 1037: GOTO moved IF r = 1040 THEN: r = 1039: GOTO moved IF r = 1039 THEN: r = 1038: GOTO moved IF r = 1042 THEN: r = 1043: GOTO moved IF r = 1043 THEN: r = 1044: GOTO moved IF r = 1045 THEN: r = 1047: GOTO moved IF r = 1047 THEN: r = 1048: GOTO moved IF r = 991 THEN: r = 992: GOTO moved IF r = 992 THEN: r = 993: GOTO moved IF r = 988 THEN: r = 989: GOTO moved IF r = 989 THEN: r = 990: GOTO moved IF r = 1063 THEN: r = 1064: GOTO moved IF r = 1064 THEN: r = 1065: GOTO moved IF r = 1079 THEN: r = 1078: GOTO moved IF r = 1078 THEN: r = 1081: GOTO moved IF r = 1081 THEN: r = 1082: GOTO moved IF r = 1051 THEN: r = 1050: GOTO moved IF r = 1050 THEN: r = 1049: GOTO moved IF r = 1049 THEN: r = 1018: GOTO moved IF r = 1018 THEN: r = 1019: GOTO moved IF r = 1019 THEN: r = 1020: GOTO moved IF r = 1020 THEN: r = 1008: GOTO moved IF r = 1061 THEN: r = 1060: GOTO moved IF r = 1060 THEN: r = 1059: GOTO moved IF r = 1059 THEN: r = 1058: GOTO moved IF r = 1058 THEN: r = 1057: GOTO moved IF r = 1057 THEN: r = 1056: GOTO moved IF r = 1056 THEN: r = 1055: GOTO moved IF r = 1055 THEN: r = 1054: GOTO moved IF r = 1054 THEN: r = 1053: GOTO moved IF r = 1015 THEN: r = 1014: GOTO moved IF r = 1014 THEN: r = 1013: GOTO moved IF r = 1013 THEN: r = 1011: GOTO moved IF r = 1011 THEN: r = 1012: GOTO moved END IF IF cmd$ = "GO SOUTH" OR cmd$ = "SOUTH" OR cmd$ = "S" THEN IF r = 240 THEN: r = 239: GOTO moved IF r = 239 THEN: r = 238: GOTO moved IF r = 238 THEN: r = 237: GOTO moved IF r = 243 THEN: r = 244: GOTO moved IF r = 244 THEN: r = 230: GOTO moved IF r = 230 THEN: r = 231: GOTO moved IF r = 231 THEN: r = 232: GOTO moved IF r = 232 THEN: r = 233: GOTO moved IF r = 233 THEN: r = 234: GOTO moved IF r = 234 THEN: r = 197: GOTO moved IF r = 195 THEN: r = 194: GOTO moved IF r = 194 THEN: r = 193: GOTO moved IF r = 198 THEN: r = 199: GOTO moved IF r = 199 THEN: r = 200: GOTO moved IF r = 223 THEN: r = 244: GOTO moved IF r = 224 THEN: r = 225: GOTO moved IF r = 225 THEN: r = 226: GOTO moved IF r = 221 THEN: r = 220: GOTO moved IF r = 220 THEN: r = 219: GOTO moved IF r = 219 THEN: r = 218: GOTO moved IF r = 217 THEN: r = 216: GOTO moved IF r = 216 THEN: r = 215: GOTO moved IF r = 215 THEN: r = 209: GOTO moved IF r = 208 THEN: r = 207: GOTO moved IF r = 207 THEN: r = 206: GOTO moved IF r = 206 THEN: r = 225: GOTO moved IF r = 210 THEN: r = 211: GOTO moved IF r = 211 THEN: r = 212: GOTO moved IF r = 212 THEN: r = 213: GOTO moved IF r = 140 THEN: r = 141: GOTO moved IF r = 141 THEN: r = 142: GOTO moved IF r = 142 THEN: r = 143: GOTO moved IF r = 143 THEN: r = 144: GOTO moved IF r = 146 THEN: r = 145: GOTO moved IF r = 150 THEN: r = 149: GOTO moved IF r = 134 THEN: r = 153: GOTO moved IF r = 153 THEN: r = 152: GOTO moved IF r = 152 THEN: r = 154: GOTO moved IF r = 154 THEN: r = 155: GOTO moved IF r = 155 THEN: r = 156: GOTO moved IF r = 156 THEN: r = 157: GOTO moved IF r = 157 THEN: r = 158: GOTO moved IF r = 164 THEN: r = 163: GOTO moved IF r = 163 THEN: r = 162: GOTO moved IF r = 129 THEN: r = 176: GOTO moved IF r = 176 THEN: r = 175: GOTO moved IF r = 175 THEN: r = 174: GOTO moved IF r = 127 THEN: r = 178: GOTO moved IF r = 178 THEN: r = 177: GOTO moved IF r = 177 THEN: r = 172: GOTO moved IF r = 172 THEN: r = 171: GOTO moved IF r = 171 THEN: r = 170: GOTO moved IF r = 247 THEN: r = 248: GOTO moved IF r = 248 THEN: r = 249: GOTO moved IF r = 249 THEN: r = 186: GOTO moved IF r = 186 THEN: r = 187: GOTO moved IF r = 187 THEN: r = 188: GOTO moved IF r = 188 THEN: r = 189: GOTO moved IF r = 189 THEN: r = 126: GOTO moved IF r = 125 THEN: r = 184: GOTO moved IF r = 184 THEN: r = 183: GOTO moved IF r = 183 THEN: r = 182: GOTO moved IF r = 182 THEN: r = 181: GOTO moved IF r = 181 THEN: r = 180: GOTO moved IF r = 251 THEN: r = 252: GOTO moved IF r = 252 THEN: r = 253: GOTO moved IF r = 253 THEN: r = 120: GOTO moved IF r = 120 THEN: r = 121: GOTO moved IF r = 121 THEN: r = 122: GOTO moved IF r = 122 THEN: r = 123: GOTO moved IF r = 123 THEN: r = 124: GOTO moved IF r = 110 THEN: r = 109: GOTO moved IF r = 111 THEN: r = 108: GOTO moved IF r = 104 THEN: r = 103: GOTO moved IF r = 103 THEN: r = 102: GOTO moved IF r = 102 THEN: r = 101: GOTO moved IF r = 101 THEN: r = 100: GOTO moved IF r = 98 THEN: r = 91: GOTO moved IF r = 91 THEN: r = 90: GOTO moved IF r = 97 THEN: r = 92: GOTO moved IF r = 92 THEN: r = 89: GOTO moved IF r = 96 THEN: r = 93: GOTO moved IF r = 93 THEN: r = 88: GOTO moved IF r = 113 THEN: r = 114: GOTO moved IF r = 114 THEN: r = 115: GOTO moved IF r = 115 THEN: r = 116: GOTO moved IF r = 118 THEN: r = 72: GOTO moved IF r = 72 THEN: r = 70: GOTO moved IF r = 70 THEN: r = 71: GOTO moved IF r = 79 THEN: r = 80: GOTO moved IF r = 80 THEN: r = 81: GOTO moved IF r = 60 THEN: r = 58: GOTO moved IF r = 58 THEN: r = 57: GOTO moved IF r = 57 THEN: r = 56: GOTO moved IF r = 56 THEN: r = 55: GOTO moved IF r = 55 THEN: r = 54: GOTO moved IF r = 46 THEN: r = 47: GOTO moved IF r = 47 THEN: r = 48: GOTO moved IF r = 48 THEN: r = 49: GOTO moved IF r = 49 THEN: r = 50: GOTO moved IF r = 50 THEN: r = 51: GOTO moved IF r = 43 THEN: r = 42: GOTO moved IF r = 42 THEN: r = 41: GOTO moved IF r = 41 THEN: r = 40: GOTO moved IF r = 40 THEN: r = 39: GOTO moved IF r = 39 THEN: r = 38: GOTO moved IF r = 37 THEN: r = 36: GOTO moved IF r = 36 THEN: r = 35: GOTO moved IF r = 35 THEN: r = 34: GOTO moved IF r = 34 THEN: r = 33: GOTO moved IF r = 32 THEN: r = 30: GOTO moved IF r = 31 THEN: r = 29: GOTO moved IF r = 23 THEN: r = 24: GOTO moved IF r = 24 THEN: r = 25: GOTO moved IF r = 63 THEN: r = 64: GOTO moved IF r = 64 THEN: r = 65: GOTO moved IF r = 65 THEN: r = 66: GOTO moved IF r = 66 THEN: r = 67: GOTO moved IF r = 67 THEN: r = 20: GOTO moved IF r = 20 THEN: r = 21: GOTO moved IF r = 95 THEN: r = 94: GOTO moved IF r = 94 THEN: r = 87: GOTO moved IF r = 87 THEN: r = 86: GOTO moved IF r = 86 THEN: r = 85: GOTO moved IF r = 85 THEN: r = 75: GOTO moved IF r = 75 THEN: r = 76: GOTO moved IF r = 76 THEN: r = 83: GOTO moved IF r = 83 THEN: r = 84: GOTO moved IF r = 84 THEN: r = 11: GOTO moved IF r = 11 THEN: r = 10: GOTO moved IF r = 10 THEN: r = 9: GOTO moved IF r = 9 THEN: r = 8: GOTO moved IF r = 14 THEN: r = 15: GOTO moved IF r = 15 THEN: r = 16: GOTO moved IF r = 16 THEN: r = 6: GOTO moved IF r = 3 THEN: r = 2: GOTO moved IF r = 2 THEN: r = 1: GOTO moved IF r = 258 THEN: r = 257: GOTO moved IF r = 257 THEN: r = 256: GOTO moved IF r = 256 THEN: r = 255: GOTO moved IF r = 255 THEN: r = 254: GOTO moved IF r = 254 THEN: r = 294: GOTO moved IF r = 294 THEN: r = 293: GOTO moved IF r = 293 THEN: r = 292: GOTO moved IF r = 292 THEN: r = 291: GOTO moved IF r = 291 THEN: r = 290: GOTO moved IF r = 264 THEN: r = 263: GOTO moved IF r = 263 THEN: r = 262: GOTO moved IF r = 262 THEN: r = 261: GOTO moved IF r = 261 THEN: r = 260: GOTO moved IF r = 260 THEN: r = 276: GOTO moved IF r = 276 THEN: r = 277: GOTO moved IF r = 277 THEN: r = 279: GOTO moved IF r = 279 THEN: r = 280: GOTO moved IF r = 282 THEN: r = 283: GOTO moved IF r = 283 THEN: r = 284: GOTO moved IF r = 284 THEN: r = 285: GOTO moved IF r = 285 THEN: r = 286: GOTO moved IF r = 286 THEN: r = 287: GOTO moved IF r = 287 THEN: r = 295: GOTO moved IF r = 295 THEN: r = 296: GOTO moved IF r = 281 THEN: r = 380: GOTO moved IF r = 380 THEN: r = 379: GOTO moved IF r = 379 THEN: r = 268: GOTO moved IF r = 268 THEN: r = 269: GOTO moved IF r = 269 THEN: r = 270: GOTO moved IF r = 270 THEN: r = 271: GOTO moved IF r = 271 THEN: r = 272: GOTO moved IF r = 272 THEN: r = 342: GOTO moved IF r = 342 THEN: r = 341: GOTO moved IF r = 341 THEN: r = 337: GOTO moved IF r = 337 THEN: r = 336: GOTO moved IF r = 336 THEN: r = 335: GOTO moved IF r = 335 THEN: r = 334: GOTO moved IF r = 334 THEN: r = 303: GOTO moved IF r = 303 THEN: r = 302: GOTO moved IF r = 302 THEN: r = 301: GOTO moved IF r = 301 THEN: r = 300: GOTO moved IF r = 300 THEN: r = 299: GOTO moved IF r = 384 THEN: r = 385: GOTO moved IF r = 385 THEN: r = 377: GOTO moved IF r = 377 THEN: r = 376: GOTO moved IF r = 376 THEN: r = 370: GOTO moved IF r = 366 THEN: r = 367: GOTO moved IF r = 367 THEN: r = 368: GOTO moved IF r = 368 THEN: r = 331: GOTO moved IF r = 326 THEN: r = 327: GOTO moved IF r = 327 THEN: r = 328: GOTO moved IF r = 328 THEN: r = 329: GOTO moved IF r = 329 THEN: r = 330: GOTO moved IF r = 330 THEN: r = 309: GOTO moved IF r = 387 THEN: r = 388: GOTO moved IF r = 388 THEN: r = 389: GOTO moved IF r = 389 THEN: r = 396: GOTO moved IF r = 396 THEN: r = 368: GOTO moved IF r = 368 THEN: r = 367: GOTO moved IF r = 367 THEN: r = 366: GOTO moved IF r = 366 THEN: r = 365: GOTO moved IF r = 365 THEN: r = 347: GOTO moved IF r = 347 THEN: r = 364: GOTO moved IF r = 364 THEN: r = 363: GOTO moved IF r = 363 THEN: r = 361: GOTO moved IF r = 361 THEN: r = 362: GOTO moved IF r = 362 THEN: r = 325: GOTO moved IF r = 407 THEN: r = 406: GOTO moved IF r = 406 THEN: r = 405: GOTO moved IF r = 405 THEN: r = 404: GOTO moved IF r = 404 THEN: r = 350: GOTO moved IF r = 350 THEN: r = 351: GOTO moved IF r = 351 THEN: r = 352: GOTO moved IF r = 352 THEN: r = 353: GOTO moved IF r = 353 THEN: r = 354: GOTO moved IF r = 354 THEN: r = 322: GOTO moved IF r = 314 THEN: r = 313: GOTO moved IF r = 316 THEN: r = 315: GOTO moved IF r = 356 THEN: r = 357: GOTO moved IF r = 357 THEN: r = 358: GOTO moved IF r = 358 THEN: r = 320: GOTO moved IF r = 320 THEN: r = 319: GOTO moved IF r = 319 THEN: r = 318: GOTO moved IF r = 318 THEN: r = 317: GOTO moved IF r = 396 THEN: r = 397: GOTO moved IF r = 397 THEN: r = 398: GOTO moved IF r = 398 THEN: r = 399: GOTO moved IF r = 399 THEN: r = 400: GOTO moved IF r = 400 THEN: r = 401: GOTO moved IF r = 401 THEN: r = 402: GOTO moved IF r = 414 THEN: r = 415: GOTO moved IF r = 415 THEN: r = 416: GOTO moved IF r = 416 THEN: r = 417: GOTO moved IF r = 417 THEN: r = 418: GOTO moved IF r = 418 THEN: r = 419: GOTO moved IF r = 419 THEN: r = 420: GOTO moved IF r = 427 THEN: r = 426: GOTO moved IF r = 426 THEN: r = 425: GOTO moved IF r = 425 THEN: r = 424: GOTO moved IF r = 428 THEN: r = 429: GOTO moved IF r = 429 THEN: r = 430: GOTO moved IF r = 430 THEN: r = 431: GOTO moved IF r = 436 THEN: r = 437: GOTO moved IF r = 437 THEN: r = 438: GOTO moved IF r = 438 THEN: r = 439: GOTO moved IF r = 443 THEN: r = 442: GOTO moved IF r = 442 THEN: r = 441: GOTO moved IF r = 441 THEN: r = 440: GOTO moved IF r = 453 THEN: r = 452: GOTO moved IF r = 452 THEN: r = 451: GOTO moved IF r = 451 THEN: r = 450: GOTO moved IF r = 450 THEN: r = 449: GOTO moved IF r = 449 THEN: r = 448: GOTO moved IF r = 448 THEN: r = 447: GOTO moved IF r = 467 THEN: r = 466: GOTO moved IF r = 466 THEN: r = 465: GOTO moved IF r = 465 THEN: r = 464: GOTO moved IF r = 464 THEN: r = 463: GOTO moved IF r = 463 THEN: r = 462: GOTO moved IF r = 462 THEN: r = 461: GOTO moved IF r = 461 THEN: r = 460: GOTO moved IF r = 460 THEN: r = 459: GOTO moved IF r = 459 THEN: r = 458: GOTO moved IF r = 458 THEN: r = 457: GOTO moved IF r = 457 THEN: r = 456: GOTO moved IF r = 456 THEN: r = 435: GOTO moved IF r = 435 THEN: r = 434: GOTO moved IF r = 434 THEN: r = 433: GOTO moved IF r = 433 THEN: r = 432: GOTO moved IF r = 476 THEN: r = 477: GOTO moved IF r = 477 THEN: r = 478: GOTO moved IF r = 477 THEN: r = 479: GOTO moved IF r = 479 THEN: r = 480: GOTO moved IF r = 480 THEN: r = 481: GOTO moved IF r = 486 THEN: r = 485: GOTO moved IF r = 485 THEN: r = 484: GOTO moved IF r = 484 THEN: r = 483: GOTO moved IF r = 482 THEN: r = 488: GOTO moved IF r = 488 THEN: r = 489: GOTO moved IF r = 490 THEN: r = 491: GOTO moved IF r = 491 THEN: r = 492: GOTO moved IF r = 496 THEN: r = 495: GOTO moved IF r = 495 THEN: r = 497: GOTO moved IF r = 497 THEN: r = 498: GOTO moved IF r = 498 THEN: r = 499: GOTO moved IF r = 499 THEN: r = 500: GOTO moved IF r = 504 THEN: r = 505: GOTO moved IF r = 505 THEN: r = 506: GOTO moved IF r = 506 THEN: r = 507: GOTO moved IF r = 507 THEN: r = 508: GOTO moved IF r = 552 THEN: r = 547: GOTO moved IF r = 547 THEN: r = 546: GOTO moved IF r = 551 THEN: r = 548: GOTO moved IF r = 548 THEN: r = 545: GOTO moved IF r = 550 THEN: r = 549: GOTO moved IF r = 549 THEN: r = 544: GOTO moved IF r = 607 THEN: r = 606: GOTO moved IF r = 606 THEN: r = 605: GOTO moved IF r = 605 THEN: r = 602: GOTO moved IF r = 609 THEN: r = 610: GOTO moved IF r = 610 THEN: r = 611: GOTO moved IF r = 611 THEN: r = 612: GOTO moved IF r = 601 THEN: r = 600: GOTO moved IF r = 600 THEN: r = 599: GOTO moved IF r = 599 THEN: r = 598: GOTO moved IF r = 596 THEN: r = 597: GOTO moved IF r = 597 THEN: r = 554: GOTO moved IF r = 543 THEN: r = 542: GOTO moved IF r = 542 THEN: r = 540: GOTO moved IF r = 540 THEN: r = 541: GOTO moved IF r = 541 THEN: r = 513: GOTO moved IF r = 513 THEN: r = 512: GOTO moved IF r = 512 THEN: r = 511: GOTO moved IF r = 593 THEN: r = 594: GOTO moved IF r = 594 THEN: r = 556: GOTO moved IF r = 556 THEN: r = 557: GOTO moved IF r = 557 THEN: r = 558: GOTO moved IF r = 558 THEN: r = 560: GOTO moved IF r = 560 THEN: r = 536: GOTO moved IF r = 536 THEN: r = 537: GOTO moved IF r = 537 THEN: r = 538: GOTO moved IF r = 538 THEN: r = 513: GOTO moved IF r = 585 THEN: r = 586: GOTO moved IF r = 586 THEN: r = 587: GOTO moved IF r = 587 THEN: r = 588: GOTO moved IF r = 588 THEN: r = 589: GOTO moved IF r = 589 THEN: r = 590: GOTO moved IF r = 590 THEN: r = 591: GOTO moved IF r = 562 THEN: r = 563: GOTO moved IF r = 563 THEN: r = 532: GOTO moved IF r = 532 THEN: r = 533: GOTO moved IF r = 533 THEN: r = 534: GOTO moved IF r = 534 THEN: r = 519: GOTO moved IF r = 565 THEN: r = 566: GOTO moved IF r = 566 THEN: r = 528: GOTO moved IF r = 528 THEN: r = 529: GOTO moved IF r = 529 THEN: r = 530: GOTO moved IF r = 530 THEN: r = 521: GOTO moved IF r = 580 THEN: r = 579: GOTO moved IF r = 579 THEN: r = 578: GOTO moved IF r = 578 THEN: r = 577: GOTO moved IF r = 577 THEN: r = 576: GOTO moved IF r = 576 THEN: r = 575: GOTO moved IF r = 575 THEN: r = 574: GOTO moved IF r = 573 THEN: r = 572: GOTO moved IF r = 572 THEN: r = 571: GOTO moved IF r = 571 THEN: r = 570: GOTO moved IF r = 570 THEN: r = 568: GOTO moved IF r = 568 THEN: r = 569: GOTO moved IF r = 569 THEN: r = 526: GOTO moved IF r = 526 THEN: r = 525: GOTO moved IF r = 525 THEN: r = 524: GOTO moved IF r = 524 THEN: r = 523: GOTO moved IF r = 510 THEN: r = 616: GOTO moved IF r = 616 THEN: r = 617: GOTO moved IF r = 617 THEN: r = 618: GOTO moved IF r = 618 THEN: r = 625: GOTO moved IF r = 625 THEN: r = 626: GOTO moved IF r = 626 THEN: r = 633: GOTO moved IF r = 633 THEN: r = 634: GOTO moved IF r = 634 THEN: r = 635: GOTO moved IF r = 635 THEN: r = 642: GOTO moved IF r = 642 THEN: r = 643: GOTO moved IF r = 643 THEN: r = 650: GOTO moved IF r = 650 THEN: r = 670: GOTO moved IF r = 670 THEN: r = 671: GOTO moved IF r = 671 THEN: r = 678: GOTO moved IF r = 678 THEN: r = 679: GOTO moved IF r = 679 THEN: r = 686: GOTO moved IF r = 619 THEN: r = 624: GOTO moved IF r = 624 THEN: r = 627: GOTO moved IF r = 627 THEN: r = 632: GOTO moved IF r = 620 THEN: r = 623: GOTO moved IF r = 623 THEN: r = 628: GOTO moved IF r = 628 THEN: r = 631: GOTO moved IF r = 621 THEN: r = 622: GOTO moved IF r = 622 THEN: r = 629: GOTO moved IF r = 629 THEN: r = 630: GOTO moved IF r = 655 THEN: r = 654: GOTO moved IF r = 654 THEN: r = 665: GOTO moved IF r = 665 THEN: r = 666: GOTO moved IF r = 656 THEN: r = 661: GOTO moved IF r = 661 THEN: r = 664: GOTO moved IF r = 664 THEN: r = 667: GOTO moved IF r = 657 THEN: r = 660: GOTO moved IF r = 660 THEN: r = 663: GOTO moved IF r = 663 THEN: r = 668: GOTO moved IF r = 658 THEN: r = 659: GOTO moved IF r = 659 THEN: r = 662: GOTO moved IF r = 662 THEN: r = 669: GOTO moved IF r = 672 THEN: r = 677: GOTO moved IF r = 677 THEN: r = 680: GOTO moved IF r = 680 THEN: r = 685: GOTO moved IF r = 673 THEN: r = 676: GOTO moved IF r = 676 THEN: r = 689: GOTO moved IF r = 689 THEN: r = 684: GOTO moved IF r = 674 THEN: r = 675: GOTO moved IF r = 675 THEN: r = 682: GOTO moved IF r = 682 THEN: r = 683: GOTO moved IF r = 636 THEN: r = 641: GOTO moved IF r = 641 THEN: r = 644: GOTO moved IF r = 644 THEN: r = 649: GOTO moved IF r = 637 THEN: r = 640: GOTO moved IF r = 640 THEN: r = 645: GOTO moved IF r = 645 THEN: r = 648: GOTO moved IF r = 638 THEN: r = 639: GOTO moved IF r = 639 THEN: r = 646: GOTO moved IF r = 646 THEN: r = 647: GOTO moved IF r = 695 THEN: r = 696: GOTO moved IF r = 696 THEN: r = 697: GOTO moved IF r = 697 THEN: r = 698: GOTO moved IF r = 703 THEN: r = 702: GOTO moved IF r = 702 THEN: r = 703: GOTO moved IF r = 703 THEN: r = 702: GOTO moved IF r = 702 THEN: r = 707: GOTO moved IF r = 707 THEN: r = 708: GOTO moved IF r = 704 THEN: r = 705: GOTO moved IF r = 705 THEN: r = 706: GOTO moved IF r = 706 THEN: r = 709: GOTO moved IF r = 723 THEN: r = 722: GOTO moved IF r = 722 THEN: r = 721: GOTO moved IF r = 721 THEN: r = 728: GOTO moved IF r = 724 THEN: r = 725: GOTO moved IF r = 725 THEN: r = 726: GOTO moved IF r = 726 THEN: r = 727: GOTO moved IF r = 718 THEN: r = 719: GOTO moved IF r = 719 THEN: r = 720: GOTO moved IF r = 720 THEN: r = 713: GOTO moved IF r = 713 THEN: r = 712: GOTO moved IF r = 712 THEN: r = 711: GOTO moved IF r = 711 THEN: r = 710: GOTO moved IF r = 710 THEN: r = 689: GOTO moved IF r = 689 THEN: r = 690: GOTO moved IF r = 690 THEN: r = 691: GOTO moved IF r = 691 THEN: r = 692: GOTO moved IF r = 692 THEN: r = 693: GOTO moved IF r = 693 THEN: r = 694: GOTO moved IF r = 694 THEN: r = 701: GOTO moved IF r = 701 THEN: r = 700: GOTO moved IF r = 700 THEN: r = 699: GOTO moved IF r = 751 THEN: r = 752: GOTO moved IF r = 752 THEN: r = 753: GOTO moved IF r = 753 THEN: r = 754: GOTO moved IF r = 749 THEN: r = 748: GOTO moved IF r = 748 THEN: r = 747: GOTO moved IF r = 747 THEN: r = 746: GOTO moved IF r = 731 THEN: r = 732: GOTO moved IF r = 732 THEN: r = 733: GOTO moved IF r = 741 THEN: r = 740: GOTO moved IF r = 740 THEN: r = 739: GOTO moved IF r = 739 THEN: r = 738: GOTO moved IF r = 738 THEN: r = 737: GOTO moved IF r = 737 THEN: r = 736: GOTO moved IF r = 736 THEN: r = 735: GOTO moved IF r = 735 THEN: r = 766: GOTO moved IF r = 766 THEN: r = 767: GOTO moved IF r = 767 THEN: r = 768: GOTO moved IF r = 768 THEN: r = 769: GOTO moved IF r = 757 THEN: r = 758: GOTO moved IF r = 758 THEN: r = 759: GOTO moved IF r = 759 THEN: r = 760: GOTO moved IF r = 760 THEN: r = 761: GOTO moved IF r = 761 THEN: r = 762: GOTO moved IF r = 762 THEN: r = 763: GOTO moved IF r = 763 THEN: r = 779: GOTO moved IF r = 779 THEN: r = 778: GOTO moved IF r = 781 THEN: r = 782: GOTO moved IF r = 792 THEN: r = 791: GOTO moved IF r = 791 THEN: r = 790: GOTO moved IF r = 790 THEN: r = 789: GOTO moved IF r = 789 THEN: r = 788: GOTO moved IF r = 788 THEN: r = 787: GOTO moved IF r = 787 THEN: r = 786: GOTO moved IF r = 786 THEN: r = 785: GOTO moved IF r = 745 THEN: r = 744: GOTO moved IF r = 771 THEN: r = 772: GOTO moved IF r = 772 THEN: r = 773: GOTO moved IF r = 773 THEN: r = 774: GOTO moved IF r = 774 THEN: r = 775: GOTO moved IF r = 775 THEN: r = 802: GOTO moved IF r = 802 THEN: r = 803: GOTO moved IF r = 803 THEN: r = 819: GOTO moved IF r = 819 THEN: r = 820: GOTO moved IF r = 820 THEN: r = 821: GOTO moved IF r = 821 THEN: r = 822: GOTO moved IF r = 822 THEN: r = 823: GOTO moved IF r = 823 THEN: r = 811: GOTO moved IF r = 811 THEN: r = 852: GOTO moved IF r = 852 THEN: r = 853: GOTO moved IF r = 853 THEN: r = 854: GOTO moved IF r = 854 THEN: r = 855: GOTO moved IF r = 855 THEN: r = 856: GOTO moved IF r = 856 THEN: r = 877: GOTO moved IF r = 877 THEN: r = 872: GOTO moved IF r = 872 THEN: r = 869: GOTO moved IF r = 869 THEN: r = 864: GOTO moved IF r = 879 THEN: r = 876: GOTO moved IF r = 876 THEN: r = 873: GOTO moved IF r = 873 THEN: r = 868: GOTO moved IF r = 868 THEN: r = 865: GOTO moved IF r = 880 THEN: r = 875: GOTO moved IF r = 875 THEN: r = 874: GOTO moved IF r = 874 THEN: r = 867: GOTO moved IF r = 867 THEN: r = 866: GOTO moved IF r = 857 THEN: r = 878: GOTO moved IF r = 878 THEN: r = 871: GOTO moved IF r = 871 THEN: r = 870: GOTO moved IF r = 870 THEN: r = 863: GOTO moved IF r = 858 THEN: r = 859: GOTO moved IF r = 859 THEN: r = 860: GOTO moved IF r = 860 THEN: r = 861: GOTO moved IF r = 861 THEN: r = 862: GOTO moved IF r = 818 THEN: r = 817: GOTO moved IF r = 817 THEN: r = 816: GOTO moved IF r = 816 THEN: r = 815: GOTO moved IF r = 815 THEN: r = 814: GOTO moved IF r = 814 THEN: r = 813: GOTO moved IF r = 813 THEN: r = 812: GOTO moved IF r = 804 THEN: r = 805: GOTO moved IF r = 805 THEN: r = 806: GOTO moved IF r = 806 THEN: r = 807: GOTO moved IF r = 807 THEN: r = 808: GOTO moved IF r = 808 THEN: r = 809: GOTO moved IF r = 809 THEN: r = 810: GOTO moved IF r = 828 THEN: r = 829: GOTO moved IF r = 829 THEN: r = 837: GOTO moved IF r = 837 THEN: r = 833: GOTO moved IF r = 830 THEN: r = 831: GOTO moved IF r = 831 THEN: r = 832: GOTO moved IF r = 836 THEN: r = 835: GOTO moved IF r = 835 THEN: r = 834: GOTO moved IF r = 842 THEN: r = 843: GOTO moved IF r = 843 THEN: r = 848: GOTO moved IF r = 848 THEN: r = 847: GOTO moved IF r = 850 THEN: r = 849: GOTO moved IF r = 849 THEN: r = 851: GOTO moved IF r = 844 THEN: r = 845: GOTO moved IF r = 845 THEN: r = 846: GOTO moved IF r = 914 THEN: r = 913: GOTO moved IF r = 912 THEN: r = 911: GOTO moved IF r = 911 THEN: r = 910: GOTO moved IF r = 909 THEN: r = 908: GOTO moved IF r = 908 THEN: r = 907: GOTO moved IF r = 907 THEN: r = 906: GOTO moved IF r = 905 THEN: r = 904: GOTO moved IF r = 904 THEN: r = 903: GOTO moved IF r = 903 THEN: r = 902: GOTO moved IF r = 902 THEN: r = 901: GOTO moved IF r = 901 THEN: r = 900: GOTO moved IF r = 900 THEN: r = 899: GOTO moved IF r = 896 THEN: r = 895: GOTO moved IF r = 895 THEN: r = 894: GOTO moved IF r = 894 THEN: r = 893: GOTO moved IF r = 968 THEN: r = 967: GOTO moved IF r = 966 THEN: r = 965: GOTO moved IF r = 965 THEN: r = 964: GOTO moved IF r = 963 THEN: r = 962: GOTO moved IF r = 962 THEN: r = 961: GOTO moved IF r = 961 THEN: r = 960: GOTO moved IF r = 959 THEN: r = 958: GOTO moved IF r = 958 THEN: r = 957: GOTO moved IF r = 957 THEN: r = 956: GOTO moved IF r = 956 THEN: r = 955: GOTO moved IF r = 955 THEN: r = 954: GOTO moved IF r = 954 THEN: r = 953: GOTO moved IF r = 950 THEN: r = 949: GOTO moved IF r = 949 THEN: r = 948: GOTO moved IF r = 948 THEN: r = 947: GOTO moved IF r = 1102 THEN: r = 1103: GOTO moved IF r = 1103 THEN: r = 1104: GOTO moved IF r = 1104 THEN: r = 1105: GOTO moved IF r = 1105 THEN: r = 984: GOTO moved IF r = 984 THEN: r = 983: GOTO moved IF r = 983 THEN: r = 930: GOTO moved IF r = 930 THEN: r = 917: GOTO moved IF r = 917 THEN: r = 918: GOTO moved IF r = 918 THEN: r = 919: GOTO moved IF r = 919 THEN: r = 920: GOTO moved IF r = 920 THEN: r = 921: GOTO moved IF r = 921 THEN: r = 922: GOTO moved IF r = 922 THEN: r = 923: GOTO moved IF r = 923 THEN: r = 924: GOTO moved IF r = 924 THEN: r = 925: GOTO moved IF r = 925 THEN: r = 926: GOTO moved IF r = 926 THEN: r = 927: GOTO moved IF r = 927 THEN: r = 928: GOTO moved IF r = 928 THEN: r = 929: GOTO moved IF r = 929 THEN: r = 891: GOTO moved IF r = 891 THEN: r = 890: GOTO moved IF r = 890 THEN: r = 889: GOTO moved IF r = 889 THEN: r = 888: GOTO moved IF r = 1037 THEN: r = 1038: GOTO moved IF r = 1038 THEN: r = 1044: GOTO moved IF r = 1044 THEN: r = 1045: GOTO moved IF r = 1045 THEN: r = 1046: GOTO moved IF r = 1046 THEN: r = 988: GOTO moved IF r = 988 THEN: r = 987: GOTO moved IF r = 987 THEN: r = 986: GOTO moved IF r = 986 THEN: r = 985: GOTO moved IF r = 985 THEN: r = 982: GOTO moved IF r = 982 THEN: r = 931: GOTO moved IF r = 931 THEN: r = 932: GOTO moved IF r = 932 THEN: r = 933: GOTO moved IF r = 933 THEN: r = 934: GOTO moved IF r = 934 THEN: r = 935: GOTO moved IF r = 935 THEN: r = 936: GOTO moved IF r = 936 THEN: r = 937: GOTO moved IF r = 937 THEN: r = 938: GOTO moved IF r = 938 THEN: r = 939: GOTO moved IF r = 939 THEN: r = 940: GOTO moved IF r = 940 THEN: r = 941: GOTO moved IF r = 941 THEN: r = 942: GOTO moved IF r = 942 THEN: r = 943: GOTO moved IF r = 943 THEN: r = 944: GOTO moved IF r = 944 THEN: r = 945: GOTO moved IF r = 945 THEN: r = 971: GOTO moved IF r = 971 THEN: r = 972: GOTO moved IF r = 972 THEN: r = 973: GOTO moved IF r = 1048 THEN: r = 991: GOTO moved IF r = 991 THEN: r = 990: GOTO moved IF r = 1034 THEN: r = 1035: GOTO moved IF r = 1035 THEN: r = 1036: GOTO moved IF r = 1036 THEN: r = 1039: GOTO moved IF r = 1039 THEN: r = 1043: GOTO moved IF r = 1041 THEN: r = 1040: GOTO moved IF r = 1040 THEN: r = 1042: GOTO moved IF r = 1092 THEN: r = 1093: GOTO moved IF r = 1093 THEN: r = 1094: GOTO moved IF r = 1094 THEN: r = 1095: GOTO moved IF r = 1098 THEN: r = 1097: GOTO moved IF r = 1072 THEN: r = 1071: GOTO moved IF r = 1071 THEN: r = 1087: GOTO moved IF r = 1087 THEN: r = 1088: GOTO moved IF r = 1088 THEN: r = 1089: GOTO moved IF r = 1089 THEN: r = 1100: GOTO moved IF r = 1100 THEN: r = 1099: GOTO moved IF r = 1030 THEN: r = 1029: GOTO moved IF r = 1029 THEN: r = 1028: GOTO moved IF r = 1082 THEN: r = 1083: GOTO moved IF r = 1083 THEN: r = 1084: GOTO moved IF r = 1084 THEN: r = 1085: GOTO moved IF r = 1078 THEN: r = 1077: GOTO moved IF r = 1078 THEN: r = 1076: GOTO moved IF r = 1076 THEN: r = 1075: GOTO moved IF r = 1053 THEN: r = 1052: GOTO moved IF r = 1052 THEN: r = 1051: GOTO moved IF r = 1057 THEN: r = 1080: GOTO moved IF r = 1080 THEN: r = 1079: GOTO moved IF r = 1059 THEN: r = 1080: GOTO moved IF r = 1080 THEN: r = 1079: GOTO moved IF r = 1015 THEN: r = 1016: GOTO moved IF r = 1016 THEN: r = 1017: GOTO moved IF r = 1017 THEN: r = 1018: GOTO moved IF r = 1003 THEN: r = 1000: GOTO moved IF r = 1000 THEN: r = 999: GOTO moved IF r = 1061 THEN: r = 1062: GOTO moved IF r = 1062 THEN: r = 1063: GOTO moved IF r = 1063 THEN: r = 1066: GOTO moved IF r = 1066 THEN: r = 1067: GOTO moved IF r = 1067 THEN: r = 1068: GOTO moved IF r = 1068 THEN: r = 1069: GOTO moved IF r = 1098 THEN: r = 1097: GOTO moved IF r = 1011 THEN: r = 1010: GOTO moved IF r = 1010 THEN: r = 1009: GOTO moved IF r = 1009 THEN: r = 1008: GOTO moved IF r = 1008 THEN: r = 1007: GOTO moved IF r = 1007 THEN: r = 1006: GOTO moved IF r = 1006 THEN: r = 1005: GOTO moved IF r = 1005 THEN: r = 1004: GOTO moved IF r = 1004 THEN: r = 1002: GOTO moved IF r = 1002 THEN: r = 1001: GOTO moved IF r = 1001 THEN: r = 998: GOTO moved IF r = 1019 THEN: r = 1021: GOTO moved IF r = 1021 THEN: r = 1022: GOTO moved IF r = 1022 THEN: r = 1023: GOTO moved IF r = 1023 THEN: r = 1024: GOTO moved IF r = 1024 THEN: r = 1025: GOTO moved IF r = 1025 THEN: r = 1026: GOTO moved IF r = 1026 THEN: r = 966: GOTO moved IF r = 996 THEN: r = 995: GOTO moved IF r = 995 THEN: r = 994: GOTO moved IF r = 994 THEN: r = 993: GOTO moved IF r = 1048 THEN: r = 991: GOTO moved IF r = 991 THEN: r = 990: GOTO moved END IF IF cmd$ = "GO WEST" OR cmd$ = "WEST" OR cmd$ = "W" THEN IF r = 30 THEN: r = 29: GOTO moved IF r = 29 THEN: r = 28: GOTO moved IF r = 28 THEN: r = 25: GOTO moved IF r = 25 THEN: r = 26: GOTO moved IF r = 26 THEN: r = 27: GOTO moved IF r = 27 THEN: r = 3: GOTO moved IF r = 3 THEN: r = 4: GOTO moved IF r = 4 THEN: r = 5: GOTO moved IF r = 5 THEN: r = 6: GOTO moved IF r = 6 THEN: r = 7: GOTO moved IF r = 7 THEN: r = 8: GOTO moved IF r = 23 THEN: r = 22: GOTO moved IF r = 22 THEN: r = 21: GOTO moved IF r = 20 THEN: r = 19: GOTO moved IF r = 19 THEN: r = 18: GOTO moved IF r = 18 THEN: r = 17: GOTO moved IF r = 17 THEN: r = 14: GOTO moved IF r = 14 THEN: r = 13: GOTO moved IF r = 13 THEN: r = 11: GOTO moved IF r = 11 THEN: r = 12: GOTO moved IF r = 82 THEN: r = 81: GOTO moved IF r = 38 THEN: r = 37: GOTO moved IF r = 37 THEN: r = 52: GOTO moved IF r = 52 THEN: r = 51: GOTO moved IF r = 76 THEN: r = 77: GOTO moved IF r = 77 THEN: r = 78: GOTO moved IF r = 78 THEN: r = 79: GOTO moved IF r = 72 THEN: r = 73: GOTO moved IF r = 73 THEN: r = 74: GOTO moved IF r = 74 THEN: r = 75: GOTO moved IF r = 43 THEN: r = 44: GOTO moved IF r = 44 THEN: r = 45: GOTO moved IF r = 45 THEN: r = 46: GOTO moved IF r = 48 THEN: r = 53: GOTO moved IF r = 53 THEN: r = 54: GOTO moved IF r = 54 THEN: r = 62: GOTO moved IF r = 62 THEN: r = 63: GOTO moved IF r = 63 THEN: r = 117: GOTO moved IF r = 117 THEN: r = 116: GOTO moved IF r = 116 THEN: r = 118: GOTO moved IF r = 87 THEN: r = 88: GOTO moved IF r = 88 THEN: r = 89: GOTO moved IF r = 89 THEN: r = 90: GOTO moved IF r = 95 THEN: r = 96: GOTO moved IF r = 96 THEN: r = 97: GOTO moved IF r = 97 THEN: r = 98: GOTO moved IF r = 113 THEN: r = 112: GOTO moved IF r = 112 THEN: r = 100: GOTO moved IF r = 100 THEN: r = 99: GOTO moved IF r = 99 THEN: r = 94: GOTO moved IF r = 94 THEN: r = 93: GOTO moved IF r = 93 THEN: r = 92: GOTO moved IF r = 92 THEN: r = 91: GOTO moved IF r = 59 THEN: r = 58: GOTO moved IF r = 58 THEN: r = 61: GOTO moved IF r = 109 THEN: r = 108: GOTO moved IF r = 108 THEN: r = 107: GOTO moved IF r = 107 THEN: r = 103: GOTO moved IF r = 110 THEN: r = 111: GOTO moved IF r = 104 THEN: r = 105: GOTO moved IF r = 105 THEN: r = 106: GOTO moved IF r = 186 THEN: r = 185: GOTO moved IF r = 185 THEN: r = 120: GOTO moved IF r = 120 THEN: r = 119: GOTO moved IF r = 119 THEN: r = 33: GOTO moved IF r = 33 THEN: r = 32: GOTO moved IF r = 32 THEN: r = 31: GOTO moved IF r = 231 THEN: r = 235: GOTO moved IF r = 235 THEN: r = 236: GOTO moved IF r = 236 THEN: r = 237: GOTO moved IF r = 237 THEN: r = 245: GOTO moved IF r = 245 THEN: r = 246: GOTO moved IF r = 246 THEN: r = 247: GOTO moved IF r = 247 THEN: r = 250: GOTO moved IF r = 250 THEN: r = 251: GOTO moved IF r = 243 THEN: r = 242: GOTO moved IF r = 242 THEN: r = 240: GOTO moved IF r = 221 THEN: r = 222: GOTO moved IF r = 222 THEN: r = 223: GOTO moved IF r = 218 THEN: r = 217: GOTO moved IF r = 217 THEN: r = 226: GOTO moved IF r = 210 THEN: r = 209: GOTO moved IF r = 209 THEN: r = 208: GOTO moved IF r = 198 THEN: r = 197: GOTO moved IF r = 197 THEN: r = 196: GOTO moved IF r = 196 THEN: r = 195: GOTO moved IF r = 174 THEN: r = 173: GOTO moved IF r = 173 THEN: r = 172: GOTO moved IF r = 150 THEN: r = 151: GOTO moved IF r = 151 THEN: r = 152: GOTO moved IF r = 143 THEN: r = 146: GOTO moved IF r = 146 THEN: r = 147: GOTO moved IF r = 147 THEN: r = 148: GOTO moved IF r = 148 THEN: r = 149: GOTO moved IF r = 144 THEN: r = 145: GOTO moved IF r = 158 THEN: r = 159: GOTO moved IF r = 159 THEN: r = 160: GOTO moved IF r = 160 THEN: r = 161: GOTO moved IF r = 161 THEN: r = 162: GOTO moved IF r = 156 THEN: r = 167: GOTO moved IF r = 167 THEN: r = 166: GOTO moved IF r = 166 THEN: r = 165: GOTO moved IF r = 165 THEN: r = 164: GOTO moved IF r = 164 THEN: r = 168: GOTO moved IF r = 168 THEN: r = 169: GOTO moved IF r = 169 THEN: r = 170: GOTO moved IF r = 170 THEN: r = 179: GOTO moved IF r = 179 THEN: r = 180: GOTO moved IF r = 213 THEN: r = 214: GOTO moved IF r = 214 THEN: r = 205: GOTO moved IF r = 205 THEN: r = 204: GOTO moved IF r = 204 THEN: r = 203: GOTO moved IF r = 203 THEN: r = 200: GOTO moved IF r = 200 THEN: r = 201: GOTO moved IF r = 201 THEN: r = 202: GOTO moved IF r = 202 THEN: r = 193: GOTO moved IF r = 193 THEN: r = 192: GOTO moved IF r = 192 THEN: r = 191: GOTO moved IF r = 191 THEN: r = 190: GOTO moved IF r = 190 THEN: r = 189: GOTO moved IF r = 218 THEN: r = 217: GOTO moved IF r = 340 THEN: r = 282: GOTO moved IF r = 282 THEN: r = 280: GOTO moved IF r = 280 THEN: r = 281: GOTO moved IF r = 281 THEN: r = 254: GOTO moved IF r = 254 THEN: r = 140: GOTO moved IF r = 140 THEN: r = 139: GOTO moved IF r = 139 THEN: r = 138: GOTO moved IF r = 138 THEN: r = 137: GOTO moved IF r = 137 THEN: r = 136: GOTO moved IF r = 136 THEN: r = 135: GOTO moved IF r = 135 THEN: r = 134: GOTO moved IF r = 134 THEN: r = 133: GOTO moved IF r = 133 THEN: r = 132: GOTO moved IF r = 132 THEN: r = 131: GOTO moved IF r = 131 THEN: r = 130: GOTO moved IF r = 130 THEN: r = 129: GOTO moved IF r = 129 THEN: r = 128: GOTO moved IF r = 128 THEN: r = 127: GOTO moved IF r = 127 THEN: r = 126: GOTO moved IF r = 126 THEN: r = 125: GOTO moved IF r = 125 THEN: r = 124: GOTO moved IF r = 287 THEN: r = 288: GOTO moved IF r = 288 THEN: r = 289: GOTO moved IF r = 289 THEN: r = 290: GOTO moved IF r = 303 THEN: r = 304: GOTO moved IF r = 304 THEN: r = 305: GOTO moved IF r = 305 THEN: r = 285: GOTO moved IF r = 277 THEN: r = 278: GOTO moved IF r = 278 THEN: r = 256: GOTO moved IF r = 272 THEN: r = 273: GOTO moved IF r = 273 THEN: r = 274: GOTO moved IF r = 274 THEN: r = 275: GOTO moved IF r = 275 THEN: r = 260: GOTO moved IF r = 260 THEN: r = 259: GOTO moved IF r = 259 THEN: r = 258: GOTO moved IF r = 268 THEN: r = 267: GOTO moved IF r = 267 THEN: r = 266: GOTO moved IF r = 266 THEN: r = 265: GOTO moved IF r = 265 THEN: r = 264: GOTO moved IF r = 313 THEN: r = 312: GOTO moved IF r = 312 THEN: r = 311: GOTO moved IF r = 311 THEN: r = 310: GOTO moved IF r = 310 THEN: r = 309: GOTO moved IF r = 309 THEN: r = 308: GOTO moved IF r = 308 THEN: r = 307: GOTO moved IF r = 307 THEN: r = 306: GOTO moved IF r = 306 THEN: r = 299: GOTO moved IF r = 299 THEN: r = 298: GOTO moved IF r = 298 THEN: r = 297: GOTO moved IF r = 297 THEN: r = 296: GOTO moved IF r = 315 THEN: r = 314: GOTO moved IF r = 317 THEN: r = 316: GOTO moved IF r = 320 THEN: r = 321: GOTO moved IF r = 321 THEN: r = 322: GOTO moved IF r = 322 THEN: r = 323: GOTO moved IF r = 323 THEN: r = 324: GOTO moved IF r = 324 THEN: r = 325: GOTO moved IF r = 325 THEN: r = 326: GOTO moved IF r = 326 THEN: r = 331: GOTO moved IF r = 331 THEN: r = 332: GOTO moved IF r = 332 THEN: r = 333: GOTO moved IF r = 333 THEN: r = 334: GOTO moved IF r = 353 THEN: r = 359: GOTO moved IF r = 359 THEN: r = 360: GOTO moved IF r = 360 THEN: r = 361: GOTO moved IF r = 356 THEN: r = 355: GOTO moved IF r = 355 THEN: r = 352: GOTO moved IF r = 350 THEN: r = 349: GOTO moved IF r = 349 THEN: r = 348: GOTO moved IF r = 348 THEN: r = 347: GOTO moved IF r = 347 THEN: r = 346: GOTO moved IF r = 346 THEN: r = 345: GOTO moved IF r = 345 THEN: r = 344: GOTO moved IF r = 344 THEN: r = 343: GOTO moved IF r = 343 THEN: r = 342: GOTO moved IF r = 402 THEN: r = 403: GOTO moved IF r = 403 THEN: r = 404: GOTO moved IF r = 399 THEN: r = 410: GOTO moved IF r = 410 THEN: r = 407: GOTO moved IF r = 407 THEN: r = 408: GOTO moved IF r = 408 THEN: r = 409: GOTO moved IF r = 409 THEN: r = 368: GOTO moved IF r = 368 THEN: r = 369: GOTO moved IF r = 369 THEN: r = 370: GOTO moved IF r = 370 THEN: r = 371: GOTO moved IF r = 371 THEN: r = 372: GOTO moved IF r = 372 THEN: r = 269: GOTO moved IF r = 389 THEN: r = 390: GOTO moved IF r = 390 THEN: r = 377: GOTO moved IF r = 377 THEN: r = 378: GOTO moved IF r = 378 THEN: r = 379: GOTO moved IF r = 396 THEN: r = 395: GOTO moved IF r = 395 THEN: r = 394: GOTO moved IF r = 394 THEN: r = 393: GOTO moved IF r = 393 THEN: r = 392: GOTO moved IF r = 392 THEN: r = 388: GOTO moved IF r = 387 THEN: r = 386: GOTO moved IF r = 386 THEN: r = 384: GOTO moved IF r = 384 THEN: r = 383: GOTO moved IF r = 383 THEN: r = 382: GOTO moved IF r = 382 THEN: r = 381: GOTO moved IF r = 224 THEN: r = 227: GOTO moved IF r = 414 THEN: r = 413: GOTO moved IF r = 413 THEN: r = 412: GOTO moved IF r = 412 THEN: r = 411: GOTO moved IF r = 411 THEN: r = 398: GOTO moved IF r = 447 THEN: r = 446: GOTO moved IF r = 446 THEN: r = 445: GOTO moved IF r = 445 THEN: r = 444: GOTO moved IF r = 444 THEN: r = 440: GOTO moved IF r = 440 THEN: r = 439: GOTO moved IF r = 439 THEN: r = 432: GOTO moved IF r = 432 THEN: r = 426: GOTO moved IF r = 426 THEN: r = 423: GOTO moved IF r = 423 THEN: r = 422: GOTO moved IF r = 422 THEN: r = 421: GOTO moved IF r = 421 THEN: r = 420: GOTO moved IF r = 441 THEN: r = 438: GOTO moved IF r = 438 THEN: r = 437: GOTO moved IF r = 437 THEN: r = 430: GOTO moved IF r = 430 THEN: r = 425: GOTO moved IF r = 442 THEN: r = 437: GOTO moved IF r = 437 THEN: r = 434: GOTO moved IF r = 434 THEN: r = 427: GOTO moved IF r = 427 THEN: r = 426: GOTO moved IF r = 443 THEN: r = 436: GOTO moved IF r = 436 THEN: r = 435: GOTO moved IF r = 435 THEN: r = 428: GOTO moved IF r = 428 THEN: r = 427: GOTO moved IF r = 471 THEN: r = 470: GOTO moved IF r = 470 THEN: r = 469: GOTO moved IF r = 469 THEN: r = 468: GOTO moved IF r = 468 THEN: r = 465: GOTO moved IF r = 465 THEN: r = 472: GOTO moved IF r = 472 THEN: r = 473: GOTO moved IF r = 473 THEN: r = 474: GOTO moved IF r = 474 THEN: r = 475: GOTO moved IF r = 476 THEN: r = 455: GOTO moved IF r = 455 THEN: r = 454: GOTO moved IF r = 454 THEN: r = 453: GOTO moved IF r = 486 THEN: r = 487: GOTO moved IF r = 487 THEN: r = 478: GOTO moved IF r = 483 THEN: r = 482: GOTO moved IF r = 482 THEN: r = 481: GOTO moved IF r = 612 THEN: r = 601: GOTO moved IF r = 601 THEN: r = 602: GOTO moved IF r = 602 THEN: r = 603: GOTO moved IF r = 603 THEN: r = 604: GOTO moved IF r = 604 THEN: r = 484: GOTO moved IF r = 490 THEN: r = 489: GOTO moved IF r = 489 THEN: r = 496: GOTO moved IF r = 591 THEN: r = 592: GOTO moved IF r = 592 THEN: r = 593: GOTO moved IF r = 593 THEN: r = 595: GOTO moved IF r = 595 THEN: r = 596: GOTO moved IF r = 596 THEN: r = 598: GOTO moved IF r = 580 THEN: r = 581: GOTO moved IF r = 581 THEN: r = 582: GOTO moved IF r = 582 THEN: r = 583: GOTO moved IF r = 583 THEN: r = 584: GOTO moved IF r = 584 THEN: r = 585: GOTO moved IF r = 585 THEN: r = 615: GOTO moved IF r = 615 THEN: r = 614: GOTO moved IF r = 614 THEN: r = 613: GOTO moved IF r = 613 THEN: r = 609: GOTO moved IF r = 609 THEN: r = 608: GOTO moved IF r = 608 THEN: r = 607: GOTO moved IF r = 556 THEN: r = 555: GOTO moved IF r = 555 THEN: r = 554: GOTO moved IF r = 554 THEN: r = 550: GOTO moved IF r = 550 THEN: r = 551: GOTO moved IF r = 551 THEN: r = 552: GOTO moved IF r = 552 THEN: r = 553: GOTO moved IF r = 553 THEN: r = 492: GOTO moved IF r = 492 THEN: r = 493: GOTO moved IF r = 493 THEN: r = 494: GOTO moved IF r = 549 THEN: r = 548: GOTO moved IF r = 548 THEN: r = 547: GOTO moved IF r = 568 THEN: r = 567: GOTO moved IF r = 567 THEN: r = 565: GOTO moved IF r = 565 THEN: r = 564: GOTO moved IF r = 564 THEN: r = 562: GOTO moved IF r = 562 THEN: r = 561: GOTO moved IF r = 561 THEN: r = 558: GOTO moved IF r = 558 THEN: r = 559: GOTO moved IF r = 559 THEN: r = 543: GOTO moved IF r = 543 THEN: r = 544: GOTO moved IF r = 544 THEN: r = 545: GOTO moved IF r = 545 THEN: r = 546: GOTO moved IF r = 526 THEN: r = 527: GOTO moved IF r = 527 THEN: r = 528: GOTO moved IF r = 528 THEN: r = 531: GOTO moved IF r = 531 THEN: r = 532: GOTO moved IF r = 532 THEN: r = 536: GOTO moved IF r = 536 THEN: r = 539: GOTO moved IF r = 539 THEN: r = 540: GOTO moved IF r = 504 THEN: r = 503: GOTO moved IF r = 503 THEN: r = 502: GOTO moved IF r = 502 THEN: r = 501: GOTO moved IF r = 501 THEN: r = 500: GOTO moved IF r = 513 THEN: r = 514: GOTO moved IF r = 514 THEN: r = 515: GOTO moved IF r = 515 THEN: r = 506: GOTO moved IF r = 523 THEN: r = 522: GOTO moved IF r = 522 THEN: r = 521: GOTO moved IF r = 521 THEN: r = 520: GOTO moved IF r = 520 THEN: r = 519: GOTO moved IF r = 519 THEN: r = 518: GOTO moved IF r = 518 THEN: r = 517: GOTO moved IF r = 517 THEN: r = 516: GOTO moved IF r = 516 THEN: r = 512: GOTO moved IF r = 511 THEN: r = 510: GOTO moved IF r = 510 THEN: r = 509: GOTO moved IF r = 509 THEN: r = 508: GOTO moved IF r = 574 THEN: r = 573: GOTO moved IF r = 618 THEN: r = 619: GOTO moved IF r = 619 THEN: r = 620: GOTO moved IF r = 620 THEN: r = 621: GOTO moved IF r = 625 THEN: r = 624: GOTO moved IF r = 624 THEN: r = 623: GOTO moved IF r = 623 THEN: r = 622: GOTO moved IF r = 626 THEN: r = 627: GOTO moved IF r = 627 THEN: r = 628: GOTO moved IF r = 628 THEN: r = 629: GOTO moved IF r = 633 THEN: r = 632: GOTO moved IF r = 632 THEN: r = 631: GOTO moved IF r = 631 THEN: r = 630: GOTO moved IF r = 655 THEN: r = 656: GOTO moved IF r = 656 THEN: r = 657: GOTO moved IF r = 657 THEN: r = 658: GOTO moved IF r = 665 THEN: r = 664: GOTO moved IF r = 664 THEN: r = 663: GOTO moved IF r = 663 THEN: r = 662: GOTO moved IF r = 666 THEN: r = 667: GOTO moved IF r = 667 THEN: r = 668: GOTO moved IF r = 668 THEN: r = 669: GOTO moved IF r = 638 THEN: r = 637: GOTO moved IF r = 637 THEN: r = 636: GOTO moved IF r = 636 THEN: r = 635: GOTO moved IF r = 646 THEN: r = 645: GOTO moved IF r = 645 THEN: r = 644: GOTO moved IF r = 644 THEN: r = 643: GOTO moved IF r = 647 THEN: r = 648: GOTO moved IF r = 648 THEN: r = 649: GOTO moved IF r = 649 THEN: r = 650: GOTO moved IF r = 671 THEN: r = 672: GOTO moved IF r = 672 THEN: r = 673: GOTO moved IF r = 673 THEN: r = 674: GOTO moved IF r = 678 THEN: r = 677: GOTO moved IF r = 677 THEN: r = 676: GOTO moved IF r = 676 THEN: r = 675: GOTO moved IF r = 679 THEN: r = 680: GOTO moved IF r = 680 THEN: r = 681: GOTO moved IF r = 681 THEN: r = 682: GOTO moved IF r = 686 THEN: r = 685: GOTO moved IF r = 685 THEN: r = 684: GOTO moved IF r = 684 THEN: r = 683: GOTO moved IF r = 689 THEN: r = 688: GOTO moved IF r = 688 THEN: r = 687: GOTO moved IF r = 687 THEN: r = 639: GOTO moved IF r = 639 THEN: r = 640: GOTO moved IF r = 640 THEN: r = 641: GOTO moved IF r = 641 THEN: r = 642: GOTO moved IF r = 642 THEN: r = 651: GOTO moved IF r = 651 THEN: r = 652: GOTO moved IF r = 652 THEN: r = 653: GOTO moved IF r = 653 THEN: r = 654: GOTO moved IF r = 654 THEN: r = 661: GOTO moved IF r = 661 THEN: r = 660: GOTO moved IF r = 660 THEN: r = 659: GOTO moved IF r = 704 THEN: r = 703: GOTO moved IF r = 703 THEN: r = 694: GOTO moved IF r = 694 THEN: r = 695: GOTO moved IF r = 705 THEN: r = 702: GOTO moved IF r = 702 THEN: r = 701: GOTO moved IF r = 701 THEN: r = 696: GOTO moved IF r = 706 THEN: r = 707: GOTO moved IF r = 707 THEN: r = 700: GOTO moved IF r = 700 THEN: r = 697: GOTO moved IF r = 709 THEN: r = 708: GOTO moved IF r = 708 THEN: r = 699: GOTO moved IF r = 699 THEN: r = 698: GOTO moved IF r = 724 THEN: r = 723: GOTO moved IF r = 723 THEN: r = 718: GOTO moved IF r = 718 THEN: r = 717: GOTO moved IF r = 725 THEN: r = 722: GOTO moved IF r = 722 THEN: r = 719: GOTO moved IF r = 719 THEN: r = 716: GOTO moved IF r = 726 THEN: r = 721: GOTO moved IF r = 721 THEN: r = 720: GOTO moved IF r = 720 THEN: r = 715: GOTO moved IF r = 727 THEN: r = 728: GOTO moved IF r = 728 THEN: r = 713: GOTO moved IF r = 713 THEN: r = 714: GOTO moved END IF IF (cmd$ = "LUBOK") THEN CLS PRINT "The once protector of the Trolls. It is said, if you kill one" PRINT "Lubok will take revenge upon you." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''ITEMS'''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE BOOK") AND gotbook = 1 THEN CLS PRINT "An old weathered leather bound book. A relic of a forgotten time" PRINT "and perhaps the only real thing of value in this place. It once" PRINT "belonged to your Uncle." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "EXAMINE NOTE") AND gotnote = 1 THEN CLS PRINT "A note left for you by your Uncle. Who went missing in this forsaken place." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "EXAMINE COIN") AND gotcoin = 1 THEN CLS PRINT "A dirty old coin with the head of an unknown King and on the otherside" PRINT "that of a Turkey." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "READ BOOK") AND gotbook = 1 THEN CLS PRINT "As you read this diary of mine, you will soon discover of another world unlike" PRINT "our own. Below the manor is a place unlike any other where the once mighty" PRINT "kingdom Lubok. A place named after the name of it's fallen King. A Kingdom that" PRINT "slipped through the cracks of time and that of our knowledge. For this place is" PRINT "just the tip of the iceberg and with that being said. I will be venturing into" PRINT "the unknown." PRINT "" PRINT "Dr. Felix Light." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "READ NOTE") AND gotnote = 1 THEN CLS PRINT "The forgotten city holds many secrets." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''CHARACTERS'''''''''''''''''' IF (cmd$ = "EXAMINE OLD MAN") AND r = 4 THEN CLS PRINT "He is a tired old man, sitting in an aged oak rocking chair. His clothes are" PRINT "from another era and he's smoking an old wodden pipe. God only knows how old" PRINT "this man really is." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO OLD MAN") AND r = 4 THEN CLS PRINT "What brings you to these parts?...It doesn't matter. It's such a beautiful day" PRINT "and here I amwasting my remaining days in this boring place." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO THE OLD MAN") AND r = 4 THEN CLS PRINT "How are you young man? I'm the caretaker of the wonderful Hillcrest Manor." PRINT "There's a lot of history within the walls of this place. I've seen many" PRINT "things in my life. This place keeps me alive in a way." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "MY UNCLE") AND r = 4 THEN CLS PRINT "The strange guy in the suit? Yeah, I saw him. He was investigating the" PRINT "rumors of the manor. He left his book on the table and yet has he come to" PRINT "retrieve it." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "RUMORS") AND r = 4 THEN CLS PRINT "The history of the manor dives into the man who built this place. Rumor" PRINT "has it that this placewas used for occult practices...but those are just" PRINT "rumors..." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE MINER") AND r = 74 THEN CLS PRINT "He's covered in dirt and coal residue and looks like he needs a good bath." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO MINER") AND r = 74 THEN CLS PRINT "Beware, this place has made even the seasoned adventurer lost." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "WHERE AM I") AND r = 74 THEN CLS PRINT "Somewhere inthe forest of Dawn." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE WISEMAN") AND r = 98 THEN CLS PRINT "He wanders the pathways in a brown monks robe. His face and hands are hidden" PRINT "and he appears to be muttering to himself." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO WISEMAN") AND r = 98 THEN CLS PRINT "He says nothing to you." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO THE WISEMAN") AND r = 98 THEN CLS PRINT "..." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "HEAR THE WISEMAN") AND r = 98 THEN CLS PRINT "I can't do that." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE GUARD") AND r = 156 THEN CLS PRINT "The guards is wearing golden armour with a bird on his chest. A black cape" PRINT " rests on his shoulders and he's armed with a freshly polished shield and" PRINT "a sword by his side." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO GUARD") AND r = 156 THEN CLS PRINT "Citizen, this is a place of great crime and violence. Hurry off before you" PRINT "yourself killed." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "WHERE AM I") AND r = 156 THEN CLS PRINT "You are within the ancient walls of the once capital city of Lutrin. The" PRINT "fight for our independence was fought in the town square. For then came" PRINT "the creation of the Empire of Lubok in the year of our Sun 1010." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TELL ME ABOUT LUTRIN") AND r = 156 THEN CLS PRINT "For everything on the History of Lutrin and the Empire can be found within" PRINT "the Chapel of the Elders. You can find all the information you seek at the" PRINT "Chapel." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "CHAPEL OF THE ELDERS") AND r = 156 THEN CLS PRINT "You can find the Chapel in the district of History, just south of here." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "KILL GUARD") AND r = 156 THEN CLS GOTO gameover: DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''ITEMS''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "TAKE BOOK") AND gotbook = 0 AND r = 11 THEN 'Items gotbook = 1 PRINT "You have taken the Book." END IF IF (cmd$ = "TAKE NOTE") AND gotnote = 0 AND r = 54 THEN gotnote = 1 PRINT "You have taken the note." END IF IF (cmd$ = "TAKE COIN") AND gotcoin = 0 AND r = 119 THEN gotcoin = 1 PRINT "You have taken the Coin." END IF '''''''''NPCS'''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE STATUE") AND r = 173 THEN CLS PRINT "It's a statue of a warrior standing on a pillar. The paint has long since" PRINT "faded away and it appears to have seen better days." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO STATUE") AND r = 173 THEN CLS PRINT "It doesn't reply.." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO THE STATUE") AND r = 173 THEN CLS PRINT "What did you expect to happen?" DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TAKE STATUE") AND r = 173 THEN CLS PRINT "You can't do that." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE SKELETON") AND r = 136 THEN CLS PRINT "It's the skeleton of some poor soul who was hung by the writsts." PRINT "I don't know what they did but that's a fate you don't want happening" PRINT "to you." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO SKELETON") AND r = 136 THEN CLS PRINT "It's not very chatty." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO THE SKELETON") AND r = 136 THEN CLS PRINT "It doesn't say anything." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TAKE SKELETON") AND r = 136 THEN CLS PRINT "Where would I put it?" DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE SKELETON") AND r = 137 THEN CLS PRINT "A skeelton hanging from it's ankles with it's head resting on the ground." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO SKELETON") AND r = 137 THEN CLS PRINT "Nothing happens." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO THE SKELETON") AND r = 137 THEN CLS PRINT "You speak to it for a few moments and realize this is pointless." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TAKE SKELETON") AND r = 137 THEN CLS PRINT "Best not to do that." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE UNCLE") AND r = 200 THEN CLS PRINT "He's lost some weight but appears to be in good spirits. His clothes" PRINT "are stitched together in a sloppy fashion. But he seems happy to see you." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO UNCLE") AND r = 200 THEN CLS PRINT "I can't say that I'm not surprised to see you here. How are things?" DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "WHERE ARE WE") AND r = 200 THEN CLS PRINT "We are in a place that has been lost for centuries. How far does this" PRINT "place reach it anyone's guess. But I can't turn back now. I have to keep" PRINT "going. EXPLORE FURTHER?" DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "SEARCH FOR MY UNCLE" OR cmd$ = "EXPLORE FURTHER") AND gotnote = 1 AND gotbook = 1 AND gotcoin = 1 AND r = 200 THEN CLS GOTO r201: DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF moved: RETURN r1: PRINT "You are standing before the stone entrance to what could very well be" PRINT "your own tomb." RETURN r2: PRINT "You make your way through a vast stone area. A large stone carved figure" PRINT "of a forgotten God stands before you. As if it greets you." RETURN r3: PRINT "The faint smell of Lavender is carried on the gentle breeze who's origin" PRINT "is unknown." RETURN r4: PRINT "A long stone hall stands before you." RETURN r5: PRINT "You are standing a long hallway. In the distance you can see the gentle flicker" PRINT "of a lit torch." RETURN r6: PRINT "The sound of water rushing in the distance draws your curiosity." RETURN r7: PRINT "A faint breeze brushes past you." RETURN r8: PRINT "A feeling of excitement and wonder fills your soul." RETURN r9: PRINT "Your footsteps echo through the hollowed hallways of this forgotten world." RETURN r10: PRINT "Paintings on the stone walls painted in what you hope isn't blood are" PRINT "scattered across the area." RETURN r11: PRINT "The hallway widens revealing a few scattered buildings." RETURN r12: PRINT "You stand before a large stone carved face in the wall. Almost as if it" PRINT "was carved to honor some forgotten God of sorts." RETURN r13: PRINT "Cobwebs hang from the high ceilings. You feel like a pilgrim in an unholy" PRINT "land." RETURN r14: PRINT "In the distance you see the faint image of a large arch way. It looks" PRINT "almost alien in a way." RETURN r15: PRINT "You are stand in a vast hallway. The sound of footsteps can be heard in the" PRINT "distance."; "" RETURN r16: PRINT "You are standing in a darkened hallway." RETURN r17: PRINT "The tempretature takes a smal dip as you can see your breath." RETURN r18: PRINT "The sounds of dripping water can be heard from miles away." RETURN r19: PRINT "You are standing in a large room with carved figures on the walls."; "" RETURN r20: PRINT "The walls are covered in an inch of dust. Everything looks as if it was" PRINT "made by those not of this world." RETURN r21: PRINT "You are standing in a poorly lit room. The walls are decorated with" PRINT "a langugae long since forgotten. It's nothing that you've seen before." RETURN r22: PRINT "A sign or what you think is a sign is carved in the wall." RETURN r23: PRINT "As you walk through a hallway of sorts. You can hear the faint sound of" PRINT "music playing the distance." RETURN r24: PRINT "You are standing in a large empty room. You feel as if someone's watching you." RETURN r25: PRINT "An elderly man greets you with a warm smile on his face. Like, he was expecting" PRINT "you." RETURN r26: PRINT "While you walk down a large hallways, the light of the day can be seen." RETURN r27: PRINT "A slight breeze from the outside world is all that is left from the real" PRINT "world." RETURN r28: PRINT "The air is filled with the scent of purfume and it's like you've stepped" PRINT "into another world. There are people living here." RETURN r29: PRINT "You are standing in what can only be described as a valley of sorts. Homes" PRINT "built of stone are scattered about." RETURN r30: PRINT "You are standing before a small group of people sitting around a large" PRINT "bonfire." RETURN r31: PRINT "A home with it's door and windows seem to be closed." RETURN r32: PRINT "The village is truly a gift to behold. As you see a few peoples pushing carts" PRINT "loaded with fine cloth and wood." RETURN r33: PRINT "You are standing in the entrance of a market place." RETURN r34: PRINT "The air carries the exotic spieces of this forgotten land." RETURN r35: PRINT "Statues standing around twenty feet tall resembling that of royality are placed" PRINT " at the start and end of every road." RETURN r36: PRINT "You are standing before the entrance of a place of worship. It looks almost" PRINT "alien in a way." RETURN r37: PRINT "Candles are place along the walls revealing artifacts and paintings telling" PRINT "the story of their faith." RETURN r38: PRINT "You see several rolls of wooden benches placed before an alter." RETURN r39: PRINT "Suddenly, as you walk along the temple, you can hear someone speaking." RETURN r40: PRINT "An OLD MAN wearing a black robe greets you. He's lighting a few candles" PRINT "before the next service." RETURN r41: PRINT "You find yourself exploring the room of this anicent temple. Decorated with" PRINT "finely perserved artifacts." RETURN r42: PRINT "With every step you take the sound of your presences is made public." RETURN r43: PRINT "The walls of this anicent temple seem to be made out of marble and stand before" PRINT "you is a statue of a long faced statue. There's a Plaque at the base of it." RETURN r44: PRINT "As you venture further into the temple you are greeted by a YOUNG WOMAN praying." RETURN r45: PRINT "Along the walls of the room is a gathering of lit candles giving off an almost" PRINT "ominous feeling over you." RETURN r46: PRINT "You are standing in a small room with a vast collection of leather bound books." RETURN r47: PRINT "A dimly lit room greets you." RETURN r48: PRINT "You are standing at the exit of the temple. What lurks beyond the old wooden door" PRINT "is a mystery."; "" RETURN r49: PRINT "A prayer room with a lone statue of exactly the same figure you've seen before." RETURN r50: PRINT "You see a PREIST sitting behind an anicent musical instrument. Playing a fine tune." RETURN r51: PRINT "The walls of the room are decorated with such priceless tapestries." RETURN r52: PRINT "You are standing before the impressive history of an anicent temple." RETURN r53: PRINT "You are standing outside of the Temple. The sounds of laughter and celebrations" PRINT "can be heard in the distance." RETURN r54: PRINT "The stone path brings you to a celebration of sorts. People are dancing and" PRINT "singing a joyful song." RETURN r55: PRINT "Along the way you see several grave markers scatter around the area." RETURN r56: PRINT "Tree's decorated with linen and ornaments. People are seen speaking amongst" PRINT "themselves. SOmething about this is quite strange." RETURN r57: PRINT "A mound of fresh dirt and a coffin woven out of straw is being held above" PRINT "the freshly dug grave. A few people are mourning as what you assume to be a" PRINT "PRIEST stands to give a service." RETURN r58: PRINT "A few stone mausoleums rest perfectly still. A monument at how advanced these" PRINT "people truly are." RETURN r59: PRINT "You are standing before a statue of a woman wearing a robe. Possibly she was" PRINT "a highly regarded person?" RETURN r60: PRINT "A statue of a child sitting on a rock with a smile carved in it's face." RETURN r61: PRINT "You are greeted by the statue of a man adorned in armor." RETURN r62: PRINT "You are walking along a clean street that takes you further into the village." RETURN r63: PRINT "You begin to wonder just where it is you are. But you see plenty of people" PRINT "looking at you as if you were an alien." RETURN r64: PRINT "The faint smell of food being cooked begin;s to make you hungry." RETURN r65: PRINT "Several small makeshift homes litter the landscape." RETURN r66: PRINT "You hear see small children playing as a small group of mothers talk" PRINT "amongst themselves." RETURN r67: PRINT "A field of grass and scattered flowers litter the area." RETURN r68: PRINT "You can hear conversations being spoken in a language you don't understand." RETURN r69: PRINT "You wonder just where it is you are. A guard stands by keeping an eye on you." RETURN r70: PRINT "Everything in the area seems so neat and clean. As if they were awaiting your" PRINT "arrival?" RETURN r71: PRINT "You are standing before a building. A GUARD standing before each side of the doorway." RETURN r72: PRINT "The sounds of life are begining to grow faint as you stand before what looks to be" PRINT "a street of highly maintained buildings." RETURN r73: PRINT "Large buildings that maybe that of a local Government stand like that of a reminder" PRINT "of just how advanced these people are." RETURN r74: PRINT "A large statue of a monster stands with such a presences that a chill runs down" PRINT "down your spine." RETURN r75: PRINT "You are standing on a narrow path void of any life." RETURN r76: PRINT "Tree's scattered across the area makes you feel that if anything happened to you" PRINT "that no one would even known you were here." RETURN r77: PRINT "A grassy field stands before you with a few tree's." RETURN r78: PRINT "You are standing a field of knee high grass." RETURN r79: PRINT "You are standing before a high cliff over looking a small stream." RETURN r80: PRINT "A small path leads you along a cliffside." RETURN r81: PRINT "A small gathering of bushes reveal a few RIPE BERRIES." RETURN r82: PRINT "A cliff face stands before you and a cold breeze passes through you." RETURN r83: PRINT "You are in a narrow path looking over a lush feild." RETURN r84: PRINT "You can see a stone hallway in the distance." RETURN r85: PRINT "You are walking along a road towards a small community." RETURN r86: PRINT "A sign carved in wood in a languaghe you can't read greats you." RETURN r87: PRINT "A small home made out of wood and brush stands before you." RETURN r88: PRINT "A fenced in yard holds in a single cow. Probably a farmers." RETURN r89: PRINT "You see a lone tree that bears apples before you." RETURN r90: PRINT "A deep dark forest blocks your path." RETURN r91: PRINT "The dark forest blocks your path." RETURN r92: PRINT "A worn out cabin rests upon a small hill." RETURN r93: PRINT "A small group of brush is off to the side." RETURN r94: PRINT "You are standing before a long and narrow stone path." RETURN r95: PRINT "A small plague stands by your feet." RETURN r96: PRINT "YOu can hear the sound of singing coming from the distance." RETURN r97: PRINT "A small home with it's lights on and music playing fills the area with a joyous" PRINT "feeling." RETURN r98: PRINT "You are standing before an old decrypted farmhouse." RETURN r99: PRINT "You see an owl resting on an old branch staring at you with distrust in your eyes." RETURN r100: PRINT "You are standing on an old cobblestone road." RETURN r101: PRINT "You are standing in a long and narrow hallway." RETURN r102: PRINT "The feeling of dread washes over you while you look around." RETURN r103: PRINT "You are standing at the entrance of an ominous cave." RETURN r104: PRINT "The sound of watering dripping for an unknown source echos through the dark" PRINT "tunnels of this forsaken place." RETURN r105: PRINT "The tunnel begins to grow even more narrow." RETURN r106: PRINT "You are standing before a deadend. A pile of rocks blocks oyur path." RETURN r107: PRINT "In the distance you see the faint glimmer of a lantern." RETURN r108: PRINT "Sitting beside his lantern and eatting an apple. You see an OLD MINER" PRINT "minding his own business." RETURN r109: PRINT "Nothing here but more darkness and rocks." RETURN r110: PRINT "Just another deadend in the tunnel." RETURN r111: PRINT "You see the faint glimmer of a lantern in the distance." RETURN r112: PRINT "You wander through the unknown world. Wondering, just what you'll" PRINT "find." RETURN r113: PRINT "A small group of people stand in the distance and watch you suspiciously." RETURN r114: PRINT "As you wander down the stone road. You begin to wonder just you'll find?" RETURN r115: PRINT "You see a Raven perched on a wooden pole. It's yellow eye's pierce your soul." RETURN r116: PRINT "You are standing in a clearing. A few scattered buildings litter the area." RETURN r117: PRINT "A hay cart struggles to move past you as an old horse struggles to pull it." RETURN r118: PRINT "Two large pillars act as a barrier dividing the village from this institute of" PRINT "governance." RETURN r119: PRINT "" RETURN r120: PRINT "" RETURN r121: PRINT "" RETURN r122: PRINT "" RETURN r123: PRINT "" RETURN r124: PRINT "" RETURN r125: PRINT "" RETURN r126: PRINT "" RETURN r127: PRINT "" RETURN r128: PRINT "" RETURN r129: PRINT "" RETURN r130: PRINT "" RETURN r131: PRINT "" RETURN r132: PRINT "" RETURN r133: PRINT "" RETURN r134: PRINT "" RETURN r135: PRINT "" RETURN r136: PRINT "" RETURN r137: PRINT "" RETURN r138: PRINT "" RETURN r139: PRINT "" RETURN r140: PRINT "" RETURN r141: PRINT "" RETURN r142: PRINT "" RETURN r143: PRINT "" RETURN r144: PRINT "" RETURN r145: PRINT "" RETURN r146: PRINT "" RETURN r147: PRINT "" RETURN r148: PRINT "" RETURN r149: PRINT "" RETURN r150: PRINT "" RETURN r151: PRINT "" RETURN r152: PRINT "" RETURN r153: PRINT "" RETURN r154: PRINT "" RETURN r155: PRINT "" RETURN r156: PRINT "" RETURN r157: PRINT "" RETURN r158: PRINT "" RETURN r159: PRINT "" RETURN r160: PRINT "" RETURN r161: PRINT "" RETURN r162: PRINT "" RETURN r163: PRINT "" RETURN r164: PRINT "" RETURN r165: PRINT "" RETURN r166: PRINT "" RETURN r167: PRINT "" RETURN r168: PRINT "" RETURN r169: PRINT "" RETURN r170: PRINT "" RETURN r171: PRINT "" RETURN r172: PRINT "" RETURN r173: PRINT "" RETURN r174: PRINT "" RETURN r175: PRINT "" RETURN r176: PRINT "" RETURN r177: PRINT "" RETURN r178: PRINT "" RETURN r179: PRINT "" RETURN r180: PRINT "" RETURN r181: PRINT "" RETURN r182: PRINT "" RETURN r183: PRINT "" RETURN r184: PRINT "" RETURN r185: PRINT "" RETURN r186: PRINT "" RETURN r187: PRINT "" RETURN r188: PRINT "" RETURN r189: PRINT "" RETURN r190: PRINT "" RETURN r191: PRINT "" RETURN r192: PRINT "" RETURN r193: PRINT "" RETURN r194: PRINT "" RETURN r195: PRINT "" RETURN r196: PRINT "" RETURN r197: PRINT "" RETURN r198: PRINT "" RETURN r199: PRINT "" RETURN r200: PRINT "" RETURN r201: PRINT "" RETURN r202: PRINT "" RETURN r203: PRINT "" RETURN r204: PRINT "" RETURN r205: PRINT "" RETURN r206: PRINT "" RETURN r207: PRINT "" RETURN r208: PRINT "" RETURN r209: PRINT "" RETURN r210: PRINT "" RETURN r211: PRINT "" RETURN r212: PRINT "" RETURN r213: PRINT "" RETURN r214: PRINT "" RETURN r215: PRINT "" RETURN r216: PRINT "" RETURN r217: PRINT "" RETURN r218: PRINT "" RETURN r219: PRINT "" RETURN r220: PRINT "" RETURN r221: PRINT "" RETURN r222: PRINT "" RETURN r223: PRINT "" RETURN r224: PRINT "" RETURN r225: PRINT "" RETURN r226: PRINT "" RETURN r227: PRINT "" RETURN r228: PRINT "" RETURN r229: PRINT "" RETURN r230: PRINT "" RETURN r231: PRINT "" RETURN r232: PRINT "" RETURN r233: PRINT "" RETURN r234: PRINT "" RETURN r235: PRINT "" RETURN r236: PRINT "" RETURN r237: PRINT "" RETURN r238: PRINT "" RETURN r239: PRINT "" RETURN r240: PRINT "" RETURN r241: PRINT "" RETURN r242: PRINT "" RETURN r243: PRINT "" RETURN r244: PRINT "" RETURN r245: PRINT "" RETURN r246: PRINT "" RETURN r247: PRINT "" RETURN r248: PRINT "" RETURN r249: PRINT "" RETURN r250: PRINT "" RETURN r251: PRINT "" RETURN r252: PRINT "" RETURN r253: PRINT "" RETURN r254: PRINT "" RETURN r255: PRINT "" RETURN r256: PRINT "" RETURN r257: PRINT "" RETURN r258: PRINT "" RETURN r259: PRINT "" RETURN r260: PRINT "" RETURN r261: PRINT "" RETURN r262: PRINT "" RETURN r263: PRINT "" RETURN r264: PRINT "" RETURN r265: PRINT "" RETURN r266: PRINT "" RETURN r267: PRINT "" RETURN r268: PRINT "" RETURN r269: PRINT "" RETURN r270: PRINT "" RETURN r271: PRINT "" RETURN r272: PRINT "" RETURN r273: PRINT "" RETURN r274: PRINT "" RETURN r275: PRINT "" RETURN r276: PRINT "" RETURN r277: PRINT "" RETURN r278: PRINT "" RETURN r279: PRINT "" RETURN r280: PRINT "" RETURN r281: PRINT "" RETURN r282: PRINT "" RETURN r283: PRINT "" RETURN r284: PRINT "" RETURN r285: PRINT "" RETURN r286: PRINT "" RETURN r287: PRINT "" RETURN r288: PRINT "" RETURN r289: PRINT "" RETURN r290: PRINT "" RETURN r291: PRINT "" RETURN r292: PRINT "" RETURN r293: PRINT "" RETURN r294: PRINT "" RETURN r295: PRINT "" RETURN r296: PRINT "" RETURN r297: PRINT "" RETURN r298: PRINT "" RETURN r299: PRINT "" RETURN r300: PRINT "" RETURN r301: PRINT "" RETURN r302: PRINT "" RETURN r303: PRINT "" RETURN r304: PRINT "" RETURN r305: PRINT "" RETURN r306: PRINT "" RETURN r307: PRINT "" RETURN r308: PRINT "" RETURN r309: PRINT "" RETURN r310: PRINT "" RETURN r311: PRINT "" RETURN r312: PRINT "" RETURN r313: PRINT "" RETURN r314: PRINT "" RETURN r315: PRINT "" RETURN r316: PRINT "" RETURN r317: PRINT "" RETURN r318: PRINT "" RETURN r319: PRINT "" RETURN r320: PRINT "" RETURN r321: PRINT "" RETURN r322: PRINT "" RETURN r323: PRINT "" RETURN r324: PRINT "" RETURN r325: PRINT "" RETURN r326: PRINT "" RETURN r327: PRINT "" RETURN r328: PRINT "" RETURN r329: PRINT "" RETURN r330: PRINT "" RETURN r331: PRINT "" RETURN r332: PRINT "" RETURN r333: PRINT "" RETURN r334: PRINT "" RETURN r335: PRINT "" RETURN r336: PRINT "" RETURN r337: PRINT "" RETURN r338: PRINT "" RETURN r339: PRINT "" RETURN r340: PRINT "" RETURN r341: PRINT "" RETURN r342: PRINT "" RETURN r343: PRINT "" RETURN r344: PRINT "" RETURN r345: PRINT "" RETURN r346: PRINT "" RETURN r347: PRINT "" RETURN r348: PRINT "" RETURN r349: PRINT "" RETURN r350: PRINT "" RETURN r351: PRINT "" RETURN r352: PRINT "" RETURN r353: PRINT "" RETURN r354: PRINT "" RETURN r355: PRINT "" RETURN r356: PRINT "" RETURN r357: PRINT "" RETURN r358: PRINT "" RETURN r359: PRINT "" RETURN r360: PRINT "" RETURN r361: PRINT "" RETURN r362: PRINT "" RETURN r363: PRINT "" RETURN r364: PRINT "" RETURN r365: PRINT "" RETURN r366: PRINT "" RETURN r367: PRINT "" RETURN r368: PRINT "" RETURN r369: PRINT "" RETURN r370: PRINT "" RETURN r371: PRINT "" RETURN r372: PRINT "" RETURN r373: PRINT "" RETURN r374: PRINT "" RETURN r375: PRINT "" RETURN r376: PRINT "" RETURN r377: PRINT "" RETURN r378: PRINT "" RETURN r379: PRINT "" RETURN r380: PRINT "" RETURN r381: PRINT "" RETURN r382: PRINT "" RETURN r383: PRINT "" RETURN r384: PRINT "" RETURN r385: PRINT "" RETURN r386: PRINT "" RETURN r387: PRINT "" RETURN r388: PRINT "" RETURN r389: PRINT "" RETURN r390: PRINT "" RETURN r391: PRINT "" RETURN r392: PRINT "" RETURN r393: PRINT "" RETURN r394: PRINT "" RETURN r395: PRINT "" RETURN r396: PRINT "" RETURN r397: PRINT "" RETURN r398: PRINT "" RETURN r399: PRINT "" RETURN r400: PRINT "" RETURN r401: PRINT "" RETURN r402: PRINT "" RETURN r403: PRINT "" RETURN r404: PRINT "" RETURN r405: PRINT "" RETURN r406: PRINT "" RETURN r407: PRINT "" RETURN r408: PRINT "" RETURN r409: PRINT "" RETURN r410: PRINT "" RETURN r411: PRINT "" RETURN r412: PRINT "" RETURN r413: PRINT "" RETURN r414: PRINT "" RETURN r415: PRINT "" RETURN r416: PRINT "" RETURN r417: PRINT "" RETURN r418: PRINT "" RETURN r419: PRINT "" RETURN r420: PRINT "" RETURN r421: PRINT "" RETURN r422: PRINT "" RETURN r423: PRINT "" RETURN r424: PRINT "" RETURN r425: PRINT "" RETURN r426: PRINT "" RETURN r427: PRINT "" RETURN r428: PRINT "" RETURN r429: PRINT "" RETURN r430: PRINT "" RETURN r431: PRINT "" RETURN r432: PRINT "" RETURN r433: PRINT "" RETURN r434: PRINT "" RETURN r435: PRINT "" RETURN r436: PRINT "" RETURN r437: PRINT "" RETURN r438: PRINT "" RETURN r439: PRINT "" RETURN r440: PRINT "" RETURN r441: PRINT "" RETURN r442: PRINT "" RETURN r443: PRINT "" RETURN r444: PRINT "" RETURN r445: PRINT "" RETURN r446: PRINT "" RETURN r447: PRINT "" RETURN r448: PRINT "" RETURN r449: PRINT "" RETURN r450: PRINT "" RETURN r451: PRINT "" RETURN r452: PRINT "" RETURN r453: PRINT "" RETURN r454: PRINT "" RETURN r455: PRINT "" RETURN r456: PRINT "" RETURN r457: PRINT "" RETURN r458: PRINT "" RETURN r459: PRINT "" RETURN r460: PRINT "" RETURN r461: PRINT "" RETURN r462: PRINT "" RETURN r463: PRINT "" RETURN r464: PRINT "" RETURN r465: PRINT "" RETURN r466: PRINT "" RETURN r467: PRINT "" RETURN r468: PRINT "" RETURN r469: PRINT "" RETURN r470: PRINT "" RETURN r471: PRINT "" RETURN r472: PRINT "" RETURN r473: PRINT "" RETURN r474: PRINT "" RETURN r475: PRINT "" RETURN r476: PRINT "" RETURN r477: PRINT "" RETURN r478: PRINT "" RETURN r479: PRINT "" RETURN r480: PRINT "" RETURN r481: PRINT "" RETURN r482: PRINT "" RETURN r483: PRINT "" RETURN r484: PRINT "" RETURN r485: PRINT "" RETURN r486: PRINT "" RETURN r487: PRINT "" RETURN r488: PRINT "" RETURN r489: PRINT "" RETURN r490: PRINT "" RETURN r491: PRINT "" RETURN r492: PRINT "" RETURN r493: PRINT "" RETURN r494: PRINT "" RETURN r495: PRINT "" RETURN r496: PRINT "" RETURN r497: PRINT "" RETURN r498: PRINT "" RETURN r499: PRINT "" RETURN r500: PRINT "" RETURN r501: PRINT "" RETURN r502: PRINT "" RETURN r503: PRINT "" RETURN r504: PRINT "" RETURN r505: PRINT "" RETURN r506: PRINT "" RETURN r507: PRINT "" RETURN r508: PRINT "" RETURN r509: PRINT "" RETURN r510: PRINT "" RETURN r511: PRINT "" RETURN r512: PRINT "" RETURN r513: PRINT "" RETURN r514: PRINT "" RETURN r515: PRINT "" RETURN r516: PRINT "" RETURN r517: PRINT "" RETURN r518: PRINT "" RETURN r519: PRINT "" RETURN r520: PRINT "" RETURN r521: PRINT "" RETURN r522: PRINT "" RETURN r523: PRINT "" RETURN r524: PRINT "" RETURN r525: PRINT "" RETURN r526: PRINT "" RETURN r527: PRINT "" RETURN r528: PRINT "" RETURN r529: PRINT "" RETURN r530: PRINT "" RETURN r531: PRINT "" RETURN r532: PRINT "" RETURN r533: PRINT "" RETURN r534: PRINT "" RETURN r535: PRINT "" RETURN r536: PRINT "" RETURN r537: PRINT "" RETURN r538: PRINT "" RETURN r539: PRINT "" RETURN r540: PRINT "" RETURN r541: PRINT "" RETURN r542: PRINT "" RETURN r543: PRINT "" RETURN r544: PRINT "" RETURN r545: PRINT "" RETURN r546: PRINT "" RETURN r547: PRINT "" RETURN r548: PRINT "" RETURN r549: PRINT "" RETURN r550: PRINT "" RETURN r551: PRINT "" RETURN r552: PRINT "" RETURN r553: PRINT "" RETURN r554: PRINT "" RETURN r555: PRINT "" RETURN r556: PRINT "" RETURN r557: PRINT "" RETURN r558: PRINT "" RETURN r559: PRINT "" RETURN r560: PRINT "" RETURN r561: PRINT "" RETURN r562: PRINT "" RETURN r563: PRINT "" RETURN r564: PRINT "" RETURN r565: PRINT "" RETURN r566: PRINT "" RETURN r567: PRINT "" RETURN r568: PRINT "" RETURN r569: PRINT "" RETURN r570: PRINT "" RETURN r571: PRINT "" RETURN r572: PRINT "" RETURN r573: PRINT "" RETURN r574: PRINT "" RETURN r575: PRINT "" RETURN r576: PRINT "" RETURN r577: PRINT "" RETURN r578: PRINT "" RETURN r579: PRINT "" RETURN r580: PRINT "" RETURN r581: PRINT "" RETURN r582: PRINT "" RETURN r583: PRINT "" RETURN r584: PRINT "" RETURN r585: PRINT "" RETURN r586: PRINT "" RETURN r587: PRINT "" RETURN r588: PRINT "" RETURN r589: PRINT "" RETURN r590: PRINT "" RETURN r591: PRINT "" RETURN r592: PRINT "" RETURN r593: PRINT "" RETURN r594: PRINT "" RETURN r595: PRINT "" RETURN r596: PRINT "" RETURN r597: PRINT "" RETURN r598: PRINT "" RETURN r599: PRINT "" RETURN r600: PRINT "" RETURN r601: PRINT "" RETURN r602: PRINT "" RETURN r603: PRINT "" RETURN r604: PRINT "" RETURN r605: PRINT "" RETURN r606: PRINT "" RETURN r607: PRINT "" RETURN r608: PRINT "" RETURN r609: PRINT "" RETURN r610: PRINT "" RETURN r611: PRINT "" RETURN r612: PRINT "" RETURN r613: PRINT "" RETURN r614: PRINT "" RETURN r615: PRINT "" RETURN r616: PRINT "" RETURN r617: PRINT "" RETURN r618: PRINT "" RETURN r619: PRINT "" RETURN r620: PRINT "" RETURN r621: PRINT "" RETURN r622: PRINT "" RETURN r623: PRINT "" RETURN r624: PRINT "" RETURN r625: PRINT "" RETURN r626: PRINT "" RETURN r627: PRINT "" RETURN r628: PRINT "" RETURN r629: PRINT "" RETURN r630: PRINT "" RETURN r631: PRINT "" RETURN r632: PRINT "" RETURN r633: PRINT "" RETURN r634: PRINT "" RETURN r635: PRINT "" RETURN r636: PRINT "" RETURN r637: PRINT "" RETURN r638: PRINT "" RETURN r639: PRINT "" RETURN r640: PRINT "" RETURN r641: PRINT "" RETURN r642: PRINT "" RETURN r643: PRINT "" RETURN r644: PRINT "" RETURN r645: PRINT "" RETURN r646: PRINT "" RETURN r647: PRINT "" RETURN r648: PRINT "" RETURN r649: PRINT "" RETURN r650: PRINT "" RETURN r651: PRINT "" RETURN r652: PRINT "" RETURN r653: PRINT "" RETURN r654: PRINT "" RETURN r655: PRINT "" RETURN r656: PRINT "" RETURN r657: PRINT "" RETURN r658: PRINT "" RETURN r659: PRINT "" RETURN r660: PRINT "" RETURN r661: PRINT "" RETURN r662: PRINT "" RETURN r663: PRINT "" RETURN r664: PRINT "" RETURN r665: PRINT "" RETURN r666: PRINT "" RETURN r667: PRINT "" RETURN r668: PRINT "" RETURN r669: PRINT "" RETURN r670: PRINT "" RETURN r671: PRINT "" RETURN r672: PRINT "" RETURN r673: PRINT "" RETURN r674: PRINT "" RETURN r675: PRINT "" RETURN r676: PRINT "" RETURN r677: PRINT "" RETURN r678: PRINT "" RETURN r679: PRINT "" RETURN r680: PRINT "" RETURN r681: PRINT "" RETURN r682: PRINT "" RETURN r683: PRINT "" RETURN r684: PRINT "" RETURN r685: PRINT "" RETURN r686: PRINT "" RETURN r687: PRINT "" RETURN r688: PRINT "" RETURN r689: PRINT "" RETURN r690: PRINT "" RETURN r691: PRINT "" RETURN r692: PRINT "" RETURN r693: PRINT "" RETURN r694: PRINT "" RETURN r695: PRINT "" RETURN r696: PRINT "" RETURN r697: PRINT "" RETURN r698: PRINT "" RETURN r699: PRINT "" RETURN r700: PRINT "" RETURN r701: PRINT "" RETURN r702: PRINT "" RETURN r703: PRINT "" RETURN r704: PRINT "" RETURN r705: PRINT "" RETURN r706: PRINT "" RETURN r707: PRINT "" RETURN r708: PRINT "" RETURN r709: PRINT "" RETURN r710: PRINT "" RETURN r711: PRINT "" RETURN r712: PRINT "" RETURN r713: PRINT "" RETURN r714: PRINT "" RETURN r715: PRINT "" RETURN r716: PRINT "" RETURN r717: PRINT "" RETURN r718: PRINT "" RETURN r719: PRINT "" RETURN r720: PRINT "" RETURN r721: PRINT "" RETURN r722: PRINT "" RETURN r723: PRINT "" RETURN r724: PRINT "" RETURN r725: PRINT "" RETURN r726: PRINT "" RETURN r727: PRINT "" RETURN r728: PRINT "" RETURN r729: PRINT "" RETURN r730: PRINT "" RETURN r731: PRINT "" RETURN r732: PRINT "" RETURN r733: PRINT "" RETURN r734: PRINT "" RETURN r735: PRINT "" RETURN r736: PRINT "" RETURN r737: PRINT "" RETURN r738: PRINT "" RETURN r739: PRINT "" RETURN r740: PRINT "" RETURN r741: PRINT "" RETURN r742: PRINT "" RETURN r743: PRINT "" RETURN r744: PRINT "" RETURN r745: PRINT "" RETURN r746: PRINT "" RETURN r747: PRINT "" RETURN r748: PRINT "" RETURN r749: PRINT "" RETURN r750: PRINT "" RETURN r751: PRINT "" RETURN r752: PRINT "" RETURN r753: PRINT "" RETURN r754: PRINT "" RETURN r755: PRINT "" RETURN r756: PRINT "" RETURN r757: PRINT "" RETURN r758: PRINT "" RETURN r759: PRINT "" RETURN r760: PRINT "" RETURN r761: PRINT "" RETURN r762: PRINT "" RETURN r763: PRINT "" RETURN r764: PRINT "" RETURN r765: PRINT "" RETURN r766: PRINT "" RETURN r767: PRINT "" RETURN r768: PRINT "" RETURN r769: PRINT "" RETURN r770: PRINT "" RETURN r771: PRINT "" RETURN r772: PRINT "" RETURN r773: PRINT "" RETURN r774: PRINT "" RETURN r775: PRINT "" RETURN r776: PRINT "" RETURN r777: PRINT "" RETURN r778: PRINT "" RETURN r779: PRINT "" RETURN r780: PRINT "" RETURN r781: PRINT "" RETURN r782: PRINT "" RETURN r783: PRINT "" RETURN r784: PRINT "" RETURN r785: PRINT "" RETURN r786: PRINT "" RETURN r787: PRINT "" RETURN r788: PRINT "" RETURN r789: PRINT "" RETURN r790: PRINT "" RETURN r791: PRINT "" RETURN r792: PRINT "" RETURN r793: PRINT "" RETURN r794: PRINT "" RETURN r795: PRINT "" RETURN r796: PRINT "" RETURN r797: PRINT "" RETURN r798: PRINT "" RETURN r799: PRINT "" RETURN r800: PRINT "" RETURN r801: PRINT "" RETURN r802: PRINT "" RETURN r803: PRINT "" RETURN r804: PRINT "" RETURN r805: PRINT "" RETURN r806: PRINT "" RETURN r807: PRINT "" RETURN r808: PRINT "" RETURN r809: PRINT "" RETURN r810: PRINT "" RETURN r811: PRINT "" RETURN r812: PRINT "" RETURN r813: PRINT "" RETURN r814: PRINT "" RETURN r815: PRINT "" RETURN r816: PRINT "" RETURN r817: PRINT "" RETURN r818: PRINT "" RETURN r819: PRINT "" RETURN r820: PRINT "" RETURN r821: PRINT "" RETURN r822: PRINT "" RETURN r823: PRINT "" RETURN r824: PRINT "" RETURN r825: PRINT "" RETURN r826: PRINT "" RETURN r827: PRINT "" RETURN r828: PRINT "" RETURN r829: PRINT "" RETURN r830: PRINT "" RETURN r831: PRINT "" RETURN r832: PRINT "" RETURN r833: PRINT "" RETURN r834: PRINT "" RETURN r835: PRINT "" RETURN r836: PRINT "" RETURN r837: PRINT "" RETURN r838: PRINT "" RETURN r839: PRINT "" RETURN r840: PRINT "" RETURN r841: PRINT "" RETURN r842: PRINT "" RETURN r843: PRINT "" RETURN r844: PRINT "" RETURN r845: PRINT "" RETURN r846: PRINT "" RETURN r847: PRINT "" RETURN r848: PRINT "" RETURN r849: PRINT "" RETURN r850: PRINT "" RETURN r851: PRINT "" RETURN r852: PRINT "" RETURN r853: PRINT "" RETURN r854: PRINT "" RETURN r855: PRINT "" RETURN r856: PRINT "" RETURN r857: PRINT "" RETURN r858: PRINT "" RETURN r859: PRINT "" RETURN r860: PRINT "" RETURN r861: PRINT "" RETURN r862: PRINT "" RETURN r863: PRINT "" RETURN r864: PRINT "" RETURN r865: PRINT "" RETURN r866: PRINT "" RETURN r867: PRINT "" RETURN r868: PRINT "" RETURN r869: PRINT "" RETURN r870: PRINT "" RETURN r871: PRINT "" RETURN r872: PRINT "" RETURN r873: PRINT "" RETURN r874: PRINT "" RETURN r875: PRINT "" RETURN r876: PRINT "" RETURN r877: PRINT "" RETURN r878: PRINT "" RETURN r879: PRINT "" RETURN r880: PRINT "" RETURN r881: PRINT "" RETURN r882: PRINT "" RETURN r883: PRINT "" RETURN r884: PRINT "" RETURN r885: PRINT "" RETURN r886: PRINT "" RETURN r887: PRINT "" RETURN r888: PRINT "" RETURN r889: PRINT "" RETURN r890: PRINT "" RETURN r891: PRINT "" RETURN r892: PRINT "" RETURN r893: PRINT "" RETURN r894: PRINT "" RETURN r895: PRINT "" RETURN r896: PRINT "" RETURN r897: PRINT "" RETURN r898: PRINT "" RETURN r899: PRINT "" RETURN r900: PRINT "" RETURN r901: PRINT "" RETURN r902: PRINT "" RETURN r903: PRINT "" RETURN r904: PRINT "" RETURN r905: PRINT "" RETURN r906: PRINT "" RETURN r907: PRINT "" RETURN r908: PRINT "" RETURN r909: PRINT "" RETURN r910: PRINT "" RETURN r911: PRINT "" RETURN r912: PRINT "" RETURN r913: PRINT "" RETURN r914: PRINT "" RETURN r915: PRINT "" RETURN r916: PRINT "" RETURN r917: PRINT "" RETURN r918: PRINT "" RETURN r919: PRINT "" RETURN r920: PRINT "" RETURN r921: PRINT "" RETURN r922: PRINT "" RETURN r923: PRINT "" RETURN r924: PRINT "" RETURN r925: PRINT "" RETURN r926: PRINT "" RETURN r927: PRINT "" RETURN r928: PRINT "" RETURN r929: PRINT "" RETURN r930: PRINT "" RETURN r931: PRINT "" RETURN r932: PRINT "" RETURN r933: PRINT "" RETURN r934: PRINT "" RETURN r935: PRINT "" RETURN r936: PRINT "" RETURN r937: PRINT "" RETURN r938: PRINT "" RETURN r939: PRINT "" RETURN r940: PRINT "" RETURN r941: PRINT "" RETURN r942: PRINT "" RETURN r943: PRINT "" RETURN r944: PRINT "" RETURN r945: PRINT "" RETURN r946: PRINT "" RETURN r947: PRINT "" RETURN r948: PRINT "" RETURN r949: PRINT "" RETURN r950: PRINT "" RETURN r951: PRINT "" RETURN r952: PRINT "" RETURN r953: PRINT "" RETURN r954: PRINT "" RETURN r955: PRINT "" RETURN r956: PRINT "" RETURN r957: PRINT "" RETURN r958: PRINT "" RETURN r959: PRINT "" RETURN r960: PRINT "" RETURN r961: PRINT "" RETURN r962: PRINT "" RETURN r963: PRINT "" RETURN r964: PRINT "" RETURN r965: PRINT "" RETURN r966: PRINT "" RETURN r967: PRINT "" RETURN r968: PRINT "" RETURN r969: PRINT "" RETURN r970: PRINT "" RETURN r971: PRINT "" RETURN r972: PRINT "" RETURN r973: PRINT "" RETURN r974: PRINT "" RETURN r975: PRINT "" RETURN r976: PRINT "" RETURN r977: PRINT "" RETURN r978: PRINT "" RETURN r979: PRINT "" RETURN r980: PRINT "" RETURN r981: PRINT "" RETURN r982: PRINT "" RETURN r983: PRINT "" RETURN r984: PRINT "" RETURN r985: PRINT "" RETURN r986: PRINT "" RETURN r987: PRINT "" RETURN r988: PRINT "" RETURN r989: PRINT "" RETURN r990: PRINT "" RETURN r991: PRINT "" RETURN r992: PRINT "" RETURN r993: PRINT "" RETURN r994: PRINT "" RETURN r995: PRINT "" RETURN r996: PRINT "" RETURN r997: PRINT "" RETURN r998: PRINT "" RETURN r999: PRINT "" RETURN r1000: PRINT "" RETURN r1001: PRINT "" RETURN r1002: PRINT "" RETURN r1003: PRINT "" RETURN r1004: PRINT "" RETURN r1005: PRINT "" RETURN r1006: PRINT "" RETURN r1007: PRINT "" RETURN r1008: PRINT "" RETURN r1009: PRINT "" RETURN r1010: PRINT "" RETURN r1011: PRINT "" RETURN r1012: PRINT "" RETURN r1013: PRINT "" RETURN r1014: PRINT "" RETURN r1015: PRINT "" RETURN r1016: PRINT "" RETURN r1017: PRINT "" RETURN r1018: PRINT "" RETURN r1019: PRINT "" RETURN r1020: PRINT "" RETURN r1021: PRINT "" RETURN r1022: PRINT "" RETURN r1023: PRINT "" RETURN r1024: PRINT "" RETURN r1025: PRINT "" RETURN r1026: PRINT "" RETURN r1027: PRINT "" RETURN r1028: PRINT "" RETURN r1029: PRINT "" RETURN r1030: PRINT "" RETURN r1031: PRINT "" RETURN r1032: PRINT "" RETURN r1033: PRINT "" RETURN r1034: PRINT "" RETURN r1035: PRINT "" RETURN r1036: PRINT "" RETURN r1037: PRINT "" RETURN r1038: PRINT "" RETURN r1039: PRINT "" RETURN r1040: PRINT "" RETURN r1041: PRINT "" RETURN r1042: PRINT "" RETURN r1043: PRINT "" RETURN r1044: PRINT "" RETURN r1045: PRINT "" RETURN r1046: PRINT "" RETURN r1047: PRINT "" RETURN r1048: PRINT "" RETURN r1049: PRINT "" RETURN r1050: PRINT "" RETURN r1051: PRINT "" RETURN r1052: PRINT "" RETURN r1053: PRINT "" RETURN r1054: PRINT "" RETURN r1055: PRINT "" RETURN r1056: PRINT "" RETURN r1057: PRINT "" RETURN r1058: PRINT "" RETURN r1059: PRINT "" RETURN r1060: PRINT "" RETURN r1061: PRINT "" RETURN r1062: PRINT "" RETURN r1063: PRINT "" RETURN r1064: PRINT "" RETURN r1065: PRINT "" RETURN r1066: PRINT "" RETURN r1067: PRINT "" RETURN r1068: PRINT "" RETURN r1069: PRINT "" RETURN r1070: PRINT "" RETURN r1071: PRINT "" RETURN r1072: PRINT "" RETURN r1073: PRINT "" RETURN r1074: PRINT "" RETURN r1075: PRINT "" RETURN r1076: PRINT "" RETURN r1077: PRINT "" RETURN r1078: PRINT "" RETURN r1079: PRINT "" RETURN r1080: PRINT "" RETURN r1081: PRINT "" RETURN r1082: PRINT "" RETURN r1083: PRINT "" RETURN r1084: PRINT "" RETURN r1085: PRINT "" RETURN r1086: PRINT "" RETURN r1087: PRINT "" RETURN r1088: PRINT "" RETURN r1089: PRINT "" RETURN r1090: PRINT "" RETURN r1091: PRINT "" RETURN r1092: PRINT "" RETURN r1093: PRINT "" RETURN r1094: PRINT "" RETURN r1095: PRINT "" RETURN r1096: PRINT "" RETURN r1097: PRINT "" RETURN r1098: PRINT "" RETURN r1099: PRINT "" RETURN r1100: PRINT "" RETURN r1101: PRINT "" RETURN r1102: PRINT "" RETURN r1103: PRINT "" RETURN r1104: PRINT "" RETURN r1105: PRINT "" RETURN win: COLOR 2, 0 CLS PRINT "You go on through the wilderness. What awaits you is unknown, but may it be" PRINT "said that you have yet to stand by and not allow yourself to collect treasure" PRINT "and have an adeventure." PRINT "" PRINT "" PRINT "-----------------------------------------------------------------------------------" PRINT "Thank you for playing" PRINT PRINT "-Underground Adventure-" PRINT "" PRINT "Written by D.B. Taylor" DO: LOOP UNTIL INKEY$ <> "" END gameover: COLOR 2, 0 CLS PRINT "The Guard takes one look at you and grins with delight. He pulls out his silver sword" PRINT "And guts you like a pig from your stomach to your throat. As your insides splatter to" PRINT "the dirty floor you fall back and thus ends the adventure." PRINT "" PRINT "Game Over..." PRINT DO: LOOP UNTIL INKEY$ <> "" END FUNCTION GrabInput$ x = POS(0) y = CSRLIN maxwidth = _WIDTH - x PCOPY 0, 1 'make a backup copy of the screen DO k = _KEYHIT i$ = INKEY$ LOOP UNTIL k = 0 AND INKEY$ = "" 'clear the keyboard buffer DO _LIMIT 30 PCOPY 1, 0 LOCATE y, x: PRINT Userinput$ k = _KEYHIT SELECT CASE k CASE 8 Userinput$ = LEFT$(Userinput$, LEN(Userinput$) - 1) CASE 65 TO 90, 97 TO 122, 32 Userinput$ = UCASE$(Userinput$ + CHR$(k)) END SELECT timerleft## = (DOOM - TIMER(0.001)) minutes = timerleft## \ 60 seconds = timerleft## - minutes * 60 LOCATE 2, 32: PRINT USING " ###:##.###"; minutes, seconds IF timerleft## <= 0 THEN GOTO doomed _DISPLAY LOOP UNTIL k = 13 GrabInput$ = Userinput$ _AUTODISPLAY EXIT FUNCTION doomed: CLS PRINT "You were unable to reach your Uncle in time and he dies from his wounds." PRINT "You decide it to be best that you leave the caves. You return home and" PRINT "decide that what you've been doing was a waste of time. You spend the rest" PRINT "of your days in the woods. Wondering what could've been." _DISPLAY END END SUB