68 lines
691 B
Plaintext
68 lines
691 B
Plaintext
//NOTEST
|
|
// Using nExt variable name
|
|
|
|
//DO NOT RUN THIS PROGRAM - ITS PURPOSE IS ONLY TO CHECK THE SYNTAX!
|
|
|
|
|
|
|
|
Function Main()
|
|
|
|
Local nExt, nExt7, nExtNEXT
|
|
|
|
|
|
|
|
For NExt := 1 To 10
|
|
|
|
|
|
|
|
OutStd( nExT ) // Actually this needs to use str()
|
|
|
|
|
|
|
|
Next /*next*/ nExt //next
|
|
|
|
//NEXT
|
|
|
|
|
|
|
|
nExt := 10 //next
|
|
|
|
|
|
|
|
nExt++ /*n_ext*/ //---
|
|
|
|
--nExt /*next*/
|
|
|
|
nExt7 :=7
|
|
|
|
nExtNEXT := nExt //next
|
|
|
|
|
|
|
|
nExt[ nExt ] := NEXT( nExt[nExt+nExt] * nExt *(nExt+nExt*5) )
|
|
|
|
|
|
|
|
Return( nExt * /*next*/ nExt )
|
|
|
|
|
|
|
|
FUNCTION NeXT( nExt /*next next*/ )
|
|
|
|
IF( nExt > nExt+4 )
|
|
|
|
nExt =nExt +nExt * 5
|
|
|
|
ELSEIF( nExt > 0 )
|
|
|
|
nExt = nExt * 6 + nExt
|
|
|
|
ELSE
|
|
|
|
nExt +=5
|
|
|
|
ENDIF
|
|
|
|
RETURN nExt * nExt
|
|
|