#!/home/tony/d4/cp/d4x

DO_CGI

Z<-DO_CGI;N;S;Q
PRINT"Context-type: text/plain"
PRINT""
|PRINT"D4X GCI-BIN"
|I<-0 & N<-1tr:Z<-Z[#sort Z<-#sstomat #use "$ENVP"]
|WHILE I<N
|S<-#deb Z[I++ :]
|PRINT S,"=",$ENVP[S]
|WEND
Q<-$ENVP["QUERY_STRING"]
IF 0=rQ; #quit
PRINT "QUERY=",Q
IF #fstat 2dQ; PRINT 0 #sed "X:r ",(2dQ),";:p100;:cm"
#quit

Z<-PRINT X
$VA[0]<-X, #av 10
Z<-""
