4d4bb8e11c
* tests/ainstest.prg
* tests/array16.prg
* tests/arrays.prg
* tests/atest.prg
* tests/clasinit.prg
* tests/classch.prg
* tests/classes.prg
* tests/dates.prg
* tests/db_brows.prg
* tests/ddate.prg
* tests/debugtst.prg
* tests/dynobj.prg
* tests/files.prg
* tests/gfx.prg
* tests/inline.prg
* tests/keywords.prg
* tests/objects.prg
* tests/onidle.prg
* tests/readhrb.prg
* tests/rtfclass.prg
* tests/speed.prg
* tests/switch.prg
* tests/test_all.prg
* tests/testbrw.prg
* tests/testcgi.prg
* tests/testcls.prg
* tests/testget.prg
* tests/testhtml.prg
* tests/testidle.prg
* tests/testinit.prg
* tests/testntx.prg
* tests/testpers.prg
* tests/testrdd2.prg
* tests/teststr.prg
* tests/tstblock.prg
* tests/tstmacro.prg
* tests/videotst.prg
* tests/vidtest.prg
* tests/wcecon.prg
* Cleanups. SVN header, '=' operator usage.
39 lines
953 B
Plaintext
39 lines
953 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
|
|
|