9f0c672127
* tests/cursrtst.prg
* tests/db_brows.prg
* tests/debugtst.prg
* tests/dirtest.prg
* tests/foreach.prg
* tests/funcarr.prg
* tests/memvar.prg
* tests/objarr.prg
* tests/onidle.prg
* tests/speedstr.prg
* tests/speedtst.prg
* tests/switch.prg
* tests/testdbf.prg
* tests/testdecl.prg
* tests/testget.prg
* formatting
38 lines
974 B
Plaintext
38 lines
974 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL GetList := {}, cVar := "Hello"
|
|
MEMVAR aVar, nIndex, cMacro, cEarly, cEarly2, cLate
|
|
PRIVATE aVar := { "World", "Again" }, nIndex := 1, cMacro := "cEarly", cEarly := { "Early" }, cLate := "Late!", cEarly2 := { "Early2" }
|
|
|
|
CLS
|
|
|
|
? "2nd GET should say 'Early'."
|
|
|
|
@ 10, 10 SAY "cVar :" GET cVar PICTURE "@K!"
|
|
@ 12, 10 SAY "cMacro[1] :" GET &cMacro[ 1 ]
|
|
@ 14, 10 SAY "cMacro.2[1] :" GET &cMacro.2[ 1 ]
|
|
@ 16, 10 SAY "cEarly[1] :" GET cEarly[ 1 ]
|
|
// @ 14,10 SAY "cMacro :" GET &(cMacro)[ 1 ]
|
|
nIndex := 2
|
|
@ 18, 10 SAY "aVar :" GET aVar[ nIndex ]
|
|
@ 20, 10 SAY "Picture of GET-1:" GET GetList[ 1 ]:Picture
|
|
nIndex := 3
|
|
cMacro := "cLate"
|
|
READ
|
|
|
|
CLS
|
|
|
|
/* Clipper Error "Get contains complex macro"
|
|
? "This GET should say 'Late!'."
|
|
cMacro := "cEarly"
|
|
@ 10,10 SAY "cMacro :" GET &(cMacro)
|
|
cMacro := "cLate"
|
|
READ
|
|
*/
|
|
|
|
RETURN
|