' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` p?p>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`  d ֠z# up8ĺ"."; cccc/cML8192:O0:c:276[c(4);"BLOAD SLAM2SCREEN,D2"dc200tcCX10:CY10c16385,0: TGTFNDcLM(12,12)c| PRINT CURSORcCY1:CX1:"X";:I1250:I:DMLO(CY20)CX:I(D):YCY:XCX:6800cdPRT SNR DATAbVT8:VT(bY11014bX55Cb21:1:A$]bA$"W"LM(X5,Y)250vbA$"E"LM(X5,Y)10bA$"W"A$"E"ī4060bVT:28X:4800bVTVT1bX:Yb"b DRAW LOCALMAPbLM(X5,Y)128ĺ"*";cLM(X5,Y)1223:"D)RAW *)LOAD ASSY"8a2:23:"1/2)PREV/NEXT MAP"Ta3:23:"0-MARK ORIGIN"wa4:23:"Z/X)1/10 STEP SEARCH"a"5:23:"=)LOAD CURPOS"a,6:23:"-)MD1START"aaY1:Xa INPUT LOCAL MAPa GOSUB GET SONAR DATA b GOSUB INTR` 5000: SETUP`A$""4`(16384)128ľA$G`(5500: CURSORQ`26000Y`<20_``HI((MLO)256):LOMLO(HI256):24366,LO:24367,HI:24320:`Y(TT20):XTT(Y20)`I(MLO(20Y)X):6800``22:1:MLO;" "a1:   X%A$"8"Ĺ16298,0jX%A$"9"Ĺ16297,0qX%RwX%XH&(4);"BLOAD PI.MAP,A8192,D1"XR&(4);"BRUN HIRESCRN"X&RX40:RY40:8600:8700X&8400X&HL9:HW4X& 2aW%SRS1SC:SR360SRSR360vW%(16384)155ıW%9500W%3W%230,32:X1119,Y1W%X(X1):Y(Y1)W%230,32W%AX,YW%A1Ĺ230,32:3:X1,Y1W%A1SDR: X%A60SDR:2800X%SC20SDR:2800'X%SC>X%(16384)127ľA$TX532276bV#Y30150D:X,Y:YiV#XoVT$|V%TRSR90V%TR0TRTR360V!%ARTR(3.14180)V&%X1R(AR)RXV0%Y1R(AR)150RYVD%V% SONAR SCAN V% V%SD30W%R4402%W%S1A122:S10S1360S13W%OX0:OY0BW%SC0450VU!ARR4(3.14180)gU!X8(AR)RXxU!Y8(AR)RYU!TXRXX:TYRYYU!U!R4RR90:R4360R4R4360U"ARR4(3.14180)U"X1(AR)RXU"Y1(AR)RYU$"NXRXX:NYRYYV# V-#D2V2#Y3015063V<#X53227D:X,Y:X:VF#YJV# MAP CELLS TO 128"_T CY040lT CX040~T& LM(CX,CY)128T0 CXT: CYTD T DRAW ROBOTT 230,32T RX1,150RY1RX1,150RY1RX1,150RY1RX1,150RY1RX1,150RY1U RX,150RYRXTX,150RYTY!U!AU!R4RR270:R4360R4R436CO3CO3QSpS@A2(SR90):A20A2A2360SAA20A2A2360SEARA2(3.14180)SJX1R1(AR)20STY1R1(AR)20SrSA2TRSARA2(3.14180)SX1R1(AR)20 TY1R1(AR)20T'T INIT LOCAL MAPRT "INITIALIZING LOCALSO128CO100:hR cells been explrd R B4, need to FUSER FUSE SENSOR READINGR WITH LOCAL MAP DATARCO128G129RCO128G127RW1(CO128)RW2(SO128)SCO((COW1SOW2)(W1W2)))SCO128COGP(SANGLE90)(XXYY)YYī1100cP(EANGLE90)(XXYY)YYī1100wP$Q1čCXX,CYYP.Q2čCXY,CYXP8Q3čCXX,CYYPBQ4čCXY,CYXPLY,X,RPVQEEANGLE3601OxSANGLESANGLE909O80GOESEANGLE`OEANGLE90.0001ES0OEANGLE90EANGLE90:ESES90O1000OEANGLEESOEANGLE0ī999OSANGLE0OQQ1:Q5Q1O150OOR1RADIUSOX0RPY0RPXXYY϶N:::-N CX20:CY20BN"ANGLE ";IANGLEYNSANGLEIANGLE22.5lNEANGLE9022.5tN(15N2RADIUS8N<CX,CYNFQ1NKEANGLE(SANGLE)EANGLEEANGLE360NPSANGLE90.0001ī140NZQQ1:Q5Q1NdEANGLEEANGLE90OnEANGLE0EANGLLLOC16384: LOAD ADDRESS8(VLOCLLOC: VIEW ADDRESSK)A$"ENHVIDROM")A$""ĉ::(4);"CATALOG":"press return ";A$:10)9000: LOAD FILE"),)(4);"BLOAD SCREENSHOT,A$2000"*"":16304,0dOA$""İ4500:A$""jOpOvOOR8RR80:R80R8360R8OA6014010OA1R8A6:A1360A1A1360OCA1O9600O(16384)155ıO3PSD40İ2200P3500: HANDLE INPUT$PA6*PCP SEND TO AUX MEM:RXRXNX:8600:8700:3:8400~NVA$"3"A$"7"A$"6"A$""N[A$"J"A$"L"Ē0:8400N`A$"J"RRRR10:RR0RR360NeA$"J"İ8600:8700NjA$"L":RRRR10:RR360RR0OoA$"L"İ8600:8700+OtA$"J"A$"L"Ē3:8400LO~A$"`"Č768:A$((RXSX)2):YO((RYSY)2):A$"":4000:3:8400M A$"1"İ2200MA$"8"Ĺ16298,0MA$"9"Ĺ16297,0MA$"S"SS1M$A$"_"Ģ22:"REDUCING COS ":3000"NBA$"I"Ē0:8400:RYRYNY:RXRXNX:8600:8700:3:8400^NLA$"K"Ē0:8400:RYRYNY CX028dL LM(CX,CY)LM(CX,CY)Z2pL CX:CYvL L HANDLE INPUTL L L (16384)128ľA$L A$"2"İ2000L A$"3"Đ:9000L A$"4"ĬL A$"5"İ2500M A$"S"A$"":YO0:XO0:SXRX:SYRY/M A$"7"Ē0:8400pM A$"7"XOLOC16384: LOAD ADDRESS7(VLOCLLOC: VIEW ADDRESSJ)A$"ENHVIDROM")A$""ĉ::(4);"CATALOG":"press return ";A$:10)9000: LOAD FILE"),)(4);"BLOAD SCREENSHOT,A$2000"*S3f&Y3p&Q g%8000v%(H& CLEAR EDIT AREA/M&0<R&Y3178L\&1,Y378,Y3Tf&Y3Zp&j'D(8):A(8)u'SH768$'1:0.'t' shape table stuff ~'(4);"BLOAD GRID,A";SH'232,SH(SH256)256'233,(SH256)'7<(X0:Y1(L105 @ CLEAR BITS'JD072TA(D)09^D?h^(#(4);"BLOAD";A$;",A";LLOCd2#z% DRAW THUMBNAIL %8000: CLEAR BITS"%IY1%%7000: CONVERT TO BINARY&%Q07N%A(Q)1Ē7:100Q,I2X%A(Q)0Ē0:100Q,I2b%1BB16A(3)1BB8-A(2)1BB4?A(1)1BB2QA(0)1BB1cVLOC(Y1),Bizx ERASE BIT0:1X105,(Y1)1057:2X105,(Y1)105 DRAW SET BIT0:2X105,(Y1)1057:1X105,(Y1)A32A16A(4)1:AA164A8A(3)1:AA8KA4A(2)1:AA4bA2A(1)1:AA2yA1A(0)1:AA1J K L BINARY TO DECIMALM N VB0`A(7)1BB128jA(6)1BB64tA(5)1BB32 ~A(4)TO BINARY; A(X)1A(X)0:7500:7800:A$"2":9500:4000m A(X)0A(X)1:7500:7900:A$"2":9500:4000s z V W X DECIMAL TO BINAR Y Z bA(VLOCI) lA128A(7)1:AA128 vA64A(6)1:AA64A32A(5)1:A   4 7:X102,(Y1)109X108,(Y1)109D E1100:Ep 0:X102,(Y1)109X108,(Y1)109w 7}  n o p CHANGE BIT q r s(0) u8000: CLEARBITS zA(VLOC(Y1)) IY1 7000: CONVERT );"BSAVE";A$;",A";LLOC;",L4096"K A$"*"Ģ22:"FILENAME ";A$:9000:1000i A$"="VLOCVLOC8:1000 A$"-"VLOCVLOC8:1000 X0X7 X7X0 Y1Y8 Y8Y1 A$"" h5000 4000    DRAW CURSOR   0 24:20:"CHARACTER = ";(VLOCLLOC)8;G (16384)127ľA$Y A$"J"XX1k A$"L"XX1} A$"I"YY1 A$"K"YY1 A$" "İ6000 A$"E"Ģ24:20:"CHAR # ";C:VLOCLLOC(C8):1000 A$"S"Ą"SAVE FILE NAME? ";A$:(4A(BIT)0ĕ2BIT105,I1059 A(BIT)1Ē7:100BIT,I2W A(BIT)0Ē0:100BIT,I2^ 7g BITn Iu 1 22:"-I- MOVE =CHANGE BIT S)AVE" "JKL CURSOR *)LOAD E)JUMP TO CHARACTER"    INPUT ROUTINE    10000: SETUP " 1 DISPLAY8 ? EL7i9800: CLEAR EDIT AREAsA$""~I078000: CLEAR BITSA(VLOCI)7000: CONVERT TO BINARY BIT07 7 A(BIT)1ĕ1BIT105,I105      LA BA A A A LA BA A A A A AA A A A A A A A LgA A A AA A A C A A LA a P*U*U*U*U*U*U*U*U*U*U*U*U A zE"Q( E"A A E"Q( E"A P*U*U*U*U.U*U*U*UjU*U*U*U (4);"BSAVE MAP";MX1;",";MY1;",A";I;",L400,D2">kII400rk(4);"BSAVE MAP";MX1;",";MY;",A";I;",L400,D2"~kII400k(4);"BSAVE MAP";MX;",";MY;",A";I;",L400,D2"kII400k(4);"BSAVE MAP";MX1;",";MY;",A";I;",L400,D2"k II4002l19 gg(# CHECK&g2#O0O4400=gF#17:22:MLO;" "FgK#200LgP#M4);" ";1fv(16385)1Ģ20:21:"FND UNXPLORED"NfA$"P"Č16409: $4019 Tfcf@:VT12:VTqfEY601}fJX33fTVT:26X:LM(X3,Y)f^XfhVTVT1frYf|f(# CHECKf2#O0O4400fF#17:22:MLO;" "fK#200fP#M$40eY21:1:(13)KeZA$"Z"A$"X"Ģ21:1:" ":" ":" ";ce]A$"-"Č16397:200e^A$"Z"Ģ21:16390:200e_A$"0"DMLO(CY20)CX:D,4e`A$"X"āI110:16390:I:200egA$"="Č16401: LD CURPOSfl19:23:"IVAL ";(163861II52dI35II6>dI9ĢY1:X1:(65(I10));:YdI0ĢY1:X1:".";:tdI1ĢY1:X1:"*";:dY1:X1:I;:ddI128Ģ20(YY1):X1:"#";:dI128Ģ20(YY1):X1:".";:d&eXA$"*"ĺ:(4);"BLOAD MAPXP2,D2"2"OO400:9000!cA$"D"İ200@cA$"M"ML8192:22:"MAP"TcA$"I"CYCY1hcA$"K"CYCY1|cA$"J"CXCX1cA$"L"CXCX1cCX0CX19cCX19CX0cCY0CY19cCY19CY0c7000cccI113II104 dI CXY,CYX" T2T21:T22ı1 CXX,CYYE T2T21:T22ıT <CXY,CYXZ p X"THAT TAKES ABOUT 2 SECONDS ON 'REAL MACHINE' SPEED IN APPLEWIN EMULATOR"# T5000,5020,5040,5060,5080,5100,5120,5140< CXX,CYYP T2T21:T22ı_ CXY,CYXs T2T21:T22ı CXY,CYX T2T21:T22ı CXX,CYY T2T21:T22ı CXX,CYY T2T21:T22ı CXY,CYX T2T21:T22ıaS .>@BDFHJLNPR,6?$,-66??$$-566>??'$$,-A A A A P*U*U*U*U*U*U*U*U*U*U*U*U A A A A A E"Q( E"A A A"Q( E"Q(A P*U*U*U*U.U*U*U*U*u*U*U*U P*U*U*U*U*U*U*U*U*U*U*U*U A z}"Q( E"Q(A A E"Q( E"QA A E"Q( E"QA P*U*U*U*U*U*U*U*U*U*U*U*U A zE"Q( E"QA 2200j3500: HANDLE INPUT%jA6+jDj SEND TO AUX MEMORYYj IN TEXT SCREEN_jjj(13)vjI16384jD$;"BSAVE MAP";MX1;".";MY1;",A";I;",L400,D2"jjII400j(4);"BSAVE MAP";MX;",";MY1;",A";I;",L400,D2"jII4002kꭑFAFA@F @ C`EE  lFCEΒALEΏAΛEΚEΚEΚELE` ~F LBFF F LZF `EiEEiE`ӬıB @B&BiBBBBBiBBBBLB`FCOCGCPC̀A -́A!FCiFCOCGCiGCPCLCCFCCCGCCC C C`Dig4 LOAD CURRENT POSog5ug6gHD$;"OPEN CUR.POS":D$;"READ CUR.POS"gRMX: MAP COORDSg\MYgfCX: CELL # gpCYgzRX: COORD WITHIN CELLgRY hD$;"CLOSE"hA";I;",D2"fH((I3600)256):L(I3600)(H256):fNM(MT):NMNM1:MT,NMfMS(((MT)1)4)1:MTMS,L:MTMS1,HfMTMS2,MXX:MTMS3,MYYfII400 gXX1:X2ī40317$gYY1:Y2ī40316LgD$;"OPEN DUMMYFILE,D1":D$;"CLOSE"Rg"DDwD3DDDfD"DwݗDfDUUDDD3̓D"DDDDw3f"w݇fUUD3̃"DaS .>@BDFHJLNPR,6?$,-66??$$-566>??'$$,-D3̾3̽w3̼33̻3̺3̹f3̸"3̷wݷ3̶f3̵UU3̴D3̳3̳3̲"3̱D3̰3̯""w"3"""f"""wݧ"f"UU"D"3̣"""D"fUUUUwUU3UUۻUUڪUUٙfUU؈"UUwUUfUUUUUUDUU3UU"UUDUUUUDDwD3D˻DʪDəfDȈ"DwDfDUUDDD3D"DDD"wwww3wwwfw"wwwfwUUwDw3w"wDwwffwf3ffꪪfff"fwfffUUfDf3f"fDfffwf3fffff"fwݗfffUUfDf3̓f"fDff""w"3"""f"""w݇"f"UU"D"3̃"""D"3w3f"wݷfUUD3̳"Dw3f"wݧfUUD3̣"Dwwww3wۻwڪwٙfw؈"wwwfwUUwDw3w"wDww33w333˻3ʪ3əf3Ȉ"3w3f3UU3D333"3D3w3f"wfUUD3"Dw3ꪪf"wfUUD3"D* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**ɀɾ޵ɽՀΆն㷿߀ժժժժժժժ>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "@"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"       DDwD3DDDfD"DwݗDfDUUDDD3̓D"DDDDw3f"w݇fUUD3̃"D3̾3̽w3̼33̻3̺3̹f3̸"3̷wݷ3̶f3̵UU3̴D3̳3̳3̲"3̱D3̰3̯""w"3"""f"""wݧ"f"UU"D"3̣"""D""UUUUwUU3UUۻUUڪUUٙfUU؈"UUwUUfUUUUUUDUU3UU"UUDUUUUDDwD3D˻DʪDəfDȈ"DwDfDUUDDD3D"DDDDwwww3wwwfw"wwwfwUUwDw3w"wDwwffwf3ffꪪfff"fwfffUUfDf3f"fDffffwf3fffff"fwݗfffUUfDf3̓f"fDff""w"3"""f"""w݇"f"UU"D"3̃"""D""w3f"wݷfUUD3̳"Dw3f"wݧfUUD3̣"Dwwww3wۻwڪwٙfw؈"wwwfwUUwDw3w"wDww33w333˻3ʪ3əf3Ȉ"3w3f3UU3D333"3D33w3f"wfUUD3"Dw3ꪪf"wfUUD3"D16382,A1 }16383,A2; (4);"BSAVE";F$;",A16380,L4096"Z (4);"BLOAD";F$;",A16384" (4);"BSAVE";F$;",A16384,L4096" ,A1(43616) 6A2(43617) @A3(43618) JA4(43619) T" "ROM IMAGE CONVERTER""THIS ADDS 4 BYTES TO THE BEGINNING OF A FILE WHICH WAS *ADDED* WITH CIDERPRESS(AS WELL AS THE TYPE ATTRIBUTE MODIFIED)"d"FILENAME ";F$x(4);"BLOAD";F$;",A16384"y300z16380,A3{16381,A4 |  16382,A1 }16383,A2; (4);"BSAVE";F$;",A16380,L4096"Z (4);"BLOAD";F$;",A16384" (4);"BSAVE";F$;",A16384,L4096" ,A1(43616) 6A2(43617) @A3(43634) JA4(43635) T" "ROM IMAGE CONVERTER""THIS ADDS 4 BYTES TO THE BEGINNING OF A FILE WHICH WAS *ADDED* WITH CIDERPRESS(AS WELL AS THE TYPE ATTRIBUTE MODIFIED)"d"FILENAME ";F$x(4);"BLOAD";F$;",A16384"y300z16380,A3{16381,A4 |  <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,***ɀɾ޵ɽՀΆն㷿߀ժժժժժժժ>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"        "DDwD3DDDfD"DwݗDfDUUDDD3̓D"DDDDw3f"w݇fUUD3̃"DD3̾3̽w3̼33̻3̺3̹f3̸"3̷wݷ3̶f3̵UU3̴D3̳3̳3̲"3̱D3̰3̯""w"3"""f"""wݧ"f"UU"D"3̣"""D"fUUUUwUU3UUۻUUڪUUٙfUU؈"UUwUUfUUUUUUDUU3UU"UUDUUUUDDwD3D˻DʪDəfDȈ"DwDfDUUDDD3D"DDD"wwww3wwwfw"wwwfwUUwDw3w"wDwwffwf3ffꪪfff"fwfffUUfDf3f"fDfffwf3fffff"fwݗfffUUfDf3̓f"fDff""w"3"""f"""w݇"f"UU"D"3̃"""D""DDwD3DDDfD"DwݗDfDUUDDD3̓D"DDDDw3f"w݇fUUD3̃"DD3̾3̽w3̼33̻3̺3̹f3̸"3̷wݷ3̶f3̵UU3̴D3̳3̳3̲"3̱D3̰3̯""w"3"""f"""wݧ"f"UU"D"3̣"""D"fUUUUwUU3UUۻUUڪUUٙfUU؈"UUwUUfUUUUUUDUU3UU"UUDUUUUDDwD3D˻DʪDəfDȈ"DwDfDUUDDD3D"DDD"wwww3wwwfw"wwwfwUUwDw3w"wDwwffwf3ffꪪfff"fwfffUUfDf3f"fDfffwf3fffff"fwݗfffUUfDf3̓f"fDff""w"3"""f"""w݇"f"UU"D"3̃"""D"3w3f"wݷfUUD3̳"Dw3f"wݧfUUD3̣"Dwwww3wۻwڪwٙfw؈"wwwfwUUwDw3w"wDww33w333˻3ʪ3əf3Ȉ"3w3f3UU3D333"3D3w3f"wfUUD3"Dw3ꪪf"wfUUD3"D* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**ɀɾ޵ɽՀΆն㷿߀ժժժժժժժ>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "@#*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"           ffwf3fffff"fwݗfffUUfDf3̓f"fDff""w"3"""f"""w݇"f"UU"D"3̃"""D33w3f"wݷfUUD3̳"Dw3f"wݧfUUD3̣"Dwwww3wۻwڪwٙfw؈"wwwfwUUwDw3w"wDww33w333˻3ʪ3əf3Ȉ"3w3f3UU3D333"3Dw3f"wfUUD3"Dw3ꪪf"wfUUD3"D***볿 <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"ɀɾ޵ɽՀΆն㷿߀ժժժժժժժ">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> @*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>٠٠ϠˠΠ٠ΠԠԠ٠ؠϠǠ˯ˠŠԠנˠŠԠ٠٠ϠˠΠ٠ΠԠԠ٠ؠϠǠ˯ˠŠԠנˠŠԠzzzn}okk t=t}C====Co=CtB@wz{ @ {z^a^^^^aw@^I G1$w/?/?~C;///?o;? B@@B !{zz;w^^^_WWWWWw]7~c=CC=CC=?opzzzn}ook }ww=ww}======o}=z}?xwwuz@A~ @ w{z{^^^^^^^w~^I A{zz^{zz{U|{{zz_q}}=AC=A?//z2zn}okK }?xwW=ww}}====}o}=@ pr@{{zWw^^^_WWWWWw]7qfDd$"%w|kz7_~^^^^~w~^I E) Q)J$% 0pp0`?`pp0?`   C@@0B  @w>{z^Ckc{{z_m}~}==}==?)/W{}l }wg=ww}======o}=kCv]  |{{z;w^^___WWWW]7Q*D$$"%wsz{^^^^^^^w~^H] ] ) 1)J$% |rsssprsyxyy@w>{zz^{zz{ U|{{zz_]}======?&/W~t~C=CACCA@=wu-{ AC;w^^a_PDqnEn"8s{z~a^a`aa@@`(`A{zz^{zz{{w{{zz=}C=ACCA?o0???xuuz ||rCpspBp yy!|{zz;w^^~__WWWW]7 pr {zAl I //?//?;///?o;?                     :"2005 LIMITED INTEREST INC."> d:20:"PRESS A KEY";::A$D i^ n(4);"RUN CHAREDIT3"E}?xwwuz@A @P w{z{^^^^^^^w~^I rfQD$){00 ?x};/!!?x@Aw{{zz_m}~}==?==?//WpCv @0{{nAaaa?XWWW7x:*($X!%A[BO_~@@`@~wp`I "$iA\ )w(/////?;///?o;? TB@T"@wU|{{zz_q}}=AC=A?// pr@{{zWw^^^_WWWWWw][qfDd$"%w|kz7_~^^^^~w~^I B$)@D $))0pp0`?`pp0?`   C@L"@wc{{z_m}~}==}==?)/WCv]  |{{z;w^^___WWWW]kQ*D$$"%wsz{^^^^^^^w~^H] t%)@D $)E |rsss|D|<>>>@wU|{{zz_]}======?&/W@=wu-{ AC;w^^a_PBqnEn"8s{z~a^a`aa@@`(`rfa]F9uDyMw 0?o0`{pp0 ` <@ww{{zz=}C=ACCA?o0???xuuz ||rCps|D<">>|{zz;w^^~__WWWW][ pr |I //?//?;///?o;?         "DDwD3DDDfD"DwݗDfDUUDDD3̓D"DDDDw3f"w݇fUUD3̃"DD3̾3̽w3̼33̻3̺3̹f3̸"3̷wݷ3̶f3̵UU3̴D3̳3̳3̲"3̱D3̰3̯""w"3"""f"""wݧ"f"UU"D"3̣"""D"fUUUUwUU3UUۻUUڪUUٙfUU؈"UUwUUfUUUUUUDUU3UU"UUDUUUUDDwD3D˻DʪDəfDȈ"DwDfDUUDDD3D"DDD"wwww3wwwfw"wwwfwUUwDw3w"wDwwffwf3ffꪪfff"fwfffUUfDf3f"fDfffwf3fffff"fwݗfffUUfDf3̓f"fDff""w"3"""f"""w݇"f"UU"D"3̃"""D"3w3f"wݷfUUD3̳"Dw3f"wݧfUUD3̣"Dwwww3wۻwڪwٙfw؈"wwwfwUUwDw3w"wDww33w333˻3ʪ3əf3Ȉ"3w3f3UU3D333"3D3w3f"wfUUD3"Dw3ꪪf"wfUUD3"D* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**ɀɾ޵ɽՀΆն㷿߀ժժժժժժժ>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "@"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"      `+ "HELLO, THIS IS ROM EDIT DISK"["ALLOWS YOU TO EDIT CHARACTER ROM BITMAPS"iZ5:"-I-"["JKL = MOVE CURSOR":\" = TOGGLE BIT"]"-/+ = MOVE TO NEXT CHARACTER"^"S = SAVE"_"* = LOAD" `15 z #??д  г!в !ԠЭ в % г ŠР Ӳ  г" д Э Э ЭЭв% Ӡ ӠŠȮԠ  е  е е Ҡ נ ӱ""Π!Р& ͲΠ!Ӳ" òȠ"" Ԡ! ҠĠɮР"Բ "Š  óôõöұԠ à  Գ Ͳͳ ͮԲ נ ײ óϠ ͠  Ԡ"ͮԠĠ͠:C|~C~~CpCx|~C~~Cw݀݀|~C~~C|~C~ժժժ(ժժժժժժ|w.݀݀~C~C|~C~~C݀UPATTpCx~CpxCx|~C~CC݀U A A A A A A A |~C~~CpCx|~C~~C816         ";B$:B$""ĺ(4);"RUN SEARCH.START,D2"WP(4);"RUN SPMAKE.START,D2"]P(:Q7200!Q:QAA22.5:1000:X2X1QQAA45:1000:X3X1^QAA22.5dQjQpQQ WRITE CURPOS TO DISKQQQ2089,MX:2090,MY:2091,RX:2092,RYQ(4);"BSAVE CURPOS,A$829,L6,D2"QR LOAD PATHTABLER RR:3500: HANDLE INPUTkPIXO((RXSX)2):YO((RYSY)2):29:21:"XO ";XO;" YO ";YO;" "PNI1I11:I1255I10PX16301,0Pb565Pc7:XQ100,YQPM230,230PARA(3.14159180)PX1R(AR)140PY1R(AR)150 Q140,150X1,Y1QNO60006OA$"":3500:SAVEMAPSMO1500:SAVE CURPOSO(4);"OPEN SCREENPOS":(4);"WRITE SCREENPOS":XS:YS:RR:(4);"CLOSE"O(4);"RUN SEARCHVIEW,D2"OO ***************OO521:13:I1;" "; P723:15:"RR ";RR;" "&PRA(3.14180).RJX1R1(AR)?RTY1R1(AR)ER^AY,CYX+QT2T21:T22ı:QCXY,CYXNQT2T21:T22ı]QCXX,CYYqQT2T21:T22ıQ<CXY,CYXQFT2T21:T22ıQPQpQX"THAT TAKES ABOUT 2 SECONDS ON 'REAL MACHINE' SPEED IN APPLEWIN EMULATOR" R@ CALC CIRCLE REAPT20%PT(A45)YPT5000,5020,5040,5060,5080,5100,5120,5140,5180hPCXX,CYY|PT2T21:T22ıPCXY,CYXPT2T21:T22ıPCXY,CYXPT2T21:T22ıPCXX,CYYPT2T21:T22ıPCXX,CYYQT2T21:T22ıQCX&OCX,CYX1CX,Y1CYAO"DONE DRAWING PIE";A$[OD3(2R1):R1=RADIUScOX0qO Y=R1 O DRAW THE 8 CIRCLE PIXELSOD0DD(4X)6:4060OD0DD4(XY)10:YY1OT20:4500O(X)(X1)(Y)(Y1)ī7000PXX1P40307N N70N"ANGLE? ";A1CNR175: RADIUSTNCX140:CY80bN,AA122.5lN68000xN@X(X1)NJY(Y1)N^AA122.5Nh8000: ENDPOINTNrX1(X1)N|Y1(Y1)N21:"START X= ";X;" Y= ";Y;" END X= ";X1;" Y = ";Y1OCX,CYXCX,YCY    pCx~CpxCx|~C~CCC|~C~~CpCx|~C~~C|~C~~C|~C~~C|~C~~C|~~~CpCx~CpxCx|~C~CCC|~C~~CpCx|~C~~C|~C~~C|~C~xC|~C~C|~~~CpCx~CpxCx|~C~CCC|~C~~CpCx|~C~~C*(AR)'RTY1R1(AR)-R^A2ı"QCXY,CYX6QT2T21:T22ıEQCXY,CYXYQT2T21:T22ıhQCXY,CYX|QT2T21:T22ıQPQpQX"THAT TAKES ABOUT 2 SECONDS ON 'REAL MACHINE' SPEED IN APPLEWIN EMULATOR"Q@ CALC CIRCLE REARA(3.14180)RJX1R10 PT(A45)5P22:"T ";T;:A$dPT5100,5020,5060,5140,5120,5040,5000,5080sPCXX,CYYPT2T21:T22ıPCXX,CYYPT2T21:T22ıPCXX,CYYPT2T21:T22ıPCXX,CYYPT2T21:T22ıPCXY,CYXQT2T21:T2&OCX,CYX1CX,Y1CYAO"DONE DRAWING PIE";A$[OD3(2R1):R1=RADIUScOX0lOYR1O DRAW THE 8 CIRCLE PIXELSOD0DD(4X)6:4060OD0DD4(XY)10:YY1OT20:4500O(X)(X1)(Y)(Y1)ī7000OXX1 P4030PT2N N70N"ANGLE? ";A1CNR175: RADIUSTNCX140:CY80bN,AA122.5lN68000xN@X(X1)NJY(Y1)N^AA122.5Nh8000: ENDPOINTNrX1(X1)N|Y1(Y1)N21:"START X= ";X;" Y= ";Y;" END X= ";X1;" Y = ";Y1OCX,CYXCX,YCY    ETB$!dAXQ,YQ_dA1CXRX(NX1)(NX1):CYRY(NY1)(RY1):5500:I,3:ed{d PRINT VARIABLESd 1:21:"RX ";RX;" RY ";RY;" "d3:21:"MX ";MX;" MY ";MYd7:21:"XS ";XS;" YS ";YS;" "e(13:21:"T ";T;" DIR: ";PTH$(R) eZeVXRX1:CYRY:5500:I,3FcCXRX1:CYRY1:5500:I,3\cRXRX10:RYRY10bchcncc CHECK FRONT BUMPERcccA0c2:21:"NO BUMPER CODE":cYQYS(NY3):XQXS(NX3)c7:XQ,YQd23:20:"XQ= ";XQ;" YQ= ";YQd G WOZSPOTbq%br;buRXRX10:RYRY10VbzCXRX:CYRY:5500:I,3sbCXRX:CYRY1:5500:I,3bCXRX:CYRY1:5500:I,3bCXRX1:CYRY:5500:I,3bCXRX1:CYRY1:5500:I,3bCXRX1:CYRY1:5500:I,3 cCXRX1:CYRY1:5500:I,3'cCPY10)5abPM9X5PX10:Y510PY20SalA91ĺ"X5 ";X5;" Y5 ";Y5|avI16384(400(PM1))(20(19Y5))X5aCO(I)aA91ī5500aCX10CX10CY10CY10ıaX19aPMX(O400)1XĢ19(CY9):CX11:":";aXafbn bobpX;" PY= ";PY;" "=`PM5X5PX10:Y5PY10^`PM4X520(PX10):Y5PY10z`&PM6X5PX10:Y5PY10`0PM2X5PX10:Y5PY10`:PM8X5PX10:Y520(PY10)`DPM1X51020PX:Y5PY10`NPM3X5PX10:Y5PY10aXPM7X520PX10:Y520(CO3CO3!_'_z-_{A_| WHERE TO POKEG_}M_~k_A91Ą"CX ";CX:"CY ";CYt_PM5_PXCX:PYCY_CX10PMPM1:_CX9PMPM1_CY10PMPM3_CY9PMPM3_A91ĺ"PM= ";PM;" PX= ";PX;" PY= ";PY!`A91ĺ"PX= ";P::^^8^ cells been explrd O^ B4, need to FUSEi^ FUSE SENSOR READING^ WITH LOCAL MAP DATA^CO128G129^CO128G127^W1(CO128)^W2(SO128)^CO((COW1SOW2)(W1W2))^CO128COG _ CO255CO255_9600*](16384)155ı1]3B]SD40İ2200b]GOSUB 3500:REM HANDLEINPUTj]A6p]] SEND TO AUX MEMORY] IN TEXT SCREEN]](13)]40300: SAVE MAPS]$]]] FUSEPROBABILITIES]]^(CO128)COSO300:A$""2\A$"/"İ40500:A$""J\A$"0"İ8205:A$""\\A$"@"İ8900b\h\n\\ SONAR SCAN\\\6000: WOZSPOT \R8RR75:R80R8360R8\A6036018: USED TO BE 130]A1R8A6:A1360A1A1360 ]CA1]002[VA$"3"A$"7"A$"6"A$""N[[A$"J"A$"L"Ē0:8400p[`A$"J"RRRR10:RR0RR360[eA$"J"İ8600:8700[jA$"L":RRRR10:RR360RR0[oA$"L"İ8600:8700[tA$"J"A$"L"Ē3:8400\~A$"`"Č768:A$"":16304,0\A$""İ40A$"_"Ģ22:"REDUCING COS ":3000TZ8A$"I"İ6300: CHECK BUMPER}Z=A0A$"I"İ6000: UNOCCUPIED ROBOTZ>CS128CS120Z?I,CSZBA$"I"Ē0:8400:YSYSNY:XSXSNX:8600:8700:3:8400[LA$"K"Ē0:8400:YSYSNY:XSXSNX:8600:8700:3:84000!Y A$"4"Ĭ9Y A$"5"İ2500:A$""aY A$"S"A$"":YO0:XO0:SXRX:SYRYvY A$"7"Ē0:8400Y A$"7"XO((RXSX)2):YO((RYSY)2):A$"":4000:3:8400Y A$"1"İ2200YA$"8"Ĺ16303,0:2500YA$"9"Ĺ16304,0 ZA$"S"SS13Z$11 X| YU116X CXXVXU:CYYVYUAX 5500:XX CSCO5:CS0CS0kX CS128CS120uX I,CSX YU:XUX CXXV:CYYVX X X X HANDLE INPUTX X X (16384)128ľA$X A$"~"ĺ(4);"RUN SEARCHVIEW,D2"Y A$"3"Đ:9٠Ԡٱ ͠ԍرԠرٱԠٱ ԠԠؽػٽٻĠؽر٠ٱԠج٠Ϡؠج٠ٍԠج٠ϠرجٱٍԠҤΠӢԠҤŠӢԠԠҤŢĠҠҽԠſұ͠Ӎؠ٠ ؠԠر     `Cp`Cp``C0pp`CxppCx`Cpxpx`CP>xh0U*U U|p`Cp`Cp``C0p`CWVW^nMppCx``C0pxCO `4 @[%W*|``C0pp`Cx&p``C0p`C~}<~O p`Cp`Cp``C0pp`CxppCx`Cpxpx`CP>xZ_W*U*U|p`Cp`CpC500: TURN ROBOTDn"14:21:"NEW RX ";RX;" RY ";RYZn"7600: FD 1 CELLan"Tn" TURN IN CORRECT DIRECTIONn#T1:7020:7500:8970n #n#n(# CHECK IF MAP CHANGEn2#MXX6MYY6ı oF#(4);"OPEN SCREENPOS":(4);"WRITESCREENPOS":XS:YS:NR225NX1:NY17m"NR45NX1:NY1Om"NR315NX1:NY1Um."[m"am"sm" FOLLOW PATHym"m"m"2000:LD PTH TBLm"P(768): A # OF PATHSm"TP21m"7000: GET ROTATION n"9000: CHECK NEW MAP n"70R4R43600l!ARR4(3.14180)Al!X4(AR)XSRl!Y4(AR)YSfl!TXXSX:TYYSYll!rl!xl!l! CALC NEXT POSITIONl!l!l"NR90NX1:NY0l"NR270NX1:NY0l "NR0NY1:NX0l "NR180NY1:NX0 m"NR135NX1:NY1!m"AL MAP CELLS TO 128"?k I1638416384(4009)Jk I,128Qk& IWkD ]k ck tk DRAW ROBOTzk k k XS1,YS1XS1,YS1XS1,YS1XS1,YS1XS1,YS1k XS,YSXSTX,YSTYk!k! TRIG CALCS FOR TAILk!k!l!R4RR270:R436(AR)'RTY1R1(AR)-R^EARA(3.14180)SRJX1R1(AR)dRTY1R1(AR)jR^2ı"QCXY,CYX6QT2T21:T22ıEQCXY,CYXYQT2T21:T22ıhQCXY,CYX|QT2T21:T22ıQPQpQX"THAT TAKES ABOUT 2 SECONDS ON 'REAL MACHINE' SPEED IN APPLEWIN EMULATOR"Q@ CALC CIRCLE REARA(3.14180)RJX1R10 PT(A45)5P22:"T ";T;:A$dPT5100,5020,5060,5140,5120,5040,5000,5080sPCXX,CYYPT2T21:T22ıPCXX,CYYPT2T21:T22ıPCXX,CYYPT2T21:T22ıPCXX,CYYPT2T21:T22ıPCXY,CYXQT2T21:T2&OCX,CYX1CX,Y1CYAO"DONE DRAWING PIE";A$[OD3(2R1):R1=RADIUScOX0lOYR1O DRAW THE 8 CIRCLE PIXELSOD0DD(4X)6:4060OD0DD4(XY)10:YY1OT20:4500O(X)(X1)(Y)(Y1)ī7000OXX1 P4030PT2N N70N"ANGLE? ";A1CNR175: RADIUSTNCX140:CY80bN,AA122.5lN68000xN@X(X1)NJY(Y1)N^AA122.5Nh8000: ENDPOINTNrX1(X1)N|Y1(Y1)N21:"START X= ";X;" Y= ";Y;" END X= ";X1;" Y = ";Y1OCX,CYXCX,YCY     pCx~CpxCx|~C~CC|~C~~CpCx~CxC||~C~xC||~C~~C|~C~~C|~C~~CpCx~CpxCx|~C~CCC|~C~~CpCx~C~C|~C~xC||~C~~C|~C~~C|~C~~CΠҩΠԲƠԲΠΠΠĠԠԠӠԠӠΠ̠ŧĠΠΠҢ͠àŠҠرұӠҩٱұΠΠԠؠ٬٠؍ԲԲƠԲΠΠԠؠ٬٠؍ԲԲƠԲΠΠԠؠ٬٠؍ԲԲƠԲΠΠԠؠ٬٠؍ԲԠؠج٠ٍԲԲƠԲΠΠԠؠج٠ٍԲԲƠԲΠΠԠؠج٠ٍԲԲƠԲΠΠԠؠج٠ٍԲԲƠԲ ƠԠةԠرĠԠ٩ԠٱΠϠؠؠϠԲԠԠ ԠԠԻԠΠԠϠԠŠǠŢĠұ͠ұӍؠ٠ұ͠נŠŠӍƠĠΠĠĠةϠƠĠΠĠĠؠ٩٠٠ԲNB1:BR(NB)S2:SF(S2)SF(S2)1:S2SD(S2,I):"SEEK TO SQR ";S2:6210TQSD(S2,I)0ĺ"SQR ";S2;" 1N 2E 3S 4W = ";I;" IS UNEXPLORED":NBNB1:BR(NB)S2:4000URSD(S2,I)0SE0ī6300: SQR NO EXIST, GO TO ITUSSE1SE0:SD(S2,I)I5:"LRNED SQR dSCSF(S2)4ī6235SD3:QX(S2)2SO,QY(S2)2QX(S2)4SO,QY(S2)4SE(7):0:QX(S2)2SO,QY(S2)2QX(S2)4SO,QY(S2)4:3SG:"SRCH SQR ";S2;" "SH"SRCH DIR ";I6TLR1SD(S2,I):R4SD(S2,I):R2SD(R4,0):R3SF(SD(S2,I))TPR11R22R30NB0RR180SP1SD(CS,4)C1:SD(C1,2)CSRPD0RR270SP7SD(CS,3)C1:SD(C1,1)CSRR R RnRoRp SEARCHRq Rr RuNB0RzS2CSS{I1NS:SF(I)0:IS6 S7 /S8 BRANCH OUT 6S9 =S: OSBISF(S2)141)S1:5580}QSD(S1,4)C1:SD(C1,2)S1:5580QSD(S1,1)C1:SD(C1,3)S1:5580QPD1İ8500: CONNECT NSEWQSE1SE0:S1I5:SPSS:5591QS1NS:SPSSRPD0RR90SP3SD(CS,1)C1:SD(C1,3)CSHRPD0RR0SP5SD(CS,2)C1:SD(C1,4)CSvRPD)2: OBSTACLEfPI3lPPII1SPSS:S1C1:: FROMPPP NO PTS IN SQRPPP|II1ıPSP2SP3ī5540PSP4SP5ī5550QSP6SP7ī5560QSP8SP1ī55709QSD(S1,2)C1:SD(C1,4)S1:5580[QSD(S1,3)C1:SD(C1,I5bO ADD SQRnONSNS1OQX(NS)QX(CS)XLOQY(NS)QY(CS)YBO SD(NS,0)1OOOO CHK IS PT IN SQR OOOPD0ONS2ıPI31P^PSX(I3)QX(C1)SX(I3)QX(C1)RWSY(I3)(QY(C1)RL)SY(I3)QY(C1)SD(C1,0EE1EE0:7200:wN4800:SQR EXST?NSE1C1I5:5000:4700NC1NS:5000N\SSSS1:SS8SS1NfIINNNN CHK IF SQR EXISTSNN O SE SQR EXISTSOI51NSLOQX(I5)QX(CS)XLQY(I5)QY(CS)(RLYO)SE1:TO޲bM SETUP GRIDhMnMtMM ON GRIDMIR0MRR90SS1MRR180SS7MRR270SS5MRR0SS3MMMII15: SEE PG 1MXOXO(SS) NYOYO(SS)%NXLRWXO:XRRW(XO1)?NYTRL(YO1):YBRLYOENKNbN00fLe3:9000: DRAWyLfEE11000:EELj3665LtLLL CHK IF SQR CNCTDLLDDILDD1SS3LDD2SS5LDD3SS7LDD4SS1MEE1:4560:"M EE MAKES 4560 RETURN?MSE1SD(BR(NB),CD)I5:EMKMQMDRAW FINALdK RRNRjK pKvKK MOVE ROBOTKKKRR90XC0:YC1K$RR0XC1:YC0K.RR271XC0:YC1K8RR180XC1:YC0 LLTXRX(XCRW):TYRY(YCRL)LN%LQ0:9000: ERASE;LVRXRXXC:RYRYYCRL`RXTXRYTYī37YC1NR270sJ0 3500: TURN ROBOTyJ J J TURN ROBOTJ J J SE20: STEP INCREMENTJ NRRRSE1J NRRRıJ 0:9000: ERASE CURRENT ROBOT K IRR1NRSE$K 3:RRI:9000: DRAW9K 0:9000: ERASE@K IZK 7:9000: COORD TO GOTOgI mI I DXRXTX: DIST TO TARGETXI DYRYTY: DIST TO TARGETYI DXDYRXTXYC0:XC1I DXDYRXTXYC0:XC1I DYDXRYTYYC1:XC0J DYDXRYTYYC1:XC0(J XC1NR09J YC1NR90KJ XC1NR180\J& 0 CXY,CYX$ T2T21:T22ı3 CXX,CYYG T2T21:T22ıV CXX,CYYj T2T21:T22ıy CXY,CYX T2T21:T22ı CXY,CYX T2T21:T22ı CXX,CYY T2T21:T22ı CXX,CYY T2T21:T22ı CXY(2R1): R1=RADIUS X0$ YR1C  DRAW THE 8 CIRCLE PIXELS^ D0DD(4X)6:4500} D0DD4(XY)10:YY1 T20    PLOTS   T20 T(AN45) T5000,5020,5040,5060,5080,5100,5120,5140 XX1:403CX140:CY80:R175 %7:22:"ANGLE ";ANN(AAN22.5:8000d2SXX1CX:SYY1CYx<AAN22.5:8000FEXX1CX:EYY1CYPCX,CYEX,EYZCX,CYSX,SYR175CX140:CY80 BRESENHAM ALGO D3  40ad7F(49304)pd N"ERR! ":wd,VS~d6VId@ INITdASO125dBCD1dJ::7dT(4);"BLOAD PI.MAP,A$2000"dY1,116200,116dZ100,100100,150 e^(4);"BRUN HIRESCRN"ehRR90: WOZROT1emFD1: SEE PG8OenCD1: CURRENT DIR FACING2lc2PT1ADDLOWOFLINEc2PT2ADDHIGHTOFLINEc6 WOZ BS2 COMMANDSc7 FD 1 CELL c749296,6: MOVE CMDc2749296,18: KRONOS FDc<749296,(DST256)dA7 40&50 SND DST 2 KRONOS5dF749296,DST((DST256))>dx7768Rd7(777)0ī63+S1Pb +WX(I)(SX(S)QQ)WX(I)(SX(S)QQ)WY(I)(SY(S)QQ)WY(I)(SY(S)QQ)PT1b*+EX(I)(SX(S)2)EX(I)(SX(S)2)EY(I)(SY(S)2)EY(I)(SY(S)2)PT2 c/+PT0İ13000c4+Sc>+Ic2$c29c2 ADD LENGTH TO Gc2 TO WALLMc2Sc(Y1QQ)SY(R)(Y1QQ)ĂRwa")NLNL1a')FX1TPX1:X1X2:X2TP:TPY1:Y1Y2:Y2TP:FX0a,)WX(NL)X1:WY(NL)Y1:EX(NL)SX(R1):EY(NL)Y1a1)RPıa6)IR2:10020a*b*b* SEE IF RADAR,b+ IS PART OF WALL2b+8b+Ab+PT0Mb +I1NLXbINEY`=(_`>(q`F(X1X2ī10330`P(Y1Y2ī10500: HORIZ`Q(`R(`Z(RIP`(SX(R)(X1QQ)SX(R)(X1QQ)ĂR`(NLNL1 a(WX(NL)X1:WY(NL)Y1:EX(NL)SX(R1):EY(NL)SY(R1)a(IR1:a)"a).a) HORIZ4a):a)Ea)RIPka)SY(R)_'Z_'b_'I1_$'Y1SY(I):Y2SY(I2):X1SX(I):X2SX(I2)_.'X1X2TPX1:X1X2:X2TP:TPY1:Y1Y2:Y2TP:FX1_8' ONERR (DIV BY ZERO)_B'M0ī10300`L'M(Y1Y2)(X1X2)`V'M0īUP``'M0īDOWN.`t' TYPE 3 UP4`:(:`;(S`<( HORIZ OR VERT LI1NSi^#QX(I):QY(I)p^$Iv^$|^$^$^$ OPEN MAP DATA^$"OPEN MAP":"READ MAP"^$CS:NS:RX:RY^$I1NS^$D04^$SD(I,D)^$D:I_%I1NS_&%QX(I):QY(I)_0%I&_:%500000_D%60006_'<_'N_' DERIVE LINET3i]<#ARRR(3.14159180){]F#X1R(AR)RX]P#Y1R(AR)RY]Z#RX,RYX1,Y1]d#RX,RYRX1,RY]n#]#]# SAVE DATA]#]#]#:(4);"OPEN MAP" ^#:(4);"WRITE MAP"^#CS:NS:RX:RY)^#I1NS4^#D04A^#SD(I,D)K^#D:IW^#d\4! CONNECT NSEWj\5!p\6!\>!RR90SS3SD(CS,1).5\H!RR90SS1SD(CS,4).5\R!RR90SS5SD(CS,2).5\\!IR0:S1NS1\#\&#\'#\(# DRAW ROBOT\)#]*#I]+#RX1,RY1RXRW1,RY1RXRW1,RYRLLRX1,RYRLLRX1,RY1:Q]2#R[[EQQ3f[TI2P[^SX(I)(SX(I1)QQ)SX(I)(SX(I1)QQ)MX1[cSY(I)(SY(I1)QQ)SY(I)(SY(I1)QQ)MY1[hMX1MY1LL1:LX(L)I\rMX1MY1ĺ"PT ";I;" IS NEAR LAST PT" \wMX0:MY0'\|I?\WW1L:LX(RR):WWE\K\2!Q\3!WZP0nZSRRR90RR9018zZR315Z7000ZX(X1):Y(Y1)ZAX,YZA1PP1:SX(P)(X1):SY(P)(Y1):R15ZA1ēSX(P)125,SY(P)ZR:[  HPLOTX,Y [SR[[>"[?4[@ SEE IF PTS F[A MAKE A LINEL[BR[C SE SQR EXISTS qY*I51NSY4QX(I5)QX(BR(NB))XLQY(I5)QY(BR(NB))(RLYO)SE1:Y>I5YYJYKYL BUMBER CHECKYMYNYVR5: RADIUSZ`SRRR:7000ZjX(X1):Y(Y1)%ZtAX,Y+Z~1Z7ZIZ SONAR SCANOZXl ROBOTX,Y yXv ROBOTROT X SERVOROT XXX A = ROBOTROTXARSR(3.14159180)XX1R(AR)RXXY1R(AR)RYX HPLOT X1,Y1"Y HCOLOR=0:HPLOT X1,Y1:HCOLOR=7(Y @Y  CHK IF SQR EXISTSFY!LY"dY#T "NEXT MOVE";A$hWQ6xWDD1NR90W(DD2NR0W2DD3NR270WDD4NR180WCDDDW0:9000:3W3500:3600W 0:9000XTYRY(RLYC):TXRX(RWXC):7600:4500:50000:1000XV%XW9XX USE SONAR NXb SEND RX,RY bCS,SG)BR(Q6)ī6350sVNB1ī6350{VSGVSG1NR90:CD1VSG2NR0:CD2VSG3NR271:CD3VSG4NR180:CD4V3500V3600V0:9000:3WTM1: TRAVELING TO TGT MODE$W 1000:TM05W CSSD(CS,SG)`WVTAB21: HTAB 25: INPU,CYX T2T21:T22ı# 5000) >/ ?H @ CALC CIRCLE N AT Bh EARA(3.14180)x JX1R1(AR) TY1R1(AR) ^CC"D"D"D("D"D"D"D"D#D"|q?D"D"D"D"D"D"D"D"D"D"D"D"D"D"D"Dq#D"|>D"D"D"D"D"D"D"Dv&8400v&HL9:HW4(v&MX128:MY128.v' I1Ĺ230,32:3:X1,Y1#u%A1SDR:8u%A60SDR:2800Nu%SC20SDR:2800Vu%SCmu%(16384)127ľA$u%A$"8"Ĺ16298,0u%A$"9"Ĺ16297,0u%Ru%uH&(4);"BLOAD PI.MAP,A8192,D1"uR&(4);"BRUN HIRESCRN"u&RX40:RY84:8600:8700%t% SONAR SCAN t% )t%SD307t%R4402Tt%S1A122:S10S1360S1bt%OX0:OY0qt%SC0452t%SRS1SC:SR360SRSR360t%(16384)155ıt%9500t%3t%230,32:X1119,Y1t%X(X1):Y(Y1)t%230,32t%AX,Yu%A YY1:Y2ī40316O Ɲ(4);"OPEN DUMMYFILE,D1":(4);"CLOSE DUMMYFILE,D1"vMX2:MY1wI8192$x:221zMT117929{Y1B|X1H}\LXMXX:LYMYYy"LOADING MAP";LX;".";LY(4);"BLOAD MAP";LX;".";LY;",A";I;",D2"MT,LX:MT1,LY:MTMT2 TABLE OF LOADED MAPSII400XX1:X2ī40317K"S2SD(S2,3)vjA$"J"S2SD(S2,4)j,A$"L"S2SD(S2,2)j1A$""j621:"CS ";S2;" "j@60405jT(4);"OPEN WOZ":(4);"WRITE WOZ"::(4);"CLOSE WOZ" LT21:T22ı CXY,CYX/ T2T21:T22ı9 5000? >E ?^ @ CALC CIRCLE d Aj B~ EARA(3.14180) JX1R1(AR) TY1R1(AR) ^0 XX1 XEXij& CXY,CYX: T2T21:T22ıI CXX,CYY] T2T21:T22ıl CXX,CYY T2T21:T22ı CXY,CYX T2T21:T22ı CXY,CYX T2T21:T22ı CXX,CYY T2T21:T22ı CXX,CYY T2(2R1): R1=RADIUS! XEX:YEY4 0,0XCX,YCYS  DRAW THE 8 CIRCLE PIXELSn D0DD(4X)6:4500 D0DD4(XY)10:YY1 T20    PLOTS   T20 T(AN45) T5000,5020,5040,5060,5080,5100,5120,514CX140:CY80:R175 %7:22:"ANGLE ";ANN(AAN22.5:8000^2SXX1:SYY1r<AAN22.5:8000FEXX1:EYY1PCX,CYEXCX,EYCYZCX,CYSXCX,SYCYR175CX140:CY80 BRESENHAM ALGO D3   > Im?i?L-=.Ȍ> Ii|im?iL-ʎ=.Ȍ> IiiL-=.Ȍ> Ii|iL-ʎ=.> IiiL-=.> ILl l  ɀ0 0 ܠ`-ʎ=.> Iii@ii@꭫=>`@-=.> I@ii1L-=.  2ʎ1莬    `2 1!1/LL LG  1莬LG  2莫LG  2莫1莬    ` ;`εζ``ii`8`  2ʎ1ʎ  `21!1/Lz L L9  1L9 $ ?莫L9   2莫1ʎ    `2 11'L L L H 1莬L  2ʎL 1   `1 LC   21莬   `1 $2L   21ʎ   `2 121/L L [L H 1ʎL $ 2ʎL   / 0   `?@21 Z ?@L `4 O  `  ( O  `2 H L   2ʎ1   `2 L   2莫  M ` ` =` M ` ` ` 1` IJӬıIJ     ÍT21:T22ı CXX,CYY/ T2T21:T22ı> CXY,CYXR T2T21:T22ı\ 5000b >h ? @ CALC CIRCLE A B EARA(3.14180) JX1R1(AR) TY1R1(AR) ^C0,5060,5080,5100,5120,5140$ XX10 XSXij: 4030I CXY,CYX] T2T21:T22ıl CXX,CYY T2T21:T22ı CXX,CYY T2T21:T22ı CXY,CYX T2T21:T22ı CXY,CYX T2T21:T22ı CXX,CYY T23(2R1): R1=RADIUS$ XEX:YEY7 0,0XCX,YCYV  DRAW THE 8 CIRCLE PIXELSq D0DD(4X)6:4500 D0DD4(XY)10:YY1 T20    PLOTS   T20 T(AN45) 21:"T= ";T;:A$ T5000,5020,504CX140:CY80:R175  :'7<22:"ANGLE ";ANP(AAN22.5:8000`2SXX1:SYY1t<AAN22.5:8000FEXX1:EYY1PCX,CYEXCX,EYCYZCX,CYSXCX,SYCYR175CX140:CY80 BRESENHAM ALGO D   @2 1    ` q L  ʭv ?2@1-. j k@2  I1  I   I  IӠǠĠ  ` IŠŬ  I  9i9:i:59:  n ` R LD ' g L\ `7i78i8`'=(>l4 `0 3?2@1- . 4  -.  ʭ `;w`@4 q ww3-.L3ꩍ `5  6  I8 7 ꩄ IĠ5  6  I8 7 IIJ`H h` d f9:L `!-.LL--Ͱ.ͱ?Ͳ @ͳL;3L3cLLv3ʎ<;<L;3-.L`iL=5>6   iim9:l9i9:i:9: l0 9c:d`4LLQLxLLZ;';!ΘLꘪim-m.m/m04`  L`lHmcldm= ->)lcicldidmL` cd  `ꩾ6= >Q̽i> Im?i?L-=.Ȍ> Ii|im?iL-ʎ=.Ȍ> IiiL-=.Ȍ> Ii|iL-ʎ=.> IiiL-=.> ILl l  ɀ0 0 ܠ`-ʎ=.> Iii@ii@꭫=>`@-=.> I@ii1L-=.  2ʎ1莬    `2 1!1/LL LG  1莬LG  2莫LG  2莫1莬    ` ;`εζ``ii`8`  2ʎ1ʎ  `21!1/Lz L L9  1L9 $ ?莫L9   2莫1ʎ    `2 11'L L L H 1莬L  2ʎL 1   `1 LC   21莬   `1 $2L   21ʎ   `2 121/L L [L H 1ʎL $ 2ʎL   / 0   `?@21 Z ?@L `4 O  `  ( O  `2 H L   2ʎ1   `2 L   2莫88|(H-.  ʭ `;w`@4 q ww3-.L3ꩍ `5  6  I8 7 ꩄ IĠ5  6  I8 7 IIJ`H h` d f9:L `!-.LL--Ͱ.ͱ?Ͳ @ͳL;3L3cLLv3ʎ<;<L;3-.L`iL=5>6   iim9:l9i9:i:9: l0 9c:d`4LLQLxLLZ;';!ΘLꘪim-m.m/m04`  L`lHmcldm= ->)lcicldidmL` cd  `ꩾ6= >Q̽i> Im?i?L-=.Ȍ> Ii|im?iL-ʎ=.Ȍ> IiiL-=.Ȍ> Ii|iL-ʎ=.> IiiL-=.> ILl l  ɀ0 0 ܠ`-ʎ=.> Iii@ii@꭫=>`@-=.> I@ii1L-=.  2ʎ1莬    `2 1!1/LL LG  1莬LG  2莫LG  2莫1莬    ` ;`εζ``ii`8`  2ʎ1ʎ  `21!1/Lz L L9  1L9 $ ?莫L9   2莫1ʎ    `2 11'L L L H 1莬L  2ʎL 1   `1 LC   21莬   `1 $2L   21ʎ   `2 121/L L [L H 1ʎL $ 2ʎL   / 0   `?@21 Z ?@L `4 O  `  ( O  `2 H L   2ʎ1   `2 L   2莫L,  1 24:20:"CHARACTER = ";(VLOCLLOC)8;H (16384)127ľA$Z A$"J"XX1l A$"L"XX1~ A$"I"YY1 A$"K"YY1 A$" "İ6000 A$"E"Ģ24:20:"CHAR # ";C:VLOCLLOC(C8):1000 A$"S"Ą"SAVE FILE NAME? ";A$:(A(BIT)0ĕ2BIT105,I1059 A(BIT)1Ē7:100BIT,I2W A(BIT)0Ē0:100BIT,I2^ 7g BITn Iu 1 22:"-I- MOVE =CHANGE BIT S)AVE" "JKL CURSOR *)LOAD E)JUMP TO CHARACTR"    INPUT ROUTINE   10000: SETUP " 1 DISPLAY8 ? EL7i9800: CLEAR EDIT AREAsA$""~I078000: CLEAR BITSA(VLOCI)7000: CONVERT TO BINARY BIT07 7 A(BIT)1ĕ1BIT105,I105     !" @2 1    ` q L  ʭv ?2@1-. j k@2  I1  I   I  IӠǠĠ  ` IŠŬ  I  9i9:i:59:  n ` R LD ' g L\ `7i78i8`'=(>l4 `0 3?2@1- . 4  -.  ʭ `;w`@4 q ww3-.L3ꩍ `5  6  I8 7 ꩄ IĠ5  6  I8 7 IIJ`H h` d f9:L `!-.LL--Ͱ.ͱ?Ͳ @ͳL;3L3cLLv3ʎ<;<L;3-.L`iL=5>6   iim9:l9i9:i:9: l0 9c:d`4LLQLxLLZ;';!ΘLꘪim-m.m/m04`  L`lHmcldm= ->)lcicldidmL` cd  `ꩾ6= >Q̽i> Im?i?L-=.Ȍ> Ii|im?iL-ʎ=.Ȍ> IiiL-=.Ȍ> Ii|iL-ʎ=.> IiiL-=.> ILl l  ɀ0 0 ܠ`-ʎ=.> Iii@ii@꭫=>`@-=.> I@ii1L-=.  2ʎ1莬    `2 1!1/LL LG  1莬LG  2莫LG  2莫1莬    ` ;`εζ``ii`8`  2ʎ1ʎ  `21!1/Lz L L9  1L9 $ ?莫L9   2莫1ʎ    `2 11'L L L H 1莬L  2ʎL 1   `1 LC   21莬   `1 $2L   21ʎ   `2 121/L L [L H 1ʎL $ 2ʎL   / 0   `?@21 Z ?@L `4 O  `  ( O  `2 H L   2ʎ1   `2 L   2莫!  M ` ` =` M ` ` ` 1` IJӬıIJ4);"BSAVE";A$;",A";LLOC;",L4096"L A$"*"Ģ22:"FILENAME ";A$:9000:1000j A$"+"VLOCVLOC8:1000 A$"-"VLOCVLOC8:1000 X0X7 X7X0 Y1Y8 Y8Y1 A$"" h5000 4000    DRAW CURSOR @2 1    ` q L  ʭv ?2@1-. j k@2  I1  I   I  IӠǠĠ  ` IŠŬ  I  9i9:i:59:  n ` R LD ' g L\ `7i78i8`'=(>l4 `0 3?2@1- . 4  -.  ʭ `;w`@4 q ww3-.L3ꩍ `5  6  I8 7 ꩄ IĠ5  6  I8 7 IIJ`H h` d f9:L `!-.LL--Ͱ.ͱ?Ͳ @ͳL;3L3cLLv3ʎ<;<L;3-.L`iL=5>6   iim9:l9i9:i:9: l0 9c:d`4LLQLxLLZ;';!ΘLꘪim-m.m/m04`  L`lHmcldm= ->)lcicldidmL` cd  `ꩾ6= >Q̽i> Im?i?L-=.Ȍ> Ii|im?iL-ʎ=.Ȍ> IiiL-=.Ȍ> Ii|iL-ʎ=.> IiiL-=.> ILl l  ɀ0 0 ܠ`-ʎ=.> Iii@ii@꭫=>`@-=.> I@ii1L-=.  2ʎ1莬    `2 1!1/LL LG  1莬LG  2莫LG  2莫1莬    ` ;`εζ``ii`8`  2ʎ1ʎ  `21!1/Lz L L9  1L9 $ ?莫L9   2莫1ʎ    `2 11'L L L H 1莬L  2ʎL 1   `1 LC   21莬   `1 $2L   21ʎ   `2 121/L L [L H 1ʎL $ 2ʎL   / 0   `?@21 Z ?@L `4 O  `  ( O  `2 H L   2ʎ1   `2 L   2莫"  M ` ` =` M ` ` ` 1` IJӬıIJ  5 7:X102,(Y1)109X108,(Y1)109E E1100:Eq 0:X102,(Y1)109X108,(Y1)109x 7~  n o p CHANGE BIT q r s(0) u8000: CLEARBITS zA(VLOC(Y1)) IY1 7000: CONVERT@2 1    ` q L  ʭv ?2@1-. j k@2  I1  I   I  IӠǠĠ  ` IŠŬ  I  9i9:i:59:  n ` R LD ' g L\ `7i78i8`'=(>l4 `0 3?2@1- . 4  -.  ʭ `;w`@4 q ww3-.L3ꩍ `5  6  I8 7 ꩄ IĠ5  6  I8 7 IIJ`H h` d f9:L `!-.LL--Ͱ.ͱ?Ͳ @ͳL;3L3cLLv3ʎ<;<L;3-.L`iL=5>6   iim9:l9i9:i:9: l0 9c:d`4LLQLxLLZ;';!ΘLꘪim-m.m/m04`  L`lHmcldm= ->)lcicldidmL` cd  `ꩾ6= >Q̽i> Im?i?L-=.Ȍ> Ii|im?iL-ʎ=.Ȍ> IiiL-=.Ȍ> Ii|iL-ʎ=.> IiiL-=.> ILl l  ɀ0 0 ܠ`-ʎ=.> Iii@ii@꭫=>`@-=.> I@ii1L-=.  2ʎ1莬    `2 1!1/LL LG  1莬LG  2莫LG  2莫1莬    ` ;`εζ``ii`8`  2ʎ1ʎ  `21!1/Lz L L9  1L9 $ ?莫L9   2莫1ʎ    `2 11'L L L H 1莬L  2ʎL 1   `1 LC   21莬   `1 $2L   21ʎ   `2 121/L L [L H 1ʎL $ 2ʎL   / 0   `?@21 Z ?@L `4 O  `  ( O  `2 H L   2ʎ1   `2 L   2莫#  M ` ` =` M ` ` ` 1` IJӬıIJ TO BINARY< A(X)1A(X)0:7500:7800:A$"2":9500:4000n A(X)0A(X)1:7500:7900:A$"2":9500:4000t { V W X DECIMAL TO BINAR Y Z bA(VLOCI) lA128A(7)1:AA128 vA64A(6)1:AA64A32A(5)1:A: SAVE CURPOS,a(4);"RUN SEARCHVIEW,D2"Ba521:13:I1;" ";]a723:15:"RR ";RR;" "va:3500: HANDLE INPUTaIXO((RXSX)2):YO((RYSY)2):29:21:"XO ";XO;" YO ";YO;" "aNI1I11:I1255I10aX16301,0ab565aM230,230bAR `38144` BWAS 245761`B24576: $6000=` $4000n`"ADDRESS TO LOAD NEXT BASIC PROGRAM IS:":B`103,(B1)((B1)256)256`104,((B1)256):`(B,0`2(4);"RUN SEARCHVIEW" 9'-(.4 q `ii`Ѣ`J             J                    `)?*@|~C~ժժժ(ժժժժժժ||~C~~C|~C~~C|~C~~CpCx~CC~C~CC|~C~~CpCx~CpxCx||~C~xC||~C~~C|~C~~C|~C~~C   kJ   j     j     j   j    La`* i)i  L IŬ  I  `   L:`hh LQHH`~ #Ɂ0jk~Ljk~ˢ`kJ   j     j   ƠΠΠƠΠú ϠƠΠҠ ƠΠ ϠҠرҠӠҩҽ ҽ ҽ ԠŠ  Ԡ ԠӠؠƠˠΠԠƠΠ)1BB16A(3)1BB8.A(2)1BB4@A(1)1BB2RA(0)1BB1dVLOC(Y1),Bj{x ERASE BIT0:1X105,(Y1)1057:2X105,(Y1)105 DRAW SET BIT0:2X105,(Y1)1057:1X105,(Y1)A32A16A(4)1:AA165A8A(3)1:AA8LA4A(2)1:AA4cA2A(1)1:AA2zA1A(0)1:AA1J K L BINARY TO DECIMALM N VB0`A(7)1BB128jA(6)1BB64tA(5)1BB32 ~A(420CY10Ġ7:CX10,40(CY30)9g^ I,CO: POKE MAP DATA?gc Egh ^g -Z2 FROM ALL CELLSdg jg tg Z210g CY019g CX028g LM(CX,CY)LM(CX,CY)Z2g CX:CYg g HANDLE INPUTg g g (16384)128ľA$h A$"~"ĺ:f f %f CELL UNOCCUPIED,f 3f ?f R1SD2If 8100ef CX(X1)XO:CY(Y1)YO~f" CX30CY30ī2920f, CX30CY30ī2915f0 CXOXCYOYī2915f1 OXCX:OYCYf2 5500: GET LOCALMAP VALUEf3 SO50:5000gF CX10CX30CY:Y2ī40516#v CXY,CYXM CXY,CYX\ XYī7000f XX1p (4030v p X"THAT TAKES ABOUT 2 SECONDS ON 'REAL MACHINE' SPEED IN APPLEWIN EMULATOR"PHAT TAKES ABOUT 2 SECONDS ON 'REAL MACHINE' SP 7R118(CX19:CY19BD3(2R1):R1=RADIUSJX0SYR1r DRAW THE 8 CIRCLE PIXELSD0DD(4X)6:4990D0DD4(XY)10:YY1~121:1:"X= ";X;" Y= ";Y;" "CXX,CYYCXX,CYY CXX,CY""