N+T+SCREECOORDOBJECNOOCOORMOVECHARFILFRAMEPHOTHAIRBLURTIMBUTTOVBOFFHITCLPPMBASWIDEFRAMETELEFRAMEWIDEHAIRTELEHAIRHORIZVERTHORIZVERTFLIPVBSETUPLENSPICTURECAPTIONCHSELENDLISISCORNSROLKLMBKTEWPKSCCCK@@@@@ @ @B2xARB( @@ !"#$%&'()*+,-./0123456789:;<=dn| NESSIE |x- for all ATARI XL/XE- BASIC & ML mix(c) 1985by Tom R.HalhillCOMPUTE! Publications(p) 1989by GIA Software BInitialize# B #Redefine characters B0Setups BMain loopMove Nessie & decoys>%8,>6-8,%8P:H:,$@ ,%@,A @@)!A9>68,-P:H:,$A,%@@A$$%8,68,-$Snap photo@w#6-&@5-@E(@ W-@d(@2G68,-F:B2R,'68,-F:B2S,968,-R:,G6-%@ ;0@@ @) @;A@( "12A@@@4'v6-P:+F:@,$BU6%F:@,$AV%F:@ ,,'@`, A"46-T:,$S6-?:C:,,12E-@AI S B@'Main loop$'8'$T:,"@$6-@d(`"T:,"*"@4A@V2@@@` A ()6-%@!@)6-@( AMove objects( B*Init P/M & ML4++@%@/0@J(@ nessieU(@s(@ PROSIM CEKEJ(@ 21 SEKUNDH+46-F:A,&@(6-AV$46-B2x\++-%A%Ah'+ p+V #B;@ ,.-@@ 2"@67<,.>:,D VWide viewfinder+V #B;@ ,.-@@ 2"@67<,.>:,D VTele viewfinder+U #B@;@ ,.-@@ 2"@67<,.>:,D UWide crosshair+U #B`;@ ,.-@@ 2"@67<,.>:,D UTele crosshair+KAA0'AAKBlue viewfinder & green crosshair+uAY@F'A#@9B2w@EBByWB2V@iB2W@uP/M setup+[6-A%6-%A%@a16-AG6-%A@%@f[Initial positions+G-@@ %%@:7,,) 5B2HGDraw viewfinder+F-@@ %%@:7,,) 5B2IFDraw crosshair+Viewfinder shapes,SS255,255,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,255,255,0$,AA255,129,129,129,129,129,129,129,129,255,0,0,0,0,0,0,0,0,0,08,Crosshair shapesL,7716,16,16,16,124,16,16,16,16,0,0,0,0,0,0,0,0,0,0,0`,3316,16,124,16,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0t,Flip shape routine,D;@%,#B .-@@%2"@67<,.>:,D ,ee104,104,133,204,104,133,203,104,133,207,104,133,206,160,0,177,206,145,203,200,192,20,208,247,96,Read joymove routine,7 #B!-A%"3A6%7 ,174,120,2,224,14,208,3,32,172,6,224,6,208,6,32,172,6,32,107,6,224,7,208,3-32,107,6,224,5,208 -6,32,140,6,32,107-6,224,13,208,3,32-140,6,224,9,208,6(-32,140,6,32,74,62-224,11,208,3,32,74<-6,224,10,208,6,32F-172,6,32,74,6,76P-98,228,173,253,6,201Z-48,240,25,206,253,6d-206,253,6,173,253,6n-141,0,208,206,251,6x-206,251,6,173,251,6-141,1,208,96,96,173-253,6,201,176,240,25-238,253,6,238,253,6-173,253,6,141,0,208-238,251,6,238,251,6-173,251,6,141,1,208-96,96,172,252,6,192-96,176,24,160,0,177-203,145,205,136,192,0-208,247,238,252,6,238-252,6,238,250,6,238-250,6,96,96,172,252-6,192,28,144,24,160.0,177,205,145,203,200.192,255,208,247,206,252.6,206,252,6,206,250".6,206,250,6,96,96,.Set up vblank|.B;@,#B .-@@2">67,.>:,B .((104,162,6,160,0,169,7,32,92,228,96.8;@,$-@@("467,.>:,8 .++104,162,228,160,98,169,7,32,92,228,96.m;@,j9@ ,9@,9@,9@ ,9@ ,9@ ,9@ ,9@0,m$.Redefine characters.O$6-+F:A,&@,$AV8-AK%F:BsD%,O . #B %.""6@$.1-@"-%$@%1 . B ".''1,255,255,192,192,192,192,192,192.3,255,255,3,3,3,3,3,3.4,3,3,3,3,3,3,3,3.5,3,3,3,3,3,3,255,255.6,0,0,0,0,0,0,255,255.''7,192,192,192,192,192,192,255,255.''8,192,192,192,192,192,192,192,192/9,0,0,0,0,0,0,213,127/ 10,0,0,64,192,85,127,126,0/11,0,0,2,3,170,254,126,0/12,0,0,0,0,0,0,171,254/ 13,0,0,56,125,222,125,56,0/ 14,0,0,28,190,123,190,28,0/!!26,5,10,21,42,84,168,80,128/27,255,255,0,0,0,0,0,0/32,0,32,48,32,224,224,0,0 /-12Set up screen20@@ @1AV'AVG(@>:A%,a0@@@{0@@0@2V6-@ 6-@46.sirokouhl telefotoV6-F:@,%F:@,$AV3m(@ )(@P(@