KILL command. - Printable Version

Code:



// Subroutine declaration

subr();clrscrn();

LOCAL a_string, blue:=rgb(0,0,255);   // Local to main and subroutines

EXPORT menu()

BEGIN

  LOCAL m,m1,mx,my; // Mouse vars

  clrscrn;

  //Main loop 

  While 1 DO

    WHILE MOUSE(1)>=0 DO END;  // get mouse XY coordinates

    //Selection loop

    REPEAT

      m:=MOUSE;

      m1:=m(1);

    UNTIL SIZE(m1)>0;      

    mx:=m1(1);

    my:=m1(2);  

    // query softbuttons

    IF my>=220 AND my<=239 THEN

      // "Btn1" Menu button 1      

      IF mx>=0 AND mx<=51 THEN

        clrscrn;

        subr;

        clrscrn; 

        TEXTOUT_P(a_string, 160-(9*SIZE(a_string)/2),110,7,blue);

      END;  //"Btn1" Btn 1

      // "Btn2" Menu button 2 

      IF mx>=53 AND mx<=104 THEN

      END;  //  "Btn2" btn 2

      // "Btn3" Menu button 3 

      IF mx>=106 AND mx<=157 THEN

      END;    //  "Btn3" btn 3    

      // "Btn" menu button 4

      IF mx>=159 AND mx<=210 THEN              

      END;   //  "Btn4" btn 4

      //"Btn5" menu button 5

      IF mx>=212 AND mx<=263 THEN       

      END;   //  "Match" btn 5

      // menu button 6 Exit

      IF mx>=265 AND mx<=316 THEN

        RETURN "Exit" ;

      END;   //  Menu btn 6      

    END;  // Selection loop  

  END;  // Main loop

END;  // program

//  =========================================  SUBROUTINES HERE  ====================================

clrscrn()

BEGIN

  RECT();           // Clear Screen

  DRAWMENU("FRANCE","Btn2","Btn3","Btn4","Btn5","Exit");     // Menu labels

END;

// ==================================================================================================

// ====================================== END OF clrscrn Subroutine =================================

subr()

BEGIN

  a_string:="Vive la France";

  RETURN a_string;

END;

// ==================================================================================================

// ====================================== END OF subr Subroutine ====================================

Code:



EXPORT TSTDate(J,M,A)

BEGIN

LOCAL ND, TST, BISS:=0;

CASE

  IF J*M*A==0 THEN MSGBOX("Date= "+J+"/"+M+"/"+A+"?");KILL;END;

  IF J<1 OR J>31 OR FP(J)≠0 THEN MSGBOX("Date= "+J+"/"+M+"/"+A+"?");KILL;END;

  IF M<1 OR M>12 OR FP(M)≠0 THEN MSGBOX("Date= "+J+"/"+M+"/"+A+"?");KILL;END;

  IF A<−4712 OR A>9999 OR FP(A) ≠ 0 OR A=0 THEN MSGBOX("Date= "+J+"/"+M+"/"+A+"?");KILL;END;

  IF M==04 OR M==06 OR M==09 OR M==11 AND J>30 THEN MSGBOX("Date= "+J+"/"+M+"/"+A+"?");KILL;END; 

END;



IF A==1582 THEN

TST:=A+M/100+J/10000 ELSE END;



IF (A==1582 AND (TST>1582.1004

AND TST<1582.1015)) 

THEN MSGBOX("Date= "+J+"/"+M+"/"+A+"?");KILL;END;



IF A MOD 4==0 AND(A MOD 400==0

   OR A MOD 100≠0)

   THEN BISS:=1

END;



IF A MOD 4==0 AND A<1582 

   THEN BISS:=1 END; 



IF M==2 AND BISS==1 

  AND J>29 THEN MSGBOX("Date= "+J+"/"+M+"/"+A+"?");KILL;END;



IF M==2 AND BISS==0

   AND J>28 THEN MSGBOX("Date= "+J+"/"+M+"/"+A+"?");KILL;END;



MSGBOX("Date OK");

            

END;