-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmpt_hmg.ch
62 lines (41 loc) · 1.53 KB
/
mpt_hmg.ch
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
*-----------------------------------------------------------------------------*
* MultiplicationTable | mpt_hmg.ch
*-----------------------------------------------------------------------------*
#include "mpt_ver.ch"
*-----------------------------------------------------------------------------*
#DEFINE _PRG1_ '2022'
#DEFINE _PRG2_ '199'
#DEFINE _PRG3_ '1'
#DEFINE _DB1_ ''
#DEFINE _DB2_ ''
#DEFINE _DB3_ ''
#DEFINE _OLD_PRG1_ '2022'
#DEFINE _OLD_PRG2_ '192'
#DEFINE _OLD_PRG3_ '1'
#DEFINE _OLD_DB1_ ''
#DEFINE _OLD_DB2_ ''
#DEFINE _OLD_DB3_ ''
#DEFINE NAZWA_PR "Multiplication Table"
#DEFINE WERSJA_PR _PRG1_+"."+_PRG2_+"."+_PRG3_
#DEFINE WERSJA_DB _DB1_+"."+_DB2_+"."+_DB3_
#INCLUDE "hmg.ch"
#DEFINE FALSE .F.
#DEFINE TRUE .T.
#DEFINE CRLF CHR( 13 ) + CHR( 10 )
#DEFINE CR CHR( 13 )
#DEFINE LF CHR( 10 )
#IFNDEF __XHARBOUR__
#XCOMMAND TRY => bError := errorBlock( {|oError| break( oError ) } ) ;;
BEGIN SEQUENCE
#XCOMMAND CATCH [<!oError!>] => errorBlock( bError ) ;;
RECOVER [USING <oError>] <-oError-> ;;
errorBlock( bError )
#ENDIF
MEMVAR APP_ROW
MEMVAR APP_COL
MEMVAR APP_HEIGHT
MEMVAR APP_WIDTH
MEMVAR aFrm
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*
*-----------------------------------------------------------------------------*