(FILECREATED "16-Oct-84 10:22:05" ("compiled on " {ERIS}DEMO>MAP.;3) "12-Oct-84 10:45:27" recompiled changes: GETDRAWPOSITION in "INTERLISP-D 12-Oct-84 ..." dated "12-Oct-84 11:20:55") (FILECREATED "16-Oct-84 10:21:39" {ERIS}DEMO>MAP.;3 48160 changes to: (FNS GETDRAWPOSITION) (VARS MAPCOMS) previous date: "11-MAY-83 13:07:13" {PHYLUM}ORB>MAP.;37) (FILESLOAD MAPSKETCH) DRAW.MAP D1 (P 7 CNT P 6 W P 5 E P 4 S P 3 N P 2 S2 P 1 S1 P 0 POINTSTOSKIP I 11Q CLIPN I 10Q CLIPS I 7 CLIPE I 6 CLIPW I 5 LATSC I 4 LONGSC I 3 LATOFF I 2 LONGOFF I 1 DSP I 0 MAPFILE)  jq@ g Y@ g ZIj Jj I YI I I I I _LGGKNGFMHOظHjJd H jAJOBDCE I J h(210Q CLOSEF 204Q CLOSEF 175Q PLOTSEGMENT 156Q SETFILEPTR 147Q GETFILEPTR 101Q ReadSigned16 74Q ReadSigned16 67Q ReadSigned16 62Q ReadSigned16 55Q ReadSigned16 47Q EOFP 43Q SETFILEPTR 36Q SETFILEPTR 30Q OPENSTREAM 22Q MAPDATAFILE 15Q OPENSTREAM 7 MAPINDEXFILE) (25Q INPUT 12Q INPUT) () MAPINDEXFILE D1 (L (0 MAPFILE)) `NIL (2 GLOBALMAPINDEXFILE) () MAPDATAFILE D1 (L (0 MAPFILE)) `NIL (2 GLOBALMAPDATAFILE) () DRAW.MAP.FROM.MAPINFOA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 3 LONSC P 2 LONOFF P 1 LATSC P 0 LATOFF F 4 WINDOWREGION F 5 MAPPIECE F 6 DSP F 7 MACROY) g@UVUZUXU[UYTJK TTkJK THI TTkHI ci(140Q DRAW.MAP 134Q MAPUNSCALE 114Q MAPUNSCALE 104Q MAPUNSCALE 66Q MAPUNSCALE) NIL () DRAW.MAP.FROM.MAPINFO D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 2 WINDOWREGION I 1 MAPPIECE I 0 DSP F 4 RESETVARSLST) =` 1gHhhTcYog gIcgI KJ(70Q ERROR! 63Q APPLY 40Q DRAW.MAP.FROM.MAPINFOA0001 5 CURSOR) (54Q CURSOR 44Q ERROR 35Q INTERNAL 13Q CURSOR 2 WAITINGCURSOR) ( 32Q (DUMMY.FOR.ERRORSET)) MAPDESCFROMFIGUREW D1 (I 0 FIGUREW) @ HhdgHX(3 FIGURESPECS) (23Q MAPPIECE) () MAPW.CLOSEFN D1 (P 0 LATLONW I 0 MAPW) @` @g Xd h(31Q CLOSEW 23Q GETWINDOWUSERPROP 11Q REMOVE) (20Q LATLONDISPLAYER 14Q ALL.MAPWS 6 ALL.MAPWS) () MAPW.CREATE.ICON D1 (I 0 MAPW) @g @g@ld (26Q PUTWINDOWPROP 23Q MAPW.ICON.BITMAP 6 GETWINDOWUSERPROP) (14Q ICON 3 ICON) () MAPW.FROM.LATLONW D1 (P 1 W I 0 LATLONW) Hh@Ig IHX(25Q GETWINDOWUSERPROP 2 ACTIVEWINDOWS) (22Q LATLONDISPLAYER) () MAPW.ICON.BITMAP D1 (P 2 WREGION P 1 DSP P 0 MAPPIECE I 2 HGHT I 1 WDTH I 0 MAPW) @ AB HZHIHHHh@ AHh@ BJJJkJJJk hI (200Q DSPDESTINATION 173Q DRAW.MAP 127Q DSPCLIPPINGREGION 122Q \INSUREWINDOW 100Q DSPCLIPPINGREGION 73Q \INSUREWINDOW 13Q DSPCREATE 10Q BITMAPCREATE 3 MAPDESCFROMFIGUREW) NIL () CREATE.MAPW D1 (P 11Q WEST P 10Q SOUTH P 7 WDTH P 6 HGHT P 5 PROJFACTOR P 4 SCALE P 3 LONGSCALE P 2 LATSCALE P 1 MAPWIN P 0 FILE I 3 TITLE I 2 SCREENREG I 1 ANNOTATIONS I 0 WREGION F 12Q MAPW.AUTOSCALEFLG) ghBC  WH@^hI Z@_hI @@l ]j[-*@hI ۺ@hI ۻhgKd@d_J@_KHhIK AKJ\OO IL IgL Igg I`Igg Igg I(340Q PUTWINDOWPROP 326Q WINDOWADDPROP 304Q PUTWINDOWPROP 272Q PUTWINDOWPROP 262Q FIGW.DISPLAY.AND.ADD.ITEMS 255Q UPDATE.POSITIONS.TO.SCALE 240Q FIGW.DISPLAY.AND.ADD.ITEM 170Q DSPCLIPPINGREGION 163Q \INSUREWINDOW 144Q DSPCLIPPINGREGION 137Q \INSUREWINDOW 113Q COS 110Q FILETOREALLAT 65Q DSPCLIPPINGREGION 60Q \INSUREWINDOW 37Q DSPCLIPPINGREGION 32Q \INSUREWINDOW 10Q FIGUREW) (335Q MAPW.CREATE.ICON 332Q SHRINKFN 323Q MAPW.CLOSEFN 320Q CLOSEFN 314Q ALL.MAPWS 310Q ALL.MAPWS 301Q MAPW.BUTTONEVENTFN 276Q BUTTONEVENTFN 266Q SCALE 201Q MAPPIECE 2 {DSK}WORLD-COAST-S) () CREATE.MAPW.FROM.REGION D1 (P 1 MW P 0 REG I 0 ORIGMAPW) B@ H@ ng@ H@ H ho Ydg@ H@ ng@ I(76Q DSPFILL 64Q MAPREGIONTOWINDOW 57Q PUTWINDOWPROP 46Q CREATE.MAPW 36Q MAP.DATA.IN.REGION 32Q MAPW.DATA 25Q DSPFILL 13Q MAPREGIONTOWINDOW 3 GETMAPREGION) (72Q INVERT 53Q SUPERMAPW 21Q INVERT) ( 43Q "A piece of the world.") FIGW.DRAWMAP D1 (I 2 WINREG I 1 MAPW I 0 MAPELT) A @BdA (21Q DRAW.MAP.FROM.MAPINFO 16Q DSPCLIPPINGREGION 3 \INSUREWINDOW) NIL () GETLATLON D1 (P 0 PT I 0 W) 6@ H@g @g H@g @g (62Q FILETOREALLAT 57Q MAPUNSCALE 54Q GETWINDOWUSERPROP 45Q GETWINDOWUSERPROP 34Q FILETOREALLON 31Q MAPUNSCALE 26Q GETWINDOWUSERPROP 17Q GETWINDOWUSERPROP 3 GETPOSITION) (51Q LATITUDESCALE 42Q LATITUDEOFFSET 23Q LONGITUDESCALE 14Q LONGITUDEOFFSET) () GETMAPREGION D1 (P 3 LATSCALE P 2 LONGSCALE P 1 MAPDESC P 0 REG I 0 MAPW) J@ @ "HIIZ HII[ HJHKh(65Q MAPUNSCALE 41Q MAPUNSCALE 7 MAPDESCFROMFIGUREW 3 GETWREGION) NIL () GETWORLD D1 (P 0 CHARMICONFONT) 7 oonnu0hhn,l n, n Ih (64Q CREATE.MAPW 53Q WIDTHIFWINDOW 44Q HEIGHTIFWINDOW 2 GETMAPFILES) NIL ( 15Q -32750Q 11Q -77220Q) GETMAPFILES D1 NIL Qg o gg o g o gg o h(114Q PROMPTPRINT 102Q COPYFILE 71Q PROMPTPRINT 55Q INFILEP 46Q PROMPTPRINT 33Q COPYFILE 21Q PROMPTPRINT 5 INFILEP) (105Q GLOBALMAPDATAFILE 77Q {CORE}WORLD-COAST-S.MAP 74Q WORLD-COAST-S.MAP 60Q GLOBALMAPDATAFILE 52Q {CORE}WORLD-COAST-S.MAP 36Q GLOBALMAPINDEXFILE 30Q {CORE}WORLD-COAST-S.INDEX 25Q WORLD-COAST-S.INDEX 10Q GLOBALMAPINDEXFILE 2 {CORE}WORLD-COAST-S.INDEX) ( 111Q "done!" 66Q "copying a map data file into core..." 43Q "done!" 16Q "copying a map data file into core...") MAPREGIONTOWINDOW D1 (P 2 LATSCALE P 1 LONGSCALE P 0 MAPDESC I 1 MAPW I 0 REG) HA !HYHZ@HI @HJ @I@Jh(63Q MAPSCALE 46Q MAPSCALE 3 MAPDESCFROMFIGUREW) NIL () MAPUNSCALE D1 (L (2 SCALE 1 OFFSET 0 MAPVALUE)) @BANIL NIL () MAPW.BUTTONEVENTFN D1 (I 0 MAPW) j`kj`@ ```4`dodg dgjdndhHdI  dg@ g@ h(145Q ADD.LATLON.DISPLAY 132Q CREATE.MAPW.FROM.REGION 117Q MENU 14Q TOTOPW) (136Q LATLON 123Q ZOOM 114Q MAPW.COMMAND.MENU 61Q DEFAULTMENUHELDFN 52Q CLRPROMPT 35Q MENUTYPE# 30Q MAPW.COMMAND.MENU 23Q MENUTYPE# 17Q MAPW.COMMAND.MENU 2 LASTMOUSEBUTTONS) ( 43Q ((Zoom (QUOTE ZOOM) "Creates another window onto a subregion.") (ShowL&L (QUOTE LATLON) "Creates a window which shows the latitude and longitude of the cursor."))) MAPW.DISPLAYER D1 (I 0 MAPW F 0 WREGION) P@g @g @ @g @g @g @g PPPkPPPk h(114Q DRAW.MAP 57Q GETWINDOWUSERPROP 50Q GETWINDOWUSERPROP 41Q GETWINDOWUSERPROP 32Q GETWINDOWUSERPROP 21Q \INSUREWINDOW 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (54Q LATITUDESCALE 45Q LONGITUDESCALE 36Q LATITUDEOFFSET 27Q LONGITUDEOFFSET 12Q MAPFILE 3 WORLDREGION) () MAPSCALEIN D1 (I 2 stream I 1 scale I 0 offset) B @A(3 ReadSigned16) NIL () MAPSCALE D1 (L (2 SCALE 1 OFFSET 0 VALUE)) @ABNIL NIL () PLOTSEGMENT D1 (P 5 i P 3 PREVLONG P 2 PREVLAT P 1 Long P 0 Lat I 6 Yscale I 5 Yoff I 4 Xscale I 3 Xoff I 2 Count I 1 Stream I 0 DSP) X@EFA ZCDA [dJKJkg@ Bkk]L-EFA CDA HJIKKJI[HZkg@ Mkذh(116Q DRAWLINE 66Q MAPSCALEIN 57Q MAPSCALEIN 35Q DRAWLINE 17Q MAPSCALEIN 10Q MAPSCALEIN) (111Q PAINT 30Q PAINT) () ReadSigned16 D1 (I 0 S) @ @ dnoNIL NIL ( 17Q 200000Q) SCALE.FROM.MAPINFO D1 (L (0 MAPINFO)) @NIL NIL () SCALE.FROM.MAPW D1 (I 0 WINDOW) @ (6 SCALE.FROM.MAPINFO 3 MAPDESCFROMFIGUREW) NIL () MAP.SCALE.POSITION D1 (I 2 SWLATLON I 1 SCALE I 0 POS) @BA @BA (21Q MAPSCALE 10Q MAPSCALE) NIL () UNSCALE.POSITION.FROM.MAPINFO D1 (I 1 MAPINFO I 0 POS) +@AA @AA (47Q MAPUNSCALE 25Q MAPUNSCALE) NIL () SCALE.POSITION.FROM.MAPINFO D1 (I 1 MAPINFO I 0 POS) +@AA @AA (47Q MAPSCALE 25Q MAPSCALE) NIL () UPDATE.CURVE.TO.SCALE D1 (P 1 PT P 0 GCURVE I 2 SWLATLON I 1 SCALE I 0 CURVEELT) /@0HdYAB KJh\J&LhH(26Q MAP.SCALE.POSITION) NIL () UPDATE.ELT.TO.SCALE D1 (P 0 ELT I 2 SOUTHWESTLATLON I 1 SCALE I 0 FIGUREELT F 1 LOCALELTS) h@dg@AB Ldg@AB =dg@AB .dg@AB dg@AB gho@ dQch(136Q ERROR 116Q UPDATE.ELLIPSE.TO.SCALE 77Q UPDATE.CIRCLE.TO.SCALE 60Q UPDATE.IMAGE.TO.SCALE 41Q UPDATE.TEXT.TO.SCALE 22Q UPDATE.CURVE.TO.SCALE) (122Q MAPPIECE 105Q ELLIPSE 66Q CIRCLE 47Q IMAGE 30Q TEXT 11Q CURVE) ( 132Q "bad figure element") UPDATE.CIRCLE.TO.SCALE D1 (P 2 RADIUSPT P 1 CENTER P 0 GCIRCLE I 2 SWLATLON I 1 SCALE I 0 CIRCLEELT) )@!HAB YHAB ZIJ hH(40Q DISTANCEBETWEEN 32Q MAP.SCALE.POSITION 16Q MAP.SCALE.POSITION) NIL () UPDATE.ELLIPSE.TO.SCALE D1 (P 3 MAJRAD P 2 MINRAD P 1 CENTER P 0 GELLIPSE I 2 SWLATLON I 1 SCALE I 0 ELLIPSEELT) A@QHAB YHAB ZHAB [IJ IK MLhH(64Q DISTANCEBETWEEN 57Q DISTANCEBETWEEN 50Q MAP.SCALE.POSITION 32Q MAP.SCALE.POSITION 16Q MAP.SCALE.POSITION) NIL () UPDATE.IMAGE.TO.SCALE D1 (P 1 LOCALPOS P 0 GIMAGE I 2 SWLATLON I 1 SCALE I 0 IMAGEELT) @HAB hH(16Q MAP.SCALE.POSITION) NIL () UPDATE.LOCAL.FROM.GLOBAL D1 (L (0 SCREENELT)) gNIL (2 updates) () UPDATE.POSITIONS.TO.SCALE D1 (P 0 LOCALELTS I 2 SOUTHWESTLATLON I 1 SCALE I 0 ELTS) @gAB H (17Q REVERSE 13Q MAPFIGURESPECS) (6 UPDATE.ELT.TO.SCALE) () UPDATE.TEXT.TO.SCALE D1 (P 1 LOCALPOS P 0 GTEXT I 2 SWLATLON I 1 SCALE I 0 TEXTELT) $@HAB YdH hH(34Q PTPLUS 16Q MAP.SCALE.POSITION) NIL () UPDATELATLON D1 (I 0 MAPW F 0 MAPW.LASTCURSORPTY F 1 MAPW.LASTCURSORPTX) !Q@ c@ cP@ c@ h(34Q MAPW.DISPLAY.LAT.LON 24Q LASTMOUSEY 14Q LASTMOUSEY 4 LASTMOUSEX) NIL () READLATLON D1 (P 2 LON P 1 LAT P 0 LATLONW I 0 INITLATLON) `o !@vo o HgI HgJ Hgg Hgg Hgg Hgg IJH Hg %H Hg Hg Hg @(214Q BLOCK 201Q PUTWINDOWPROP 172Q PUTWINDOWPROP 161Q GETWINDOWUSERPROP 152Q CLOSEW 144Q GETWINDOWUSERPROP 135Q SHOW.LAT.LON 127Q PUTWINDOWPROP 115Q PUTWINDOWPROP 103Q PUTWINDOWPROP 71Q PUTWINDOWPROP 57Q PUTWINDOWPROP 47Q PUTWINDOWPROP 36Q REALTOFILELON 26Q REALTOFILELAT 11Q CREATE.LAT.LON.DISPLAYER) (176Q LAT.DISPLAYED 167Q LON.DISPLAYED 156Q LAT.DISPLAYED 141Q FINISHED 124Q READ.LATLON.EVENTFN 121Q CURSORMOVEDFN 112Q READ.LATLON.EVENTFN 107Q CURSORINFN 100Q READ.LATLON.EVENTFN 75Q RIGHTBUTTONFN 66Q READ.LATLON.EVENTFN 63Q BUTTONEVENTFN 53Q LON.DISPLAYED 43Q LAT.DISPLAYED 2 MAPWFONT) ( 33Q 0.0 23Q 0.0 6 "Enter Lat/Lon") READ.LATLON.EVENTFN D1 (P 21Q Y P 20Q X P 17Q TIMEBOX P 16Q LON P 15Q LAT P 14Q DISPLAYREG P 13Q WINDOWREG P 12Q DISMISSTIME P 11Q MAXLON P 10Q MINLON P 7 MAXLAT P 6 MINLAT P 5 EWLINE P 4 NSLINE P 3 HUNDREDTHSCROLLAMOUNT P 2 DEGSCROLLAMOUNT I 0 LATLONW F 22Q READ.LAT.LON.COMMANDMENU F 23Q BOLDMAPFONT) `dljhkjjW$`W$>`dodi dW&dg dgjdndhHdI c$ dgg@g @gi lkllon@onn,@ h@ @g @g o .`ljO@ _ @ _" ;@gO @gO `ljO`` @ O"L9`ljOO MKJ؊OO MKJ_OO_CNO;N_8`ljOO MKJ؊OO MKJ_OOOOO_OO@ OlOl l _O `ljn,_O O(667Q CLOCKDIFFERENCE 642Q GETMOUSESTATE 636Q CLOCK0 607Q SHOW.LAT.LON 412Q DOWINDOWCOM 400Q INSIDE? 350Q PUTWINDOWPROP 336Q PUTWINDOWPROP 323Q INSIDE? 316Q LASTMOUSEY 310Q LASTMOUSEX 267Q GETMOUSESTATE 261Q CLOCK0 252Q GETWINDOWUSERPROP 243Q GETWINDOWUSERPROP 234Q DSPCLIPPINGREGION 225Q \INSUREWINDOW 170Q PUTWINDOWPROP 157Q PUTWINDOWPROP 134Q MENU) (646Q LASTMOUSEBUTTONS 516Q LASTMOUSEBUTTONS 427Q LASTMOUSEBUTTONS 375Q LASTMOUSEY 372Q LASTMOUSEX 354Q LASTMOUSEBUTTONS 343Q LON.DISPLAYED 331Q LAT.DISPLAYED 273Q LASTMOUSEBUTTONS 247Q LON.DISPLAYED 240Q LAT.DISPLAYED 164Q FINISHED 154Q LAT.DISPLAYED 145Q STOP 140Q OK 77Q DEFAULTMENUHELDFN 70Q CLRPROMPT 40Q MENUTYPE# 27Q MENUTYPE# 2 LASTMOUSEBUTTONS) ( 256Q 200001Q 213Q -100000Q 204Q -40000Q 46Q ((OK (QUOTE OK) "Sets the position to the indicated coordinates.") (STOP (QUOTE STOP) "Stops without changing the position."))) SHOW.LAT.LON D1 (P 1 X P 0 DIR I 2 W I 1 LON I 0 LAT) n jBg B o@ YooIooIB HB B oA YooIooIB HB h(152Q PRIN1 144Q PRINTNUM 107Q FILETOREALLON 76Q TERPRI 71Q PRIN1 63Q PRINTNUM 26Q FILETOREALLAT 16Q MOVETO 12Q GETWINDOWUSERPROP) (7 ORGY) ( 136Q 0.0 131Q " W" 122Q " E" 114Q 0.0 103Q (FLOAT 6 2) 55Q 0.0 50Q " S" 41Q " N" 33Q 0.0 22Q (FLOAT 6 2)) CREATE.LAT.LON.DISPLAYER D1 (P 0 LATLONW I 1 TITLE I 0 FONT) P@`bo@ @ li Ao @H H HghH Hgg H(114Q PUTWINDOWPROP 102Q PUTWINDOWPROP 77Q DSPYPOSITION 66Q DSPRESET 62Q DSPFONT 52Q CREATEW 40Q GETBOXREGION 35Q HEIGHTIFWINDOW 26Q FONTHEIGHT 22Q WIDTHIFWINDOW 17Q STRINGWIDTH) (111Q LATLON.CLOSEFN 106Q CLOSEFN 72Q ORGY 4 MAPWFONT) ( 47Q "Lat Long" 13Q "175.88 W ") LATLON.CLOSEFN D1 (P 0 MAPW I 0 LATLONW) @ Hdg Hg h(27Q PUTWINDOWPROP 20Q PUTWINDOWPROP 3 MAPW.FROM.LATLONW) (24Q CURSORMOVEDFN 15Q LATLONDISPLAYER) () ADD.LATLON.DISPLAY D1 (I 0 MAPW) @g` @gg (26Q PUTWINDOWPROP 14Q PUTWINDOWPROP 11Q CREATE.LAT.LON.DISPLAYER) (23Q MAPW.DISPLAY.LAT.LON 20Q CURSORMOVEDFN 6 MAPWFONT 3 LATLONDISPLAYER) () MAPW.DISPLAY.LAT.LON D1 (P 1 MAPDESC P 0 LATLONW I 0 W) G@g H:@ Y3@ II @ II H h(103Q SHOW.LAT.LON 77Q MAPUNSCALE 53Q LASTMOUSEX 47Q MAPUNSCALE 27Q LASTMOUSEY 20Q MAPDESCFROMFIGUREW 6 GETWINDOWUSERPROP) (3 LATLONDISPLAYER) () FILETOREALLAT D1 (L (0 FILEVALUE)) @oNIL NIL ( 4 .005493164) FILETOREALLON D1 (L (0 FILEVALUE)) @oNIL NIL ( 4 .005493164) REALTOFILELAT D1 (L (0 REALLAT)) @ojNIL NIL ( 4 182.0445) REALTOFILELON D1 (L (0 REALLON)) @ojNIL NIL ( 4 182.0445) MAP.DATA.IN.REGION D1 (P 0 INSIDEELTS I 1 WORLDREG I 0 SCREENELTS) @gA H (16Q REVERSE 12Q MAPFIGURESPECS) (6 ADD.TO.LST.IF.INSIDE) () MAPW.DATA D1 (I 0 MAPW) @ (3 FIGURESPECS) NIL () ADD.TO.LST.IF.INSIDE D1 (I 1 WORLDREG I 0 SCREENELT F 0 INSIDEELTS) @A @Pc(5 MAPW.INSIDE.REGION) NIL () MAPW.INSIDE.CIRCLE D1 (I 1 WREG I 0 GCIRCLE) A@ A@ (24Q INSIDEP 10Q INSIDEP) NIL () MAPW.INSIDE.ELLIPSE D1 (I 1 WREG I 0 GELLIPSE) $A@ A@ A@ (41Q INSIDEP 24Q INSIDEP 10Q INSIDEP) NIL () MAPW.INSIDE.CURVE D1 (P 1 PT I 1 WREG I 0 GCURVE) @HhAI iHX(24Q INSIDEP) NIL () MAPW.INSIDE.TEXT D1 (I 1 WREG I 0 GTEXT) A@ (10Q INSIDEP) NIL () MAPW.INSIDE.IMAGE D1 (I 1 WREG I 0 GIMAGE) A@ (10Q INSIDEP) NIL () GETDRAWPOSITIONA0001 D1 (NAME ERRORSET F 0 W F 1 MACROY) 5`ljP P `ljP P ci(56Q LASTMOUSEY 52Q LASTMOUSEX 33Q GETMOUSESTATE 27Q UPDATELATLON 20Q UPDATELATLON 2 GETMOUSESTATE) (37Q LASTMOUSEBUTTONS 6 LASTMOUSEBUTTONS) () GETDRAWPOSITION D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 CURSOR I 0 W F 4 RESETVARSLST F 5 CROSSHAIRS) >AU 1gHhhTcYog gIcgI KJ(71Q ERROR! 64Q APPLY 41Q GETDRAWPOSITIONA0001 6 CURSOR) (55Q CURSOR 45Q ERROR 36Q INTERNAL 14Q CURSOR) ( 33Q (GETDRAWPOSITIONA0001)) (PRETTYCOMPRINT MAPCOMS) (RPAQQ MAPCOMS ((DECLARE: FIRST (FILES MAPSKETCH)) (FNS DRAW.MAP MAPINDEXFILE MAPDATAFILE DRAW.MAP.FROM.MAPINFO MAPDESCFROMFIGUREW MAPW.CLOSEFN MAPW.CREATE.ICON MAPW.FROM.LATLONW MAPW.ICON.BITMAP CREATE.MAPW CREATE.MAPW.FROM.REGION FIGW.DRAWMAP GETLATLON GETMAPREGION GETWORLD GETMAPFILES MAPREGIONTOWINDOW MAPUNSCALE MAPW.BUTTONEVENTFN MAPW.DISPLAYER MAPSCALEIN MAPSCALE PLOTSEGMENT ReadSigned16 SCALE.FROM.MAPINFO SCALE.FROM.MAPW MAP.SCALE.POSITION UNSCALE.POSITION.FROM.MAPINFO SCALE.POSITION.FROM.MAPINFO UPDATE.CURVE.TO.SCALE UPDATE.ELT.TO.SCALE UPDATE.CIRCLE.TO.SCALE UPDATE.ELLIPSE.TO.SCALE UPDATE.IMAGE.TO.SCALE UPDATE.LOCAL.FROM.GLOBAL UPDATE.POSITIONS.TO.SCALE UPDATE.TEXT.TO.SCALE UPDATELATLON) (FNS READLATLON READ.LATLON.EVENTFN SHOW.LAT.LON CREATE.LAT.LON.DISPLAYER LATLON.CLOSEFN ADD.LATLON.DISPLAY MAPW.DISPLAY.LAT.LON FILETOREALLAT FILETOREALLON REALTOFILELAT REALTOFILELON) (FNS MAP.DATA.IN.REGION MAPW.DATA ADD.TO.LST.IF.INSIDE MAPW.INSIDE.CIRCLE MAPW.INSIDE.ELLIPSE MAPW.INSIDE.CURVE MAPW.INSIDE.TEXT MAPW.INSIDE.IMAGE) (FNS GETDRAWPOSITION) (INITVARS (ALL.MAPWS)) (VARS MAPW.AUTOSCALEFLG MAPW.LASTCURSORPTY MAPWFONT (MAPW.COMMAND.MENU) (READ.LAT.LON.COMMANDMENU) (BOLDMAPFONT (QUOTE (GACHA 12 BOLD)))) (GLOBALVARS ALL.MAPWS MAPWFONT MAPW.COMMAND.MENU GLOBALMAPINDEXFILE GLOBALMAPDATAFILE) ( RECORDS MAPPIECE LOCALMAPPIECE))) (RPAQ? ALL.MAPWS) (RPAQQ MAPW.AUTOSCALEFLG NIL) (RPAQQ MAPW.LASTCURSORPTY 105) (RPAQQ MAPWFONT (GACHA 12 BOLD)) (RPAQQ MAPW.COMMAND.MENU NIL) (RPAQQ READ.LAT.LON.COMMANDMENU NIL) (RPAQQ BOLDMAPFONT (GACHA 12 BOLD)) (TYPERECORD MAPPIECE (MINSCALE MAXSCALE WORLDREGION LATITUDEOFFSET LATITUDESCALE LONGITUDEOFFSET LONGITUDESCALE MAPFILE)) (RECORD LOCALMAPPIECE (DUMMY)) (PUTPROPS MAP COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL