>if SETUP->NFEET = 0 // use metric conv. > nstit := _sper3 > nsper := setup->nsper >endif >fwindow( 6, 3, 15, 43, "GR+/RD,N/W,N", .t., "Executing Commands, "DOUBLE")>Don't mean to be short on the sample, but if I were asked to describe the language, I'd say it looks like a cross between xBase, Pascal (note the assignment statements), and C (note the comments).
// Clipper Sample Header file (files with ch extension) # Command DEFAULT <p> TO <Val> [, <pn> TO <Valn>] => ; <p> = iif( <p> = NIL, <Val>, <p> ) ; [; <pn> = iif( <pn> = NIL, <Valn>, <pn> ) ] # Command REPEAT => Do While .T. # Command UNTIL <expl> => If (<expl>); Exit; End; End Usage of abv defined commands... DEFAULT A TO 12, B TO "Test" // Assigns default values to 2 variables REPEAT // Starts a Loop ..... ..... UNTIL X < 12Pls chk the Include files i.e. (ch ext.) which defines all commands...