GEODATA: A program for finding geographic data

Code:




 

 LOCAL GD_ID:="GEODATA V 0.1 © 2017 StephenG1CMZ";

 LOCAL ST;

 LOCAL LF:=CHAR(10);

 LOCAL COMMA:=",";

 LOCAL CR:=CHAR(13);

 //LOCAL YL:=19;



 LOCAL SHO_PROGRESS:=1;//TEST VALUE:IT IS A PARAMETER AND NOT CUSTOMISED

 EXPORT AIRPORTS_DATA:={};

 LOCAL FIELDS:={};

 

 //IMPORT(CSV);



 GD_IDS()

 BEGIN

  TEXTOUT_P(GD_ID,0,20); 

 END;



 EXPORT ABOUT()

 BEGIN

  RECT_P();

  GD_IDS();

  TEXTOUT_P("Data is not included, supply your own files",0,40);

  TEXTOUT_P("Loading AIRPORTS data...Esc to continue",0,60);

  WAIT; 

 END;



 

 

 

 



 EXPORT LOAD_AIRPORTS()

 BEGIN



  LOCAL XXNUM;

  LOCAL FLIST2:="AIR"+{"0","1","2","3","4","5","6","7","8","9"};

  //LOCAL FLIST2:="AIR"+{"0"};//TEST

  //LOCAL FLIST1:={"G7"};

  LOCAL TM;



  PRINT();

  RECT();//CLEAR SCREEN

  GD_IDS();

  XXNUM:=1;

  CSV_SCR_PUT();//SAVE USER SCREEN

  //RECT_P() HERE IF WE WISH TO DISCARD USER SCREEN

  TM:=TICKS; 

  AIRPORTS_DATA:=CSV_Load(FLIST2,−1,XXNUM,1,SHO_PROGRESS);

  CSV_SCR_GET();//RESTORE USER SREEN IF DESIRED

  TEXTOUT_P("Elapsed "+((TICKS-TM)/1000)+" s",0,200,2);//FOR ACCURATE TIMING TAKE TICKS BEFORE SCR_GET

  //MSGBOX("LOADED: "+SIZE(AIRPORTS_DATA));

  L1:=AIRPORTS_DATA;

  WAIT;

 END;



 EXPORT FIND_AIRPORTS(Str)

 BEGIN

  LOCAL II,JJ,CHS,OKC;

  LOCAL FT:=Str;

  LOCAL MYLIST:={};

  LOCAL MYLISTA:={};

 

  //MSGBOX("DATA: "+SIZE(AIRPORTS_DATA));

  FOR II FROM 1 TO SIZE(AIRPORTS_DATA) DO

   //DEBUG;

   FIELDS:=AIRPORTS_DATA(II);

   IF TYPE(FIELDS)≠6 THEN

    //PRINT("DOM: "+{TYPE(FIELDS),II});

   END;

   IF TYPE(FIELDS)==DOM_LIST-1 THEN

    IF SIZE(FIELDS)  AND 1 THEN //NOT EMPTY

     FOR JJ FROM 1 TO SIZE(FIELDS) DO

      IF INSTRING(FIELDS(JJ),FT) THEN

       MYLIST(0):=II;

        //IF MORE THAN ONE FIELD MATCHES

        //AIRPORT IS LISTED TWICE

       DRAWMENU({II,JJ,SIZE(MYLIST)});//MATCHES

      END;

     END;

    END; 

   END;

  

   //DRAWMENU(II);//WAIT(0.1);

  END;

  IF SIZE(MYLIST) THEN

   FOR II FROM 1 TO SIZE(MYLIST) DO

    FIELDS:=AIRPORTS_DATA(MYLIST(II));

    MYLISTA(II):=FIELDS;

   END; 

   REPEAT

    OKC:=CHOOSE(CHS,(SIZE(MYLIST))+" matches",MYLISTA);

   // MSGBOX(MYLISTA(CHS));

    FIELDS:=MYLISTA(CHS);

    IF 1 THEN 

     RECT_P(0,0,320,200);

     FOR II FROM 1 TO SIZE(FIELDS) DO

        TEXTOUT_P((II)+": "+FIELDS(II),0,13*(II));

     END;

    END;

    WAIT;



   UNTIL OKC==0; 

  ELSE

   MSGBOX("NO MATCH...TRY ANOTHER STRING")

  END;



  PRINT("Done");

 END;



EXPORT GEODATA()

BEGIN

 LOCAL OKC,TM,Str;



 RECT_P();

 ABOUT();

 TEXTOUT_P("Loading",0,0);

 

 LOAD_AIRPORTS();

 

 WHILE OKC:=INPUT({{Str,[2]}},"Enter String (Any Data Field)","Find","Ensure strings are in quotes") DO

 

  //TEXTOUT_P("Finding..."+Str,0,0);

  TM:=TICKS;

  FIND_AIRPORTS(Str);

  TM:=TICKS-TM;

  PRINT("Elapsed: "+(TM/1000)+" s");

  WAIT;

 END;



END;