\START92\
\COMMENT=Program file dated 10/18/98, 14:10      
\NAME=qreport
\FILE=QREPORT.92P
()
Prgm
Local i,l,s
{""}\->\l
0\->\i
0\->\s
Loop
Dialog
Title "QuickReport 1.2 by R. Coogle"
Text "Enter an ADDBOOK database and"
Text "press ENTER"
Request "Database",db
DropDown "Name List",l,s
EndDlog
If ok=0
Stop
If i=0 Then
#db[1]\->\l
1\->\i
Cycle
EndIf
Dialog
Title "REPORT"
Text (#db[1])[s]
Text (#db[2])[s]
Text (#db[3])[s]&", "&(#db[4])[s]&" "&(#db[5])[s]
Text "Phone: "&(#db[6])[s]
EndDlog
EndLoop
EndPrgm

\STOP92\