PARTNO /'TEST','test', $ PRGRM ID
(TEXT/'another test')
A=1
B=5
WHILE/A.LT.B
$$	DECLAR/REAL,A,B
	$$A=100;B=2
	A=1;B=2
	PRINT/A,B
	WHILE/A.LT.B
		$$DECLAR/REAL,A,B
		$$A=5000
		$$B=10000
		WHILE/A.LT.B
		$$	DECLAR/REAL,A,B
			A=20000
		ENDOF/WHILE
		PRINT/A
	ENDOF/WHILE
	PRINT/A
ENDOF/WHILE
PRINT/A
D=3
C=1
$$PRINT/B,D
FINI